From def6b2864eb521f6f8fd04b0c479f20b33f7d481 Mon Sep 17 00:00:00 2001 From: Henry Blanchette Date: Tue, 5 Jul 2022 15:57:40 -0700 Subject: [PATCH 001/125] spec --- ConditionalConstraints.md | 55 +++++++++++++++++++++++++++++++++++++++ 1 file changed, 55 insertions(+) create mode 100644 ConditionalConstraints.md diff --git a/ConditionalConstraints.md b/ConditionalConstraints.md new file mode 100644 index 000000000..4d5ff0769 --- /dev/null +++ b/ConditionalConstraints.md @@ -0,0 +1,55 @@ +# Conditional Constraints + +## Syntax + +The front-end AST has a new constructor: + +```hs +data BindDef name = DPropGuards [([Prop name], Expr name)] | ... +``` + +which is parsed from the following syntax: + +``` + : + +[ | => ] +``` + +## Expanding PropGuards + +- Before renaming, a `Bind` with a `bDef = DPropGuards ...` will be expanded into several `Bind`s, one for each guard case. +- The generated `Bind`s will have fresh names, but the names will have the same location as the original function's name. +- These generated `Bind`'s will have the same type as the original function, except that the list of type constraints will also include the `Prop name`s that appeared on the LHS of the originating ase of `DPropGuards`. +- The original function will have the `Expr name` in each of the `DPropGuards` cases replaced with a function call the appropriate, generated function. + +## Renaming + +The new constructor of `BindDef` is traversed as normal during renaming. This ensures that a function with `DPropGuards` ends up in the same mutual-recursion group as the generated functions that it calls. + +## Typechecking + +The back-end AST has a new constructor: + +```hs +data Expr = EPropGuards [([Prop], Expr)] | ... +``` + +During typechecking, a `BindDef` of the form + +``` +DPropGuards [(props1, f1 x y), (prop2, f2 x y)] +``` + +is processed into a `Decl` of the form + +``` +Decl + { dDefinition = + DExpr (EPropGuards + [ (props1, f1 x y) + , (props2, f2 x y) ]) + } +``` + +Each case of an `EPropGuards` is typechecked by first asssuming the `props` and then typechecking the expression. However, this typechecking isn't really that important because by construction the expression is just a simple application that is ensured to be well-typed. But we can use this structure for more general purposes. \ No newline at end of file From 2dd322f31a21f92e84f5294683149dda543fca73 Mon Sep 17 00:00:00 2001 From: Henry Blanchette Date: Tue, 5 Jul 2022 15:58:10 -0700 Subject: [PATCH 002/125] syntax --- src/Cryptol/Parser/AST.hs | 1 + src/Cryptol/TypeCheck/AST.hs | 2 ++ 2 files changed, 3 insertions(+) diff --git a/src/Cryptol/Parser/AST.hs b/src/Cryptol/Parser/AST.hs index 41acb6987..70db2d48b 100644 --- a/src/Cryptol/Parser/AST.hs +++ b/src/Cryptol/Parser/AST.hs @@ -277,6 +277,7 @@ type LBindDef = Located (BindDef PName) data BindDef name = DPrim | DExpr (Expr name) + | DPropGuards [([Prop name], Expr name)] deriving (Eq, Show, Generic, NFData, Functor) data Pragma = PragmaNote String diff --git a/src/Cryptol/TypeCheck/AST.hs b/src/Cryptol/TypeCheck/AST.hs index a061630e2..eda6f75b9 100644 --- a/src/Cryptol/TypeCheck/AST.hs +++ b/src/Cryptol/TypeCheck/AST.hs @@ -149,6 +149,8 @@ data Expr = EList [Expr] Type -- ^ List value (with type of elements) | EWhere Expr [DeclGroup] + | EPropGuards [([Prop], Expr)] + deriving (Show, Generic, NFData) From 759befd311d64a4ec4c7f59bccfe4d7d3a1589e2 Mon Sep 17 00:00:00 2001 From: Henry Blanchette Date: Tue, 5 Jul 2022 15:59:15 -0700 Subject: [PATCH 003/125] first pass impl of checkSigB for DPropGuards --- src/Cryptol/TypeCheck/Infer.hs | 39 +++++++++++++++++++++++++++++++++- 1 file changed, 38 insertions(+), 1 deletion(-) diff --git a/src/Cryptol/TypeCheck/Infer.hs b/src/Cryptol/TypeCheck/Infer.hs index 369aa19b5..98e1cf76c 100644 --- a/src/Cryptol/TypeCheck/Infer.hs +++ b/src/Cryptol/TypeCheck/Infer.hs @@ -43,13 +43,15 @@ import Cryptol.TypeCheck.Kind(checkType,checkSchema,checkTySyn, checkPropSyn,checkNewtype, checkParameterType, checkPrimType, - checkParameterConstraints) + checkParameterConstraints, + checkPropGuard) import Cryptol.TypeCheck.Instantiate import Cryptol.TypeCheck.Subst (listSubst,apSubst,(@@),isEmptySubst) import Cryptol.TypeCheck.Unify(rootPath) import Cryptol.Utils.Ident import Cryptol.Utils.Panic(panic) import Cryptol.Utils.RecordMap +import Cryptol.Utils.PP (pp) import qualified Data.Map as Map import Data.Map (Map) @@ -966,6 +968,11 @@ checkMonoB b t = , dFixity = P.bFixity b , dDoc = P.bDoc b } + + P.DPropGuards _ -> + tcPanic "checkMonoB" + [ "Used constraint guards without a signature, dumbwit, at " + , show . pp $ P.bName b ] -- XXX: Do we really need to do the defaulting business in two different places? checkSigB :: P.Bind Name -> (Schema,[Goal]) -> InferM Decl @@ -1030,6 +1037,36 @@ checkSigB b (Forall as asmps0 t0, validSchema) = case thing (P.bDef b) of , dDoc = P.bDoc b } + P.DPropGuards propGuards -> + inRangeMb (getLoc b) $ + withTParams as $ do + asmps1 <- applySubstPreds asmps0 + t <- applySubst t0 + -- handle cases + let f :: ([P.Prop Name], P.Expr Name) -> InferM ([Prop], Expr) + f (ps0, e0) = do + -- validate props + (ps1, gss) <- unzip <$> mapM checkPropGuard ps0 + let gs = concat gss + ps2 = asmps1 <> (goal <$> gs) <> ps1 + -- typecheck expr + let tGoal = WithSource t0 (DefinitionOf nm) (getLoc b) + nm = thing $ P.bName b + e1 <- checkFun (P.FunDesc (Just nm) 0) (P.bParams b) e0 tGoal + e2 <- applySubst e1 + pure (ps2, e2) + -- undefined :: InferM ([Prop], Expr) + cases <- mapM f propGuards + + return Decl + { dName = thing (P.bName b) + , dSignature = Forall as asmps1 t + , dDefinition = DExpr (EPropGuards cases) + , dPragmas = P.bPragmas b + , dInfix = P.bInfix b + , dFixity = P.bFixity b + , dDoc = P.bDoc b + } -------------------------------------------------------------------------------- -------------------------------------------------------------------------------- From ea8e3127ff5b301e18985238f734c0307113afec Mon Sep 17 00:00:00 2001 From: Henry Blanchette Date: Tue, 5 Jul 2022 15:59:24 -0700 Subject: [PATCH 004/125] checkPropGuard TODO --- src/Cryptol/TypeCheck/Kind.hs | 10 ++++++++-- 1 file changed, 8 insertions(+), 2 deletions(-) diff --git a/src/Cryptol/TypeCheck/Kind.hs b/src/Cryptol/TypeCheck/Kind.hs index 3625b40bd..7aaa9c897 100644 --- a/src/Cryptol/TypeCheck/Kind.hs +++ b/src/Cryptol/TypeCheck/Kind.hs @@ -19,6 +19,7 @@ module Cryptol.TypeCheck.Kind , checkPropSyn , checkParameterType , checkParameterConstraints + , checkPropGuard ) where import qualified Cryptol.Parser.AST as P @@ -40,8 +41,6 @@ import Data.Function(on) import Data.Text (Text) import Control.Monad(unless,when) - - -- | Check a type signature. Returns validated schema, and any implicit -- constraints that we inferred. checkSchema :: AllowWildCards -> P.Schema Name -> InferM (Schema, [Goal]) @@ -413,3 +412,10 @@ checkKind _ (Just k1) k2 checkKind t _ _ = return t +-- | Validate a parsed proposition that appears on the LHS of a PropGuard. +-- Returns the validated proposition as well as any inferred goal propisitions. +checkPropGuard :: P.Prop Name -> InferM (Prop, [Goal]) +checkPropGuard p = + collectGoals $ + (undefined :: KindM Type -> InferM Type) $ -- TODO + checkProp p From b30ee0763b7f6f82572b70621a7ae051c4a34e32 Mon Sep 17 00:00:00 2001 From: Henry Blanchette Date: Tue, 5 Jul 2022 16:03:42 -0700 Subject: [PATCH 005/125] Rename DPropGuards --- src/Cryptol/ModuleSystem/Renamer.hs | 7 +++++++ 1 file changed, 7 insertions(+) diff --git a/src/Cryptol/ModuleSystem/Renamer.hs b/src/Cryptol/ModuleSystem/Renamer.hs index fdee53409..8d1a8ce3f 100644 --- a/src/Cryptol/ModuleSystem/Renamer.hs +++ b/src/Cryptol/ModuleSystem/Renamer.hs @@ -684,6 +684,13 @@ instance Rename Bind where instance Rename BindDef where rename DPrim = return DPrim rename (DExpr e) = DExpr <$> rename e + rename (DPropGuards cases) = DPropGuards <$> traverse renameCase cases + where + renameCase :: ([Prop PName], Expr PName) -> RenameM ([Prop Name], Expr Name) + renameCase (props, e) = do + props' <- traverse rename props + e' <- rename e + pure (props', e') -- NOTE: this only renames types within the pattern. instance Rename Pattern where From 6000ce96d545b071a3067b8b5696eea2bf082ee7 Mon Sep 17 00:00:00 2001 From: Henry Blanchette Date: Tue, 5 Jul 2022 16:10:49 -0700 Subject: [PATCH 006/125] new module: Cryptol.Parser.PropGuards --- cryptol.cabal | 1 + src/Cryptol/Parser/PropGuards.hs | 32 ++++++++++++++++++++++++++++++++ 2 files changed, 33 insertions(+) create mode 100644 src/Cryptol/Parser/PropGuards.hs diff --git a/cryptol.cabal b/cryptol.cabal index 7cb8d0d0a..bc0f9a2a8 100644 --- a/cryptol.cabal +++ b/cryptol.cabal @@ -93,6 +93,7 @@ library Cryptol.Parser.Names, Cryptol.Parser.Name, Cryptol.Parser.NoPat, + Cryptol.Parser.PropGuards, Cryptol.Parser.NoInclude, Cryptol.Parser.Selector, Cryptol.Parser.Utils, diff --git a/src/Cryptol/Parser/PropGuards.hs b/src/Cryptol/Parser/PropGuards.hs new file mode 100644 index 000000000..d2c931d11 --- /dev/null +++ b/src/Cryptol/Parser/PropGuards.hs @@ -0,0 +1,32 @@ +-- | +-- Module : Cryptol.Parser.PropGuards +-- Copyright : (c) 2022 Galois, Inc. +-- License : BSD3 +-- Maintainer : cryptol@galois.com +-- Stability : provisional +-- Portability : portable +-- +-- Expands PropGuards into a top-level definition for each case, and rewrites +-- the body of each case to be an appropriate call to the respectively generated +-- function. +-- + +module Cryptol.Parser.PropGuards where + +import Cryptol.Parser.AST +import Cryptol.Parser.Position (Range(..), emptyRange, start, at) +import Cryptol.Parser.Names (namesP) +import Cryptol.Utils.PP +import Cryptol.Utils.Panic (panic) +import Cryptol.Utils.RecordMap + +import MonadLib hiding (mapM) +import Data.Maybe (maybeToList) +import qualified Data.Map as Map +import Data.Text (Text) + +import GHC.Generics (Generic) +import Control.DeepSeq + +class ExpandPropGuards t where + expandPropGuards :: t -> (t, [Error]) From a4c5d8a94f0cbcb735a22b48a2c1f63f0547bb50 Mon Sep 17 00:00:00 2001 From: Henry Blanchette Date: Tue, 5 Jul 2022 18:25:22 -0700 Subject: [PATCH 007/125] ExpandPropGuards pass --- src/Cryptol/ModuleSystem/Base.hs | 11 ++++ src/Cryptol/ModuleSystem/Monad.hs | 8 +++ src/Cryptol/Parser/ExpandPropGuards.hs | 88 ++++++++++++++++++++++++++ src/Cryptol/Parser/PropGuards.hs | 32 ---------- 4 files changed, 107 insertions(+), 32 deletions(-) create mode 100644 src/Cryptol/Parser/ExpandPropGuards.hs delete mode 100644 src/Cryptol/Parser/PropGuards.hs diff --git a/src/Cryptol/ModuleSystem/Base.hs b/src/Cryptol/ModuleSystem/Base.hs index 24eb393b9..6221f7304 100644 --- a/src/Cryptol/ModuleSystem/Base.hs +++ b/src/Cryptol/ModuleSystem/Base.hs @@ -58,6 +58,9 @@ import qualified Cryptol.Parser as P import qualified Cryptol.Parser.Unlit as P import Cryptol.Parser.AST as P import Cryptol.Parser.NoPat (RemovePatterns(removePatterns)) +import qualified Cryptol.Parser.ExpandPropGuards as ExpandPropGuards + ( ExpandPropGuards(expandPropGuards) + , runExpandPropGuardsM ) import Cryptol.Parser.NoInclude (removeIncludesModule) import Cryptol.Parser.Position (HasLoc(..), Range, emptyRange) import qualified Cryptol.TypeCheck as T @@ -114,6 +117,14 @@ noPat a = do unless (null errs) (noPatErrors errs) return a' +-- ExpandPropGuards ------------------------------------------------------------ + +-- | Run the expandPropGuards pass. +expandPropGuards :: ExpandPropGuards.ExpandPropGuards a => a -> ModuleM a +expandPropGuards a = + case ExpandPropGuards.runExpandPropGuardsM $ ExpandPropGuards.expandPropGuards a of + Left err -> expandPropGuardsError err + Right a' -> pure a' -- Parsing --------------------------------------------------------------------- diff --git a/src/Cryptol/ModuleSystem/Monad.hs b/src/Cryptol/ModuleSystem/Monad.hs index eaca216ff..c3dbe4f48 100644 --- a/src/Cryptol/ModuleSystem/Monad.hs +++ b/src/Cryptol/ModuleSystem/Monad.hs @@ -27,6 +27,7 @@ import qualified Cryptol.Parser.AST as P import Cryptol.Parser.Position (Located) import Cryptol.Utils.Panic (panic) import qualified Cryptol.Parser.NoPat as NoPat +import qualified Cryptol.Parser.ExpandPropGuards as ExpandPropGuards import qualified Cryptol.Parser.NoInclude as NoInc import qualified Cryptol.TypeCheck as T import qualified Cryptol.TypeCheck.AST as T @@ -98,6 +99,8 @@ data ModuleError -- ^ Problems during the renaming phase | NoPatErrors ImportSource [NoPat.Error] -- ^ Problems during the NoPat phase + | ExpandPropGuardsError ImportSource ExpandPropGuards.Error + -- ^ Problems during the ExpandExpandPropGuards phase | NoIncludeErrors ImportSource [NoInc.IncludeError] -- ^ Problems during the NoInclude phase | TypeCheckingFailed ImportSource T.NameMap [(Range,T.Error)] @@ -238,6 +241,11 @@ noPatErrors errs = do src <- getImportSource ModuleT (raise (NoPatErrors src errs)) +expandPropGuardsError :: ExpandPropGuards.Error -> ModuleM a +expandPropGuardsError err = do + src <- getImportSource + ModuleT (raise (ExpandPropGuardsError src err)) + noIncludeErrors :: [NoInc.IncludeError] -> ModuleM a noIncludeErrors errs = do src <- getImportSource diff --git a/src/Cryptol/Parser/ExpandPropGuards.hs b/src/Cryptol/Parser/ExpandPropGuards.hs new file mode 100644 index 000000000..f2aa43ac7 --- /dev/null +++ b/src/Cryptol/Parser/ExpandPropGuards.hs @@ -0,0 +1,88 @@ +-- | +-- Module : Cryptol.Parser.PropGuards +-- Copyright : (c) 2022 Galois, Inc. +-- License : BSD3 +-- Maintainer : cryptol@galois.com +-- Stability : provisional +-- Portability : portable +-- +-- Expands PropGuards into a top-level definition for each case, and rewrites +-- the body of each case to be an appropriate call to the respectively generated +-- function. +-- + +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE FlexibleContexts #-} +{-# LANGUAGE DeriveGeneric #-} +{-# LANGUAGE DeriveAnyClass #-} + +module Cryptol.Parser.ExpandPropGuards where + +import Cryptol.Parser.AST +import Cryptol.Parser.Position (Range(..), emptyRange, start, at) +import Cryptol.Parser.Names (namesP) +import Cryptol.Utils.PP +import Cryptol.Utils.Panic (panic) +import Cryptol.Utils.RecordMap + +import MonadLib hiding (mapM) +import Data.Maybe (maybeToList) +import qualified Data.Map as Map +import Data.Text (Text) + +import GHC.Generics (Generic) +import Control.DeepSeq + +-- | Monad + +type ExpandPropGuardsM a = Either Error a + +runExpandPropGuardsM :: ExpandPropGuardsM a -> Either Error a +runExpandPropGuardsM m = m + +-- | Class +class ExpandPropGuards a where + expandPropGuards :: a -> ExpandPropGuardsM a + +data Error = NoSignature (Located PName) + deriving (Show,Generic, NFData) + +-- | Instances + +instance ExpandPropGuards (Program PName) where + expandPropGuards (Program decls) = Program <$> expandPropGuards decls + +instance ExpandPropGuards [TopDecl PName] where + expandPropGuards topDecls = concat <$> traverse f topDecls + where + f :: TopDecl PName -> ExpandPropGuardsM [TopDecl PName] + f (Decl topLevelDecl) = fmap lift <$> expandPropGuards [tlValue topLevelDecl] + where lift decl = Decl $ topLevelDecl { tlValue = decl } + f topDecl = pure [topDecl] + +instance ExpandPropGuards [Decl PName] where + expandPropGuards decls = concat <$> traverse f decls + where + f (DBind bind) = fmap DBind <$> expandPropGuards [bind] + f decl = pure [decl] + +instance ExpandPropGuards [Bind PName] where + expandPropGuards binds = concat <$> traverse f binds + where + f bind = case thing $ bDef bind of + DPropGuards guards -> do + Forall params props t rng <- + case bSignature bind of + Just schema -> pure schema + Nothing -> Left . NoSignature $ bName bind + let + g :: ([Prop PName], Expr PName) -> ExpandPropGuardsM (Bind PName) + g (props', e) = pure bind + { -- include guarded props in signature + bSignature = Just $ Forall params (props <> props') t rng + -- keeps same location at original bind + -- i.e. "on top of" original bind + , bDef = (bDef bind) {thing = DExpr e} + } + mapM g guards + _ -> pure [bind] diff --git a/src/Cryptol/Parser/PropGuards.hs b/src/Cryptol/Parser/PropGuards.hs deleted file mode 100644 index d2c931d11..000000000 --- a/src/Cryptol/Parser/PropGuards.hs +++ /dev/null @@ -1,32 +0,0 @@ --- | --- Module : Cryptol.Parser.PropGuards --- Copyright : (c) 2022 Galois, Inc. --- License : BSD3 --- Maintainer : cryptol@galois.com --- Stability : provisional --- Portability : portable --- --- Expands PropGuards into a top-level definition for each case, and rewrites --- the body of each case to be an appropriate call to the respectively generated --- function. --- - -module Cryptol.Parser.PropGuards where - -import Cryptol.Parser.AST -import Cryptol.Parser.Position (Range(..), emptyRange, start, at) -import Cryptol.Parser.Names (namesP) -import Cryptol.Utils.PP -import Cryptol.Utils.Panic (panic) -import Cryptol.Utils.RecordMap - -import MonadLib hiding (mapM) -import Data.Maybe (maybeToList) -import qualified Data.Map as Map -import Data.Text (Text) - -import GHC.Generics (Generic) -import Control.DeepSeq - -class ExpandPropGuards t where - expandPropGuards :: t -> (t, [Error]) From f3c2f5841161310d53cc6282dc681b8a2f0c0b0b Mon Sep 17 00:00:00 2001 From: Henry Blanchette Date: Wed, 6 Jul 2022 15:51:51 -0700 Subject: [PATCH 008/125] expandpropguards --- cryptol.cabal | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/cryptol.cabal b/cryptol.cabal index bc0f9a2a8..afe7234f8 100644 --- a/cryptol.cabal +++ b/cryptol.cabal @@ -93,7 +93,7 @@ library Cryptol.Parser.Names, Cryptol.Parser.Name, Cryptol.Parser.NoPat, - Cryptol.Parser.PropGuards, + Cryptol.Parser.ExpandPropGuards, Cryptol.Parser.NoInclude, Cryptol.Parser.Selector, Cryptol.Parser.Utils, From 0902f1282ab872d12c8cf3c6f149964ff4acbf16 Mon Sep 17 00:00:00 2001 From: Henry Blanchette Date: Wed, 6 Jul 2022 16:14:29 -0700 Subject: [PATCH 009/125] simple parsing --- src/Cryptol/Eval.hs | 8 + src/Cryptol/Eval/Reference.lhs | 3 +- src/Cryptol/IR/FreeVars.hs | 1 + src/Cryptol/ModuleSystem/InstantiateModule.hs | 2 + src/Cryptol/ModuleSystem/Monad.hs | 5 +- src/Cryptol/Parser.hs | 3954 +++++++++++++++++ src/Cryptol/Parser.y | 21 + src/Cryptol/Parser/AST.hs | 1 + src/Cryptol/Parser/ExpandPropGuards.hs | 4 + src/Cryptol/Parser/Lexer.x | 2 + src/Cryptol/Parser/Names.hs | 2 + src/Cryptol/Parser/NoPat.hs | 4 + src/Cryptol/Parser/ParserUtils.hs | 21 + src/Cryptol/Parser/Token.hs | 1 + src/Cryptol/Transform/AddModParams.hs | 1 + src/Cryptol/Transform/MonoValues.hs | 2 + src/Cryptol/Transform/Specialize.hs | 1 + src/Cryptol/TypeCheck/AST.hs | 2 + src/Cryptol/TypeCheck/Kind.hs | 6 +- src/Cryptol/TypeCheck/Parseable.hs | 1 + src/Cryptol/TypeCheck/Sanity.hs | 3 + src/Cryptol/TypeCheck/Subst.hs | 2 + src/Cryptol/TypeCheck/TypeOf.hs | 6 + 23 files changed, 4049 insertions(+), 4 deletions(-) create mode 100644 src/Cryptol/Parser.hs diff --git a/src/Cryptol/Eval.hs b/src/Cryptol/Eval.hs index 874ecf5e1..4fcd17083 100644 --- a/src/Cryptol/Eval.hs +++ b/src/Cryptol/Eval.hs @@ -215,6 +215,14 @@ evalExpr sym env expr = case expr of env' <- evalDecls sym ds env evalExpr sym env' e + EPropGuards _guards -> do + -- -- -- TODO: modify this to work for propguards + -- b <- fromVBit <$> eval c + -- iteValue sym b (eval t) (eval f) + -- -- -- error "should not evaluate EPropGuards" + -- -- evalPanic "evalExpr" ["cannot evalute EPropGuards"] + pure $ VBit $ bitLit sym True + where {-# INLINE eval #-} diff --git a/src/Cryptol/Eval/Reference.lhs b/src/Cryptol/Eval/Reference.lhs index 19a53b068..1735022f9 100644 --- a/src/Cryptol/Eval/Reference.lhs +++ b/src/Cryptol/Eval/Reference.lhs @@ -332,7 +332,8 @@ assigns values to those variables. > EProofAbs _ e -> evalExpr env e > EProofApp e -> evalExpr env e > EWhere e dgs -> evalExpr (foldl evalDeclGroup env dgs) e - +> +> EPropGuards _guards -> error "unimplemented: `evalExpr (EPropGuards _)`" -- TODO > appFun :: E Value -> E Value -> E Value > appFun f v = f >>= \f' -> fromVFun f' v diff --git a/src/Cryptol/IR/FreeVars.hs b/src/Cryptol/IR/FreeVars.hs index 9810af692..17e0cab41 100644 --- a/src/Cryptol/IR/FreeVars.hs +++ b/src/Cryptol/IR/FreeVars.hs @@ -116,6 +116,7 @@ instance FreeVars Expr where EProofAbs p e -> freeVars p <> freeVars e EProofApp e -> freeVars e EWhere e ds -> foldFree ds <> rmVals (defs ds) (freeVars e) + EPropGuards _guards -> error "undefined: freeVars (EPropGuards _guards)" where foldFree :: (FreeVars a, Defs a) => [a] -> Deps foldFree = foldr updateFree mempty diff --git a/src/Cryptol/ModuleSystem/InstantiateModule.hs b/src/Cryptol/ModuleSystem/InstantiateModule.hs index 9d6b46729..8e1aa3318 100644 --- a/src/Cryptol/ModuleSystem/InstantiateModule.hs +++ b/src/Cryptol/ModuleSystem/InstantiateModule.hs @@ -217,6 +217,8 @@ instance Inst Expr where EProofApp e -> EProofApp (go e) EWhere e ds -> EWhere (go e) (inst env ds) + EPropGuards _guards -> EPropGuards undefined -- TODO + instance Inst DeclGroup where inst env dg = diff --git a/src/Cryptol/ModuleSystem/Monad.hs b/src/Cryptol/ModuleSystem/Monad.hs index c3dbe4f48..8ea081208 100644 --- a/src/Cryptol/ModuleSystem/Monad.hs +++ b/src/Cryptol/ModuleSystem/Monad.hs @@ -100,7 +100,7 @@ data ModuleError | NoPatErrors ImportSource [NoPat.Error] -- ^ Problems during the NoPat phase | ExpandPropGuardsError ImportSource ExpandPropGuards.Error - -- ^ Problems during the ExpandExpandPropGuards phase + -- ^ Problems during the ExpandPropGuards phase | NoIncludeErrors ImportSource [NoInc.IncludeError] -- ^ Problems during the NoInclude phase | TypeCheckingFailed ImportSource T.NameMap [(Range,T.Error)] @@ -134,6 +134,7 @@ instance NFData ModuleError where RecursiveModules mods -> mods `deepseq` () RenamerErrors src errs -> src `deepseq` errs `deepseq` () NoPatErrors src errs -> src `deepseq` errs `deepseq` () + ExpandPropGuardsError src err -> src `deepseq` err `deepseq` () NoIncludeErrors src errs -> src `deepseq` errs `deepseq` () TypeCheckingFailed nm src errs -> nm `deepseq` src `deepseq` errs `deepseq` () ModuleNameMismatch expected found -> @@ -181,6 +182,8 @@ instance PP ModuleError where NoPatErrors _src errs -> vcat (map pp errs) + ExpandPropGuardsError _src err -> pp err + NoIncludeErrors _src errs -> vcat (map NoInc.ppIncludeError errs) TypeCheckingFailed _src nm errs -> vcat (map (T.ppNamedError nm) errs) diff --git a/src/Cryptol/Parser.hs b/src/Cryptol/Parser.hs new file mode 100644 index 000000000..307460339 --- /dev/null +++ b/src/Cryptol/Parser.hs @@ -0,0 +1,3954 @@ +{-# OPTIONS_GHC -w #-} +{-# OPTIONS -cpp #-} +-- | +-- Module : Cryptol.Parser +-- Copyright : (c) 2013-2016 Galois, Inc. +-- License : BSD3 +-- Maintainer : cryptol@galois.com +-- Stability : provisional +-- Portability : portable + +{-# LANGUAGE OverloadedStrings #-} +{-# LANGUAGE Trustworthy #-} +module Cryptol.Parser + ( parseModule + , parseProgram, parseProgramWith + , parseExpr, parseExprWith + , parseDecl, parseDeclWith + , parseDecls, parseDeclsWith + , parseLetDecl, parseLetDeclWith + , parseRepl, parseReplWith + , parseSchema, parseSchemaWith + , parseModName, parseHelpName + , ParseError(..), ppError + , Layout(..) + , Config(..), defaultConfig + , guessPreProc, PreProc(..) + ) where + +import Control.Applicative as A +import Data.Maybe(fromMaybe) +import Data.List.NonEmpty ( NonEmpty(..), cons ) +import Data.Text(Text) +import qualified Data.Text as T +import Control.Monad(liftM2,msum) + +import Cryptol.Parser.AST +import Cryptol.Parser.Position +import Cryptol.Parser.LexerUtils hiding (mkIdent) +import Cryptol.Parser.Token +import Cryptol.Parser.ParserUtils +import Cryptol.Parser.Unlit(PreProc(..), guessPreProc) +import Cryptol.Utils.Ident(paramInstModName) +import Cryptol.Utils.RecordMap(RecordMap) + +import Paths_cryptol +import qualified Data.Array as Happy_Data_Array +import qualified Data.Bits as Bits +import qualified System.IO as Happy_System_IO +import qualified System.IO.Unsafe as Happy_System_IO_Unsafe +import qualified Debug.Trace as Happy_Debug_Trace +import Control.Applicative(Applicative(..)) +import Control.Monad (ap) + +-- parser produced by Happy Version 1.20.0 + +data HappyAbsSyn + = HappyTerminal (Located Token) + | HappyErrorToken Prelude.Int + | HappyAbsSyn15 (Module PName) + | HappyAbsSyn17 ([TopDecl PName]) + | HappyAbsSyn18 (Located (ImportG (ImpName PName))) + | HappyAbsSyn19 (Located (ImpName PName)) + | HappyAbsSyn20 (Maybe (Located ModName)) + | HappyAbsSyn21 (Maybe (Located ImportSpec)) + | HappyAbsSyn22 ([LIdent]) + | HappyAbsSyn23 ([Ident] -> ImportSpec) + | HappyAbsSyn24 (Program PName) + | HappyAbsSyn34 (TopDecl PName) + | HappyAbsSyn35 (Located Text) + | HappyAbsSyn36 (Maybe (Located Text)) + | HappyAbsSyn37 ([([Prop PName], Expr PName)]) + | HappyAbsSyn38 (Decl PName) + | HappyAbsSyn39 ([Decl PName]) + | HappyAbsSyn41 (Newtype PName) + | HappyAbsSyn42 (Located (RecordMap Ident (Range, Type PName))) + | HappyAbsSyn43 ([ LPName ]) + | HappyAbsSyn44 (LPName) + | HappyAbsSyn45 ([Pattern PName]) + | HappyAbsSyn48 (([Pattern PName], [Pattern PName])) + | HappyAbsSyn53 (ReplInput PName) + | HappyAbsSyn58 ([LPName]) + | HappyAbsSyn59 (Expr PName) + | HappyAbsSyn61 (Located [Decl PName]) + | HappyAbsSyn65 ([(Expr PName, Expr PName)]) + | HappyAbsSyn66 ((Expr PName, Expr PName)) + | HappyAbsSyn71 (NonEmpty (Expr PName)) + | HappyAbsSyn75 (Located Selector) + | HappyAbsSyn76 ([(Bool, Integer)]) + | HappyAbsSyn77 ((Bool, Integer)) + | HappyAbsSyn78 ([Expr PName]) + | HappyAbsSyn79 (Either (Expr PName) [Named (Expr PName)]) + | HappyAbsSyn80 ([UpdField PName]) + | HappyAbsSyn81 (UpdField PName) + | HappyAbsSyn82 ([Located Selector]) + | HappyAbsSyn83 (UpdHow) + | HappyAbsSyn85 ([[Match PName]]) + | HappyAbsSyn86 ([Match PName]) + | HappyAbsSyn87 (Match PName) + | HappyAbsSyn88 (Pattern PName) + | HappyAbsSyn92 (Named (Pattern PName)) + | HappyAbsSyn93 ([Named (Pattern PName)]) + | HappyAbsSyn94 (Schema PName) + | HappyAbsSyn95 (Located [TParam PName]) + | HappyAbsSyn96 (Located [Prop PName]) + | HappyAbsSyn98 (Located Kind) + | HappyAbsSyn99 (TParam PName) + | HappyAbsSyn100 ([TParam PName]) + | HappyAbsSyn103 (Type PName) + | HappyAbsSyn107 ([ Type PName ]) + | HappyAbsSyn108 (Located [Type PName]) + | HappyAbsSyn109 ([Type PName]) + | HappyAbsSyn110 (Named (Type PName)) + | HappyAbsSyn111 ([Named (Type PName)]) + | HappyAbsSyn112 (Located Ident) + | HappyAbsSyn114 (Located ModName) + | HappyAbsSyn116 (Located PName) + +happyExpList :: Happy_Data_Array.Array Prelude.Int Prelude.Int +happyExpList = Happy_Data_Array.listArray (0,3774) ([0,0,0,0,0,0,0,0,2048,0,0,4,1,0,0,0,0,0,0,36864,974,516,136,16386,0,0,0,0,0,0,0,0,0,0,0,4,0,0,0,0,0,0,0,16128,32782,516,4744,771,1,0,0,0,0,0,0,4096,974,516,136,2,1,0,0,0,0,0,0,4096,974,516,136,2,0,0,0,0,0,0,0,0,0,0,0,4,0,0,0,0,0,0,0,0,17344,0,0,0,0,0,0,0,0,0,0,16128,50126,516,4744,771,0,0,0,0,0,0,0,14592,14,516,136,2,0,0,0,0,0,0,0,12288,14,4,4096,0,0,0,0,0,0,0,0,12288,14,4,14,16352,0,0,0,0,0,0,0,0,2048,0,0,0,0,0,0,0,0,0,0,12288,14,4,4096,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,6,16352,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,12288,14,4,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,14592,14,516,136,2,0,0,0,0,0,0,0,14592,14,516,136,2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,32768,0,0,0,0,0,0,0,0,0,0,0,16390,8160,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,14592,14,516,136,2,0,0,0,0,0,0,0,14592,14,516,136,2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,14592,14,516,136,2,0,0,0,0,0,0,0,14592,14,516,158,16354,0,0,0,0,0,0,0,4096,14,4,256,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,64,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,8192,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,8198,16352,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,32768,0,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,16128,14,516,4744,2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,16384,0,0,0,0,0,0,0,0,0,0,0,16384,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,256,0,0,0,0,0,0,0,0,0,0,0,256,0,0,0,0,0,0,0,0,0,0,0,256,0,0,0,0,0,0,0,0,0,0,0,4096,14,68,8,0,0,0,0,0,0,0,0,4096,14,516,136,2,0,0,0,0,0,0,0,16128,32782,516,4744,771,0,0,0,0,0,0,0,16128,32782,1540,4744,771,0,0,0,0,0,0,0,16128,32782,516,4766,16355,0,0,0,0,0,0,0,16128,14,516,5000,2,0,0,0,0,0,0,0,256,0,4,1024,0,0,0,0,0,0,0,0,12544,14,4,136,0,0,0,0,0,0,0,0,4096,14,516,136,2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,16128,32782,516,4744,3,0,0,0,0,0,0,0,16128,32782,516,4744,3,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,0,0,0,0,0,0,4096,974,516,136,10,0,0,0,0,0,0,0,0,0,0,64,0,0,0,0,0,0,0,0,0,0,0,8224,0,0,0,0,0,0,0,0,4096,14,516,136,2050,1,0,0,0,0,0,0,4096,974,516,136,2,0,0,0,0,0,0,0,0,0,0,2048,1024,0,0,0,0,0,0,0,0,0,0,6,5088,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,256,0,0,0,0,0,0,0,0,0,0,0,256,0,0,0,0,0,0,0,0,0,0,0,256,0,0,0,0,0,0,0,0,0,0,0,4096,14,68,8,0,0,0,0,0,0,0,0,4096,14,1540,136,2,0,0,0,0,0,0,0,4096,14,516,158,8162,0,0,0,0,0,0,0,4096,14,4,256,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,8192,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,0,0,0,0,0,0,4096,991,516,136,16394,0,0,0,0,0,0,0,0,0,0,0,0,1,0,0,0,0,0,0,36864,974,516,136,16386,0,0,0,0,0,0,0,0,0,0,64,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,32,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1024,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,0,0,0,0,0,0,4096,991,516,136,16386,0,0,0,0,0,0,0,0,0,0,0,8,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,64,16,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,0,0,0,0,0,0,4096,990,516,136,2,0,0,0,0,0,0,0,32768,5152,32,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,12288,4110,4,4096,0,0,0,0,0,0,0,0,0,0,0,0,4,0,0,0,0,0,0,0,0,0,0,0,4,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,4096,526,4,8,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,64,0,0,0,0,0,0,0,0,0,0,0,64,24,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,128,4,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,288,0,0,0,0,0,0,0,0,0,0,0,2048,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,16,0,0,0,0,0,0,0,0,0,0,0,48,0,0,0,0,0,0,0,0,0,0,0,8192,1024,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,48,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,4096,14,516,152,2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1024,32,0,0,0,0,0,0,0,0,0,0,1024,32,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,6,8160,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,4096,14,4,2056,0,0,0,0,0,0,0,0,4096,14,4,8,0,0,0,0,0,0,0,0,4096,14,4,0,0,0,0,0,0,0,0,0,0,0,0,6,8160,0,0,0,0,0,0,0,0,0,0,6,8160,0,0,0,0,0,0,0,0,0,0,6,8160,0,0,0,0,0,0,0,4096,14,516,136,2,0,0,0,0,0,0,0,16128,32782,516,4744,771,0,0,0,0,0,0,0,4096,14,516,136,2,0,0,0,0,0,0,0,0,0,0,64,0,0,0,0,0,0,0,0,4096,14,516,136,2050,0,0,0,0,0,0,0,0,0,0,2048,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,4096,14,516,136,2,0,0,0,0,0,0,0,4096,14,4,8,0,0,0,0,0,0,0,0,14592,14,516,136,2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,64,24,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,32768,0,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,32768,0,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,4096,14,516,16520,2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,14592,14,516,136,2,0,0,0,0,0,0,0,14592,14,516,392,2,0,0,0,0,0,0,0,0,0,0,1024,32,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,128,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,0,0,0,0,0,0,0,0,0,0,0,256,0,0,0,0,0,0,0,0,0,0,0,32,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,4096,14,516,136,2050,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,16,0,0,0,0,0,0,0,0,0,8192,0,48,0,0,0,0,0,0,0,0,0,0,0,48,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,16128,32782,516,4744,3,0,0,0,0,0,0,0,16128,32782,516,4744,3,0,0,0,0,0,0,0,0,8192,61440,33,0,0,0,0,0,0,0,0,0,0,0,32,0,0,0,0,0,0,0,0,0,0,1024,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,8192,1,0,0,0,0,0,0,0,0,0,0,0,2,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,8224,0,0,0,0,0,0,0,0,4096,14,516,136,2050,0,0,0,0,0,0,0,0,0,0,2048,1024,0,0,0,0,0,0,0,0,0,0,6,5088,0,0,0,0,0,0,0,4096,14,516,158,8162,0,0,0,0,0,0,0,0,0,0,6,8160,0,0,0,0,0,0,0,4096,14,4,2056,0,0,0,0,0,0,0,0,4096,14,4,8,0,0,0,0,0,0,0,0,0,0,0,6,8160,0,0,0,0,0,0,0,0,0,0,6,8160,0,0,0,0,0,0,0,0,0,0,6,8160,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,16128,32782,516,4744,771,0,0,0,0,0,0,0,14592,14,516,136,2,0,0,0,0,0,0,0,0,17344,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,288,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,288,0,0,0,0,0,0,0,0,0,0,0,8192,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,16,0,0,0,0,0,0,0,0,0,0,0,48,0,0,0,0,0,0,0,0,0,0,0,48,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,4096,14,4,256,0,0,0,0,0,0,0,0,0,0,1024,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,14592,14,516,136,2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,14592,14,516,136,2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,14592,14,516,136,2,0,0,0,0,0,0,0,14592,14,516,136,2,0,0,0,0,0,0,0,14592,14,516,136,2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,32768,0,0,0,0,0,0,0,0,14592,14,516,136,2,0,0,0,0,0,0,0,0,0,0,32768,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,16,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,8192,0,2048,0,0,0,0,0,0,0,0,0,0,0,0,4,0,0,0,0,0,0,0,12288,14,4,4096,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,32768,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1024,0,0,0,0,0,0,0,0,0,0,0,1024,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,8192,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,14592,14,516,136,2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,14592,14,516,136,2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,14592,14,644,136,1090,0,0,0,0,0,0,0,4096,14,4,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,4096,14,4,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,32,0,0,0,0,0,0,0,0,0,0,0,32,0,0,0,0,0,0,0,0,0,0,0,32,0,0,0,0,0,0,0,0,0,0,0,6,8160,0,0,0,0,0,0,0,4096,14,4,2056,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,4096,14,4,2056,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,14592,14,516,136,2,0,0,0,0,0,0,0,4096,14,4,8,0,0,0,0,0,0,0,0,0,0,0,16,0,0,0,0,0,0,0,0,4096,14,516,136,2,0,0,0,0,0,0,0,16128,32782,516,4744,771,0,0,0,0,0,0,0,0,0,0,2048,0,0,0,0,0,0,0,0,14592,14,516,136,2,0,0,0,0,0,0,0,16128,32782,516,4744,771,0,0,0,0,0,0,0,16128,32782,516,4744,771,0,0,0,0,0,0,0,16128,32782,516,4744,771,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,16128,32782,516,4744,771,0,0,0,0,0,0,0,16128,32782,516,4750,771,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,16128,32782,516,4744,771,0,0,0,0,0,0,0,16128,32782,516,4744,771,0,0,0,0,0,0,0,4096,14,516,136,2,0,0,0,0,0,0,0,16128,32782,516,4744,771,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,16128,32782,516,4744,771,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,16128,14,516,4744,2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,18432,0,0,0,0,0,0,0,0,16128,14,516,4744,2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,16128,14,516,4744,2,0,0,0,0,0,0,0,256,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,256,0,4,0,0,0,0,0,0,0,0,0,0,0,0,288,0,0,0,0,0,0,0,0,0,0,0,288,0,0,0,0,0,0,0,0,0,0,0,2048,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,288,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,16,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,16128,32782,516,4744,771,1,0,0,0,0,0,0,4096,974,516,136,2,0,0,0,0,0,0,0,0,0,0,0,0,1,0,0,0,0,0,0,4096,974,516,136,2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,6,8160,0,0,0,0,0,0,0,0,0,0,0,2048,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,16128,32782,772,4744,771,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,4096,14,516,136,2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1024,0,0,0,0,0,0,0,0,8192,0,0,0,0,0,0,0,0,0,0,0,0,0,2048,0,0,0,0,0,0,0,0,0,0,0,32,0,0,0,0,0,0,0,0,0,0,0,32,0,0,0,0,0,0,0,0,0,0,0,32,0,0,0,0,0,0,0,0,0,0,0,8192,0,0,0,0,0,0,0,0,0,0,0,6,8160,0,0,0,0,0,0,0,4096,14,4,2056,0,0,0,0,0,0,0,0,4096,14,4,2056,0,0,0,0,0,0,0,0,14592,14,516,136,2,0,0,0,0,0,0,0,4096,14,4,8,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,4096,14,516,136,2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,4096,14,516,136,2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,14592,14,516,136,2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,2048,0,0,0,0,0,0,0,0,4096,14,516,136,2,0,0,0,0,0,0,0,4096,14,4,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,0,0,0,0,0,0,4096,974,516,392,2,1,0,0,0,0,0,0,4096,974,516,136,10,1,0,0,0,0,0,0,4096,991,516,136,16386,0,0,0,0,0,0,0,0,0,0,0,0,1,0,0,0,0,0,0,4096,991,516,136,16386,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,8192,0,0,0,0,0,0,0,0,14592,14,516,136,2,0,0,0,0,0,0,0,0,0,0,6,8160,0,0,0,0,0,0,0,0,0,0,0,16384,1,0,0,0,0,0,0,4096,991,516,136,16386,0,0,0,0,0,0,0,0,2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,12288,14,4,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1024,0,0,0,0,0,0,0,0,0,0,0,4096,14,4,0,0,0,0,0,0,0,0,0,12288,14,4,0,0,0,0,0,0,0,0,0,12288,14,4,4096,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,4,0,0,0,0,0,0,0,0,0,0,0,4,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,16384,1,0,0,0,0,0,0,4096,991,516,136,16386,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,4096,14,4,2056,0,0,0,0,0,0,0,0,4096,14,516,2184,2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,4,0,0,0,0,0,0,0,0,0,0,12288,14,4,4096,0,0,0,0,0,0,0,0,0,0,0,64,24,0,0,0,0,0,0,0,0,0,0,64,24,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,4096,526,4,0,0,0,0,0,0,0,0,0,0,0,0,16,0,0,0,0,0,0,0,0,0,0,0,8192,0,0,0,0,0,0,0,0,14592,14,516,136,2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,64,24,0,0,0,0,0,0,0,0,0,0,0,0,1,0,0,0,0,0,0,4096,974,516,392,2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,16128,32782,516,4744,771,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,2048,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,14592,14,516,136,2,0,0,0,0,0,0,0,4096,14,4,2056,0,0,0,0,0,0,0,0,14592,14,516,136,2,0,0,0,0,0,0,0,4096,14,4,8,0,0,0,0,0,0,0,0,0,0,128,0,1088,0,0,0,0,0,0,0,0,0,0,6,8160,0,0,0,0,0,0,0,16128,32782,516,4744,771,0,0,0,0,0,0,0,0,0,0,0,2048,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,8192,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,4096,14,516,136,2,0,0,0,0,0,0,0,0,0,0,16,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,4096,14,4,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,14592,14,516,136,2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,32,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,16128,32782,516,4744,771,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,32,0,0,0,0,0,0,0,0,0,8192,0,0,0,0,0,0,0,0,0,0,0,8192,12288,0,0,0,0,0,0,0,0,0,0,0,0,1,0,0,0,0,0,0,0,0,0,0,0,32,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,2048,0,0,0,0,0,0,0,0,0,0,8192,8,0,0,0,0,0,0,0,0,0,0,8192,16,0,0,0,0,0,0,0,0,0,0,8192,24,0,0,0,0,0,0,0,0,0,16128,32782,516,4744,771,0,0,0,0,0,0,0,16128,32782,516,4744,771,0,0,0,0,0,0,0,0,8192,0,0,0,0,0,0,0,0,0,0,0,8192,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,16128,32782,516,4744,771,0,0,0,0,0,0,0,0,8192,0,0,0,0,0,0,0,0,0,0,0,0,0,2048,0,0,0,0,0,0,0,0,0,0,0,2048,0,0,0,0,0,0,0,0,0,0,0,2048,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,14592,14,516,136,2,0,0,0,0,0,0,0,4096,14,4,2056,0,0,0,0,0,0,0,0,14592,14,516,136,2,0,0,0,0,0,0,0,4096,14,4,8,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,8192,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,16384,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,14592,14,516,136,2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,8192,0,0,0,1,0,0,0,0,0,0,4096,991,516,136,16386,0,0,0,0,0,0,0,0,0,0,0,8,0,0,0,0,0,0,0,0,0,0,0,4,0,0,0,0,0,0,0,0,0,128,0,1088,0,0,0,0,0,0,0,0,0,128,0,1088,0,0,0,0,0,0,0,0,0,0,2048,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,14592,14,516,136,2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,14592,14,516,136,2,0,0,0,0,0,0,0,16128,32782,516,4744,771,0,0,0,0,0,0,0,16128,32782,516,4744,771,0,0,0,0,0,0,0,0,8192,0,0,0,0,0,0,0,0,0,0,0,8192,8,0,0,0,0,0,0,0,0,0,0,8192,16,0,0,0,0,0,0,0,0,0,0,0,16,0,0,0,0,0,0,0,0,0,16128,32782,516,4744,771,0,0,0,0,0,0,0,16128,32782,516,4744,771,0,0,0,0,0,0,0,0,0,16,0,0,0,0,0,0,0,0,0,16128,32782,516,4744,771,0,0,0,0,0,0,0,4096,14,516,136,2,0,0,0,0,0,0,0,4096,14,516,136,2,0,0,0,0,0,0,0,16128,32782,516,4744,771,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,8192,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,2048,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,8192,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,16400,0,0,0,0,0,0,0,0,0,0,0,2048,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,14592,14,516,136,2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,14592,14,516,136,2,0,0,0,0,0,0,0,0,8192,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,128,0,1088,0,0,0,0,0,0,0,0,0,0,8192,0,0,0,0,0,0,0,0,0,0,0,8192,0,0,0,0,0,0,0,0,4096,14,68,0,0,0,0,0,0,0,0,0,0,0,0,0,16384,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,16384,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,8,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,4096,14,516,2184,2,0,0,0,0,0,0,0,16128,32782,516,4744,771,0,0,0,0,0,0,0,4096,14,4,2056,0,0,0,0,0,0,0,0,0,0,0,128,0,0,0,0,0,0,0,0,0,0,0,64,24,0,0,0,0,0,0,0,0,0,0,64,24,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,4096,14,4,256,0,0,0,0,0,0,0,0,0,0,0,128,0,0,0,0,0,0,0,0,0,8192,0,0,0,0,0,0,0,0,0,0,16128,32782,516,4744,771,0,0,0,0,0,0,0,4096,14,4,8,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,8192,0,0,0,0,0,0,0,0,14592,14,516,136,2,0,0,0,0,0,0,0,14592,14,516,136,2,0,0,0,0,0,0,0,14592,14,516,136,2,0,0,0,0,0,0,0,0,0,0,16384,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,14592,14,516,136,2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,8192,0,0,0,0,0,0,0,0,0,0,0,0,0,32,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,8192,0,0,0,0,0,0,0,0,0,0,16128,32782,516,4744,771,0,0,0,0,0,0,0,0,8192,0,0,0,0,0,0,0,0,0,0,0,8192,0,0,0,0,0,0,0,0,0,0,16128,32782,516,4744,771,0,0,0,0,0,0,0,16128,32782,516,4744,771,0,0,0,0,0,0,0,0,0,16,0,0,0,0,0,0,0,0,0,0,8192,0,0,0,0,0,0,0,0,0,0,0,8192,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,14592,14,516,136,2,0,0,0,0,0,0,0,0,0,0,16384,0,1,0,0,0,0,0,0,4096,991,516,136,16386,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,8,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,16128,32782,516,4744,771,0,0,0,0,0,0,0,0,8192,0,0,0,0,0,0,0,0,0,0,0,8192,0,0,0,0,0,0,0,0,0,0,0,8192,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,128,0,1088,0,0,0,0,0,0,0,0,0,0,48,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,8192,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,288,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,4096,14,4,8,0,0,0,0,0,0,0,0,0,0,0,16384,0,0,0,0,0,0,0,0,0,8192,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 + ]) + +{-# NOINLINE happyExpListPerState #-} +happyExpListPerState st = + token_strs_expected + where token_strs = ["error","%dummy","%start_vmodule","%start_program","%start_programLayout","%start_expr","%start_decl","%start_decls","%start_declsLayout","%start_letDecl","%start_repl","%start_schema","%start_modName","%start_helpName","vmodule","module_def","vmod_body","import","impName","mbAs","mbImportSpec","name_list","mbHiding","program","program_layout","top_decls","vtop_decls","vtop_decl","top_decl","private_decls","prim_bind","parameter_decls","par_decls","par_decl","doc","mbDoc","propguards","decl","let_decls","let_decl","newtype","newtype_body","vars_comma","var","apats","indices","indices1","apats_indices","opt_apats_indices","decls","vdecls","decls_layout","repl","qop","op","pat_op","other_op","ops","expr","exprNoWhere","whereClause","typedExpr","simpleExpr","longExpr","ifBranches","ifBranch","simpleRHS","longRHS","simpleApp","longApp","aexprs","aexpr","no_sel_aexpr","sel_expr","selector","poly_terms","poly_term","tuple_exprs","rec_expr","field_exprs","field_expr","field_path","field_how","list_expr","list_alts","matches","match","pat","ipat","apat","tuple_pats","field_pat","field_pats","schema","schema_vars","schema_quals","schema_qual","kind","schema_param","schema_params","tysyn_param","tysyn_params","type","infix_type","app_type","atype","atypes","dimensions","tuple_types","field_type","field_types","ident","name","smodName","modName","qname","help_name","tick_ty","field_ty_val","field_ty_vals","NUM","FRAC","STRLIT","CHARLIT","IDENT","QIDENT","SELECTOR","'include'","'import'","'as'","'hiding'","'private'","'parameter'","'property'","'infix'","'infixl'","'infixr'","'type'","'newtype'","'module'","'submodule'","'where'","'let'","'if'","'then'","'else'","'x'","'down'","'by'","'primitive'","'constraint'","'Prop'","'propguards'","'['","']'","'<-'","'..'","'...'","'..<'","'..>'","'|'","'<'","'>'","'('","')'","','","';'","'{'","'}'","'<|'","'|>'","'='","'`'","':'","'->'","'=>'","'\\\\'","'_'","'v{'","'v}'","'v;'","'+'","'*'","'^^'","'-'","'~'","'#'","'@'","OP","QOP","DOC","%eof"] + bit_start = st Prelude.* 192 + bit_end = (st Prelude.+ 1) Prelude.* 192 + read_bit = readArrayBit happyExpList + bits = Prelude.map read_bit [bit_start..bit_end Prelude.- 1] + bits_indexed = Prelude.zip bits [0..191] + token_strs_expected = Prelude.concatMap f bits_indexed + f (Prelude.False, _) = [] + f (Prelude.True, nr) = [token_strs Prelude.!! nr] + +happyActOffsets :: Happy_Data_Array.Array Prelude.Int Prelude.Int +happyActOffsets = Happy_Data_Array.listArray (0,629) ([-16,484,-49,1103,1388,1388,-45,1190,933,2430,1027,1123,50,1027,0,0,0,0,0,0,0,-53,0,0,0,0,0,0,0,0,1980,0,0,0,0,0,0,0,0,0,0,0,-53,0,1335,-53,2442,2442,0,-20,2050,0,0,2491,2503,0,0,2516,839,439,0,0,15,71,192,0,0,1963,0,0,0,3108,0,1568,0,211,211,0,0,0,0,0,233,243,248,1433,2925,1103,1018,769,1497,4,968,2950,0,1423,1423,214,214,1237,301,189,884,554,-34,630,2137,0,357,376,389,1669,2835,1167,582,0,314,-13,314,606,314,519,358,0,0,457,0,442,0,461,670,520,0,42,0,0,0,0,1308,1924,0,789,536,576,0,1571,0,566,104,0,210,0,263,590,0,602,283,124,0,307,0,2846,0,231,256,0,2067,2154,836,1581,1147,2224,2224,2224,2950,1103,2950,608,1170,617,0,2950,1756,2561,0,0,141,0,3125,0,3142,0,2876,0,0,0,2574,2417,299,0,0,607,0,649,654,652,0,1212,0,678,666,102,885,0,1423,1423,1732,683,701,0,98,38,0,222,1212,143,630,1167,2224,1500,1843,2224,2224,2224,0,0,0,0,0,1103,2574,1190,0,588,0,710,684,3183,709,930,1036,0,1089,725,0,2586,0,2635,0,2635,2635,2635,0,0,711,2635,711,0,745,0,-5,739,1027,0,765,0,0,834,844,0,3035,832,0,0,2635,0,2635,0,866,1147,0,1147,0,0,0,0,0,0,853,853,853,2224,2381,0,2472,0,2635,1843,881,2950,1103,889,2647,1103,1103,1103,0,1103,960,0,1103,1103,2950,1103,0,0,1103,0,1568,0,768,1568,0,1568,952,0,7,813,947,907,0,951,0,923,0,1103,1388,0,1388,0,0,0,2224,917,0,1045,0,2950,0,934,987,963,981,981,981,977,2224,2616,2760,2660,1843,0,2950,0,2950,0,2660,0,984,2950,1147,0,0,1343,1257,734,0,734,0,989,2705,2224,999,734,1075,0,1846,0,1109,1147,1846,1027,0,1058,1067,0,1065,734,0,3041,2895,0,0,114,1027,168,260,0,1451,1100,1119,2705,0,0,401,0,1363,0,0,0,1103,0,0,0,1124,0,0,2718,3100,2718,1843,-19,2224,1103,1127,0,1178,0,2950,1171,0,0,0,0,1147,0,2718,0,0,0,0,0,1180,0,1103,0,0,1180,1205,116,1209,1215,0,1222,610,316,918,1103,1103,1229,1229,0,0,0,1103,1229,1211,1214,1230,0,2718,3103,2718,1843,0,1242,0,1204,0,0,0,0,0,0,2718,0,3035,1243,670,1223,1231,-19,-19,1254,0,2718,0,2718,1103,1103,1285,646,407,1280,1103,1103,1283,1103,2950,2950,1103,0,1292,0,1276,0,0,0,1312,0,74,1284,0,2718,0,2718,1315,0,0,0,-19,1290,1295,1672,1268,0,1268,0,0,0,1306,0,2906,1103,3112,1303,446,515,0,0,0,1113,1303,1345,1103,1930,0,0,1310,2718,2730,2730,1302,0,0,2779,0,1347,1319,0,1349,1103,1349,1349,1103,1103,1357,1350,1350,0,0,2779,1321,670,0,1329,0,1103,1372,1372,1372,0,0,0,0,-19,1051,0,1372,0,965,0,0,0,1930,1340,1374,0,0,0 + ]) + +happyGotoOffsets :: Happy_Data_Array.Array Prelude.Int Prelude.Int +happyGotoOffsets = Happy_Data_Array.listArray (0,629) ([1402,269,1403,1575,158,213,1377,1394,340,3179,1042,330,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1019,0,0,0,0,0,0,0,0,0,0,0,0,0,318,0,3331,2704,0,0,563,0,0,891,943,0,0,2443,767,692,0,0,0,0,0,0,0,1291,0,0,0,1371,0,69,0,1370,1391,0,0,0,0,0,0,0,0,110,-1,1438,668,604,3156,1070,727,33,0,415,2946,0,0,326,0,0,249,381,0,1122,0,0,0,0,0,198,447,510,-62,0,0,0,0,129,0,285,0,0,0,0,0,0,0,0,9,0,0,0,0,0,0,0,383,1397,0,16,0,0,0,463,0,0,0,0,1385,0,0,0,0,0,0,0,0,0,0,1213,0,0,0,0,743,0,418,349,1356,1236,1342,1399,85,1591,499,0,20,0,0,24,-26,3202,0,0,0,0,1405,0,1405,0,206,0,0,0,2587,3359,0,0,0,0,0,0,0,0,0,12,0,0,0,0,0,0,2957,2968,0,0,0,0,0,0,0,0,400,0,1129,1046,812,471,503,1627,1715,1744,0,0,0,0,0,2933,2877,1130,0,0,0,0,0,0,0,0,0,0,795,0,0,976,0,3377,0,3391,822,3405,0,0,0,3345,0,0,0,0,0,0,1049,0,0,0,0,0,0,0,0,0,0,0,3419,0,3433,0,3045,368,0,153,0,0,0,0,0,0,0,0,0,1023,542,0,294,0,3447,321,0,428,1607,0,3225,2762,1509,1662,0,1678,1694,0,1749,1765,1445,1781,0,0,1836,0,1351,0,1369,481,0,2702,0,0,1393,0,0,0,0,0,0,0,0,2777,385,0,393,0,0,0,1050,0,0,278,0,58,0,0,0,0,0,0,0,0,1179,788,513,3461,544,0,165,0,242,0,3475,0,0,379,-36,0,0,328,345,196,0,244,0,0,3248,1203,1823,156,1453,0,824,0,0,1086,857,5,0,0,0,0,1856,177,0,830,39,0,0,535,1099,0,0,0,1105,0,0,3271,0,0,0,0,411,0,0,0,1852,0,0,0,0,0,0,3489,579,3503,700,1376,1252,1868,0,0,0,0,660,0,0,0,0,0,413,0,3517,0,0,0,0,0,0,0,1923,0,0,0,0,0,0,0,0,0,0,0,0,1939,1955,0,0,0,0,0,2010,0,0,0,0,0,3531,705,3545,718,0,0,0,0,0,0,0,0,0,0,3559,0,0,0,37,0,0,1382,1383,0,0,3573,0,3587,2026,2042,0,0,0,0,2097,2113,0,2129,148,635,2184,0,0,0,0,0,0,0,0,0,0,0,0,3601,0,3615,0,0,0,0,1387,0,0,1143,986,0,1279,0,0,0,0,0,665,2200,732,1441,0,0,0,0,0,1207,1447,0,2216,-6,0,0,0,3629,3294,3317,0,0,0,3643,0,0,0,0,0,2271,0,0,2287,2303,0,0,0,0,0,3657,0,65,0,0,0,2358,0,0,0,0,0,0,0,1389,0,0,0,0,0,0,0,0,-22,0,0,0,0,0 + ]) + +happyAdjustOffset :: Prelude.Int -> Prelude.Int +happyAdjustOffset = Prelude.id + +happyDefActions :: Happy_Data_Array.Array Prelude.Int Prelude.Int +happyDefActions = Happy_Data_Array.listArray (0,629) ([0,0,0,0,0,0,0,0,-131,0,0,0,0,0,-315,-132,-134,-137,-307,-312,-314,0,-302,-313,-305,-306,-304,-303,-143,-144,0,-139,-138,-142,-140,-141,-135,-136,-145,-133,-308,-310,0,-309,0,0,0,0,-261,-254,-276,-278,-281,0,-282,-284,-285,0,0,0,-292,-130,-87,0,-129,-148,-152,0,-173,-159,-151,-174,-170,-171,-175,-177,-178,-179,-180,-181,-182,-183,0,0,0,0,0,0,0,0,0,0,0,0,-184,0,0,0,0,0,0,0,-108,0,0,-238,-110,-86,0,0,0,0,0,0,0,-240,0,0,0,0,0,0,0,-53,-68,0,-51,0,-67,0,0,0,-50,-17,-37,-47,-46,-48,0,0,-40,0,-304,0,-52,0,-35,0,0,-34,0,-252,0,0,-247,0,0,-236,-238,0,-239,0,-241,0,0,-244,0,-307,0,0,0,0,0,0,0,0,0,0,-115,0,-112,0,0,0,-122,-124,0,-128,-174,-169,-174,-168,0,-317,-192,-318,0,0,0,-199,-201,-202,-194,-212,0,-208,-209,-120,-188,-184,0,0,0,-187,-140,-141,-216,-217,0,-190,0,0,-162,0,-108,0,-238,0,0,0,0,0,0,0,-197,-198,-196,-176,-172,0,0,-88,-269,0,-300,0,-267,-258,0,0,0,-288,0,0,-293,-280,-282,0,-279,0,0,0,-262,-260,-256,0,-255,-311,0,-13,0,0,0,-316,-257,-275,-277,0,0,-294,-295,0,-290,-289,0,-287,0,-283,0,0,-291,0,-259,-89,-157,-158,-150,-146,-103,-101,-102,0,0,-273,0,-271,0,0,0,0,0,0,0,0,0,0,-191,0,0,-228,0,0,0,0,-186,-185,0,-193,0,-121,0,0,-189,0,0,-195,0,0,0,-307,-325,0,-320,0,-113,0,0,-127,0,-71,-109,-110,0,-119,-116,0,-118,0,-123,-237,-72,0,-85,-83,-84,0,0,0,0,0,0,-246,0,-245,0,-243,0,-242,-111,0,0,-248,-149,0,0,0,-33,0,-36,0,0,0,-69,0,-23,-21,0,-45,0,0,0,0,-41,-304,0,-14,-69,0,-49,0,0,-42,-20,-30,0,0,0,-61,0,0,0,0,-38,-39,0,-155,0,-153,-253,-251,0,-235,-249,-250,0,-77,-274,0,0,0,0,0,0,0,-114,-74,-75,-70,0,0,-125,-126,-161,-319,0,-321,0,-323,-322,-200,-203,-212,-206,-210,0,-213,-214,-207,-204,-204,-215,-230,-232,0,0,-221,-218,0,0,-205,-164,-163,-160,-94,0,-90,0,-111,0,-95,0,0,0,0,-270,-267,-301,-268,-299,-265,-264,-263,-297,-298,0,-286,-296,0,0,0,0,0,0,0,-98,0,-96,0,0,0,-91,0,-220,0,0,0,0,0,0,0,0,-229,-211,-324,0,-326,-111,-117,-76,-147,0,0,-80,0,-78,0,-73,-154,-156,-56,0,0,0,0,-69,-59,-69,-54,-22,-19,0,-29,0,0,0,0,0,0,-60,-55,-104,0,0,-44,0,-28,-63,-62,0,0,0,0,-58,-79,-81,0,-272,-219,-231,-233,-234,0,-224,-222,0,0,0,-93,-92,-97,-99,0,-266,0,-15,0,-100,0,-223,-225,-227,-82,-57,-64,-66,0,0,-27,-43,-105,0,-106,-107,-24,0,-65,-226,-16,-26 + ]) + +happyCheck :: Happy_Data_Array.Array Prelude.Int Prelude.Int +happyCheck = Happy_Data_Array.listArray (0,3774) ([-1,7,1,29,20,1,1,29,1,22,59,2,3,32,59,77,78,22,52,72,4,12,13,29,15,16,17,28,29,20,21,27,23,67,27,97,56,28,29,2,3,77,30,59,63,33,34,52,67,12,13,31,15,16,17,51,32,20,21,72,23,97,47,30,26,28,29,2,3,30,20,97,98,74,75,97,98,12,13,41,15,16,17,74,75,20,21,75,23,47,32,97,98,28,29,75,97,98,97,75,99,100,97,61,99,100,97,98,75,97,98,74,75,97,75,99,100,97,98,45,22,97,98,25,22,11,57,58,59,55,97,98,3,75,97,98,97,98,22,74,75,12,13,72,15,16,17,45,46,20,21,47,23,37,38,97,98,28,29,3,75,47,97,98,60,61,97,98,12,13,101,15,16,17,60,61,20,21,54,23,3,23,97,98,28,29,28,29,47,12,13,67,15,16,17,52,86,20,21,3,23,60,61,74,75,28,29,97,98,13,67,15,16,17,22,47,20,21,7,23,72,73,74,75,28,29,97,98,60,61,74,75,74,75,1,46,23,84,73,74,75,28,29,54,1,97,98,3,35,1,97,74,75,97,98,97,98,13,48,15,16,17,97,98,20,21,35,23,46,59,74,75,28,29,97,98,54,46,9,30,11,75,33,14,86,16,72,74,75,20,21,35,23,97,98,97,98,28,29,14,22,16,46,97,98,20,21,47,23,46,97,98,49,28,29,73,74,75,74,75,60,61,44,45,75,47,48,49,45,46,52,53,54,55,56,57,58,59,22,97,98,97,98,74,75,29,97,98,47,23,51,23,45,46,28,29,28,29,1,74,75,62,36,35,24,25,97,98,23,39,40,41,42,28,29,97,98,1,38,101,86,36,97,98,44,45,72,47,48,49,1,97,52,53,54,55,56,57,58,59,74,75,74,75,23,47,23,86,23,28,29,28,29,28,29,97,23,99,97,74,75,28,29,97,98,97,98,97,98,22,30,101,102,33,23,86,29,97,98,28,29,101,97,98,5,3,97,98,47,10,11,12,73,74,75,74,75,74,75,74,75,60,61,95,49,97,27,74,75,54,55,56,57,58,59,75,97,98,97,98,97,98,97,98,0,74,75,30,49,5,97,98,8,47,10,11,12,97,98,15,16,17,18,75,86,87,60,61,97,98,97,27,97,98,30,97,101,104,34,0,73,74,75,76,5,97,98,8,44,10,11,12,48,72,15,16,17,18,57,58,59,6,58,8,97,98,27,66,67,30,40,41,42,34,0,71,72,86,87,5,97,98,47,44,10,11,12,48,97,15,16,17,18,74,75,60,61,58,97,98,60,27,101,73,74,75,76,5,34,86,71,72,10,11,12,59,97,98,44,86,97,98,48,40,41,42,0,97,98,27,97,5,58,47,8,9,10,11,12,13,14,15,16,17,18,19,72,21,86,87,86,49,22,27,46,59,30,49,28,97,34,97,52,39,40,41,42,45,44,45,44,47,48,49,48,47,52,53,54,55,56,57,58,59,58,86,60,63,22,52,0,64,42,43,28,5,97,71,8,9,10,11,12,13,14,15,16,17,18,19,41,21,62,63,64,65,66,27,46,69,30,97,98,49,34,101,71,72,73,74,75,45,44,45,44,47,48,49,48,41,52,53,54,55,56,57,58,59,58,46,60,63,97,98,0,75,35,69,54,5,75,71,8,9,10,11,12,13,14,15,16,17,18,19,45,21,46,97,98,49,35,27,97,98,30,97,98,56,34,101,1,2,3,4,5,6,84,85,44,10,11,12,48,40,41,42,86,95,96,97,45,86,58,24,5,6,27,97,59,10,11,12,97,34,86,71,39,40,41,42,21,42,43,44,45,97,27,48,86,50,52,56,53,55,97,98,57,58,101,97,103,62,63,64,65,66,67,68,69,70,1,5,53,4,5,6,10,11,12,10,11,12,40,41,42,88,89,90,91,46,93,94,49,27,97,98,27,1,101,35,4,5,6,34,86,87,10,11,12,35,44,42,43,44,45,97,54,48,52,5,95,96,97,27,10,11,12,58,32,46,34,62,63,64,65,66,67,68,69,70,44,27,90,91,48,93,86,87,34,97,98,97,98,101,58,101,45,97,44,63,45,46,48,67,1,2,3,4,5,6,22,52,58,10,11,12,28,29,15,16,17,18,68,1,97,98,23,24,101,52,27,1,2,3,4,5,6,34,45,1,10,11,12,5,6,45,46,44,10,11,12,48,91,50,24,68,53,27,97,98,57,58,101,46,34,27,49,46,65,66,49,67,42,43,44,19,20,21,48,22,50,46,44,53,49,52,48,57,58,1,2,3,4,5,6,65,66,46,10,11,12,54,5,6,91,92,52,10,11,12,97,98,24,54,101,27,1,2,3,4,5,6,34,35,27,10,11,12,39,40,41,42,44,40,41,42,48,91,50,24,71,53,27,97,98,57,58,101,33,34,53,45,46,65,66,10,40,41,42,44,40,41,42,48,5,50,45,46,53,10,11,12,57,58,1,2,3,4,5,6,65,66,3,10,11,12,27,59,5,73,74,75,76,10,11,12,59,24,5,6,27,61,62,10,11,12,71,34,49,97,27,99,100,97,98,45,97,44,99,100,27,48,5,50,24,25,53,10,11,12,57,58,49,41,42,42,43,44,65,66,41,42,5,54,27,5,52,10,11,12,10,11,12,97,98,62,63,64,65,66,67,68,69,70,27,68,97,27,99,100,22,34,97,98,34,15,16,17,18,42,43,44,45,23,44,48,45,5,48,40,41,42,10,11,12,58,46,22,58,62,63,64,65,66,67,68,69,0,68,27,97,98,5,40,41,42,34,10,11,12,41,22,15,16,17,18,44,0,36,55,48,46,5,52,27,22,52,10,11,12,58,34,15,16,17,18,40,41,42,43,68,44,52,60,27,48,73,74,75,76,59,34,40,41,42,58,54,60,19,20,21,44,95,96,97,48,52,22,0,29,97,98,29,5,22,58,8,60,10,11,12,13,14,15,16,17,18,19,52,21,39,40,41,42,22,27,52,22,30,71,5,6,34,0,54,10,11,12,5,54,44,48,44,10,11,12,48,55,15,16,17,18,27,0,54,46,58,22,5,22,27,22,22,10,11,12,55,34,15,16,17,18,40,41,42,43,29,44,0,60,27,48,49,5,22,55,22,34,10,11,12,58,0,15,16,17,18,44,57,58,59,48,49,10,37,27,65,66,67,25,49,58,34,26,1,2,3,4,5,6,60,46,44,10,11,12,48,68,5,40,41,42,43,10,11,12,58,24,97,98,27,60,101,97,49,62,5,34,5,83,27,10,11,12,31,83,83,44,27,18,83,48,83,50,27,-1,53,44,27,-1,57,58,44,45,-1,47,48,49,50,51,52,53,54,55,56,57,58,59,1,2,3,4,5,6,-1,5,-1,10,11,12,10,11,12,-1,-1,70,71,72,73,74,75,-1,-1,-1,27,-1,-1,27,-1,-1,-1,34,-1,-1,-1,97,98,-1,-1,101,-1,44,97,98,44,48,49,50,-1,-1,53,-1,52,44,45,58,47,48,49,-1,51,52,53,54,55,56,57,58,59,1,2,3,4,5,6,-1,5,-1,10,11,12,10,11,12,-1,-1,5,-1,-1,18,-1,10,11,12,-1,27,-1,-1,27,-1,-1,-1,34,-1,-1,-1,97,98,27,-1,101,-1,44,-1,-1,44,48,-1,50,44,45,53,47,48,49,44,58,52,53,54,55,56,57,58,59,44,45,-1,47,48,49,-1,-1,52,53,54,55,56,57,58,59,44,45,-1,47,48,49,-1,-1,52,53,54,55,56,57,58,59,40,41,42,43,-1,97,98,5,-1,101,5,-1,10,11,12,10,11,12,-1,-1,-1,97,98,-1,-1,101,-1,-1,-1,27,-1,-1,27,31,-1,-1,31,97,98,44,45,101,47,48,49,-1,44,52,53,54,55,56,57,58,59,44,45,-1,47,48,49,-1,-1,52,53,54,55,56,57,58,59,44,45,-1,47,48,49,-1,-1,52,53,54,55,56,57,58,59,22,40,41,42,43,97,98,5,-1,101,-1,-1,10,11,12,37,38,39,40,41,-1,97,98,-1,46,101,-1,-1,-1,27,40,41,42,43,-1,-1,-1,97,98,44,45,101,47,48,49,-1,44,52,53,54,55,56,57,58,59,44,45,-1,47,48,49,-1,-1,52,53,54,55,56,57,58,59,44,45,-1,47,48,49,-1,-1,52,53,54,55,56,57,58,59,18,19,20,21,-1,97,98,5,-1,101,5,6,10,11,12,10,11,12,-1,-1,-1,97,98,-1,-1,101,-1,-1,-1,27,-1,-1,27,18,19,20,21,97,98,44,45,101,47,48,49,-1,44,52,53,54,55,56,57,58,59,44,45,-1,47,48,49,-1,-1,52,53,54,55,56,57,58,59,44,45,-1,47,48,49,-1,-1,52,53,54,55,56,57,58,59,-1,-1,-1,-1,8,97,98,5,-1,101,14,-1,10,11,12,19,-1,21,-1,-1,-1,97,98,-1,-1,101,30,-1,-1,27,-1,-1,-1,-1,-1,-1,-1,97,98,44,45,101,47,48,49,-1,44,52,53,54,55,56,57,58,59,44,45,-1,47,48,49,-1,-1,52,53,54,55,56,57,58,59,44,45,-1,47,48,49,42,43,52,53,54,55,56,57,58,59,-1,-1,54,-1,-1,97,98,42,43,101,62,63,64,65,66,67,68,69,70,-1,-1,97,98,-1,-1,101,-1,62,63,64,65,66,67,68,69,70,-1,97,98,44,45,101,47,48,49,-1,-1,52,53,54,55,56,57,58,59,44,45,-1,47,48,49,-1,-1,52,53,54,55,56,57,58,59,44,45,-1,47,48,49,42,43,52,53,54,55,56,57,58,59,-1,-1,-1,55,-1,97,98,42,43,101,62,63,64,65,66,67,68,69,-1,-1,-1,97,98,-1,-1,101,-1,62,63,64,65,66,67,68,69,-1,-1,97,98,44,45,101,47,48,49,-1,-1,52,53,54,55,56,57,58,59,44,45,-1,47,48,49,-1,-1,52,53,54,55,56,57,58,59,44,45,-1,47,48,49,42,43,52,53,54,55,56,57,58,59,52,-1,-1,-1,-1,97,98,42,43,101,62,63,64,65,66,67,-1,69,-1,-1,-1,97,98,-1,-1,101,-1,62,63,64,65,66,67,68,69,-1,-1,97,98,44,45,101,47,48,49,-1,-1,52,53,54,55,56,57,58,59,44,45,-1,47,48,49,-1,-1,52,53,54,55,56,57,58,59,44,45,-1,47,48,49,42,43,52,53,54,55,56,57,58,59,-1,-1,-1,-1,-1,97,98,-1,-1,101,62,63,64,65,66,67,68,69,-1,-1,-1,97,98,-1,-1,101,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,97,98,44,45,101,47,48,49,-1,-1,52,53,54,55,56,57,58,59,44,45,-1,47,48,49,-1,-1,52,53,54,55,56,57,58,59,44,45,-1,47,48,49,-1,-1,52,53,54,55,56,57,58,59,-1,-1,-1,-1,-1,97,98,-1,-1,101,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,97,98,5,-1,101,-1,-1,10,11,12,-1,-1,-1,-1,-1,-1,97,98,44,45,101,47,48,49,27,-1,52,53,54,55,56,57,58,59,1,-1,-1,4,5,6,-1,44,-1,10,11,12,-1,1,-1,52,4,5,6,-1,-1,-1,10,11,12,1,27,-1,4,5,6,-1,-1,34,10,11,12,97,98,27,-1,101,-1,44,-1,-1,34,48,49,-1,-1,27,-1,-1,-1,-1,44,58,34,5,48,-1,-1,-1,10,11,12,-1,44,-1,58,-1,48,-1,1,-1,-1,4,5,6,-1,27,58,10,11,12,1,-1,-1,4,5,6,-1,-1,-1,10,11,12,44,1,27,-1,4,5,6,-1,52,34,10,11,12,-1,27,88,89,90,91,44,93,34,-1,48,97,98,-1,27,101,-1,-1,44,-1,58,34,48,-1,-1,-1,-1,-1,-1,-1,-1,44,58,1,-1,48,4,5,6,-1,-1,-1,10,11,12,58,1,-1,-1,4,5,6,-1,-1,-1,10,11,12,1,27,-1,4,5,6,-1,-1,34,10,11,12,-1,-1,27,-1,-1,-1,44,-1,-1,34,48,-1,-1,-1,27,-1,-1,-1,-1,44,58,34,5,48,-1,-1,-1,10,11,12,-1,44,-1,58,-1,48,-1,1,-1,-1,4,5,6,-1,27,58,10,11,12,1,-1,-1,4,5,6,-1,-1,-1,10,11,12,44,1,27,-1,4,5,6,-1,52,34,10,11,12,-1,27,88,89,90,91,44,93,34,-1,48,97,98,-1,27,101,-1,-1,44,-1,58,34,48,-1,-1,-1,-1,-1,-1,-1,-1,44,58,1,-1,48,4,5,6,-1,-1,-1,10,11,12,58,1,-1,-1,4,5,6,-1,-1,-1,10,11,12,1,27,-1,4,5,6,-1,-1,34,10,11,12,-1,-1,27,-1,-1,-1,44,-1,-1,34,48,-1,-1,-1,27,-1,57,58,59,44,58,34,5,48,65,66,67,10,11,12,-1,44,-1,58,-1,48,-1,1,-1,-1,4,5,6,82,27,58,10,11,12,88,89,90,91,-1,93,-1,97,98,97,98,101,44,101,27,45,-1,47,48,49,52,34,52,53,54,55,56,57,58,59,45,44,47,48,49,48,-1,52,53,54,55,56,57,58,59,58,-1,-1,5,-1,-1,-1,-1,10,11,12,-1,-1,-1,5,-1,-1,-1,-1,10,11,12,97,98,-1,27,101,-1,-1,-1,-1,-1,34,35,-1,-1,27,97,98,-1,-1,101,44,34,5,-1,48,-1,-1,10,11,12,-1,44,45,-1,58,48,-1,-1,-1,-1,-1,5,-1,-1,27,58,10,11,12,-1,-1,34,5,-1,-1,-1,-1,10,11,12,-1,44,-1,27,-1,48,-1,-1,-1,-1,34,5,55,-1,27,58,10,11,12,-1,44,34,-1,-1,48,-1,-1,-1,52,-1,-1,44,-1,27,58,48,5,-1,-1,52,34,10,11,12,-1,58,88,89,90,91,44,93,-1,-1,48,97,98,-1,27,101,-1,-1,-1,49,58,34,52,53,54,55,56,57,58,59,-1,44,49,-1,-1,48,-1,54,55,56,57,58,59,49,-1,58,-1,-1,54,55,56,57,58,59,49,-1,-1,-1,-1,54,55,56,57,58,59,-1,-1,97,98,-1,-1,101,-1,-1,-1,-1,-1,-1,-1,-1,97,98,-1,5,101,-1,-1,-1,10,11,12,97,98,-1,22,101,-1,25,26,-1,28,29,97,98,-1,27,101,35,36,37,38,39,40,41,42,43,-1,45,46,47,-1,49,44,-1,-1,-1,54,55,56,-1,52,-1,60,61,62,63,64,65,66,67,68,69,5,-1,72,5,-1,10,11,12,10,11,12,-1,5,-1,-1,-1,-1,10,11,12,-1,-1,27,83,-1,27,-1,24,88,89,90,91,-1,93,27,-1,-1,97,98,44,-1,101,44,-1,24,42,43,52,-1,-1,52,44,-1,-1,-1,-1,-1,54,-1,52,57,24,42,43,-1,62,63,64,65,66,67,68,69,70,54,-1,-1,57,-1,42,43,-1,62,63,64,65,66,67,68,69,70,54,-1,-1,57,-1,-1,-1,-1,62,63,64,65,66,67,68,69,70,57,58,59,-1,-1,-1,-1,64,65,66,67,-1,42,43,-1,-1,-1,47,-1,-1,-1,-1,-1,-1,54,55,56,-1,-1,-1,60,61,62,63,64,65,66,67,68,69,97,98,72,-1,101,79,80,81,82,-1,-1,-1,-1,-1,88,89,90,91,-1,93,-1,-1,-1,97,98,-1,-1,101,79,80,81,82,-1,-1,-1,-1,-1,88,89,90,91,-1,93,-1,-1,-1,97,98,-1,-1,101,79,80,81,82,-1,-1,-1,-1,-1,88,89,90,91,-1,93,-1,-1,-1,97,98,-1,-1,101,79,80,81,82,-1,-1,-1,-1,-1,88,89,90,91,-1,93,-1,-1,-1,97,98,-1,-1,101,79,80,81,82,-1,-1,-1,-1,-1,88,89,90,91,-1,93,-1,-1,-1,97,98,-1,-1,101,79,80,81,82,-1,-1,-1,-1,-1,88,89,90,91,-1,93,-1,-1,-1,97,98,-1,-1,101,79,80,81,82,-1,-1,-1,-1,-1,88,89,90,91,-1,93,-1,81,82,97,98,-1,-1,101,88,89,90,91,-1,93,-1,-1,82,97,98,-1,-1,101,88,89,90,91,-1,93,-1,-1,-1,97,98,-1,-1,101,88,89,90,91,-1,93,94,-1,-1,97,98,-1,-1,101,-1,-1,104,105,88,89,90,91,-1,93,-1,-1,-1,97,98,-1,-1,101,88,89,90,91,-1,93,-1,-1,-1,97,98,-1,-1,101,88,89,90,91,-1,93,-1,-1,-1,97,98,-1,-1,101,88,89,90,91,-1,93,-1,-1,-1,97,98,-1,-1,101,88,89,90,91,-1,93,-1,-1,-1,97,98,-1,-1,101,88,89,90,91,-1,93,-1,-1,-1,97,98,-1,-1,101,88,89,90,91,-1,93,-1,-1,-1,97,98,-1,-1,101,88,89,90,91,-1,93,-1,-1,-1,97,98,-1,-1,101,88,89,90,91,-1,93,-1,-1,-1,97,98,-1,-1,101,88,89,90,91,-1,93,-1,-1,-1,97,98,-1,-1,101,88,89,90,91,-1,93,-1,-1,-1,97,98,-1,-1,101,88,89,90,91,-1,93,-1,-1,-1,97,98,-1,-1,101,88,89,90,91,-1,93,-1,-1,-1,97,98,-1,-1,101,88,89,90,91,-1,93,-1,-1,-1,97,98,-1,-1,101,88,89,90,91,-1,93,-1,-1,-1,97,98,-1,-1,101,88,89,90,91,-1,93,-1,-1,-1,97,98,-1,-1,101,88,89,90,91,-1,93,-1,-1,-1,97,98,-1,-1,101,88,89,90,91,-1,93,-1,-1,-1,97,98,-1,-1,101,88,89,90,91,-1,93,-1,-1,-1,97,98,-1,-1,101,88,89,90,91,-1,93,-1,-1,-1,97,98,-1,-1,101,88,89,90,91,-1,93,-1,-1,-1,97,98,-1,-1,101,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1 + ]) + +happyTable :: Happy_Data_Array.Array Prelude.Int Prelude.Int +happyTable = Happy_Data_Array.listArray (0,3774) ([0,616,269,350,14,201,408,628,201,151,120,131,132,500,100,151,152,272,176,-1,394,133,134,617,135,136,137,223,224,138,139,202,140,177,202,153,263,101,102,509,132,428,178,131,501,329,330,273,502,133,134,356,135,136,137,203,353,138,139,-1,140,153,242,192,314,101,102,605,132,562,14,18,351,225,226,18,351,133,134,315,135,136,137,104,105,138,139,180,140,386,444,18,351,101,102,344,18,106,40,354,41,270,40,388,41,270,18,106,180,18,160,104,105,40,180,41,395,18,160,587,151,18,160,316,151,562,237,75,76,512,18,160,132,354,18,106,18,160,151,104,105,148,134,-1,135,136,137,326,327,138,139,386,140,531,532,18,160,101,102,132,361,-25,18,106,387,388,18,19,415,134,77,135,136,137,-25,-25,138,139,377,140,132,116,18,160,101,102,101,102,347,566,134,177,135,136,137,311,228,138,139,132,140,348,349,104,105,101,102,167,229,423,177,135,136,137,151,386,138,139,236,140,589,473,157,158,101,102,18,106,558,388,104,105,104,105,234,183,100,494,433,157,158,101,102,184,233,18,160,132,103,232,495,104,105,18,106,18,106,422,384,135,136,137,18,160,138,139,374,140,183,385,104,105,101,102,18,106,313,375,120,178,121,344,179,122,166,123,-1,104,105,124,125,372,126,18,106,167,168,101,102,147,445,123,373,18,160,124,125,555,126,381,18,106,382,101,102,432,157,158,104,105,556,557,446,65,180,66,67,68,378,375,69,70,71,72,73,74,75,76,151,18,160,18,106,104,105,526,18,160,185,185,336,100,376,373,101,102,101,102,174,104,105,337,186,426,61,62,18,106,185,14,15,16,17,101,102,18,19,173,63,77,436,424,18,106,64,65,-1,66,67,68,172,305,69,70,71,72,73,74,75,76,104,105,104,105,177,147,402,488,451,101,102,101,102,101,102,40,450,267,305,104,105,101,102,18,106,18,106,18,19,151,178,20,21,311,177,366,596,18,19,101,102,77,18,106,23,145,167,367,347,25,26,27,429,157,158,104,105,104,105,104,105,549,349,496,68,281,28,104,105,190,191,73,74,75,76,180,18,160,18,106,18,106,18,106,108,104,105,146,248,23,18,106,128,386,25,26,27,18,160,109,110,111,112,486,303,368,570,388,18,106,534,28,18,19,-69,305,77,535,113,108,163,157,158,164,23,18,160,128,114,25,26,27,115,-1,109,110,111,112,461,75,76,559,116,560,18,160,28,463,207,-69,155,16,17,113,108,129,-32,303,304,23,18,389,555,114,25,26,27,115,305,109,110,111,112,359,158,569,557,116,18,19,406,28,77,156,157,158,159,23,113,301,129,-31,25,26,27,394,18,160,114,436,167,302,115,260,16,17,108,18,160,28,305,23,116,389,-69,142,25,26,143,144,-69,109,110,111,112,-69,-1,-69,303,491,434,155,151,28,292,393,-69,293,527,305,113,305,380,210,15,16,17,379,211,65,114,66,67,68,115,359,69,70,71,72,73,74,75,76,116,436,150,212,151,356,108,335,29,30,597,23,305,129,-69,142,25,26,143,144,-69,109,110,111,112,-69,334,-69,32,33,34,35,36,28,332,39,-69,18,19,333,113,77,588,472,473,157,158,328,216,65,114,66,67,68,115,329,69,70,71,72,73,74,75,76,116,318,-18,217,18,160,108,537,317,218,289,23,344,129,-69,142,25,26,143,144,-69,109,110,111,112,-69,288,-69,290,18,160,291,281,28,18,160,-69,18,19,263,113,77,79,80,81,82,23,24,242,243,114,25,26,27,115,370,16,17,541,244,245,246,274,436,116,88,23,44,28,305,509,25,26,27,305,89,513,129,248,15,16,17,397,29,30,90,214,305,28,91,436,92,466,263,93,467,18,19,94,95,193,305,194,32,33,34,215,216,37,38,39,40,56,23,45,57,23,24,25,26,27,25,26,27,307,16,17,249,50,51,52,287,53,250,459,28,18,19,28,56,54,507,57,23,24,58,303,438,25,26,27,506,171,29,30,59,252,305,505,253,370,23,244,245,281,28,25,26,27,61,500,443,58,32,33,34,35,36,37,38,39,40,59,28,276,52,253,53,303,564,113,18,19,18,19,54,61,412,488,305,162,501,325,318,115,502,79,80,81,82,23,24,151,485,116,25,26,27,524,525,83,84,85,86,182,461,18,19,87,88,409,457,28,79,80,81,82,23,24,89,454,196,25,26,27,23,24,286,287,90,25,26,27,91,258,92,88,449,93,28,18,19,94,95,256,285,89,28,458,455,96,97,456,177,478,479,90,577,124,418,91,151,92,290,197,93,623,444,198,94,95,79,80,81,82,23,24,96,97,443,25,26,27,442,23,44,254,255,431,25,26,27,18,19,88,422,256,28,79,80,81,82,23,24,89,220,28,25,26,27,268,15,16,17,90,493,16,17,91,279,92,88,129,93,28,18,19,94,95,256,448,89,45,284,285,96,97,415,308,16,17,90,449,16,17,91,23,92,624,625,93,25,26,27,94,95,79,80,81,82,23,24,96,97,412,25,26,27,28,408,23,156,157,158,159,25,26,27,407,88,23,24,28,198,199,25,26,27,129,89,283,40,28,41,42,18,160,552,40,90,41,507,28,91,23,92,293,62,93,25,26,27,94,95,622,174,17,29,30,31,96,97,309,17,23,551,28,23,546,25,26,27,25,26,27,18,410,32,33,34,35,36,37,38,39,40,28,449,40,28,41,558,151,113,18,552,113,83,84,85,86,29,30,162,163,87,162,115,537,23,115,440,16,17,25,26,27,116,332,151,116,32,33,34,35,36,37,38,39,108,358,28,18,578,23,419,16,17,113,25,26,27,530,151,109,110,111,112,162,108,528,512,115,529,23,520,28,511,519,25,26,27,116,113,109,110,111,112,297,16,17,364,182,114,518,605,28,115,156,157,158,159,604,113,539,16,17,116,513,188,576,124,418,114,244,620,281,115,602,151,108,595,18,160,592,23,151,116,-68,426,25,26,404,405,-68,109,110,111,112,-68,457,-68,239,15,16,17,151,28,586,151,-68,129,23,44,113,108,582,25,26,27,23,581,576,572,114,25,26,27,115,512,109,110,111,112,28,108,616,529,116,151,23,151,28,151,151,25,26,27,512,113,109,110,111,112,297,16,17,363,608,114,108,628,28,115,428,23,151,512,151,113,25,26,27,116,129,109,110,111,112,114,461,75,76,115,548,118,98,28,467,206,207,97,238,116,113,397,79,80,81,82,23,24,236,382,114,25,26,27,115,464,23,297,16,17,362,25,26,27,116,88,18,19,28,234,77,365,238,459,23,89,413,540,28,25,26,27,231,602,497,90,570,554,582,91,625,92,619,0,93,171,28,0,94,95,220,65,0,66,67,68,221,222,69,70,71,72,73,74,75,76,79,80,81,82,23,24,0,23,0,25,26,27,25,26,27,0,0,470,471,472,473,157,158,0,0,0,28,0,0,28,0,0,0,89,0,0,0,18,19,0,0,77,0,90,18,160,171,91,209,92,0,0,93,0,307,220,65,210,66,67,68,0,481,69,70,71,72,73,74,75,76,79,80,81,82,23,24,0,23,0,25,26,27,25,26,27,0,0,23,0,0,391,0,25,26,27,0,28,0,0,28,0,0,0,89,0,0,0,18,19,28,0,77,0,90,0,0,392,91,0,92,117,65,93,66,67,68,171,95,69,70,71,72,73,74,75,76,360,65,0,66,67,68,0,0,69,70,71,72,73,74,75,76,485,65,0,66,67,68,0,0,69,70,71,72,73,74,75,76,297,16,17,300,0,18,19,23,0,77,23,0,25,26,27,25,26,27,0,0,0,18,19,0,0,77,0,0,0,28,0,0,28,170,0,0,580,18,19,480,65,77,66,67,68,0,171,69,70,71,72,73,74,75,76,479,65,0,66,67,68,0,0,69,70,71,72,73,74,75,76,476,65,0,66,67,68,0,0,69,70,71,72,73,74,75,76,151,297,16,17,299,18,19,23,0,77,0,0,25,26,27,319,320,321,322,323,0,18,19,0,324,77,0,0,0,28,297,16,17,298,0,0,0,18,19,475,65,77,66,67,68,0,353,69,70,71,72,73,74,75,76,474,65,0,66,67,68,0,0,69,70,71,72,73,74,75,76,469,65,0,66,67,68,0,0,69,70,71,72,73,74,75,76,416,417,124,418,0,18,19,23,0,77,23,24,25,26,27,25,26,27,0,0,0,18,19,0,0,77,0,0,0,28,0,0,28,567,417,124,418,18,19,468,65,77,66,67,68,0,171,69,70,71,72,73,74,75,76,546,65,0,66,67,68,0,0,69,70,71,72,73,74,75,76,538,65,0,66,67,68,0,0,69,70,71,72,73,74,75,76,0,0,0,0,399,18,19,23,0,77,400,0,25,26,27,401,0,402,0,0,0,18,19,0,0,77,146,0,0,28,0,0,0,0,0,0,0,18,19,532,65,77,66,67,68,0,353,69,70,71,72,73,74,75,76,522,65,0,66,67,68,0,0,69,70,71,72,73,74,75,76,521,65,0,66,67,68,29,30,69,70,71,72,73,74,75,76,0,0,241,0,0,18,19,29,30,77,32,33,34,35,36,37,38,39,40,0,0,18,19,0,0,77,0,32,33,34,35,36,37,38,39,40,0,18,19,520,65,77,66,67,68,0,0,69,70,71,72,73,74,75,76,598,65,0,66,67,68,0,0,69,70,71,72,73,74,75,76,597,65,0,66,67,68,29,30,69,70,71,72,73,74,75,76,0,0,0,262,0,18,19,29,30,77,32,33,34,35,36,37,38,39,0,0,0,18,19,0,0,77,0,32,33,34,35,36,37,38,39,0,0,18,19,593,65,77,66,67,68,0,0,69,70,71,72,73,74,75,76,592,65,0,66,67,68,0,0,69,70,71,72,73,74,75,76,590,65,0,66,67,68,-239,-239,69,70,71,72,73,74,75,76,-239,0,0,0,0,18,19,-271,-271,77,-239,-239,-239,-239,-239,-239,0,-239,0,0,0,18,19,0,0,77,0,-271,-271,-271,-271,-271,-271,-271,-271,0,0,18,19,587,65,77,66,67,68,0,0,69,70,71,72,73,74,75,76,573,65,0,66,67,68,0,0,69,70,71,72,73,74,75,76,618,65,0,66,67,68,29,30,69,70,71,72,73,74,75,76,0,0,0,0,0,18,19,0,0,77,32,33,34,35,36,37,38,39,0,0,0,18,19,0,0,77,0,0,0,0,0,0,0,0,0,0,0,18,19,610,65,77,66,67,68,0,0,69,70,71,72,73,74,75,76,609,65,0,66,67,68,0,0,69,70,71,72,73,74,75,76,608,65,0,66,67,68,0,0,69,70,71,72,73,74,75,76,0,0,0,0,0,18,19,0,0,77,0,0,0,0,0,0,0,0,0,0,0,18,19,23,0,77,0,0,25,26,27,0,0,0,0,0,0,18,19,626,65,77,66,67,68,28,0,69,70,71,72,73,74,75,76,56,0,0,57,23,24,0,171,0,25,26,27,0,56,0,493,57,23,24,0,0,0,25,26,27,56,28,0,57,23,24,0,0,58,25,26,27,18,19,28,0,77,0,59,0,0,58,253,343,0,0,28,0,0,0,0,59,61,58,23,60,0,0,0,25,26,27,0,59,0,61,0,253,0,56,0,0,57,23,24,0,28,61,25,26,27,56,0,0,57,23,24,0,0,0,25,26,27,171,56,28,0,57,23,24,0,491,260,25,26,27,0,28,253,50,51,52,59,53,258,0,253,18,19,0,28,54,0,0,59,0,61,58,253,0,0,0,0,0,0,0,0,59,61,56,0,253,57,23,24,0,0,0,25,26,27,61,56,0,0,57,23,24,0,0,0,25,26,27,56,28,0,57,23,24,0,0,58,25,26,27,0,0,28,0,0,0,59,0,0,58,60,0,0,0,28,0,0,0,0,59,61,258,23,253,0,0,0,25,26,27,0,59,0,61,0,253,0,56,0,0,57,23,24,0,28,61,25,26,27,56,0,0,57,23,24,0,0,0,25,26,27,171,56,28,0,57,23,24,0,440,58,25,26,27,0,28,343,50,51,52,59,53,58,0,253,18,19,0,28,54,0,0,59,0,61,58,60,0,0,0,0,0,0,0,0,59,61,56,0,253,57,23,24,0,0,0,25,26,27,61,56,0,0,57,23,24,0,0,0,25,26,27,56,28,0,57,23,24,0,0,58,25,26,27,0,0,28,0,0,0,59,0,0,58,60,0,0,0,28,0,461,75,76,59,61,58,23,253,462,206,207,25,26,27,0,59,0,61,0,60,0,56,0,0,57,23,24,263,28,61,25,26,27,264,50,51,52,0,53,0,18,19,18,19,77,171,54,28,482,0,66,67,68,438,58,69,70,71,72,73,74,75,76,452,59,66,67,68,253,0,69,70,71,72,73,74,75,76,61,0,0,23,0,0,0,0,25,26,27,0,0,0,23,0,0,0,0,25,26,27,18,19,0,28,77,0,0,0,0,0,113,166,0,0,28,18,19,0,0,77,162,113,23,0,115,0,0,25,26,27,0,162,163,0,116,115,0,0,0,0,0,23,0,0,28,116,25,26,27,0,0,113,23,0,0,0,0,25,26,27,0,162,0,28,0,115,0,0,0,0,113,23,346,0,28,116,25,26,27,0,162,113,0,0,115,0,0,0,564,0,0,162,0,28,116,115,23,0,0,575,113,25,26,27,0,116,294,50,51,52,228,53,0,0,115,18,19,0,28,54,0,0,0,68,116,113,295,296,71,72,73,74,75,76,0,162,68,0,0,115,0,188,189,73,74,75,76,68,0,116,0,0,190,191,73,74,75,76,68,0,0,0,0,188,189,73,74,75,76,0,0,18,19,0,0,77,0,0,0,0,0,0,0,0,18,19,0,23,77,0,0,0,25,26,27,18,19,0,-286,77,0,-286,-286,0,-286,-286,18,19,0,28,77,-286,-286,-286,-286,-286,-286,-286,-286,-286,0,-286,-286,-286,0,-286,171,0,0,0,-286,-286,-286,0,566,0,-286,-286,-286,-286,-286,-286,-286,-286,-286,-286,23,0,-286,23,0,25,26,27,25,26,27,0,23,0,0,0,0,25,26,27,0,0,28,497,0,28,0,88,498,50,51,52,0,53,28,0,0,18,19,171,0,54,171,0,88,-167,-167,544,0,0,516,171,0,0,0,0,0,-167,0,573,94,88,-166,-166,0,-167,-167,-167,-167,-167,-167,-167,-167,-167,-166,0,0,94,0,-165,-165,0,-166,-166,-166,-166,-166,-166,-166,-166,-166,-165,0,0,94,0,0,0,0,-165,-165,-165,-165,-165,-165,-165,-165,-165,203,75,76,0,0,0,0,204,205,206,207,0,-290,-290,0,0,0,-290,0,0,0,0,0,0,-290,-290,-290,0,0,0,-290,-290,-290,-290,-290,-290,-290,-290,-290,-290,18,19,-290,0,77,45,46,47,48,0,0,0,0,0,49,50,51,52,0,53,0,0,0,18,19,0,0,54,349,46,47,48,0,0,0,0,0,49,50,51,52,0,53,0,0,0,18,19,0,0,54,483,46,47,48,0,0,0,0,0,49,50,51,52,0,53,0,0,0,18,19,0,0,54,420,46,47,48,0,0,0,0,0,49,50,51,52,0,53,0,0,0,18,19,0,0,54,549,46,47,48,0,0,0,0,0,49,50,51,52,0,53,0,0,0,18,19,0,0,54,613,46,47,48,0,0,0,0,0,49,50,51,52,0,53,0,0,0,18,19,0,0,54,612,46,47,48,0,0,0,0,0,49,50,51,52,0,53,0,265,48,18,19,0,0,54,266,50,51,52,0,53,0,0,263,18,19,0,0,54,274,50,51,52,0,53,0,0,0,18,19,0,0,54,337,50,51,52,0,53,338,0,0,339,19,0,0,54,0,0,340,341,278,50,51,52,0,53,0,0,0,18,19,0,0,54,277,50,51,52,0,53,0,0,0,18,19,0,0,54,275,50,51,52,0,53,0,0,0,18,19,0,0,54,503,50,51,52,0,53,0,0,0,18,19,0,0,54,502,50,51,52,0,53,0,0,0,18,19,0,0,54,489,50,51,52,0,53,0,0,0,18,19,0,0,54,435,50,51,52,0,53,0,0,0,18,19,0,0,54,431,50,51,52,0,53,0,0,0,18,19,0,0,54,544,50,51,52,0,53,0,0,0,18,19,0,0,54,542,50,51,52,0,53,0,0,0,18,19,0,0,54,533,50,51,52,0,53,0,0,0,18,19,0,0,54,516,50,51,52,0,53,0,0,0,18,19,0,0,54,514,50,51,52,0,53,0,0,0,18,19,0,0,54,498,50,51,52,0,53,0,0,0,18,19,0,0,54,600,50,51,52,0,53,0,0,0,18,19,0,0,54,599,50,51,52,0,53,0,0,0,18,19,0,0,54,584,50,51,52,0,53,0,0,0,18,19,0,0,54,583,50,51,52,0,53,0,0,0,18,19,0,0,54,614,50,51,52,0,53,0,0,0,18,19,0,0,54,611,50,51,52,0,53,0,0,0,18,19,0,0,54,606,50,51,52,0,53,0,0,0,18,19,0,0,54,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 + ]) + +happyReduceArr = Happy_Data_Array.array (12, 325) [ + (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), + (252 , happyReduce_252), + (253 , happyReduce_253), + (254 , happyReduce_254), + (255 , happyReduce_255), + (256 , happyReduce_256), + (257 , happyReduce_257), + (258 , happyReduce_258), + (259 , happyReduce_259), + (260 , happyReduce_260), + (261 , happyReduce_261), + (262 , happyReduce_262), + (263 , happyReduce_263), + (264 , happyReduce_264), + (265 , happyReduce_265), + (266 , happyReduce_266), + (267 , happyReduce_267), + (268 , happyReduce_268), + (269 , happyReduce_269), + (270 , happyReduce_270), + (271 , happyReduce_271), + (272 , happyReduce_272), + (273 , happyReduce_273), + (274 , happyReduce_274), + (275 , happyReduce_275), + (276 , happyReduce_276), + (277 , happyReduce_277), + (278 , happyReduce_278), + (279 , happyReduce_279), + (280 , happyReduce_280), + (281 , happyReduce_281), + (282 , happyReduce_282), + (283 , happyReduce_283), + (284 , happyReduce_284), + (285 , happyReduce_285), + (286 , happyReduce_286), + (287 , happyReduce_287), + (288 , happyReduce_288), + (289 , happyReduce_289), + (290 , happyReduce_290), + (291 , happyReduce_291), + (292 , happyReduce_292), + (293 , happyReduce_293), + (294 , happyReduce_294), + (295 , happyReduce_295), + (296 , happyReduce_296), + (297 , happyReduce_297), + (298 , happyReduce_298), + (299 , happyReduce_299), + (300 , happyReduce_300), + (301 , happyReduce_301), + (302 , happyReduce_302), + (303 , happyReduce_303), + (304 , happyReduce_304), + (305 , happyReduce_305), + (306 , happyReduce_306), + (307 , happyReduce_307), + (308 , happyReduce_308), + (309 , happyReduce_309), + (310 , happyReduce_310), + (311 , happyReduce_311), + (312 , happyReduce_312), + (313 , happyReduce_313), + (314 , happyReduce_314), + (315 , happyReduce_315), + (316 , happyReduce_316), + (317 , happyReduce_317), + (318 , happyReduce_318), + (319 , happyReduce_319), + (320 , happyReduce_320), + (321 , happyReduce_321), + (322 , happyReduce_322), + (323 , happyReduce_323), + (324 , happyReduce_324), + (325 , happyReduce_325) + ] + +happy_n_terms = 73 :: Prelude.Int +happy_n_nonterms = 106 :: Prelude.Int + +happyReduce_12 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_12 = happySpecReduce_2 0 happyReduction_12 +happyReduction_12 (HappyAbsSyn15 happy_var_2) + _ + = HappyAbsSyn15 + (happy_var_2 + ) +happyReduction_12 _ _ = notHappyAtAll + +happyReduce_13 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_13 = happySpecReduce_3 0 happyReduction_13 +happyReduction_13 _ + (HappyAbsSyn17 happy_var_2) + _ + = HappyAbsSyn15 + (mkAnonymousModule happy_var_2 + ) +happyReduction_13 _ _ _ = notHappyAtAll + +happyReduce_14 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_14 = happyReduce 5 1 happyReduction_14 +happyReduction_14 (_ `HappyStk` + (HappyAbsSyn17 happy_var_4) `HappyStk` + _ `HappyStk` + _ `HappyStk` + (HappyAbsSyn114 happy_var_1) `HappyStk` + happyRest) + = HappyAbsSyn15 + (mkModule happy_var_1 happy_var_4 + ) `HappyStk` happyRest + +happyReduce_15 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_15 = happyReduce 7 1 happyReduction_15 +happyReduction_15 (_ `HappyStk` + (HappyAbsSyn17 happy_var_6) `HappyStk` + _ `HappyStk` + _ `HappyStk` + (HappyAbsSyn114 happy_var_3) `HappyStk` + _ `HappyStk` + (HappyAbsSyn114 happy_var_1) `HappyStk` + happyRest) + = HappyAbsSyn15 + (mkModuleInstance happy_var_1 happy_var_3 happy_var_6 + ) `HappyStk` happyRest + +happyReduce_16 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_16 = happySpecReduce_1 2 happyReduction_16 +happyReduction_16 (HappyAbsSyn17 happy_var_1) + = HappyAbsSyn17 + (reverse happy_var_1 + ) +happyReduction_16 _ = notHappyAtAll + +happyReduce_17 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_17 = happySpecReduce_0 2 happyReduction_17 +happyReduction_17 = HappyAbsSyn17 + ([] + ) + +happyReduce_18 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_18 = happyReduce 4 3 happyReduction_18 +happyReduction_18 ((HappyAbsSyn21 happy_var_4) `HappyStk` + (HappyAbsSyn20 happy_var_3) `HappyStk` + (HappyAbsSyn19 happy_var_2) `HappyStk` + (HappyTerminal (Located happy_var_1 (Token (KW KW_import) _))) `HappyStk` + happyRest) + = HappyAbsSyn18 + (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_19 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_19 = happySpecReduce_2 4 happyReduction_19 +happyReduction_19 (HappyAbsSyn116 happy_var_2) + _ + = HappyAbsSyn19 + (ImpNested `fmap` happy_var_2 + ) +happyReduction_19 _ _ = notHappyAtAll + +happyReduce_20 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_20 = happySpecReduce_1 4 happyReduction_20 +happyReduction_20 (HappyAbsSyn114 happy_var_1) + = HappyAbsSyn19 + (ImpTop `fmap` happy_var_1 + ) +happyReduction_20 _ = notHappyAtAll + +happyReduce_21 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_21 = happySpecReduce_2 5 happyReduction_21 +happyReduction_21 (HappyAbsSyn114 happy_var_2) + _ + = HappyAbsSyn20 + (Just happy_var_2 + ) +happyReduction_21 _ _ = notHappyAtAll + +happyReduce_22 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_22 = happySpecReduce_0 5 happyReduction_22 +happyReduction_22 = HappyAbsSyn20 + (Nothing + ) + +happyReduce_23 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_23 = happyReduce 4 6 happyReduction_23 +happyReduction_23 (_ `HappyStk` + (HappyAbsSyn22 happy_var_3) `HappyStk` + _ `HappyStk` + (HappyAbsSyn23 happy_var_1) `HappyStk` + happyRest) + = HappyAbsSyn21 + (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_24 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_24 = happySpecReduce_0 6 happyReduction_24 +happyReduction_24 = HappyAbsSyn21 + (Nothing + ) + +happyReduce_25 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_25 = happySpecReduce_3 7 happyReduction_25 +happyReduction_25 (HappyAbsSyn44 happy_var_3) + _ + (HappyAbsSyn22 happy_var_1) + = HappyAbsSyn22 + (fmap getIdent happy_var_3 : happy_var_1 + ) +happyReduction_25 _ _ _ = notHappyAtAll + +happyReduce_26 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_26 = happySpecReduce_1 7 happyReduction_26 +happyReduction_26 (HappyAbsSyn44 happy_var_1) + = HappyAbsSyn22 + ([fmap getIdent happy_var_1] + ) +happyReduction_26 _ = notHappyAtAll + +happyReduce_27 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_27 = happySpecReduce_0 7 happyReduction_27 +happyReduction_27 = HappyAbsSyn22 + ([] + ) + +happyReduce_28 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_28 = happySpecReduce_1 8 happyReduction_28 +happyReduction_28 _ + = HappyAbsSyn23 + (Hiding + ) + +happyReduce_29 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_29 = happySpecReduce_0 8 happyReduction_29 +happyReduction_29 = HappyAbsSyn23 + (Only + ) + +happyReduce_30 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_30 = happySpecReduce_1 9 happyReduction_30 +happyReduction_30 (HappyAbsSyn17 happy_var_1) + = HappyAbsSyn24 + (Program (reverse happy_var_1) + ) +happyReduction_30 _ = notHappyAtAll + +happyReduce_31 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_31 = happySpecReduce_0 9 happyReduction_31 +happyReduction_31 = HappyAbsSyn24 + (Program [] + ) + +happyReduce_32 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_32 = happySpecReduce_3 10 happyReduction_32 +happyReduction_32 _ + (HappyAbsSyn17 happy_var_2) + _ + = HappyAbsSyn24 + (Program (reverse happy_var_2) + ) +happyReduction_32 _ _ _ = notHappyAtAll + +happyReduce_33 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_33 = happySpecReduce_2 10 happyReduction_33 +happyReduction_33 _ + _ + = HappyAbsSyn24 + (Program [] + ) + +happyReduce_34 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_34 = happySpecReduce_2 11 happyReduction_34 +happyReduction_34 _ + (HappyAbsSyn17 happy_var_1) + = HappyAbsSyn17 + (happy_var_1 + ) +happyReduction_34 _ _ = notHappyAtAll + +happyReduce_35 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_35 = happySpecReduce_3 11 happyReduction_35 +happyReduction_35 _ + (HappyAbsSyn17 happy_var_2) + (HappyAbsSyn17 happy_var_1) + = HappyAbsSyn17 + (happy_var_2 ++ happy_var_1 + ) +happyReduction_35 _ _ _ = notHappyAtAll + +happyReduce_36 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_36 = happySpecReduce_1 12 happyReduction_36 +happyReduction_36 (HappyAbsSyn17 happy_var_1) + = HappyAbsSyn17 + (happy_var_1 + ) +happyReduction_36 _ = notHappyAtAll + +happyReduce_37 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_37 = happySpecReduce_3 12 happyReduction_37 +happyReduction_37 (HappyAbsSyn17 happy_var_3) + _ + (HappyAbsSyn17 happy_var_1) + = HappyAbsSyn17 + (happy_var_3 ++ happy_var_1 + ) +happyReduction_37 _ _ _ = notHappyAtAll + +happyReduce_38 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_38 = happySpecReduce_3 12 happyReduction_38 +happyReduction_38 (HappyAbsSyn17 happy_var_3) + _ + (HappyAbsSyn17 happy_var_1) + = HappyAbsSyn17 + (happy_var_3 ++ happy_var_1 + ) +happyReduction_38 _ _ _ = notHappyAtAll + +happyReduce_39 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_39 = happySpecReduce_1 13 happyReduction_39 +happyReduction_39 (HappyAbsSyn38 happy_var_1) + = HappyAbsSyn17 + ([exportDecl Nothing Public happy_var_1] + ) +happyReduction_39 _ = notHappyAtAll + +happyReduce_40 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_40 = happySpecReduce_2 13 happyReduction_40 +happyReduction_40 (HappyAbsSyn38 happy_var_2) + (HappyAbsSyn35 happy_var_1) + = HappyAbsSyn17 + ([exportDecl (Just happy_var_1) Public happy_var_2] + ) +happyReduction_40 _ _ = notHappyAtAll + +happyReduce_41 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_41 = happyMonadReduce 3 13 happyReduction_41 +happyReduction_41 ((HappyTerminal (happy_var_3@(Located _ (Token (StrLit {}) _)))) `HappyStk` + _ `HappyStk` + _ `HappyStk` + happyRest) tk + = happyThen ((( (return . Include) `fmap` fromStrLit happy_var_3)) + ) (\r -> happyReturn (HappyAbsSyn17 r)) + +happyReduce_42 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_42 = happyReduce 6 13 happyReduction_42 +happyReduction_42 ((HappyAbsSyn59 happy_var_6) `HappyStk` + _ `HappyStk` + (HappyAbsSyn45 happy_var_4) `HappyStk` + (HappyAbsSyn44 happy_var_3) `HappyStk` + _ `HappyStk` + (HappyAbsSyn36 happy_var_1) `HappyStk` + happyRest) + = HappyAbsSyn17 + ([exportDecl happy_var_1 Public (mkProperty happy_var_3 happy_var_4 happy_var_6)] + ) `HappyStk` happyRest + +happyReduce_43 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_43 = happyReduce 5 13 happyReduction_43 +happyReduction_43 ((HappyAbsSyn59 happy_var_5) `HappyStk` + _ `HappyStk` + (HappyAbsSyn44 happy_var_3) `HappyStk` + _ `HappyStk` + (HappyAbsSyn36 happy_var_1) `HappyStk` + happyRest) + = HappyAbsSyn17 + ([exportDecl happy_var_1 Public (mkProperty happy_var_3 [] happy_var_5)] + ) `HappyStk` happyRest + +happyReduce_44 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_44 = happySpecReduce_2 13 happyReduction_44 +happyReduction_44 (HappyAbsSyn41 happy_var_2) + (HappyAbsSyn36 happy_var_1) + = HappyAbsSyn17 + ([exportNewtype Public happy_var_1 happy_var_2] + ) +happyReduction_44 _ _ = notHappyAtAll + +happyReduce_45 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_45 = happySpecReduce_1 13 happyReduction_45 +happyReduction_45 (HappyAbsSyn17 happy_var_1) + = HappyAbsSyn17 + (happy_var_1 + ) +happyReduction_45 _ = notHappyAtAll + +happyReduce_46 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_46 = happySpecReduce_1 13 happyReduction_46 +happyReduction_46 (HappyAbsSyn17 happy_var_1) + = HappyAbsSyn17 + (happy_var_1 + ) +happyReduction_46 _ = notHappyAtAll + +happyReduce_47 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_47 = happySpecReduce_1 13 happyReduction_47 +happyReduction_47 (HappyAbsSyn17 happy_var_1) + = HappyAbsSyn17 + (happy_var_1 + ) +happyReduction_47 _ = notHappyAtAll + +happyReduce_48 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_48 = happyMonadReduce 3 13 happyReduction_48 +happyReduction_48 ((HappyAbsSyn15 happy_var_3) `HappyStk` + _ `HappyStk` + (HappyAbsSyn36 happy_var_1) `HappyStk` + happyRest) tk + = happyThen ((( ((:[]) . exportModule happy_var_1) `fmap` mkNested happy_var_3)) + ) (\r -> happyReturn (HappyAbsSyn17 r)) + +happyReduce_49 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_49 = happySpecReduce_1 13 happyReduction_49 +happyReduction_49 (HappyAbsSyn18 happy_var_1) + = HappyAbsSyn17 + ([DImport happy_var_1] + ) +happyReduction_49 _ = notHappyAtAll + +happyReduce_50 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_50 = happySpecReduce_1 14 happyReduction_50 +happyReduction_50 (HappyAbsSyn38 happy_var_1) + = HappyAbsSyn17 + ([Decl (TopLevel {tlExport = Public, tlValue = happy_var_1 })] + ) +happyReduction_50 _ = notHappyAtAll + +happyReduce_51 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_51 = happyMonadReduce 2 14 happyReduction_51 +happyReduction_51 ((HappyTerminal (happy_var_2@(Located _ (Token (StrLit {}) _)))) `HappyStk` + _ `HappyStk` + happyRest) tk + = happyThen ((( (return . Include) `fmap` fromStrLit happy_var_2)) + ) (\r -> happyReturn (HappyAbsSyn17 r)) + +happyReduce_52 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_52 = happySpecReduce_1 14 happyReduction_52 +happyReduction_52 (HappyAbsSyn17 happy_var_1) + = HappyAbsSyn17 + (happy_var_1 + ) +happyReduction_52 _ = notHappyAtAll + +happyReduce_53 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_53 = happyReduce 4 15 happyReduction_53 +happyReduction_53 (_ `HappyStk` + (HappyAbsSyn17 happy_var_3) `HappyStk` + _ `HappyStk` + _ `HappyStk` + happyRest) + = HappyAbsSyn17 + (changeExport Private (reverse happy_var_3) + ) `HappyStk` happyRest + +happyReduce_54 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_54 = happyReduce 5 15 happyReduction_54 +happyReduction_54 (_ `HappyStk` + (HappyAbsSyn17 happy_var_4) `HappyStk` + _ `HappyStk` + _ `HappyStk` + _ `HappyStk` + happyRest) + = HappyAbsSyn17 + (changeExport Private (reverse happy_var_4) + ) `HappyStk` happyRest + +happyReduce_55 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_55 = happyReduce 5 16 happyReduction_55 +happyReduction_55 ((HappyAbsSyn94 happy_var_5) `HappyStk` + _ `HappyStk` + (HappyAbsSyn44 happy_var_3) `HappyStk` + _ `HappyStk` + (HappyAbsSyn36 happy_var_1) `HappyStk` + happyRest) + = HappyAbsSyn17 + (mkPrimDecl happy_var_1 happy_var_3 happy_var_5 + ) `HappyStk` happyRest + +happyReduce_56 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_56 = happyReduce 7 16 happyReduction_56 +happyReduction_56 ((HappyAbsSyn94 happy_var_7) `HappyStk` + _ `HappyStk` + _ `HappyStk` + (HappyAbsSyn44 happy_var_4) `HappyStk` + _ `HappyStk` + _ `HappyStk` + (HappyAbsSyn36 happy_var_1) `HappyStk` + happyRest) + = HappyAbsSyn17 + (mkPrimDecl happy_var_1 happy_var_4 happy_var_7 + ) `HappyStk` happyRest + +happyReduce_57 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_57 = happyMonadReduce 6 16 happyReduction_57 +happyReduction_57 ((HappyAbsSyn98 happy_var_6) `HappyStk` + _ `HappyStk` + (HappyAbsSyn94 happy_var_4) `HappyStk` + _ `HappyStk` + _ `HappyStk` + (HappyAbsSyn36 happy_var_1) `HappyStk` + happyRest) tk + = happyThen ((( mkPrimTypeDecl happy_var_1 happy_var_4 happy_var_6)) + ) (\r -> happyReturn (HappyAbsSyn17 r)) + +happyReduce_58 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_58 = happyReduce 4 17 happyReduction_58 +happyReduction_58 (_ `HappyStk` + (HappyAbsSyn17 happy_var_3) `HappyStk` + _ `HappyStk` + _ `HappyStk` + happyRest) + = HappyAbsSyn17 + (reverse happy_var_3 + ) `HappyStk` happyRest + +happyReduce_59 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_59 = happyReduce 5 17 happyReduction_59 +happyReduction_59 (_ `HappyStk` + (HappyAbsSyn17 happy_var_4) `HappyStk` + _ `HappyStk` + _ `HappyStk` + _ `HappyStk` + happyRest) + = HappyAbsSyn17 + (reverse happy_var_4 + ) `HappyStk` happyRest + +happyReduce_60 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_60 = happySpecReduce_1 18 happyReduction_60 +happyReduction_60 (HappyAbsSyn34 happy_var_1) + = HappyAbsSyn17 + ([happy_var_1] + ) +happyReduction_60 _ = notHappyAtAll + +happyReduce_61 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_61 = happySpecReduce_3 18 happyReduction_61 +happyReduction_61 (HappyAbsSyn34 happy_var_3) + _ + (HappyAbsSyn17 happy_var_1) + = HappyAbsSyn17 + (happy_var_3 : happy_var_1 + ) +happyReduction_61 _ _ _ = notHappyAtAll + +happyReduce_62 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_62 = happySpecReduce_3 18 happyReduction_62 +happyReduction_62 (HappyAbsSyn34 happy_var_3) + _ + (HappyAbsSyn17 happy_var_1) + = HappyAbsSyn17 + (happy_var_3 : happy_var_1 + ) +happyReduction_62 _ _ _ = notHappyAtAll + +happyReduce_63 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_63 = happyReduce 4 19 happyReduction_63 +happyReduction_63 ((HappyAbsSyn94 happy_var_4) `HappyStk` + _ `HappyStk` + (HappyAbsSyn44 happy_var_2) `HappyStk` + (HappyAbsSyn36 happy_var_1) `HappyStk` + happyRest) + = HappyAbsSyn34 + (mkParFun happy_var_1 happy_var_2 happy_var_4 + ) `HappyStk` happyRest + +happyReduce_64 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_64 = happyMonadReduce 5 19 happyReduction_64 +happyReduction_64 ((HappyAbsSyn98 happy_var_5) `HappyStk` + _ `HappyStk` + (HappyAbsSyn44 happy_var_3) `HappyStk` + _ `HappyStk` + (HappyAbsSyn36 happy_var_1) `HappyStk` + happyRest) tk + = happyThen ((( mkParType happy_var_1 happy_var_3 happy_var_5)) + ) (\r -> happyReturn (HappyAbsSyn34 r)) + +happyReduce_65 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_65 = happyMonadReduce 4 19 happyReduction_65 +happyReduction_65 ((HappyAbsSyn103 happy_var_4) `HappyStk` + _ `HappyStk` + _ `HappyStk` + _ `HappyStk` + happyRest) tk + = happyThen ((( fmap (DParameterConstraint . distrLoc) + (mkProp happy_var_4))) + ) (\r -> happyReturn (HappyAbsSyn34 r)) + +happyReduce_66 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_66 = happySpecReduce_1 20 happyReduction_66 +happyReduction_66 (HappyTerminal (happy_var_1@(Located _ (Token (White DocStr) _)))) + = HappyAbsSyn35 + (mkDoc (fmap tokenText happy_var_1) + ) +happyReduction_66 _ = notHappyAtAll + +happyReduce_67 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_67 = happySpecReduce_1 21 happyReduction_67 +happyReduction_67 (HappyAbsSyn35 happy_var_1) + = HappyAbsSyn36 + (Just happy_var_1 + ) +happyReduction_67 _ = notHappyAtAll + +happyReduce_68 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_68 = happySpecReduce_0 21 happyReduction_68 +happyReduction_68 = HappyAbsSyn36 + (Nothing + ) + +happyReduce_69 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_69 = happySpecReduce_1 22 happyReduction_69 +happyReduction_69 _ + = HappyAbsSyn37 + ([] + ) + +happyReduce_70 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_70 = happySpecReduce_3 23 happyReduction_70 +happyReduction_70 (HappyAbsSyn94 happy_var_3) + _ + (HappyAbsSyn43 happy_var_1) + = HappyAbsSyn38 + (at (head happy_var_1,happy_var_3) $ DSignature (reverse happy_var_1) happy_var_3 + ) +happyReduction_70 _ _ _ = notHappyAtAll + +happyReduce_71 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_71 = happySpecReduce_3 23 happyReduction_71 +happyReduction_71 (HappyAbsSyn59 happy_var_3) + _ + (HappyAbsSyn88 happy_var_1) + = HappyAbsSyn38 + (at (happy_var_1,happy_var_3) $ DPatBind happy_var_1 happy_var_3 + ) +happyReduction_71 _ _ _ = notHappyAtAll + +happyReduce_72 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_72 = happyReduce 5 23 happyReduction_72 +happyReduction_72 ((HappyAbsSyn59 happy_var_5) `HappyStk` + _ `HappyStk` + _ `HappyStk` + (HappyAbsSyn44 happy_var_2) `HappyStk` + (HappyTerminal (Located happy_var_1 (Token (Sym ParenL ) _))) `HappyStk` + happyRest) + = HappyAbsSyn38 + (at (happy_var_1,happy_var_5) $ DPatBind (PVar happy_var_2) happy_var_5 + ) `HappyStk` happyRest + +happyReduce_73 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_73 = happyReduce 4 23 happyReduction_73 +happyReduction_73 ((HappyAbsSyn37 happy_var_4) `HappyStk` + _ `HappyStk` + (HappyAbsSyn48 happy_var_2) `HappyStk` + (HappyAbsSyn44 happy_var_1) `HappyStk` + happyRest) + = HappyAbsSyn38 + (at (happy_var_1,happy_var_4) $ mkIndexedPropGuardsDecl happy_var_1 happy_var_2 happy_var_4 + ) `HappyStk` happyRest + +happyReduce_74 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_74 = happyReduce 4 23 happyReduction_74 +happyReduction_74 ((HappyAbsSyn59 happy_var_4) `HappyStk` + _ `HappyStk` + (HappyAbsSyn48 happy_var_2) `HappyStk` + (HappyAbsSyn44 happy_var_1) `HappyStk` + happyRest) + = HappyAbsSyn38 + (at (happy_var_1,happy_var_4) $ mkIndexedDecl happy_var_1 happy_var_2 happy_var_4 + ) `HappyStk` happyRest + +happyReduce_75 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_75 = happyReduce 5 23 happyReduction_75 +happyReduction_75 ((HappyAbsSyn59 happy_var_5) `HappyStk` + _ `HappyStk` + (HappyAbsSyn88 happy_var_3) `HappyStk` + (HappyAbsSyn44 happy_var_2) `HappyStk` + (HappyAbsSyn88 happy_var_1) `HappyStk` + happyRest) + = HappyAbsSyn38 + (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 + , bExport = Public + } + ) `HappyStk` happyRest + +happyReduce_76 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_76 = happyMonadReduce 4 23 happyReduction_76 +happyReduction_76 ((HappyAbsSyn103 happy_var_4) `HappyStk` + _ `HappyStk` + (HappyAbsSyn44 happy_var_2) `HappyStk` + (HappyTerminal (Located happy_var_1 (Token (KW KW_type ) _))) `HappyStk` + happyRest) tk + = happyThen ((( at (happy_var_1,happy_var_4) `fmap` mkTySyn happy_var_2 [] happy_var_4)) + ) (\r -> happyReturn (HappyAbsSyn38 r)) + +happyReduce_77 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_77 = happyMonadReduce 5 23 happyReduction_77 +happyReduction_77 ((HappyAbsSyn103 happy_var_5) `HappyStk` + _ `HappyStk` + (HappyAbsSyn100 happy_var_3) `HappyStk` + (HappyAbsSyn44 happy_var_2) `HappyStk` + (HappyTerminal (Located happy_var_1 (Token (KW KW_type ) _))) `HappyStk` + happyRest) tk + = happyThen ((( at (happy_var_1,happy_var_5) `fmap` mkTySyn happy_var_2 (reverse happy_var_3) happy_var_5)) + ) (\r -> happyReturn (HappyAbsSyn38 r)) + +happyReduce_78 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_78 = happyMonadReduce 6 23 happyReduction_78 +happyReduction_78 ((HappyAbsSyn103 happy_var_6) `HappyStk` + _ `HappyStk` + (HappyAbsSyn99 happy_var_4) `HappyStk` + (HappyAbsSyn44 happy_var_3) `HappyStk` + (HappyAbsSyn99 happy_var_2) `HappyStk` + (HappyTerminal (Located happy_var_1 (Token (KW KW_type ) _))) `HappyStk` + happyRest) tk + = happyThen ((( at (happy_var_1,happy_var_6) `fmap` mkTySyn happy_var_3 [happy_var_2, happy_var_4] happy_var_6)) + ) (\r -> happyReturn (HappyAbsSyn38 r)) + +happyReduce_79 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_79 = happyMonadReduce 5 23 happyReduction_79 +happyReduction_79 ((HappyAbsSyn103 happy_var_5) `HappyStk` + _ `HappyStk` + (HappyAbsSyn44 happy_var_3) `HappyStk` + (HappyTerminal (Located happy_var_2 (Token (KW KW_constraint) _))) `HappyStk` + _ `HappyStk` + happyRest) tk + = happyThen ((( at (happy_var_2,happy_var_5) `fmap` mkPropSyn happy_var_3 [] happy_var_5)) + ) (\r -> happyReturn (HappyAbsSyn38 r)) + +happyReduce_80 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_80 = happyMonadReduce 6 23 happyReduction_80 +happyReduction_80 ((HappyAbsSyn103 happy_var_6) `HappyStk` + _ `HappyStk` + (HappyAbsSyn100 happy_var_4) `HappyStk` + (HappyAbsSyn44 happy_var_3) `HappyStk` + (HappyTerminal (Located happy_var_2 (Token (KW KW_constraint) _))) `HappyStk` + _ `HappyStk` + happyRest) tk + = happyThen ((( at (happy_var_2,happy_var_6) `fmap` mkPropSyn happy_var_3 (reverse happy_var_4) happy_var_6)) + ) (\r -> happyReturn (HappyAbsSyn38 r)) + +happyReduce_81 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_81 = happyMonadReduce 7 23 happyReduction_81 +happyReduction_81 ((HappyAbsSyn103 happy_var_7) `HappyStk` + _ `HappyStk` + (HappyAbsSyn99 happy_var_5) `HappyStk` + (HappyAbsSyn44 happy_var_4) `HappyStk` + (HappyAbsSyn99 happy_var_3) `HappyStk` + (HappyTerminal (Located happy_var_2 (Token (KW KW_constraint) _))) `HappyStk` + _ `HappyStk` + happyRest) tk + = happyThen ((( at (happy_var_2,happy_var_7) `fmap` mkPropSyn happy_var_4 [happy_var_3, happy_var_5] happy_var_7)) + ) (\r -> happyReturn (HappyAbsSyn38 r)) + +happyReduce_82 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_82 = happyMonadReduce 3 23 happyReduction_82 +happyReduction_82 ((HappyAbsSyn58 happy_var_3) `HappyStk` + (HappyTerminal (happy_var_2@(Located _ (Token (Num {}) _)))) `HappyStk` + _ `HappyStk` + happyRest) tk + = happyThen ((( mkFixity LeftAssoc happy_var_2 (reverse happy_var_3))) + ) (\r -> happyReturn (HappyAbsSyn38 r)) + +happyReduce_83 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_83 = happyMonadReduce 3 23 happyReduction_83 +happyReduction_83 ((HappyAbsSyn58 happy_var_3) `HappyStk` + (HappyTerminal (happy_var_2@(Located _ (Token (Num {}) _)))) `HappyStk` + _ `HappyStk` + happyRest) tk + = happyThen ((( mkFixity RightAssoc happy_var_2 (reverse happy_var_3))) + ) (\r -> happyReturn (HappyAbsSyn38 r)) + +happyReduce_84 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_84 = happyMonadReduce 3 23 happyReduction_84 +happyReduction_84 ((HappyAbsSyn58 happy_var_3) `HappyStk` + (HappyTerminal (happy_var_2@(Located _ (Token (Num {}) _)))) `HappyStk` + _ `HappyStk` + happyRest) tk + = happyThen ((( mkFixity NonAssoc happy_var_2 (reverse happy_var_3))) + ) (\r -> happyReturn (HappyAbsSyn38 r)) + +happyReduce_85 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_85 = happyMonadReduce 1 23 happyReduction_85 +happyReduction_85 (_ `HappyStk` + happyRest) tk + = happyThen ((( expected "a declaration")) + ) (\r -> happyReturn (HappyAbsSyn38 r)) + +happyReduce_86 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_86 = happySpecReduce_1 24 happyReduction_86 +happyReduction_86 (HappyAbsSyn38 happy_var_1) + = HappyAbsSyn39 + ([happy_var_1] + ) +happyReduction_86 _ = notHappyAtAll + +happyReduce_87 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_87 = happySpecReduce_2 24 happyReduction_87 +happyReduction_87 _ + (HappyAbsSyn38 happy_var_1) + = HappyAbsSyn39 + ([happy_var_1] + ) +happyReduction_87 _ _ = notHappyAtAll + +happyReduce_88 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_88 = happySpecReduce_3 24 happyReduction_88 +happyReduction_88 (HappyAbsSyn39 happy_var_3) + _ + (HappyAbsSyn38 happy_var_1) + = HappyAbsSyn39 + ((happy_var_1:happy_var_3) + ) +happyReduction_88 _ _ _ = notHappyAtAll + +happyReduce_89 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_89 = happyReduce 4 25 happyReduction_89 +happyReduction_89 ((HappyAbsSyn59 happy_var_4) `HappyStk` + _ `HappyStk` + (HappyAbsSyn88 happy_var_2) `HappyStk` + _ `HappyStk` + happyRest) + = HappyAbsSyn38 + (at (happy_var_2,happy_var_4) $ DPatBind happy_var_2 happy_var_4 + ) `HappyStk` happyRest + +happyReduce_90 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_90 = happyReduce 5 25 happyReduction_90 +happyReduction_90 ((HappyAbsSyn59 happy_var_5) `HappyStk` + _ `HappyStk` + (HappyAbsSyn48 happy_var_3) `HappyStk` + (HappyAbsSyn44 happy_var_2) `HappyStk` + _ `HappyStk` + happyRest) + = HappyAbsSyn38 + (at (happy_var_2,happy_var_5) $ mkIndexedDecl happy_var_2 happy_var_3 happy_var_5 + ) `HappyStk` happyRest + +happyReduce_91 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_91 = happyReduce 6 25 happyReduction_91 +happyReduction_91 ((HappyAbsSyn59 happy_var_6) `HappyStk` + _ `HappyStk` + _ `HappyStk` + (HappyAbsSyn44 happy_var_3) `HappyStk` + (HappyTerminal (Located happy_var_2 (Token (Sym ParenL ) _))) `HappyStk` + _ `HappyStk` + happyRest) + = HappyAbsSyn38 + (at (happy_var_2,happy_var_6) $ DPatBind (PVar happy_var_3) happy_var_6 + ) `HappyStk` happyRest + +happyReduce_92 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_92 = happyReduce 6 25 happyReduction_92 +happyReduction_92 ((HappyAbsSyn59 happy_var_6) `HappyStk` + _ `HappyStk` + (HappyAbsSyn88 happy_var_4) `HappyStk` + (HappyAbsSyn44 happy_var_3) `HappyStk` + (HappyAbsSyn88 happy_var_2) `HappyStk` + _ `HappyStk` + happyRest) + = HappyAbsSyn38 + (at (happy_var_2,happy_var_6) $ + DBind $ Bind { bName = happy_var_3 + , bParams = [happy_var_2,happy_var_4] + , bDef = at happy_var_6 (Located emptyRange (DExpr happy_var_6)) + , bSignature = Nothing + , bPragmas = [] + , bMono = False + , bInfix = True + , bFixity = Nothing + , bDoc = Nothing + , bExport = Public + } + ) `HappyStk` happyRest + +happyReduce_93 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_93 = happyReduce 4 25 happyReduction_93 +happyReduction_93 ((HappyAbsSyn94 happy_var_4) `HappyStk` + _ `HappyStk` + (HappyAbsSyn43 happy_var_2) `HappyStk` + _ `HappyStk` + happyRest) + = HappyAbsSyn38 + (at (head happy_var_2,happy_var_4) $ DSignature (reverse happy_var_2) happy_var_4 + ) `HappyStk` happyRest + +happyReduce_94 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_94 = happyMonadReduce 4 25 happyReduction_94 +happyReduction_94 ((HappyAbsSyn103 happy_var_4) `HappyStk` + _ `HappyStk` + (HappyAbsSyn44 happy_var_2) `HappyStk` + (HappyTerminal (Located happy_var_1 (Token (KW KW_type ) _))) `HappyStk` + happyRest) tk + = happyThen ((( at (happy_var_1,happy_var_4) `fmap` mkTySyn happy_var_2 [] happy_var_4)) + ) (\r -> happyReturn (HappyAbsSyn38 r)) + +happyReduce_95 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_95 = happyMonadReduce 5 25 happyReduction_95 +happyReduction_95 ((HappyAbsSyn103 happy_var_5) `HappyStk` + _ `HappyStk` + (HappyAbsSyn100 happy_var_3) `HappyStk` + (HappyAbsSyn44 happy_var_2) `HappyStk` + (HappyTerminal (Located happy_var_1 (Token (KW KW_type ) _))) `HappyStk` + happyRest) tk + = happyThen ((( at (happy_var_1,happy_var_5) `fmap` mkTySyn happy_var_2 (reverse happy_var_3) happy_var_5)) + ) (\r -> happyReturn (HappyAbsSyn38 r)) + +happyReduce_96 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_96 = happyMonadReduce 6 25 happyReduction_96 +happyReduction_96 ((HappyAbsSyn103 happy_var_6) `HappyStk` + _ `HappyStk` + (HappyAbsSyn99 happy_var_4) `HappyStk` + (HappyAbsSyn44 happy_var_3) `HappyStk` + (HappyAbsSyn99 happy_var_2) `HappyStk` + (HappyTerminal (Located happy_var_1 (Token (KW KW_type ) _))) `HappyStk` + happyRest) tk + = happyThen ((( at (happy_var_1,happy_var_6) `fmap` mkTySyn happy_var_3 [happy_var_2, happy_var_4] happy_var_6)) + ) (\r -> happyReturn (HappyAbsSyn38 r)) + +happyReduce_97 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_97 = happyMonadReduce 5 25 happyReduction_97 +happyReduction_97 ((HappyAbsSyn103 happy_var_5) `HappyStk` + _ `HappyStk` + (HappyAbsSyn44 happy_var_3) `HappyStk` + (HappyTerminal (Located happy_var_2 (Token (KW KW_constraint) _))) `HappyStk` + _ `HappyStk` + happyRest) tk + = happyThen ((( at (happy_var_2,happy_var_5) `fmap` mkPropSyn happy_var_3 [] happy_var_5)) + ) (\r -> happyReturn (HappyAbsSyn38 r)) + +happyReduce_98 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_98 = happyMonadReduce 6 25 happyReduction_98 +happyReduction_98 ((HappyAbsSyn103 happy_var_6) `HappyStk` + _ `HappyStk` + (HappyAbsSyn100 happy_var_4) `HappyStk` + (HappyAbsSyn44 happy_var_3) `HappyStk` + (HappyTerminal (Located happy_var_2 (Token (KW KW_constraint) _))) `HappyStk` + _ `HappyStk` + happyRest) tk + = happyThen ((( at (happy_var_2,happy_var_6) `fmap` mkPropSyn happy_var_3 (reverse happy_var_4) happy_var_6)) + ) (\r -> happyReturn (HappyAbsSyn38 r)) + +happyReduce_99 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_99 = happyMonadReduce 7 25 happyReduction_99 +happyReduction_99 ((HappyAbsSyn103 happy_var_7) `HappyStk` + _ `HappyStk` + (HappyAbsSyn99 happy_var_5) `HappyStk` + (HappyAbsSyn44 happy_var_4) `HappyStk` + (HappyAbsSyn99 happy_var_3) `HappyStk` + (HappyTerminal (Located happy_var_2 (Token (KW KW_constraint) _))) `HappyStk` + _ `HappyStk` + happyRest) tk + = happyThen ((( at (happy_var_2,happy_var_7) `fmap` mkPropSyn happy_var_4 [happy_var_3, happy_var_5] happy_var_7)) + ) (\r -> happyReturn (HappyAbsSyn38 r)) + +happyReduce_100 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_100 = happyMonadReduce 3 25 happyReduction_100 +happyReduction_100 ((HappyAbsSyn58 happy_var_3) `HappyStk` + (HappyTerminal (happy_var_2@(Located _ (Token (Num {}) _)))) `HappyStk` + _ `HappyStk` + happyRest) tk + = happyThen ((( mkFixity LeftAssoc happy_var_2 (reverse happy_var_3))) + ) (\r -> happyReturn (HappyAbsSyn38 r)) + +happyReduce_101 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_101 = happyMonadReduce 3 25 happyReduction_101 +happyReduction_101 ((HappyAbsSyn58 happy_var_3) `HappyStk` + (HappyTerminal (happy_var_2@(Located _ (Token (Num {}) _)))) `HappyStk` + _ `HappyStk` + happyRest) tk + = happyThen ((( mkFixity RightAssoc happy_var_2 (reverse happy_var_3))) + ) (\r -> happyReturn (HappyAbsSyn38 r)) + +happyReduce_102 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_102 = happyMonadReduce 3 25 happyReduction_102 +happyReduction_102 ((HappyAbsSyn58 happy_var_3) `HappyStk` + (HappyTerminal (happy_var_2@(Located _ (Token (Num {}) _)))) `HappyStk` + _ `HappyStk` + happyRest) tk + = happyThen ((( mkFixity NonAssoc happy_var_2 (reverse happy_var_3))) + ) (\r -> happyReturn (HappyAbsSyn38 r)) + +happyReduce_103 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_103 = happyReduce 4 26 happyReduction_103 +happyReduction_103 ((HappyAbsSyn42 happy_var_4) `HappyStk` + _ `HappyStk` + (HappyAbsSyn116 happy_var_2) `HappyStk` + _ `HappyStk` + happyRest) + = HappyAbsSyn41 + (Newtype happy_var_2 [] (thing happy_var_4) + ) `HappyStk` happyRest + +happyReduce_104 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_104 = happyReduce 5 26 happyReduction_104 +happyReduction_104 ((HappyAbsSyn42 happy_var_5) `HappyStk` + _ `HappyStk` + (HappyAbsSyn100 happy_var_3) `HappyStk` + (HappyAbsSyn116 happy_var_2) `HappyStk` + _ `HappyStk` + happyRest) + = HappyAbsSyn41 + (Newtype happy_var_2 (reverse happy_var_3) (thing happy_var_5) + ) `HappyStk` happyRest + +happyReduce_105 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_105 = happyMonadReduce 2 27 happyReduction_105 +happyReduction_105 ((HappyTerminal (Located happy_var_2 (Token (Sym CurlyR ) _))) `HappyStk` + (HappyTerminal (Located happy_var_1 (Token (Sym CurlyL ) _))) `HappyStk` + happyRest) tk + = happyThen ((( mkRecord (rComb happy_var_1 happy_var_2) (Located emptyRange) [])) + ) (\r -> happyReturn (HappyAbsSyn42 r)) + +happyReduce_106 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_106 = happyMonadReduce 3 27 happyReduction_106 +happyReduction_106 ((HappyTerminal (Located happy_var_3 (Token (Sym CurlyR ) _))) `HappyStk` + (HappyAbsSyn111 happy_var_2) `HappyStk` + (HappyTerminal (Located happy_var_1 (Token (Sym CurlyL ) _))) `HappyStk` + happyRest) tk + = happyThen ((( mkRecord (rComb happy_var_1 happy_var_3) (Located emptyRange) happy_var_2)) + ) (\r -> happyReturn (HappyAbsSyn42 r)) + +happyReduce_107 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_107 = happySpecReduce_1 28 happyReduction_107 +happyReduction_107 (HappyAbsSyn44 happy_var_1) + = HappyAbsSyn43 + ([ happy_var_1] + ) +happyReduction_107 _ = notHappyAtAll + +happyReduce_108 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_108 = happySpecReduce_3 28 happyReduction_108 +happyReduction_108 (HappyAbsSyn44 happy_var_3) + _ + (HappyAbsSyn43 happy_var_1) + = HappyAbsSyn43 + (happy_var_3 : happy_var_1 + ) +happyReduction_108 _ _ _ = notHappyAtAll + +happyReduce_109 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_109 = happySpecReduce_1 29 happyReduction_109 +happyReduction_109 (HappyAbsSyn44 happy_var_1) + = HappyAbsSyn44 + (happy_var_1 + ) +happyReduction_109 _ = notHappyAtAll + +happyReduce_110 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_110 = happySpecReduce_3 29 happyReduction_110 +happyReduction_110 _ + (HappyAbsSyn44 happy_var_2) + _ + = HappyAbsSyn44 + (happy_var_2 + ) +happyReduction_110 _ _ _ = notHappyAtAll + +happyReduce_111 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_111 = happySpecReduce_1 30 happyReduction_111 +happyReduction_111 (HappyAbsSyn88 happy_var_1) + = HappyAbsSyn45 + ([happy_var_1] + ) +happyReduction_111 _ = notHappyAtAll + +happyReduce_112 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_112 = happySpecReduce_2 30 happyReduction_112 +happyReduction_112 (HappyAbsSyn88 happy_var_2) + (HappyAbsSyn45 happy_var_1) + = HappyAbsSyn45 + (happy_var_2 : happy_var_1 + ) +happyReduction_112 _ _ = notHappyAtAll + +happyReduce_113 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_113 = happySpecReduce_2 31 happyReduction_113 +happyReduction_113 (HappyAbsSyn45 happy_var_2) + _ + = HappyAbsSyn45 + (happy_var_2 + ) +happyReduction_113 _ _ = notHappyAtAll + +happyReduce_114 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_114 = happySpecReduce_0 31 happyReduction_114 +happyReduction_114 = HappyAbsSyn45 + ([] + ) + +happyReduce_115 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_115 = happySpecReduce_1 32 happyReduction_115 +happyReduction_115 (HappyAbsSyn88 happy_var_1) + = HappyAbsSyn45 + ([happy_var_1] + ) +happyReduction_115 _ = notHappyAtAll + +happyReduce_116 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_116 = happySpecReduce_3 32 happyReduction_116 +happyReduction_116 (HappyAbsSyn88 happy_var_3) + _ + (HappyAbsSyn45 happy_var_1) + = HappyAbsSyn45 + (happy_var_3 : happy_var_1 + ) +happyReduction_116 _ _ _ = notHappyAtAll + +happyReduce_117 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_117 = happySpecReduce_2 33 happyReduction_117 +happyReduction_117 (HappyAbsSyn45 happy_var_2) + (HappyAbsSyn45 happy_var_1) + = HappyAbsSyn48 + ((happy_var_1, happy_var_2) + ) +happyReduction_117 _ _ = notHappyAtAll + +happyReduce_118 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_118 = happySpecReduce_2 33 happyReduction_118 +happyReduction_118 (HappyAbsSyn45 happy_var_2) + _ + = HappyAbsSyn48 + (([], happy_var_2) + ) +happyReduction_118 _ _ = notHappyAtAll + +happyReduce_119 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_119 = happySpecReduce_0 34 happyReduction_119 +happyReduction_119 = HappyAbsSyn48 + (([],[]) + ) + +happyReduce_120 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_120 = happySpecReduce_1 34 happyReduction_120 +happyReduction_120 (HappyAbsSyn48 happy_var_1) + = HappyAbsSyn48 + (happy_var_1 + ) +happyReduction_120 _ = notHappyAtAll + +happyReduce_121 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_121 = happySpecReduce_2 35 happyReduction_121 +happyReduction_121 _ + (HappyAbsSyn38 happy_var_1) + = HappyAbsSyn39 + ([happy_var_1] + ) +happyReduction_121 _ _ = notHappyAtAll + +happyReduce_122 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_122 = happySpecReduce_3 35 happyReduction_122 +happyReduction_122 _ + (HappyAbsSyn38 happy_var_2) + (HappyAbsSyn39 happy_var_1) + = HappyAbsSyn39 + (happy_var_2 : happy_var_1 + ) +happyReduction_122 _ _ _ = notHappyAtAll + +happyReduce_123 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_123 = happySpecReduce_1 36 happyReduction_123 +happyReduction_123 (HappyAbsSyn38 happy_var_1) + = HappyAbsSyn39 + ([happy_var_1] + ) +happyReduction_123 _ = notHappyAtAll + +happyReduce_124 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_124 = happySpecReduce_3 36 happyReduction_124 +happyReduction_124 (HappyAbsSyn38 happy_var_3) + _ + (HappyAbsSyn39 happy_var_1) + = HappyAbsSyn39 + (happy_var_3 : happy_var_1 + ) +happyReduction_124 _ _ _ = notHappyAtAll + +happyReduce_125 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_125 = happySpecReduce_3 36 happyReduction_125 +happyReduction_125 (HappyAbsSyn38 happy_var_3) + _ + (HappyAbsSyn39 happy_var_1) + = HappyAbsSyn39 + (happy_var_3 : happy_var_1 + ) +happyReduction_125 _ _ _ = notHappyAtAll + +happyReduce_126 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_126 = happySpecReduce_3 37 happyReduction_126 +happyReduction_126 _ + (HappyAbsSyn39 happy_var_2) + _ + = HappyAbsSyn39 + (happy_var_2 + ) +happyReduction_126 _ _ _ = notHappyAtAll + +happyReduce_127 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_127 = happySpecReduce_2 37 happyReduction_127 +happyReduction_127 _ + _ + = HappyAbsSyn39 + ([] + ) + +happyReduce_128 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_128 = happySpecReduce_1 38 happyReduction_128 +happyReduction_128 (HappyAbsSyn59 happy_var_1) + = HappyAbsSyn53 + (ExprInput happy_var_1 + ) +happyReduction_128 _ = notHappyAtAll + +happyReduce_129 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_129 = happySpecReduce_1 38 happyReduction_129 +happyReduction_129 (HappyAbsSyn39 happy_var_1) + = HappyAbsSyn53 + (LetInput happy_var_1 + ) +happyReduction_129 _ = notHappyAtAll + +happyReduce_130 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_130 = happySpecReduce_0 38 happyReduction_130 +happyReduction_130 = HappyAbsSyn53 + (EmptyInput + ) + +happyReduce_131 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_131 = happySpecReduce_1 39 happyReduction_131 +happyReduction_131 (HappyAbsSyn44 happy_var_1) + = HappyAbsSyn44 + (happy_var_1 + ) +happyReduction_131 _ = notHappyAtAll + +happyReduce_132 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_132 = happySpecReduce_1 39 happyReduction_132 +happyReduction_132 (HappyTerminal (happy_var_1@(Located _ (Token (Op Other{} ) _)))) + = HappyAbsSyn44 + (let Token (Op (Other ns i)) _ = thing happy_var_1 + in mkQual (mkModName ns) (mkInfix i) A.<$ happy_var_1 + ) +happyReduction_132 _ = notHappyAtAll + +happyReduce_133 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_133 = happySpecReduce_1 40 happyReduction_133 +happyReduction_133 (HappyAbsSyn44 happy_var_1) + = HappyAbsSyn44 + (happy_var_1 + ) +happyReduction_133 _ = notHappyAtAll + +happyReduce_134 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_134 = happySpecReduce_1 40 happyReduction_134 +happyReduction_134 (HappyTerminal (Located happy_var_1 (Token (Op Hash) _))) + = HappyAbsSyn44 + (Located happy_var_1 $ mkUnqual $ mkInfix "#" + ) +happyReduction_134 _ = notHappyAtAll + +happyReduce_135 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_135 = happySpecReduce_1 40 happyReduction_135 +happyReduction_135 (HappyTerminal (Located happy_var_1 (Token (Op At) _))) + = HappyAbsSyn44 + (Located happy_var_1 $ mkUnqual $ mkInfix "@" + ) +happyReduction_135 _ = notHappyAtAll + +happyReduce_136 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_136 = happySpecReduce_1 41 happyReduction_136 +happyReduction_136 (HappyAbsSyn44 happy_var_1) + = HappyAbsSyn44 + (happy_var_1 + ) +happyReduction_136 _ = notHappyAtAll + +happyReduce_137 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_137 = happySpecReduce_1 41 happyReduction_137 +happyReduction_137 (HappyTerminal (Located happy_var_1 (Token (Op Mul) _))) + = HappyAbsSyn44 + (Located happy_var_1 $ mkUnqual $ mkInfix "*" + ) +happyReduction_137 _ = notHappyAtAll + +happyReduce_138 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_138 = happySpecReduce_1 41 happyReduction_138 +happyReduction_138 (HappyTerminal (Located happy_var_1 (Token (Op Plus) _))) + = HappyAbsSyn44 + (Located happy_var_1 $ mkUnqual $ mkInfix "+" + ) +happyReduction_138 _ = notHappyAtAll + +happyReduce_139 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_139 = happySpecReduce_1 41 happyReduction_139 +happyReduction_139 (HappyTerminal (Located happy_var_1 (Token (Op Minus) _))) + = HappyAbsSyn44 + (Located happy_var_1 $ mkUnqual $ mkInfix "-" + ) +happyReduction_139 _ = notHappyAtAll + +happyReduce_140 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_140 = happySpecReduce_1 41 happyReduction_140 +happyReduction_140 (HappyTerminal (Located happy_var_1 (Token (Op Complement) _))) + = HappyAbsSyn44 + (Located happy_var_1 $ mkUnqual $ mkInfix "~" + ) +happyReduction_140 _ = notHappyAtAll + +happyReduce_141 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_141 = happySpecReduce_1 41 happyReduction_141 +happyReduction_141 (HappyTerminal (Located happy_var_1 (Token (Op Exp) _))) + = HappyAbsSyn44 + (Located happy_var_1 $ mkUnqual $ mkInfix "^^" + ) +happyReduction_141 _ = notHappyAtAll + +happyReduce_142 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_142 = happySpecReduce_1 41 happyReduction_142 +happyReduction_142 (HappyTerminal (Located happy_var_1 (Token (Sym Lt ) _))) + = HappyAbsSyn44 + (Located happy_var_1 $ mkUnqual $ mkInfix "<" + ) +happyReduction_142 _ = notHappyAtAll + +happyReduce_143 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_143 = happySpecReduce_1 41 happyReduction_143 +happyReduction_143 (HappyTerminal (Located happy_var_1 (Token (Sym Gt ) _))) + = HappyAbsSyn44 + (Located happy_var_1 $ mkUnqual $ mkInfix ">" + ) +happyReduction_143 _ = notHappyAtAll + +happyReduce_144 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_144 = happySpecReduce_1 42 happyReduction_144 +happyReduction_144 (HappyTerminal (happy_var_1@(Located _ (Token (Op (Other [] _)) _)))) + = HappyAbsSyn44 + (let Token (Op (Other [] str)) _ = thing happy_var_1 + in mkUnqual (mkInfix str) A.<$ happy_var_1 + ) +happyReduction_144 _ = notHappyAtAll + +happyReduce_145 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_145 = happySpecReduce_1 43 happyReduction_145 +happyReduction_145 (HappyAbsSyn44 happy_var_1) + = HappyAbsSyn58 + ([happy_var_1] + ) +happyReduction_145 _ = notHappyAtAll + +happyReduce_146 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_146 = happySpecReduce_3 43 happyReduction_146 +happyReduction_146 (HappyAbsSyn44 happy_var_3) + _ + (HappyAbsSyn58 happy_var_1) + = HappyAbsSyn58 + (happy_var_3 : happy_var_1 + ) +happyReduction_146 _ _ _ = notHappyAtAll + +happyReduce_147 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_147 = happySpecReduce_1 44 happyReduction_147 +happyReduction_147 (HappyAbsSyn59 happy_var_1) + = HappyAbsSyn59 + (happy_var_1 + ) +happyReduction_147 _ = notHappyAtAll + +happyReduce_148 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_148 = happySpecReduce_3 44 happyReduction_148 +happyReduction_148 (HappyAbsSyn61 happy_var_3) + _ + (HappyAbsSyn59 happy_var_1) + = HappyAbsSyn59 + (at (happy_var_1,happy_var_3) (EWhere happy_var_1 (thing happy_var_3)) + ) +happyReduction_148 _ _ _ = notHappyAtAll + +happyReduce_149 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_149 = happySpecReduce_3 45 happyReduction_149 +happyReduction_149 (HappyAbsSyn59 happy_var_3) + (HappyAbsSyn44 happy_var_2) + (HappyAbsSyn59 happy_var_1) + = HappyAbsSyn59 + (binOp happy_var_1 happy_var_2 happy_var_3 + ) +happyReduction_149 _ _ _ = notHappyAtAll + +happyReduce_150 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_150 = happySpecReduce_1 45 happyReduction_150 +happyReduction_150 (HappyAbsSyn59 happy_var_1) + = HappyAbsSyn59 + (happy_var_1 + ) +happyReduction_150 _ = notHappyAtAll + +happyReduce_151 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_151 = happySpecReduce_1 45 happyReduction_151 +happyReduction_151 (HappyAbsSyn59 happy_var_1) + = HappyAbsSyn59 + (happy_var_1 + ) +happyReduction_151 _ = notHappyAtAll + +happyReduce_152 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_152 = happySpecReduce_2 46 happyReduction_152 +happyReduction_152 (HappyTerminal (Located happy_var_2 (Token (Sym CurlyR ) _))) + (HappyTerminal (Located happy_var_1 (Token (Sym CurlyL ) _))) + = HappyAbsSyn61 + (Located (rComb happy_var_1 happy_var_2) [] + ) +happyReduction_152 _ _ = notHappyAtAll + +happyReduce_153 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_153 = happySpecReduce_3 46 happyReduction_153 +happyReduction_153 (HappyTerminal (Located happy_var_3 (Token (Sym CurlyR ) _))) + (HappyAbsSyn39 happy_var_2) + (HappyTerminal (Located happy_var_1 (Token (Sym CurlyL ) _))) + = HappyAbsSyn61 + (Located (rComb happy_var_1 happy_var_3) (reverse happy_var_2) + ) +happyReduction_153 _ _ _ = notHappyAtAll + +happyReduce_154 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_154 = happySpecReduce_2 46 happyReduction_154 +happyReduction_154 (HappyTerminal (Located happy_var_2 (Token (Virt VCurlyR) _))) + (HappyTerminal (Located happy_var_1 (Token (Virt VCurlyL) _))) + = HappyAbsSyn61 + (Located (rComb happy_var_1 happy_var_2) [] + ) +happyReduction_154 _ _ = notHappyAtAll + +happyReduce_155 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_155 = happySpecReduce_3 46 happyReduction_155 +happyReduction_155 (HappyTerminal (Located happy_var_3 (Token (Virt VCurlyR) _))) + (HappyAbsSyn39 happy_var_2) + (HappyTerminal (Located happy_var_1 (Token (Virt VCurlyL) _))) + = HappyAbsSyn61 + (let l2 = fromMaybe happy_var_3 (getLoc happy_var_2) + in Located (rComb happy_var_1 l2) (reverse happy_var_2) + ) +happyReduction_155 _ _ _ = notHappyAtAll + +happyReduce_156 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_156 = happySpecReduce_3 47 happyReduction_156 +happyReduction_156 (HappyAbsSyn103 happy_var_3) + _ + (HappyAbsSyn59 happy_var_1) + = HappyAbsSyn59 + (at (happy_var_1,happy_var_3) (ETyped happy_var_1 happy_var_3) + ) +happyReduction_156 _ _ _ = notHappyAtAll + +happyReduce_157 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_157 = happySpecReduce_3 48 happyReduction_157 +happyReduction_157 (HappyAbsSyn59 happy_var_3) + (HappyAbsSyn44 happy_var_2) + (HappyAbsSyn59 happy_var_1) + = HappyAbsSyn59 + (binOp happy_var_1 happy_var_2 happy_var_3 + ) +happyReduction_157 _ _ _ = notHappyAtAll + +happyReduce_158 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_158 = happySpecReduce_1 48 happyReduction_158 +happyReduction_158 (HappyAbsSyn59 happy_var_1) + = HappyAbsSyn59 + (happy_var_1 + ) +happyReduction_158 _ = notHappyAtAll + +happyReduce_159 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_159 = happyReduce 4 49 happyReduction_159 +happyReduction_159 ((HappyAbsSyn59 happy_var_4) `HappyStk` + _ `HappyStk` + (HappyAbsSyn65 happy_var_2) `HappyStk` + (HappyTerminal (Located happy_var_1 (Token (KW KW_if ) _))) `HappyStk` + happyRest) + = HappyAbsSyn59 + (at (happy_var_1,happy_var_4) $ mkIf (reverse happy_var_2) happy_var_4 + ) `HappyStk` happyRest + +happyReduce_160 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_160 = happyReduce 4 49 happyReduction_160 +happyReduction_160 ((HappyAbsSyn59 happy_var_4) `HappyStk` + _ `HappyStk` + (HappyAbsSyn45 happy_var_2) `HappyStk` + (HappyTerminal (Located happy_var_1 (Token (Sym Lambda ) _))) `HappyStk` + happyRest) + = HappyAbsSyn59 + (at (happy_var_1,happy_var_4) $ EFun emptyFunDesc (reverse happy_var_2) happy_var_4 + ) `HappyStk` happyRest + +happyReduce_161 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_161 = happySpecReduce_1 50 happyReduction_161 +happyReduction_161 (HappyAbsSyn66 happy_var_1) + = HappyAbsSyn65 + ([happy_var_1] + ) +happyReduction_161 _ = notHappyAtAll + +happyReduce_162 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_162 = happySpecReduce_3 50 happyReduction_162 +happyReduction_162 (HappyAbsSyn66 happy_var_3) + _ + (HappyAbsSyn65 happy_var_1) + = HappyAbsSyn65 + (happy_var_3 : happy_var_1 + ) +happyReduction_162 _ _ _ = notHappyAtAll + +happyReduce_163 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_163 = happySpecReduce_3 51 happyReduction_163 +happyReduction_163 (HappyAbsSyn59 happy_var_3) + _ + (HappyAbsSyn59 happy_var_1) + = HappyAbsSyn66 + ((happy_var_1, happy_var_3) + ) +happyReduction_163 _ _ _ = notHappyAtAll + +happyReduce_164 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_164 = happySpecReduce_2 52 happyReduction_164 +happyReduction_164 (HappyAbsSyn59 happy_var_2) + (HappyTerminal (Located happy_var_1 (Token (Op Minus) _))) + = HappyAbsSyn59 + (at (happy_var_1,happy_var_2) (ENeg happy_var_2) + ) +happyReduction_164 _ _ = notHappyAtAll + +happyReduce_165 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_165 = happySpecReduce_2 52 happyReduction_165 +happyReduction_165 (HappyAbsSyn59 happy_var_2) + (HappyTerminal (Located happy_var_1 (Token (Op Complement) _))) + = HappyAbsSyn59 + (at (happy_var_1,happy_var_2) (EComplement happy_var_2) + ) +happyReduction_165 _ _ = notHappyAtAll + +happyReduce_166 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_166 = happySpecReduce_1 52 happyReduction_166 +happyReduction_166 (HappyAbsSyn59 happy_var_1) + = HappyAbsSyn59 + (happy_var_1 + ) +happyReduction_166 _ = notHappyAtAll + +happyReduce_167 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_167 = happySpecReduce_2 53 happyReduction_167 +happyReduction_167 (HappyAbsSyn59 happy_var_2) + (HappyTerminal (Located happy_var_1 (Token (Op Minus) _))) + = HappyAbsSyn59 + (at (happy_var_1,happy_var_2) (ENeg happy_var_2) + ) +happyReduction_167 _ _ = notHappyAtAll + +happyReduce_168 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_168 = happySpecReduce_2 53 happyReduction_168 +happyReduction_168 (HappyAbsSyn59 happy_var_2) + (HappyTerminal (Located happy_var_1 (Token (Op Complement) _))) + = HappyAbsSyn59 + (at (happy_var_1,happy_var_2) (EComplement happy_var_2) + ) +happyReduction_168 _ _ = notHappyAtAll + +happyReduce_169 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_169 = happySpecReduce_1 53 happyReduction_169 +happyReduction_169 (HappyAbsSyn59 happy_var_1) + = HappyAbsSyn59 + (happy_var_1 + ) +happyReduction_169 _ = notHappyAtAll + +happyReduce_170 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_170 = happyMonadReduce 1 54 happyReduction_170 +happyReduction_170 ((HappyAbsSyn71 happy_var_1) `HappyStk` + happyRest) tk + = happyThen ((( mkEApp happy_var_1)) + ) (\r -> happyReturn (HappyAbsSyn59 r)) + +happyReduce_171 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_171 = happySpecReduce_2 55 happyReduction_171 +happyReduction_171 (HappyAbsSyn59 happy_var_2) + (HappyAbsSyn59 happy_var_1) + = HappyAbsSyn59 + (at (happy_var_1,happy_var_2) (EApp happy_var_1 happy_var_2) + ) +happyReduction_171 _ _ = notHappyAtAll + +happyReduce_172 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_172 = happySpecReduce_1 55 happyReduction_172 +happyReduction_172 (HappyAbsSyn59 happy_var_1) + = HappyAbsSyn59 + (happy_var_1 + ) +happyReduction_172 _ = notHappyAtAll + +happyReduce_173 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_173 = happySpecReduce_1 55 happyReduction_173 +happyReduction_173 (HappyAbsSyn59 happy_var_1) + = HappyAbsSyn59 + (happy_var_1 + ) +happyReduction_173 _ = notHappyAtAll + +happyReduce_174 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_174 = happySpecReduce_1 56 happyReduction_174 +happyReduction_174 (HappyAbsSyn59 happy_var_1) + = HappyAbsSyn71 + (happy_var_1 :| [] + ) +happyReduction_174 _ = notHappyAtAll + +happyReduce_175 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_175 = happySpecReduce_2 56 happyReduction_175 +happyReduction_175 (HappyAbsSyn59 happy_var_2) + (HappyAbsSyn71 happy_var_1) + = HappyAbsSyn71 + (cons happy_var_2 happy_var_1 + ) +happyReduction_175 _ _ = notHappyAtAll + +happyReduce_176 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_176 = happySpecReduce_1 57 happyReduction_176 +happyReduction_176 (HappyAbsSyn59 happy_var_1) + = HappyAbsSyn59 + (happy_var_1 + ) +happyReduction_176 _ = notHappyAtAll + +happyReduce_177 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_177 = happySpecReduce_1 57 happyReduction_177 +happyReduction_177 (HappyAbsSyn59 happy_var_1) + = HappyAbsSyn59 + (happy_var_1 + ) +happyReduction_177 _ = notHappyAtAll + +happyReduce_178 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_178 = happySpecReduce_1 58 happyReduction_178 +happyReduction_178 (HappyAbsSyn116 happy_var_1) + = HappyAbsSyn59 + (at happy_var_1 $ EVar (thing happy_var_1) + ) +happyReduction_178 _ = notHappyAtAll + +happyReduce_179 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_179 = happySpecReduce_1 58 happyReduction_179 +happyReduction_179 (HappyTerminal (happy_var_1@(Located _ (Token (Num {}) _)))) + = HappyAbsSyn59 + (at happy_var_1 $ numLit (thing happy_var_1) + ) +happyReduction_179 _ = notHappyAtAll + +happyReduce_180 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_180 = happySpecReduce_1 58 happyReduction_180 +happyReduction_180 (HappyTerminal (happy_var_1@(Located _ (Token (Frac {}) _)))) + = HappyAbsSyn59 + (at happy_var_1 $ fracLit (thing happy_var_1) + ) +happyReduction_180 _ = notHappyAtAll + +happyReduce_181 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_181 = happySpecReduce_1 58 happyReduction_181 +happyReduction_181 (HappyTerminal (happy_var_1@(Located _ (Token (StrLit {}) _)))) + = HappyAbsSyn59 + (at happy_var_1 $ ELit $ ECString $ getStr happy_var_1 + ) +happyReduction_181 _ = notHappyAtAll + +happyReduce_182 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_182 = happySpecReduce_1 58 happyReduction_182 +happyReduction_182 (HappyTerminal (happy_var_1@(Located _ (Token (ChrLit {}) _)))) + = HappyAbsSyn59 + (at happy_var_1 $ ELit $ ECChar $ getChr happy_var_1 + ) +happyReduction_182 _ = notHappyAtAll + +happyReduce_183 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_183 = happySpecReduce_1 58 happyReduction_183 +happyReduction_183 (HappyTerminal (Located happy_var_1 (Token (Sym Underscore ) _))) + = HappyAbsSyn59 + (at happy_var_1 $ EVar $ mkUnqual $ mkIdent "_" + ) +happyReduction_183 _ = notHappyAtAll + +happyReduce_184 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_184 = happySpecReduce_3 58 happyReduction_184 +happyReduction_184 (HappyTerminal (Located happy_var_3 (Token (Sym ParenR ) _))) + (HappyAbsSyn59 happy_var_2) + (HappyTerminal (Located happy_var_1 (Token (Sym ParenL ) _))) + = HappyAbsSyn59 + (at (happy_var_1,happy_var_3) $ EParens happy_var_2 + ) +happyReduction_184 _ _ _ = notHappyAtAll + +happyReduce_185 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_185 = happySpecReduce_3 58 happyReduction_185 +happyReduction_185 (HappyTerminal (Located happy_var_3 (Token (Sym ParenR ) _))) + (HappyAbsSyn78 happy_var_2) + (HappyTerminal (Located happy_var_1 (Token (Sym ParenL ) _))) + = HappyAbsSyn59 + (at (happy_var_1,happy_var_3) $ ETuple (reverse happy_var_2) + ) +happyReduction_185 _ _ _ = notHappyAtAll + +happyReduce_186 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_186 = happySpecReduce_2 58 happyReduction_186 +happyReduction_186 (HappyTerminal (Located happy_var_2 (Token (Sym ParenR ) _))) + (HappyTerminal (Located happy_var_1 (Token (Sym ParenL ) _))) + = HappyAbsSyn59 + (at (happy_var_1,happy_var_2) $ ETuple [] + ) +happyReduction_186 _ _ = notHappyAtAll + +happyReduce_187 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_187 = happyMonadReduce 2 58 happyReduction_187 +happyReduction_187 ((HappyTerminal (Located happy_var_2 (Token (Sym CurlyR ) _))) `HappyStk` + (HappyTerminal (Located happy_var_1 (Token (Sym CurlyL ) _))) `HappyStk` + happyRest) tk + = happyThen ((( mkRecord (rComb happy_var_1 happy_var_2) ERecord [])) + ) (\r -> happyReturn (HappyAbsSyn59 r)) + +happyReduce_188 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_188 = happyMonadReduce 3 58 happyReduction_188 +happyReduction_188 ((HappyTerminal (Located happy_var_3 (Token (Sym CurlyR ) _))) `HappyStk` + (HappyAbsSyn79 happy_var_2) `HappyStk` + (HappyTerminal (Located happy_var_1 (Token (Sym CurlyL ) _))) `HappyStk` + happyRest) tk + = happyThen ((( case happy_var_2 of { + Left upd -> pure $ at (happy_var_1,happy_var_3) upd; + Right fs -> mkRecord (rComb happy_var_1 happy_var_3) ERecord fs; })) + ) (\r -> happyReturn (HappyAbsSyn59 r)) + +happyReduce_189 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_189 = happySpecReduce_2 58 happyReduction_189 +happyReduction_189 (HappyTerminal (Located happy_var_2 (Token (Sym BracketR) _))) + (HappyTerminal (Located happy_var_1 (Token (Sym BracketL) _))) + = HappyAbsSyn59 + (at (happy_var_1,happy_var_2) $ EList [] + ) +happyReduction_189 _ _ = notHappyAtAll + +happyReduce_190 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_190 = happySpecReduce_3 58 happyReduction_190 +happyReduction_190 (HappyTerminal (Located happy_var_3 (Token (Sym BracketR) _))) + (HappyAbsSyn59 happy_var_2) + (HappyTerminal (Located happy_var_1 (Token (Sym BracketL) _))) + = HappyAbsSyn59 + (at (happy_var_1,happy_var_3) happy_var_2 + ) +happyReduction_190 _ _ _ = notHappyAtAll + +happyReduce_191 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_191 = happySpecReduce_2 58 happyReduction_191 +happyReduction_191 (HappyAbsSyn103 happy_var_2) + (HappyTerminal (Located happy_var_1 (Token (Sym BackTick) _))) + = HappyAbsSyn59 + (at (happy_var_1,happy_var_2) $ ETypeVal happy_var_2 + ) +happyReduction_191 _ _ = notHappyAtAll + +happyReduce_192 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_192 = happySpecReduce_3 58 happyReduction_192 +happyReduction_192 (HappyTerminal (Located happy_var_3 (Token (Sym ParenR ) _))) + (HappyAbsSyn44 happy_var_2) + (HappyTerminal (Located happy_var_1 (Token (Sym ParenL ) _))) + = HappyAbsSyn59 + (at (happy_var_1,happy_var_3) $ EVar $ thing happy_var_2 + ) +happyReduction_192 _ _ _ = notHappyAtAll + +happyReduce_193 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_193 = happyMonadReduce 2 58 happyReduction_193 +happyReduction_193 ((HappyTerminal (Located happy_var_2 (Token (Sym TriR ) _))) `HappyStk` + (HappyTerminal (Located happy_var_1 (Token (Sym TriL ) _))) `HappyStk` + happyRest) tk + = happyThen ((( mkPoly (rComb happy_var_1 happy_var_2) [])) + ) (\r -> happyReturn (HappyAbsSyn59 r)) + +happyReduce_194 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_194 = happyMonadReduce 3 58 happyReduction_194 +happyReduction_194 ((HappyTerminal (Located happy_var_3 (Token (Sym TriR ) _))) `HappyStk` + (HappyAbsSyn76 happy_var_2) `HappyStk` + (HappyTerminal (Located happy_var_1 (Token (Sym TriL ) _))) `HappyStk` + happyRest) tk + = happyThen ((( mkPoly (rComb happy_var_1 happy_var_3) happy_var_2)) + ) (\r -> happyReturn (HappyAbsSyn59 r)) + +happyReduce_195 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_195 = happySpecReduce_2 59 happyReduction_195 +happyReduction_195 (HappyAbsSyn75 happy_var_2) + (HappyAbsSyn59 happy_var_1) + = HappyAbsSyn59 + (at (happy_var_1,happy_var_2) $ ESel happy_var_1 (thing happy_var_2) + ) +happyReduction_195 _ _ = notHappyAtAll + +happyReduce_196 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_196 = happySpecReduce_2 59 happyReduction_196 +happyReduction_196 (HappyAbsSyn75 happy_var_2) + (HappyAbsSyn59 happy_var_1) + = HappyAbsSyn59 + (at (happy_var_1,happy_var_2) $ ESel happy_var_1 (thing happy_var_2) + ) +happyReduction_196 _ _ = notHappyAtAll + +happyReduce_197 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_197 = happySpecReduce_1 60 happyReduction_197 +happyReduction_197 (HappyTerminal (happy_var_1@(Located _ (Token (Selector _) _)))) + = HappyAbsSyn75 + (mkSelector `fmap` happy_var_1 + ) +happyReduction_197 _ = notHappyAtAll + +happyReduce_198 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_198 = happySpecReduce_1 61 happyReduction_198 +happyReduction_198 (HappyAbsSyn77 happy_var_1) + = HappyAbsSyn76 + ([happy_var_1] + ) +happyReduction_198 _ = notHappyAtAll + +happyReduce_199 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_199 = happySpecReduce_3 61 happyReduction_199 +happyReduction_199 (HappyAbsSyn77 happy_var_3) + _ + (HappyAbsSyn76 happy_var_1) + = HappyAbsSyn76 + (happy_var_3 : happy_var_1 + ) +happyReduction_199 _ _ _ = notHappyAtAll + +happyReduce_200 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_200 = happyMonadReduce 1 62 happyReduction_200 +happyReduction_200 ((HappyTerminal (happy_var_1@(Located _ (Token (Num {}) _)))) `HappyStk` + happyRest) tk + = happyThen ((( polyTerm (srcRange happy_var_1) (getNum happy_var_1) 0)) + ) (\r -> happyReturn (HappyAbsSyn77 r)) + +happyReduce_201 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_201 = happyMonadReduce 1 62 happyReduction_201 +happyReduction_201 ((HappyTerminal (Located happy_var_1 (Token (KW KW_x) _))) `HappyStk` + happyRest) tk + = happyThen ((( polyTerm happy_var_1 1 1)) + ) (\r -> happyReturn (HappyAbsSyn77 r)) + +happyReduce_202 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_202 = happyMonadReduce 3 62 happyReduction_202 +happyReduction_202 ((HappyTerminal (happy_var_3@(Located _ (Token (Num {}) _)))) `HappyStk` + _ `HappyStk` + (HappyTerminal (Located happy_var_1 (Token (KW KW_x) _))) `HappyStk` + happyRest) tk + = happyThen ((( polyTerm (rComb happy_var_1 (srcRange happy_var_3)) + 1 (getNum happy_var_3))) + ) (\r -> happyReturn (HappyAbsSyn77 r)) + +happyReduce_203 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_203 = happySpecReduce_3 63 happyReduction_203 +happyReduction_203 (HappyAbsSyn59 happy_var_3) + _ + (HappyAbsSyn59 happy_var_1) + = HappyAbsSyn78 + ([ happy_var_3, happy_var_1] + ) +happyReduction_203 _ _ _ = notHappyAtAll + +happyReduce_204 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_204 = happySpecReduce_3 63 happyReduction_204 +happyReduction_204 (HappyAbsSyn59 happy_var_3) + _ + (HappyAbsSyn78 happy_var_1) + = HappyAbsSyn78 + (happy_var_3 : happy_var_1 + ) +happyReduction_204 _ _ _ = notHappyAtAll + +happyReduce_205 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_205 = happySpecReduce_3 64 happyReduction_205 +happyReduction_205 (HappyAbsSyn80 happy_var_3) + _ + (HappyAbsSyn59 happy_var_1) + = HappyAbsSyn79 + (Left (EUpd (Just happy_var_1) (reverse happy_var_3)) + ) +happyReduction_205 _ _ _ = notHappyAtAll + +happyReduce_206 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_206 = happySpecReduce_3 64 happyReduction_206 +happyReduction_206 (HappyAbsSyn80 happy_var_3) + _ + _ + = HappyAbsSyn79 + (Left (EUpd Nothing (reverse happy_var_3)) + ) +happyReduction_206 _ _ _ = notHappyAtAll + +happyReduce_207 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_207 = happyMonadReduce 1 64 happyReduction_207 +happyReduction_207 ((HappyAbsSyn80 happy_var_1) `HappyStk` + happyRest) tk + = happyThen ((( Right `fmap` mapM ufToNamed happy_var_1)) + ) (\r -> happyReturn (HappyAbsSyn79 r)) + +happyReduce_208 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_208 = happySpecReduce_1 65 happyReduction_208 +happyReduction_208 (HappyAbsSyn81 happy_var_1) + = HappyAbsSyn80 + ([happy_var_1] + ) +happyReduction_208 _ = notHappyAtAll + +happyReduce_209 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_209 = happySpecReduce_3 65 happyReduction_209 +happyReduction_209 (HappyAbsSyn81 happy_var_3) + _ + (HappyAbsSyn80 happy_var_1) + = HappyAbsSyn80 + (happy_var_3 : happy_var_1 + ) +happyReduction_209 _ _ _ = notHappyAtAll + +happyReduce_210 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_210 = happyReduce 4 66 happyReduction_210 +happyReduction_210 ((HappyAbsSyn59 happy_var_4) `HappyStk` + (HappyAbsSyn83 happy_var_3) `HappyStk` + (HappyAbsSyn48 happy_var_2) `HappyStk` + (HappyAbsSyn82 happy_var_1) `HappyStk` + happyRest) + = HappyAbsSyn81 + (UpdField happy_var_3 happy_var_1 (mkIndexedExpr happy_var_2 happy_var_4) + ) `HappyStk` happyRest + +happyReduce_211 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_211 = happyMonadReduce 1 67 happyReduction_211 +happyReduction_211 ((HappyAbsSyn59 happy_var_1) `HappyStk` + happyRest) tk + = happyThen ((( exprToFieldPath happy_var_1)) + ) (\r -> happyReturn (HappyAbsSyn82 r)) + +happyReduce_212 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_212 = happySpecReduce_1 68 happyReduction_212 +happyReduction_212 _ + = HappyAbsSyn83 + (UpdSet + ) + +happyReduce_213 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_213 = happySpecReduce_1 68 happyReduction_213 +happyReduction_213 _ + = HappyAbsSyn83 + (UpdFun + ) + +happyReduce_214 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_214 = happySpecReduce_3 69 happyReduction_214 +happyReduction_214 (HappyAbsSyn85 happy_var_3) + _ + (HappyAbsSyn59 happy_var_1) + = HappyAbsSyn59 + (EComp happy_var_1 (reverse happy_var_3) + ) +happyReduction_214 _ _ _ = notHappyAtAll + +happyReduce_215 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_215 = happySpecReduce_1 69 happyReduction_215 +happyReduction_215 (HappyAbsSyn59 happy_var_1) + = HappyAbsSyn59 + (EList [happy_var_1] + ) +happyReduction_215 _ = notHappyAtAll + +happyReduce_216 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_216 = happySpecReduce_1 69 happyReduction_216 +happyReduction_216 (HappyAbsSyn78 happy_var_1) + = HappyAbsSyn59 + (EList (reverse happy_var_1) + ) +happyReduction_216 _ = notHappyAtAll + +happyReduce_217 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_217 = happyMonadReduce 3 69 happyReduction_217 +happyReduction_217 ((HappyAbsSyn59 happy_var_3) `HappyStk` + (HappyTerminal (Located happy_var_2 (Token (Sym DotDot ) _))) `HappyStk` + (HappyAbsSyn59 happy_var_1) `HappyStk` + happyRest) tk + = happyThen ((( eFromTo happy_var_2 happy_var_1 Nothing happy_var_3)) + ) (\r -> happyReturn (HappyAbsSyn59 r)) + +happyReduce_218 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_218 = happyMonadReduce 5 69 happyReduction_218 +happyReduction_218 ((HappyAbsSyn59 happy_var_5) `HappyStk` + (HappyTerminal (Located happy_var_4 (Token (Sym DotDot ) _))) `HappyStk` + (HappyAbsSyn59 happy_var_3) `HappyStk` + _ `HappyStk` + (HappyAbsSyn59 happy_var_1) `HappyStk` + happyRest) tk + = happyThen ((( eFromTo happy_var_4 happy_var_1 (Just happy_var_3) happy_var_5)) + ) (\r -> happyReturn (HappyAbsSyn59 r)) + +happyReduce_219 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_219 = happyMonadReduce 4 69 happyReduction_219 +happyReduction_219 ((HappyAbsSyn59 happy_var_4) `HappyStk` + _ `HappyStk` + (HappyTerminal (Located happy_var_2 (Token (Sym DotDot ) _))) `HappyStk` + (HappyAbsSyn59 happy_var_1) `HappyStk` + happyRest) tk + = happyThen ((( eFromToLessThan happy_var_2 happy_var_1 happy_var_4)) + ) (\r -> happyReturn (HappyAbsSyn59 r)) + +happyReduce_220 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_220 = happyMonadReduce 3 69 happyReduction_220 +happyReduction_220 ((HappyAbsSyn59 happy_var_3) `HappyStk` + (HappyTerminal (Located happy_var_2 (Token (Sym DotDotLt) _))) `HappyStk` + (HappyAbsSyn59 happy_var_1) `HappyStk` + happyRest) tk + = happyThen ((( eFromToLessThan happy_var_2 happy_var_1 happy_var_3)) + ) (\r -> happyReturn (HappyAbsSyn59 r)) + +happyReduce_221 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_221 = happyMonadReduce 5 69 happyReduction_221 +happyReduction_221 ((HappyAbsSyn59 happy_var_5) `HappyStk` + _ `HappyStk` + (HappyAbsSyn59 happy_var_3) `HappyStk` + (HappyTerminal (Located happy_var_2 (Token (Sym DotDot ) _))) `HappyStk` + (HappyAbsSyn59 happy_var_1) `HappyStk` + happyRest) tk + = happyThen ((( eFromToBy happy_var_2 happy_var_1 happy_var_3 happy_var_5 False)) + ) (\r -> happyReturn (HappyAbsSyn59 r)) + +happyReduce_222 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_222 = happyMonadReduce 6 69 happyReduction_222 +happyReduction_222 ((HappyAbsSyn59 happy_var_6) `HappyStk` + _ `HappyStk` + (HappyAbsSyn59 happy_var_4) `HappyStk` + _ `HappyStk` + (HappyTerminal (Located happy_var_2 (Token (Sym DotDot ) _))) `HappyStk` + (HappyAbsSyn59 happy_var_1) `HappyStk` + happyRest) tk + = happyThen ((( eFromToBy happy_var_2 happy_var_1 happy_var_4 happy_var_6 True)) + ) (\r -> happyReturn (HappyAbsSyn59 r)) + +happyReduce_223 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_223 = happyMonadReduce 5 69 happyReduction_223 +happyReduction_223 ((HappyAbsSyn59 happy_var_5) `HappyStk` + _ `HappyStk` + (HappyAbsSyn59 happy_var_3) `HappyStk` + (HappyTerminal (Located happy_var_2 (Token (Sym DotDotLt) _))) `HappyStk` + (HappyAbsSyn59 happy_var_1) `HappyStk` + happyRest) tk + = happyThen ((( eFromToBy happy_var_2 happy_var_1 happy_var_3 happy_var_5 True)) + ) (\r -> happyReturn (HappyAbsSyn59 r)) + +happyReduce_224 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_224 = happyMonadReduce 6 69 happyReduction_224 +happyReduction_224 ((HappyAbsSyn59 happy_var_6) `HappyStk` + _ `HappyStk` + _ `HappyStk` + (HappyAbsSyn59 happy_var_3) `HappyStk` + (HappyTerminal (Located happy_var_2 (Token (Sym DotDot ) _))) `HappyStk` + (HappyAbsSyn59 happy_var_1) `HappyStk` + happyRest) tk + = happyThen ((( eFromToDownBy happy_var_2 happy_var_1 happy_var_3 happy_var_6 False)) + ) (\r -> happyReturn (HappyAbsSyn59 r)) + +happyReduce_225 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_225 = happyMonadReduce 7 69 happyReduction_225 +happyReduction_225 ((HappyAbsSyn59 happy_var_7) `HappyStk` + _ `HappyStk` + _ `HappyStk` + (HappyAbsSyn59 happy_var_4) `HappyStk` + _ `HappyStk` + (HappyTerminal (Located happy_var_2 (Token (Sym DotDot ) _))) `HappyStk` + (HappyAbsSyn59 happy_var_1) `HappyStk` + happyRest) tk + = happyThen ((( eFromToDownBy happy_var_2 happy_var_1 happy_var_4 happy_var_7 True)) + ) (\r -> happyReturn (HappyAbsSyn59 r)) + +happyReduce_226 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_226 = happyMonadReduce 6 69 happyReduction_226 +happyReduction_226 ((HappyAbsSyn59 happy_var_6) `HappyStk` + _ `HappyStk` + _ `HappyStk` + (HappyAbsSyn59 happy_var_3) `HappyStk` + (HappyTerminal (Located happy_var_2 (Token (Sym DotDotGt) _))) `HappyStk` + (HappyAbsSyn59 happy_var_1) `HappyStk` + happyRest) tk + = happyThen ((( eFromToDownBy happy_var_2 happy_var_1 happy_var_3 happy_var_6 True)) + ) (\r -> happyReturn (HappyAbsSyn59 r)) + +happyReduce_227 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_227 = happySpecReduce_2 69 happyReduction_227 +happyReduction_227 _ + (HappyAbsSyn59 happy_var_1) + = HappyAbsSyn59 + (EInfFrom happy_var_1 Nothing + ) +happyReduction_227 _ _ = notHappyAtAll + +happyReduce_228 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_228 = happyReduce 4 69 happyReduction_228 +happyReduction_228 (_ `HappyStk` + (HappyAbsSyn59 happy_var_3) `HappyStk` + _ `HappyStk` + (HappyAbsSyn59 happy_var_1) `HappyStk` + happyRest) + = HappyAbsSyn59 + (EInfFrom happy_var_1 (Just happy_var_3) + ) `HappyStk` happyRest + +happyReduce_229 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_229 = happySpecReduce_1 70 happyReduction_229 +happyReduction_229 (HappyAbsSyn86 happy_var_1) + = HappyAbsSyn85 + ([ reverse happy_var_1 ] + ) +happyReduction_229 _ = notHappyAtAll + +happyReduce_230 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_230 = happySpecReduce_3 70 happyReduction_230 +happyReduction_230 (HappyAbsSyn86 happy_var_3) + _ + (HappyAbsSyn85 happy_var_1) + = HappyAbsSyn85 + (reverse happy_var_3 : happy_var_1 + ) +happyReduction_230 _ _ _ = notHappyAtAll + +happyReduce_231 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_231 = happySpecReduce_1 71 happyReduction_231 +happyReduction_231 (HappyAbsSyn87 happy_var_1) + = HappyAbsSyn86 + ([happy_var_1] + ) +happyReduction_231 _ = notHappyAtAll + +happyReduce_232 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_232 = happySpecReduce_3 71 happyReduction_232 +happyReduction_232 (HappyAbsSyn87 happy_var_3) + _ + (HappyAbsSyn86 happy_var_1) + = HappyAbsSyn86 + (happy_var_3 : happy_var_1 + ) +happyReduction_232 _ _ _ = notHappyAtAll + +happyReduce_233 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_233 = happySpecReduce_3 72 happyReduction_233 +happyReduction_233 (HappyAbsSyn59 happy_var_3) + _ + (HappyAbsSyn88 happy_var_1) + = HappyAbsSyn87 + (Match happy_var_1 happy_var_3 + ) +happyReduction_233 _ _ _ = notHappyAtAll + +happyReduce_234 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_234 = happySpecReduce_3 73 happyReduction_234 +happyReduction_234 (HappyAbsSyn103 happy_var_3) + _ + (HappyAbsSyn88 happy_var_1) + = HappyAbsSyn88 + (at (happy_var_1,happy_var_3) $ PTyped happy_var_1 happy_var_3 + ) +happyReduction_234 _ _ _ = notHappyAtAll + +happyReduce_235 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_235 = happySpecReduce_1 73 happyReduction_235 +happyReduction_235 (HappyAbsSyn88 happy_var_1) + = HappyAbsSyn88 + (happy_var_1 + ) +happyReduction_235 _ = notHappyAtAll + +happyReduce_236 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_236 = happySpecReduce_3 74 happyReduction_236 +happyReduction_236 (HappyAbsSyn88 happy_var_3) + _ + (HappyAbsSyn88 happy_var_1) + = HappyAbsSyn88 + (at (happy_var_1,happy_var_3) $ PSplit happy_var_1 happy_var_3 + ) +happyReduction_236 _ _ _ = notHappyAtAll + +happyReduce_237 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_237 = happySpecReduce_1 74 happyReduction_237 +happyReduction_237 (HappyAbsSyn88 happy_var_1) + = HappyAbsSyn88 + (happy_var_1 + ) +happyReduction_237 _ = notHappyAtAll + +happyReduce_238 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_238 = happySpecReduce_1 75 happyReduction_238 +happyReduction_238 (HappyAbsSyn44 happy_var_1) + = HappyAbsSyn88 + (PVar happy_var_1 + ) +happyReduction_238 _ = notHappyAtAll + +happyReduce_239 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_239 = happySpecReduce_1 75 happyReduction_239 +happyReduction_239 (HappyTerminal (Located happy_var_1 (Token (Sym Underscore ) _))) + = HappyAbsSyn88 + (at happy_var_1 $ PWild + ) +happyReduction_239 _ = notHappyAtAll + +happyReduce_240 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_240 = happySpecReduce_2 75 happyReduction_240 +happyReduction_240 (HappyTerminal (Located happy_var_2 (Token (Sym ParenR ) _))) + (HappyTerminal (Located happy_var_1 (Token (Sym ParenL ) _))) + = HappyAbsSyn88 + (at (happy_var_1,happy_var_2) $ PTuple [] + ) +happyReduction_240 _ _ = notHappyAtAll + +happyReduce_241 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_241 = happySpecReduce_3 75 happyReduction_241 +happyReduction_241 (HappyTerminal (Located happy_var_3 (Token (Sym ParenR ) _))) + (HappyAbsSyn88 happy_var_2) + (HappyTerminal (Located happy_var_1 (Token (Sym ParenL ) _))) + = HappyAbsSyn88 + (at (happy_var_1,happy_var_3) happy_var_2 + ) +happyReduction_241 _ _ _ = notHappyAtAll + +happyReduce_242 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_242 = happySpecReduce_3 75 happyReduction_242 +happyReduction_242 (HappyTerminal (Located happy_var_3 (Token (Sym ParenR ) _))) + (HappyAbsSyn45 happy_var_2) + (HappyTerminal (Located happy_var_1 (Token (Sym ParenL ) _))) + = HappyAbsSyn88 + (at (happy_var_1,happy_var_3) $ PTuple (reverse happy_var_2) + ) +happyReduction_242 _ _ _ = notHappyAtAll + +happyReduce_243 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_243 = happySpecReduce_2 75 happyReduction_243 +happyReduction_243 (HappyTerminal (Located happy_var_2 (Token (Sym BracketR) _))) + (HappyTerminal (Located happy_var_1 (Token (Sym BracketL) _))) + = HappyAbsSyn88 + (at (happy_var_1,happy_var_2) $ PList [] + ) +happyReduction_243 _ _ = notHappyAtAll + +happyReduce_244 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_244 = happySpecReduce_3 75 happyReduction_244 +happyReduction_244 (HappyTerminal (Located happy_var_3 (Token (Sym BracketR) _))) + (HappyAbsSyn88 happy_var_2) + (HappyTerminal (Located happy_var_1 (Token (Sym BracketL) _))) + = HappyAbsSyn88 + (at (happy_var_1,happy_var_3) $ PList [happy_var_2] + ) +happyReduction_244 _ _ _ = notHappyAtAll + +happyReduce_245 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_245 = happySpecReduce_3 75 happyReduction_245 +happyReduction_245 (HappyTerminal (Located happy_var_3 (Token (Sym BracketR) _))) + (HappyAbsSyn45 happy_var_2) + (HappyTerminal (Located happy_var_1 (Token (Sym BracketL) _))) + = HappyAbsSyn88 + (at (happy_var_1,happy_var_3) $ PList (reverse happy_var_2) + ) +happyReduction_245 _ _ _ = notHappyAtAll + +happyReduce_246 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_246 = happyMonadReduce 2 75 happyReduction_246 +happyReduction_246 ((HappyTerminal (Located happy_var_2 (Token (Sym CurlyR ) _))) `HappyStk` + (HappyTerminal (Located happy_var_1 (Token (Sym CurlyL ) _))) `HappyStk` + happyRest) tk + = happyThen ((( mkRecord (rComb happy_var_1 happy_var_2) PRecord [])) + ) (\r -> happyReturn (HappyAbsSyn88 r)) + +happyReduce_247 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_247 = happyMonadReduce 3 75 happyReduction_247 +happyReduction_247 ((HappyTerminal (Located happy_var_3 (Token (Sym CurlyR ) _))) `HappyStk` + (HappyAbsSyn93 happy_var_2) `HappyStk` + (HappyTerminal (Located happy_var_1 (Token (Sym CurlyL ) _))) `HappyStk` + happyRest) tk + = happyThen ((( mkRecord (rComb happy_var_1 happy_var_3) PRecord happy_var_2)) + ) (\r -> happyReturn (HappyAbsSyn88 r)) + +happyReduce_248 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_248 = happySpecReduce_3 76 happyReduction_248 +happyReduction_248 (HappyAbsSyn88 happy_var_3) + _ + (HappyAbsSyn88 happy_var_1) + = HappyAbsSyn45 + ([happy_var_3, happy_var_1] + ) +happyReduction_248 _ _ _ = notHappyAtAll + +happyReduce_249 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_249 = happySpecReduce_3 76 happyReduction_249 +happyReduction_249 (HappyAbsSyn88 happy_var_3) + _ + (HappyAbsSyn45 happy_var_1) + = HappyAbsSyn45 + (happy_var_3 : happy_var_1 + ) +happyReduction_249 _ _ _ = notHappyAtAll + +happyReduce_250 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_250 = happySpecReduce_3 77 happyReduction_250 +happyReduction_250 (HappyAbsSyn88 happy_var_3) + _ + (HappyAbsSyn112 happy_var_1) + = HappyAbsSyn92 + (Named { name = happy_var_1, value = happy_var_3 } + ) +happyReduction_250 _ _ _ = notHappyAtAll + +happyReduce_251 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_251 = happySpecReduce_1 78 happyReduction_251 +happyReduction_251 (HappyAbsSyn92 happy_var_1) + = HappyAbsSyn93 + ([happy_var_1] + ) +happyReduction_251 _ = notHappyAtAll + +happyReduce_252 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_252 = happySpecReduce_3 78 happyReduction_252 +happyReduction_252 (HappyAbsSyn92 happy_var_3) + _ + (HappyAbsSyn93 happy_var_1) + = HappyAbsSyn93 + (happy_var_3 : happy_var_1 + ) +happyReduction_252 _ _ _ = notHappyAtAll + +happyReduce_253 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_253 = happySpecReduce_1 79 happyReduction_253 +happyReduction_253 (HappyAbsSyn103 happy_var_1) + = HappyAbsSyn94 + (at happy_var_1 $ mkSchema [] [] happy_var_1 + ) +happyReduction_253 _ = notHappyAtAll + +happyReduce_254 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_254 = happySpecReduce_2 79 happyReduction_254 +happyReduction_254 (HappyAbsSyn103 happy_var_2) + (HappyAbsSyn95 happy_var_1) + = HappyAbsSyn94 + (at (happy_var_1,happy_var_2) $ mkSchema (thing happy_var_1) [] happy_var_2 + ) +happyReduction_254 _ _ = notHappyAtAll + +happyReduce_255 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_255 = happySpecReduce_2 79 happyReduction_255 +happyReduction_255 (HappyAbsSyn103 happy_var_2) + (HappyAbsSyn96 happy_var_1) + = HappyAbsSyn94 + (at (happy_var_1,happy_var_2) $ mkSchema [] (thing happy_var_1) happy_var_2 + ) +happyReduction_255 _ _ = notHappyAtAll + +happyReduce_256 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_256 = happySpecReduce_3 79 happyReduction_256 +happyReduction_256 (HappyAbsSyn103 happy_var_3) + (HappyAbsSyn96 happy_var_2) + (HappyAbsSyn95 happy_var_1) + = HappyAbsSyn94 + (at (happy_var_1,happy_var_3) $ mkSchema (thing happy_var_1) + (thing happy_var_2) happy_var_3 + ) +happyReduction_256 _ _ _ = notHappyAtAll + +happyReduce_257 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_257 = happySpecReduce_2 80 happyReduction_257 +happyReduction_257 (HappyTerminal (Located happy_var_2 (Token (Sym CurlyR ) _))) + (HappyTerminal (Located happy_var_1 (Token (Sym CurlyL ) _))) + = HappyAbsSyn95 + (Located (rComb happy_var_1 happy_var_2) [] + ) +happyReduction_257 _ _ = notHappyAtAll + +happyReduce_258 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_258 = happySpecReduce_3 80 happyReduction_258 +happyReduction_258 (HappyTerminal (Located happy_var_3 (Token (Sym CurlyR ) _))) + (HappyAbsSyn100 happy_var_2) + (HappyTerminal (Located happy_var_1 (Token (Sym CurlyL ) _))) + = HappyAbsSyn95 + (Located (rComb happy_var_1 happy_var_3) (reverse happy_var_2) + ) +happyReduction_258 _ _ _ = notHappyAtAll + +happyReduce_259 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_259 = happySpecReduce_2 81 happyReduction_259 +happyReduction_259 (HappyAbsSyn96 happy_var_2) + (HappyAbsSyn96 happy_var_1) + = HappyAbsSyn96 + (at (happy_var_1,happy_var_2) $ fmap (++ thing happy_var_2) happy_var_1 + ) +happyReduction_259 _ _ = notHappyAtAll + +happyReduce_260 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_260 = happySpecReduce_1 81 happyReduction_260 +happyReduction_260 (HappyAbsSyn96 happy_var_1) + = HappyAbsSyn96 + (happy_var_1 + ) +happyReduction_260 _ = notHappyAtAll + +happyReduce_261 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_261 = happyMonadReduce 2 82 happyReduction_261 +happyReduction_261 ((HappyTerminal (Located happy_var_2 (Token (Sym FatArrR ) _))) `HappyStk` + (HappyAbsSyn103 happy_var_1) `HappyStk` + happyRest) tk + = happyThen ((( fmap (\x -> at (x,happy_var_2) x) (mkProp happy_var_1))) + ) (\r -> happyReturn (HappyAbsSyn96 r)) + +happyReduce_262 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_262 = happySpecReduce_1 83 happyReduction_262 +happyReduction_262 (HappyTerminal (Located happy_var_1 (Token (Op Hash) _))) + = HappyAbsSyn98 + (Located happy_var_1 KNum + ) +happyReduction_262 _ = notHappyAtAll + +happyReduce_263 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_263 = happySpecReduce_1 83 happyReduction_263 +happyReduction_263 (HappyTerminal (Located happy_var_1 (Token (Op Mul) _))) + = HappyAbsSyn98 + (Located happy_var_1 KType + ) +happyReduction_263 _ = notHappyAtAll + +happyReduce_264 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_264 = happySpecReduce_1 83 happyReduction_264 +happyReduction_264 (HappyTerminal (Located happy_var_1 (Token (KW KW_Prop) _))) + = HappyAbsSyn98 + (Located happy_var_1 KProp + ) +happyReduction_264 _ = notHappyAtAll + +happyReduce_265 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_265 = happySpecReduce_3 83 happyReduction_265 +happyReduction_265 (HappyAbsSyn98 happy_var_3) + _ + (HappyAbsSyn98 happy_var_1) + = HappyAbsSyn98 + (combLoc KFun happy_var_1 happy_var_3 + ) +happyReduction_265 _ _ _ = notHappyAtAll + +happyReduce_266 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_266 = happyMonadReduce 1 84 happyReduction_266 +happyReduction_266 ((HappyAbsSyn112 happy_var_1) `HappyStk` + happyRest) tk + = happyThen ((( mkTParam happy_var_1 Nothing)) + ) (\r -> happyReturn (HappyAbsSyn99 r)) + +happyReduce_267 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_267 = happyMonadReduce 3 84 happyReduction_267 +happyReduction_267 ((HappyAbsSyn98 happy_var_3) `HappyStk` + _ `HappyStk` + (HappyAbsSyn112 happy_var_1) `HappyStk` + happyRest) tk + = happyThen ((( mkTParam (at (happy_var_1,happy_var_3) happy_var_1) (Just (thing happy_var_3)))) + ) (\r -> happyReturn (HappyAbsSyn99 r)) + +happyReduce_268 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_268 = happySpecReduce_1 85 happyReduction_268 +happyReduction_268 (HappyAbsSyn99 happy_var_1) + = HappyAbsSyn100 + ([happy_var_1] + ) +happyReduction_268 _ = notHappyAtAll + +happyReduce_269 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_269 = happySpecReduce_3 85 happyReduction_269 +happyReduction_269 (HappyAbsSyn99 happy_var_3) + _ + (HappyAbsSyn100 happy_var_1) + = HappyAbsSyn100 + (happy_var_3 : happy_var_1 + ) +happyReduction_269 _ _ _ = notHappyAtAll + +happyReduce_270 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_270 = happyMonadReduce 1 86 happyReduction_270 +happyReduction_270 ((HappyAbsSyn112 happy_var_1) `HappyStk` + happyRest) tk + = happyThen ((( mkTParam happy_var_1 Nothing)) + ) (\r -> happyReturn (HappyAbsSyn99 r)) + +happyReduce_271 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_271 = happyMonadReduce 5 86 happyReduction_271 +happyReduction_271 ((HappyTerminal (Located happy_var_5 (Token (Sym ParenR ) _))) `HappyStk` + (HappyAbsSyn98 happy_var_4) `HappyStk` + _ `HappyStk` + (HappyAbsSyn112 happy_var_2) `HappyStk` + (HappyTerminal (Located happy_var_1 (Token (Sym ParenL ) _))) `HappyStk` + happyRest) tk + = happyThen ((( mkTParam (at (happy_var_1,happy_var_5) happy_var_2) (Just (thing happy_var_4)))) + ) (\r -> happyReturn (HappyAbsSyn99 r)) + +happyReduce_272 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_272 = happySpecReduce_1 87 happyReduction_272 +happyReduction_272 (HappyAbsSyn99 happy_var_1) + = HappyAbsSyn100 + ([happy_var_1] + ) +happyReduction_272 _ = notHappyAtAll + +happyReduce_273 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_273 = happySpecReduce_2 87 happyReduction_273 +happyReduction_273 (HappyAbsSyn99 happy_var_2) + (HappyAbsSyn100 happy_var_1) + = HappyAbsSyn100 + (happy_var_2 : happy_var_1 + ) +happyReduction_273 _ _ = notHappyAtAll + +happyReduce_274 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_274 = happySpecReduce_3 88 happyReduction_274 +happyReduction_274 (HappyAbsSyn103 happy_var_3) + _ + (HappyAbsSyn103 happy_var_1) + = HappyAbsSyn103 + (at (happy_var_1,happy_var_3) $ TFun happy_var_1 happy_var_3 + ) +happyReduction_274 _ _ _ = notHappyAtAll + +happyReduce_275 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_275 = happySpecReduce_1 88 happyReduction_275 +happyReduction_275 (HappyAbsSyn103 happy_var_1) + = HappyAbsSyn103 + (happy_var_1 + ) +happyReduction_275 _ = notHappyAtAll + +happyReduce_276 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_276 = happySpecReduce_3 89 happyReduction_276 +happyReduction_276 (HappyAbsSyn103 happy_var_3) + (HappyAbsSyn44 happy_var_2) + (HappyAbsSyn103 happy_var_1) + = HappyAbsSyn103 + (at (happy_var_1,happy_var_3) $ TInfix happy_var_1 happy_var_2 defaultFixity happy_var_3 + ) +happyReduction_276 _ _ _ = notHappyAtAll + +happyReduce_277 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_277 = happySpecReduce_1 89 happyReduction_277 +happyReduction_277 (HappyAbsSyn103 happy_var_1) + = HappyAbsSyn103 + (happy_var_1 + ) +happyReduction_277 _ = notHappyAtAll + +happyReduce_278 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_278 = happySpecReduce_2 90 happyReduction_278 +happyReduction_278 (HappyAbsSyn103 happy_var_2) + (HappyAbsSyn108 happy_var_1) + = HappyAbsSyn103 + (at (happy_var_1,happy_var_2) $ foldr TSeq happy_var_2 (reverse (thing happy_var_1)) + ) +happyReduction_278 _ _ = notHappyAtAll + +happyReduce_279 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_279 = happySpecReduce_2 90 happyReduction_279 +happyReduction_279 (HappyAbsSyn107 happy_var_2) + (HappyAbsSyn116 happy_var_1) + = HappyAbsSyn103 + (at (happy_var_1,head happy_var_2) + $ TUser (thing happy_var_1) (reverse happy_var_2) + ) +happyReduction_279 _ _ = notHappyAtAll + +happyReduce_280 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_280 = happySpecReduce_1 90 happyReduction_280 +happyReduction_280 (HappyAbsSyn103 happy_var_1) + = HappyAbsSyn103 + (happy_var_1 + ) +happyReduction_280 _ = notHappyAtAll + +happyReduce_281 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_281 = happySpecReduce_1 91 happyReduction_281 +happyReduction_281 (HappyAbsSyn116 happy_var_1) + = HappyAbsSyn103 + (at happy_var_1 $ TUser (thing happy_var_1) [] + ) +happyReduction_281 _ = notHappyAtAll + +happyReduce_282 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_282 = happySpecReduce_3 91 happyReduction_282 +happyReduction_282 _ + (HappyAbsSyn44 happy_var_2) + (HappyTerminal (Located happy_var_1 (Token (Sym ParenL ) _))) + = HappyAbsSyn103 + (at happy_var_1 $ TUser (thing happy_var_2) [] + ) +happyReduction_282 _ _ _ = notHappyAtAll + +happyReduce_283 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_283 = happySpecReduce_1 91 happyReduction_283 +happyReduction_283 (HappyTerminal (happy_var_1@(Located _ (Token (Num {}) _)))) + = HappyAbsSyn103 + (at happy_var_1 $ TNum (getNum happy_var_1) + ) +happyReduction_283 _ = notHappyAtAll + +happyReduce_284 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_284 = happySpecReduce_1 91 happyReduction_284 +happyReduction_284 (HappyTerminal (happy_var_1@(Located _ (Token (ChrLit {}) _)))) + = HappyAbsSyn103 + (at happy_var_1 $ TChar (getChr happy_var_1) + ) +happyReduction_284 _ = notHappyAtAll + +happyReduce_285 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_285 = happySpecReduce_3 91 happyReduction_285 +happyReduction_285 (HappyTerminal (Located happy_var_3 (Token (Sym BracketR) _))) + (HappyAbsSyn103 happy_var_2) + (HappyTerminal (Located happy_var_1 (Token (Sym BracketL) _))) + = HappyAbsSyn103 + (at (happy_var_1,happy_var_3) $ TSeq happy_var_2 TBit + ) +happyReduction_285 _ _ _ = notHappyAtAll + +happyReduce_286 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_286 = happySpecReduce_3 91 happyReduction_286 +happyReduction_286 (HappyTerminal (Located happy_var_3 (Token (Sym ParenR ) _))) + (HappyAbsSyn103 happy_var_2) + (HappyTerminal (Located happy_var_1 (Token (Sym ParenL ) _))) + = HappyAbsSyn103 + (at (happy_var_1,happy_var_3) $ TParens happy_var_2 + ) +happyReduction_286 _ _ _ = notHappyAtAll + +happyReduce_287 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_287 = happySpecReduce_2 91 happyReduction_287 +happyReduction_287 (HappyTerminal (Located happy_var_2 (Token (Sym ParenR ) _))) + (HappyTerminal (Located happy_var_1 (Token (Sym ParenL ) _))) + = HappyAbsSyn103 + (at (happy_var_1,happy_var_2) $ TTuple [] + ) +happyReduction_287 _ _ = notHappyAtAll + +happyReduce_288 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_288 = happySpecReduce_3 91 happyReduction_288 +happyReduction_288 (HappyTerminal (Located happy_var_3 (Token (Sym ParenR ) _))) + (HappyAbsSyn109 happy_var_2) + (HappyTerminal (Located happy_var_1 (Token (Sym ParenL ) _))) + = HappyAbsSyn103 + (at (happy_var_1,happy_var_3) $ TTuple (reverse happy_var_2) + ) +happyReduction_288 _ _ _ = notHappyAtAll + +happyReduce_289 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_289 = happyMonadReduce 2 91 happyReduction_289 +happyReduction_289 ((HappyTerminal (Located happy_var_2 (Token (Sym CurlyR ) _))) `HappyStk` + (HappyTerminal (Located happy_var_1 (Token (Sym CurlyL ) _))) `HappyStk` + happyRest) tk + = happyThen ((( mkRecord (rComb happy_var_1 happy_var_2) TRecord [])) + ) (\r -> happyReturn (HappyAbsSyn103 r)) + +happyReduce_290 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_290 = happyMonadReduce 3 91 happyReduction_290 +happyReduction_290 ((HappyTerminal (Located happy_var_3 (Token (Sym CurlyR ) _))) `HappyStk` + (HappyAbsSyn111 happy_var_2) `HappyStk` + (HappyTerminal (Located happy_var_1 (Token (Sym CurlyL ) _))) `HappyStk` + happyRest) tk + = happyThen ((( mkRecord (rComb happy_var_1 happy_var_3) TRecord happy_var_2)) + ) (\r -> happyReturn (HappyAbsSyn103 r)) + +happyReduce_291 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_291 = happySpecReduce_1 91 happyReduction_291 +happyReduction_291 (HappyTerminal (Located happy_var_1 (Token (Sym Underscore ) _))) + = HappyAbsSyn103 + (at happy_var_1 TWild + ) +happyReduction_291 _ = notHappyAtAll + +happyReduce_292 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_292 = happySpecReduce_1 92 happyReduction_292 +happyReduction_292 (HappyAbsSyn103 happy_var_1) + = HappyAbsSyn107 + ([ happy_var_1 ] + ) +happyReduction_292 _ = notHappyAtAll + +happyReduce_293 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_293 = happySpecReduce_2 92 happyReduction_293 +happyReduction_293 (HappyAbsSyn103 happy_var_2) + (HappyAbsSyn107 happy_var_1) + = HappyAbsSyn107 + (happy_var_2 : happy_var_1 + ) +happyReduction_293 _ _ = notHappyAtAll + +happyReduce_294 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_294 = happySpecReduce_3 93 happyReduction_294 +happyReduction_294 (HappyTerminal (Located happy_var_3 (Token (Sym BracketR) _))) + (HappyAbsSyn103 happy_var_2) + (HappyTerminal (Located happy_var_1 (Token (Sym BracketL) _))) + = HappyAbsSyn108 + (Located (rComb happy_var_1 happy_var_3) [ happy_var_2 ] + ) +happyReduction_294 _ _ _ = notHappyAtAll + +happyReduce_295 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_295 = happyReduce 4 93 happyReduction_295 +happyReduction_295 ((HappyTerminal (Located happy_var_4 (Token (Sym BracketR) _))) `HappyStk` + (HappyAbsSyn103 happy_var_3) `HappyStk` + _ `HappyStk` + (HappyAbsSyn108 happy_var_1) `HappyStk` + happyRest) + = HappyAbsSyn108 + (at (happy_var_1,happy_var_4) (fmap (happy_var_3 :) happy_var_1) + ) `HappyStk` happyRest + +happyReduce_296 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_296 = happySpecReduce_3 94 happyReduction_296 +happyReduction_296 (HappyAbsSyn103 happy_var_3) + _ + (HappyAbsSyn103 happy_var_1) + = HappyAbsSyn109 + ([ happy_var_3, happy_var_1] + ) +happyReduction_296 _ _ _ = notHappyAtAll + +happyReduce_297 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_297 = happySpecReduce_3 94 happyReduction_297 +happyReduction_297 (HappyAbsSyn103 happy_var_3) + _ + (HappyAbsSyn109 happy_var_1) + = HappyAbsSyn109 + (happy_var_3 : happy_var_1 + ) +happyReduction_297 _ _ _ = notHappyAtAll + +happyReduce_298 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_298 = happySpecReduce_3 95 happyReduction_298 +happyReduction_298 (HappyAbsSyn103 happy_var_3) + _ + (HappyAbsSyn112 happy_var_1) + = HappyAbsSyn110 + (Named { name = happy_var_1, value = happy_var_3 } + ) +happyReduction_298 _ _ _ = notHappyAtAll + +happyReduce_299 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_299 = happySpecReduce_1 96 happyReduction_299 +happyReduction_299 (HappyAbsSyn110 happy_var_1) + = HappyAbsSyn111 + ([happy_var_1] + ) +happyReduction_299 _ = notHappyAtAll + +happyReduce_300 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_300 = happySpecReduce_3 96 happyReduction_300 +happyReduction_300 (HappyAbsSyn110 happy_var_3) + _ + (HappyAbsSyn111 happy_var_1) + = HappyAbsSyn111 + (happy_var_3 : happy_var_1 + ) +happyReduction_300 _ _ _ = notHappyAtAll + +happyReduce_301 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_301 = happySpecReduce_1 97 happyReduction_301 +happyReduction_301 (HappyTerminal (happy_var_1@(Located _ (Token (Ident [] _) _)))) + = HappyAbsSyn112 + (let Token (Ident _ str) _ = thing happy_var_1 + in happy_var_1 { thing = mkIdent str } + ) +happyReduction_301 _ = notHappyAtAll + +happyReduce_302 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_302 = happySpecReduce_1 97 happyReduction_302 +happyReduction_302 (HappyTerminal (Located happy_var_1 (Token (KW KW_x) _))) + = HappyAbsSyn112 + (Located { srcRange = happy_var_1, thing = mkIdent "x" } + ) +happyReduction_302 _ = notHappyAtAll + +happyReduce_303 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_303 = happySpecReduce_1 97 happyReduction_303 +happyReduction_303 (HappyTerminal (Located happy_var_1 (Token (KW KW_private) _))) + = HappyAbsSyn112 + (Located { srcRange = happy_var_1, thing = mkIdent "private" } + ) +happyReduction_303 _ = notHappyAtAll + +happyReduce_304 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_304 = happySpecReduce_1 97 happyReduction_304 +happyReduction_304 (HappyTerminal (Located happy_var_1 (Token (KW KW_as) _))) + = HappyAbsSyn112 + (Located { srcRange = happy_var_1, thing = mkIdent "as" } + ) +happyReduction_304 _ = notHappyAtAll + +happyReduce_305 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_305 = happySpecReduce_1 97 happyReduction_305 +happyReduction_305 (HappyTerminal (Located happy_var_1 (Token (KW KW_hiding) _))) + = HappyAbsSyn112 + (Located { srcRange = happy_var_1, thing = mkIdent "hiding" } + ) +happyReduction_305 _ = notHappyAtAll + +happyReduce_306 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_306 = happySpecReduce_1 98 happyReduction_306 +happyReduction_306 (HappyAbsSyn112 happy_var_1) + = HappyAbsSyn44 + (fmap mkUnqual happy_var_1 + ) +happyReduction_306 _ = notHappyAtAll + +happyReduce_307 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_307 = happySpecReduce_1 99 happyReduction_307 +happyReduction_307 (HappyAbsSyn112 happy_var_1) + = HappyAbsSyn114 + (fmap (mkModName . (:[]) . identText) happy_var_1 + ) +happyReduction_307 _ = notHappyAtAll + +happyReduce_308 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_308 = happySpecReduce_1 99 happyReduction_308 +happyReduction_308 (HappyTerminal (happy_var_1@(Located _ (Token Ident{} _)))) + = HappyAbsSyn114 + (let Token (Ident ns i) _ = thing happy_var_1 + in mkModName (ns ++ [i]) A.<$ happy_var_1 + ) +happyReduction_308 _ = notHappyAtAll + +happyReduce_309 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_309 = happySpecReduce_1 100 happyReduction_309 +happyReduction_309 (HappyAbsSyn114 happy_var_1) + = HappyAbsSyn114 + (happy_var_1 + ) +happyReduction_309 _ = notHappyAtAll + +happyReduce_310 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_310 = happySpecReduce_2 100 happyReduction_310 +happyReduction_310 (HappyAbsSyn114 happy_var_2) + _ + = HappyAbsSyn114 + (fmap paramInstModName happy_var_2 + ) +happyReduction_310 _ _ = notHappyAtAll + +happyReduce_311 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_311 = happySpecReduce_1 101 happyReduction_311 +happyReduction_311 (HappyAbsSyn44 happy_var_1) + = HappyAbsSyn116 + (happy_var_1 + ) +happyReduction_311 _ = notHappyAtAll + +happyReduce_312 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_312 = happySpecReduce_1 101 happyReduction_312 +happyReduction_312 (HappyTerminal (happy_var_1@(Located _ (Token Ident{} _)))) + = HappyAbsSyn116 + (let Token (Ident ns i) _ = thing happy_var_1 + in mkQual (mkModName ns) (mkIdent i) A.<$ happy_var_1 + ) +happyReduction_312 _ = notHappyAtAll + +happyReduce_313 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_313 = happySpecReduce_1 102 happyReduction_313 +happyReduction_313 (HappyAbsSyn116 happy_var_1) + = HappyAbsSyn116 + (happy_var_1 + ) +happyReduction_313 _ = notHappyAtAll + +happyReduce_314 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_314 = happySpecReduce_1 102 happyReduction_314 +happyReduction_314 (HappyAbsSyn44 happy_var_1) + = HappyAbsSyn116 + (happy_var_1 + ) +happyReduction_314 _ = notHappyAtAll + +happyReduce_315 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_315 = happySpecReduce_3 102 happyReduction_315 +happyReduction_315 _ + (HappyAbsSyn44 happy_var_2) + _ + = HappyAbsSyn116 + (happy_var_2 + ) +happyReduction_315 _ _ _ = notHappyAtAll + +happyReduce_316 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_316 = happySpecReduce_1 103 happyReduction_316 +happyReduction_316 (HappyAbsSyn116 happy_var_1) + = HappyAbsSyn103 + (at happy_var_1 $ TUser (thing happy_var_1) [] + ) +happyReduction_316 _ = notHappyAtAll + +happyReduce_317 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_317 = happySpecReduce_1 103 happyReduction_317 +happyReduction_317 (HappyTerminal (happy_var_1@(Located _ (Token (Num {}) _)))) + = HappyAbsSyn103 + (at happy_var_1 $ TNum (getNum happy_var_1) + ) +happyReduction_317 _ = notHappyAtAll + +happyReduce_318 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_318 = happyMonadReduce 3 103 happyReduction_318 +happyReduction_318 ((HappyTerminal (Located happy_var_3 (Token (Sym ParenR ) _))) `HappyStk` + (HappyAbsSyn103 happy_var_2) `HappyStk` + (HappyTerminal (Located happy_var_1 (Token (Sym ParenL ) _))) `HappyStk` + happyRest) tk + = happyThen ((( validDemotedType (rComb happy_var_1 happy_var_3) happy_var_2)) + ) (\r -> happyReturn (HappyAbsSyn103 r)) + +happyReduce_319 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_319 = happySpecReduce_2 103 happyReduction_319 +happyReduction_319 (HappyTerminal (Located happy_var_2 (Token (Sym CurlyR ) _))) + (HappyTerminal (Located happy_var_1 (Token (Sym CurlyL ) _))) + = HappyAbsSyn103 + (at (happy_var_1,happy_var_2) (TTyApp []) + ) +happyReduction_319 _ _ = notHappyAtAll + +happyReduce_320 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_320 = happySpecReduce_3 103 happyReduction_320 +happyReduction_320 (HappyTerminal (Located happy_var_3 (Token (Sym CurlyR ) _))) + (HappyAbsSyn111 happy_var_2) + (HappyTerminal (Located happy_var_1 (Token (Sym CurlyL ) _))) + = HappyAbsSyn103 + (at (happy_var_1,happy_var_3) (TTyApp (reverse happy_var_2)) + ) +happyReduction_320 _ _ _ = notHappyAtAll + +happyReduce_321 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_321 = happySpecReduce_3 103 happyReduction_321 +happyReduction_321 (HappyTerminal (Located happy_var_3 (Token (Sym CurlyR ) _))) + (HappyAbsSyn103 happy_var_2) + (HappyTerminal (Located happy_var_1 (Token (Sym CurlyL ) _))) + = HappyAbsSyn103 + (anonTyApp (getLoc (happy_var_1,happy_var_3)) [happy_var_2] + ) +happyReduction_321 _ _ _ = notHappyAtAll + +happyReduce_322 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_322 = happySpecReduce_3 103 happyReduction_322 +happyReduction_322 (HappyTerminal (Located happy_var_3 (Token (Sym CurlyR ) _))) + (HappyAbsSyn109 happy_var_2) + (HappyTerminal (Located happy_var_1 (Token (Sym CurlyL ) _))) + = HappyAbsSyn103 + (anonTyApp (getLoc (happy_var_1,happy_var_3)) (reverse happy_var_2) + ) +happyReduction_322 _ _ _ = notHappyAtAll + +happyReduce_323 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_323 = happySpecReduce_3 104 happyReduction_323 +happyReduction_323 (HappyAbsSyn103 happy_var_3) + _ + (HappyAbsSyn112 happy_var_1) + = HappyAbsSyn110 + (Named { name = happy_var_1, value = happy_var_3 } + ) +happyReduction_323 _ _ _ = notHappyAtAll + +happyReduce_324 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_324 = happySpecReduce_1 105 happyReduction_324 +happyReduction_324 (HappyAbsSyn110 happy_var_1) + = HappyAbsSyn111 + ([happy_var_1] + ) +happyReduction_324 _ = notHappyAtAll + +happyReduce_325 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_325 = happySpecReduce_3 105 happyReduction_325 +happyReduction_325 (HappyAbsSyn110 happy_var_3) + _ + (HappyAbsSyn111 happy_var_1) + = HappyAbsSyn111 + (happy_var_3 : happy_var_1 + ) +happyReduction_325 _ _ _ = notHappyAtAll + +happyNewToken action sts stk + = lexerP(\tk -> + let cont i = happyDoAction i tk action sts stk in + case tk of { + Located _ (Token EOF _) -> happyDoAction 72 tk action sts stk; + happy_dollar_dollar@(Located _ (Token (Num {}) _)) -> cont 1; + happy_dollar_dollar@(Located _ (Token (Frac {}) _)) -> cont 2; + happy_dollar_dollar@(Located _ (Token (StrLit {}) _)) -> cont 3; + happy_dollar_dollar@(Located _ (Token (ChrLit {}) _)) -> cont 4; + happy_dollar_dollar@(Located _ (Token (Ident [] _) _)) -> cont 5; + happy_dollar_dollar@(Located _ (Token Ident{} _)) -> cont 6; + happy_dollar_dollar@(Located _ (Token (Selector _) _)) -> cont 7; + Located happy_dollar_dollar (Token (KW KW_include) _) -> cont 8; + Located happy_dollar_dollar (Token (KW KW_import) _) -> cont 9; + Located happy_dollar_dollar (Token (KW KW_as) _) -> cont 10; + Located happy_dollar_dollar (Token (KW KW_hiding) _) -> cont 11; + Located happy_dollar_dollar (Token (KW KW_private) _) -> cont 12; + Located happy_dollar_dollar (Token (KW KW_parameter) _) -> cont 13; + Located happy_dollar_dollar (Token (KW KW_property) _) -> cont 14; + Located happy_dollar_dollar (Token (KW KW_infix) _) -> cont 15; + Located happy_dollar_dollar (Token (KW KW_infixl) _) -> cont 16; + Located happy_dollar_dollar (Token (KW KW_infixr) _) -> cont 17; + Located happy_dollar_dollar (Token (KW KW_type ) _) -> cont 18; + Located happy_dollar_dollar (Token (KW KW_newtype) _) -> cont 19; + Located happy_dollar_dollar (Token (KW KW_module ) _) -> cont 20; + Located happy_dollar_dollar (Token (KW KW_submodule ) _) -> cont 21; + Located happy_dollar_dollar (Token (KW KW_where ) _) -> cont 22; + Located happy_dollar_dollar (Token (KW KW_let ) _) -> cont 23; + Located happy_dollar_dollar (Token (KW KW_if ) _) -> cont 24; + Located happy_dollar_dollar (Token (KW KW_then ) _) -> cont 25; + Located happy_dollar_dollar (Token (KW KW_else ) _) -> cont 26; + Located happy_dollar_dollar (Token (KW KW_x) _) -> cont 27; + Located happy_dollar_dollar (Token (KW KW_down) _) -> cont 28; + Located happy_dollar_dollar (Token (KW KW_by) _) -> cont 29; + Located happy_dollar_dollar (Token (KW KW_primitive) _) -> cont 30; + Located happy_dollar_dollar (Token (KW KW_constraint) _) -> cont 31; + Located happy_dollar_dollar (Token (KW KW_Prop) _) -> cont 32; + Located happy_dollar_dollar (Token (KW KW_propguards)) -> cont 33; + Located happy_dollar_dollar (Token (Sym BracketL) _) -> cont 34; + Located happy_dollar_dollar (Token (Sym BracketR) _) -> cont 35; + Located happy_dollar_dollar (Token (Sym ArrL ) _) -> cont 36; + Located happy_dollar_dollar (Token (Sym DotDot ) _) -> cont 37; + Located happy_dollar_dollar (Token (Sym DotDotDot) _) -> cont 38; + Located happy_dollar_dollar (Token (Sym DotDotLt) _) -> cont 39; + Located happy_dollar_dollar (Token (Sym DotDotGt) _) -> cont 40; + Located happy_dollar_dollar (Token (Sym Bar ) _) -> cont 41; + Located happy_dollar_dollar (Token (Sym Lt ) _) -> cont 42; + Located happy_dollar_dollar (Token (Sym Gt ) _) -> cont 43; + Located happy_dollar_dollar (Token (Sym ParenL ) _) -> cont 44; + Located happy_dollar_dollar (Token (Sym ParenR ) _) -> cont 45; + Located happy_dollar_dollar (Token (Sym Comma ) _) -> cont 46; + Located happy_dollar_dollar (Token (Sym Semi ) _) -> cont 47; + Located happy_dollar_dollar (Token (Sym CurlyL ) _) -> cont 48; + Located happy_dollar_dollar (Token (Sym CurlyR ) _) -> cont 49; + Located happy_dollar_dollar (Token (Sym TriL ) _) -> cont 50; + Located happy_dollar_dollar (Token (Sym TriR ) _) -> cont 51; + Located happy_dollar_dollar (Token (Sym EqDef ) _) -> cont 52; + Located happy_dollar_dollar (Token (Sym BackTick) _) -> cont 53; + Located happy_dollar_dollar (Token (Sym Colon ) _) -> cont 54; + Located happy_dollar_dollar (Token (Sym ArrR ) _) -> cont 55; + Located happy_dollar_dollar (Token (Sym FatArrR ) _) -> cont 56; + Located happy_dollar_dollar (Token (Sym Lambda ) _) -> cont 57; + Located happy_dollar_dollar (Token (Sym Underscore ) _) -> cont 58; + Located happy_dollar_dollar (Token (Virt VCurlyL) _) -> cont 59; + Located happy_dollar_dollar (Token (Virt VCurlyR) _) -> cont 60; + Located happy_dollar_dollar (Token (Virt VSemi) _) -> cont 61; + Located happy_dollar_dollar (Token (Op Plus) _) -> cont 62; + Located happy_dollar_dollar (Token (Op Mul) _) -> cont 63; + Located happy_dollar_dollar (Token (Op Exp) _) -> cont 64; + Located happy_dollar_dollar (Token (Op Minus) _) -> cont 65; + Located happy_dollar_dollar (Token (Op Complement) _) -> cont 66; + Located happy_dollar_dollar (Token (Op Hash) _) -> cont 67; + Located happy_dollar_dollar (Token (Op At) _) -> cont 68; + happy_dollar_dollar@(Located _ (Token (Op (Other [] _)) _)) -> cont 69; + happy_dollar_dollar@(Located _ (Token (Op Other{} ) _)) -> cont 70; + happy_dollar_dollar@(Located _ (Token (White DocStr) _)) -> cont 71; + _ -> happyError' (tk, []) + }) + +happyError_ explist 72 tk = happyError' (tk, explist) +happyError_ explist _ tk = happyError' (tk, explist) + +happyThen :: () => ParseM a -> (a -> ParseM b) -> ParseM b +happyThen = (Prelude.>>=) +happyReturn :: () => a -> ParseM a +happyReturn = (Prelude.return) +happyParse :: () => Prelude.Int -> ParseM (HappyAbsSyn ) + +happyNewToken :: () => Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) + +happyDoAction :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) + +happyReduceArr :: () => Happy_Data_Array.Array Prelude.Int (Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn )) + +happyThen1 :: () => ParseM a -> (a -> ParseM b) -> ParseM b +happyThen1 = happyThen +happyReturn1 :: () => a -> ParseM a +happyReturn1 = happyReturn +happyError' :: () => ((Located Token), [Prelude.String]) -> ParseM a +happyError' tk = (\(tokens, explist) -> happyError) tk +vmodule = happySomeParser where + happySomeParser = happyThen (happyParse 0) (\x -> case x of {HappyAbsSyn15 z -> happyReturn z; _other -> notHappyAtAll }) + +program = happySomeParser where + happySomeParser = happyThen (happyParse 1) (\x -> case x of {HappyAbsSyn24 z -> happyReturn z; _other -> notHappyAtAll }) + +programLayout = happySomeParser where + happySomeParser = happyThen (happyParse 2) (\x -> case x of {HappyAbsSyn24 z -> happyReturn z; _other -> notHappyAtAll }) + +expr = happySomeParser where + happySomeParser = happyThen (happyParse 3) (\x -> case x of {HappyAbsSyn59 z -> happyReturn z; _other -> notHappyAtAll }) + +decl = happySomeParser where + happySomeParser = happyThen (happyParse 4) (\x -> case x of {HappyAbsSyn38 z -> happyReturn z; _other -> notHappyAtAll }) + +decls = happySomeParser where + happySomeParser = happyThen (happyParse 5) (\x -> case x of {HappyAbsSyn39 z -> happyReturn z; _other -> notHappyAtAll }) + +declsLayout = happySomeParser where + happySomeParser = happyThen (happyParse 6) (\x -> case x of {HappyAbsSyn39 z -> happyReturn z; _other -> notHappyAtAll }) + +letDecl = happySomeParser where + happySomeParser = happyThen (happyParse 7) (\x -> case x of {HappyAbsSyn38 z -> happyReturn z; _other -> notHappyAtAll }) + +repl = happySomeParser where + happySomeParser = happyThen (happyParse 8) (\x -> case x of {HappyAbsSyn53 z -> happyReturn z; _other -> notHappyAtAll }) + +schema = happySomeParser where + happySomeParser = happyThen (happyParse 9) (\x -> case x of {HappyAbsSyn94 z -> happyReturn z; _other -> notHappyAtAll }) + +modName = happySomeParser where + happySomeParser = happyThen (happyParse 10) (\x -> case x of {HappyAbsSyn114 z -> happyReturn z; _other -> notHappyAtAll }) + +helpName = happySomeParser where + happySomeParser = happyThen (happyParse 11) (\x -> case x of {HappyAbsSyn116 z -> happyReturn z; _other -> notHappyAtAll }) + +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" #-} +-- $Id: GenericTemplate.hs,v 1.26 2005/01/14 14:47:22 simonmar Exp $ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +data Happy_IntList = HappyCons Prelude.Int Happy_IntList + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +happyTrace string expr = Happy_System_IO_Unsafe.unsafePerformIO $ do + Happy_System_IO.hPutStr Happy_System_IO.stderr string + return expr + + + + +infixr 9 `HappyStk` +data HappyStk a = HappyStk a (HappyStk a) + +----------------------------------------------------------------------------- +-- starting the parse + +happyParse start_state = happyNewToken start_state notHappyAtAll notHappyAtAll + +----------------------------------------------------------------------------- +-- Accepting the parse + +-- If the current token is ERROR_TOK, it means we've just accepted a partial +-- parse (a %partial parser). We must ignore the saved token on the top of +-- the stack in this case. +happyAccept (0) tk st sts (_ `HappyStk` ans `HappyStk` _) = + happyReturn1 ans +happyAccept j tk st sts (HappyStk ans _) = + (happyReturn1 ans) + +----------------------------------------------------------------------------- +-- Arrays only: do the next action + + + +happyDoAction i tk st + = (happyTrace ("state: " ++ show (st) ++ + ",\ttoken: " ++ show (i) ++ + ",\taction: ")) $ + case action of + (0) -> (happyTrace ("fail.\n")) $ + happyFail (happyExpListPerState ((st) :: Prelude.Int)) i tk st + (-1) -> (happyTrace ("accept.\n")) $ + happyAccept i tk st + n | (n Prelude.< ((0) :: Prelude.Int)) -> (happyTrace ("reduce (rule " ++ show rule + ++ ")")) $ + (happyReduceArr Happy_Data_Array.! rule) i tk st + where rule = ((Prelude.negate ((n Prelude.+ ((1) :: Prelude.Int))))) + n -> (happyTrace ("shift, enter state " + ++ show (new_state) + ++ "\n")) $ + happyShift new_state i tk st + where new_state = (n Prelude.- ((1) :: Prelude.Int)) + where off = happyAdjustOffset (indexShortOffAddr happyActOffsets st) + off_i = (off Prelude.+ i) + check = if (off_i Prelude.>= ((0) :: Prelude.Int)) + then (indexShortOffAddr happyCheck off_i Prelude.== i) + else Prelude.False + action + | check = indexShortOffAddr happyTable off_i + | Prelude.otherwise = indexShortOffAddr happyDefActions st + + + + + + + + + + + + +indexShortOffAddr arr off = arr Happy_Data_Array.! off + + +{-# INLINE happyLt #-} +happyLt x y = (x Prelude.< y) + + + + + + +readArrayBit arr bit = + Bits.testBit (indexShortOffAddr arr (bit `Prelude.div` 16)) (bit `Prelude.mod` 16) + + + + + + +----------------------------------------------------------------------------- +-- HappyState data type (not arrays) + + + + + + + + + + + + + +----------------------------------------------------------------------------- +-- Shifting a token + +happyShift new_state (0) tk st sts stk@(x `HappyStk` _) = + let i = (case x of { HappyErrorToken (i) -> i }) in +-- trace "shifting the error token" $ + happyDoAction i tk new_state (HappyCons (st) (sts)) (stk) + +happyShift new_state i tk st sts stk = + happyNewToken new_state (HappyCons (st) (sts)) ((HappyTerminal (tk))`HappyStk`stk) + +-- happyReduce is specialised for the common cases. + +happySpecReduce_0 i fn (0) tk st sts stk + = happyFail [] (0) tk st sts stk +happySpecReduce_0 nt fn j tk st@((action)) sts stk + = happyGoto nt j tk st (HappyCons (st) (sts)) (fn `HappyStk` stk) + +happySpecReduce_1 i fn (0) tk st sts stk + = happyFail [] (0) tk st sts stk +happySpecReduce_1 nt fn j tk _ sts@((HappyCons (st@(action)) (_))) (v1`HappyStk`stk') + = let r = fn v1 in + happySeq r (happyGoto nt j tk st sts (r `HappyStk` stk')) + +happySpecReduce_2 i fn (0) tk st sts stk + = happyFail [] (0) tk st sts stk +happySpecReduce_2 nt fn j tk _ (HappyCons (_) (sts@((HappyCons (st@(action)) (_))))) (v1`HappyStk`v2`HappyStk`stk') + = let r = fn v1 v2 in + happySeq r (happyGoto nt j tk st sts (r `HappyStk` stk')) + +happySpecReduce_3 i fn (0) tk st sts stk + = happyFail [] (0) tk st sts stk +happySpecReduce_3 nt fn j tk _ (HappyCons (_) ((HappyCons (_) (sts@((HappyCons (st@(action)) (_))))))) (v1`HappyStk`v2`HappyStk`v3`HappyStk`stk') + = let r = fn v1 v2 v3 in + happySeq r (happyGoto nt j tk st sts (r `HappyStk` stk')) + +happyReduce k i fn (0) tk st sts stk + = happyFail [] (0) tk st sts stk +happyReduce k nt fn j tk st sts stk + = case happyDrop (k Prelude.- ((1) :: Prelude.Int)) sts of + sts1@((HappyCons (st1@(action)) (_))) -> + let r = fn stk in -- it doesn't hurt to always seq here... + happyDoSeq r (happyGoto nt j tk st1 sts1 r) + +happyMonadReduce k nt fn (0) tk st sts stk + = happyFail [] (0) tk st sts stk +happyMonadReduce k nt fn j tk st sts stk = + case happyDrop k (HappyCons (st) (sts)) of + sts1@((HappyCons (st1@(action)) (_))) -> + let drop_stk = happyDropStk k stk in + happyThen1 (fn stk tk) (\r -> happyGoto nt j tk st1 sts1 (r `HappyStk` drop_stk)) + +happyMonad2Reduce k nt fn (0) tk st sts stk + = happyFail [] (0) tk st sts stk +happyMonad2Reduce k nt fn j tk st sts stk = + case happyDrop k (HappyCons (st) (sts)) of + sts1@((HappyCons (st1@(action)) (_))) -> + let drop_stk = happyDropStk k stk + + off = happyAdjustOffset (indexShortOffAddr happyGotoOffsets st1) + off_i = (off Prelude.+ nt) + new_state = indexShortOffAddr happyTable off_i + + + + + in + happyThen1 (fn stk tk) (\r -> happyNewToken new_state sts1 (r `HappyStk` drop_stk)) + +happyDrop (0) l = l +happyDrop n (HappyCons (_) (t)) = happyDrop (n Prelude.- ((1) :: Prelude.Int)) t + +happyDropStk (0) l = l +happyDropStk n (x `HappyStk` xs) = happyDropStk (n Prelude.- ((1)::Prelude.Int)) xs + +----------------------------------------------------------------------------- +-- Moving to a new state after a reduction + + +happyGoto nt j tk st = + (happyTrace (", goto state " ++ show (new_state) ++ "\n")) $ + happyDoAction j tk new_state + where off = happyAdjustOffset (indexShortOffAddr happyGotoOffsets st) + off_i = (off Prelude.+ nt) + new_state = indexShortOffAddr happyTable off_i + + + + +----------------------------------------------------------------------------- +-- Error recovery (ERROR_TOK is the error token) + +-- parse error if we are in recovery and we fail again +happyFail explist (0) tk old_st _ stk@(x `HappyStk` _) = + let i = (case x of { HappyErrorToken (i) -> i }) in +-- trace "failing" $ + happyError_ explist i tk + +{- We don't need state discarding for our restricted implementation of + "error". In fact, it can cause some bogus parses, so I've disabled it + for now --SDM + +-- discard a state +happyFail ERROR_TOK tk old_st CONS(HAPPYSTATE(action),sts) + (saved_tok `HappyStk` _ `HappyStk` stk) = +-- trace ("discarding state, depth " ++ show (length stk)) $ + DO_ACTION(action,ERROR_TOK,tk,sts,(saved_tok`HappyStk`stk)) +-} + +-- Enter error recovery: generate an error token, +-- save the old token and carry on. +happyFail explist i tk (action) sts stk = +-- trace "entering error recovery" $ + happyDoAction (0) tk action sts ((HappyErrorToken (i)) `HappyStk` stk) + +-- Internal happy errors: + +notHappyAtAll :: a +notHappyAtAll = Prelude.error "Internal Happy error\n" + +----------------------------------------------------------------------------- +-- Hack to get the typechecker to accept our action functions + + + + + + + +----------------------------------------------------------------------------- +-- Seq-ing. If the --strict flag is given, then Happy emits +-- happySeq = happyDoSeq +-- otherwise it emits +-- happySeq = happyDontSeq + +happyDoSeq, happyDontSeq :: a -> b -> b +happyDoSeq a b = a `Prelude.seq` b +happyDontSeq a b = b + +----------------------------------------------------------------------------- +-- Don't inline any functions from the template. GHC has a nasty habit +-- of deciding to inline happyGoto everywhere, which increases the size of +-- the generated parser quite a bit. + + +{-# NOINLINE happyDoAction #-} +{-# NOINLINE happyTable #-} +{-# NOINLINE happyCheck #-} +{-# NOINLINE happyActOffsets #-} +{-# NOINLINE happyGotoOffsets #-} +{-# NOINLINE happyDefActions #-} + +{-# NOINLINE happyShift #-} +{-# NOINLINE happySpecReduce_0 #-} +{-# NOINLINE happySpecReduce_1 #-} +{-# NOINLINE happySpecReduce_2 #-} +{-# NOINLINE happySpecReduce_3 #-} +{-# NOINLINE happyReduce #-} +{-# NOINLINE happyMonadReduce #-} +{-# NOINLINE happyGoto #-} +{-# NOINLINE happyFail #-} + +-- end of Happy Template. diff --git a/src/Cryptol/Parser.y b/src/Cryptol/Parser.y index 00a184547..bae21027f 100644 --- a/src/Cryptol/Parser.y +++ b/src/Cryptol/Parser.y @@ -91,6 +91,8 @@ import Paths_cryptol 'primitive' { Located $$ (Token (KW KW_primitive) _)} 'constraint'{ Located $$ (Token (KW KW_constraint) _)} 'Prop' { Located $$ (Token (KW KW_Prop) _)} + + 'propguards' { Located $$ (Token (KW KW_propguards) _) } '[' { Located $$ (Token (Sym BracketL) _)} ']' { Located $$ (Token (Sym BracketR) _)} @@ -298,11 +300,30 @@ mbDoc :: { Maybe (Located Text) } : doc { Just $1 } | {- empty -} { Nothing } +propguards :: { [([Prop PName], Expr PName)] } + : 'propguards' propguards_cases { $2 } + +propguards_cases :: { [([Prop PName], Expr PName)] } + -- : propguards_case '|' propguards_cases { $1 ++ $3 } + -- | propguards_case { $1 } + : '|' propguards_case { $2 } + +propguards_case :: { [([Prop PName], Expr PName)] } + : propguards_quals '=>' expr { [($1, $3)] } + +-- support multiple +propguards_quals :: { [Prop PName] } + -- : type { [_ $1] } + : type {% fmap thing (mkProp $1) } + +-- propguards_qual : { [Prop PName] } -- TODO decl :: { Decl PName } : vars_comma ':' schema { at (head $1,$3) $ DSignature (reverse $1) $3 } | ipat '=' expr { at ($1,$3) $ DPatBind $1 $3 } | '(' op ')' '=' expr { at ($1,$5) $ DPatBind (PVar $2) $5 } + | var apats_indices '=' propguards + { mkIndexedPropGuardsDecl $1 $2 $4 } | var apats_indices '=' expr { at ($1,$4) $ mkIndexedDecl $1 $2 $4 } diff --git a/src/Cryptol/Parser/AST.hs b/src/Cryptol/Parser/AST.hs index 70db2d48b..2af6a56d5 100644 --- a/src/Cryptol/Parser/AST.hs +++ b/src/Cryptol/Parser/AST.hs @@ -715,6 +715,7 @@ instance (Show name, PPName name) => PP (Bind name) where instance (Show name, PPName name) => PP (BindDef name) where ppPrec _ DPrim = text "" ppPrec p (DExpr e) = ppPrec p e + ppPrec _p (DPropGuards _guards) = text "propguards" instance PPName name => PP (TySyn name) where diff --git a/src/Cryptol/Parser/ExpandPropGuards.hs b/src/Cryptol/Parser/ExpandPropGuards.hs index f2aa43ac7..84fef4c8d 100644 --- a/src/Cryptol/Parser/ExpandPropGuards.hs +++ b/src/Cryptol/Parser/ExpandPropGuards.hs @@ -44,9 +44,13 @@ runExpandPropGuardsM m = m class ExpandPropGuards a where expandPropGuards :: a -> ExpandPropGuardsM a +-- | Error data Error = NoSignature (Located PName) deriving (Show,Generic, NFData) +instance PP Error where + ppPrec = undefined -- TODO + -- | Instances instance ExpandPropGuards (Program PName) where diff --git a/src/Cryptol/Parser/Lexer.x b/src/Cryptol/Parser/Lexer.x index 0f76c62ae..10c550568 100644 --- a/src/Cryptol/Parser/Lexer.x +++ b/src/Cryptol/Parser/Lexer.x @@ -129,6 +129,8 @@ $white+ { emit $ White Space } "Prop" { emit $ KW KW_Prop } +"propguards" { emit $ KW KW_propguards } + @num { emitS numToken } @fnum { emitFancy fnumTokens } diff --git a/src/Cryptol/Parser/Names.hs b/src/Cryptol/Parser/Names.hs index 06027391b..43bb898dc 100644 --- a/src/Cryptol/Parser/Names.hs +++ b/src/Cryptol/Parser/Names.hs @@ -64,6 +64,7 @@ namesB b = namesDef :: Ord name => BindDef name -> Set name namesDef DPrim = Set.empty namesDef (DExpr e) = namesE e +namesDef (DPropGuards guards) = mconcat . fmap (\(_props, e) -> namesE e) $ guards -- | The names used by an expression. @@ -185,6 +186,7 @@ tnamesB b = Set.unions [setS, setP, setE] tnamesDef :: Ord name => BindDef name -> Set name tnamesDef DPrim = Set.empty tnamesDef (DExpr e) = tnamesE e +tnamesDef (DPropGuards guards) = mconcat . fmap (\(_props, e) -> tnamesE e) $ guards -- | The type names used by an expression. tnamesE :: Ord name => Expr name -> Set name diff --git a/src/Cryptol/Parser/NoPat.hs b/src/Cryptol/Parser/NoPat.hs index 5d04ddd46..1978bcb19 100644 --- a/src/Cryptol/Parser/NoPat.hs +++ b/src/Cryptol/Parser/NoPat.hs @@ -224,6 +224,10 @@ noMatchB b = do e' <- noPatFun (Just (thing (bName b))) 0 (bParams b) e return b { bParams = [], bDef = DExpr e' <$ bDef b } + DPropGuards guards -> do + guards' <- (\(props, e) -> (,) <$> pure props <*> noPatFun (Just (thing (bName b))) 0 (bParams b) e) `traverse` guards + pure b { bParams = [], bDef = DPropGuards guards' <$ bDef b } + noMatchD :: Decl PName -> NoPatM [Decl PName] noMatchD decl = case decl of diff --git a/src/Cryptol/Parser/ParserUtils.hs b/src/Cryptol/Parser/ParserUtils.hs index 5c910f8b8..0548f3b07 100644 --- a/src/Cryptol/Parser/ParserUtils.hs +++ b/src/Cryptol/Parser/ParserUtils.hs @@ -609,6 +609,27 @@ mkIndexedDecl f (ps, ixs) e = rhs :: Expr PName rhs = mkGenerate (reverse ixs) e +-- NOTE: The lists of patterns are reversed! +mkIndexedPropGuardsDecl :: + LPName -> ([Pattern PName], [Pattern PName]) -> [([Prop PName], Expr PName)] -> Decl PName +mkIndexedPropGuardsDecl f (ps, ixs) guards = + DBind Bind { bName = f + , bParams = reverse ps + -- TODO: add range properly + , bDef = Located emptyRange (DPropGuards guards') + , bSignature = Nothing + , bPragmas = [] + , bMono = False + , bInfix = False + , bFixity = Nothing + , bDoc = Nothing + , bExport = Public + } + where + -- TODO: need to do anything to `props`? + -- guards' :: [([Prop name], Expr name)] + guards' = (\(props, e) -> (props, mkGenerate (reverse ixs) e)) <$> guards + -- NOTE: The lists of patterns are reversed! mkIndexedExpr :: ([Pattern PName], [Pattern PName]) -> Expr PName -> Expr PName mkIndexedExpr (ps, ixs) body diff --git a/src/Cryptol/Parser/Token.hs b/src/Cryptol/Parser/Token.hs index c1ec16903..fb1506f5b 100644 --- a/src/Cryptol/Parser/Token.hs +++ b/src/Cryptol/Parser/Token.hs @@ -53,6 +53,7 @@ data TokenKW = KW_else | KW_Prop | KW_by | KW_down + | KW_propguards deriving (Eq, Show, Generic, NFData) -- | The named operators are a special case for parsing types, and 'Other' is diff --git a/src/Cryptol/Transform/AddModParams.hs b/src/Cryptol/Transform/AddModParams.hs index 22575c6d3..caf2ae6cf 100644 --- a/src/Cryptol/Transform/AddModParams.hs +++ b/src/Cryptol/Transform/AddModParams.hs @@ -257,6 +257,7 @@ instance Inst Expr where _ -> EProofApp (inst ps e1) EWhere e dgs -> EWhere (inst ps e) (inst ps dgs) + EPropGuards _guards -> error "undefined: inst ps (EPropGuards _guards)" instance Inst Match where diff --git a/src/Cryptol/Transform/MonoValues.hs b/src/Cryptol/Transform/MonoValues.hs index baf4e80e1..75c6029a1 100644 --- a/src/Cryptol/Transform/MonoValues.hs +++ b/src/Cryptol/Transform/MonoValues.hs @@ -201,6 +201,8 @@ rewE rews = go EWhere e dgs -> EWhere <$> go e <*> inLocal (mapM (rewDeclGroup rews) dgs) + EPropGuards guards -> EPropGuards <$> (\(props, e) -> (,) <$> pure props <*> go e) `traverse` guards + rewM :: RewMap -> Match -> M Match rewM rews ma = diff --git a/src/Cryptol/Transform/Specialize.hs b/src/Cryptol/Transform/Specialize.hs index f71fb2f60..9c678bc29 100644 --- a/src/Cryptol/Transform/Specialize.hs +++ b/src/Cryptol/Transform/Specialize.hs @@ -102,6 +102,7 @@ specializeExpr expr = EProofAbs p e -> EProofAbs p <$> specializeExpr e EProofApp {} -> specializeConst expr EWhere e dgs -> specializeEWhere e dgs + EPropGuards guards -> EPropGuards <$> (\(props, e) -> (,) <$> pure props <*> specializeExpr e) `traverse` guards specializeMatch :: Match -> SpecM Match specializeMatch (From qn l t e) = From qn l t <$> specializeExpr e diff --git a/src/Cryptol/TypeCheck/AST.hs b/src/Cryptol/TypeCheck/AST.hs index eda6f75b9..0ba1498ba 100644 --- a/src/Cryptol/TypeCheck/AST.hs +++ b/src/Cryptol/TypeCheck/AST.hs @@ -267,6 +267,8 @@ instance PP (WithNames Expr) where [ ppW e , hang "where" 2 (vcat (map ppW ds)) ] + + EPropGuards _guards -> undefined -- TODO where ppW x = ppWithNames nm x diff --git a/src/Cryptol/TypeCheck/Kind.hs b/src/Cryptol/TypeCheck/Kind.hs index 7aaa9c897..75d268dcd 100644 --- a/src/Cryptol/TypeCheck/Kind.hs +++ b/src/Cryptol/TypeCheck/Kind.hs @@ -417,5 +417,7 @@ checkKind t _ _ = return t checkPropGuard :: P.Prop Name -> InferM (Prop, [Goal]) checkPropGuard p = collectGoals $ - (undefined :: KindM Type -> InferM Type) $ -- TODO - checkProp p + undefined + -- withTParams _ _ _ + -- (undefined :: KindM Type -> InferM Type) $ -- TODO + -- checkProp p diff --git a/src/Cryptol/TypeCheck/Parseable.hs b/src/Cryptol/TypeCheck/Parseable.hs index 86f72f06b..4237df017 100644 --- a/src/Cryptol/TypeCheck/Parseable.hs +++ b/src/Cryptol/TypeCheck/Parseable.hs @@ -63,6 +63,7 @@ instance ShowParseable Expr where --NOTE: erase all "proofs" for now (change the following two lines to change that) showParseable (EProofAbs {-p-}_ e) = showParseable e --"(EProofAbs " ++ show p ++ showParseable e ++ ")" showParseable (EProofApp e) = showParseable e --"(EProofApp " ++ showParseable e ++ ")" + showParseable (EPropGuards _guards) = error "undefined: showParseable (EPropGuards _guards)" instance (ShowParseable a, ShowParseable b) => ShowParseable (a,b) where showParseable (x,y) = parens (showParseable x <> comma <> showParseable y) diff --git a/src/Cryptol/TypeCheck/Sanity.hs b/src/Cryptol/TypeCheck/Sanity.hs index fc995288d..c93131e95 100644 --- a/src/Cryptol/TypeCheck/Sanity.hs +++ b/src/Cryptol/TypeCheck/Sanity.hs @@ -269,6 +269,9 @@ exprSchema expr = withVars xs (go ds) in go dgs + + EPropGuards _guards -> error "undefined: exprSchema (EPropGuards _guards)" + checkHas :: Type -> Selector -> TcM Type checkHas t sel = diff --git a/src/Cryptol/TypeCheck/Subst.hs b/src/Cryptol/TypeCheck/Subst.hs index 474c537a8..8d81560e9 100644 --- a/src/Cryptol/TypeCheck/Subst.hs +++ b/src/Cryptol/TypeCheck/Subst.hs @@ -391,6 +391,8 @@ instance TVars Expr where EWhere e ds -> EWhere !$ (go e) !$ (apSubst su ds) + EPropGuards guards -> EPropGuards !$ (\(props, e) -> (apSubst su `fmap'` props, apSubst su e)) `fmap'` guards + instance TVars Match where apSubst su (From x len t e) = From x !$ (apSubst su len) !$ (apSubst su t) !$ (apSubst su e) apSubst su (Let b) = Let !$ (apSubst su b) diff --git a/src/Cryptol/TypeCheck/TypeOf.hs b/src/Cryptol/TypeCheck/TypeOf.hs index b20748ebc..acb53f66f 100644 --- a/src/Cryptol/TypeCheck/TypeOf.hs +++ b/src/Cryptol/TypeCheck/TypeOf.hs @@ -43,6 +43,9 @@ fastTypeOf tyenv expr = Just (_, t) -> t Nothing -> panic "Cryptol.TypeCheck.TypeOf.fastTypeOf" [ "EApp with non-function operator" ] + EPropGuards guards -> case guards of + ((_props, e):_) -> fastTypeOf tyenv e + [] -> error "fastTypOf empty EPropGuards" -- Polymorphic fragment EVar {} -> polymorphic ETAbs {} -> polymorphic @@ -111,6 +114,9 @@ fastSchemaOf tyenv expr = EComp {} -> monomorphic EApp {} -> monomorphic EAbs {} -> monomorphic + + -- PropGuards + EPropGuards _guards -> undefined -- TODO where monomorphic = Forall [] [] (fastTypeOf tyenv expr) From 72cccb10ad07727a17ecc59db862e86a02ed440a Mon Sep 17 00:00:00 2001 From: Henry Blanchette Date: Thu, 7 Jul 2022 15:48:02 -0700 Subject: [PATCH 010/125] parsing --- src/Cryptol/Parser.hs | 2972 +++++++++++++++++++------------------ src/Cryptol/Parser.y | 15 +- src/Cryptol/Parser/AST.hs | 3 + 3 files changed, 1516 insertions(+), 1474 deletions(-) diff --git a/src/Cryptol/Parser.hs b/src/Cryptol/Parser.hs index 307460339..d64d83a15 100644 --- a/src/Cryptol/Parser.hs +++ b/src/Cryptol/Parser.hs @@ -69,93 +69,94 @@ data HappyAbsSyn | HappyAbsSyn35 (Located Text) | HappyAbsSyn36 (Maybe (Located Text)) | HappyAbsSyn37 ([([Prop PName], Expr PName)]) - | HappyAbsSyn38 (Decl PName) - | HappyAbsSyn39 ([Decl PName]) - | HappyAbsSyn41 (Newtype PName) - | HappyAbsSyn42 (Located (RecordMap Ident (Range, Type PName))) - | HappyAbsSyn43 ([ LPName ]) - | HappyAbsSyn44 (LPName) - | HappyAbsSyn45 ([Pattern PName]) - | HappyAbsSyn48 (([Pattern PName], [Pattern PName])) - | HappyAbsSyn53 (ReplInput PName) - | HappyAbsSyn58 ([LPName]) - | HappyAbsSyn59 (Expr PName) - | HappyAbsSyn61 (Located [Decl PName]) - | HappyAbsSyn65 ([(Expr PName, Expr PName)]) - | HappyAbsSyn66 ((Expr PName, Expr PName)) - | HappyAbsSyn71 (NonEmpty (Expr PName)) - | HappyAbsSyn75 (Located Selector) - | HappyAbsSyn76 ([(Bool, Integer)]) - | HappyAbsSyn77 ((Bool, Integer)) - | HappyAbsSyn78 ([Expr PName]) - | HappyAbsSyn79 (Either (Expr PName) [Named (Expr PName)]) - | HappyAbsSyn80 ([UpdField PName]) - | HappyAbsSyn81 (UpdField PName) - | HappyAbsSyn82 ([Located Selector]) - | HappyAbsSyn83 (UpdHow) - | HappyAbsSyn85 ([[Match PName]]) - | HappyAbsSyn86 ([Match PName]) - | HappyAbsSyn87 (Match PName) - | HappyAbsSyn88 (Pattern PName) - | HappyAbsSyn92 (Named (Pattern PName)) - | HappyAbsSyn93 ([Named (Pattern PName)]) - | HappyAbsSyn94 (Schema PName) - | HappyAbsSyn95 (Located [TParam PName]) - | HappyAbsSyn96 (Located [Prop PName]) - | HappyAbsSyn98 (Located Kind) - | HappyAbsSyn99 (TParam PName) - | HappyAbsSyn100 ([TParam PName]) - | HappyAbsSyn103 (Type PName) - | HappyAbsSyn107 ([ Type PName ]) - | HappyAbsSyn108 (Located [Type PName]) - | HappyAbsSyn109 ([Type PName]) - | HappyAbsSyn110 (Named (Type PName)) - | HappyAbsSyn111 ([Named (Type PName)]) - | HappyAbsSyn112 (Located Ident) - | HappyAbsSyn114 (Located ModName) - | HappyAbsSyn116 (Located PName) + | HappyAbsSyn40 ([Prop PName]) + | HappyAbsSyn41 (Decl PName) + | HappyAbsSyn42 ([Decl PName]) + | HappyAbsSyn44 (Newtype PName) + | HappyAbsSyn45 (Located (RecordMap Ident (Range, Type PName))) + | HappyAbsSyn46 ([ LPName ]) + | HappyAbsSyn47 (LPName) + | HappyAbsSyn48 ([Pattern PName]) + | HappyAbsSyn51 (([Pattern PName], [Pattern PName])) + | HappyAbsSyn56 (ReplInput PName) + | HappyAbsSyn61 ([LPName]) + | HappyAbsSyn62 (Expr PName) + | HappyAbsSyn64 (Located [Decl PName]) + | HappyAbsSyn68 ([(Expr PName, Expr PName)]) + | HappyAbsSyn69 ((Expr PName, Expr PName)) + | HappyAbsSyn74 (NonEmpty (Expr PName)) + | HappyAbsSyn78 (Located Selector) + | HappyAbsSyn79 ([(Bool, Integer)]) + | HappyAbsSyn80 ((Bool, Integer)) + | HappyAbsSyn81 ([Expr PName]) + | HappyAbsSyn82 (Either (Expr PName) [Named (Expr PName)]) + | HappyAbsSyn83 ([UpdField PName]) + | HappyAbsSyn84 (UpdField PName) + | HappyAbsSyn85 ([Located Selector]) + | HappyAbsSyn86 (UpdHow) + | HappyAbsSyn88 ([[Match PName]]) + | HappyAbsSyn89 ([Match PName]) + | HappyAbsSyn90 (Match PName) + | HappyAbsSyn91 (Pattern PName) + | HappyAbsSyn95 (Named (Pattern PName)) + | HappyAbsSyn96 ([Named (Pattern PName)]) + | HappyAbsSyn97 (Schema PName) + | HappyAbsSyn98 (Located [TParam PName]) + | HappyAbsSyn99 (Located [Prop PName]) + | HappyAbsSyn101 (Located Kind) + | HappyAbsSyn102 (TParam PName) + | HappyAbsSyn103 ([TParam PName]) + | HappyAbsSyn106 (Type PName) + | HappyAbsSyn110 ([ Type PName ]) + | HappyAbsSyn111 (Located [Type PName]) + | HappyAbsSyn112 ([Type PName]) + | HappyAbsSyn113 (Named (Type PName)) + | HappyAbsSyn114 ([Named (Type PName)]) + | HappyAbsSyn115 (Located Ident) + | HappyAbsSyn117 (Located ModName) + | HappyAbsSyn119 (Located PName) happyExpList :: Happy_Data_Array.Array Prelude.Int Prelude.Int -happyExpList = Happy_Data_Array.listArray (0,3774) ([0,0,0,0,0,0,0,0,2048,0,0,4,1,0,0,0,0,0,0,36864,974,516,136,16386,0,0,0,0,0,0,0,0,0,0,0,4,0,0,0,0,0,0,0,16128,32782,516,4744,771,1,0,0,0,0,0,0,4096,974,516,136,2,1,0,0,0,0,0,0,4096,974,516,136,2,0,0,0,0,0,0,0,0,0,0,0,4,0,0,0,0,0,0,0,0,17344,0,0,0,0,0,0,0,0,0,0,16128,50126,516,4744,771,0,0,0,0,0,0,0,14592,14,516,136,2,0,0,0,0,0,0,0,12288,14,4,4096,0,0,0,0,0,0,0,0,12288,14,4,14,16352,0,0,0,0,0,0,0,0,2048,0,0,0,0,0,0,0,0,0,0,12288,14,4,4096,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,6,16352,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,12288,14,4,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,14592,14,516,136,2,0,0,0,0,0,0,0,14592,14,516,136,2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,32768,0,0,0,0,0,0,0,0,0,0,0,16390,8160,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,14592,14,516,136,2,0,0,0,0,0,0,0,14592,14,516,136,2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,14592,14,516,136,2,0,0,0,0,0,0,0,14592,14,516,158,16354,0,0,0,0,0,0,0,4096,14,4,256,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,64,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,8192,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,8198,16352,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,32768,0,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,16128,14,516,4744,2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,16384,0,0,0,0,0,0,0,0,0,0,0,16384,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,256,0,0,0,0,0,0,0,0,0,0,0,256,0,0,0,0,0,0,0,0,0,0,0,256,0,0,0,0,0,0,0,0,0,0,0,4096,14,68,8,0,0,0,0,0,0,0,0,4096,14,516,136,2,0,0,0,0,0,0,0,16128,32782,516,4744,771,0,0,0,0,0,0,0,16128,32782,1540,4744,771,0,0,0,0,0,0,0,16128,32782,516,4766,16355,0,0,0,0,0,0,0,16128,14,516,5000,2,0,0,0,0,0,0,0,256,0,4,1024,0,0,0,0,0,0,0,0,12544,14,4,136,0,0,0,0,0,0,0,0,4096,14,516,136,2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,16128,32782,516,4744,3,0,0,0,0,0,0,0,16128,32782,516,4744,3,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,0,0,0,0,0,0,4096,974,516,136,10,0,0,0,0,0,0,0,0,0,0,64,0,0,0,0,0,0,0,0,0,0,0,8224,0,0,0,0,0,0,0,0,4096,14,516,136,2050,1,0,0,0,0,0,0,4096,974,516,136,2,0,0,0,0,0,0,0,0,0,0,2048,1024,0,0,0,0,0,0,0,0,0,0,6,5088,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,256,0,0,0,0,0,0,0,0,0,0,0,256,0,0,0,0,0,0,0,0,0,0,0,256,0,0,0,0,0,0,0,0,0,0,0,4096,14,68,8,0,0,0,0,0,0,0,0,4096,14,1540,136,2,0,0,0,0,0,0,0,4096,14,516,158,8162,0,0,0,0,0,0,0,4096,14,4,256,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,8192,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,0,0,0,0,0,0,4096,991,516,136,16394,0,0,0,0,0,0,0,0,0,0,0,0,1,0,0,0,0,0,0,36864,974,516,136,16386,0,0,0,0,0,0,0,0,0,0,64,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,32,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1024,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,0,0,0,0,0,0,4096,991,516,136,16386,0,0,0,0,0,0,0,0,0,0,0,8,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,64,16,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,0,0,0,0,0,0,4096,990,516,136,2,0,0,0,0,0,0,0,32768,5152,32,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,12288,4110,4,4096,0,0,0,0,0,0,0,0,0,0,0,0,4,0,0,0,0,0,0,0,0,0,0,0,4,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,4096,526,4,8,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,64,0,0,0,0,0,0,0,0,0,0,0,64,24,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,128,4,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,288,0,0,0,0,0,0,0,0,0,0,0,2048,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,16,0,0,0,0,0,0,0,0,0,0,0,48,0,0,0,0,0,0,0,0,0,0,0,8192,1024,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,48,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,4096,14,516,152,2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1024,32,0,0,0,0,0,0,0,0,0,0,1024,32,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,6,8160,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,4096,14,4,2056,0,0,0,0,0,0,0,0,4096,14,4,8,0,0,0,0,0,0,0,0,4096,14,4,0,0,0,0,0,0,0,0,0,0,0,0,6,8160,0,0,0,0,0,0,0,0,0,0,6,8160,0,0,0,0,0,0,0,0,0,0,6,8160,0,0,0,0,0,0,0,4096,14,516,136,2,0,0,0,0,0,0,0,16128,32782,516,4744,771,0,0,0,0,0,0,0,4096,14,516,136,2,0,0,0,0,0,0,0,0,0,0,64,0,0,0,0,0,0,0,0,4096,14,516,136,2050,0,0,0,0,0,0,0,0,0,0,2048,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,4096,14,516,136,2,0,0,0,0,0,0,0,4096,14,4,8,0,0,0,0,0,0,0,0,14592,14,516,136,2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,64,24,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,32768,0,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,32768,0,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,4096,14,516,16520,2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,14592,14,516,136,2,0,0,0,0,0,0,0,14592,14,516,392,2,0,0,0,0,0,0,0,0,0,0,1024,32,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,128,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,0,0,0,0,0,0,0,0,0,0,0,256,0,0,0,0,0,0,0,0,0,0,0,32,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,4096,14,516,136,2050,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,16,0,0,0,0,0,0,0,0,0,8192,0,48,0,0,0,0,0,0,0,0,0,0,0,48,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,16128,32782,516,4744,3,0,0,0,0,0,0,0,16128,32782,516,4744,3,0,0,0,0,0,0,0,0,8192,61440,33,0,0,0,0,0,0,0,0,0,0,0,32,0,0,0,0,0,0,0,0,0,0,1024,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,8192,1,0,0,0,0,0,0,0,0,0,0,0,2,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,8224,0,0,0,0,0,0,0,0,4096,14,516,136,2050,0,0,0,0,0,0,0,0,0,0,2048,1024,0,0,0,0,0,0,0,0,0,0,6,5088,0,0,0,0,0,0,0,4096,14,516,158,8162,0,0,0,0,0,0,0,0,0,0,6,8160,0,0,0,0,0,0,0,4096,14,4,2056,0,0,0,0,0,0,0,0,4096,14,4,8,0,0,0,0,0,0,0,0,0,0,0,6,8160,0,0,0,0,0,0,0,0,0,0,6,8160,0,0,0,0,0,0,0,0,0,0,6,8160,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,16128,32782,516,4744,771,0,0,0,0,0,0,0,14592,14,516,136,2,0,0,0,0,0,0,0,0,17344,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,288,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,288,0,0,0,0,0,0,0,0,0,0,0,8192,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,16,0,0,0,0,0,0,0,0,0,0,0,48,0,0,0,0,0,0,0,0,0,0,0,48,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,4096,14,4,256,0,0,0,0,0,0,0,0,0,0,1024,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,14592,14,516,136,2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,14592,14,516,136,2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,14592,14,516,136,2,0,0,0,0,0,0,0,14592,14,516,136,2,0,0,0,0,0,0,0,14592,14,516,136,2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,32768,0,0,0,0,0,0,0,0,14592,14,516,136,2,0,0,0,0,0,0,0,0,0,0,32768,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,16,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,8192,0,2048,0,0,0,0,0,0,0,0,0,0,0,0,4,0,0,0,0,0,0,0,12288,14,4,4096,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,32768,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1024,0,0,0,0,0,0,0,0,0,0,0,1024,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,8192,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,14592,14,516,136,2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,14592,14,516,136,2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,14592,14,644,136,1090,0,0,0,0,0,0,0,4096,14,4,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,4096,14,4,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,32,0,0,0,0,0,0,0,0,0,0,0,32,0,0,0,0,0,0,0,0,0,0,0,32,0,0,0,0,0,0,0,0,0,0,0,6,8160,0,0,0,0,0,0,0,4096,14,4,2056,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,4096,14,4,2056,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,14592,14,516,136,2,0,0,0,0,0,0,0,4096,14,4,8,0,0,0,0,0,0,0,0,0,0,0,16,0,0,0,0,0,0,0,0,4096,14,516,136,2,0,0,0,0,0,0,0,16128,32782,516,4744,771,0,0,0,0,0,0,0,0,0,0,2048,0,0,0,0,0,0,0,0,14592,14,516,136,2,0,0,0,0,0,0,0,16128,32782,516,4744,771,0,0,0,0,0,0,0,16128,32782,516,4744,771,0,0,0,0,0,0,0,16128,32782,516,4744,771,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,16128,32782,516,4744,771,0,0,0,0,0,0,0,16128,32782,516,4750,771,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,16128,32782,516,4744,771,0,0,0,0,0,0,0,16128,32782,516,4744,771,0,0,0,0,0,0,0,4096,14,516,136,2,0,0,0,0,0,0,0,16128,32782,516,4744,771,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,16128,32782,516,4744,771,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,16128,14,516,4744,2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,18432,0,0,0,0,0,0,0,0,16128,14,516,4744,2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,16128,14,516,4744,2,0,0,0,0,0,0,0,256,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,256,0,4,0,0,0,0,0,0,0,0,0,0,0,0,288,0,0,0,0,0,0,0,0,0,0,0,288,0,0,0,0,0,0,0,0,0,0,0,2048,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,288,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,16,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,16128,32782,516,4744,771,1,0,0,0,0,0,0,4096,974,516,136,2,0,0,0,0,0,0,0,0,0,0,0,0,1,0,0,0,0,0,0,4096,974,516,136,2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,6,8160,0,0,0,0,0,0,0,0,0,0,0,2048,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,16128,32782,772,4744,771,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,4096,14,516,136,2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1024,0,0,0,0,0,0,0,0,8192,0,0,0,0,0,0,0,0,0,0,0,0,0,2048,0,0,0,0,0,0,0,0,0,0,0,32,0,0,0,0,0,0,0,0,0,0,0,32,0,0,0,0,0,0,0,0,0,0,0,32,0,0,0,0,0,0,0,0,0,0,0,8192,0,0,0,0,0,0,0,0,0,0,0,6,8160,0,0,0,0,0,0,0,4096,14,4,2056,0,0,0,0,0,0,0,0,4096,14,4,2056,0,0,0,0,0,0,0,0,14592,14,516,136,2,0,0,0,0,0,0,0,4096,14,4,8,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,4096,14,516,136,2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,4096,14,516,136,2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,14592,14,516,136,2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,2048,0,0,0,0,0,0,0,0,4096,14,516,136,2,0,0,0,0,0,0,0,4096,14,4,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,0,0,0,0,0,0,4096,974,516,392,2,1,0,0,0,0,0,0,4096,974,516,136,10,1,0,0,0,0,0,0,4096,991,516,136,16386,0,0,0,0,0,0,0,0,0,0,0,0,1,0,0,0,0,0,0,4096,991,516,136,16386,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,8192,0,0,0,0,0,0,0,0,14592,14,516,136,2,0,0,0,0,0,0,0,0,0,0,6,8160,0,0,0,0,0,0,0,0,0,0,0,16384,1,0,0,0,0,0,0,4096,991,516,136,16386,0,0,0,0,0,0,0,0,2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,12288,14,4,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1024,0,0,0,0,0,0,0,0,0,0,0,4096,14,4,0,0,0,0,0,0,0,0,0,12288,14,4,0,0,0,0,0,0,0,0,0,12288,14,4,4096,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,4,0,0,0,0,0,0,0,0,0,0,0,4,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,16384,1,0,0,0,0,0,0,4096,991,516,136,16386,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,4096,14,4,2056,0,0,0,0,0,0,0,0,4096,14,516,2184,2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,4,0,0,0,0,0,0,0,0,0,0,12288,14,4,4096,0,0,0,0,0,0,0,0,0,0,0,64,24,0,0,0,0,0,0,0,0,0,0,64,24,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,4096,526,4,0,0,0,0,0,0,0,0,0,0,0,0,16,0,0,0,0,0,0,0,0,0,0,0,8192,0,0,0,0,0,0,0,0,14592,14,516,136,2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,64,24,0,0,0,0,0,0,0,0,0,0,0,0,1,0,0,0,0,0,0,4096,974,516,392,2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,16128,32782,516,4744,771,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,2048,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,14592,14,516,136,2,0,0,0,0,0,0,0,4096,14,4,2056,0,0,0,0,0,0,0,0,14592,14,516,136,2,0,0,0,0,0,0,0,4096,14,4,8,0,0,0,0,0,0,0,0,0,0,128,0,1088,0,0,0,0,0,0,0,0,0,0,6,8160,0,0,0,0,0,0,0,16128,32782,516,4744,771,0,0,0,0,0,0,0,0,0,0,0,2048,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,8192,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,4096,14,516,136,2,0,0,0,0,0,0,0,0,0,0,16,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,4096,14,4,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,14592,14,516,136,2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,32,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,16128,32782,516,4744,771,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,32,0,0,0,0,0,0,0,0,0,8192,0,0,0,0,0,0,0,0,0,0,0,8192,12288,0,0,0,0,0,0,0,0,0,0,0,0,1,0,0,0,0,0,0,0,0,0,0,0,32,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,2048,0,0,0,0,0,0,0,0,0,0,8192,8,0,0,0,0,0,0,0,0,0,0,8192,16,0,0,0,0,0,0,0,0,0,0,8192,24,0,0,0,0,0,0,0,0,0,16128,32782,516,4744,771,0,0,0,0,0,0,0,16128,32782,516,4744,771,0,0,0,0,0,0,0,0,8192,0,0,0,0,0,0,0,0,0,0,0,8192,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,16128,32782,516,4744,771,0,0,0,0,0,0,0,0,8192,0,0,0,0,0,0,0,0,0,0,0,0,0,2048,0,0,0,0,0,0,0,0,0,0,0,2048,0,0,0,0,0,0,0,0,0,0,0,2048,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,14592,14,516,136,2,0,0,0,0,0,0,0,4096,14,4,2056,0,0,0,0,0,0,0,0,14592,14,516,136,2,0,0,0,0,0,0,0,4096,14,4,8,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,8192,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,16384,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,14592,14,516,136,2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,8192,0,0,0,1,0,0,0,0,0,0,4096,991,516,136,16386,0,0,0,0,0,0,0,0,0,0,0,8,0,0,0,0,0,0,0,0,0,0,0,4,0,0,0,0,0,0,0,0,0,128,0,1088,0,0,0,0,0,0,0,0,0,128,0,1088,0,0,0,0,0,0,0,0,0,0,2048,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,14592,14,516,136,2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,14592,14,516,136,2,0,0,0,0,0,0,0,16128,32782,516,4744,771,0,0,0,0,0,0,0,16128,32782,516,4744,771,0,0,0,0,0,0,0,0,8192,0,0,0,0,0,0,0,0,0,0,0,8192,8,0,0,0,0,0,0,0,0,0,0,8192,16,0,0,0,0,0,0,0,0,0,0,0,16,0,0,0,0,0,0,0,0,0,16128,32782,516,4744,771,0,0,0,0,0,0,0,16128,32782,516,4744,771,0,0,0,0,0,0,0,0,0,16,0,0,0,0,0,0,0,0,0,16128,32782,516,4744,771,0,0,0,0,0,0,0,4096,14,516,136,2,0,0,0,0,0,0,0,4096,14,516,136,2,0,0,0,0,0,0,0,16128,32782,516,4744,771,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,8192,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,2048,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,8192,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,16400,0,0,0,0,0,0,0,0,0,0,0,2048,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,14592,14,516,136,2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,14592,14,516,136,2,0,0,0,0,0,0,0,0,8192,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,128,0,1088,0,0,0,0,0,0,0,0,0,0,8192,0,0,0,0,0,0,0,0,0,0,0,8192,0,0,0,0,0,0,0,0,4096,14,68,0,0,0,0,0,0,0,0,0,0,0,0,0,16384,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,16384,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,8,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,4096,14,516,2184,2,0,0,0,0,0,0,0,16128,32782,516,4744,771,0,0,0,0,0,0,0,4096,14,4,2056,0,0,0,0,0,0,0,0,0,0,0,128,0,0,0,0,0,0,0,0,0,0,0,64,24,0,0,0,0,0,0,0,0,0,0,64,24,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,4096,14,4,256,0,0,0,0,0,0,0,0,0,0,0,128,0,0,0,0,0,0,0,0,0,8192,0,0,0,0,0,0,0,0,0,0,16128,32782,516,4744,771,0,0,0,0,0,0,0,4096,14,4,8,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,8192,0,0,0,0,0,0,0,0,14592,14,516,136,2,0,0,0,0,0,0,0,14592,14,516,136,2,0,0,0,0,0,0,0,14592,14,516,136,2,0,0,0,0,0,0,0,0,0,0,16384,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,14592,14,516,136,2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,8192,0,0,0,0,0,0,0,0,0,0,0,0,0,32,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,8192,0,0,0,0,0,0,0,0,0,0,16128,32782,516,4744,771,0,0,0,0,0,0,0,0,8192,0,0,0,0,0,0,0,0,0,0,0,8192,0,0,0,0,0,0,0,0,0,0,16128,32782,516,4744,771,0,0,0,0,0,0,0,16128,32782,516,4744,771,0,0,0,0,0,0,0,0,0,16,0,0,0,0,0,0,0,0,0,0,8192,0,0,0,0,0,0,0,0,0,0,0,8192,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,14592,14,516,136,2,0,0,0,0,0,0,0,0,0,0,16384,0,1,0,0,0,0,0,0,4096,991,516,136,16386,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,8,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,16128,32782,516,4744,771,0,0,0,0,0,0,0,0,8192,0,0,0,0,0,0,0,0,0,0,0,8192,0,0,0,0,0,0,0,0,0,0,0,8192,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,128,0,1088,0,0,0,0,0,0,0,0,0,0,48,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,8192,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,288,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,4096,14,4,8,0,0,0,0,0,0,0,0,0,0,0,16384,0,0,0,0,0,0,0,0,0,8192,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 +happyExpList = Happy_Data_Array.listArray (0,3796) ([0,0,0,0,0,0,0,0,16384,0,0,32,8,0,0,0,0,0,0,0,62372,33024,8704,128,16,0,0,0,0,0,0,0,0,0,0,2048,0,0,0,0,0,0,0,0,58352,18432,32800,12584,4144,0,0,0,0,0,0,0,2048,487,258,68,32769,0,0,0,0,0,0,0,16384,3896,2064,544,8,0,0,0,0,0,0,0,0,0,0,0,128,0,0,0,0,0,0,0,0,49152,67,0,0,0,0,0,0,0,0,0,0,29176,9758,16400,6292,24,0,0,0,0,0,0,0,36416,3,129,32802,0,0,0,0,0,0,0,0,24576,28,8,8192,0,0,0,0,0,0,0,0,0,227,64,224,65024,3,0,0,0,0,0,0,0,0,4,0,0,0,0,0,0,0,0,0,0,14528,4096,0,64,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,49152,0,2044,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1816,512,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,50976,32769,64,16401,0,0,0,0,0,0,0,0,14592,14,516,136,2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,32,0,0,0,0,0,0,0,0,0,0,3072,49280,63,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,58368,56,2064,544,8,0,0,0,0,0,0,0,8192,455,16512,4352,64,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,36416,3,129,32802,0,0,0,0,0,0,0,0,29184,28,1032,316,32708,0,0,0,0,0,0,0,0,225,64,4096,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,8,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,24576,512,1022,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,128,0,256,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,36800,3,129,33954,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,4,0,0,0,0,0,0,0,0,0,0,0,32,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,2,0,0,0,0,0,0,0,0,0,0,0,16,0,0,0,0,0,0,0,0,0,0,0,128,0,0,0,0,0,0,0,0,0,0,0,16384,56,272,32,0,0,0,0,0,0,0,0,0,450,16512,4352,64,0,0,0,0,0,0,0,0,3647,1152,34818,786,3,0,0,0,0,0,0,0,29176,9216,16432,6292,24,0,0,0,0,0,0,0,36800,8195,32897,50343,4088,0,0,0,0,0,0,0,32256,28,1032,10000,4,0,0,0,0,0,0,0,4096,0,64,16384,0,0,0,0,0,0,0,0,32768,1816,512,17408,0,0,0,0,0,0,0,0,0,14400,4096,8200,2050,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,16128,32782,516,4744,3,0,0,0,0,0,0,0,63488,113,4132,37952,24,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,512,0,0,0,0,0,0,0,57600,16444,32800,40968,0,0,0,0,0,0,0,0,0,0,0,32,0,0,0,0,0,0,0,0,0,0,0,32896,0,0,0,0,0,0,0,0,0,450,16512,4352,64,33,0,0,0,0,0,0,0,52752,1027,34818,512,0,0,0,0,0,0,0,0,0,0,0,64,32,0,0,0,0,0,0,0,0,0,32768,1,1272,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,32768,0,0,0,0,0,0,0,0,0,0,0,0,4,0,0,0,0,0,0,0,0,0,0,0,32,0,0,0,0,0,0,0,0,0,0,0,4096,14,68,8,0,0,0,0,0,0,0,0,32768,112,12320,1088,16,0,0,0,0,0,0,0,0,900,33024,10112,63616,7,0,0,0,0,0,0,0,7200,2048,0,2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,32768,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,32,0,0,0,0,0,0,0,57104,1027,34818,2560,64,0,0,0,0,0,0,0,0,0,0,0,2048,0,0,0,0,0,0,0,41984,243,129,32802,4096,0,0,0,0,0,0,0,0,0,0,128,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,32768,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1024,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,64,0,0,0,0,0,0,0,48672,2055,4100,1025,128,0,0,0,0,0,0,0,0,0,0,32768,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,256,64,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,16384,0,0,0,0,0,0,0,8192,1980,1032,272,4,0,0,0,0,0,0,0,0,16904,513,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,14528,4160,0,64,0,0,0,0,0,0,0,0,0,0,0,32768,0,0,0,0,0,0,0,0,0,0,0,0,4,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,33668,256,512,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,4,0,0,0,0,0,0,0,0,0,0,0,32,12,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,4096,128,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,9,0,0,0,0,0,0,0,0,0,0,0,512,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,256,0,0,0,0,0,0,0,0,0,0,0,6144,0,0,0,0,0,0,0,0,0,0,0,0,128,16,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,48,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,900,33024,9728,128,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,64,2,0,0,0,0,0,0,0,0,0,0,512,16,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,192,64512,3,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,28800,8192,16384,64,0,0,0,0,0,0,0,0,33792,3,1,2,0,0,0,0,0,0,0,0,8192,28,8,0,0,0,0,0,0,0,0,0,0,0,0,96,65024,1,0,0,0,0,0,0,0,0,0,768,61440,15,0,0,0,0,0,0,0,0,0,6144,32768,127,0,0,0,0,0,0,0,49664,32769,64,16401,0,0,0,0,0,0,0,0,16128,32782,516,4744,771,0,0,0,0,0,0,0,32768,112,4128,1088,16,0,0,0,0,0,0,0,0,0,0,4096,0,0,0,0,0,0,0,0,0,7200,2048,4100,1025,16,0,0,0,0,0,0,0,0,0,0,128,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,16384,56,2064,544,8,0,0,0,0,0,0,0,0,450,128,256,0,0,0,0,0,0,0,0,0,3641,1024,34818,512,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,128,48,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,64,0,128,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,4096,0,8192,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,32768,112,4128,1088,18,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,7296,7,258,68,1,0,0,0,0,0,0,0,58368,56,2064,1568,8,0,0,0,0,0,0,0,0,0,0,32768,1024,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,32,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,16,0,0,0,0,0,0,0,0,0,0,0,32768,0,0,0,0,0,0,0,0,0,0,0,32768,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,4096,14,516,136,2050,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,8192,0,0,0,0,0,0,0,0,0,0,512,0,3,0,0,0,0,0,0,0,0,0,0,0,24,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,57344,455,16528,20736,98,0,0,0,0,0,0,0,0,3647,1152,34818,786,0,0,0,0,0,0,0,0,0,256,3968,1,0,0,0,0,0,0,0,0,0,0,0,8,0,0,0,0,0,0,0,0,0,0,2048,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,144,0,0,0,0,0,0,0,0,0,0,0,2048,1024,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,8224,0,0,0,0,0,0,0,0,32768,112,4128,1088,16400,0,0,0,0,0,0,0,0,0,0,0,2,1,0,0,0,0,0,0,0,0,0,3072,49152,39,0,0,0,0,0,0,0,57600,16384,57376,8201,510,0,0,0,0,0,0,0,0,0,0,3,4080,0,0,0,0,0,0,0,16384,56,16,8224,0,0,0,0,0,0,0,0,0,450,128,256,0,0,0,0,0,0,0,0,0,0,0,1536,57344,31,0,0,0,0,0,0,0,0,0,12288,0,255,0,0,0,0,0,0,0,0,0,32768,1,2040,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,16128,32782,516,4744,771,0,0,0,0,0,0,0,51200,113,4128,1088,16,0,0,0,0,0,0,0,0,61440,16,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,18,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1152,0,0,0,0,0,0,0,0,0,0,0,0,4,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,32768,0,0,0,0,0,0,0,0,0,0,0,0,12,0,0,0,0,0,0,0,0,0,0,0,96,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1800,512,32768,0,0,0,0,0,0,0,0,0,0,0,16,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,14592,14,516,136,2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,16384,910,33024,8704,128,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,58256,16384,32800,8200,0,0,0,0,0,0,0,0,7296,7,258,68,1,0,0,0,0,0,0,0,58368,56,2064,544,8,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1024,0,0,0,0,0,0,0,0,36416,3,129,32802,0,0,0,0,0,0,0,0,0,0,0,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,2048,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1024,0,256,0,0,0,0,0,0,0,0,0,0,0,0,4,0,0,0,0,0,0,0,32768,113,32,32768,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,256,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,4096,0,0,0,0,0,0,0,0,0,0,0,32768,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,2048,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,32768,1820,512,17409,256,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,50976,32769,64,16401,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,51200,113,5152,1088,8720,0,0,0,0,0,0,0,0,900,256,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,57600,16384,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,64,0,0,0,0,0,0,0,0,0,0,0,512,0,0,0,0,0,0,0,0,0,0,0,4096,0,0,0,0,0,0,0,0,0,0,0,6144,32768,127,0,0,0,0,0,0,0,49664,32769,0,257,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,32768,112,32,16448,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,7282,2048,4100,1025,0,0,0,0,0,0,0,0,57600,16384,32768,0,0,0,0,0,0,0,0,0,0,0,0,8,0,0,0,0,0,0,0,0,16384,56,2064,544,8,0,0,0,0,0,0,0,57344,455,16528,20736,24674,0,0,0,0,0,0,0,0,0,0,0,8,0,0,0,0,0,0,0,0,29128,8192,16400,4100,0,0,0,0,0,0,0,0,36800,8195,129,50338,192,0,0,0,0,0,0,0,32256,28,1033,9488,1542,0,0,0,0,0,0,0,61440,227,8264,10368,12337,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,14588,4608,8200,3146,12,0,0,0,0,0,0,0,51168,36865,49216,25169,96,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,63488,113,4132,37952,6168,0,0,0,0,0,0,0,49152,911,33056,41472,49348,0,0,0,0,0,0,0,0,7200,2048,4100,1025,0,0,0,0,0,0,0,0,58352,18432,32800,12584,48,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,57344,455,16528,20736,24674,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,29176,8192,16400,4244,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,36864,0,0,0,0,0,0,0,0,61440,227,8256,10368,33,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,14588,4096,8200,2122,0,0,0,0,0,0,0,0,32,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,2048,0,32,0,0,0,0,0,0,0,0,0,0,0,0,18432,0,0,0,0,0,0,0,0,0,0,0,16384,2,0,0,0,0,0,0,0,0,0,0,0,128,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1152,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,4096,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,36800,8195,129,50338,16576,0,0,0,0,0,0,0,8192,1948,1032,272,4,0,0,0,0,0,0,0,0,0,0,0,0,16,0,0,0,0,0,0,0,59144,513,17409,256,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,48,65280,0,0,0,0,0,0,0,0,0,0,0,0,2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,58352,18432,32816,12584,48,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,16384,56,2064,544,8,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,4,0,0,0,0,0,0,0,0,256,0,0,0,0,0,0,0,0,0,0,0,0,0,512,0,0,0,0,0,0,0,0,0,0,0,64,0,0,0,0,0,0,0,0,0,0,0,512,0,0,0,0,0,0,0,0,0,0,0,4096,0,0,0,0,0,0,0,0,0,0,0,0,128,0,0,0,0,0,0,0,0,0,0,49152,0,1020,0,0,0,0,0,0,0,4096,14,4,2056,0,0,0,0,0,0,0,0,32768,112,32,16448,0,0,0,0,0,0,0,0,16384,910,33024,8704,128,0,0,0,0,0,0,0,0,7200,2048,4096,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,2048,7,258,68,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,450,16512,4352,64,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,29128,8192,16400,4100,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,4096,0,0,0,0,0,0,0,0,0,225,8256,2176,32,0,0,0,0,0,0,0,0,1800,512,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,8192,0,0,0,0,0,0,0,4096,974,516,392,2,1,0,0,0,0,0,0,32768,7792,4128,1088,80,8,0,0,0,0,0,0,0,63428,33024,8704,128,16,0,0,0,0,0,0,0,0,0,0,0,512,0,0,0,0,0,0,0,61696,16445,32800,8200,1024,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,32768,0,0,0,0,0,0,0,0,8192,455,16512,4352,64,0,0,0,0,0,0,0,0,0,0,1536,57344,31,0,0,0,0,0,0,0,0,0,0,0,2560,0,0,0,0,0,0,0,50176,247,129,32802,4096,0,0,0,0,0,0,0,0,4,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1816,512,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,128,0,0,0,0,0,0,0,0,0,0,0,4096,14,4,0,0,0,0,0,0,0,0,0,32768,113,32,0,0,0,0,0,0,0,0,0,0,908,256,0,4,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,16384,0,0,0,0,0,0,0,0,0,0,0,0,2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,40,0,0,0,0,0,0,0,57104,1027,34818,512,64,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,33792,3,1,514,0,0,0,0,0,0,0,0,8192,28,1032,4368,4,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,4096,0,0,0,0,0,0,0,0,0,0,0,50688,32769,0,512,0,0,0,0,0,0,0,0,0,0,0,64,24,0,0,0,0,0,0,0,0,0,0,512,192,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,7200,2052,0,0,0,0,0,0,0,0,0,0,0,0,0,1,0,0,0,0,0,0,0,0,0,0,0,4096,0,0,0,0,0,0,0,0,58368,56,2064,544,8,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,49154,0,0,0,0,0,0,0,0,0,0,0,0,16384,0,0,0,0,0,0,0,8192,1948,1032,784,4,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,51168,36865,64,25169,96,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,16,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,58368,56,2064,544,8,0,0,0,0,0,0,0,0,450,128,256,1,0,0,0,0,0,0,0,0,3641,1024,34818,512,0,0,0,0,0,0,0,0,28800,8192,16384,0,0,0,0,0,0,0,0,0,0,0,32,0,272,0,0,0,0,0,0,0,0,0,0,12,16320,0,0,0,0,0,0,0,61440,227,8264,10368,12337,0,0,0,0,0,0,0,0,0,0,0,0,4,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1024,0,0,0,0,0,0,0,0,0,0,14592,14,516,136,2,0,0,0,0,0,0,0,32768,112,4128,1088,16,0,0,0,0,0,0,0,0,0,0,1024,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,450,128,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,29128,8192,16400,4100,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,4,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,63488,113,4132,37952,6168,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,2,0,0,0,0,0,0,0,0,0,4096,0,0,0,0,0,0,0,0,0,0,0,32768,49152,0,0,0,0,0,0,0,0,0,0,0,0,32,0,0,0,0,0,0,0,0,0,0,0,8192,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,512,0,0,0,0,0,0,0,0,0,0,16384,16,0,0,0,0,0,0,0,0,0,0,0,258,0,0,0,0,0,0,0,0,0,0,0,3088,0,0,0,0,0,0,0,0,0,0,14588,4608,8200,3146,12,0,0,0,0,0,0,0,51168,36865,64,25169,96,0,0,0,0,0,0,0,0,8192,0,0,0,0,0,0,0,0,0,0,0,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,8064,16391,258,35140,385,0,0,0,0,0,0,0,0,32768,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,0,0,0,0,0,0,0,0,0,0,0,8,0,0,0,0,0,0,0,0,0,0,0,64,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,29184,28,1032,272,4,0,0,0,0,0,0,0,0,225,64,32896,0,0,0,0,0,0,0,0,32768,1820,512,17409,256,0,0,0,0,0,0,0,0,14400,4096,8192,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,8192,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,16,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,29128,8192,16400,4100,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,2,0,0,16,0,0,0,0,0,0,0,61320,513,17409,256,32,0,0,0,0,0,0,0,0,0,0,8192,0,0,0,0,0,0,0,0,0,0,0,32768,0,0,0,0,0,0,0,0,0,0,128,0,1088,0,0,0,0,0,0,0,0,0,1024,0,8704,0,0,0,0,0,0,0,0,0,0,0,2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,58256,16384,32800,8200,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,58368,56,2064,544,8,0,0,0,0,0,0,0,57344,455,16528,20736,24674,0,0,0,0,0,0,0,0,3647,1152,34818,786,3,0,0,0,0,0,0,0,0,256,0,0,0,0,0,0,0,0,0,0,0,2048,2,0,0,0,0,0,0,0,0,0,0,16384,32,0,0,0,0,0,0,0,0,0,0,0,256,0,0,0,0,0,0,0,0,0,32768,1823,576,17409,33161,1,0,0,0,0,0,0,0,14588,4608,8200,3146,12,0,0,0,0,0,0,0,0,0,2,0,0,0,0,0,0,0,0,0,16128,32782,516,4744,771,0,0,0,0,0,0,0,32768,112,4128,1088,16,0,0,0,0,0,0,0,0,900,33024,8704,128,0,0,0,0,0,0,0,0,7294,2304,4100,1573,6,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,4096,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,16,0,0,0,0,0,0,0,0,0,0,0,0,64,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1024,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,128,2,0,0,0,0,0,0,0,0,0,0,0,2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,58256,16384,32800,8200,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,58368,56,2064,544,8,0,0,0,0,0,0,0,0,0,4,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,256,0,2176,0,0,0,0,0,0,0,0,0,0,0,2,0,0,0,0,0,0,0,0,0,0,0,16,0,0,0,0,0,0,0,0,14400,4096,1,0,0,0,0,0,0,0,0,0,0,0,0,0,2048,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,4,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,450,16512,4352,65,0,0,0,0,0,0,0,0,3647,1152,34818,786,3,0,0,0,0,0,0,0,28800,8192,16384,64,0,0,0,0,0,0,0,0,0,0,0,32,0,0,0,0,0,0,0,0,0,0,0,128,48,0,0,0,0,0,0,0,0,0,0,1024,384,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,4096,14,4,256,0,0,0,0,0,0,0,0,0,0,0,1024,0,0,0,0,0,0,0,0,0,0,8,0,0,0,0,0,0,0,0,0,0,7294,2304,4100,1573,6,0,0,0,0,0,0,0,57600,16384,32768,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,4,0,0,0,0,0,0,0,0,3641,1024,34818,512,0,0,0,0,0,0,0,0,29128,8192,16400,4100,0,0,0,0,0,0,0,0,36416,3,129,32802,0,0,0,0,0,0,0,0,0,0,0,32768,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,14564,4096,8200,2050,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,16128,32782,516,4744,771,0,0,0,0,0,0,0,51200,113,4128,1088,16,0,0,0,0,0,0,0,0,0,8,0,0,0,0,0,0,0,0,0,0,0,0,16384,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,4096,0,0,0,0,0,0,0,0,0,0,64512,56,2066,18976,3084,0,0,0,0,0,0,0,0,0,4,0,0,0,0,0,0,0,0,0,0,0,32,0,0,0,0,0,0,0,0,0,0,29176,9216,16400,6292,24,0,0,0,0,0,0,0,36800,8195,129,50338,192,0,0,0,0,0,0,0,0,0,32,0,0,0,0,0,0,0,0,0,0,0,2,0,0,0,0,0,0,0,0,0,0,0,16,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,14592,14,516,136,2,0,0,0,0,0,0,0,0,0,0,0,2,8,0,0,0,0,0,0,0,63428,33024,8704,128,16,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,32768,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,64512,56,2066,18976,3084,0,0,0,0,0,0,0,0,0,4,0,0,0,0,0,0,0,0,0,0,0,32,0,0,0,0,0,0,0,0,0,0,0,256,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,16384,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,128,0,1088,0,0,0,0,0,0,0,0,0,0,384,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,64,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,144,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,28800,8192,16384,0,0,0,0,0,0,0,0,0,0,0,0,4096,0,0,0,0,0,0,0,0,0,16384,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 ]) {-# NOINLINE happyExpListPerState #-} happyExpListPerState st = token_strs_expected - where token_strs = ["error","%dummy","%start_vmodule","%start_program","%start_programLayout","%start_expr","%start_decl","%start_decls","%start_declsLayout","%start_letDecl","%start_repl","%start_schema","%start_modName","%start_helpName","vmodule","module_def","vmod_body","import","impName","mbAs","mbImportSpec","name_list","mbHiding","program","program_layout","top_decls","vtop_decls","vtop_decl","top_decl","private_decls","prim_bind","parameter_decls","par_decls","par_decl","doc","mbDoc","propguards","decl","let_decls","let_decl","newtype","newtype_body","vars_comma","var","apats","indices","indices1","apats_indices","opt_apats_indices","decls","vdecls","decls_layout","repl","qop","op","pat_op","other_op","ops","expr","exprNoWhere","whereClause","typedExpr","simpleExpr","longExpr","ifBranches","ifBranch","simpleRHS","longRHS","simpleApp","longApp","aexprs","aexpr","no_sel_aexpr","sel_expr","selector","poly_terms","poly_term","tuple_exprs","rec_expr","field_exprs","field_expr","field_path","field_how","list_expr","list_alts","matches","match","pat","ipat","apat","tuple_pats","field_pat","field_pats","schema","schema_vars","schema_quals","schema_qual","kind","schema_param","schema_params","tysyn_param","tysyn_params","type","infix_type","app_type","atype","atypes","dimensions","tuple_types","field_type","field_types","ident","name","smodName","modName","qname","help_name","tick_ty","field_ty_val","field_ty_vals","NUM","FRAC","STRLIT","CHARLIT","IDENT","QIDENT","SELECTOR","'include'","'import'","'as'","'hiding'","'private'","'parameter'","'property'","'infix'","'infixl'","'infixr'","'type'","'newtype'","'module'","'submodule'","'where'","'let'","'if'","'then'","'else'","'x'","'down'","'by'","'primitive'","'constraint'","'Prop'","'propguards'","'['","']'","'<-'","'..'","'...'","'..<'","'..>'","'|'","'<'","'>'","'('","')'","','","';'","'{'","'}'","'<|'","'|>'","'='","'`'","':'","'->'","'=>'","'\\\\'","'_'","'v{'","'v}'","'v;'","'+'","'*'","'^^'","'-'","'~'","'#'","'@'","OP","QOP","DOC","%eof"] - bit_start = st Prelude.* 192 - bit_end = (st Prelude.+ 1) Prelude.* 192 + where token_strs = ["error","%dummy","%start_vmodule","%start_program","%start_programLayout","%start_expr","%start_decl","%start_decls","%start_declsLayout","%start_letDecl","%start_repl","%start_schema","%start_modName","%start_helpName","vmodule","module_def","vmod_body","import","impName","mbAs","mbImportSpec","name_list","mbHiding","program","program_layout","top_decls","vtop_decls","vtop_decl","top_decl","private_decls","prim_bind","parameter_decls","par_decls","par_decl","doc","mbDoc","propguards","propguards_cases","propguards_case","propguards_quals","decl","let_decls","let_decl","newtype","newtype_body","vars_comma","var","apats","indices","indices1","apats_indices","opt_apats_indices","decls","vdecls","decls_layout","repl","qop","op","pat_op","other_op","ops","expr","exprNoWhere","whereClause","typedExpr","simpleExpr","longExpr","ifBranches","ifBranch","simpleRHS","longRHS","simpleApp","longApp","aexprs","aexpr","no_sel_aexpr","sel_expr","selector","poly_terms","poly_term","tuple_exprs","rec_expr","field_exprs","field_expr","field_path","field_how","list_expr","list_alts","matches","match","pat","ipat","apat","tuple_pats","field_pat","field_pats","schema","schema_vars","schema_quals","schema_qual","kind","schema_param","schema_params","tysyn_param","tysyn_params","type","infix_type","app_type","atype","atypes","dimensions","tuple_types","field_type","field_types","ident","name","smodName","modName","qname","help_name","tick_ty","field_ty_val","field_ty_vals","NUM","FRAC","STRLIT","CHARLIT","IDENT","QIDENT","SELECTOR","'include'","'import'","'as'","'hiding'","'private'","'parameter'","'property'","'infix'","'infixl'","'infixr'","'type'","'newtype'","'module'","'submodule'","'where'","'let'","'if'","'then'","'else'","'x'","'down'","'by'","'primitive'","'constraint'","'Prop'","'propguards'","'['","']'","'<-'","'..'","'...'","'..<'","'..>'","'|'","'<'","'>'","'('","')'","','","';'","'{'","'}'","'<|'","'|>'","'='","'`'","':'","'->'","'=>'","'\\\\'","'_'","'v{'","'v}'","'v;'","'+'","'*'","'^^'","'-'","'~'","'#'","'@'","OP","QOP","DOC","%eof"] + bit_start = st Prelude.* 195 + bit_end = (st Prelude.+ 1) Prelude.* 195 read_bit = readArrayBit happyExpList bits = Prelude.map read_bit [bit_start..bit_end Prelude.- 1] - bits_indexed = Prelude.zip bits [0..191] + bits_indexed = Prelude.zip bits [0..194] token_strs_expected = Prelude.concatMap f bits_indexed f (Prelude.False, _) = [] f (Prelude.True, nr) = [token_strs Prelude.!! nr] happyActOffsets :: Happy_Data_Array.Array Prelude.Int Prelude.Int -happyActOffsets = Happy_Data_Array.listArray (0,629) ([-16,484,-49,1103,1388,1388,-45,1190,933,2430,1027,1123,50,1027,0,0,0,0,0,0,0,-53,0,0,0,0,0,0,0,0,1980,0,0,0,0,0,0,0,0,0,0,0,-53,0,1335,-53,2442,2442,0,-20,2050,0,0,2491,2503,0,0,2516,839,439,0,0,15,71,192,0,0,1963,0,0,0,3108,0,1568,0,211,211,0,0,0,0,0,233,243,248,1433,2925,1103,1018,769,1497,4,968,2950,0,1423,1423,214,214,1237,301,189,884,554,-34,630,2137,0,357,376,389,1669,2835,1167,582,0,314,-13,314,606,314,519,358,0,0,457,0,442,0,461,670,520,0,42,0,0,0,0,1308,1924,0,789,536,576,0,1571,0,566,104,0,210,0,263,590,0,602,283,124,0,307,0,2846,0,231,256,0,2067,2154,836,1581,1147,2224,2224,2224,2950,1103,2950,608,1170,617,0,2950,1756,2561,0,0,141,0,3125,0,3142,0,2876,0,0,0,2574,2417,299,0,0,607,0,649,654,652,0,1212,0,678,666,102,885,0,1423,1423,1732,683,701,0,98,38,0,222,1212,143,630,1167,2224,1500,1843,2224,2224,2224,0,0,0,0,0,1103,2574,1190,0,588,0,710,684,3183,709,930,1036,0,1089,725,0,2586,0,2635,0,2635,2635,2635,0,0,711,2635,711,0,745,0,-5,739,1027,0,765,0,0,834,844,0,3035,832,0,0,2635,0,2635,0,866,1147,0,1147,0,0,0,0,0,0,853,853,853,2224,2381,0,2472,0,2635,1843,881,2950,1103,889,2647,1103,1103,1103,0,1103,960,0,1103,1103,2950,1103,0,0,1103,0,1568,0,768,1568,0,1568,952,0,7,813,947,907,0,951,0,923,0,1103,1388,0,1388,0,0,0,2224,917,0,1045,0,2950,0,934,987,963,981,981,981,977,2224,2616,2760,2660,1843,0,2950,0,2950,0,2660,0,984,2950,1147,0,0,1343,1257,734,0,734,0,989,2705,2224,999,734,1075,0,1846,0,1109,1147,1846,1027,0,1058,1067,0,1065,734,0,3041,2895,0,0,114,1027,168,260,0,1451,1100,1119,2705,0,0,401,0,1363,0,0,0,1103,0,0,0,1124,0,0,2718,3100,2718,1843,-19,2224,1103,1127,0,1178,0,2950,1171,0,0,0,0,1147,0,2718,0,0,0,0,0,1180,0,1103,0,0,1180,1205,116,1209,1215,0,1222,610,316,918,1103,1103,1229,1229,0,0,0,1103,1229,1211,1214,1230,0,2718,3103,2718,1843,0,1242,0,1204,0,0,0,0,0,0,2718,0,3035,1243,670,1223,1231,-19,-19,1254,0,2718,0,2718,1103,1103,1285,646,407,1280,1103,1103,1283,1103,2950,2950,1103,0,1292,0,1276,0,0,0,1312,0,74,1284,0,2718,0,2718,1315,0,0,0,-19,1290,1295,1672,1268,0,1268,0,0,0,1306,0,2906,1103,3112,1303,446,515,0,0,0,1113,1303,1345,1103,1930,0,0,1310,2718,2730,2730,1302,0,0,2779,0,1347,1319,0,1349,1103,1349,1349,1103,1103,1357,1350,1350,0,0,2779,1321,670,0,1329,0,1103,1372,1372,1372,0,0,0,0,-19,1051,0,1372,0,965,0,0,0,1930,1340,1374,0,0,0 +happyActOffsets = Happy_Data_Array.listArray (0,637) ([-17,511,-49,1130,1415,1415,47,1217,960,2509,560,1150,39,560,0,0,0,0,0,0,0,50,0,0,0,0,0,0,0,0,1833,0,0,0,0,0,0,0,0,0,0,0,50,0,2147,50,2521,2521,0,99,1104,0,0,2534,2579,0,0,2592,866,1174,0,0,79,92,220,0,0,1816,0,0,0,3190,0,1595,0,254,254,0,0,0,0,0,179,310,329,1460,2992,1130,1045,796,1524,6,995,3017,0,1450,1450,283,283,1264,317,77,911,581,124,657,1903,0,372,413,422,1696,2902,1194,1309,0,367,-14,367,633,367,546,402,0,0,429,0,464,0,400,697,416,0,-42,0,0,0,0,1335,1296,0,816,448,465,0,1598,0,490,255,0,150,0,570,508,0,522,38,35,0,233,0,2913,0,110,182,0,1920,1990,863,442,2322,2007,2007,2007,3017,1130,3017,553,1197,555,0,3017,1080,2604,0,0,395,0,3207,0,3224,0,2943,0,0,0,2653,2460,185,0,0,568,0,583,591,671,0,1239,0,684,629,181,345,0,1450,1450,1759,700,695,0,676,166,0,212,1239,158,657,1194,2007,1138,1608,2007,2007,2007,0,0,0,0,0,1130,2653,1217,0,716,0,766,709,3265,693,439,566,0,1362,782,0,2665,0,2678,0,2678,2678,2678,0,0,801,2678,801,0,802,0,-18,837,560,0,870,0,0,878,909,0,3117,894,0,0,2678,0,2678,0,893,2322,0,2322,0,0,0,0,0,0,907,907,907,2007,1527,0,2485,0,2678,1608,941,3017,1130,943,2723,1130,1130,1130,0,1130,987,0,1130,1130,3017,1130,0,0,1130,0,1595,0,800,1595,0,1595,1011,0,17,840,903,972,0,936,0,996,0,1130,1415,0,1415,0,0,0,2007,990,0,1072,0,3017,0,975,1032,1018,1025,1025,1025,1027,2007,2634,2778,2736,1608,0,3017,0,3017,0,2736,0,1036,3017,2322,0,0,1370,1284,761,0,761,0,1043,2748,2007,1041,761,1103,0,2234,0,1118,2322,2234,560,0,1064,1085,0,1068,761,0,3164,2962,0,0,161,560,492,567,0,1478,1100,1109,2748,0,0,608,0,1390,0,0,0,1130,0,0,0,1106,0,0,2797,3182,2797,1608,-15,2007,1130,1107,0,1154,2797,3017,1136,0,0,0,0,2322,0,2797,0,0,0,0,0,1143,0,1130,0,0,1143,1169,129,1156,1152,0,1164,598,235,393,1130,1130,1181,1181,0,0,0,1130,1181,1158,1159,1170,0,2797,3185,2797,1608,0,1171,0,1188,0,0,0,0,0,0,2797,0,3117,1204,697,1193,1195,-15,-15,1215,0,2797,0,2797,1130,1130,1250,759,503,1248,1130,1130,1249,1130,3017,3017,1130,0,1263,0,1234,0,0,0,0,1247,1236,0,1268,0,342,1241,0,2797,0,2797,1281,0,0,0,-15,1251,1252,1699,1238,0,1238,0,0,0,1269,0,2973,1130,3194,1275,635,743,0,0,0,1537,1275,1303,1130,1783,0,0,1262,2797,2809,2809,1272,0,0,2822,0,1130,2822,1311,1288,0,1319,1130,1319,1319,1130,1130,1326,1341,1341,0,0,2822,1302,697,0,1304,0,1130,1344,1344,1344,0,1344,0,0,0,0,-15,611,0,1344,0,974,0,0,0,1783,1313,1349,0,0,0 ]) happyGotoOffsets :: Happy_Data_Array.Array Prelude.Int Prelude.Int -happyGotoOffsets = Happy_Data_Array.listArray (0,629) ([1402,269,1403,1575,158,213,1377,1394,340,3179,1042,330,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1019,0,0,0,0,0,0,0,0,0,0,0,0,0,318,0,3331,2704,0,0,563,0,0,891,943,0,0,2443,767,692,0,0,0,0,0,0,0,1291,0,0,0,1371,0,69,0,1370,1391,0,0,0,0,0,0,0,0,110,-1,1438,668,604,3156,1070,727,33,0,415,2946,0,0,326,0,0,249,381,0,1122,0,0,0,0,0,198,447,510,-62,0,0,0,0,129,0,285,0,0,0,0,0,0,0,0,9,0,0,0,0,0,0,0,383,1397,0,16,0,0,0,463,0,0,0,0,1385,0,0,0,0,0,0,0,0,0,0,1213,0,0,0,0,743,0,418,349,1356,1236,1342,1399,85,1591,499,0,20,0,0,24,-26,3202,0,0,0,0,1405,0,1405,0,206,0,0,0,2587,3359,0,0,0,0,0,0,0,0,0,12,0,0,0,0,0,0,2957,2968,0,0,0,0,0,0,0,0,400,0,1129,1046,812,471,503,1627,1715,1744,0,0,0,0,0,2933,2877,1130,0,0,0,0,0,0,0,0,0,0,795,0,0,976,0,3377,0,3391,822,3405,0,0,0,3345,0,0,0,0,0,0,1049,0,0,0,0,0,0,0,0,0,0,0,3419,0,3433,0,3045,368,0,153,0,0,0,0,0,0,0,0,0,1023,542,0,294,0,3447,321,0,428,1607,0,3225,2762,1509,1662,0,1678,1694,0,1749,1765,1445,1781,0,0,1836,0,1351,0,1369,481,0,2702,0,0,1393,0,0,0,0,0,0,0,0,2777,385,0,393,0,0,0,1050,0,0,278,0,58,0,0,0,0,0,0,0,0,1179,788,513,3461,544,0,165,0,242,0,3475,0,0,379,-36,0,0,328,345,196,0,244,0,0,3248,1203,1823,156,1453,0,824,0,0,1086,857,5,0,0,0,0,1856,177,0,830,39,0,0,535,1099,0,0,0,1105,0,0,3271,0,0,0,0,411,0,0,0,1852,0,0,0,0,0,0,3489,579,3503,700,1376,1252,1868,0,0,0,0,660,0,0,0,0,0,413,0,3517,0,0,0,0,0,0,0,1923,0,0,0,0,0,0,0,0,0,0,0,0,1939,1955,0,0,0,0,0,2010,0,0,0,0,0,3531,705,3545,718,0,0,0,0,0,0,0,0,0,0,3559,0,0,0,37,0,0,1382,1383,0,0,3573,0,3587,2026,2042,0,0,0,0,2097,2113,0,2129,148,635,2184,0,0,0,0,0,0,0,0,0,0,0,0,3601,0,3615,0,0,0,0,1387,0,0,1143,986,0,1279,0,0,0,0,0,665,2200,732,1441,0,0,0,0,0,1207,1447,0,2216,-6,0,0,0,3629,3294,3317,0,0,0,3643,0,0,0,0,0,2271,0,0,2287,2303,0,0,0,0,0,3657,0,65,0,0,0,2358,0,0,0,0,0,0,0,1389,0,0,0,0,0,0,0,0,-22,0,0,0,0,0 +happyGotoOffsets = Happy_Data_Array.listArray (0,637) ([1384,256,1381,1599,155,173,1352,1366,324,2222,748,505,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1023,0,0,0,0,0,0,0,0,0,0,0,0,0,564,0,2384,3364,0,0,836,0,0,915,1014,0,0,2458,791,1457,0,0,0,0,0,0,0,1424,0,0,0,1346,0,288,0,1336,1340,0,0,0,0,0,0,0,0,207,300,1462,692,628,3235,136,710,61,0,3010,3021,0,0,260,0,0,20,401,0,874,0,0,0,0,0,253,2063,417,-12,0,0,0,0,112,0,269,0,0,0,0,0,0,0,0,9,0,0,0,0,0,0,0,403,1367,0,-3,0,0,0,857,0,0,0,0,1360,0,0,0,0,0,0,0,0,0,0,2150,0,0,0,0,989,0,368,488,1310,1651,1739,1768,193,1615,258,0,168,0,0,-8,-23,2309,0,0,0,0,1361,0,1361,0,197,0,0,0,2602,3392,0,0,0,0,0,0,0,0,0,-5,0,0,0,0,0,0,3032,3047,0,0,0,0,0,0,0,0,430,0,923,558,1083,420,724,1913,1999,2086,0,0,0,0,0,2997,2746,946,0,0,0,0,0,0,0,0,0,0,1053,0,0,1000,0,2941,0,3410,846,3424,0,0,0,3378,0,0,0,0,0,0,1127,0,0,0,0,0,0,0,0,0,0,0,3438,0,3452,0,2768,938,0,97,0,0,0,0,0,0,0,0,0,1203,495,0,341,0,3466,479,0,370,1631,0,3258,2826,1533,1686,0,1702,1718,0,1773,1789,986,1805,0,0,1860,0,474,0,1345,561,0,1375,0,0,1347,0,0,0,0,0,0,0,0,2841,405,0,412,0,0,0,1286,0,0,262,0,95,0,0,0,0,0,0,0,0,1294,694,603,3480,667,0,-62,0,70,0,3494,0,0,267,-57,0,0,373,387,203,0,228,0,0,3281,1316,2125,137,1435,0,-37,0,0,880,685,5,0,0,0,0,2198,162,0,812,152,0,0,1111,1168,0,0,0,902,0,0,3304,0,0,0,0,414,0,0,0,1876,0,0,0,0,0,0,3508,729,3522,742,1343,1333,1892,0,0,0,302,397,0,0,0,0,0,433,0,3536,0,0,0,0,0,0,0,1947,0,0,0,0,0,0,0,0,0,0,0,0,1963,1979,0,0,0,0,0,2034,0,0,0,0,0,3550,756,3564,817,0,0,0,0,0,0,0,0,0,0,3578,0,0,0,34,0,0,1355,1364,0,0,3592,0,3606,2050,2066,0,0,0,0,2121,2137,0,2153,41,659,2208,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,3620,0,3634,0,0,0,0,1371,0,0,927,1402,0,1461,0,0,0,0,0,399,2224,854,1416,0,0,0,0,0,1528,1417,0,2240,13,0,0,0,3648,3327,3350,0,0,0,3662,0,2295,316,0,0,0,0,2311,0,0,2327,2382,0,0,0,0,0,3676,0,59,0,0,0,2398,0,0,0,0,0,0,0,0,0,1372,0,0,0,0,0,0,0,0,-19,0,0,0,0,0 ]) happyAdjustOffset :: Prelude.Int -> Prelude.Int happyAdjustOffset = Prelude.id happyDefActions :: Happy_Data_Array.Array Prelude.Int Prelude.Int -happyDefActions = Happy_Data_Array.listArray (0,629) ([0,0,0,0,0,0,0,0,-131,0,0,0,0,0,-315,-132,-134,-137,-307,-312,-314,0,-302,-313,-305,-306,-304,-303,-143,-144,0,-139,-138,-142,-140,-141,-135,-136,-145,-133,-308,-310,0,-309,0,0,0,0,-261,-254,-276,-278,-281,0,-282,-284,-285,0,0,0,-292,-130,-87,0,-129,-148,-152,0,-173,-159,-151,-174,-170,-171,-175,-177,-178,-179,-180,-181,-182,-183,0,0,0,0,0,0,0,0,0,0,0,0,-184,0,0,0,0,0,0,0,-108,0,0,-238,-110,-86,0,0,0,0,0,0,0,-240,0,0,0,0,0,0,0,-53,-68,0,-51,0,-67,0,0,0,-50,-17,-37,-47,-46,-48,0,0,-40,0,-304,0,-52,0,-35,0,0,-34,0,-252,0,0,-247,0,0,-236,-238,0,-239,0,-241,0,0,-244,0,-307,0,0,0,0,0,0,0,0,0,0,-115,0,-112,0,0,0,-122,-124,0,-128,-174,-169,-174,-168,0,-317,-192,-318,0,0,0,-199,-201,-202,-194,-212,0,-208,-209,-120,-188,-184,0,0,0,-187,-140,-141,-216,-217,0,-190,0,0,-162,0,-108,0,-238,0,0,0,0,0,0,0,-197,-198,-196,-176,-172,0,0,-88,-269,0,-300,0,-267,-258,0,0,0,-288,0,0,-293,-280,-282,0,-279,0,0,0,-262,-260,-256,0,-255,-311,0,-13,0,0,0,-316,-257,-275,-277,0,0,-294,-295,0,-290,-289,0,-287,0,-283,0,0,-291,0,-259,-89,-157,-158,-150,-146,-103,-101,-102,0,0,-273,0,-271,0,0,0,0,0,0,0,0,0,0,-191,0,0,-228,0,0,0,0,-186,-185,0,-193,0,-121,0,0,-189,0,0,-195,0,0,0,-307,-325,0,-320,0,-113,0,0,-127,0,-71,-109,-110,0,-119,-116,0,-118,0,-123,-237,-72,0,-85,-83,-84,0,0,0,0,0,0,-246,0,-245,0,-243,0,-242,-111,0,0,-248,-149,0,0,0,-33,0,-36,0,0,0,-69,0,-23,-21,0,-45,0,0,0,0,-41,-304,0,-14,-69,0,-49,0,0,-42,-20,-30,0,0,0,-61,0,0,0,0,-38,-39,0,-155,0,-153,-253,-251,0,-235,-249,-250,0,-77,-274,0,0,0,0,0,0,0,-114,-74,-75,-70,0,0,-125,-126,-161,-319,0,-321,0,-323,-322,-200,-203,-212,-206,-210,0,-213,-214,-207,-204,-204,-215,-230,-232,0,0,-221,-218,0,0,-205,-164,-163,-160,-94,0,-90,0,-111,0,-95,0,0,0,0,-270,-267,-301,-268,-299,-265,-264,-263,-297,-298,0,-286,-296,0,0,0,0,0,0,0,-98,0,-96,0,0,0,-91,0,-220,0,0,0,0,0,0,0,0,-229,-211,-324,0,-326,-111,-117,-76,-147,0,0,-80,0,-78,0,-73,-154,-156,-56,0,0,0,0,-69,-59,-69,-54,-22,-19,0,-29,0,0,0,0,0,0,-60,-55,-104,0,0,-44,0,-28,-63,-62,0,0,0,0,-58,-79,-81,0,-272,-219,-231,-233,-234,0,-224,-222,0,0,0,-93,-92,-97,-99,0,-266,0,-15,0,-100,0,-223,-225,-227,-82,-57,-64,-66,0,0,-27,-43,-105,0,-106,-107,-24,0,-65,-226,-16,-26 +happyDefActions = Happy_Data_Array.listArray (0,637) ([0,0,0,0,0,0,0,0,-135,0,0,0,0,0,-319,-136,-138,-141,-311,-316,-318,0,-306,-317,-309,-310,-308,-307,-147,-148,0,-143,-142,-146,-144,-145,-139,-140,-149,-137,-312,-314,0,-313,0,0,0,0,-265,-258,-280,-282,-285,0,-286,-288,-289,0,0,0,-296,-134,-91,0,-133,-152,-156,0,-177,-163,-155,-178,-174,-175,-179,-181,-182,-183,-184,-185,-186,-187,0,0,0,0,0,0,0,0,0,0,0,0,-188,0,0,0,0,0,0,0,-112,0,0,-242,-114,-90,0,0,0,0,0,0,0,-244,0,0,0,0,0,0,0,-53,-68,0,-51,0,-67,0,0,0,-50,-17,-37,-47,-46,-48,0,0,-40,0,-308,0,-52,0,-35,0,0,-34,0,-256,0,0,-251,0,0,-240,-242,0,-243,0,-245,0,0,-248,0,-311,0,0,0,0,0,0,0,0,0,0,-119,0,-116,0,0,0,-126,-128,0,-132,-178,-173,-178,-172,0,-321,-196,-322,0,0,0,-203,-205,-206,-198,-216,0,-212,-213,-124,-192,-188,0,0,0,-191,-144,-145,-220,-221,0,-194,0,0,-166,0,-112,0,-242,0,0,0,0,0,0,0,-201,-202,-200,-180,-176,0,0,-92,-273,0,-304,0,-271,-262,0,0,0,-292,0,0,-297,-284,-286,0,-283,0,0,0,-266,-264,-260,0,-259,-315,0,-13,0,0,0,-320,-261,-279,-281,0,0,-298,-299,0,-294,-293,0,-291,0,-287,0,0,-295,0,-263,-93,-161,-162,-154,-150,-107,-105,-106,0,0,-277,0,-275,0,0,0,0,0,0,0,0,0,0,-195,0,0,-232,0,0,0,0,-190,-189,0,-197,0,-125,0,0,-193,0,0,-199,0,0,0,-311,-329,0,-324,0,-117,0,0,-131,0,-75,-113,-114,0,-123,-120,0,-122,0,-127,-241,-76,0,-89,-87,-88,0,0,0,0,0,0,-250,0,-249,0,-247,0,-246,-115,0,0,-252,-153,0,0,0,-33,0,-36,0,0,0,-69,0,-23,-21,0,-45,0,0,0,0,-41,-308,0,-14,-69,0,-49,0,0,-42,-20,-30,0,0,0,-61,0,0,0,0,-38,-39,0,-159,0,-157,-257,-255,0,-239,-253,-254,0,-81,-278,0,0,0,0,0,0,0,-118,-78,-79,0,0,0,-129,-130,-165,-323,0,-325,0,-327,-326,-204,-207,-216,-210,-214,0,-217,-218,-211,-208,-208,-219,-234,-236,0,0,-225,-222,0,0,-209,-168,-167,-164,-98,0,-94,0,-115,0,-99,0,0,0,0,-274,-271,-305,-272,-303,-269,-268,-267,-301,-302,0,-290,-300,0,0,0,0,0,0,0,-102,0,-100,0,0,0,-95,0,-224,0,0,0,0,0,0,0,0,-233,-215,-328,0,-330,-115,-121,-70,-72,0,-74,-80,-151,0,0,-84,0,-82,0,-77,-158,-160,-56,0,0,0,0,-69,-59,-69,-54,-22,-19,0,-29,0,0,0,0,0,0,-60,-55,-108,0,0,-44,0,-28,-63,-62,0,0,0,0,-58,-83,-85,0,-276,0,0,-223,-235,-237,-238,0,-228,-226,0,0,0,-97,-96,-101,-103,0,-270,0,-15,0,-104,0,-227,-229,-231,-71,-73,-86,-57,-64,-66,0,0,-27,-43,-109,0,-110,-111,-24,0,-65,-230,-16,-26 ]) happyCheck :: Happy_Data_Array.Array Prelude.Int Prelude.Int -happyCheck = Happy_Data_Array.listArray (0,3774) ([-1,7,1,29,20,1,1,29,1,22,59,2,3,32,59,77,78,22,52,72,4,12,13,29,15,16,17,28,29,20,21,27,23,67,27,97,56,28,29,2,3,77,30,59,63,33,34,52,67,12,13,31,15,16,17,51,32,20,21,72,23,97,47,30,26,28,29,2,3,30,20,97,98,74,75,97,98,12,13,41,15,16,17,74,75,20,21,75,23,47,32,97,98,28,29,75,97,98,97,75,99,100,97,61,99,100,97,98,75,97,98,74,75,97,75,99,100,97,98,45,22,97,98,25,22,11,57,58,59,55,97,98,3,75,97,98,97,98,22,74,75,12,13,72,15,16,17,45,46,20,21,47,23,37,38,97,98,28,29,3,75,47,97,98,60,61,97,98,12,13,101,15,16,17,60,61,20,21,54,23,3,23,97,98,28,29,28,29,47,12,13,67,15,16,17,52,86,20,21,3,23,60,61,74,75,28,29,97,98,13,67,15,16,17,22,47,20,21,7,23,72,73,74,75,28,29,97,98,60,61,74,75,74,75,1,46,23,84,73,74,75,28,29,54,1,97,98,3,35,1,97,74,75,97,98,97,98,13,48,15,16,17,97,98,20,21,35,23,46,59,74,75,28,29,97,98,54,46,9,30,11,75,33,14,86,16,72,74,75,20,21,35,23,97,98,97,98,28,29,14,22,16,46,97,98,20,21,47,23,46,97,98,49,28,29,73,74,75,74,75,60,61,44,45,75,47,48,49,45,46,52,53,54,55,56,57,58,59,22,97,98,97,98,74,75,29,97,98,47,23,51,23,45,46,28,29,28,29,1,74,75,62,36,35,24,25,97,98,23,39,40,41,42,28,29,97,98,1,38,101,86,36,97,98,44,45,72,47,48,49,1,97,52,53,54,55,56,57,58,59,74,75,74,75,23,47,23,86,23,28,29,28,29,28,29,97,23,99,97,74,75,28,29,97,98,97,98,97,98,22,30,101,102,33,23,86,29,97,98,28,29,101,97,98,5,3,97,98,47,10,11,12,73,74,75,74,75,74,75,74,75,60,61,95,49,97,27,74,75,54,55,56,57,58,59,75,97,98,97,98,97,98,97,98,0,74,75,30,49,5,97,98,8,47,10,11,12,97,98,15,16,17,18,75,86,87,60,61,97,98,97,27,97,98,30,97,101,104,34,0,73,74,75,76,5,97,98,8,44,10,11,12,48,72,15,16,17,18,57,58,59,6,58,8,97,98,27,66,67,30,40,41,42,34,0,71,72,86,87,5,97,98,47,44,10,11,12,48,97,15,16,17,18,74,75,60,61,58,97,98,60,27,101,73,74,75,76,5,34,86,71,72,10,11,12,59,97,98,44,86,97,98,48,40,41,42,0,97,98,27,97,5,58,47,8,9,10,11,12,13,14,15,16,17,18,19,72,21,86,87,86,49,22,27,46,59,30,49,28,97,34,97,52,39,40,41,42,45,44,45,44,47,48,49,48,47,52,53,54,55,56,57,58,59,58,86,60,63,22,52,0,64,42,43,28,5,97,71,8,9,10,11,12,13,14,15,16,17,18,19,41,21,62,63,64,65,66,27,46,69,30,97,98,49,34,101,71,72,73,74,75,45,44,45,44,47,48,49,48,41,52,53,54,55,56,57,58,59,58,46,60,63,97,98,0,75,35,69,54,5,75,71,8,9,10,11,12,13,14,15,16,17,18,19,45,21,46,97,98,49,35,27,97,98,30,97,98,56,34,101,1,2,3,4,5,6,84,85,44,10,11,12,48,40,41,42,86,95,96,97,45,86,58,24,5,6,27,97,59,10,11,12,97,34,86,71,39,40,41,42,21,42,43,44,45,97,27,48,86,50,52,56,53,55,97,98,57,58,101,97,103,62,63,64,65,66,67,68,69,70,1,5,53,4,5,6,10,11,12,10,11,12,40,41,42,88,89,90,91,46,93,94,49,27,97,98,27,1,101,35,4,5,6,34,86,87,10,11,12,35,44,42,43,44,45,97,54,48,52,5,95,96,97,27,10,11,12,58,32,46,34,62,63,64,65,66,67,68,69,70,44,27,90,91,48,93,86,87,34,97,98,97,98,101,58,101,45,97,44,63,45,46,48,67,1,2,3,4,5,6,22,52,58,10,11,12,28,29,15,16,17,18,68,1,97,98,23,24,101,52,27,1,2,3,4,5,6,34,45,1,10,11,12,5,6,45,46,44,10,11,12,48,91,50,24,68,53,27,97,98,57,58,101,46,34,27,49,46,65,66,49,67,42,43,44,19,20,21,48,22,50,46,44,53,49,52,48,57,58,1,2,3,4,5,6,65,66,46,10,11,12,54,5,6,91,92,52,10,11,12,97,98,24,54,101,27,1,2,3,4,5,6,34,35,27,10,11,12,39,40,41,42,44,40,41,42,48,91,50,24,71,53,27,97,98,57,58,101,33,34,53,45,46,65,66,10,40,41,42,44,40,41,42,48,5,50,45,46,53,10,11,12,57,58,1,2,3,4,5,6,65,66,3,10,11,12,27,59,5,73,74,75,76,10,11,12,59,24,5,6,27,61,62,10,11,12,71,34,49,97,27,99,100,97,98,45,97,44,99,100,27,48,5,50,24,25,53,10,11,12,57,58,49,41,42,42,43,44,65,66,41,42,5,54,27,5,52,10,11,12,10,11,12,97,98,62,63,64,65,66,67,68,69,70,27,68,97,27,99,100,22,34,97,98,34,15,16,17,18,42,43,44,45,23,44,48,45,5,48,40,41,42,10,11,12,58,46,22,58,62,63,64,65,66,67,68,69,0,68,27,97,98,5,40,41,42,34,10,11,12,41,22,15,16,17,18,44,0,36,55,48,46,5,52,27,22,52,10,11,12,58,34,15,16,17,18,40,41,42,43,68,44,52,60,27,48,73,74,75,76,59,34,40,41,42,58,54,60,19,20,21,44,95,96,97,48,52,22,0,29,97,98,29,5,22,58,8,60,10,11,12,13,14,15,16,17,18,19,52,21,39,40,41,42,22,27,52,22,30,71,5,6,34,0,54,10,11,12,5,54,44,48,44,10,11,12,48,55,15,16,17,18,27,0,54,46,58,22,5,22,27,22,22,10,11,12,55,34,15,16,17,18,40,41,42,43,29,44,0,60,27,48,49,5,22,55,22,34,10,11,12,58,0,15,16,17,18,44,57,58,59,48,49,10,37,27,65,66,67,25,49,58,34,26,1,2,3,4,5,6,60,46,44,10,11,12,48,68,5,40,41,42,43,10,11,12,58,24,97,98,27,60,101,97,49,62,5,34,5,83,27,10,11,12,31,83,83,44,27,18,83,48,83,50,27,-1,53,44,27,-1,57,58,44,45,-1,47,48,49,50,51,52,53,54,55,56,57,58,59,1,2,3,4,5,6,-1,5,-1,10,11,12,10,11,12,-1,-1,70,71,72,73,74,75,-1,-1,-1,27,-1,-1,27,-1,-1,-1,34,-1,-1,-1,97,98,-1,-1,101,-1,44,97,98,44,48,49,50,-1,-1,53,-1,52,44,45,58,47,48,49,-1,51,52,53,54,55,56,57,58,59,1,2,3,4,5,6,-1,5,-1,10,11,12,10,11,12,-1,-1,5,-1,-1,18,-1,10,11,12,-1,27,-1,-1,27,-1,-1,-1,34,-1,-1,-1,97,98,27,-1,101,-1,44,-1,-1,44,48,-1,50,44,45,53,47,48,49,44,58,52,53,54,55,56,57,58,59,44,45,-1,47,48,49,-1,-1,52,53,54,55,56,57,58,59,44,45,-1,47,48,49,-1,-1,52,53,54,55,56,57,58,59,40,41,42,43,-1,97,98,5,-1,101,5,-1,10,11,12,10,11,12,-1,-1,-1,97,98,-1,-1,101,-1,-1,-1,27,-1,-1,27,31,-1,-1,31,97,98,44,45,101,47,48,49,-1,44,52,53,54,55,56,57,58,59,44,45,-1,47,48,49,-1,-1,52,53,54,55,56,57,58,59,44,45,-1,47,48,49,-1,-1,52,53,54,55,56,57,58,59,22,40,41,42,43,97,98,5,-1,101,-1,-1,10,11,12,37,38,39,40,41,-1,97,98,-1,46,101,-1,-1,-1,27,40,41,42,43,-1,-1,-1,97,98,44,45,101,47,48,49,-1,44,52,53,54,55,56,57,58,59,44,45,-1,47,48,49,-1,-1,52,53,54,55,56,57,58,59,44,45,-1,47,48,49,-1,-1,52,53,54,55,56,57,58,59,18,19,20,21,-1,97,98,5,-1,101,5,6,10,11,12,10,11,12,-1,-1,-1,97,98,-1,-1,101,-1,-1,-1,27,-1,-1,27,18,19,20,21,97,98,44,45,101,47,48,49,-1,44,52,53,54,55,56,57,58,59,44,45,-1,47,48,49,-1,-1,52,53,54,55,56,57,58,59,44,45,-1,47,48,49,-1,-1,52,53,54,55,56,57,58,59,-1,-1,-1,-1,8,97,98,5,-1,101,14,-1,10,11,12,19,-1,21,-1,-1,-1,97,98,-1,-1,101,30,-1,-1,27,-1,-1,-1,-1,-1,-1,-1,97,98,44,45,101,47,48,49,-1,44,52,53,54,55,56,57,58,59,44,45,-1,47,48,49,-1,-1,52,53,54,55,56,57,58,59,44,45,-1,47,48,49,42,43,52,53,54,55,56,57,58,59,-1,-1,54,-1,-1,97,98,42,43,101,62,63,64,65,66,67,68,69,70,-1,-1,97,98,-1,-1,101,-1,62,63,64,65,66,67,68,69,70,-1,97,98,44,45,101,47,48,49,-1,-1,52,53,54,55,56,57,58,59,44,45,-1,47,48,49,-1,-1,52,53,54,55,56,57,58,59,44,45,-1,47,48,49,42,43,52,53,54,55,56,57,58,59,-1,-1,-1,55,-1,97,98,42,43,101,62,63,64,65,66,67,68,69,-1,-1,-1,97,98,-1,-1,101,-1,62,63,64,65,66,67,68,69,-1,-1,97,98,44,45,101,47,48,49,-1,-1,52,53,54,55,56,57,58,59,44,45,-1,47,48,49,-1,-1,52,53,54,55,56,57,58,59,44,45,-1,47,48,49,42,43,52,53,54,55,56,57,58,59,52,-1,-1,-1,-1,97,98,42,43,101,62,63,64,65,66,67,-1,69,-1,-1,-1,97,98,-1,-1,101,-1,62,63,64,65,66,67,68,69,-1,-1,97,98,44,45,101,47,48,49,-1,-1,52,53,54,55,56,57,58,59,44,45,-1,47,48,49,-1,-1,52,53,54,55,56,57,58,59,44,45,-1,47,48,49,42,43,52,53,54,55,56,57,58,59,-1,-1,-1,-1,-1,97,98,-1,-1,101,62,63,64,65,66,67,68,69,-1,-1,-1,97,98,-1,-1,101,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,97,98,44,45,101,47,48,49,-1,-1,52,53,54,55,56,57,58,59,44,45,-1,47,48,49,-1,-1,52,53,54,55,56,57,58,59,44,45,-1,47,48,49,-1,-1,52,53,54,55,56,57,58,59,-1,-1,-1,-1,-1,97,98,-1,-1,101,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,97,98,5,-1,101,-1,-1,10,11,12,-1,-1,-1,-1,-1,-1,97,98,44,45,101,47,48,49,27,-1,52,53,54,55,56,57,58,59,1,-1,-1,4,5,6,-1,44,-1,10,11,12,-1,1,-1,52,4,5,6,-1,-1,-1,10,11,12,1,27,-1,4,5,6,-1,-1,34,10,11,12,97,98,27,-1,101,-1,44,-1,-1,34,48,49,-1,-1,27,-1,-1,-1,-1,44,58,34,5,48,-1,-1,-1,10,11,12,-1,44,-1,58,-1,48,-1,1,-1,-1,4,5,6,-1,27,58,10,11,12,1,-1,-1,4,5,6,-1,-1,-1,10,11,12,44,1,27,-1,4,5,6,-1,52,34,10,11,12,-1,27,88,89,90,91,44,93,34,-1,48,97,98,-1,27,101,-1,-1,44,-1,58,34,48,-1,-1,-1,-1,-1,-1,-1,-1,44,58,1,-1,48,4,5,6,-1,-1,-1,10,11,12,58,1,-1,-1,4,5,6,-1,-1,-1,10,11,12,1,27,-1,4,5,6,-1,-1,34,10,11,12,-1,-1,27,-1,-1,-1,44,-1,-1,34,48,-1,-1,-1,27,-1,-1,-1,-1,44,58,34,5,48,-1,-1,-1,10,11,12,-1,44,-1,58,-1,48,-1,1,-1,-1,4,5,6,-1,27,58,10,11,12,1,-1,-1,4,5,6,-1,-1,-1,10,11,12,44,1,27,-1,4,5,6,-1,52,34,10,11,12,-1,27,88,89,90,91,44,93,34,-1,48,97,98,-1,27,101,-1,-1,44,-1,58,34,48,-1,-1,-1,-1,-1,-1,-1,-1,44,58,1,-1,48,4,5,6,-1,-1,-1,10,11,12,58,1,-1,-1,4,5,6,-1,-1,-1,10,11,12,1,27,-1,4,5,6,-1,-1,34,10,11,12,-1,-1,27,-1,-1,-1,44,-1,-1,34,48,-1,-1,-1,27,-1,57,58,59,44,58,34,5,48,65,66,67,10,11,12,-1,44,-1,58,-1,48,-1,1,-1,-1,4,5,6,82,27,58,10,11,12,88,89,90,91,-1,93,-1,97,98,97,98,101,44,101,27,45,-1,47,48,49,52,34,52,53,54,55,56,57,58,59,45,44,47,48,49,48,-1,52,53,54,55,56,57,58,59,58,-1,-1,5,-1,-1,-1,-1,10,11,12,-1,-1,-1,5,-1,-1,-1,-1,10,11,12,97,98,-1,27,101,-1,-1,-1,-1,-1,34,35,-1,-1,27,97,98,-1,-1,101,44,34,5,-1,48,-1,-1,10,11,12,-1,44,45,-1,58,48,-1,-1,-1,-1,-1,5,-1,-1,27,58,10,11,12,-1,-1,34,5,-1,-1,-1,-1,10,11,12,-1,44,-1,27,-1,48,-1,-1,-1,-1,34,5,55,-1,27,58,10,11,12,-1,44,34,-1,-1,48,-1,-1,-1,52,-1,-1,44,-1,27,58,48,5,-1,-1,52,34,10,11,12,-1,58,88,89,90,91,44,93,-1,-1,48,97,98,-1,27,101,-1,-1,-1,49,58,34,52,53,54,55,56,57,58,59,-1,44,49,-1,-1,48,-1,54,55,56,57,58,59,49,-1,58,-1,-1,54,55,56,57,58,59,49,-1,-1,-1,-1,54,55,56,57,58,59,-1,-1,97,98,-1,-1,101,-1,-1,-1,-1,-1,-1,-1,-1,97,98,-1,5,101,-1,-1,-1,10,11,12,97,98,-1,22,101,-1,25,26,-1,28,29,97,98,-1,27,101,35,36,37,38,39,40,41,42,43,-1,45,46,47,-1,49,44,-1,-1,-1,54,55,56,-1,52,-1,60,61,62,63,64,65,66,67,68,69,5,-1,72,5,-1,10,11,12,10,11,12,-1,5,-1,-1,-1,-1,10,11,12,-1,-1,27,83,-1,27,-1,24,88,89,90,91,-1,93,27,-1,-1,97,98,44,-1,101,44,-1,24,42,43,52,-1,-1,52,44,-1,-1,-1,-1,-1,54,-1,52,57,24,42,43,-1,62,63,64,65,66,67,68,69,70,54,-1,-1,57,-1,42,43,-1,62,63,64,65,66,67,68,69,70,54,-1,-1,57,-1,-1,-1,-1,62,63,64,65,66,67,68,69,70,57,58,59,-1,-1,-1,-1,64,65,66,67,-1,42,43,-1,-1,-1,47,-1,-1,-1,-1,-1,-1,54,55,56,-1,-1,-1,60,61,62,63,64,65,66,67,68,69,97,98,72,-1,101,79,80,81,82,-1,-1,-1,-1,-1,88,89,90,91,-1,93,-1,-1,-1,97,98,-1,-1,101,79,80,81,82,-1,-1,-1,-1,-1,88,89,90,91,-1,93,-1,-1,-1,97,98,-1,-1,101,79,80,81,82,-1,-1,-1,-1,-1,88,89,90,91,-1,93,-1,-1,-1,97,98,-1,-1,101,79,80,81,82,-1,-1,-1,-1,-1,88,89,90,91,-1,93,-1,-1,-1,97,98,-1,-1,101,79,80,81,82,-1,-1,-1,-1,-1,88,89,90,91,-1,93,-1,-1,-1,97,98,-1,-1,101,79,80,81,82,-1,-1,-1,-1,-1,88,89,90,91,-1,93,-1,-1,-1,97,98,-1,-1,101,79,80,81,82,-1,-1,-1,-1,-1,88,89,90,91,-1,93,-1,81,82,97,98,-1,-1,101,88,89,90,91,-1,93,-1,-1,82,97,98,-1,-1,101,88,89,90,91,-1,93,-1,-1,-1,97,98,-1,-1,101,88,89,90,91,-1,93,94,-1,-1,97,98,-1,-1,101,-1,-1,104,105,88,89,90,91,-1,93,-1,-1,-1,97,98,-1,-1,101,88,89,90,91,-1,93,-1,-1,-1,97,98,-1,-1,101,88,89,90,91,-1,93,-1,-1,-1,97,98,-1,-1,101,88,89,90,91,-1,93,-1,-1,-1,97,98,-1,-1,101,88,89,90,91,-1,93,-1,-1,-1,97,98,-1,-1,101,88,89,90,91,-1,93,-1,-1,-1,97,98,-1,-1,101,88,89,90,91,-1,93,-1,-1,-1,97,98,-1,-1,101,88,89,90,91,-1,93,-1,-1,-1,97,98,-1,-1,101,88,89,90,91,-1,93,-1,-1,-1,97,98,-1,-1,101,88,89,90,91,-1,93,-1,-1,-1,97,98,-1,-1,101,88,89,90,91,-1,93,-1,-1,-1,97,98,-1,-1,101,88,89,90,91,-1,93,-1,-1,-1,97,98,-1,-1,101,88,89,90,91,-1,93,-1,-1,-1,97,98,-1,-1,101,88,89,90,91,-1,93,-1,-1,-1,97,98,-1,-1,101,88,89,90,91,-1,93,-1,-1,-1,97,98,-1,-1,101,88,89,90,91,-1,93,-1,-1,-1,97,98,-1,-1,101,88,89,90,91,-1,93,-1,-1,-1,97,98,-1,-1,101,88,89,90,91,-1,93,-1,-1,-1,97,98,-1,-1,101,88,89,90,91,-1,93,-1,-1,-1,97,98,-1,-1,101,88,89,90,91,-1,93,-1,-1,-1,97,98,-1,-1,101,88,89,90,91,-1,93,-1,-1,-1,97,98,-1,-1,101,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1 +happyCheck = Happy_Data_Array.listArray (0,3796) ([-1,4,1,20,22,47,1,1,22,32,59,2,3,32,76,77,78,32,1,61,7,12,13,80,15,16,17,35,33,20,21,36,37,27,52,26,2,3,100,101,31,32,59,100,27,32,12,13,63,15,16,17,67,33,20,21,36,51,72,20,26,2,3,100,101,31,32,104,80,81,78,12,13,78,15,16,17,100,101,20,21,100,101,45,46,26,77,78,100,54,31,32,100,101,33,100,101,100,78,102,103,100,67,102,103,100,59,102,103,100,101,77,78,100,101,3,75,76,77,78,100,101,72,46,12,13,47,15,16,17,35,54,20,21,100,101,77,78,26,78,3,100,101,31,32,35,76,77,78,12,13,22,15,16,17,56,46,20,21,100,101,100,101,26,72,3,37,38,31,32,100,101,11,78,12,13,52,15,16,17,1,26,20,21,87,33,31,32,26,77,78,67,26,31,32,100,101,100,48,26,64,65,34,22,31,32,3,41,47,59,52,38,100,101,77,78,13,35,15,16,17,60,61,20,21,67,45,46,46,26,78,3,77,78,31,32,51,100,101,77,78,13,22,15,16,17,78,62,20,21,77,78,100,101,26,100,101,22,46,31,32,7,100,101,29,9,54,11,100,101,14,78,16,100,101,78,20,21,45,46,77,78,26,14,22,16,26,31,32,20,21,31,32,100,101,26,89,100,101,39,31,32,47,100,101,77,78,100,101,47,48,1,50,51,52,60,61,55,56,57,58,59,60,61,62,23,24,25,100,101,1,31,32,77,78,77,78,77,78,23,24,25,89,76,77,78,77,78,60,61,62,27,28,100,101,72,100,101,100,101,100,101,100,101,47,41,104,100,101,100,101,47,48,1,50,51,52,77,78,55,56,57,58,59,60,61,62,45,100,101,45,46,104,91,92,93,94,55,96,26,100,101,100,101,31,32,104,91,92,93,94,38,96,26,1,22,100,101,31,32,104,28,29,1,100,101,39,26,104,26,89,26,31,32,31,32,31,32,26,72,26,100,47,31,32,31,32,5,78,47,77,78,10,11,12,60,61,89,90,30,43,44,45,33,77,78,36,3,100,27,100,101,72,100,101,78,60,78,77,78,77,78,77,78,45,46,44,100,101,77,78,77,78,76,77,78,79,100,101,100,101,100,101,100,101,100,101,59,78,89,90,0,100,101,100,101,5,100,101,8,100,10,11,12,59,22,15,16,17,18,100,101,29,100,60,61,62,47,27,47,107,30,68,69,70,34,0,42,43,44,45,5,60,61,8,44,10,11,12,48,52,15,16,17,18,5,6,45,89,58,10,11,12,27,100,101,30,89,104,100,34,0,71,72,89,90,5,27,100,101,44,10,11,12,48,100,15,16,17,18,47,43,44,45,58,100,101,52,27,104,105,45,46,53,47,34,46,71,72,49,22,60,61,62,41,44,28,60,61,48,69,70,64,0,76,77,78,79,5,58,49,8,9,10,11,12,13,14,15,16,17,18,19,72,21,47,45,46,100,101,27,100,101,30,100,104,102,34,60,61,42,43,44,45,45,47,48,44,50,51,52,48,47,55,56,57,58,59,60,61,62,58,89,60,66,60,61,0,22,42,43,25,5,100,71,8,9,10,11,12,13,14,15,16,17,18,19,46,21,62,63,64,65,66,27,41,69,30,100,101,35,34,104,74,75,76,77,78,45,47,48,44,50,51,52,48,46,55,56,57,58,59,60,61,62,58,89,60,66,100,101,0,46,54,72,49,5,100,71,8,9,10,11,12,13,14,15,16,17,18,19,22,21,89,90,100,101,28,27,104,47,30,100,101,100,34,104,1,2,3,4,5,6,60,61,44,10,11,12,48,100,101,46,89,104,49,106,35,89,58,24,5,6,27,100,101,10,11,12,100,34,89,71,42,43,44,45,21,42,43,44,45,100,27,48,89,50,45,100,53,102,103,52,57,58,55,100,56,62,63,64,65,66,67,68,69,70,1,5,53,4,5,6,10,11,12,10,11,12,43,44,45,91,92,93,94,46,96,97,49,27,100,101,27,1,104,59,4,5,6,34,89,90,10,11,12,89,44,42,43,44,45,100,35,48,52,5,100,44,45,27,10,11,12,58,32,56,34,62,63,64,65,66,67,68,69,70,44,27,93,94,48,96,89,35,34,100,101,54,46,104,58,49,46,100,44,63,100,101,48,67,1,2,3,4,5,6,44,45,58,10,11,12,27,28,15,16,17,18,68,100,101,46,23,24,49,45,27,1,2,3,4,5,6,34,52,1,10,11,12,5,6,100,101,44,10,11,12,48,94,50,24,1,53,27,100,101,57,58,104,46,34,27,49,52,65,66,100,101,42,43,44,43,44,45,48,98,50,100,44,53,45,67,48,57,58,1,2,3,4,5,6,65,66,22,10,11,12,68,73,74,75,76,77,78,42,43,44,45,24,52,46,27,1,2,3,4,5,6,34,35,54,10,11,12,5,100,101,52,44,10,11,12,48,94,50,24,54,53,27,100,101,57,58,104,33,34,27,94,95,65,66,71,10,100,101,44,6,104,8,48,3,50,59,44,53,43,44,45,57,58,1,2,3,4,5,6,65,66,71,10,11,12,5,59,45,42,43,10,11,12,98,99,100,24,5,6,27,52,55,10,11,12,54,34,27,62,63,64,65,66,67,68,69,44,68,22,27,48,5,50,45,44,53,10,11,12,57,58,46,52,22,42,43,44,65,66,41,46,5,36,27,5,22,10,11,12,10,11,12,52,52,62,63,64,65,66,67,68,69,70,27,52,49,27,54,22,100,34,102,103,34,15,16,17,18,42,43,44,45,23,44,48,55,5,48,43,44,45,10,11,12,58,60,59,58,62,63,64,65,66,67,68,69,0,68,27,52,100,5,102,103,22,34,10,11,12,29,29,15,16,17,18,44,0,22,52,48,41,5,22,27,56,52,10,11,12,58,34,15,16,17,18,22,8,54,54,68,44,71,14,27,48,44,5,19,54,21,34,10,11,12,58,48,60,22,30,55,44,43,44,45,48,22,46,0,27,43,44,45,5,22,58,8,60,10,11,12,13,14,15,16,17,18,19,29,21,55,49,43,44,45,27,22,60,30,22,5,55,34,0,22,10,11,12,5,43,44,45,44,10,11,12,48,0,15,16,17,18,27,0,10,40,58,28,5,29,27,52,63,10,11,12,63,34,15,16,17,18,49,100,49,65,52,44,0,71,27,48,49,5,19,20,21,34,10,11,12,58,86,15,16,17,18,44,60,61,62,48,49,5,86,27,68,69,70,30,30,58,34,86,1,2,3,4,5,6,86,86,44,10,11,12,48,-1,5,42,43,44,45,10,11,12,58,24,100,101,27,-1,104,19,20,21,5,34,-1,-1,27,10,11,12,31,-1,-1,44,-1,18,-1,48,-1,50,-1,-1,53,44,27,-1,57,58,47,48,-1,50,51,52,53,54,55,56,57,58,59,60,61,62,1,2,3,4,5,6,-1,5,-1,10,11,12,10,11,12,-1,-1,5,-1,87,88,-1,10,11,12,-1,27,-1,-1,27,98,99,100,34,-1,-1,-1,100,101,27,-1,104,-1,44,-1,-1,44,48,49,50,-1,-1,53,-1,52,47,48,58,50,51,52,49,54,55,56,57,58,59,60,61,62,1,2,3,4,5,6,-1,5,-1,10,11,12,10,11,12,-1,-1,5,-1,-1,18,-1,10,11,12,-1,27,-1,-1,27,98,99,100,34,-1,-1,-1,100,101,27,-1,104,-1,44,-1,-1,44,48,-1,50,47,48,53,50,51,52,44,58,55,56,57,58,59,60,61,62,47,48,-1,50,51,52,-1,-1,55,56,57,58,59,60,61,62,47,48,-1,50,51,52,-1,-1,55,56,57,58,59,60,61,62,43,44,45,46,-1,100,101,5,-1,104,5,-1,10,11,12,10,11,12,-1,-1,-1,100,101,-1,-1,104,-1,-1,-1,27,-1,-1,27,31,-1,-1,31,100,101,47,48,104,50,51,52,-1,44,55,56,57,58,59,60,61,62,47,48,-1,50,51,52,-1,-1,55,56,57,58,59,60,61,62,47,48,-1,50,51,52,-1,-1,55,56,57,58,59,60,61,62,22,43,44,45,46,100,101,5,-1,104,-1,-1,10,11,12,37,38,39,40,41,-1,100,101,-1,46,104,-1,-1,-1,27,43,44,45,46,-1,-1,-1,100,101,47,48,104,50,51,52,-1,44,55,56,57,58,59,60,61,62,47,48,-1,50,51,52,-1,-1,55,56,57,58,59,60,61,62,47,48,-1,50,51,52,42,43,55,56,57,58,59,60,61,62,-1,-1,54,-1,-1,100,101,42,43,104,62,63,64,65,66,67,68,69,70,-1,-1,100,101,-1,-1,104,-1,62,63,64,65,66,67,68,69,70,-1,100,101,47,48,104,50,51,52,-1,-1,55,56,57,58,59,60,61,62,47,48,-1,50,51,52,-1,-1,55,56,57,58,59,60,61,62,47,48,-1,50,51,52,42,43,55,56,57,58,59,60,61,62,52,43,44,45,46,100,101,42,43,104,62,63,64,65,66,67,-1,69,-1,-1,-1,100,101,-1,-1,104,-1,62,63,64,65,66,67,68,69,-1,-1,100,101,47,48,104,50,51,52,-1,-1,55,56,57,58,59,60,61,62,47,48,-1,50,51,52,-1,-1,55,56,57,58,59,60,61,62,47,48,-1,50,51,52,42,43,55,56,57,58,59,60,61,62,43,44,45,46,-1,100,101,42,43,104,62,63,64,65,66,67,68,69,-1,-1,-1,100,101,-1,-1,104,-1,62,63,64,65,66,67,68,69,-1,-1,100,101,47,48,104,50,51,52,-1,-1,55,56,57,58,59,60,61,62,47,48,-1,50,51,52,-1,-1,55,56,57,58,59,60,61,62,47,48,-1,50,51,52,-1,-1,55,56,57,58,59,60,61,62,43,44,45,46,-1,100,101,-1,-1,104,76,77,78,79,18,19,20,21,-1,-1,-1,100,101,5,6,104,-1,-1,10,11,12,-1,-1,-1,100,101,-1,100,101,47,48,104,50,51,52,27,-1,55,56,57,58,59,60,61,62,47,48,-1,50,51,52,-1,-1,55,56,57,58,59,60,61,62,47,48,-1,50,51,52,-1,-1,55,56,57,58,59,60,61,62,18,19,20,21,-1,100,101,-1,-1,104,76,77,78,79,-1,-1,-1,-1,-1,-1,-1,100,101,5,6,104,-1,-1,10,11,12,-1,-1,-1,100,101,-1,100,101,47,48,104,50,51,52,27,-1,55,56,57,58,59,60,61,62,47,48,-1,50,51,52,-1,-1,55,56,57,58,59,60,61,62,47,48,-1,50,51,52,-1,-1,55,56,57,58,59,60,61,62,-1,82,83,84,85,100,101,-1,-1,104,91,92,93,94,-1,96,-1,-1,-1,100,101,100,101,104,5,104,-1,-1,-1,10,11,12,-1,-1,-1,-1,-1,100,101,47,48,104,50,51,52,-1,27,55,56,57,58,59,60,61,62,47,48,-1,50,51,52,-1,-1,55,56,57,58,59,60,61,62,47,48,-1,50,51,52,-1,-1,55,56,57,58,59,60,61,62,-1,82,83,84,85,100,101,-1,-1,104,91,92,93,94,-1,96,-1,-1,-1,100,101,100,101,104,-1,104,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,100,101,47,48,104,50,51,52,-1,-1,55,56,57,58,59,60,61,62,47,48,-1,50,51,52,-1,-1,55,56,57,58,59,60,61,62,1,-1,-1,4,5,6,-1,84,85,10,11,12,-1,-1,91,92,93,94,-1,96,-1,100,101,100,101,104,27,104,-1,5,-1,-1,-1,34,10,11,12,100,101,-1,-1,104,-1,44,-1,-1,-1,48,49,1,-1,27,4,5,6,-1,-1,58,10,11,12,1,-1,-1,4,5,6,-1,44,-1,10,11,12,-1,1,27,52,4,5,6,-1,-1,34,10,11,12,-1,27,91,92,93,94,44,96,34,-1,48,100,101,-1,27,104,-1,-1,44,-1,58,34,48,-1,-1,-1,-1,-1,-1,-1,-1,44,58,1,-1,48,4,5,6,-1,-1,-1,10,11,12,58,1,-1,-1,4,5,6,-1,-1,-1,10,11,12,1,27,-1,4,5,6,-1,-1,34,10,11,12,-1,-1,27,-1,-1,-1,44,-1,-1,34,48,-1,-1,-1,27,-1,-1,-1,-1,44,58,34,5,48,-1,-1,-1,10,11,12,-1,44,-1,58,-1,48,-1,1,-1,-1,4,5,6,-1,27,58,10,11,12,1,-1,-1,4,5,6,-1,-1,-1,10,11,12,44,1,27,-1,4,5,6,-1,52,34,10,11,12,-1,27,91,92,93,94,44,96,34,-1,48,100,101,-1,27,104,-1,-1,44,-1,58,34,48,-1,-1,-1,-1,-1,-1,-1,-1,44,58,1,-1,48,4,5,6,-1,-1,-1,10,11,12,58,1,-1,-1,4,5,6,-1,-1,-1,10,11,12,1,27,-1,4,5,6,-1,-1,34,10,11,12,-1,-1,27,-1,-1,-1,44,-1,-1,34,48,-1,-1,-1,27,-1,-1,-1,-1,44,58,34,5,48,-1,-1,-1,10,11,12,-1,44,-1,58,-1,48,-1,1,-1,-1,4,5,6,-1,27,58,10,11,12,1,-1,-1,4,5,6,-1,-1,-1,10,11,12,44,1,27,-1,4,5,6,-1,52,34,10,11,12,-1,27,91,92,93,94,44,96,34,-1,48,100,101,-1,27,104,-1,-1,44,86,58,34,48,-1,91,92,93,94,-1,96,-1,44,58,100,101,48,-1,104,-1,48,-1,50,51,52,-1,58,55,56,57,58,59,60,61,62,48,-1,50,51,52,-1,-1,55,56,57,58,59,60,61,62,-1,-1,-1,5,-1,-1,-1,-1,10,11,12,-1,-1,-1,5,-1,-1,-1,-1,10,11,12,100,101,-1,27,104,-1,-1,-1,-1,-1,34,35,-1,-1,27,100,101,-1,-1,104,44,34,5,-1,48,-1,-1,10,11,12,-1,44,45,-1,58,48,-1,-1,-1,-1,-1,5,-1,-1,27,58,10,11,12,-1,-1,34,5,-1,-1,-1,-1,10,11,12,-1,44,-1,27,-1,48,-1,-1,-1,-1,34,5,55,-1,27,58,10,11,12,-1,44,34,-1,-1,48,-1,-1,-1,52,-1,-1,44,-1,27,58,48,5,-1,-1,52,34,10,11,12,-1,58,91,92,93,94,44,96,-1,-1,48,100,101,-1,27,104,-1,-1,-1,52,58,34,55,56,57,58,59,60,61,62,-1,44,52,-1,-1,48,-1,57,58,59,60,61,62,52,-1,58,-1,-1,57,58,59,60,61,62,52,-1,-1,-1,-1,57,58,59,60,61,62,-1,-1,100,101,52,-1,104,-1,-1,57,58,59,60,61,62,100,101,-1,-1,104,-1,-1,-1,-1,-1,-1,100,101,-1,-1,104,-1,-1,-1,-1,-1,-1,100,101,-1,-1,104,-1,-1,22,-1,-1,25,26,-1,28,29,100,101,-1,-1,104,35,36,37,38,39,40,41,42,43,-1,45,46,47,-1,49,-1,-1,5,-1,54,55,56,10,11,12,60,61,62,63,64,65,66,67,68,69,5,-1,72,5,27,10,11,12,10,11,12,-1,5,-1,-1,-1,-1,10,11,12,-1,44,27,-1,-1,27,-1,24,-1,52,-1,-1,-1,-1,27,-1,-1,-1,-1,44,-1,-1,44,-1,24,42,43,52,-1,-1,52,44,-1,-1,-1,-1,-1,54,-1,52,57,24,42,43,-1,62,63,64,65,66,67,68,69,70,54,-1,-1,57,-1,42,43,-1,62,63,64,65,66,67,68,69,70,54,-1,-1,57,-1,-1,-1,-1,62,63,64,65,66,67,68,69,70,60,61,62,-1,-1,-1,-1,67,68,69,70,-1,42,43,-1,-1,-1,47,-1,-1,-1,-1,-1,-1,54,55,56,-1,-1,-1,60,61,62,63,64,65,66,67,68,69,100,101,72,-1,104,82,83,84,85,-1,-1,-1,-1,-1,91,92,93,94,-1,96,-1,-1,-1,100,101,-1,-1,104,82,83,84,85,-1,-1,-1,-1,-1,91,92,93,94,-1,96,-1,-1,-1,100,101,-1,-1,104,82,83,84,85,-1,-1,-1,-1,-1,91,92,93,94,-1,96,-1,-1,-1,100,101,-1,-1,104,82,83,84,85,-1,-1,-1,-1,-1,91,92,93,94,-1,96,-1,-1,-1,100,101,-1,-1,104,82,83,84,85,-1,-1,-1,-1,-1,91,92,93,94,-1,96,-1,-1,85,100,101,-1,-1,104,91,92,93,94,-1,96,-1,-1,85,100,101,-1,-1,104,91,92,93,94,-1,96,-1,-1,-1,100,101,-1,-1,104,91,92,93,94,-1,96,97,-1,-1,100,101,-1,-1,104,-1,-1,107,108,91,92,93,94,-1,96,-1,-1,-1,100,101,-1,-1,104,91,92,93,94,-1,96,-1,-1,-1,100,101,-1,-1,104,91,92,93,94,-1,96,-1,-1,-1,100,101,-1,-1,104,91,92,93,94,-1,96,-1,-1,-1,100,101,-1,-1,104,91,92,93,94,-1,96,-1,-1,-1,100,101,-1,-1,104,91,92,93,94,-1,96,-1,-1,-1,100,101,-1,-1,104,91,92,93,94,-1,96,-1,-1,-1,100,101,-1,-1,104,91,92,93,94,-1,96,-1,-1,-1,100,101,-1,-1,104,91,92,93,94,-1,96,-1,-1,-1,100,101,-1,-1,104,91,92,93,94,-1,96,-1,-1,-1,100,101,-1,-1,104,91,92,93,94,-1,96,-1,-1,-1,100,101,-1,-1,104,91,92,93,94,-1,96,-1,-1,-1,100,101,-1,-1,104,91,92,93,94,-1,96,-1,-1,-1,100,101,-1,-1,104,91,92,93,94,-1,96,-1,-1,-1,100,101,-1,-1,104,91,92,93,94,-1,96,-1,-1,-1,100,101,-1,-1,104,91,92,93,94,-1,96,-1,-1,-1,100,101,-1,-1,104,91,92,93,94,-1,96,-1,-1,-1,100,101,-1,-1,104,91,92,93,94,-1,96,-1,-1,-1,100,101,-1,-1,104,91,92,93,94,-1,96,-1,-1,-1,100,101,-1,-1,104,91,92,93,94,-1,96,-1,-1,-1,100,101,-1,-1,104,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1 ]) happyTable :: Happy_Data_Array.Array Prelude.Int Prelude.Int -happyTable = Happy_Data_Array.listArray (0,3774) ([0,616,269,350,14,201,408,628,201,151,120,131,132,500,100,151,152,272,176,-1,394,133,134,617,135,136,137,223,224,138,139,202,140,177,202,153,263,101,102,509,132,428,178,131,501,329,330,273,502,133,134,356,135,136,137,203,353,138,139,-1,140,153,242,192,314,101,102,605,132,562,14,18,351,225,226,18,351,133,134,315,135,136,137,104,105,138,139,180,140,386,444,18,351,101,102,344,18,106,40,354,41,270,40,388,41,270,18,106,180,18,160,104,105,40,180,41,395,18,160,587,151,18,160,316,151,562,237,75,76,512,18,160,132,354,18,106,18,160,151,104,105,148,134,-1,135,136,137,326,327,138,139,386,140,531,532,18,160,101,102,132,361,-25,18,106,387,388,18,19,415,134,77,135,136,137,-25,-25,138,139,377,140,132,116,18,160,101,102,101,102,347,566,134,177,135,136,137,311,228,138,139,132,140,348,349,104,105,101,102,167,229,423,177,135,136,137,151,386,138,139,236,140,589,473,157,158,101,102,18,106,558,388,104,105,104,105,234,183,100,494,433,157,158,101,102,184,233,18,160,132,103,232,495,104,105,18,106,18,106,422,384,135,136,137,18,160,138,139,374,140,183,385,104,105,101,102,18,106,313,375,120,178,121,344,179,122,166,123,-1,104,105,124,125,372,126,18,106,167,168,101,102,147,445,123,373,18,160,124,125,555,126,381,18,106,382,101,102,432,157,158,104,105,556,557,446,65,180,66,67,68,378,375,69,70,71,72,73,74,75,76,151,18,160,18,106,104,105,526,18,160,185,185,336,100,376,373,101,102,101,102,174,104,105,337,186,426,61,62,18,106,185,14,15,16,17,101,102,18,19,173,63,77,436,424,18,106,64,65,-1,66,67,68,172,305,69,70,71,72,73,74,75,76,104,105,104,105,177,147,402,488,451,101,102,101,102,101,102,40,450,267,305,104,105,101,102,18,106,18,106,18,19,151,178,20,21,311,177,366,596,18,19,101,102,77,18,106,23,145,167,367,347,25,26,27,429,157,158,104,105,104,105,104,105,549,349,496,68,281,28,104,105,190,191,73,74,75,76,180,18,160,18,106,18,106,18,106,108,104,105,146,248,23,18,106,128,386,25,26,27,18,160,109,110,111,112,486,303,368,570,388,18,106,534,28,18,19,-69,305,77,535,113,108,163,157,158,164,23,18,160,128,114,25,26,27,115,-1,109,110,111,112,461,75,76,559,116,560,18,160,28,463,207,-69,155,16,17,113,108,129,-32,303,304,23,18,389,555,114,25,26,27,115,305,109,110,111,112,359,158,569,557,116,18,19,406,28,77,156,157,158,159,23,113,301,129,-31,25,26,27,394,18,160,114,436,167,302,115,260,16,17,108,18,160,28,305,23,116,389,-69,142,25,26,143,144,-69,109,110,111,112,-69,-1,-69,303,491,434,155,151,28,292,393,-69,293,527,305,113,305,380,210,15,16,17,379,211,65,114,66,67,68,115,359,69,70,71,72,73,74,75,76,116,436,150,212,151,356,108,335,29,30,597,23,305,129,-69,142,25,26,143,144,-69,109,110,111,112,-69,334,-69,32,33,34,35,36,28,332,39,-69,18,19,333,113,77,588,472,473,157,158,328,216,65,114,66,67,68,115,329,69,70,71,72,73,74,75,76,116,318,-18,217,18,160,108,537,317,218,289,23,344,129,-69,142,25,26,143,144,-69,109,110,111,112,-69,288,-69,290,18,160,291,281,28,18,160,-69,18,19,263,113,77,79,80,81,82,23,24,242,243,114,25,26,27,115,370,16,17,541,244,245,246,274,436,116,88,23,44,28,305,509,25,26,27,305,89,513,129,248,15,16,17,397,29,30,90,214,305,28,91,436,92,466,263,93,467,18,19,94,95,193,305,194,32,33,34,215,216,37,38,39,40,56,23,45,57,23,24,25,26,27,25,26,27,307,16,17,249,50,51,52,287,53,250,459,28,18,19,28,56,54,507,57,23,24,58,303,438,25,26,27,506,171,29,30,59,252,305,505,253,370,23,244,245,281,28,25,26,27,61,500,443,58,32,33,34,35,36,37,38,39,40,59,28,276,52,253,53,303,564,113,18,19,18,19,54,61,412,488,305,162,501,325,318,115,502,79,80,81,82,23,24,151,485,116,25,26,27,524,525,83,84,85,86,182,461,18,19,87,88,409,457,28,79,80,81,82,23,24,89,454,196,25,26,27,23,24,286,287,90,25,26,27,91,258,92,88,449,93,28,18,19,94,95,256,285,89,28,458,455,96,97,456,177,478,479,90,577,124,418,91,151,92,290,197,93,623,444,198,94,95,79,80,81,82,23,24,96,97,443,25,26,27,442,23,44,254,255,431,25,26,27,18,19,88,422,256,28,79,80,81,82,23,24,89,220,28,25,26,27,268,15,16,17,90,493,16,17,91,279,92,88,129,93,28,18,19,94,95,256,448,89,45,284,285,96,97,415,308,16,17,90,449,16,17,91,23,92,624,625,93,25,26,27,94,95,79,80,81,82,23,24,96,97,412,25,26,27,28,408,23,156,157,158,159,25,26,27,407,88,23,24,28,198,199,25,26,27,129,89,283,40,28,41,42,18,160,552,40,90,41,507,28,91,23,92,293,62,93,25,26,27,94,95,622,174,17,29,30,31,96,97,309,17,23,551,28,23,546,25,26,27,25,26,27,18,410,32,33,34,35,36,37,38,39,40,28,449,40,28,41,558,151,113,18,552,113,83,84,85,86,29,30,162,163,87,162,115,537,23,115,440,16,17,25,26,27,116,332,151,116,32,33,34,35,36,37,38,39,108,358,28,18,578,23,419,16,17,113,25,26,27,530,151,109,110,111,112,162,108,528,512,115,529,23,520,28,511,519,25,26,27,116,113,109,110,111,112,297,16,17,364,182,114,518,605,28,115,156,157,158,159,604,113,539,16,17,116,513,188,576,124,418,114,244,620,281,115,602,151,108,595,18,160,592,23,151,116,-68,426,25,26,404,405,-68,109,110,111,112,-68,457,-68,239,15,16,17,151,28,586,151,-68,129,23,44,113,108,582,25,26,27,23,581,576,572,114,25,26,27,115,512,109,110,111,112,28,108,616,529,116,151,23,151,28,151,151,25,26,27,512,113,109,110,111,112,297,16,17,363,608,114,108,628,28,115,428,23,151,512,151,113,25,26,27,116,129,109,110,111,112,114,461,75,76,115,548,118,98,28,467,206,207,97,238,116,113,397,79,80,81,82,23,24,236,382,114,25,26,27,115,464,23,297,16,17,362,25,26,27,116,88,18,19,28,234,77,365,238,459,23,89,413,540,28,25,26,27,231,602,497,90,570,554,582,91,625,92,619,0,93,171,28,0,94,95,220,65,0,66,67,68,221,222,69,70,71,72,73,74,75,76,79,80,81,82,23,24,0,23,0,25,26,27,25,26,27,0,0,470,471,472,473,157,158,0,0,0,28,0,0,28,0,0,0,89,0,0,0,18,19,0,0,77,0,90,18,160,171,91,209,92,0,0,93,0,307,220,65,210,66,67,68,0,481,69,70,71,72,73,74,75,76,79,80,81,82,23,24,0,23,0,25,26,27,25,26,27,0,0,23,0,0,391,0,25,26,27,0,28,0,0,28,0,0,0,89,0,0,0,18,19,28,0,77,0,90,0,0,392,91,0,92,117,65,93,66,67,68,171,95,69,70,71,72,73,74,75,76,360,65,0,66,67,68,0,0,69,70,71,72,73,74,75,76,485,65,0,66,67,68,0,0,69,70,71,72,73,74,75,76,297,16,17,300,0,18,19,23,0,77,23,0,25,26,27,25,26,27,0,0,0,18,19,0,0,77,0,0,0,28,0,0,28,170,0,0,580,18,19,480,65,77,66,67,68,0,171,69,70,71,72,73,74,75,76,479,65,0,66,67,68,0,0,69,70,71,72,73,74,75,76,476,65,0,66,67,68,0,0,69,70,71,72,73,74,75,76,151,297,16,17,299,18,19,23,0,77,0,0,25,26,27,319,320,321,322,323,0,18,19,0,324,77,0,0,0,28,297,16,17,298,0,0,0,18,19,475,65,77,66,67,68,0,353,69,70,71,72,73,74,75,76,474,65,0,66,67,68,0,0,69,70,71,72,73,74,75,76,469,65,0,66,67,68,0,0,69,70,71,72,73,74,75,76,416,417,124,418,0,18,19,23,0,77,23,24,25,26,27,25,26,27,0,0,0,18,19,0,0,77,0,0,0,28,0,0,28,567,417,124,418,18,19,468,65,77,66,67,68,0,171,69,70,71,72,73,74,75,76,546,65,0,66,67,68,0,0,69,70,71,72,73,74,75,76,538,65,0,66,67,68,0,0,69,70,71,72,73,74,75,76,0,0,0,0,399,18,19,23,0,77,400,0,25,26,27,401,0,402,0,0,0,18,19,0,0,77,146,0,0,28,0,0,0,0,0,0,0,18,19,532,65,77,66,67,68,0,353,69,70,71,72,73,74,75,76,522,65,0,66,67,68,0,0,69,70,71,72,73,74,75,76,521,65,0,66,67,68,29,30,69,70,71,72,73,74,75,76,0,0,241,0,0,18,19,29,30,77,32,33,34,35,36,37,38,39,40,0,0,18,19,0,0,77,0,32,33,34,35,36,37,38,39,40,0,18,19,520,65,77,66,67,68,0,0,69,70,71,72,73,74,75,76,598,65,0,66,67,68,0,0,69,70,71,72,73,74,75,76,597,65,0,66,67,68,29,30,69,70,71,72,73,74,75,76,0,0,0,262,0,18,19,29,30,77,32,33,34,35,36,37,38,39,0,0,0,18,19,0,0,77,0,32,33,34,35,36,37,38,39,0,0,18,19,593,65,77,66,67,68,0,0,69,70,71,72,73,74,75,76,592,65,0,66,67,68,0,0,69,70,71,72,73,74,75,76,590,65,0,66,67,68,-239,-239,69,70,71,72,73,74,75,76,-239,0,0,0,0,18,19,-271,-271,77,-239,-239,-239,-239,-239,-239,0,-239,0,0,0,18,19,0,0,77,0,-271,-271,-271,-271,-271,-271,-271,-271,0,0,18,19,587,65,77,66,67,68,0,0,69,70,71,72,73,74,75,76,573,65,0,66,67,68,0,0,69,70,71,72,73,74,75,76,618,65,0,66,67,68,29,30,69,70,71,72,73,74,75,76,0,0,0,0,0,18,19,0,0,77,32,33,34,35,36,37,38,39,0,0,0,18,19,0,0,77,0,0,0,0,0,0,0,0,0,0,0,18,19,610,65,77,66,67,68,0,0,69,70,71,72,73,74,75,76,609,65,0,66,67,68,0,0,69,70,71,72,73,74,75,76,608,65,0,66,67,68,0,0,69,70,71,72,73,74,75,76,0,0,0,0,0,18,19,0,0,77,0,0,0,0,0,0,0,0,0,0,0,18,19,23,0,77,0,0,25,26,27,0,0,0,0,0,0,18,19,626,65,77,66,67,68,28,0,69,70,71,72,73,74,75,76,56,0,0,57,23,24,0,171,0,25,26,27,0,56,0,493,57,23,24,0,0,0,25,26,27,56,28,0,57,23,24,0,0,58,25,26,27,18,19,28,0,77,0,59,0,0,58,253,343,0,0,28,0,0,0,0,59,61,58,23,60,0,0,0,25,26,27,0,59,0,61,0,253,0,56,0,0,57,23,24,0,28,61,25,26,27,56,0,0,57,23,24,0,0,0,25,26,27,171,56,28,0,57,23,24,0,491,260,25,26,27,0,28,253,50,51,52,59,53,258,0,253,18,19,0,28,54,0,0,59,0,61,58,253,0,0,0,0,0,0,0,0,59,61,56,0,253,57,23,24,0,0,0,25,26,27,61,56,0,0,57,23,24,0,0,0,25,26,27,56,28,0,57,23,24,0,0,58,25,26,27,0,0,28,0,0,0,59,0,0,58,60,0,0,0,28,0,0,0,0,59,61,258,23,253,0,0,0,25,26,27,0,59,0,61,0,253,0,56,0,0,57,23,24,0,28,61,25,26,27,56,0,0,57,23,24,0,0,0,25,26,27,171,56,28,0,57,23,24,0,440,58,25,26,27,0,28,343,50,51,52,59,53,58,0,253,18,19,0,28,54,0,0,59,0,61,58,60,0,0,0,0,0,0,0,0,59,61,56,0,253,57,23,24,0,0,0,25,26,27,61,56,0,0,57,23,24,0,0,0,25,26,27,56,28,0,57,23,24,0,0,58,25,26,27,0,0,28,0,0,0,59,0,0,58,60,0,0,0,28,0,461,75,76,59,61,58,23,253,462,206,207,25,26,27,0,59,0,61,0,60,0,56,0,0,57,23,24,263,28,61,25,26,27,264,50,51,52,0,53,0,18,19,18,19,77,171,54,28,482,0,66,67,68,438,58,69,70,71,72,73,74,75,76,452,59,66,67,68,253,0,69,70,71,72,73,74,75,76,61,0,0,23,0,0,0,0,25,26,27,0,0,0,23,0,0,0,0,25,26,27,18,19,0,28,77,0,0,0,0,0,113,166,0,0,28,18,19,0,0,77,162,113,23,0,115,0,0,25,26,27,0,162,163,0,116,115,0,0,0,0,0,23,0,0,28,116,25,26,27,0,0,113,23,0,0,0,0,25,26,27,0,162,0,28,0,115,0,0,0,0,113,23,346,0,28,116,25,26,27,0,162,113,0,0,115,0,0,0,564,0,0,162,0,28,116,115,23,0,0,575,113,25,26,27,0,116,294,50,51,52,228,53,0,0,115,18,19,0,28,54,0,0,0,68,116,113,295,296,71,72,73,74,75,76,0,162,68,0,0,115,0,188,189,73,74,75,76,68,0,116,0,0,190,191,73,74,75,76,68,0,0,0,0,188,189,73,74,75,76,0,0,18,19,0,0,77,0,0,0,0,0,0,0,0,18,19,0,23,77,0,0,0,25,26,27,18,19,0,-286,77,0,-286,-286,0,-286,-286,18,19,0,28,77,-286,-286,-286,-286,-286,-286,-286,-286,-286,0,-286,-286,-286,0,-286,171,0,0,0,-286,-286,-286,0,566,0,-286,-286,-286,-286,-286,-286,-286,-286,-286,-286,23,0,-286,23,0,25,26,27,25,26,27,0,23,0,0,0,0,25,26,27,0,0,28,497,0,28,0,88,498,50,51,52,0,53,28,0,0,18,19,171,0,54,171,0,88,-167,-167,544,0,0,516,171,0,0,0,0,0,-167,0,573,94,88,-166,-166,0,-167,-167,-167,-167,-167,-167,-167,-167,-167,-166,0,0,94,0,-165,-165,0,-166,-166,-166,-166,-166,-166,-166,-166,-166,-165,0,0,94,0,0,0,0,-165,-165,-165,-165,-165,-165,-165,-165,-165,203,75,76,0,0,0,0,204,205,206,207,0,-290,-290,0,0,0,-290,0,0,0,0,0,0,-290,-290,-290,0,0,0,-290,-290,-290,-290,-290,-290,-290,-290,-290,-290,18,19,-290,0,77,45,46,47,48,0,0,0,0,0,49,50,51,52,0,53,0,0,0,18,19,0,0,54,349,46,47,48,0,0,0,0,0,49,50,51,52,0,53,0,0,0,18,19,0,0,54,483,46,47,48,0,0,0,0,0,49,50,51,52,0,53,0,0,0,18,19,0,0,54,420,46,47,48,0,0,0,0,0,49,50,51,52,0,53,0,0,0,18,19,0,0,54,549,46,47,48,0,0,0,0,0,49,50,51,52,0,53,0,0,0,18,19,0,0,54,613,46,47,48,0,0,0,0,0,49,50,51,52,0,53,0,0,0,18,19,0,0,54,612,46,47,48,0,0,0,0,0,49,50,51,52,0,53,0,265,48,18,19,0,0,54,266,50,51,52,0,53,0,0,263,18,19,0,0,54,274,50,51,52,0,53,0,0,0,18,19,0,0,54,337,50,51,52,0,53,338,0,0,339,19,0,0,54,0,0,340,341,278,50,51,52,0,53,0,0,0,18,19,0,0,54,277,50,51,52,0,53,0,0,0,18,19,0,0,54,275,50,51,52,0,53,0,0,0,18,19,0,0,54,503,50,51,52,0,53,0,0,0,18,19,0,0,54,502,50,51,52,0,53,0,0,0,18,19,0,0,54,489,50,51,52,0,53,0,0,0,18,19,0,0,54,435,50,51,52,0,53,0,0,0,18,19,0,0,54,431,50,51,52,0,53,0,0,0,18,19,0,0,54,544,50,51,52,0,53,0,0,0,18,19,0,0,54,542,50,51,52,0,53,0,0,0,18,19,0,0,54,533,50,51,52,0,53,0,0,0,18,19,0,0,54,516,50,51,52,0,53,0,0,0,18,19,0,0,54,514,50,51,52,0,53,0,0,0,18,19,0,0,54,498,50,51,52,0,53,0,0,0,18,19,0,0,54,600,50,51,52,0,53,0,0,0,18,19,0,0,54,599,50,51,52,0,53,0,0,0,18,19,0,0,54,584,50,51,52,0,53,0,0,0,18,19,0,0,54,583,50,51,52,0,53,0,0,0,18,19,0,0,54,614,50,51,52,0,53,0,0,0,18,19,0,0,54,611,50,51,52,0,53,0,0,0,18,19,0,0,54,606,50,51,52,0,53,0,0,0,18,19,0,0,54,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 +happyTable = Happy_Data_Array.listArray (0,3796) ([0,394,269,14,272,386,408,201,151,350,120,131,132,636,433,157,158,500,201,388,624,133,134,428,135,136,137,353,178,138,139,329,330,202,273,140,509,132,18,160,101,102,131,153,202,625,133,134,501,135,136,137,502,178,138,139,179,203,-1,14,140,611,132,18,19,101,102,412,151,152,354,133,134,180,135,136,137,18,351,138,139,18,351,378,375,140,104,105,153,377,101,102,18,160,192,18,160,40,180,41,395,40,177,41,270,40,100,41,270,18,106,104,105,18,351,132,595,473,157,158,18,160,-1,183,148,134,242,135,136,137,444,184,138,139,18,106,104,105,140,180,132,18,160,101,102,374,432,157,158,415,134,151,135,136,137,263,375,138,139,18,106,18,160,140,-1,132,531,532,101,102,18,160,566,354,570,134,176,135,136,137,234,116,138,139,494,566,101,102,140,104,105,177,314,101,102,18,160,495,384,100,198,199,356,151,101,102,132,315,-25,385,311,103,18,106,104,105,423,372,135,136,137,-25,-25,138,139,177,326,327,373,140,180,132,104,105,101,102,336,18,106,104,105,422,151,135,136,137,344,337,138,139,104,105,18,160,140,18,106,151,183,101,102,236,18,106,526,120,313,121,18,160,122,361,123,18,106,344,124,125,376,373,104,105,126,147,445,123,185,101,102,124,125,101,102,18,160,126,228,18,160,186,101,102,386,18,106,104,105,167,229,446,65,233,66,67,68,387,388,69,70,71,72,73,74,75,76,538,539,540,18,106,232,223,224,104,105,359,158,104,105,617,539,540,166,429,157,158,104,105,237,75,76,61,62,167,168,-1,18,106,18,160,18,106,18,19,185,63,77,18,160,18,106,64,65,174,66,67,68,225,226,69,70,71,72,73,74,75,76,591,18,19,325,318,77,541,50,51,52,512,53,100,18,106,18,19,101,102,54,541,50,51,52,426,53,185,173,151,18,19,101,102,54,524,525,172,18,19,424,177,77,402,436,451,101,102,101,102,101,102,450,-1,177,305,347,101,102,101,102,23,486,147,104,105,25,26,27,348,349,303,368,146,155,16,17,178,104,105,311,145,305,28,18,160,-1,18,106,537,406,344,104,105,104,105,104,105,286,287,171,18,106,104,105,104,105,156,157,158,159,18,160,18,160,18,106,18,106,18,106,394,180,303,304,108,18,106,18,106,23,18,160,128,305,25,26,27,393,151,109,110,111,112,18,160,602,534,461,75,76,389,28,386,535,-69,467,206,207,113,108,14,15,16,17,23,562,388,128,114,25,26,27,115,380,109,110,111,112,23,44,379,488,116,25,26,27,28,18,19,-69,366,77,305,113,108,129,-32,303,491,23,28,167,367,114,25,26,27,115,305,109,110,111,112,359,308,16,17,116,18,19,356,28,20,21,284,285,45,559,113,381,129,-31,382,151,461,75,76,334,114,527,560,561,115,463,207,335,108,156,157,158,159,23,116,333,-69,142,25,26,143,144,-69,109,110,111,112,-69,-1,-69,347,632,633,18,160,28,18,19,-69,40,77,267,113,553,349,210,15,16,17,328,211,65,114,66,67,68,115,386,69,70,71,72,73,74,75,76,116,436,150,212,574,388,108,151,29,30,316,23,305,129,-69,142,25,26,143,144,-69,109,110,111,112,-69,332,-69,32,33,34,35,36,28,329,39,-69,18,19,317,113,77,594,472,473,157,158,288,216,65,114,66,67,68,115,318,69,70,71,72,73,74,75,76,116,434,-18,217,18,160,108,292,289,218,293,23,305,129,-69,142,25,26,143,144,-69,109,110,111,112,-69,151,-69,303,438,18,19,603,28,409,559,-69,18,19,305,113,77,79,80,81,82,23,24,573,561,114,25,26,27,115,18,19,290,301,193,291,194,281,436,116,88,23,44,28,167,302,25,26,27,305,89,545,129,248,15,16,17,397,29,30,90,214,305,28,91,436,92,274,40,93,41,42,466,94,95,467,305,263,32,33,34,215,216,37,38,39,40,56,23,45,57,23,24,25,26,27,25,26,27,260,16,17,249,50,51,52,287,53,250,459,28,18,19,28,56,54,509,57,23,24,58,303,568,25,26,27,513,171,29,30,59,252,305,507,253,370,23,305,174,17,28,25,26,27,61,500,263,58,32,33,34,35,36,37,38,39,40,59,28,276,52,253,53,436,506,113,18,19,505,285,54,61,458,443,305,162,501,18,389,115,502,79,80,81,82,23,24,309,17,116,25,26,27,293,62,83,84,85,86,182,18,410,455,87,88,456,488,28,79,80,81,82,23,24,89,485,196,25,26,27,23,24,18,556,90,25,26,27,91,258,92,88,461,93,28,18,19,94,95,256,290,89,28,631,457,96,97,18,582,478,479,90,370,16,17,91,496,92,281,197,93,454,177,198,94,95,79,80,81,82,23,24,96,97,151,25,26,27,449,470,471,472,473,157,158,268,15,16,17,88,444,443,28,79,80,81,82,23,24,89,220,442,25,26,27,23,18,160,431,90,25,26,27,91,279,92,88,422,93,28,18,19,94,95,256,448,89,28,254,255,96,97,129,415,18,19,90,563,256,564,91,412,92,408,353,93,307,16,17,94,95,79,80,81,82,23,24,96,97,129,25,26,27,23,407,556,29,30,25,26,27,244,245,281,88,23,24,28,550,262,25,26,27,555,89,28,32,33,34,35,36,37,38,39,90,449,151,28,91,23,92,537,171,93,25,26,27,94,95,332,307,151,29,30,31,96,97,530,529,23,528,28,23,151,25,26,27,25,26,27,520,519,32,33,34,35,36,37,38,39,40,28,518,248,28,513,511,40,113,41,507,113,83,84,85,86,29,30,162,163,87,162,115,512,23,115,493,16,17,25,26,27,116,611,610,116,32,33,34,35,36,37,38,39,108,358,28,608,40,23,41,562,151,113,25,26,27,601,598,109,110,111,112,162,108,151,457,115,593,23,151,28,592,590,25,26,27,116,113,109,110,111,112,151,399,586,585,182,114,129,400,28,115,580,23,401,624,402,113,25,26,27,116,576,188,151,146,512,114,449,16,17,115,151,529,108,28,440,16,17,23,151,116,-68,426,25,26,404,405,-68,109,110,111,112,-68,614,-68,512,155,419,16,17,28,151,636,-68,151,23,512,113,108,151,25,26,27,23,543,16,17,114,25,26,27,115,129,109,110,111,112,28,108,118,98,116,97,23,397,28,238,236,25,26,27,234,113,109,110,111,112,382,365,283,459,238,114,108,464,28,115,428,23,581,124,418,113,25,26,27,116,544,109,110,111,112,114,461,75,76,115,552,413,608,28,462,206,207,574,627,116,113,497,79,80,81,82,23,24,586,633,114,25,26,27,115,0,23,239,15,16,17,25,26,27,116,88,18,19,28,0,77,580,124,418,23,89,0,0,28,25,26,27,231,0,0,90,0,558,0,91,0,92,0,0,93,171,28,0,94,95,220,65,0,66,67,68,221,222,69,70,71,72,73,74,75,76,79,80,81,82,23,24,0,23,0,25,26,27,25,26,27,0,0,23,0,242,243,0,25,26,27,0,28,0,0,28,244,245,246,89,0,0,0,18,19,28,0,77,0,90,0,0,171,91,209,92,0,0,93,0,493,220,65,210,66,67,68,630,481,69,70,71,72,73,74,75,76,79,80,81,82,23,24,0,23,0,25,26,27,25,26,27,0,0,23,0,0,391,0,25,26,27,0,28,0,0,28,244,628,281,89,0,0,0,18,19,28,0,77,0,90,0,0,392,91,0,92,117,65,93,66,67,68,171,95,69,70,71,72,73,74,75,76,360,65,0,66,67,68,0,0,69,70,71,72,73,74,75,76,485,65,0,66,67,68,0,0,69,70,71,72,73,74,75,76,297,16,17,364,0,18,19,23,0,77,23,0,25,26,27,25,26,27,0,0,0,18,19,0,0,77,0,0,0,28,0,0,28,170,0,0,584,18,19,480,65,77,66,67,68,0,171,69,70,71,72,73,74,75,76,479,65,0,66,67,68,0,0,69,70,71,72,73,74,75,76,476,65,0,66,67,68,0,0,69,70,71,72,73,74,75,76,151,297,16,17,363,18,19,23,0,77,0,0,25,26,27,319,320,321,322,323,0,18,19,0,324,77,0,0,0,28,297,16,17,362,0,0,0,18,19,475,65,77,66,67,68,0,353,69,70,71,72,73,74,75,76,474,65,0,66,67,68,0,0,69,70,71,72,73,74,75,76,469,65,0,66,67,68,29,30,69,70,71,72,73,74,75,76,0,0,241,0,0,18,19,29,30,77,32,33,34,35,36,37,38,39,40,0,0,18,19,0,0,77,0,32,33,34,35,36,37,38,39,40,0,18,19,468,65,77,66,67,68,0,0,69,70,71,72,73,74,75,76,550,65,0,66,67,68,0,0,69,70,71,72,73,74,75,76,542,65,0,66,67,68,-243,-243,69,70,71,72,73,74,75,76,-243,297,16,17,300,18,19,29,30,77,-243,-243,-243,-243,-243,-243,0,-243,0,0,0,18,19,0,0,77,0,32,33,34,35,36,37,38,39,0,0,18,19,532,65,77,66,67,68,0,0,69,70,71,72,73,74,75,76,522,65,0,66,67,68,0,0,69,70,71,72,73,74,75,76,521,65,0,66,67,68,-275,-275,69,70,71,72,73,74,75,76,297,16,17,299,0,18,19,29,30,77,-275,-275,-275,-275,-275,-275,-275,-275,0,0,0,18,19,0,0,77,0,32,33,34,35,36,37,38,39,0,0,18,19,520,65,77,66,67,68,0,0,69,70,71,72,73,74,75,76,604,65,0,66,67,68,0,0,69,70,71,72,73,74,75,76,603,65,0,66,67,68,0,0,69,70,71,72,73,74,75,76,297,16,17,298,0,18,19,0,0,77,163,157,158,164,416,417,124,418,0,0,0,18,19,23,44,77,0,0,25,26,27,0,0,0,18,160,0,18,19,599,65,77,66,67,68,28,0,69,70,71,72,73,74,75,76,598,65,0,66,67,68,0,0,69,70,71,72,73,74,75,76,596,65,0,66,67,68,0,0,69,70,71,72,73,74,75,76,571,417,124,418,0,18,19,0,0,77,156,157,158,159,0,0,0,0,0,0,0,18,19,23,24,77,0,0,25,26,27,0,0,0,18,160,0,18,19,593,65,77,66,67,68,28,0,69,70,71,72,73,74,75,76,577,65,0,66,67,68,0,0,69,70,71,72,73,74,75,76,626,65,0,66,67,68,0,0,69,70,71,72,73,74,75,76,0,45,46,47,48,18,19,0,0,77,49,50,51,52,0,53,0,0,0,18,19,18,19,54,23,77,0,0,0,25,26,27,0,0,0,0,0,18,19,618,65,77,66,67,68,0,28,69,70,71,72,73,74,75,76,616,65,0,66,67,68,0,0,69,70,71,72,73,74,75,76,615,65,0,66,67,68,0,0,69,70,71,72,73,74,75,76,0,349,46,47,48,18,19,0,0,77,49,50,51,52,0,53,0,0,0,18,19,18,19,54,0,77,0,0,0,0,0,0,0,0,0,0,0,18,19,614,65,77,66,67,68,0,0,69,70,71,72,73,74,75,76,634,65,0,66,67,68,0,0,69,70,71,72,73,74,75,76,56,0,0,57,23,24,0,265,48,25,26,27,0,0,266,50,51,52,0,53,0,18,19,18,19,77,28,54,0,23,0,0,0,58,25,26,27,18,19,0,0,77,0,59,0,0,0,253,343,56,0,28,57,23,24,0,0,61,25,26,27,56,0,0,57,23,24,0,171,0,25,26,27,0,56,28,491,57,23,24,0,0,58,25,26,27,0,28,253,50,51,52,59,53,58,0,60,18,19,0,28,54,0,0,59,0,61,260,253,0,0,0,0,0,0,0,0,59,61,56,0,253,57,23,24,0,0,0,25,26,27,61,56,0,0,57,23,24,0,0,0,25,26,27,56,28,0,57,23,24,0,0,258,25,26,27,0,0,28,0,0,0,59,0,0,58,253,0,0,0,28,0,0,0,0,59,61,58,23,253,0,0,0,25,26,27,0,59,0,61,0,60,0,56,0,0,57,23,24,0,28,61,25,26,27,56,0,0,57,23,24,0,0,0,25,26,27,171,56,28,0,57,23,24,0,440,58,25,26,27,0,28,343,50,51,52,59,53,258,0,253,18,19,0,28,54,0,0,59,0,61,58,253,0,0,0,0,0,0,0,0,59,61,56,0,253,57,23,24,0,0,0,25,26,27,61,56,0,0,57,23,24,0,0,0,25,26,27,56,28,0,57,23,24,0,0,58,25,26,27,0,0,28,0,0,0,59,0,0,58,60,0,0,0,28,0,0,0,0,59,61,58,23,253,0,0,0,25,26,27,0,59,0,61,0,60,0,56,0,0,57,23,24,0,28,61,25,26,27,56,0,0,57,23,24,0,0,0,25,26,27,171,56,28,0,57,23,24,0,438,58,25,26,27,0,28,294,50,51,52,59,53,58,0,253,18,19,0,28,54,0,0,59,497,61,58,60,0,498,50,51,52,0,53,0,59,61,18,19,253,0,54,0,482,0,66,67,68,0,61,69,70,71,72,73,74,75,76,452,0,66,67,68,0,0,69,70,71,72,73,74,75,76,0,0,0,23,0,0,0,0,25,26,27,0,0,0,23,0,0,0,0,25,26,27,18,19,0,28,77,0,0,0,0,0,113,166,0,0,28,18,19,0,0,77,162,113,23,0,115,0,0,25,26,27,0,162,163,0,116,115,0,0,0,0,0,23,0,0,28,116,25,26,27,0,0,113,23,0,0,0,0,25,26,27,0,162,0,28,0,115,0,0,0,0,113,23,346,0,28,116,25,26,27,0,162,113,0,0,115,0,0,0,568,0,0,162,0,28,116,115,23,0,0,579,113,25,26,27,0,116,278,50,51,52,228,53,0,0,115,18,19,0,28,54,0,0,0,68,116,113,295,296,71,72,73,74,75,76,0,162,68,0,0,115,0,190,191,73,74,75,76,68,0,116,0,0,188,189,73,74,75,76,68,0,0,0,0,190,191,73,74,75,76,0,0,18,19,68,0,77,0,0,188,189,73,74,75,76,18,19,0,0,77,0,0,0,0,0,0,18,19,0,0,77,0,0,0,0,0,0,18,19,0,0,77,0,0,-290,0,0,-290,-290,0,-290,-290,18,19,0,0,77,-290,-290,-290,-290,-290,-290,-290,-290,-290,0,-290,-290,-290,0,-290,0,0,23,0,-290,-290,-290,25,26,27,-290,-290,-290,-290,-290,-290,-290,-290,-290,-290,23,0,-290,23,28,25,26,27,25,26,27,0,23,0,0,0,0,25,26,27,0,171,28,0,0,28,0,88,0,570,0,0,0,0,28,0,0,0,0,171,0,0,171,0,88,-171,-171,548,0,0,516,171,0,0,0,0,0,-171,0,577,94,88,-170,-170,0,-171,-171,-171,-171,-171,-171,-171,-171,-171,-170,0,0,94,0,-169,-169,0,-170,-170,-170,-170,-170,-170,-170,-170,-170,-169,0,0,94,0,0,0,0,-169,-169,-169,-169,-169,-169,-169,-169,-169,203,75,76,0,0,0,0,204,205,206,207,0,-294,-294,0,0,0,-294,0,0,0,0,0,0,-294,-294,-294,0,0,0,-294,-294,-294,-294,-294,-294,-294,-294,-294,-294,18,19,-294,0,77,483,46,47,48,0,0,0,0,0,49,50,51,52,0,53,0,0,0,18,19,0,0,54,420,46,47,48,0,0,0,0,0,49,50,51,52,0,53,0,0,0,18,19,0,0,54,553,46,47,48,0,0,0,0,0,49,50,51,52,0,53,0,0,0,18,19,0,0,54,621,46,47,48,0,0,0,0,0,49,50,51,52,0,53,0,0,0,18,19,0,0,54,620,46,47,48,0,0,0,0,0,49,50,51,52,0,53,0,0,263,18,19,0,0,54,264,50,51,52,0,53,0,0,263,18,19,0,0,54,274,50,51,52,0,53,0,0,0,18,19,0,0,54,337,50,51,52,0,53,338,0,0,339,19,0,0,54,0,0,340,341,277,50,51,52,0,53,0,0,0,18,19,0,0,54,275,50,51,52,0,53,0,0,0,18,19,0,0,54,503,50,51,52,0,53,0,0,0,18,19,0,0,54,502,50,51,52,0,53,0,0,0,18,19,0,0,54,489,50,51,52,0,53,0,0,0,18,19,0,0,54,435,50,51,52,0,53,0,0,0,18,19,0,0,54,431,50,51,52,0,53,0,0,0,18,19,0,0,54,548,50,51,52,0,53,0,0,0,18,19,0,0,54,546,50,51,52,0,53,0,0,0,18,19,0,0,54,533,50,51,52,0,53,0,0,0,18,19,0,0,54,516,50,51,52,0,53,0,0,0,18,19,0,0,54,514,50,51,52,0,53,0,0,0,18,19,0,0,54,498,50,51,52,0,53,0,0,0,18,19,0,0,54,606,50,51,52,0,53,0,0,0,18,19,0,0,54,605,50,51,52,0,53,0,0,0,18,19,0,0,54,588,50,51,52,0,53,0,0,0,18,19,0,0,54,587,50,51,52,0,53,0,0,0,18,19,0,0,54,622,50,51,52,0,53,0,0,0,18,19,0,0,54,619,50,51,52,0,53,0,0,0,18,19,0,0,54,612,50,51,52,0,53,0,0,0,18,19,0,0,54,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 ]) -happyReduceArr = Happy_Data_Array.array (12, 325) [ +happyReduceArr = Happy_Data_Array.array (12, 329) [ (12 , happyReduce_12), (13 , happyReduce_13), (14 , happyReduce_14), @@ -469,11 +470,15 @@ happyReduceArr = Happy_Data_Array.array (12, 325) [ (322 , happyReduce_322), (323 , happyReduce_323), (324 , happyReduce_324), - (325 , happyReduce_325) + (325 , happyReduce_325), + (326 , happyReduce_326), + (327 , happyReduce_327), + (328 , happyReduce_328), + (329 , happyReduce_329) ] happy_n_terms = 73 :: Prelude.Int -happy_n_nonterms = 106 :: Prelude.Int +happy_n_nonterms = 109 :: Prelude.Int happyReduce_12 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) happyReduce_12 = happySpecReduce_2 0 happyReduction_12 @@ -500,7 +505,7 @@ happyReduction_14 (_ `HappyStk` (HappyAbsSyn17 happy_var_4) `HappyStk` _ `HappyStk` _ `HappyStk` - (HappyAbsSyn114 happy_var_1) `HappyStk` + (HappyAbsSyn117 happy_var_1) `HappyStk` happyRest) = HappyAbsSyn15 (mkModule happy_var_1 happy_var_4 @@ -512,9 +517,9 @@ happyReduction_15 (_ `HappyStk` (HappyAbsSyn17 happy_var_6) `HappyStk` _ `HappyStk` _ `HappyStk` - (HappyAbsSyn114 happy_var_3) `HappyStk` + (HappyAbsSyn117 happy_var_3) `HappyStk` _ `HappyStk` - (HappyAbsSyn114 happy_var_1) `HappyStk` + (HappyAbsSyn117 happy_var_1) `HappyStk` happyRest) = HappyAbsSyn15 (mkModuleInstance happy_var_1 happy_var_3 happy_var_6 @@ -557,7 +562,7 @@ happyReduction_18 ((HappyAbsSyn21 happy_var_4) `HappyStk` happyReduce_19 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) happyReduce_19 = happySpecReduce_2 4 happyReduction_19 -happyReduction_19 (HappyAbsSyn116 happy_var_2) +happyReduction_19 (HappyAbsSyn119 happy_var_2) _ = HappyAbsSyn19 (ImpNested `fmap` happy_var_2 @@ -566,7 +571,7 @@ happyReduction_19 _ _ = notHappyAtAll happyReduce_20 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) happyReduce_20 = happySpecReduce_1 4 happyReduction_20 -happyReduction_20 (HappyAbsSyn114 happy_var_1) +happyReduction_20 (HappyAbsSyn117 happy_var_1) = HappyAbsSyn19 (ImpTop `fmap` happy_var_1 ) @@ -574,7 +579,7 @@ happyReduction_20 _ = notHappyAtAll happyReduce_21 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) happyReduce_21 = happySpecReduce_2 5 happyReduction_21 -happyReduction_21 (HappyAbsSyn114 happy_var_2) +happyReduction_21 (HappyAbsSyn117 happy_var_2) _ = HappyAbsSyn20 (Just happy_var_2 @@ -611,7 +616,7 @@ happyReduction_24 = HappyAbsSyn21 happyReduce_25 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) happyReduce_25 = happySpecReduce_3 7 happyReduction_25 -happyReduction_25 (HappyAbsSyn44 happy_var_3) +happyReduction_25 (HappyAbsSyn47 happy_var_3) _ (HappyAbsSyn22 happy_var_1) = HappyAbsSyn22 @@ -621,7 +626,7 @@ happyReduction_25 _ _ _ = notHappyAtAll happyReduce_26 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) happyReduce_26 = happySpecReduce_1 7 happyReduction_26 -happyReduction_26 (HappyAbsSyn44 happy_var_1) +happyReduction_26 (HappyAbsSyn47 happy_var_1) = HappyAbsSyn22 ([fmap getIdent happy_var_1] ) @@ -727,7 +732,7 @@ happyReduction_38 _ _ _ = notHappyAtAll happyReduce_39 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) happyReduce_39 = happySpecReduce_1 13 happyReduction_39 -happyReduction_39 (HappyAbsSyn38 happy_var_1) +happyReduction_39 (HappyAbsSyn41 happy_var_1) = HappyAbsSyn17 ([exportDecl Nothing Public happy_var_1] ) @@ -735,7 +740,7 @@ happyReduction_39 _ = notHappyAtAll happyReduce_40 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) happyReduce_40 = happySpecReduce_2 13 happyReduction_40 -happyReduction_40 (HappyAbsSyn38 happy_var_2) +happyReduction_40 (HappyAbsSyn41 happy_var_2) (HappyAbsSyn35 happy_var_1) = HappyAbsSyn17 ([exportDecl (Just happy_var_1) Public happy_var_2] @@ -753,10 +758,10 @@ happyReduction_41 ((HappyTerminal (happy_var_3@(Located _ (Token (StrLit {}) _)) happyReduce_42 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) happyReduce_42 = happyReduce 6 13 happyReduction_42 -happyReduction_42 ((HappyAbsSyn59 happy_var_6) `HappyStk` +happyReduction_42 ((HappyAbsSyn62 happy_var_6) `HappyStk` _ `HappyStk` - (HappyAbsSyn45 happy_var_4) `HappyStk` - (HappyAbsSyn44 happy_var_3) `HappyStk` + (HappyAbsSyn48 happy_var_4) `HappyStk` + (HappyAbsSyn47 happy_var_3) `HappyStk` _ `HappyStk` (HappyAbsSyn36 happy_var_1) `HappyStk` happyRest) @@ -766,9 +771,9 @@ happyReduction_42 ((HappyAbsSyn59 happy_var_6) `HappyStk` happyReduce_43 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) happyReduce_43 = happyReduce 5 13 happyReduction_43 -happyReduction_43 ((HappyAbsSyn59 happy_var_5) `HappyStk` +happyReduction_43 ((HappyAbsSyn62 happy_var_5) `HappyStk` _ `HappyStk` - (HappyAbsSyn44 happy_var_3) `HappyStk` + (HappyAbsSyn47 happy_var_3) `HappyStk` _ `HappyStk` (HappyAbsSyn36 happy_var_1) `HappyStk` happyRest) @@ -778,7 +783,7 @@ happyReduction_43 ((HappyAbsSyn59 happy_var_5) `HappyStk` happyReduce_44 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) happyReduce_44 = happySpecReduce_2 13 happyReduction_44 -happyReduction_44 (HappyAbsSyn41 happy_var_2) +happyReduction_44 (HappyAbsSyn44 happy_var_2) (HappyAbsSyn36 happy_var_1) = HappyAbsSyn17 ([exportNewtype Public happy_var_1 happy_var_2] @@ -828,7 +833,7 @@ happyReduction_49 _ = notHappyAtAll happyReduce_50 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) happyReduce_50 = happySpecReduce_1 14 happyReduction_50 -happyReduction_50 (HappyAbsSyn38 happy_var_1) +happyReduction_50 (HappyAbsSyn41 happy_var_1) = HappyAbsSyn17 ([Decl (TopLevel {tlExport = Public, tlValue = happy_var_1 })] ) @@ -875,9 +880,9 @@ happyReduction_54 (_ `HappyStk` happyReduce_55 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) happyReduce_55 = happyReduce 5 16 happyReduction_55 -happyReduction_55 ((HappyAbsSyn94 happy_var_5) `HappyStk` +happyReduction_55 ((HappyAbsSyn97 happy_var_5) `HappyStk` _ `HappyStk` - (HappyAbsSyn44 happy_var_3) `HappyStk` + (HappyAbsSyn47 happy_var_3) `HappyStk` _ `HappyStk` (HappyAbsSyn36 happy_var_1) `HappyStk` happyRest) @@ -887,10 +892,10 @@ happyReduction_55 ((HappyAbsSyn94 happy_var_5) `HappyStk` happyReduce_56 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) happyReduce_56 = happyReduce 7 16 happyReduction_56 -happyReduction_56 ((HappyAbsSyn94 happy_var_7) `HappyStk` +happyReduction_56 ((HappyAbsSyn97 happy_var_7) `HappyStk` _ `HappyStk` _ `HappyStk` - (HappyAbsSyn44 happy_var_4) `HappyStk` + (HappyAbsSyn47 happy_var_4) `HappyStk` _ `HappyStk` _ `HappyStk` (HappyAbsSyn36 happy_var_1) `HappyStk` @@ -901,9 +906,9 @@ happyReduction_56 ((HappyAbsSyn94 happy_var_7) `HappyStk` happyReduce_57 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) happyReduce_57 = happyMonadReduce 6 16 happyReduction_57 -happyReduction_57 ((HappyAbsSyn98 happy_var_6) `HappyStk` +happyReduction_57 ((HappyAbsSyn101 happy_var_6) `HappyStk` _ `HappyStk` - (HappyAbsSyn94 happy_var_4) `HappyStk` + (HappyAbsSyn97 happy_var_4) `HappyStk` _ `HappyStk` _ `HappyStk` (HappyAbsSyn36 happy_var_1) `HappyStk` @@ -964,9 +969,9 @@ happyReduction_62 _ _ _ = notHappyAtAll happyReduce_63 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) happyReduce_63 = happyReduce 4 19 happyReduction_63 -happyReduction_63 ((HappyAbsSyn94 happy_var_4) `HappyStk` +happyReduction_63 ((HappyAbsSyn97 happy_var_4) `HappyStk` _ `HappyStk` - (HappyAbsSyn44 happy_var_2) `HappyStk` + (HappyAbsSyn47 happy_var_2) `HappyStk` (HappyAbsSyn36 happy_var_1) `HappyStk` happyRest) = HappyAbsSyn34 @@ -975,9 +980,9 @@ happyReduction_63 ((HappyAbsSyn94 happy_var_4) `HappyStk` happyReduce_64 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) happyReduce_64 = happyMonadReduce 5 19 happyReduction_64 -happyReduction_64 ((HappyAbsSyn98 happy_var_5) `HappyStk` +happyReduction_64 ((HappyAbsSyn101 happy_var_5) `HappyStk` _ `HappyStk` - (HappyAbsSyn44 happy_var_3) `HappyStk` + (HappyAbsSyn47 happy_var_3) `HappyStk` _ `HappyStk` (HappyAbsSyn36 happy_var_1) `HappyStk` happyRest) tk @@ -986,7 +991,7 @@ happyReduction_64 ((HappyAbsSyn98 happy_var_5) `HappyStk` happyReduce_65 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) happyReduce_65 = happyMonadReduce 4 19 happyReduction_65 -happyReduction_65 ((HappyAbsSyn103 happy_var_4) `HappyStk` +happyReduction_65 ((HappyAbsSyn106 happy_var_4) `HappyStk` _ `HappyStk` _ `HappyStk` _ `HappyStk` @@ -1018,75 +1023,112 @@ happyReduction_68 = HappyAbsSyn36 ) happyReduce_69 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_69 = happySpecReduce_1 22 happyReduction_69 -happyReduction_69 _ +happyReduce_69 = happySpecReduce_2 22 happyReduction_69 +happyReduction_69 (HappyAbsSyn37 happy_var_2) + _ = HappyAbsSyn37 - ([] + (happy_var_2 ) +happyReduction_69 _ _ = notHappyAtAll happyReduce_70 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) happyReduce_70 = happySpecReduce_3 23 happyReduction_70 -happyReduction_70 (HappyAbsSyn94 happy_var_3) +happyReduction_70 (HappyAbsSyn37 happy_var_3) + (HappyTerminal (Located happy_var_2 (Token (Sym Bar ) _))) _ - (HappyAbsSyn43 happy_var_1) - = HappyAbsSyn38 - (at (head happy_var_1,happy_var_3) $ DSignature (reverse happy_var_1) happy_var_3 + = HappyAbsSyn37 + (happy_var_2 ++ happy_var_3 ) happyReduction_70 _ _ _ = notHappyAtAll happyReduce_71 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_71 = happySpecReduce_3 23 happyReduction_71 -happyReduction_71 (HappyAbsSyn59 happy_var_3) +happyReduce_71 = happySpecReduce_1 23 happyReduction_71 +happyReduction_71 (HappyAbsSyn37 happy_var_1) + = HappyAbsSyn37 + (happy_var_1 + ) +happyReduction_71 _ = notHappyAtAll + +happyReduce_72 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_72 = happySpecReduce_3 24 happyReduction_72 +happyReduction_72 (HappyAbsSyn62 happy_var_3) _ - (HappyAbsSyn88 happy_var_1) - = HappyAbsSyn38 + (HappyAbsSyn40 happy_var_1) + = HappyAbsSyn37 + ([(happy_var_1, happy_var_3)] + ) +happyReduction_72 _ _ _ = notHappyAtAll + +happyReduce_73 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_73 = happyMonadReduce 1 25 happyReduction_73 +happyReduction_73 ((HappyAbsSyn106 happy_var_1) `HappyStk` + happyRest) tk + = happyThen ((( fmap thing (mkProp happy_var_1))) + ) (\r -> happyReturn (HappyAbsSyn40 r)) + +happyReduce_74 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_74 = happySpecReduce_3 26 happyReduction_74 +happyReduction_74 (HappyAbsSyn97 happy_var_3) + _ + (HappyAbsSyn46 happy_var_1) + = HappyAbsSyn41 + (at (head happy_var_1,happy_var_3) $ DSignature (reverse happy_var_1) happy_var_3 + ) +happyReduction_74 _ _ _ = notHappyAtAll + +happyReduce_75 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_75 = happySpecReduce_3 26 happyReduction_75 +happyReduction_75 (HappyAbsSyn62 happy_var_3) + _ + (HappyAbsSyn91 happy_var_1) + = HappyAbsSyn41 (at (happy_var_1,happy_var_3) $ DPatBind happy_var_1 happy_var_3 ) -happyReduction_71 _ _ _ = notHappyAtAll +happyReduction_75 _ _ _ = notHappyAtAll -happyReduce_72 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_72 = happyReduce 5 23 happyReduction_72 -happyReduction_72 ((HappyAbsSyn59 happy_var_5) `HappyStk` +happyReduce_76 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_76 = happyReduce 5 26 happyReduction_76 +happyReduction_76 ((HappyAbsSyn62 happy_var_5) `HappyStk` _ `HappyStk` _ `HappyStk` - (HappyAbsSyn44 happy_var_2) `HappyStk` + (HappyAbsSyn47 happy_var_2) `HappyStk` (HappyTerminal (Located happy_var_1 (Token (Sym ParenL ) _))) `HappyStk` happyRest) - = HappyAbsSyn38 + = HappyAbsSyn41 (at (happy_var_1,happy_var_5) $ DPatBind (PVar happy_var_2) happy_var_5 ) `HappyStk` happyRest -happyReduce_73 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_73 = happyReduce 4 23 happyReduction_73 -happyReduction_73 ((HappyAbsSyn37 happy_var_4) `HappyStk` +happyReduce_77 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_77 = happyReduce 4 26 happyReduction_77 +happyReduction_77 ((HappyAbsSyn37 happy_var_4) `HappyStk` _ `HappyStk` - (HappyAbsSyn48 happy_var_2) `HappyStk` - (HappyAbsSyn44 happy_var_1) `HappyStk` + (HappyAbsSyn51 happy_var_2) `HappyStk` + (HappyAbsSyn47 happy_var_1) `HappyStk` happyRest) - = HappyAbsSyn38 - (at (happy_var_1,happy_var_4) $ mkIndexedPropGuardsDecl happy_var_1 happy_var_2 happy_var_4 + = HappyAbsSyn41 + (mkIndexedPropGuardsDecl happy_var_1 happy_var_2 happy_var_4 ) `HappyStk` happyRest -happyReduce_74 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_74 = happyReduce 4 23 happyReduction_74 -happyReduction_74 ((HappyAbsSyn59 happy_var_4) `HappyStk` +happyReduce_78 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_78 = happyReduce 4 26 happyReduction_78 +happyReduction_78 ((HappyAbsSyn62 happy_var_4) `HappyStk` _ `HappyStk` - (HappyAbsSyn48 happy_var_2) `HappyStk` - (HappyAbsSyn44 happy_var_1) `HappyStk` + (HappyAbsSyn51 happy_var_2) `HappyStk` + (HappyAbsSyn47 happy_var_1) `HappyStk` happyRest) - = HappyAbsSyn38 + = HappyAbsSyn41 (at (happy_var_1,happy_var_4) $ mkIndexedDecl happy_var_1 happy_var_2 happy_var_4 ) `HappyStk` happyRest -happyReduce_75 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_75 = happyReduce 5 23 happyReduction_75 -happyReduction_75 ((HappyAbsSyn59 happy_var_5) `HappyStk` +happyReduce_79 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_79 = happyReduce 5 26 happyReduction_79 +happyReduction_79 ((HappyAbsSyn62 happy_var_5) `HappyStk` _ `HappyStk` - (HappyAbsSyn88 happy_var_3) `HappyStk` - (HappyAbsSyn44 happy_var_2) `HappyStk` - (HappyAbsSyn88 happy_var_1) `HappyStk` + (HappyAbsSyn91 happy_var_3) `HappyStk` + (HappyAbsSyn47 happy_var_2) `HappyStk` + (HappyAbsSyn91 happy_var_1) `HappyStk` happyRest) - = HappyAbsSyn38 + = HappyAbsSyn41 (at (happy_var_1,happy_var_5) $ DBind $ Bind { bName = happy_var_2 , bParams = [happy_var_1,happy_var_3] @@ -1101,182 +1143,182 @@ happyReduction_75 ((HappyAbsSyn59 happy_var_5) `HappyStk` } ) `HappyStk` happyRest -happyReduce_76 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_76 = happyMonadReduce 4 23 happyReduction_76 -happyReduction_76 ((HappyAbsSyn103 happy_var_4) `HappyStk` +happyReduce_80 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_80 = happyMonadReduce 4 26 happyReduction_80 +happyReduction_80 ((HappyAbsSyn106 happy_var_4) `HappyStk` _ `HappyStk` - (HappyAbsSyn44 happy_var_2) `HappyStk` + (HappyAbsSyn47 happy_var_2) `HappyStk` (HappyTerminal (Located happy_var_1 (Token (KW KW_type ) _))) `HappyStk` happyRest) tk = happyThen ((( at (happy_var_1,happy_var_4) `fmap` mkTySyn happy_var_2 [] happy_var_4)) - ) (\r -> happyReturn (HappyAbsSyn38 r)) + ) (\r -> happyReturn (HappyAbsSyn41 r)) -happyReduce_77 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_77 = happyMonadReduce 5 23 happyReduction_77 -happyReduction_77 ((HappyAbsSyn103 happy_var_5) `HappyStk` +happyReduce_81 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_81 = happyMonadReduce 5 26 happyReduction_81 +happyReduction_81 ((HappyAbsSyn106 happy_var_5) `HappyStk` _ `HappyStk` - (HappyAbsSyn100 happy_var_3) `HappyStk` - (HappyAbsSyn44 happy_var_2) `HappyStk` + (HappyAbsSyn103 happy_var_3) `HappyStk` + (HappyAbsSyn47 happy_var_2) `HappyStk` (HappyTerminal (Located happy_var_1 (Token (KW KW_type ) _))) `HappyStk` happyRest) tk = happyThen ((( at (happy_var_1,happy_var_5) `fmap` mkTySyn happy_var_2 (reverse happy_var_3) happy_var_5)) - ) (\r -> happyReturn (HappyAbsSyn38 r)) + ) (\r -> happyReturn (HappyAbsSyn41 r)) -happyReduce_78 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_78 = happyMonadReduce 6 23 happyReduction_78 -happyReduction_78 ((HappyAbsSyn103 happy_var_6) `HappyStk` +happyReduce_82 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_82 = happyMonadReduce 6 26 happyReduction_82 +happyReduction_82 ((HappyAbsSyn106 happy_var_6) `HappyStk` _ `HappyStk` - (HappyAbsSyn99 happy_var_4) `HappyStk` - (HappyAbsSyn44 happy_var_3) `HappyStk` - (HappyAbsSyn99 happy_var_2) `HappyStk` + (HappyAbsSyn102 happy_var_4) `HappyStk` + (HappyAbsSyn47 happy_var_3) `HappyStk` + (HappyAbsSyn102 happy_var_2) `HappyStk` (HappyTerminal (Located happy_var_1 (Token (KW KW_type ) _))) `HappyStk` happyRest) tk = happyThen ((( at (happy_var_1,happy_var_6) `fmap` mkTySyn happy_var_3 [happy_var_2, happy_var_4] happy_var_6)) - ) (\r -> happyReturn (HappyAbsSyn38 r)) + ) (\r -> happyReturn (HappyAbsSyn41 r)) -happyReduce_79 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_79 = happyMonadReduce 5 23 happyReduction_79 -happyReduction_79 ((HappyAbsSyn103 happy_var_5) `HappyStk` +happyReduce_83 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_83 = happyMonadReduce 5 26 happyReduction_83 +happyReduction_83 ((HappyAbsSyn106 happy_var_5) `HappyStk` _ `HappyStk` - (HappyAbsSyn44 happy_var_3) `HappyStk` + (HappyAbsSyn47 happy_var_3) `HappyStk` (HappyTerminal (Located happy_var_2 (Token (KW KW_constraint) _))) `HappyStk` _ `HappyStk` happyRest) tk = happyThen ((( at (happy_var_2,happy_var_5) `fmap` mkPropSyn happy_var_3 [] happy_var_5)) - ) (\r -> happyReturn (HappyAbsSyn38 r)) + ) (\r -> happyReturn (HappyAbsSyn41 r)) -happyReduce_80 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_80 = happyMonadReduce 6 23 happyReduction_80 -happyReduction_80 ((HappyAbsSyn103 happy_var_6) `HappyStk` +happyReduce_84 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_84 = happyMonadReduce 6 26 happyReduction_84 +happyReduction_84 ((HappyAbsSyn106 happy_var_6) `HappyStk` _ `HappyStk` - (HappyAbsSyn100 happy_var_4) `HappyStk` - (HappyAbsSyn44 happy_var_3) `HappyStk` + (HappyAbsSyn103 happy_var_4) `HappyStk` + (HappyAbsSyn47 happy_var_3) `HappyStk` (HappyTerminal (Located happy_var_2 (Token (KW KW_constraint) _))) `HappyStk` _ `HappyStk` happyRest) tk = happyThen ((( at (happy_var_2,happy_var_6) `fmap` mkPropSyn happy_var_3 (reverse happy_var_4) happy_var_6)) - ) (\r -> happyReturn (HappyAbsSyn38 r)) + ) (\r -> happyReturn (HappyAbsSyn41 r)) -happyReduce_81 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_81 = happyMonadReduce 7 23 happyReduction_81 -happyReduction_81 ((HappyAbsSyn103 happy_var_7) `HappyStk` +happyReduce_85 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_85 = happyMonadReduce 7 26 happyReduction_85 +happyReduction_85 ((HappyAbsSyn106 happy_var_7) `HappyStk` _ `HappyStk` - (HappyAbsSyn99 happy_var_5) `HappyStk` - (HappyAbsSyn44 happy_var_4) `HappyStk` - (HappyAbsSyn99 happy_var_3) `HappyStk` + (HappyAbsSyn102 happy_var_5) `HappyStk` + (HappyAbsSyn47 happy_var_4) `HappyStk` + (HappyAbsSyn102 happy_var_3) `HappyStk` (HappyTerminal (Located happy_var_2 (Token (KW KW_constraint) _))) `HappyStk` _ `HappyStk` happyRest) tk = happyThen ((( at (happy_var_2,happy_var_7) `fmap` mkPropSyn happy_var_4 [happy_var_3, happy_var_5] happy_var_7)) - ) (\r -> happyReturn (HappyAbsSyn38 r)) + ) (\r -> happyReturn (HappyAbsSyn41 r)) -happyReduce_82 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_82 = happyMonadReduce 3 23 happyReduction_82 -happyReduction_82 ((HappyAbsSyn58 happy_var_3) `HappyStk` +happyReduce_86 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_86 = happyMonadReduce 3 26 happyReduction_86 +happyReduction_86 ((HappyAbsSyn61 happy_var_3) `HappyStk` (HappyTerminal (happy_var_2@(Located _ (Token (Num {}) _)))) `HappyStk` _ `HappyStk` happyRest) tk = happyThen ((( mkFixity LeftAssoc happy_var_2 (reverse happy_var_3))) - ) (\r -> happyReturn (HappyAbsSyn38 r)) + ) (\r -> happyReturn (HappyAbsSyn41 r)) -happyReduce_83 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_83 = happyMonadReduce 3 23 happyReduction_83 -happyReduction_83 ((HappyAbsSyn58 happy_var_3) `HappyStk` +happyReduce_87 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_87 = happyMonadReduce 3 26 happyReduction_87 +happyReduction_87 ((HappyAbsSyn61 happy_var_3) `HappyStk` (HappyTerminal (happy_var_2@(Located _ (Token (Num {}) _)))) `HappyStk` _ `HappyStk` happyRest) tk = happyThen ((( mkFixity RightAssoc happy_var_2 (reverse happy_var_3))) - ) (\r -> happyReturn (HappyAbsSyn38 r)) + ) (\r -> happyReturn (HappyAbsSyn41 r)) -happyReduce_84 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_84 = happyMonadReduce 3 23 happyReduction_84 -happyReduction_84 ((HappyAbsSyn58 happy_var_3) `HappyStk` +happyReduce_88 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_88 = happyMonadReduce 3 26 happyReduction_88 +happyReduction_88 ((HappyAbsSyn61 happy_var_3) `HappyStk` (HappyTerminal (happy_var_2@(Located _ (Token (Num {}) _)))) `HappyStk` _ `HappyStk` happyRest) tk = happyThen ((( mkFixity NonAssoc happy_var_2 (reverse happy_var_3))) - ) (\r -> happyReturn (HappyAbsSyn38 r)) + ) (\r -> happyReturn (HappyAbsSyn41 r)) -happyReduce_85 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_85 = happyMonadReduce 1 23 happyReduction_85 -happyReduction_85 (_ `HappyStk` +happyReduce_89 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_89 = happyMonadReduce 1 26 happyReduction_89 +happyReduction_89 (_ `HappyStk` happyRest) tk = happyThen ((( expected "a declaration")) - ) (\r -> happyReturn (HappyAbsSyn38 r)) + ) (\r -> happyReturn (HappyAbsSyn41 r)) -happyReduce_86 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_86 = happySpecReduce_1 24 happyReduction_86 -happyReduction_86 (HappyAbsSyn38 happy_var_1) - = HappyAbsSyn39 +happyReduce_90 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_90 = happySpecReduce_1 27 happyReduction_90 +happyReduction_90 (HappyAbsSyn41 happy_var_1) + = HappyAbsSyn42 ([happy_var_1] ) -happyReduction_86 _ = notHappyAtAll +happyReduction_90 _ = notHappyAtAll -happyReduce_87 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_87 = happySpecReduce_2 24 happyReduction_87 -happyReduction_87 _ - (HappyAbsSyn38 happy_var_1) - = HappyAbsSyn39 +happyReduce_91 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_91 = happySpecReduce_2 27 happyReduction_91 +happyReduction_91 _ + (HappyAbsSyn41 happy_var_1) + = HappyAbsSyn42 ([happy_var_1] ) -happyReduction_87 _ _ = notHappyAtAll +happyReduction_91 _ _ = notHappyAtAll -happyReduce_88 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_88 = happySpecReduce_3 24 happyReduction_88 -happyReduction_88 (HappyAbsSyn39 happy_var_3) +happyReduce_92 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_92 = happySpecReduce_3 27 happyReduction_92 +happyReduction_92 (HappyAbsSyn42 happy_var_3) _ - (HappyAbsSyn38 happy_var_1) - = HappyAbsSyn39 + (HappyAbsSyn41 happy_var_1) + = HappyAbsSyn42 ((happy_var_1:happy_var_3) ) -happyReduction_88 _ _ _ = notHappyAtAll +happyReduction_92 _ _ _ = notHappyAtAll -happyReduce_89 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_89 = happyReduce 4 25 happyReduction_89 -happyReduction_89 ((HappyAbsSyn59 happy_var_4) `HappyStk` +happyReduce_93 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_93 = happyReduce 4 28 happyReduction_93 +happyReduction_93 ((HappyAbsSyn62 happy_var_4) `HappyStk` _ `HappyStk` - (HappyAbsSyn88 happy_var_2) `HappyStk` + (HappyAbsSyn91 happy_var_2) `HappyStk` _ `HappyStk` happyRest) - = HappyAbsSyn38 + = HappyAbsSyn41 (at (happy_var_2,happy_var_4) $ DPatBind happy_var_2 happy_var_4 ) `HappyStk` happyRest -happyReduce_90 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_90 = happyReduce 5 25 happyReduction_90 -happyReduction_90 ((HappyAbsSyn59 happy_var_5) `HappyStk` +happyReduce_94 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_94 = happyReduce 5 28 happyReduction_94 +happyReduction_94 ((HappyAbsSyn62 happy_var_5) `HappyStk` _ `HappyStk` - (HappyAbsSyn48 happy_var_3) `HappyStk` - (HappyAbsSyn44 happy_var_2) `HappyStk` + (HappyAbsSyn51 happy_var_3) `HappyStk` + (HappyAbsSyn47 happy_var_2) `HappyStk` _ `HappyStk` happyRest) - = HappyAbsSyn38 + = HappyAbsSyn41 (at (happy_var_2,happy_var_5) $ mkIndexedDecl happy_var_2 happy_var_3 happy_var_5 ) `HappyStk` happyRest -happyReduce_91 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_91 = happyReduce 6 25 happyReduction_91 -happyReduction_91 ((HappyAbsSyn59 happy_var_6) `HappyStk` +happyReduce_95 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_95 = happyReduce 6 28 happyReduction_95 +happyReduction_95 ((HappyAbsSyn62 happy_var_6) `HappyStk` _ `HappyStk` _ `HappyStk` - (HappyAbsSyn44 happy_var_3) `HappyStk` + (HappyAbsSyn47 happy_var_3) `HappyStk` (HappyTerminal (Located happy_var_2 (Token (Sym ParenL ) _))) `HappyStk` _ `HappyStk` happyRest) - = HappyAbsSyn38 + = HappyAbsSyn41 (at (happy_var_2,happy_var_6) $ DPatBind (PVar happy_var_3) happy_var_6 ) `HappyStk` happyRest -happyReduce_92 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_92 = happyReduce 6 25 happyReduction_92 -happyReduction_92 ((HappyAbsSyn59 happy_var_6) `HappyStk` +happyReduce_96 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_96 = happyReduce 6 28 happyReduction_96 +happyReduction_96 ((HappyAbsSyn62 happy_var_6) `HappyStk` _ `HappyStk` - (HappyAbsSyn88 happy_var_4) `HappyStk` - (HappyAbsSyn44 happy_var_3) `HappyStk` - (HappyAbsSyn88 happy_var_2) `HappyStk` + (HappyAbsSyn91 happy_var_4) `HappyStk` + (HappyAbsSyn47 happy_var_3) `HappyStk` + (HappyAbsSyn91 happy_var_2) `HappyStk` _ `HappyStk` happyRest) - = HappyAbsSyn38 + = HappyAbsSyn41 (at (happy_var_2,happy_var_6) $ DBind $ Bind { bName = happy_var_3 , bParams = [happy_var_2,happy_var_4] @@ -1291,2109 +1333,2109 @@ happyReduction_92 ((HappyAbsSyn59 happy_var_6) `HappyStk` } ) `HappyStk` happyRest -happyReduce_93 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_93 = happyReduce 4 25 happyReduction_93 -happyReduction_93 ((HappyAbsSyn94 happy_var_4) `HappyStk` +happyReduce_97 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_97 = happyReduce 4 28 happyReduction_97 +happyReduction_97 ((HappyAbsSyn97 happy_var_4) `HappyStk` _ `HappyStk` - (HappyAbsSyn43 happy_var_2) `HappyStk` + (HappyAbsSyn46 happy_var_2) `HappyStk` _ `HappyStk` happyRest) - = HappyAbsSyn38 + = HappyAbsSyn41 (at (head happy_var_2,happy_var_4) $ DSignature (reverse happy_var_2) happy_var_4 ) `HappyStk` happyRest -happyReduce_94 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_94 = happyMonadReduce 4 25 happyReduction_94 -happyReduction_94 ((HappyAbsSyn103 happy_var_4) `HappyStk` +happyReduce_98 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_98 = happyMonadReduce 4 28 happyReduction_98 +happyReduction_98 ((HappyAbsSyn106 happy_var_4) `HappyStk` _ `HappyStk` - (HappyAbsSyn44 happy_var_2) `HappyStk` + (HappyAbsSyn47 happy_var_2) `HappyStk` (HappyTerminal (Located happy_var_1 (Token (KW KW_type ) _))) `HappyStk` happyRest) tk = happyThen ((( at (happy_var_1,happy_var_4) `fmap` mkTySyn happy_var_2 [] happy_var_4)) - ) (\r -> happyReturn (HappyAbsSyn38 r)) + ) (\r -> happyReturn (HappyAbsSyn41 r)) -happyReduce_95 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_95 = happyMonadReduce 5 25 happyReduction_95 -happyReduction_95 ((HappyAbsSyn103 happy_var_5) `HappyStk` +happyReduce_99 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_99 = happyMonadReduce 5 28 happyReduction_99 +happyReduction_99 ((HappyAbsSyn106 happy_var_5) `HappyStk` _ `HappyStk` - (HappyAbsSyn100 happy_var_3) `HappyStk` - (HappyAbsSyn44 happy_var_2) `HappyStk` + (HappyAbsSyn103 happy_var_3) `HappyStk` + (HappyAbsSyn47 happy_var_2) `HappyStk` (HappyTerminal (Located happy_var_1 (Token (KW KW_type ) _))) `HappyStk` happyRest) tk = happyThen ((( at (happy_var_1,happy_var_5) `fmap` mkTySyn happy_var_2 (reverse happy_var_3) happy_var_5)) - ) (\r -> happyReturn (HappyAbsSyn38 r)) + ) (\r -> happyReturn (HappyAbsSyn41 r)) -happyReduce_96 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_96 = happyMonadReduce 6 25 happyReduction_96 -happyReduction_96 ((HappyAbsSyn103 happy_var_6) `HappyStk` +happyReduce_100 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_100 = happyMonadReduce 6 28 happyReduction_100 +happyReduction_100 ((HappyAbsSyn106 happy_var_6) `HappyStk` _ `HappyStk` - (HappyAbsSyn99 happy_var_4) `HappyStk` - (HappyAbsSyn44 happy_var_3) `HappyStk` - (HappyAbsSyn99 happy_var_2) `HappyStk` + (HappyAbsSyn102 happy_var_4) `HappyStk` + (HappyAbsSyn47 happy_var_3) `HappyStk` + (HappyAbsSyn102 happy_var_2) `HappyStk` (HappyTerminal (Located happy_var_1 (Token (KW KW_type ) _))) `HappyStk` happyRest) tk = happyThen ((( at (happy_var_1,happy_var_6) `fmap` mkTySyn happy_var_3 [happy_var_2, happy_var_4] happy_var_6)) - ) (\r -> happyReturn (HappyAbsSyn38 r)) + ) (\r -> happyReturn (HappyAbsSyn41 r)) -happyReduce_97 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_97 = happyMonadReduce 5 25 happyReduction_97 -happyReduction_97 ((HappyAbsSyn103 happy_var_5) `HappyStk` +happyReduce_101 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_101 = happyMonadReduce 5 28 happyReduction_101 +happyReduction_101 ((HappyAbsSyn106 happy_var_5) `HappyStk` _ `HappyStk` - (HappyAbsSyn44 happy_var_3) `HappyStk` + (HappyAbsSyn47 happy_var_3) `HappyStk` (HappyTerminal (Located happy_var_2 (Token (KW KW_constraint) _))) `HappyStk` _ `HappyStk` happyRest) tk = happyThen ((( at (happy_var_2,happy_var_5) `fmap` mkPropSyn happy_var_3 [] happy_var_5)) - ) (\r -> happyReturn (HappyAbsSyn38 r)) + ) (\r -> happyReturn (HappyAbsSyn41 r)) -happyReduce_98 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_98 = happyMonadReduce 6 25 happyReduction_98 -happyReduction_98 ((HappyAbsSyn103 happy_var_6) `HappyStk` +happyReduce_102 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_102 = happyMonadReduce 6 28 happyReduction_102 +happyReduction_102 ((HappyAbsSyn106 happy_var_6) `HappyStk` _ `HappyStk` - (HappyAbsSyn100 happy_var_4) `HappyStk` - (HappyAbsSyn44 happy_var_3) `HappyStk` + (HappyAbsSyn103 happy_var_4) `HappyStk` + (HappyAbsSyn47 happy_var_3) `HappyStk` (HappyTerminal (Located happy_var_2 (Token (KW KW_constraint) _))) `HappyStk` _ `HappyStk` happyRest) tk = happyThen ((( at (happy_var_2,happy_var_6) `fmap` mkPropSyn happy_var_3 (reverse happy_var_4) happy_var_6)) - ) (\r -> happyReturn (HappyAbsSyn38 r)) + ) (\r -> happyReturn (HappyAbsSyn41 r)) -happyReduce_99 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_99 = happyMonadReduce 7 25 happyReduction_99 -happyReduction_99 ((HappyAbsSyn103 happy_var_7) `HappyStk` +happyReduce_103 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_103 = happyMonadReduce 7 28 happyReduction_103 +happyReduction_103 ((HappyAbsSyn106 happy_var_7) `HappyStk` _ `HappyStk` - (HappyAbsSyn99 happy_var_5) `HappyStk` - (HappyAbsSyn44 happy_var_4) `HappyStk` - (HappyAbsSyn99 happy_var_3) `HappyStk` + (HappyAbsSyn102 happy_var_5) `HappyStk` + (HappyAbsSyn47 happy_var_4) `HappyStk` + (HappyAbsSyn102 happy_var_3) `HappyStk` (HappyTerminal (Located happy_var_2 (Token (KW KW_constraint) _))) `HappyStk` _ `HappyStk` happyRest) tk = happyThen ((( at (happy_var_2,happy_var_7) `fmap` mkPropSyn happy_var_4 [happy_var_3, happy_var_5] happy_var_7)) - ) (\r -> happyReturn (HappyAbsSyn38 r)) + ) (\r -> happyReturn (HappyAbsSyn41 r)) -happyReduce_100 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_100 = happyMonadReduce 3 25 happyReduction_100 -happyReduction_100 ((HappyAbsSyn58 happy_var_3) `HappyStk` +happyReduce_104 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_104 = happyMonadReduce 3 28 happyReduction_104 +happyReduction_104 ((HappyAbsSyn61 happy_var_3) `HappyStk` (HappyTerminal (happy_var_2@(Located _ (Token (Num {}) _)))) `HappyStk` _ `HappyStk` happyRest) tk = happyThen ((( mkFixity LeftAssoc happy_var_2 (reverse happy_var_3))) - ) (\r -> happyReturn (HappyAbsSyn38 r)) + ) (\r -> happyReturn (HappyAbsSyn41 r)) -happyReduce_101 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_101 = happyMonadReduce 3 25 happyReduction_101 -happyReduction_101 ((HappyAbsSyn58 happy_var_3) `HappyStk` +happyReduce_105 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_105 = happyMonadReduce 3 28 happyReduction_105 +happyReduction_105 ((HappyAbsSyn61 happy_var_3) `HappyStk` (HappyTerminal (happy_var_2@(Located _ (Token (Num {}) _)))) `HappyStk` _ `HappyStk` happyRest) tk = happyThen ((( mkFixity RightAssoc happy_var_2 (reverse happy_var_3))) - ) (\r -> happyReturn (HappyAbsSyn38 r)) + ) (\r -> happyReturn (HappyAbsSyn41 r)) -happyReduce_102 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_102 = happyMonadReduce 3 25 happyReduction_102 -happyReduction_102 ((HappyAbsSyn58 happy_var_3) `HappyStk` +happyReduce_106 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_106 = happyMonadReduce 3 28 happyReduction_106 +happyReduction_106 ((HappyAbsSyn61 happy_var_3) `HappyStk` (HappyTerminal (happy_var_2@(Located _ (Token (Num {}) _)))) `HappyStk` _ `HappyStk` happyRest) tk = happyThen ((( mkFixity NonAssoc happy_var_2 (reverse happy_var_3))) - ) (\r -> happyReturn (HappyAbsSyn38 r)) + ) (\r -> happyReturn (HappyAbsSyn41 r)) -happyReduce_103 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_103 = happyReduce 4 26 happyReduction_103 -happyReduction_103 ((HappyAbsSyn42 happy_var_4) `HappyStk` +happyReduce_107 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_107 = happyReduce 4 29 happyReduction_107 +happyReduction_107 ((HappyAbsSyn45 happy_var_4) `HappyStk` _ `HappyStk` - (HappyAbsSyn116 happy_var_2) `HappyStk` + (HappyAbsSyn119 happy_var_2) `HappyStk` _ `HappyStk` happyRest) - = HappyAbsSyn41 + = HappyAbsSyn44 (Newtype happy_var_2 [] (thing happy_var_4) ) `HappyStk` happyRest -happyReduce_104 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_104 = happyReduce 5 26 happyReduction_104 -happyReduction_104 ((HappyAbsSyn42 happy_var_5) `HappyStk` +happyReduce_108 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_108 = happyReduce 5 29 happyReduction_108 +happyReduction_108 ((HappyAbsSyn45 happy_var_5) `HappyStk` _ `HappyStk` - (HappyAbsSyn100 happy_var_3) `HappyStk` - (HappyAbsSyn116 happy_var_2) `HappyStk` + (HappyAbsSyn103 happy_var_3) `HappyStk` + (HappyAbsSyn119 happy_var_2) `HappyStk` _ `HappyStk` happyRest) - = HappyAbsSyn41 + = HappyAbsSyn44 (Newtype happy_var_2 (reverse happy_var_3) (thing happy_var_5) ) `HappyStk` happyRest -happyReduce_105 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_105 = happyMonadReduce 2 27 happyReduction_105 -happyReduction_105 ((HappyTerminal (Located happy_var_2 (Token (Sym CurlyR ) _))) `HappyStk` +happyReduce_109 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_109 = happyMonadReduce 2 30 happyReduction_109 +happyReduction_109 ((HappyTerminal (Located happy_var_2 (Token (Sym CurlyR ) _))) `HappyStk` (HappyTerminal (Located happy_var_1 (Token (Sym CurlyL ) _))) `HappyStk` happyRest) tk = happyThen ((( mkRecord (rComb happy_var_1 happy_var_2) (Located emptyRange) [])) - ) (\r -> happyReturn (HappyAbsSyn42 r)) + ) (\r -> happyReturn (HappyAbsSyn45 r)) -happyReduce_106 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_106 = happyMonadReduce 3 27 happyReduction_106 -happyReduction_106 ((HappyTerminal (Located happy_var_3 (Token (Sym CurlyR ) _))) `HappyStk` - (HappyAbsSyn111 happy_var_2) `HappyStk` +happyReduce_110 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_110 = happyMonadReduce 3 30 happyReduction_110 +happyReduction_110 ((HappyTerminal (Located happy_var_3 (Token (Sym CurlyR ) _))) `HappyStk` + (HappyAbsSyn114 happy_var_2) `HappyStk` (HappyTerminal (Located happy_var_1 (Token (Sym CurlyL ) _))) `HappyStk` happyRest) tk = happyThen ((( mkRecord (rComb happy_var_1 happy_var_3) (Located emptyRange) happy_var_2)) - ) (\r -> happyReturn (HappyAbsSyn42 r)) + ) (\r -> happyReturn (HappyAbsSyn45 r)) -happyReduce_107 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_107 = happySpecReduce_1 28 happyReduction_107 -happyReduction_107 (HappyAbsSyn44 happy_var_1) - = HappyAbsSyn43 +happyReduce_111 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_111 = happySpecReduce_1 31 happyReduction_111 +happyReduction_111 (HappyAbsSyn47 happy_var_1) + = HappyAbsSyn46 ([ happy_var_1] ) -happyReduction_107 _ = notHappyAtAll +happyReduction_111 _ = notHappyAtAll -happyReduce_108 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_108 = happySpecReduce_3 28 happyReduction_108 -happyReduction_108 (HappyAbsSyn44 happy_var_3) +happyReduce_112 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_112 = happySpecReduce_3 31 happyReduction_112 +happyReduction_112 (HappyAbsSyn47 happy_var_3) _ - (HappyAbsSyn43 happy_var_1) - = HappyAbsSyn43 + (HappyAbsSyn46 happy_var_1) + = HappyAbsSyn46 (happy_var_3 : happy_var_1 ) -happyReduction_108 _ _ _ = notHappyAtAll +happyReduction_112 _ _ _ = notHappyAtAll -happyReduce_109 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_109 = happySpecReduce_1 29 happyReduction_109 -happyReduction_109 (HappyAbsSyn44 happy_var_1) - = HappyAbsSyn44 +happyReduce_113 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_113 = happySpecReduce_1 32 happyReduction_113 +happyReduction_113 (HappyAbsSyn47 happy_var_1) + = HappyAbsSyn47 (happy_var_1 ) -happyReduction_109 _ = notHappyAtAll - -happyReduce_110 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_110 = happySpecReduce_3 29 happyReduction_110 -happyReduction_110 _ - (HappyAbsSyn44 happy_var_2) - _ - = HappyAbsSyn44 - (happy_var_2 - ) -happyReduction_110 _ _ _ = notHappyAtAll - -happyReduce_111 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_111 = happySpecReduce_1 30 happyReduction_111 -happyReduction_111 (HappyAbsSyn88 happy_var_1) - = HappyAbsSyn45 - ([happy_var_1] - ) -happyReduction_111 _ = notHappyAtAll - -happyReduce_112 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_112 = happySpecReduce_2 30 happyReduction_112 -happyReduction_112 (HappyAbsSyn88 happy_var_2) - (HappyAbsSyn45 happy_var_1) - = HappyAbsSyn45 - (happy_var_2 : happy_var_1 - ) -happyReduction_112 _ _ = notHappyAtAll +happyReduction_113 _ = notHappyAtAll -happyReduce_113 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_113 = happySpecReduce_2 31 happyReduction_113 -happyReduction_113 (HappyAbsSyn45 happy_var_2) +happyReduce_114 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_114 = happySpecReduce_3 32 happyReduction_114 +happyReduction_114 _ + (HappyAbsSyn47 happy_var_2) _ - = HappyAbsSyn45 + = HappyAbsSyn47 (happy_var_2 ) -happyReduction_113 _ _ = notHappyAtAll - -happyReduce_114 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_114 = happySpecReduce_0 31 happyReduction_114 -happyReduction_114 = HappyAbsSyn45 - ([] - ) +happyReduction_114 _ _ _ = notHappyAtAll happyReduce_115 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_115 = happySpecReduce_1 32 happyReduction_115 -happyReduction_115 (HappyAbsSyn88 happy_var_1) - = HappyAbsSyn45 +happyReduce_115 = happySpecReduce_1 33 happyReduction_115 +happyReduction_115 (HappyAbsSyn91 happy_var_1) + = HappyAbsSyn48 ([happy_var_1] ) happyReduction_115 _ = notHappyAtAll happyReduce_116 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_116 = happySpecReduce_3 32 happyReduction_116 -happyReduction_116 (HappyAbsSyn88 happy_var_3) - _ - (HappyAbsSyn45 happy_var_1) - = HappyAbsSyn45 - (happy_var_3 : happy_var_1 +happyReduce_116 = happySpecReduce_2 33 happyReduction_116 +happyReduction_116 (HappyAbsSyn91 happy_var_2) + (HappyAbsSyn48 happy_var_1) + = HappyAbsSyn48 + (happy_var_2 : happy_var_1 ) -happyReduction_116 _ _ _ = notHappyAtAll +happyReduction_116 _ _ = notHappyAtAll happyReduce_117 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_117 = happySpecReduce_2 33 happyReduction_117 -happyReduction_117 (HappyAbsSyn45 happy_var_2) - (HappyAbsSyn45 happy_var_1) +happyReduce_117 = happySpecReduce_2 34 happyReduction_117 +happyReduction_117 (HappyAbsSyn48 happy_var_2) + _ = HappyAbsSyn48 - ((happy_var_1, happy_var_2) + (happy_var_2 ) happyReduction_117 _ _ = notHappyAtAll happyReduce_118 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_118 = happySpecReduce_2 33 happyReduction_118 -happyReduction_118 (HappyAbsSyn45 happy_var_2) - _ - = HappyAbsSyn48 - (([], happy_var_2) +happyReduce_118 = happySpecReduce_0 34 happyReduction_118 +happyReduction_118 = HappyAbsSyn48 + ([] ) -happyReduction_118 _ _ = notHappyAtAll happyReduce_119 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_119 = happySpecReduce_0 34 happyReduction_119 -happyReduction_119 = HappyAbsSyn48 - (([],[]) +happyReduce_119 = happySpecReduce_1 35 happyReduction_119 +happyReduction_119 (HappyAbsSyn91 happy_var_1) + = HappyAbsSyn48 + ([happy_var_1] ) +happyReduction_119 _ = notHappyAtAll happyReduce_120 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_120 = happySpecReduce_1 34 happyReduction_120 -happyReduction_120 (HappyAbsSyn48 happy_var_1) +happyReduce_120 = happySpecReduce_3 35 happyReduction_120 +happyReduction_120 (HappyAbsSyn91 happy_var_3) + _ + (HappyAbsSyn48 happy_var_1) = HappyAbsSyn48 - (happy_var_1 + (happy_var_3 : happy_var_1 ) -happyReduction_120 _ = notHappyAtAll +happyReduction_120 _ _ _ = notHappyAtAll happyReduce_121 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_121 = happySpecReduce_2 35 happyReduction_121 -happyReduction_121 _ - (HappyAbsSyn38 happy_var_1) - = HappyAbsSyn39 - ([happy_var_1] +happyReduce_121 = happySpecReduce_2 36 happyReduction_121 +happyReduction_121 (HappyAbsSyn48 happy_var_2) + (HappyAbsSyn48 happy_var_1) + = HappyAbsSyn51 + ((happy_var_1, happy_var_2) ) happyReduction_121 _ _ = notHappyAtAll happyReduce_122 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_122 = happySpecReduce_3 35 happyReduction_122 -happyReduction_122 _ - (HappyAbsSyn38 happy_var_2) - (HappyAbsSyn39 happy_var_1) - = HappyAbsSyn39 - (happy_var_2 : happy_var_1 +happyReduce_122 = happySpecReduce_2 36 happyReduction_122 +happyReduction_122 (HappyAbsSyn48 happy_var_2) + _ + = HappyAbsSyn51 + (([], happy_var_2) ) -happyReduction_122 _ _ _ = notHappyAtAll +happyReduction_122 _ _ = notHappyAtAll happyReduce_123 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_123 = happySpecReduce_1 36 happyReduction_123 -happyReduction_123 (HappyAbsSyn38 happy_var_1) - = HappyAbsSyn39 - ([happy_var_1] +happyReduce_123 = happySpecReduce_0 37 happyReduction_123 +happyReduction_123 = HappyAbsSyn51 + (([],[]) ) -happyReduction_123 _ = notHappyAtAll happyReduce_124 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_124 = happySpecReduce_3 36 happyReduction_124 -happyReduction_124 (HappyAbsSyn38 happy_var_3) - _ - (HappyAbsSyn39 happy_var_1) - = HappyAbsSyn39 - (happy_var_3 : happy_var_1 +happyReduce_124 = happySpecReduce_1 37 happyReduction_124 +happyReduction_124 (HappyAbsSyn51 happy_var_1) + = HappyAbsSyn51 + (happy_var_1 ) -happyReduction_124 _ _ _ = notHappyAtAll +happyReduction_124 _ = notHappyAtAll happyReduce_125 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_125 = happySpecReduce_3 36 happyReduction_125 -happyReduction_125 (HappyAbsSyn38 happy_var_3) - _ - (HappyAbsSyn39 happy_var_1) - = HappyAbsSyn39 - (happy_var_3 : happy_var_1 +happyReduce_125 = happySpecReduce_2 38 happyReduction_125 +happyReduction_125 _ + (HappyAbsSyn41 happy_var_1) + = HappyAbsSyn42 + ([happy_var_1] ) -happyReduction_125 _ _ _ = notHappyAtAll +happyReduction_125 _ _ = notHappyAtAll happyReduce_126 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_126 = happySpecReduce_3 37 happyReduction_126 +happyReduce_126 = happySpecReduce_3 38 happyReduction_126 happyReduction_126 _ - (HappyAbsSyn39 happy_var_2) - _ - = HappyAbsSyn39 - (happy_var_2 + (HappyAbsSyn41 happy_var_2) + (HappyAbsSyn42 happy_var_1) + = HappyAbsSyn42 + (happy_var_2 : happy_var_1 ) happyReduction_126 _ _ _ = notHappyAtAll happyReduce_127 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_127 = happySpecReduce_2 37 happyReduction_127 -happyReduction_127 _ - _ - = HappyAbsSyn39 - ([] +happyReduce_127 = happySpecReduce_1 39 happyReduction_127 +happyReduction_127 (HappyAbsSyn41 happy_var_1) + = HappyAbsSyn42 + ([happy_var_1] ) +happyReduction_127 _ = notHappyAtAll happyReduce_128 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_128 = happySpecReduce_1 38 happyReduction_128 -happyReduction_128 (HappyAbsSyn59 happy_var_1) - = HappyAbsSyn53 - (ExprInput happy_var_1 +happyReduce_128 = happySpecReduce_3 39 happyReduction_128 +happyReduction_128 (HappyAbsSyn41 happy_var_3) + _ + (HappyAbsSyn42 happy_var_1) + = HappyAbsSyn42 + (happy_var_3 : happy_var_1 ) -happyReduction_128 _ = notHappyAtAll +happyReduction_128 _ _ _ = notHappyAtAll happyReduce_129 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_129 = happySpecReduce_1 38 happyReduction_129 -happyReduction_129 (HappyAbsSyn39 happy_var_1) - = HappyAbsSyn53 - (LetInput happy_var_1 +happyReduce_129 = happySpecReduce_3 39 happyReduction_129 +happyReduction_129 (HappyAbsSyn41 happy_var_3) + _ + (HappyAbsSyn42 happy_var_1) + = HappyAbsSyn42 + (happy_var_3 : happy_var_1 ) -happyReduction_129 _ = notHappyAtAll +happyReduction_129 _ _ _ = notHappyAtAll happyReduce_130 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_130 = happySpecReduce_0 38 happyReduction_130 -happyReduction_130 = HappyAbsSyn53 - (EmptyInput +happyReduce_130 = happySpecReduce_3 40 happyReduction_130 +happyReduction_130 _ + (HappyAbsSyn42 happy_var_2) + _ + = HappyAbsSyn42 + (happy_var_2 ) +happyReduction_130 _ _ _ = notHappyAtAll happyReduce_131 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_131 = happySpecReduce_1 39 happyReduction_131 -happyReduction_131 (HappyAbsSyn44 happy_var_1) - = HappyAbsSyn44 - (happy_var_1 +happyReduce_131 = happySpecReduce_2 40 happyReduction_131 +happyReduction_131 _ + _ + = HappyAbsSyn42 + ([] ) -happyReduction_131 _ = notHappyAtAll happyReduce_132 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_132 = happySpecReduce_1 39 happyReduction_132 -happyReduction_132 (HappyTerminal (happy_var_1@(Located _ (Token (Op Other{} ) _)))) - = HappyAbsSyn44 - (let Token (Op (Other ns i)) _ = thing happy_var_1 - in mkQual (mkModName ns) (mkInfix i) A.<$ happy_var_1 +happyReduce_132 = happySpecReduce_1 41 happyReduction_132 +happyReduction_132 (HappyAbsSyn62 happy_var_1) + = HappyAbsSyn56 + (ExprInput happy_var_1 ) happyReduction_132 _ = notHappyAtAll happyReduce_133 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_133 = happySpecReduce_1 40 happyReduction_133 -happyReduction_133 (HappyAbsSyn44 happy_var_1) - = HappyAbsSyn44 - (happy_var_1 +happyReduce_133 = happySpecReduce_1 41 happyReduction_133 +happyReduction_133 (HappyAbsSyn42 happy_var_1) + = HappyAbsSyn56 + (LetInput happy_var_1 ) happyReduction_133 _ = notHappyAtAll happyReduce_134 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_134 = happySpecReduce_1 40 happyReduction_134 -happyReduction_134 (HappyTerminal (Located happy_var_1 (Token (Op Hash) _))) - = HappyAbsSyn44 - (Located happy_var_1 $ mkUnqual $ mkInfix "#" +happyReduce_134 = happySpecReduce_0 41 happyReduction_134 +happyReduction_134 = HappyAbsSyn56 + (EmptyInput ) -happyReduction_134 _ = notHappyAtAll happyReduce_135 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_135 = happySpecReduce_1 40 happyReduction_135 -happyReduction_135 (HappyTerminal (Located happy_var_1 (Token (Op At) _))) - = HappyAbsSyn44 - (Located happy_var_1 $ mkUnqual $ mkInfix "@" +happyReduce_135 = happySpecReduce_1 42 happyReduction_135 +happyReduction_135 (HappyAbsSyn47 happy_var_1) + = HappyAbsSyn47 + (happy_var_1 ) happyReduction_135 _ = notHappyAtAll happyReduce_136 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_136 = happySpecReduce_1 41 happyReduction_136 -happyReduction_136 (HappyAbsSyn44 happy_var_1) - = HappyAbsSyn44 - (happy_var_1 +happyReduce_136 = happySpecReduce_1 42 happyReduction_136 +happyReduction_136 (HappyTerminal (happy_var_1@(Located _ (Token (Op Other{} ) _)))) + = HappyAbsSyn47 + (let Token (Op (Other ns i)) _ = thing happy_var_1 + in mkQual (mkModName ns) (mkInfix i) A.<$ happy_var_1 ) happyReduction_136 _ = notHappyAtAll happyReduce_137 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_137 = happySpecReduce_1 41 happyReduction_137 -happyReduction_137 (HappyTerminal (Located happy_var_1 (Token (Op Mul) _))) - = HappyAbsSyn44 - (Located happy_var_1 $ mkUnqual $ mkInfix "*" +happyReduce_137 = happySpecReduce_1 43 happyReduction_137 +happyReduction_137 (HappyAbsSyn47 happy_var_1) + = HappyAbsSyn47 + (happy_var_1 ) happyReduction_137 _ = notHappyAtAll happyReduce_138 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_138 = happySpecReduce_1 41 happyReduction_138 -happyReduction_138 (HappyTerminal (Located happy_var_1 (Token (Op Plus) _))) - = HappyAbsSyn44 - (Located happy_var_1 $ mkUnqual $ mkInfix "+" +happyReduce_138 = happySpecReduce_1 43 happyReduction_138 +happyReduction_138 (HappyTerminal (Located happy_var_1 (Token (Op Hash) _))) + = HappyAbsSyn47 + (Located happy_var_1 $ mkUnqual $ mkInfix "#" ) happyReduction_138 _ = notHappyAtAll happyReduce_139 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_139 = happySpecReduce_1 41 happyReduction_139 -happyReduction_139 (HappyTerminal (Located happy_var_1 (Token (Op Minus) _))) - = HappyAbsSyn44 - (Located happy_var_1 $ mkUnqual $ mkInfix "-" +happyReduce_139 = happySpecReduce_1 43 happyReduction_139 +happyReduction_139 (HappyTerminal (Located happy_var_1 (Token (Op At) _))) + = HappyAbsSyn47 + (Located happy_var_1 $ mkUnqual $ mkInfix "@" ) happyReduction_139 _ = notHappyAtAll happyReduce_140 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_140 = happySpecReduce_1 41 happyReduction_140 -happyReduction_140 (HappyTerminal (Located happy_var_1 (Token (Op Complement) _))) - = HappyAbsSyn44 - (Located happy_var_1 $ mkUnqual $ mkInfix "~" +happyReduce_140 = happySpecReduce_1 44 happyReduction_140 +happyReduction_140 (HappyAbsSyn47 happy_var_1) + = HappyAbsSyn47 + (happy_var_1 ) happyReduction_140 _ = notHappyAtAll happyReduce_141 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_141 = happySpecReduce_1 41 happyReduction_141 -happyReduction_141 (HappyTerminal (Located happy_var_1 (Token (Op Exp) _))) - = HappyAbsSyn44 - (Located happy_var_1 $ mkUnqual $ mkInfix "^^" +happyReduce_141 = happySpecReduce_1 44 happyReduction_141 +happyReduction_141 (HappyTerminal (Located happy_var_1 (Token (Op Mul) _))) + = HappyAbsSyn47 + (Located happy_var_1 $ mkUnqual $ mkInfix "*" ) happyReduction_141 _ = notHappyAtAll happyReduce_142 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_142 = happySpecReduce_1 41 happyReduction_142 -happyReduction_142 (HappyTerminal (Located happy_var_1 (Token (Sym Lt ) _))) - = HappyAbsSyn44 - (Located happy_var_1 $ mkUnqual $ mkInfix "<" +happyReduce_142 = happySpecReduce_1 44 happyReduction_142 +happyReduction_142 (HappyTerminal (Located happy_var_1 (Token (Op Plus) _))) + = HappyAbsSyn47 + (Located happy_var_1 $ mkUnqual $ mkInfix "+" ) happyReduction_142 _ = notHappyAtAll happyReduce_143 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_143 = happySpecReduce_1 41 happyReduction_143 -happyReduction_143 (HappyTerminal (Located happy_var_1 (Token (Sym Gt ) _))) - = HappyAbsSyn44 - (Located happy_var_1 $ mkUnqual $ mkInfix ">" +happyReduce_143 = happySpecReduce_1 44 happyReduction_143 +happyReduction_143 (HappyTerminal (Located happy_var_1 (Token (Op Minus) _))) + = HappyAbsSyn47 + (Located happy_var_1 $ mkUnqual $ mkInfix "-" ) happyReduction_143 _ = notHappyAtAll happyReduce_144 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_144 = happySpecReduce_1 42 happyReduction_144 -happyReduction_144 (HappyTerminal (happy_var_1@(Located _ (Token (Op (Other [] _)) _)))) - = HappyAbsSyn44 - (let Token (Op (Other [] str)) _ = thing happy_var_1 - in mkUnqual (mkInfix str) A.<$ happy_var_1 +happyReduce_144 = happySpecReduce_1 44 happyReduction_144 +happyReduction_144 (HappyTerminal (Located happy_var_1 (Token (Op Complement) _))) + = HappyAbsSyn47 + (Located happy_var_1 $ mkUnqual $ mkInfix "~" ) happyReduction_144 _ = notHappyAtAll happyReduce_145 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_145 = happySpecReduce_1 43 happyReduction_145 -happyReduction_145 (HappyAbsSyn44 happy_var_1) - = HappyAbsSyn58 - ([happy_var_1] +happyReduce_145 = happySpecReduce_1 44 happyReduction_145 +happyReduction_145 (HappyTerminal (Located happy_var_1 (Token (Op Exp) _))) + = HappyAbsSyn47 + (Located happy_var_1 $ mkUnqual $ mkInfix "^^" ) happyReduction_145 _ = notHappyAtAll happyReduce_146 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_146 = happySpecReduce_3 43 happyReduction_146 -happyReduction_146 (HappyAbsSyn44 happy_var_3) - _ - (HappyAbsSyn58 happy_var_1) - = HappyAbsSyn58 - (happy_var_3 : happy_var_1 +happyReduce_146 = happySpecReduce_1 44 happyReduction_146 +happyReduction_146 (HappyTerminal (Located happy_var_1 (Token (Sym Lt ) _))) + = HappyAbsSyn47 + (Located happy_var_1 $ mkUnqual $ mkInfix "<" ) -happyReduction_146 _ _ _ = notHappyAtAll +happyReduction_146 _ = notHappyAtAll happyReduce_147 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) happyReduce_147 = happySpecReduce_1 44 happyReduction_147 -happyReduction_147 (HappyAbsSyn59 happy_var_1) - = HappyAbsSyn59 - (happy_var_1 +happyReduction_147 (HappyTerminal (Located happy_var_1 (Token (Sym Gt ) _))) + = HappyAbsSyn47 + (Located happy_var_1 $ mkUnqual $ mkInfix ">" ) happyReduction_147 _ = notHappyAtAll happyReduce_148 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_148 = happySpecReduce_3 44 happyReduction_148 -happyReduction_148 (HappyAbsSyn61 happy_var_3) - _ - (HappyAbsSyn59 happy_var_1) - = HappyAbsSyn59 - (at (happy_var_1,happy_var_3) (EWhere happy_var_1 (thing happy_var_3)) +happyReduce_148 = happySpecReduce_1 45 happyReduction_148 +happyReduction_148 (HappyTerminal (happy_var_1@(Located _ (Token (Op (Other [] _)) _)))) + = HappyAbsSyn47 + (let Token (Op (Other [] str)) _ = thing happy_var_1 + in mkUnqual (mkInfix str) A.<$ happy_var_1 ) -happyReduction_148 _ _ _ = notHappyAtAll +happyReduction_148 _ = notHappyAtAll happyReduce_149 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_149 = happySpecReduce_3 45 happyReduction_149 -happyReduction_149 (HappyAbsSyn59 happy_var_3) - (HappyAbsSyn44 happy_var_2) - (HappyAbsSyn59 happy_var_1) - = HappyAbsSyn59 - (binOp happy_var_1 happy_var_2 happy_var_3 +happyReduce_149 = happySpecReduce_1 46 happyReduction_149 +happyReduction_149 (HappyAbsSyn47 happy_var_1) + = HappyAbsSyn61 + ([happy_var_1] ) -happyReduction_149 _ _ _ = notHappyAtAll +happyReduction_149 _ = notHappyAtAll happyReduce_150 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_150 = happySpecReduce_1 45 happyReduction_150 -happyReduction_150 (HappyAbsSyn59 happy_var_1) - = HappyAbsSyn59 - (happy_var_1 +happyReduce_150 = happySpecReduce_3 46 happyReduction_150 +happyReduction_150 (HappyAbsSyn47 happy_var_3) + _ + (HappyAbsSyn61 happy_var_1) + = HappyAbsSyn61 + (happy_var_3 : happy_var_1 ) -happyReduction_150 _ = notHappyAtAll +happyReduction_150 _ _ _ = notHappyAtAll happyReduce_151 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_151 = happySpecReduce_1 45 happyReduction_151 -happyReduction_151 (HappyAbsSyn59 happy_var_1) - = HappyAbsSyn59 +happyReduce_151 = happySpecReduce_1 47 happyReduction_151 +happyReduction_151 (HappyAbsSyn62 happy_var_1) + = HappyAbsSyn62 (happy_var_1 ) happyReduction_151 _ = notHappyAtAll happyReduce_152 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_152 = happySpecReduce_2 46 happyReduction_152 -happyReduction_152 (HappyTerminal (Located happy_var_2 (Token (Sym CurlyR ) _))) - (HappyTerminal (Located happy_var_1 (Token (Sym CurlyL ) _))) - = HappyAbsSyn61 - (Located (rComb happy_var_1 happy_var_2) [] +happyReduce_152 = happySpecReduce_3 47 happyReduction_152 +happyReduction_152 (HappyAbsSyn64 happy_var_3) + _ + (HappyAbsSyn62 happy_var_1) + = HappyAbsSyn62 + (at (happy_var_1,happy_var_3) (EWhere happy_var_1 (thing happy_var_3)) ) -happyReduction_152 _ _ = notHappyAtAll +happyReduction_152 _ _ _ = notHappyAtAll happyReduce_153 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_153 = happySpecReduce_3 46 happyReduction_153 -happyReduction_153 (HappyTerminal (Located happy_var_3 (Token (Sym CurlyR ) _))) - (HappyAbsSyn39 happy_var_2) - (HappyTerminal (Located happy_var_1 (Token (Sym CurlyL ) _))) - = HappyAbsSyn61 - (Located (rComb happy_var_1 happy_var_3) (reverse happy_var_2) +happyReduce_153 = happySpecReduce_3 48 happyReduction_153 +happyReduction_153 (HappyAbsSyn62 happy_var_3) + (HappyAbsSyn47 happy_var_2) + (HappyAbsSyn62 happy_var_1) + = HappyAbsSyn62 + (binOp happy_var_1 happy_var_2 happy_var_3 ) happyReduction_153 _ _ _ = notHappyAtAll happyReduce_154 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_154 = happySpecReduce_2 46 happyReduction_154 -happyReduction_154 (HappyTerminal (Located happy_var_2 (Token (Virt VCurlyR) _))) - (HappyTerminal (Located happy_var_1 (Token (Virt VCurlyL) _))) - = HappyAbsSyn61 - (Located (rComb happy_var_1 happy_var_2) [] +happyReduce_154 = happySpecReduce_1 48 happyReduction_154 +happyReduction_154 (HappyAbsSyn62 happy_var_1) + = HappyAbsSyn62 + (happy_var_1 ) -happyReduction_154 _ _ = notHappyAtAll +happyReduction_154 _ = notHappyAtAll happyReduce_155 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_155 = happySpecReduce_3 46 happyReduction_155 -happyReduction_155 (HappyTerminal (Located happy_var_3 (Token (Virt VCurlyR) _))) - (HappyAbsSyn39 happy_var_2) - (HappyTerminal (Located happy_var_1 (Token (Virt VCurlyL) _))) - = HappyAbsSyn61 - (let l2 = fromMaybe happy_var_3 (getLoc happy_var_2) - in Located (rComb happy_var_1 l2) (reverse happy_var_2) +happyReduce_155 = happySpecReduce_1 48 happyReduction_155 +happyReduction_155 (HappyAbsSyn62 happy_var_1) + = HappyAbsSyn62 + (happy_var_1 ) -happyReduction_155 _ _ _ = notHappyAtAll +happyReduction_155 _ = notHappyAtAll happyReduce_156 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_156 = happySpecReduce_3 47 happyReduction_156 -happyReduction_156 (HappyAbsSyn103 happy_var_3) - _ - (HappyAbsSyn59 happy_var_1) - = HappyAbsSyn59 - (at (happy_var_1,happy_var_3) (ETyped happy_var_1 happy_var_3) +happyReduce_156 = happySpecReduce_2 49 happyReduction_156 +happyReduction_156 (HappyTerminal (Located happy_var_2 (Token (Sym CurlyR ) _))) + (HappyTerminal (Located happy_var_1 (Token (Sym CurlyL ) _))) + = HappyAbsSyn64 + (Located (rComb happy_var_1 happy_var_2) [] ) -happyReduction_156 _ _ _ = notHappyAtAll +happyReduction_156 _ _ = notHappyAtAll happyReduce_157 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_157 = happySpecReduce_3 48 happyReduction_157 -happyReduction_157 (HappyAbsSyn59 happy_var_3) - (HappyAbsSyn44 happy_var_2) - (HappyAbsSyn59 happy_var_1) - = HappyAbsSyn59 - (binOp happy_var_1 happy_var_2 happy_var_3 +happyReduce_157 = happySpecReduce_3 49 happyReduction_157 +happyReduction_157 (HappyTerminal (Located happy_var_3 (Token (Sym CurlyR ) _))) + (HappyAbsSyn42 happy_var_2) + (HappyTerminal (Located happy_var_1 (Token (Sym CurlyL ) _))) + = HappyAbsSyn64 + (Located (rComb happy_var_1 happy_var_3) (reverse happy_var_2) ) happyReduction_157 _ _ _ = notHappyAtAll happyReduce_158 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_158 = happySpecReduce_1 48 happyReduction_158 -happyReduction_158 (HappyAbsSyn59 happy_var_1) - = HappyAbsSyn59 - (happy_var_1 +happyReduce_158 = happySpecReduce_2 49 happyReduction_158 +happyReduction_158 (HappyTerminal (Located happy_var_2 (Token (Virt VCurlyR) _))) + (HappyTerminal (Located happy_var_1 (Token (Virt VCurlyL) _))) + = HappyAbsSyn64 + (Located (rComb happy_var_1 happy_var_2) [] ) -happyReduction_158 _ = notHappyAtAll +happyReduction_158 _ _ = notHappyAtAll happyReduce_159 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_159 = happyReduce 4 49 happyReduction_159 -happyReduction_159 ((HappyAbsSyn59 happy_var_4) `HappyStk` +happyReduce_159 = happySpecReduce_3 49 happyReduction_159 +happyReduction_159 (HappyTerminal (Located happy_var_3 (Token (Virt VCurlyR) _))) + (HappyAbsSyn42 happy_var_2) + (HappyTerminal (Located happy_var_1 (Token (Virt VCurlyL) _))) + = HappyAbsSyn64 + (let l2 = fromMaybe happy_var_3 (getLoc happy_var_2) + in Located (rComb happy_var_1 l2) (reverse happy_var_2) + ) +happyReduction_159 _ _ _ = notHappyAtAll + +happyReduce_160 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_160 = happySpecReduce_3 50 happyReduction_160 +happyReduction_160 (HappyAbsSyn106 happy_var_3) + _ + (HappyAbsSyn62 happy_var_1) + = HappyAbsSyn62 + (at (happy_var_1,happy_var_3) (ETyped happy_var_1 happy_var_3) + ) +happyReduction_160 _ _ _ = notHappyAtAll + +happyReduce_161 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_161 = happySpecReduce_3 51 happyReduction_161 +happyReduction_161 (HappyAbsSyn62 happy_var_3) + (HappyAbsSyn47 happy_var_2) + (HappyAbsSyn62 happy_var_1) + = HappyAbsSyn62 + (binOp happy_var_1 happy_var_2 happy_var_3 + ) +happyReduction_161 _ _ _ = notHappyAtAll + +happyReduce_162 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_162 = happySpecReduce_1 51 happyReduction_162 +happyReduction_162 (HappyAbsSyn62 happy_var_1) + = HappyAbsSyn62 + (happy_var_1 + ) +happyReduction_162 _ = notHappyAtAll + +happyReduce_163 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_163 = happyReduce 4 52 happyReduction_163 +happyReduction_163 ((HappyAbsSyn62 happy_var_4) `HappyStk` _ `HappyStk` - (HappyAbsSyn65 happy_var_2) `HappyStk` + (HappyAbsSyn68 happy_var_2) `HappyStk` (HappyTerminal (Located happy_var_1 (Token (KW KW_if ) _))) `HappyStk` happyRest) - = HappyAbsSyn59 + = HappyAbsSyn62 (at (happy_var_1,happy_var_4) $ mkIf (reverse happy_var_2) happy_var_4 ) `HappyStk` happyRest -happyReduce_160 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_160 = happyReduce 4 49 happyReduction_160 -happyReduction_160 ((HappyAbsSyn59 happy_var_4) `HappyStk` +happyReduce_164 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_164 = happyReduce 4 52 happyReduction_164 +happyReduction_164 ((HappyAbsSyn62 happy_var_4) `HappyStk` _ `HappyStk` - (HappyAbsSyn45 happy_var_2) `HappyStk` + (HappyAbsSyn48 happy_var_2) `HappyStk` (HappyTerminal (Located happy_var_1 (Token (Sym Lambda ) _))) `HappyStk` happyRest) - = HappyAbsSyn59 + = HappyAbsSyn62 (at (happy_var_1,happy_var_4) $ EFun emptyFunDesc (reverse happy_var_2) happy_var_4 ) `HappyStk` happyRest -happyReduce_161 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_161 = happySpecReduce_1 50 happyReduction_161 -happyReduction_161 (HappyAbsSyn66 happy_var_1) - = HappyAbsSyn65 +happyReduce_165 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_165 = happySpecReduce_1 53 happyReduction_165 +happyReduction_165 (HappyAbsSyn69 happy_var_1) + = HappyAbsSyn68 ([happy_var_1] ) -happyReduction_161 _ = notHappyAtAll +happyReduction_165 _ = notHappyAtAll -happyReduce_162 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_162 = happySpecReduce_3 50 happyReduction_162 -happyReduction_162 (HappyAbsSyn66 happy_var_3) +happyReduce_166 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_166 = happySpecReduce_3 53 happyReduction_166 +happyReduction_166 (HappyAbsSyn69 happy_var_3) _ - (HappyAbsSyn65 happy_var_1) - = HappyAbsSyn65 + (HappyAbsSyn68 happy_var_1) + = HappyAbsSyn68 (happy_var_3 : happy_var_1 ) -happyReduction_162 _ _ _ = notHappyAtAll +happyReduction_166 _ _ _ = notHappyAtAll -happyReduce_163 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_163 = happySpecReduce_3 51 happyReduction_163 -happyReduction_163 (HappyAbsSyn59 happy_var_3) +happyReduce_167 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_167 = happySpecReduce_3 54 happyReduction_167 +happyReduction_167 (HappyAbsSyn62 happy_var_3) _ - (HappyAbsSyn59 happy_var_1) - = HappyAbsSyn66 + (HappyAbsSyn62 happy_var_1) + = HappyAbsSyn69 ((happy_var_1, happy_var_3) ) -happyReduction_163 _ _ _ = notHappyAtAll +happyReduction_167 _ _ _ = notHappyAtAll -happyReduce_164 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_164 = happySpecReduce_2 52 happyReduction_164 -happyReduction_164 (HappyAbsSyn59 happy_var_2) +happyReduce_168 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_168 = happySpecReduce_2 55 happyReduction_168 +happyReduction_168 (HappyAbsSyn62 happy_var_2) (HappyTerminal (Located happy_var_1 (Token (Op Minus) _))) - = HappyAbsSyn59 + = HappyAbsSyn62 (at (happy_var_1,happy_var_2) (ENeg happy_var_2) ) -happyReduction_164 _ _ = notHappyAtAll +happyReduction_168 _ _ = notHappyAtAll -happyReduce_165 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_165 = happySpecReduce_2 52 happyReduction_165 -happyReduction_165 (HappyAbsSyn59 happy_var_2) +happyReduce_169 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_169 = happySpecReduce_2 55 happyReduction_169 +happyReduction_169 (HappyAbsSyn62 happy_var_2) (HappyTerminal (Located happy_var_1 (Token (Op Complement) _))) - = HappyAbsSyn59 + = HappyAbsSyn62 (at (happy_var_1,happy_var_2) (EComplement happy_var_2) ) -happyReduction_165 _ _ = notHappyAtAll +happyReduction_169 _ _ = notHappyAtAll -happyReduce_166 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_166 = happySpecReduce_1 52 happyReduction_166 -happyReduction_166 (HappyAbsSyn59 happy_var_1) - = HappyAbsSyn59 +happyReduce_170 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_170 = happySpecReduce_1 55 happyReduction_170 +happyReduction_170 (HappyAbsSyn62 happy_var_1) + = HappyAbsSyn62 (happy_var_1 ) -happyReduction_166 _ = notHappyAtAll +happyReduction_170 _ = notHappyAtAll -happyReduce_167 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_167 = happySpecReduce_2 53 happyReduction_167 -happyReduction_167 (HappyAbsSyn59 happy_var_2) +happyReduce_171 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_171 = happySpecReduce_2 56 happyReduction_171 +happyReduction_171 (HappyAbsSyn62 happy_var_2) (HappyTerminal (Located happy_var_1 (Token (Op Minus) _))) - = HappyAbsSyn59 + = HappyAbsSyn62 (at (happy_var_1,happy_var_2) (ENeg happy_var_2) ) -happyReduction_167 _ _ = notHappyAtAll - -happyReduce_168 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_168 = happySpecReduce_2 53 happyReduction_168 -happyReduction_168 (HappyAbsSyn59 happy_var_2) - (HappyTerminal (Located happy_var_1 (Token (Op Complement) _))) - = HappyAbsSyn59 - (at (happy_var_1,happy_var_2) (EComplement happy_var_2) - ) -happyReduction_168 _ _ = notHappyAtAll - -happyReduce_169 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_169 = happySpecReduce_1 53 happyReduction_169 -happyReduction_169 (HappyAbsSyn59 happy_var_1) - = HappyAbsSyn59 - (happy_var_1 - ) -happyReduction_169 _ = notHappyAtAll - -happyReduce_170 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_170 = happyMonadReduce 1 54 happyReduction_170 -happyReduction_170 ((HappyAbsSyn71 happy_var_1) `HappyStk` - happyRest) tk - = happyThen ((( mkEApp happy_var_1)) - ) (\r -> happyReturn (HappyAbsSyn59 r)) - -happyReduce_171 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_171 = happySpecReduce_2 55 happyReduction_171 -happyReduction_171 (HappyAbsSyn59 happy_var_2) - (HappyAbsSyn59 happy_var_1) - = HappyAbsSyn59 - (at (happy_var_1,happy_var_2) (EApp happy_var_1 happy_var_2) - ) happyReduction_171 _ _ = notHappyAtAll happyReduce_172 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_172 = happySpecReduce_1 55 happyReduction_172 -happyReduction_172 (HappyAbsSyn59 happy_var_1) - = HappyAbsSyn59 - (happy_var_1 +happyReduce_172 = happySpecReduce_2 56 happyReduction_172 +happyReduction_172 (HappyAbsSyn62 happy_var_2) + (HappyTerminal (Located happy_var_1 (Token (Op Complement) _))) + = HappyAbsSyn62 + (at (happy_var_1,happy_var_2) (EComplement happy_var_2) ) -happyReduction_172 _ = notHappyAtAll +happyReduction_172 _ _ = notHappyAtAll happyReduce_173 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_173 = happySpecReduce_1 55 happyReduction_173 -happyReduction_173 (HappyAbsSyn59 happy_var_1) - = HappyAbsSyn59 +happyReduce_173 = happySpecReduce_1 56 happyReduction_173 +happyReduction_173 (HappyAbsSyn62 happy_var_1) + = HappyAbsSyn62 (happy_var_1 ) happyReduction_173 _ = notHappyAtAll happyReduce_174 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_174 = happySpecReduce_1 56 happyReduction_174 -happyReduction_174 (HappyAbsSyn59 happy_var_1) - = HappyAbsSyn71 - (happy_var_1 :| [] - ) -happyReduction_174 _ = notHappyAtAll +happyReduce_174 = happyMonadReduce 1 57 happyReduction_174 +happyReduction_174 ((HappyAbsSyn74 happy_var_1) `HappyStk` + happyRest) tk + = happyThen ((( mkEApp happy_var_1)) + ) (\r -> happyReturn (HappyAbsSyn62 r)) happyReduce_175 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_175 = happySpecReduce_2 56 happyReduction_175 -happyReduction_175 (HappyAbsSyn59 happy_var_2) - (HappyAbsSyn71 happy_var_1) - = HappyAbsSyn71 - (cons happy_var_2 happy_var_1 +happyReduce_175 = happySpecReduce_2 58 happyReduction_175 +happyReduction_175 (HappyAbsSyn62 happy_var_2) + (HappyAbsSyn62 happy_var_1) + = HappyAbsSyn62 + (at (happy_var_1,happy_var_2) (EApp happy_var_1 happy_var_2) ) happyReduction_175 _ _ = notHappyAtAll happyReduce_176 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_176 = happySpecReduce_1 57 happyReduction_176 -happyReduction_176 (HappyAbsSyn59 happy_var_1) - = HappyAbsSyn59 +happyReduce_176 = happySpecReduce_1 58 happyReduction_176 +happyReduction_176 (HappyAbsSyn62 happy_var_1) + = HappyAbsSyn62 (happy_var_1 ) happyReduction_176 _ = notHappyAtAll happyReduce_177 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_177 = happySpecReduce_1 57 happyReduction_177 -happyReduction_177 (HappyAbsSyn59 happy_var_1) - = HappyAbsSyn59 +happyReduce_177 = happySpecReduce_1 58 happyReduction_177 +happyReduction_177 (HappyAbsSyn62 happy_var_1) + = HappyAbsSyn62 (happy_var_1 ) happyReduction_177 _ = notHappyAtAll happyReduce_178 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_178 = happySpecReduce_1 58 happyReduction_178 -happyReduction_178 (HappyAbsSyn116 happy_var_1) - = HappyAbsSyn59 - (at happy_var_1 $ EVar (thing happy_var_1) +happyReduce_178 = happySpecReduce_1 59 happyReduction_178 +happyReduction_178 (HappyAbsSyn62 happy_var_1) + = HappyAbsSyn74 + (happy_var_1 :| [] ) happyReduction_178 _ = notHappyAtAll happyReduce_179 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_179 = happySpecReduce_1 58 happyReduction_179 -happyReduction_179 (HappyTerminal (happy_var_1@(Located _ (Token (Num {}) _)))) - = HappyAbsSyn59 - (at happy_var_1 $ numLit (thing happy_var_1) +happyReduce_179 = happySpecReduce_2 59 happyReduction_179 +happyReduction_179 (HappyAbsSyn62 happy_var_2) + (HappyAbsSyn74 happy_var_1) + = HappyAbsSyn74 + (cons happy_var_2 happy_var_1 ) -happyReduction_179 _ = notHappyAtAll +happyReduction_179 _ _ = notHappyAtAll happyReduce_180 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_180 = happySpecReduce_1 58 happyReduction_180 -happyReduction_180 (HappyTerminal (happy_var_1@(Located _ (Token (Frac {}) _)))) - = HappyAbsSyn59 - (at happy_var_1 $ fracLit (thing happy_var_1) +happyReduce_180 = happySpecReduce_1 60 happyReduction_180 +happyReduction_180 (HappyAbsSyn62 happy_var_1) + = HappyAbsSyn62 + (happy_var_1 ) happyReduction_180 _ = notHappyAtAll happyReduce_181 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_181 = happySpecReduce_1 58 happyReduction_181 -happyReduction_181 (HappyTerminal (happy_var_1@(Located _ (Token (StrLit {}) _)))) - = HappyAbsSyn59 - (at happy_var_1 $ ELit $ ECString $ getStr happy_var_1 +happyReduce_181 = happySpecReduce_1 60 happyReduction_181 +happyReduction_181 (HappyAbsSyn62 happy_var_1) + = HappyAbsSyn62 + (happy_var_1 ) happyReduction_181 _ = notHappyAtAll happyReduce_182 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_182 = happySpecReduce_1 58 happyReduction_182 -happyReduction_182 (HappyTerminal (happy_var_1@(Located _ (Token (ChrLit {}) _)))) - = HappyAbsSyn59 - (at happy_var_1 $ ELit $ ECChar $ getChr happy_var_1 +happyReduce_182 = happySpecReduce_1 61 happyReduction_182 +happyReduction_182 (HappyAbsSyn119 happy_var_1) + = HappyAbsSyn62 + (at happy_var_1 $ EVar (thing happy_var_1) ) happyReduction_182 _ = notHappyAtAll happyReduce_183 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_183 = happySpecReduce_1 58 happyReduction_183 -happyReduction_183 (HappyTerminal (Located happy_var_1 (Token (Sym Underscore ) _))) - = HappyAbsSyn59 - (at happy_var_1 $ EVar $ mkUnqual $ mkIdent "_" +happyReduce_183 = happySpecReduce_1 61 happyReduction_183 +happyReduction_183 (HappyTerminal (happy_var_1@(Located _ (Token (Num {}) _)))) + = HappyAbsSyn62 + (at happy_var_1 $ numLit (thing happy_var_1) ) happyReduction_183 _ = notHappyAtAll happyReduce_184 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_184 = happySpecReduce_3 58 happyReduction_184 -happyReduction_184 (HappyTerminal (Located happy_var_3 (Token (Sym ParenR ) _))) - (HappyAbsSyn59 happy_var_2) +happyReduce_184 = happySpecReduce_1 61 happyReduction_184 +happyReduction_184 (HappyTerminal (happy_var_1@(Located _ (Token (Frac {}) _)))) + = HappyAbsSyn62 + (at happy_var_1 $ fracLit (thing happy_var_1) + ) +happyReduction_184 _ = notHappyAtAll + +happyReduce_185 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_185 = happySpecReduce_1 61 happyReduction_185 +happyReduction_185 (HappyTerminal (happy_var_1@(Located _ (Token (StrLit {}) _)))) + = HappyAbsSyn62 + (at happy_var_1 $ ELit $ ECString $ getStr happy_var_1 + ) +happyReduction_185 _ = notHappyAtAll + +happyReduce_186 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_186 = happySpecReduce_1 61 happyReduction_186 +happyReduction_186 (HappyTerminal (happy_var_1@(Located _ (Token (ChrLit {}) _)))) + = HappyAbsSyn62 + (at happy_var_1 $ ELit $ ECChar $ getChr happy_var_1 + ) +happyReduction_186 _ = notHappyAtAll + +happyReduce_187 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_187 = happySpecReduce_1 61 happyReduction_187 +happyReduction_187 (HappyTerminal (Located happy_var_1 (Token (Sym Underscore ) _))) + = HappyAbsSyn62 + (at happy_var_1 $ EVar $ mkUnqual $ mkIdent "_" + ) +happyReduction_187 _ = notHappyAtAll + +happyReduce_188 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_188 = happySpecReduce_3 61 happyReduction_188 +happyReduction_188 (HappyTerminal (Located happy_var_3 (Token (Sym ParenR ) _))) + (HappyAbsSyn62 happy_var_2) (HappyTerminal (Located happy_var_1 (Token (Sym ParenL ) _))) - = HappyAbsSyn59 + = HappyAbsSyn62 (at (happy_var_1,happy_var_3) $ EParens happy_var_2 ) -happyReduction_184 _ _ _ = notHappyAtAll +happyReduction_188 _ _ _ = notHappyAtAll -happyReduce_185 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_185 = happySpecReduce_3 58 happyReduction_185 -happyReduction_185 (HappyTerminal (Located happy_var_3 (Token (Sym ParenR ) _))) - (HappyAbsSyn78 happy_var_2) +happyReduce_189 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_189 = happySpecReduce_3 61 happyReduction_189 +happyReduction_189 (HappyTerminal (Located happy_var_3 (Token (Sym ParenR ) _))) + (HappyAbsSyn81 happy_var_2) (HappyTerminal (Located happy_var_1 (Token (Sym ParenL ) _))) - = HappyAbsSyn59 + = HappyAbsSyn62 (at (happy_var_1,happy_var_3) $ ETuple (reverse happy_var_2) ) -happyReduction_185 _ _ _ = notHappyAtAll +happyReduction_189 _ _ _ = notHappyAtAll -happyReduce_186 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_186 = happySpecReduce_2 58 happyReduction_186 -happyReduction_186 (HappyTerminal (Located happy_var_2 (Token (Sym ParenR ) _))) +happyReduce_190 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_190 = happySpecReduce_2 61 happyReduction_190 +happyReduction_190 (HappyTerminal (Located happy_var_2 (Token (Sym ParenR ) _))) (HappyTerminal (Located happy_var_1 (Token (Sym ParenL ) _))) - = HappyAbsSyn59 + = HappyAbsSyn62 (at (happy_var_1,happy_var_2) $ ETuple [] ) -happyReduction_186 _ _ = notHappyAtAll +happyReduction_190 _ _ = notHappyAtAll -happyReduce_187 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_187 = happyMonadReduce 2 58 happyReduction_187 -happyReduction_187 ((HappyTerminal (Located happy_var_2 (Token (Sym CurlyR ) _))) `HappyStk` +happyReduce_191 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_191 = happyMonadReduce 2 61 happyReduction_191 +happyReduction_191 ((HappyTerminal (Located happy_var_2 (Token (Sym CurlyR ) _))) `HappyStk` (HappyTerminal (Located happy_var_1 (Token (Sym CurlyL ) _))) `HappyStk` happyRest) tk = happyThen ((( mkRecord (rComb happy_var_1 happy_var_2) ERecord [])) - ) (\r -> happyReturn (HappyAbsSyn59 r)) + ) (\r -> happyReturn (HappyAbsSyn62 r)) -happyReduce_188 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_188 = happyMonadReduce 3 58 happyReduction_188 -happyReduction_188 ((HappyTerminal (Located happy_var_3 (Token (Sym CurlyR ) _))) `HappyStk` - (HappyAbsSyn79 happy_var_2) `HappyStk` +happyReduce_192 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_192 = happyMonadReduce 3 61 happyReduction_192 +happyReduction_192 ((HappyTerminal (Located happy_var_3 (Token (Sym CurlyR ) _))) `HappyStk` + (HappyAbsSyn82 happy_var_2) `HappyStk` (HappyTerminal (Located happy_var_1 (Token (Sym CurlyL ) _))) `HappyStk` happyRest) tk = happyThen ((( case happy_var_2 of { Left upd -> pure $ at (happy_var_1,happy_var_3) upd; Right fs -> mkRecord (rComb happy_var_1 happy_var_3) ERecord fs; })) - ) (\r -> happyReturn (HappyAbsSyn59 r)) + ) (\r -> happyReturn (HappyAbsSyn62 r)) -happyReduce_189 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_189 = happySpecReduce_2 58 happyReduction_189 -happyReduction_189 (HappyTerminal (Located happy_var_2 (Token (Sym BracketR) _))) +happyReduce_193 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_193 = happySpecReduce_2 61 happyReduction_193 +happyReduction_193 (HappyTerminal (Located happy_var_2 (Token (Sym BracketR) _))) (HappyTerminal (Located happy_var_1 (Token (Sym BracketL) _))) - = HappyAbsSyn59 + = HappyAbsSyn62 (at (happy_var_1,happy_var_2) $ EList [] ) -happyReduction_189 _ _ = notHappyAtAll +happyReduction_193 _ _ = notHappyAtAll -happyReduce_190 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_190 = happySpecReduce_3 58 happyReduction_190 -happyReduction_190 (HappyTerminal (Located happy_var_3 (Token (Sym BracketR) _))) - (HappyAbsSyn59 happy_var_2) +happyReduce_194 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_194 = happySpecReduce_3 61 happyReduction_194 +happyReduction_194 (HappyTerminal (Located happy_var_3 (Token (Sym BracketR) _))) + (HappyAbsSyn62 happy_var_2) (HappyTerminal (Located happy_var_1 (Token (Sym BracketL) _))) - = HappyAbsSyn59 + = HappyAbsSyn62 (at (happy_var_1,happy_var_3) happy_var_2 ) -happyReduction_190 _ _ _ = notHappyAtAll +happyReduction_194 _ _ _ = notHappyAtAll -happyReduce_191 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_191 = happySpecReduce_2 58 happyReduction_191 -happyReduction_191 (HappyAbsSyn103 happy_var_2) +happyReduce_195 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_195 = happySpecReduce_2 61 happyReduction_195 +happyReduction_195 (HappyAbsSyn106 happy_var_2) (HappyTerminal (Located happy_var_1 (Token (Sym BackTick) _))) - = HappyAbsSyn59 + = HappyAbsSyn62 (at (happy_var_1,happy_var_2) $ ETypeVal happy_var_2 ) -happyReduction_191 _ _ = notHappyAtAll +happyReduction_195 _ _ = notHappyAtAll -happyReduce_192 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_192 = happySpecReduce_3 58 happyReduction_192 -happyReduction_192 (HappyTerminal (Located happy_var_3 (Token (Sym ParenR ) _))) - (HappyAbsSyn44 happy_var_2) +happyReduce_196 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_196 = happySpecReduce_3 61 happyReduction_196 +happyReduction_196 (HappyTerminal (Located happy_var_3 (Token (Sym ParenR ) _))) + (HappyAbsSyn47 happy_var_2) (HappyTerminal (Located happy_var_1 (Token (Sym ParenL ) _))) - = HappyAbsSyn59 + = HappyAbsSyn62 (at (happy_var_1,happy_var_3) $ EVar $ thing happy_var_2 ) -happyReduction_192 _ _ _ = notHappyAtAll +happyReduction_196 _ _ _ = notHappyAtAll -happyReduce_193 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_193 = happyMonadReduce 2 58 happyReduction_193 -happyReduction_193 ((HappyTerminal (Located happy_var_2 (Token (Sym TriR ) _))) `HappyStk` +happyReduce_197 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_197 = happyMonadReduce 2 61 happyReduction_197 +happyReduction_197 ((HappyTerminal (Located happy_var_2 (Token (Sym TriR ) _))) `HappyStk` (HappyTerminal (Located happy_var_1 (Token (Sym TriL ) _))) `HappyStk` happyRest) tk = happyThen ((( mkPoly (rComb happy_var_1 happy_var_2) [])) - ) (\r -> happyReturn (HappyAbsSyn59 r)) + ) (\r -> happyReturn (HappyAbsSyn62 r)) -happyReduce_194 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_194 = happyMonadReduce 3 58 happyReduction_194 -happyReduction_194 ((HappyTerminal (Located happy_var_3 (Token (Sym TriR ) _))) `HappyStk` - (HappyAbsSyn76 happy_var_2) `HappyStk` +happyReduce_198 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_198 = happyMonadReduce 3 61 happyReduction_198 +happyReduction_198 ((HappyTerminal (Located happy_var_3 (Token (Sym TriR ) _))) `HappyStk` + (HappyAbsSyn79 happy_var_2) `HappyStk` (HappyTerminal (Located happy_var_1 (Token (Sym TriL ) _))) `HappyStk` happyRest) tk = happyThen ((( mkPoly (rComb happy_var_1 happy_var_3) happy_var_2)) - ) (\r -> happyReturn (HappyAbsSyn59 r)) + ) (\r -> happyReturn (HappyAbsSyn62 r)) -happyReduce_195 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_195 = happySpecReduce_2 59 happyReduction_195 -happyReduction_195 (HappyAbsSyn75 happy_var_2) - (HappyAbsSyn59 happy_var_1) - = HappyAbsSyn59 +happyReduce_199 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_199 = happySpecReduce_2 62 happyReduction_199 +happyReduction_199 (HappyAbsSyn78 happy_var_2) + (HappyAbsSyn62 happy_var_1) + = HappyAbsSyn62 (at (happy_var_1,happy_var_2) $ ESel happy_var_1 (thing happy_var_2) ) -happyReduction_195 _ _ = notHappyAtAll +happyReduction_199 _ _ = notHappyAtAll -happyReduce_196 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_196 = happySpecReduce_2 59 happyReduction_196 -happyReduction_196 (HappyAbsSyn75 happy_var_2) - (HappyAbsSyn59 happy_var_1) - = HappyAbsSyn59 +happyReduce_200 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_200 = happySpecReduce_2 62 happyReduction_200 +happyReduction_200 (HappyAbsSyn78 happy_var_2) + (HappyAbsSyn62 happy_var_1) + = HappyAbsSyn62 (at (happy_var_1,happy_var_2) $ ESel happy_var_1 (thing happy_var_2) ) -happyReduction_196 _ _ = notHappyAtAll +happyReduction_200 _ _ = notHappyAtAll -happyReduce_197 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_197 = happySpecReduce_1 60 happyReduction_197 -happyReduction_197 (HappyTerminal (happy_var_1@(Located _ (Token (Selector _) _)))) - = HappyAbsSyn75 +happyReduce_201 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_201 = happySpecReduce_1 63 happyReduction_201 +happyReduction_201 (HappyTerminal (happy_var_1@(Located _ (Token (Selector _) _)))) + = HappyAbsSyn78 (mkSelector `fmap` happy_var_1 ) -happyReduction_197 _ = notHappyAtAll +happyReduction_201 _ = notHappyAtAll -happyReduce_198 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_198 = happySpecReduce_1 61 happyReduction_198 -happyReduction_198 (HappyAbsSyn77 happy_var_1) - = HappyAbsSyn76 +happyReduce_202 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_202 = happySpecReduce_1 64 happyReduction_202 +happyReduction_202 (HappyAbsSyn80 happy_var_1) + = HappyAbsSyn79 ([happy_var_1] ) -happyReduction_198 _ = notHappyAtAll +happyReduction_202 _ = notHappyAtAll -happyReduce_199 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_199 = happySpecReduce_3 61 happyReduction_199 -happyReduction_199 (HappyAbsSyn77 happy_var_3) +happyReduce_203 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_203 = happySpecReduce_3 64 happyReduction_203 +happyReduction_203 (HappyAbsSyn80 happy_var_3) _ - (HappyAbsSyn76 happy_var_1) - = HappyAbsSyn76 + (HappyAbsSyn79 happy_var_1) + = HappyAbsSyn79 (happy_var_3 : happy_var_1 ) -happyReduction_199 _ _ _ = notHappyAtAll +happyReduction_203 _ _ _ = notHappyAtAll -happyReduce_200 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_200 = happyMonadReduce 1 62 happyReduction_200 -happyReduction_200 ((HappyTerminal (happy_var_1@(Located _ (Token (Num {}) _)))) `HappyStk` +happyReduce_204 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_204 = happyMonadReduce 1 65 happyReduction_204 +happyReduction_204 ((HappyTerminal (happy_var_1@(Located _ (Token (Num {}) _)))) `HappyStk` happyRest) tk = happyThen ((( polyTerm (srcRange happy_var_1) (getNum happy_var_1) 0)) - ) (\r -> happyReturn (HappyAbsSyn77 r)) + ) (\r -> happyReturn (HappyAbsSyn80 r)) -happyReduce_201 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_201 = happyMonadReduce 1 62 happyReduction_201 -happyReduction_201 ((HappyTerminal (Located happy_var_1 (Token (KW KW_x) _))) `HappyStk` +happyReduce_205 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_205 = happyMonadReduce 1 65 happyReduction_205 +happyReduction_205 ((HappyTerminal (Located happy_var_1 (Token (KW KW_x) _))) `HappyStk` happyRest) tk = happyThen ((( polyTerm happy_var_1 1 1)) - ) (\r -> happyReturn (HappyAbsSyn77 r)) + ) (\r -> happyReturn (HappyAbsSyn80 r)) -happyReduce_202 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_202 = happyMonadReduce 3 62 happyReduction_202 -happyReduction_202 ((HappyTerminal (happy_var_3@(Located _ (Token (Num {}) _)))) `HappyStk` +happyReduce_206 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_206 = happyMonadReduce 3 65 happyReduction_206 +happyReduction_206 ((HappyTerminal (happy_var_3@(Located _ (Token (Num {}) _)))) `HappyStk` _ `HappyStk` (HappyTerminal (Located happy_var_1 (Token (KW KW_x) _))) `HappyStk` happyRest) tk = happyThen ((( polyTerm (rComb happy_var_1 (srcRange happy_var_3)) 1 (getNum happy_var_3))) - ) (\r -> happyReturn (HappyAbsSyn77 r)) + ) (\r -> happyReturn (HappyAbsSyn80 r)) -happyReduce_203 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_203 = happySpecReduce_3 63 happyReduction_203 -happyReduction_203 (HappyAbsSyn59 happy_var_3) +happyReduce_207 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_207 = happySpecReduce_3 66 happyReduction_207 +happyReduction_207 (HappyAbsSyn62 happy_var_3) _ - (HappyAbsSyn59 happy_var_1) - = HappyAbsSyn78 + (HappyAbsSyn62 happy_var_1) + = HappyAbsSyn81 ([ happy_var_3, happy_var_1] ) -happyReduction_203 _ _ _ = notHappyAtAll +happyReduction_207 _ _ _ = notHappyAtAll -happyReduce_204 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_204 = happySpecReduce_3 63 happyReduction_204 -happyReduction_204 (HappyAbsSyn59 happy_var_3) +happyReduce_208 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_208 = happySpecReduce_3 66 happyReduction_208 +happyReduction_208 (HappyAbsSyn62 happy_var_3) _ - (HappyAbsSyn78 happy_var_1) - = HappyAbsSyn78 + (HappyAbsSyn81 happy_var_1) + = HappyAbsSyn81 (happy_var_3 : happy_var_1 ) -happyReduction_204 _ _ _ = notHappyAtAll +happyReduction_208 _ _ _ = notHappyAtAll -happyReduce_205 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_205 = happySpecReduce_3 64 happyReduction_205 -happyReduction_205 (HappyAbsSyn80 happy_var_3) +happyReduce_209 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_209 = happySpecReduce_3 67 happyReduction_209 +happyReduction_209 (HappyAbsSyn83 happy_var_3) _ - (HappyAbsSyn59 happy_var_1) - = HappyAbsSyn79 + (HappyAbsSyn62 happy_var_1) + = HappyAbsSyn82 (Left (EUpd (Just happy_var_1) (reverse happy_var_3)) ) -happyReduction_205 _ _ _ = notHappyAtAll +happyReduction_209 _ _ _ = notHappyAtAll -happyReduce_206 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_206 = happySpecReduce_3 64 happyReduction_206 -happyReduction_206 (HappyAbsSyn80 happy_var_3) +happyReduce_210 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_210 = happySpecReduce_3 67 happyReduction_210 +happyReduction_210 (HappyAbsSyn83 happy_var_3) _ _ - = HappyAbsSyn79 + = HappyAbsSyn82 (Left (EUpd Nothing (reverse happy_var_3)) ) -happyReduction_206 _ _ _ = notHappyAtAll +happyReduction_210 _ _ _ = notHappyAtAll -happyReduce_207 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_207 = happyMonadReduce 1 64 happyReduction_207 -happyReduction_207 ((HappyAbsSyn80 happy_var_1) `HappyStk` +happyReduce_211 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_211 = happyMonadReduce 1 67 happyReduction_211 +happyReduction_211 ((HappyAbsSyn83 happy_var_1) `HappyStk` happyRest) tk = happyThen ((( Right `fmap` mapM ufToNamed happy_var_1)) - ) (\r -> happyReturn (HappyAbsSyn79 r)) + ) (\r -> happyReturn (HappyAbsSyn82 r)) -happyReduce_208 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_208 = happySpecReduce_1 65 happyReduction_208 -happyReduction_208 (HappyAbsSyn81 happy_var_1) - = HappyAbsSyn80 +happyReduce_212 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_212 = happySpecReduce_1 68 happyReduction_212 +happyReduction_212 (HappyAbsSyn84 happy_var_1) + = HappyAbsSyn83 ([happy_var_1] ) -happyReduction_208 _ = notHappyAtAll +happyReduction_212 _ = notHappyAtAll -happyReduce_209 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_209 = happySpecReduce_3 65 happyReduction_209 -happyReduction_209 (HappyAbsSyn81 happy_var_3) +happyReduce_213 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_213 = happySpecReduce_3 68 happyReduction_213 +happyReduction_213 (HappyAbsSyn84 happy_var_3) _ - (HappyAbsSyn80 happy_var_1) - = HappyAbsSyn80 + (HappyAbsSyn83 happy_var_1) + = HappyAbsSyn83 (happy_var_3 : happy_var_1 ) -happyReduction_209 _ _ _ = notHappyAtAll +happyReduction_213 _ _ _ = notHappyAtAll -happyReduce_210 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_210 = happyReduce 4 66 happyReduction_210 -happyReduction_210 ((HappyAbsSyn59 happy_var_4) `HappyStk` - (HappyAbsSyn83 happy_var_3) `HappyStk` - (HappyAbsSyn48 happy_var_2) `HappyStk` - (HappyAbsSyn82 happy_var_1) `HappyStk` +happyReduce_214 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_214 = happyReduce 4 69 happyReduction_214 +happyReduction_214 ((HappyAbsSyn62 happy_var_4) `HappyStk` + (HappyAbsSyn86 happy_var_3) `HappyStk` + (HappyAbsSyn51 happy_var_2) `HappyStk` + (HappyAbsSyn85 happy_var_1) `HappyStk` happyRest) - = HappyAbsSyn81 + = HappyAbsSyn84 (UpdField happy_var_3 happy_var_1 (mkIndexedExpr happy_var_2 happy_var_4) ) `HappyStk` happyRest -happyReduce_211 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_211 = happyMonadReduce 1 67 happyReduction_211 -happyReduction_211 ((HappyAbsSyn59 happy_var_1) `HappyStk` +happyReduce_215 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_215 = happyMonadReduce 1 70 happyReduction_215 +happyReduction_215 ((HappyAbsSyn62 happy_var_1) `HappyStk` happyRest) tk = happyThen ((( exprToFieldPath happy_var_1)) - ) (\r -> happyReturn (HappyAbsSyn82 r)) + ) (\r -> happyReturn (HappyAbsSyn85 r)) -happyReduce_212 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_212 = happySpecReduce_1 68 happyReduction_212 -happyReduction_212 _ - = HappyAbsSyn83 +happyReduce_216 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_216 = happySpecReduce_1 71 happyReduction_216 +happyReduction_216 _ + = HappyAbsSyn86 (UpdSet ) -happyReduce_213 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_213 = happySpecReduce_1 68 happyReduction_213 -happyReduction_213 _ - = HappyAbsSyn83 +happyReduce_217 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_217 = happySpecReduce_1 71 happyReduction_217 +happyReduction_217 _ + = HappyAbsSyn86 (UpdFun ) -happyReduce_214 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_214 = happySpecReduce_3 69 happyReduction_214 -happyReduction_214 (HappyAbsSyn85 happy_var_3) +happyReduce_218 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_218 = happySpecReduce_3 72 happyReduction_218 +happyReduction_218 (HappyAbsSyn88 happy_var_3) _ - (HappyAbsSyn59 happy_var_1) - = HappyAbsSyn59 + (HappyAbsSyn62 happy_var_1) + = HappyAbsSyn62 (EComp happy_var_1 (reverse happy_var_3) ) -happyReduction_214 _ _ _ = notHappyAtAll +happyReduction_218 _ _ _ = notHappyAtAll -happyReduce_215 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_215 = happySpecReduce_1 69 happyReduction_215 -happyReduction_215 (HappyAbsSyn59 happy_var_1) - = HappyAbsSyn59 +happyReduce_219 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_219 = happySpecReduce_1 72 happyReduction_219 +happyReduction_219 (HappyAbsSyn62 happy_var_1) + = HappyAbsSyn62 (EList [happy_var_1] ) -happyReduction_215 _ = notHappyAtAll +happyReduction_219 _ = notHappyAtAll -happyReduce_216 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_216 = happySpecReduce_1 69 happyReduction_216 -happyReduction_216 (HappyAbsSyn78 happy_var_1) - = HappyAbsSyn59 +happyReduce_220 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_220 = happySpecReduce_1 72 happyReduction_220 +happyReduction_220 (HappyAbsSyn81 happy_var_1) + = HappyAbsSyn62 (EList (reverse happy_var_1) ) -happyReduction_216 _ = notHappyAtAll +happyReduction_220 _ = notHappyAtAll -happyReduce_217 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_217 = happyMonadReduce 3 69 happyReduction_217 -happyReduction_217 ((HappyAbsSyn59 happy_var_3) `HappyStk` +happyReduce_221 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_221 = happyMonadReduce 3 72 happyReduction_221 +happyReduction_221 ((HappyAbsSyn62 happy_var_3) `HappyStk` (HappyTerminal (Located happy_var_2 (Token (Sym DotDot ) _))) `HappyStk` - (HappyAbsSyn59 happy_var_1) `HappyStk` + (HappyAbsSyn62 happy_var_1) `HappyStk` happyRest) tk = happyThen ((( eFromTo happy_var_2 happy_var_1 Nothing happy_var_3)) - ) (\r -> happyReturn (HappyAbsSyn59 r)) + ) (\r -> happyReturn (HappyAbsSyn62 r)) -happyReduce_218 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_218 = happyMonadReduce 5 69 happyReduction_218 -happyReduction_218 ((HappyAbsSyn59 happy_var_5) `HappyStk` +happyReduce_222 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_222 = happyMonadReduce 5 72 happyReduction_222 +happyReduction_222 ((HappyAbsSyn62 happy_var_5) `HappyStk` (HappyTerminal (Located happy_var_4 (Token (Sym DotDot ) _))) `HappyStk` - (HappyAbsSyn59 happy_var_3) `HappyStk` + (HappyAbsSyn62 happy_var_3) `HappyStk` _ `HappyStk` - (HappyAbsSyn59 happy_var_1) `HappyStk` + (HappyAbsSyn62 happy_var_1) `HappyStk` happyRest) tk = happyThen ((( eFromTo happy_var_4 happy_var_1 (Just happy_var_3) happy_var_5)) - ) (\r -> happyReturn (HappyAbsSyn59 r)) + ) (\r -> happyReturn (HappyAbsSyn62 r)) -happyReduce_219 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_219 = happyMonadReduce 4 69 happyReduction_219 -happyReduction_219 ((HappyAbsSyn59 happy_var_4) `HappyStk` +happyReduce_223 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_223 = happyMonadReduce 4 72 happyReduction_223 +happyReduction_223 ((HappyAbsSyn62 happy_var_4) `HappyStk` _ `HappyStk` (HappyTerminal (Located happy_var_2 (Token (Sym DotDot ) _))) `HappyStk` - (HappyAbsSyn59 happy_var_1) `HappyStk` + (HappyAbsSyn62 happy_var_1) `HappyStk` happyRest) tk = happyThen ((( eFromToLessThan happy_var_2 happy_var_1 happy_var_4)) - ) (\r -> happyReturn (HappyAbsSyn59 r)) + ) (\r -> happyReturn (HappyAbsSyn62 r)) -happyReduce_220 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_220 = happyMonadReduce 3 69 happyReduction_220 -happyReduction_220 ((HappyAbsSyn59 happy_var_3) `HappyStk` +happyReduce_224 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_224 = happyMonadReduce 3 72 happyReduction_224 +happyReduction_224 ((HappyAbsSyn62 happy_var_3) `HappyStk` (HappyTerminal (Located happy_var_2 (Token (Sym DotDotLt) _))) `HappyStk` - (HappyAbsSyn59 happy_var_1) `HappyStk` + (HappyAbsSyn62 happy_var_1) `HappyStk` happyRest) tk = happyThen ((( eFromToLessThan happy_var_2 happy_var_1 happy_var_3)) - ) (\r -> happyReturn (HappyAbsSyn59 r)) + ) (\r -> happyReturn (HappyAbsSyn62 r)) -happyReduce_221 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_221 = happyMonadReduce 5 69 happyReduction_221 -happyReduction_221 ((HappyAbsSyn59 happy_var_5) `HappyStk` +happyReduce_225 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_225 = happyMonadReduce 5 72 happyReduction_225 +happyReduction_225 ((HappyAbsSyn62 happy_var_5) `HappyStk` _ `HappyStk` - (HappyAbsSyn59 happy_var_3) `HappyStk` + (HappyAbsSyn62 happy_var_3) `HappyStk` (HappyTerminal (Located happy_var_2 (Token (Sym DotDot ) _))) `HappyStk` - (HappyAbsSyn59 happy_var_1) `HappyStk` + (HappyAbsSyn62 happy_var_1) `HappyStk` happyRest) tk = happyThen ((( eFromToBy happy_var_2 happy_var_1 happy_var_3 happy_var_5 False)) - ) (\r -> happyReturn (HappyAbsSyn59 r)) + ) (\r -> happyReturn (HappyAbsSyn62 r)) -happyReduce_222 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_222 = happyMonadReduce 6 69 happyReduction_222 -happyReduction_222 ((HappyAbsSyn59 happy_var_6) `HappyStk` +happyReduce_226 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_226 = happyMonadReduce 6 72 happyReduction_226 +happyReduction_226 ((HappyAbsSyn62 happy_var_6) `HappyStk` _ `HappyStk` - (HappyAbsSyn59 happy_var_4) `HappyStk` + (HappyAbsSyn62 happy_var_4) `HappyStk` _ `HappyStk` (HappyTerminal (Located happy_var_2 (Token (Sym DotDot ) _))) `HappyStk` - (HappyAbsSyn59 happy_var_1) `HappyStk` + (HappyAbsSyn62 happy_var_1) `HappyStk` happyRest) tk = happyThen ((( eFromToBy happy_var_2 happy_var_1 happy_var_4 happy_var_6 True)) - ) (\r -> happyReturn (HappyAbsSyn59 r)) + ) (\r -> happyReturn (HappyAbsSyn62 r)) -happyReduce_223 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_223 = happyMonadReduce 5 69 happyReduction_223 -happyReduction_223 ((HappyAbsSyn59 happy_var_5) `HappyStk` +happyReduce_227 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_227 = happyMonadReduce 5 72 happyReduction_227 +happyReduction_227 ((HappyAbsSyn62 happy_var_5) `HappyStk` _ `HappyStk` - (HappyAbsSyn59 happy_var_3) `HappyStk` + (HappyAbsSyn62 happy_var_3) `HappyStk` (HappyTerminal (Located happy_var_2 (Token (Sym DotDotLt) _))) `HappyStk` - (HappyAbsSyn59 happy_var_1) `HappyStk` + (HappyAbsSyn62 happy_var_1) `HappyStk` happyRest) tk = happyThen ((( eFromToBy happy_var_2 happy_var_1 happy_var_3 happy_var_5 True)) - ) (\r -> happyReturn (HappyAbsSyn59 r)) + ) (\r -> happyReturn (HappyAbsSyn62 r)) -happyReduce_224 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_224 = happyMonadReduce 6 69 happyReduction_224 -happyReduction_224 ((HappyAbsSyn59 happy_var_6) `HappyStk` +happyReduce_228 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_228 = happyMonadReduce 6 72 happyReduction_228 +happyReduction_228 ((HappyAbsSyn62 happy_var_6) `HappyStk` _ `HappyStk` _ `HappyStk` - (HappyAbsSyn59 happy_var_3) `HappyStk` + (HappyAbsSyn62 happy_var_3) `HappyStk` (HappyTerminal (Located happy_var_2 (Token (Sym DotDot ) _))) `HappyStk` - (HappyAbsSyn59 happy_var_1) `HappyStk` + (HappyAbsSyn62 happy_var_1) `HappyStk` happyRest) tk = happyThen ((( eFromToDownBy happy_var_2 happy_var_1 happy_var_3 happy_var_6 False)) - ) (\r -> happyReturn (HappyAbsSyn59 r)) + ) (\r -> happyReturn (HappyAbsSyn62 r)) -happyReduce_225 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_225 = happyMonadReduce 7 69 happyReduction_225 -happyReduction_225 ((HappyAbsSyn59 happy_var_7) `HappyStk` +happyReduce_229 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_229 = happyMonadReduce 7 72 happyReduction_229 +happyReduction_229 ((HappyAbsSyn62 happy_var_7) `HappyStk` _ `HappyStk` _ `HappyStk` - (HappyAbsSyn59 happy_var_4) `HappyStk` + (HappyAbsSyn62 happy_var_4) `HappyStk` _ `HappyStk` (HappyTerminal (Located happy_var_2 (Token (Sym DotDot ) _))) `HappyStk` - (HappyAbsSyn59 happy_var_1) `HappyStk` + (HappyAbsSyn62 happy_var_1) `HappyStk` happyRest) tk = happyThen ((( eFromToDownBy happy_var_2 happy_var_1 happy_var_4 happy_var_7 True)) - ) (\r -> happyReturn (HappyAbsSyn59 r)) + ) (\r -> happyReturn (HappyAbsSyn62 r)) -happyReduce_226 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_226 = happyMonadReduce 6 69 happyReduction_226 -happyReduction_226 ((HappyAbsSyn59 happy_var_6) `HappyStk` +happyReduce_230 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_230 = happyMonadReduce 6 72 happyReduction_230 +happyReduction_230 ((HappyAbsSyn62 happy_var_6) `HappyStk` _ `HappyStk` _ `HappyStk` - (HappyAbsSyn59 happy_var_3) `HappyStk` + (HappyAbsSyn62 happy_var_3) `HappyStk` (HappyTerminal (Located happy_var_2 (Token (Sym DotDotGt) _))) `HappyStk` - (HappyAbsSyn59 happy_var_1) `HappyStk` + (HappyAbsSyn62 happy_var_1) `HappyStk` happyRest) tk = happyThen ((( eFromToDownBy happy_var_2 happy_var_1 happy_var_3 happy_var_6 True)) - ) (\r -> happyReturn (HappyAbsSyn59 r)) + ) (\r -> happyReturn (HappyAbsSyn62 r)) -happyReduce_227 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_227 = happySpecReduce_2 69 happyReduction_227 -happyReduction_227 _ - (HappyAbsSyn59 happy_var_1) - = HappyAbsSyn59 +happyReduce_231 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_231 = happySpecReduce_2 72 happyReduction_231 +happyReduction_231 _ + (HappyAbsSyn62 happy_var_1) + = HappyAbsSyn62 (EInfFrom happy_var_1 Nothing ) -happyReduction_227 _ _ = notHappyAtAll +happyReduction_231 _ _ = notHappyAtAll -happyReduce_228 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_228 = happyReduce 4 69 happyReduction_228 -happyReduction_228 (_ `HappyStk` - (HappyAbsSyn59 happy_var_3) `HappyStk` +happyReduce_232 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_232 = happyReduce 4 72 happyReduction_232 +happyReduction_232 (_ `HappyStk` + (HappyAbsSyn62 happy_var_3) `HappyStk` _ `HappyStk` - (HappyAbsSyn59 happy_var_1) `HappyStk` + (HappyAbsSyn62 happy_var_1) `HappyStk` happyRest) - = HappyAbsSyn59 + = HappyAbsSyn62 (EInfFrom happy_var_1 (Just happy_var_3) ) `HappyStk` happyRest -happyReduce_229 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_229 = happySpecReduce_1 70 happyReduction_229 -happyReduction_229 (HappyAbsSyn86 happy_var_1) - = HappyAbsSyn85 +happyReduce_233 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_233 = happySpecReduce_1 73 happyReduction_233 +happyReduction_233 (HappyAbsSyn89 happy_var_1) + = HappyAbsSyn88 ([ reverse happy_var_1 ] ) -happyReduction_229 _ = notHappyAtAll +happyReduction_233 _ = notHappyAtAll -happyReduce_230 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_230 = happySpecReduce_3 70 happyReduction_230 -happyReduction_230 (HappyAbsSyn86 happy_var_3) +happyReduce_234 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_234 = happySpecReduce_3 73 happyReduction_234 +happyReduction_234 (HappyAbsSyn89 happy_var_3) _ - (HappyAbsSyn85 happy_var_1) - = HappyAbsSyn85 + (HappyAbsSyn88 happy_var_1) + = HappyAbsSyn88 (reverse happy_var_3 : happy_var_1 ) -happyReduction_230 _ _ _ = notHappyAtAll +happyReduction_234 _ _ _ = notHappyAtAll -happyReduce_231 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_231 = happySpecReduce_1 71 happyReduction_231 -happyReduction_231 (HappyAbsSyn87 happy_var_1) - = HappyAbsSyn86 +happyReduce_235 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_235 = happySpecReduce_1 74 happyReduction_235 +happyReduction_235 (HappyAbsSyn90 happy_var_1) + = HappyAbsSyn89 ([happy_var_1] ) -happyReduction_231 _ = notHappyAtAll +happyReduction_235 _ = notHappyAtAll -happyReduce_232 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_232 = happySpecReduce_3 71 happyReduction_232 -happyReduction_232 (HappyAbsSyn87 happy_var_3) +happyReduce_236 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_236 = happySpecReduce_3 74 happyReduction_236 +happyReduction_236 (HappyAbsSyn90 happy_var_3) _ - (HappyAbsSyn86 happy_var_1) - = HappyAbsSyn86 + (HappyAbsSyn89 happy_var_1) + = HappyAbsSyn89 (happy_var_3 : happy_var_1 ) -happyReduction_232 _ _ _ = notHappyAtAll +happyReduction_236 _ _ _ = notHappyAtAll -happyReduce_233 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_233 = happySpecReduce_3 72 happyReduction_233 -happyReduction_233 (HappyAbsSyn59 happy_var_3) +happyReduce_237 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_237 = happySpecReduce_3 75 happyReduction_237 +happyReduction_237 (HappyAbsSyn62 happy_var_3) _ - (HappyAbsSyn88 happy_var_1) - = HappyAbsSyn87 + (HappyAbsSyn91 happy_var_1) + = HappyAbsSyn90 (Match happy_var_1 happy_var_3 ) -happyReduction_233 _ _ _ = notHappyAtAll +happyReduction_237 _ _ _ = notHappyAtAll -happyReduce_234 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_234 = happySpecReduce_3 73 happyReduction_234 -happyReduction_234 (HappyAbsSyn103 happy_var_3) +happyReduce_238 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_238 = happySpecReduce_3 76 happyReduction_238 +happyReduction_238 (HappyAbsSyn106 happy_var_3) _ - (HappyAbsSyn88 happy_var_1) - = HappyAbsSyn88 + (HappyAbsSyn91 happy_var_1) + = HappyAbsSyn91 (at (happy_var_1,happy_var_3) $ PTyped happy_var_1 happy_var_3 ) -happyReduction_234 _ _ _ = notHappyAtAll +happyReduction_238 _ _ _ = notHappyAtAll -happyReduce_235 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_235 = happySpecReduce_1 73 happyReduction_235 -happyReduction_235 (HappyAbsSyn88 happy_var_1) - = HappyAbsSyn88 +happyReduce_239 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_239 = happySpecReduce_1 76 happyReduction_239 +happyReduction_239 (HappyAbsSyn91 happy_var_1) + = HappyAbsSyn91 (happy_var_1 ) -happyReduction_235 _ = notHappyAtAll +happyReduction_239 _ = notHappyAtAll -happyReduce_236 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_236 = happySpecReduce_3 74 happyReduction_236 -happyReduction_236 (HappyAbsSyn88 happy_var_3) +happyReduce_240 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_240 = happySpecReduce_3 77 happyReduction_240 +happyReduction_240 (HappyAbsSyn91 happy_var_3) _ - (HappyAbsSyn88 happy_var_1) - = HappyAbsSyn88 + (HappyAbsSyn91 happy_var_1) + = HappyAbsSyn91 (at (happy_var_1,happy_var_3) $ PSplit happy_var_1 happy_var_3 ) -happyReduction_236 _ _ _ = notHappyAtAll +happyReduction_240 _ _ _ = notHappyAtAll -happyReduce_237 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_237 = happySpecReduce_1 74 happyReduction_237 -happyReduction_237 (HappyAbsSyn88 happy_var_1) - = HappyAbsSyn88 +happyReduce_241 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_241 = happySpecReduce_1 77 happyReduction_241 +happyReduction_241 (HappyAbsSyn91 happy_var_1) + = HappyAbsSyn91 (happy_var_1 ) -happyReduction_237 _ = notHappyAtAll +happyReduction_241 _ = notHappyAtAll -happyReduce_238 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_238 = happySpecReduce_1 75 happyReduction_238 -happyReduction_238 (HappyAbsSyn44 happy_var_1) - = HappyAbsSyn88 +happyReduce_242 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_242 = happySpecReduce_1 78 happyReduction_242 +happyReduction_242 (HappyAbsSyn47 happy_var_1) + = HappyAbsSyn91 (PVar happy_var_1 ) -happyReduction_238 _ = notHappyAtAll +happyReduction_242 _ = notHappyAtAll -happyReduce_239 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_239 = happySpecReduce_1 75 happyReduction_239 -happyReduction_239 (HappyTerminal (Located happy_var_1 (Token (Sym Underscore ) _))) - = HappyAbsSyn88 +happyReduce_243 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_243 = happySpecReduce_1 78 happyReduction_243 +happyReduction_243 (HappyTerminal (Located happy_var_1 (Token (Sym Underscore ) _))) + = HappyAbsSyn91 (at happy_var_1 $ PWild ) -happyReduction_239 _ = notHappyAtAll +happyReduction_243 _ = notHappyAtAll -happyReduce_240 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_240 = happySpecReduce_2 75 happyReduction_240 -happyReduction_240 (HappyTerminal (Located happy_var_2 (Token (Sym ParenR ) _))) +happyReduce_244 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_244 = happySpecReduce_2 78 happyReduction_244 +happyReduction_244 (HappyTerminal (Located happy_var_2 (Token (Sym ParenR ) _))) (HappyTerminal (Located happy_var_1 (Token (Sym ParenL ) _))) - = HappyAbsSyn88 + = HappyAbsSyn91 (at (happy_var_1,happy_var_2) $ PTuple [] ) -happyReduction_240 _ _ = notHappyAtAll +happyReduction_244 _ _ = notHappyAtAll -happyReduce_241 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_241 = happySpecReduce_3 75 happyReduction_241 -happyReduction_241 (HappyTerminal (Located happy_var_3 (Token (Sym ParenR ) _))) - (HappyAbsSyn88 happy_var_2) +happyReduce_245 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_245 = happySpecReduce_3 78 happyReduction_245 +happyReduction_245 (HappyTerminal (Located happy_var_3 (Token (Sym ParenR ) _))) + (HappyAbsSyn91 happy_var_2) (HappyTerminal (Located happy_var_1 (Token (Sym ParenL ) _))) - = HappyAbsSyn88 + = HappyAbsSyn91 (at (happy_var_1,happy_var_3) happy_var_2 ) -happyReduction_241 _ _ _ = notHappyAtAll +happyReduction_245 _ _ _ = notHappyAtAll -happyReduce_242 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_242 = happySpecReduce_3 75 happyReduction_242 -happyReduction_242 (HappyTerminal (Located happy_var_3 (Token (Sym ParenR ) _))) - (HappyAbsSyn45 happy_var_2) +happyReduce_246 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_246 = happySpecReduce_3 78 happyReduction_246 +happyReduction_246 (HappyTerminal (Located happy_var_3 (Token (Sym ParenR ) _))) + (HappyAbsSyn48 happy_var_2) (HappyTerminal (Located happy_var_1 (Token (Sym ParenL ) _))) - = HappyAbsSyn88 + = HappyAbsSyn91 (at (happy_var_1,happy_var_3) $ PTuple (reverse happy_var_2) ) -happyReduction_242 _ _ _ = notHappyAtAll +happyReduction_246 _ _ _ = notHappyAtAll -happyReduce_243 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_243 = happySpecReduce_2 75 happyReduction_243 -happyReduction_243 (HappyTerminal (Located happy_var_2 (Token (Sym BracketR) _))) +happyReduce_247 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_247 = happySpecReduce_2 78 happyReduction_247 +happyReduction_247 (HappyTerminal (Located happy_var_2 (Token (Sym BracketR) _))) (HappyTerminal (Located happy_var_1 (Token (Sym BracketL) _))) - = HappyAbsSyn88 + = HappyAbsSyn91 (at (happy_var_1,happy_var_2) $ PList [] ) -happyReduction_243 _ _ = notHappyAtAll +happyReduction_247 _ _ = notHappyAtAll -happyReduce_244 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_244 = happySpecReduce_3 75 happyReduction_244 -happyReduction_244 (HappyTerminal (Located happy_var_3 (Token (Sym BracketR) _))) - (HappyAbsSyn88 happy_var_2) +happyReduce_248 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_248 = happySpecReduce_3 78 happyReduction_248 +happyReduction_248 (HappyTerminal (Located happy_var_3 (Token (Sym BracketR) _))) + (HappyAbsSyn91 happy_var_2) (HappyTerminal (Located happy_var_1 (Token (Sym BracketL) _))) - = HappyAbsSyn88 + = HappyAbsSyn91 (at (happy_var_1,happy_var_3) $ PList [happy_var_2] ) -happyReduction_244 _ _ _ = notHappyAtAll +happyReduction_248 _ _ _ = notHappyAtAll -happyReduce_245 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_245 = happySpecReduce_3 75 happyReduction_245 -happyReduction_245 (HappyTerminal (Located happy_var_3 (Token (Sym BracketR) _))) - (HappyAbsSyn45 happy_var_2) +happyReduce_249 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_249 = happySpecReduce_3 78 happyReduction_249 +happyReduction_249 (HappyTerminal (Located happy_var_3 (Token (Sym BracketR) _))) + (HappyAbsSyn48 happy_var_2) (HappyTerminal (Located happy_var_1 (Token (Sym BracketL) _))) - = HappyAbsSyn88 + = HappyAbsSyn91 (at (happy_var_1,happy_var_3) $ PList (reverse happy_var_2) ) -happyReduction_245 _ _ _ = notHappyAtAll +happyReduction_249 _ _ _ = notHappyAtAll -happyReduce_246 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_246 = happyMonadReduce 2 75 happyReduction_246 -happyReduction_246 ((HappyTerminal (Located happy_var_2 (Token (Sym CurlyR ) _))) `HappyStk` +happyReduce_250 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_250 = happyMonadReduce 2 78 happyReduction_250 +happyReduction_250 ((HappyTerminal (Located happy_var_2 (Token (Sym CurlyR ) _))) `HappyStk` (HappyTerminal (Located happy_var_1 (Token (Sym CurlyL ) _))) `HappyStk` happyRest) tk = happyThen ((( mkRecord (rComb happy_var_1 happy_var_2) PRecord [])) - ) (\r -> happyReturn (HappyAbsSyn88 r)) + ) (\r -> happyReturn (HappyAbsSyn91 r)) -happyReduce_247 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_247 = happyMonadReduce 3 75 happyReduction_247 -happyReduction_247 ((HappyTerminal (Located happy_var_3 (Token (Sym CurlyR ) _))) `HappyStk` - (HappyAbsSyn93 happy_var_2) `HappyStk` +happyReduce_251 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_251 = happyMonadReduce 3 78 happyReduction_251 +happyReduction_251 ((HappyTerminal (Located happy_var_3 (Token (Sym CurlyR ) _))) `HappyStk` + (HappyAbsSyn96 happy_var_2) `HappyStk` (HappyTerminal (Located happy_var_1 (Token (Sym CurlyL ) _))) `HappyStk` happyRest) tk = happyThen ((( mkRecord (rComb happy_var_1 happy_var_3) PRecord happy_var_2)) - ) (\r -> happyReturn (HappyAbsSyn88 r)) + ) (\r -> happyReturn (HappyAbsSyn91 r)) -happyReduce_248 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_248 = happySpecReduce_3 76 happyReduction_248 -happyReduction_248 (HappyAbsSyn88 happy_var_3) +happyReduce_252 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_252 = happySpecReduce_3 79 happyReduction_252 +happyReduction_252 (HappyAbsSyn91 happy_var_3) _ - (HappyAbsSyn88 happy_var_1) - = HappyAbsSyn45 + (HappyAbsSyn91 happy_var_1) + = HappyAbsSyn48 ([happy_var_3, happy_var_1] ) -happyReduction_248 _ _ _ = notHappyAtAll +happyReduction_252 _ _ _ = notHappyAtAll -happyReduce_249 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_249 = happySpecReduce_3 76 happyReduction_249 -happyReduction_249 (HappyAbsSyn88 happy_var_3) +happyReduce_253 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_253 = happySpecReduce_3 79 happyReduction_253 +happyReduction_253 (HappyAbsSyn91 happy_var_3) _ - (HappyAbsSyn45 happy_var_1) - = HappyAbsSyn45 + (HappyAbsSyn48 happy_var_1) + = HappyAbsSyn48 (happy_var_3 : happy_var_1 ) -happyReduction_249 _ _ _ = notHappyAtAll +happyReduction_253 _ _ _ = notHappyAtAll -happyReduce_250 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_250 = happySpecReduce_3 77 happyReduction_250 -happyReduction_250 (HappyAbsSyn88 happy_var_3) +happyReduce_254 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_254 = happySpecReduce_3 80 happyReduction_254 +happyReduction_254 (HappyAbsSyn91 happy_var_3) _ - (HappyAbsSyn112 happy_var_1) - = HappyAbsSyn92 + (HappyAbsSyn115 happy_var_1) + = HappyAbsSyn95 (Named { name = happy_var_1, value = happy_var_3 } ) -happyReduction_250 _ _ _ = notHappyAtAll +happyReduction_254 _ _ _ = notHappyAtAll -happyReduce_251 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_251 = happySpecReduce_1 78 happyReduction_251 -happyReduction_251 (HappyAbsSyn92 happy_var_1) - = HappyAbsSyn93 +happyReduce_255 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_255 = happySpecReduce_1 81 happyReduction_255 +happyReduction_255 (HappyAbsSyn95 happy_var_1) + = HappyAbsSyn96 ([happy_var_1] ) -happyReduction_251 _ = notHappyAtAll +happyReduction_255 _ = notHappyAtAll -happyReduce_252 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_252 = happySpecReduce_3 78 happyReduction_252 -happyReduction_252 (HappyAbsSyn92 happy_var_3) +happyReduce_256 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_256 = happySpecReduce_3 81 happyReduction_256 +happyReduction_256 (HappyAbsSyn95 happy_var_3) _ - (HappyAbsSyn93 happy_var_1) - = HappyAbsSyn93 + (HappyAbsSyn96 happy_var_1) + = HappyAbsSyn96 (happy_var_3 : happy_var_1 ) -happyReduction_252 _ _ _ = notHappyAtAll +happyReduction_256 _ _ _ = notHappyAtAll -happyReduce_253 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_253 = happySpecReduce_1 79 happyReduction_253 -happyReduction_253 (HappyAbsSyn103 happy_var_1) - = HappyAbsSyn94 +happyReduce_257 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_257 = happySpecReduce_1 82 happyReduction_257 +happyReduction_257 (HappyAbsSyn106 happy_var_1) + = HappyAbsSyn97 (at happy_var_1 $ mkSchema [] [] happy_var_1 ) -happyReduction_253 _ = notHappyAtAll +happyReduction_257 _ = notHappyAtAll -happyReduce_254 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_254 = happySpecReduce_2 79 happyReduction_254 -happyReduction_254 (HappyAbsSyn103 happy_var_2) - (HappyAbsSyn95 happy_var_1) - = HappyAbsSyn94 +happyReduce_258 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_258 = happySpecReduce_2 82 happyReduction_258 +happyReduction_258 (HappyAbsSyn106 happy_var_2) + (HappyAbsSyn98 happy_var_1) + = HappyAbsSyn97 (at (happy_var_1,happy_var_2) $ mkSchema (thing happy_var_1) [] happy_var_2 ) -happyReduction_254 _ _ = notHappyAtAll +happyReduction_258 _ _ = notHappyAtAll -happyReduce_255 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_255 = happySpecReduce_2 79 happyReduction_255 -happyReduction_255 (HappyAbsSyn103 happy_var_2) - (HappyAbsSyn96 happy_var_1) - = HappyAbsSyn94 +happyReduce_259 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_259 = happySpecReduce_2 82 happyReduction_259 +happyReduction_259 (HappyAbsSyn106 happy_var_2) + (HappyAbsSyn99 happy_var_1) + = HappyAbsSyn97 (at (happy_var_1,happy_var_2) $ mkSchema [] (thing happy_var_1) happy_var_2 ) -happyReduction_255 _ _ = notHappyAtAll +happyReduction_259 _ _ = notHappyAtAll -happyReduce_256 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_256 = happySpecReduce_3 79 happyReduction_256 -happyReduction_256 (HappyAbsSyn103 happy_var_3) - (HappyAbsSyn96 happy_var_2) - (HappyAbsSyn95 happy_var_1) - = HappyAbsSyn94 +happyReduce_260 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_260 = happySpecReduce_3 82 happyReduction_260 +happyReduction_260 (HappyAbsSyn106 happy_var_3) + (HappyAbsSyn99 happy_var_2) + (HappyAbsSyn98 happy_var_1) + = HappyAbsSyn97 (at (happy_var_1,happy_var_3) $ mkSchema (thing happy_var_1) (thing happy_var_2) happy_var_3 ) -happyReduction_256 _ _ _ = notHappyAtAll +happyReduction_260 _ _ _ = notHappyAtAll -happyReduce_257 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_257 = happySpecReduce_2 80 happyReduction_257 -happyReduction_257 (HappyTerminal (Located happy_var_2 (Token (Sym CurlyR ) _))) +happyReduce_261 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_261 = happySpecReduce_2 83 happyReduction_261 +happyReduction_261 (HappyTerminal (Located happy_var_2 (Token (Sym CurlyR ) _))) (HappyTerminal (Located happy_var_1 (Token (Sym CurlyL ) _))) - = HappyAbsSyn95 + = HappyAbsSyn98 (Located (rComb happy_var_1 happy_var_2) [] ) -happyReduction_257 _ _ = notHappyAtAll +happyReduction_261 _ _ = notHappyAtAll -happyReduce_258 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_258 = happySpecReduce_3 80 happyReduction_258 -happyReduction_258 (HappyTerminal (Located happy_var_3 (Token (Sym CurlyR ) _))) - (HappyAbsSyn100 happy_var_2) +happyReduce_262 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_262 = happySpecReduce_3 83 happyReduction_262 +happyReduction_262 (HappyTerminal (Located happy_var_3 (Token (Sym CurlyR ) _))) + (HappyAbsSyn103 happy_var_2) (HappyTerminal (Located happy_var_1 (Token (Sym CurlyL ) _))) - = HappyAbsSyn95 + = HappyAbsSyn98 (Located (rComb happy_var_1 happy_var_3) (reverse happy_var_2) ) -happyReduction_258 _ _ _ = notHappyAtAll +happyReduction_262 _ _ _ = notHappyAtAll -happyReduce_259 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_259 = happySpecReduce_2 81 happyReduction_259 -happyReduction_259 (HappyAbsSyn96 happy_var_2) - (HappyAbsSyn96 happy_var_1) - = HappyAbsSyn96 +happyReduce_263 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_263 = happySpecReduce_2 84 happyReduction_263 +happyReduction_263 (HappyAbsSyn99 happy_var_2) + (HappyAbsSyn99 happy_var_1) + = HappyAbsSyn99 (at (happy_var_1,happy_var_2) $ fmap (++ thing happy_var_2) happy_var_1 ) -happyReduction_259 _ _ = notHappyAtAll +happyReduction_263 _ _ = notHappyAtAll -happyReduce_260 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_260 = happySpecReduce_1 81 happyReduction_260 -happyReduction_260 (HappyAbsSyn96 happy_var_1) - = HappyAbsSyn96 +happyReduce_264 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_264 = happySpecReduce_1 84 happyReduction_264 +happyReduction_264 (HappyAbsSyn99 happy_var_1) + = HappyAbsSyn99 (happy_var_1 ) -happyReduction_260 _ = notHappyAtAll +happyReduction_264 _ = notHappyAtAll -happyReduce_261 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_261 = happyMonadReduce 2 82 happyReduction_261 -happyReduction_261 ((HappyTerminal (Located happy_var_2 (Token (Sym FatArrR ) _))) `HappyStk` - (HappyAbsSyn103 happy_var_1) `HappyStk` +happyReduce_265 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_265 = happyMonadReduce 2 85 happyReduction_265 +happyReduction_265 ((HappyTerminal (Located happy_var_2 (Token (Sym FatArrR ) _))) `HappyStk` + (HappyAbsSyn106 happy_var_1) `HappyStk` happyRest) tk = happyThen ((( fmap (\x -> at (x,happy_var_2) x) (mkProp happy_var_1))) - ) (\r -> happyReturn (HappyAbsSyn96 r)) + ) (\r -> happyReturn (HappyAbsSyn99 r)) -happyReduce_262 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_262 = happySpecReduce_1 83 happyReduction_262 -happyReduction_262 (HappyTerminal (Located happy_var_1 (Token (Op Hash) _))) - = HappyAbsSyn98 +happyReduce_266 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_266 = happySpecReduce_1 86 happyReduction_266 +happyReduction_266 (HappyTerminal (Located happy_var_1 (Token (Op Hash) _))) + = HappyAbsSyn101 (Located happy_var_1 KNum ) -happyReduction_262 _ = notHappyAtAll +happyReduction_266 _ = notHappyAtAll -happyReduce_263 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_263 = happySpecReduce_1 83 happyReduction_263 -happyReduction_263 (HappyTerminal (Located happy_var_1 (Token (Op Mul) _))) - = HappyAbsSyn98 +happyReduce_267 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_267 = happySpecReduce_1 86 happyReduction_267 +happyReduction_267 (HappyTerminal (Located happy_var_1 (Token (Op Mul) _))) + = HappyAbsSyn101 (Located happy_var_1 KType ) -happyReduction_263 _ = notHappyAtAll +happyReduction_267 _ = notHappyAtAll -happyReduce_264 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_264 = happySpecReduce_1 83 happyReduction_264 -happyReduction_264 (HappyTerminal (Located happy_var_1 (Token (KW KW_Prop) _))) - = HappyAbsSyn98 +happyReduce_268 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_268 = happySpecReduce_1 86 happyReduction_268 +happyReduction_268 (HappyTerminal (Located happy_var_1 (Token (KW KW_Prop) _))) + = HappyAbsSyn101 (Located happy_var_1 KProp ) -happyReduction_264 _ = notHappyAtAll +happyReduction_268 _ = notHappyAtAll -happyReduce_265 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_265 = happySpecReduce_3 83 happyReduction_265 -happyReduction_265 (HappyAbsSyn98 happy_var_3) +happyReduce_269 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_269 = happySpecReduce_3 86 happyReduction_269 +happyReduction_269 (HappyAbsSyn101 happy_var_3) _ - (HappyAbsSyn98 happy_var_1) - = HappyAbsSyn98 + (HappyAbsSyn101 happy_var_1) + = HappyAbsSyn101 (combLoc KFun happy_var_1 happy_var_3 ) -happyReduction_265 _ _ _ = notHappyAtAll +happyReduction_269 _ _ _ = notHappyAtAll -happyReduce_266 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_266 = happyMonadReduce 1 84 happyReduction_266 -happyReduction_266 ((HappyAbsSyn112 happy_var_1) `HappyStk` +happyReduce_270 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_270 = happyMonadReduce 1 87 happyReduction_270 +happyReduction_270 ((HappyAbsSyn115 happy_var_1) `HappyStk` happyRest) tk = happyThen ((( mkTParam happy_var_1 Nothing)) - ) (\r -> happyReturn (HappyAbsSyn99 r)) + ) (\r -> happyReturn (HappyAbsSyn102 r)) -happyReduce_267 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_267 = happyMonadReduce 3 84 happyReduction_267 -happyReduction_267 ((HappyAbsSyn98 happy_var_3) `HappyStk` +happyReduce_271 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_271 = happyMonadReduce 3 87 happyReduction_271 +happyReduction_271 ((HappyAbsSyn101 happy_var_3) `HappyStk` _ `HappyStk` - (HappyAbsSyn112 happy_var_1) `HappyStk` + (HappyAbsSyn115 happy_var_1) `HappyStk` happyRest) tk = happyThen ((( mkTParam (at (happy_var_1,happy_var_3) happy_var_1) (Just (thing happy_var_3)))) - ) (\r -> happyReturn (HappyAbsSyn99 r)) + ) (\r -> happyReturn (HappyAbsSyn102 r)) -happyReduce_268 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_268 = happySpecReduce_1 85 happyReduction_268 -happyReduction_268 (HappyAbsSyn99 happy_var_1) - = HappyAbsSyn100 +happyReduce_272 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_272 = happySpecReduce_1 88 happyReduction_272 +happyReduction_272 (HappyAbsSyn102 happy_var_1) + = HappyAbsSyn103 ([happy_var_1] ) -happyReduction_268 _ = notHappyAtAll +happyReduction_272 _ = notHappyAtAll -happyReduce_269 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_269 = happySpecReduce_3 85 happyReduction_269 -happyReduction_269 (HappyAbsSyn99 happy_var_3) +happyReduce_273 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_273 = happySpecReduce_3 88 happyReduction_273 +happyReduction_273 (HappyAbsSyn102 happy_var_3) _ - (HappyAbsSyn100 happy_var_1) - = HappyAbsSyn100 + (HappyAbsSyn103 happy_var_1) + = HappyAbsSyn103 (happy_var_3 : happy_var_1 ) -happyReduction_269 _ _ _ = notHappyAtAll +happyReduction_273 _ _ _ = notHappyAtAll -happyReduce_270 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_270 = happyMonadReduce 1 86 happyReduction_270 -happyReduction_270 ((HappyAbsSyn112 happy_var_1) `HappyStk` +happyReduce_274 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_274 = happyMonadReduce 1 89 happyReduction_274 +happyReduction_274 ((HappyAbsSyn115 happy_var_1) `HappyStk` happyRest) tk = happyThen ((( mkTParam happy_var_1 Nothing)) - ) (\r -> happyReturn (HappyAbsSyn99 r)) + ) (\r -> happyReturn (HappyAbsSyn102 r)) -happyReduce_271 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_271 = happyMonadReduce 5 86 happyReduction_271 -happyReduction_271 ((HappyTerminal (Located happy_var_5 (Token (Sym ParenR ) _))) `HappyStk` - (HappyAbsSyn98 happy_var_4) `HappyStk` +happyReduce_275 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_275 = happyMonadReduce 5 89 happyReduction_275 +happyReduction_275 ((HappyTerminal (Located happy_var_5 (Token (Sym ParenR ) _))) `HappyStk` + (HappyAbsSyn101 happy_var_4) `HappyStk` _ `HappyStk` - (HappyAbsSyn112 happy_var_2) `HappyStk` + (HappyAbsSyn115 happy_var_2) `HappyStk` (HappyTerminal (Located happy_var_1 (Token (Sym ParenL ) _))) `HappyStk` happyRest) tk = happyThen ((( mkTParam (at (happy_var_1,happy_var_5) happy_var_2) (Just (thing happy_var_4)))) - ) (\r -> happyReturn (HappyAbsSyn99 r)) + ) (\r -> happyReturn (HappyAbsSyn102 r)) -happyReduce_272 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_272 = happySpecReduce_1 87 happyReduction_272 -happyReduction_272 (HappyAbsSyn99 happy_var_1) - = HappyAbsSyn100 +happyReduce_276 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_276 = happySpecReduce_1 90 happyReduction_276 +happyReduction_276 (HappyAbsSyn102 happy_var_1) + = HappyAbsSyn103 ([happy_var_1] ) -happyReduction_272 _ = notHappyAtAll +happyReduction_276 _ = notHappyAtAll -happyReduce_273 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_273 = happySpecReduce_2 87 happyReduction_273 -happyReduction_273 (HappyAbsSyn99 happy_var_2) - (HappyAbsSyn100 happy_var_1) - = HappyAbsSyn100 +happyReduce_277 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_277 = happySpecReduce_2 90 happyReduction_277 +happyReduction_277 (HappyAbsSyn102 happy_var_2) + (HappyAbsSyn103 happy_var_1) + = HappyAbsSyn103 (happy_var_2 : happy_var_1 ) -happyReduction_273 _ _ = notHappyAtAll +happyReduction_277 _ _ = notHappyAtAll -happyReduce_274 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_274 = happySpecReduce_3 88 happyReduction_274 -happyReduction_274 (HappyAbsSyn103 happy_var_3) +happyReduce_278 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_278 = happySpecReduce_3 91 happyReduction_278 +happyReduction_278 (HappyAbsSyn106 happy_var_3) _ - (HappyAbsSyn103 happy_var_1) - = HappyAbsSyn103 + (HappyAbsSyn106 happy_var_1) + = HappyAbsSyn106 (at (happy_var_1,happy_var_3) $ TFun happy_var_1 happy_var_3 ) -happyReduction_274 _ _ _ = notHappyAtAll +happyReduction_278 _ _ _ = notHappyAtAll -happyReduce_275 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_275 = happySpecReduce_1 88 happyReduction_275 -happyReduction_275 (HappyAbsSyn103 happy_var_1) - = HappyAbsSyn103 +happyReduce_279 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_279 = happySpecReduce_1 91 happyReduction_279 +happyReduction_279 (HappyAbsSyn106 happy_var_1) + = HappyAbsSyn106 (happy_var_1 ) -happyReduction_275 _ = notHappyAtAll +happyReduction_279 _ = notHappyAtAll -happyReduce_276 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_276 = happySpecReduce_3 89 happyReduction_276 -happyReduction_276 (HappyAbsSyn103 happy_var_3) - (HappyAbsSyn44 happy_var_2) - (HappyAbsSyn103 happy_var_1) - = HappyAbsSyn103 +happyReduce_280 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_280 = happySpecReduce_3 92 happyReduction_280 +happyReduction_280 (HappyAbsSyn106 happy_var_3) + (HappyAbsSyn47 happy_var_2) + (HappyAbsSyn106 happy_var_1) + = HappyAbsSyn106 (at (happy_var_1,happy_var_3) $ TInfix happy_var_1 happy_var_2 defaultFixity happy_var_3 ) -happyReduction_276 _ _ _ = notHappyAtAll +happyReduction_280 _ _ _ = notHappyAtAll -happyReduce_277 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_277 = happySpecReduce_1 89 happyReduction_277 -happyReduction_277 (HappyAbsSyn103 happy_var_1) - = HappyAbsSyn103 +happyReduce_281 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_281 = happySpecReduce_1 92 happyReduction_281 +happyReduction_281 (HappyAbsSyn106 happy_var_1) + = HappyAbsSyn106 (happy_var_1 ) -happyReduction_277 _ = notHappyAtAll +happyReduction_281 _ = notHappyAtAll -happyReduce_278 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_278 = happySpecReduce_2 90 happyReduction_278 -happyReduction_278 (HappyAbsSyn103 happy_var_2) - (HappyAbsSyn108 happy_var_1) - = HappyAbsSyn103 +happyReduce_282 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_282 = happySpecReduce_2 93 happyReduction_282 +happyReduction_282 (HappyAbsSyn106 happy_var_2) + (HappyAbsSyn111 happy_var_1) + = HappyAbsSyn106 (at (happy_var_1,happy_var_2) $ foldr TSeq happy_var_2 (reverse (thing happy_var_1)) ) -happyReduction_278 _ _ = notHappyAtAll +happyReduction_282 _ _ = notHappyAtAll -happyReduce_279 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_279 = happySpecReduce_2 90 happyReduction_279 -happyReduction_279 (HappyAbsSyn107 happy_var_2) - (HappyAbsSyn116 happy_var_1) - = HappyAbsSyn103 +happyReduce_283 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_283 = happySpecReduce_2 93 happyReduction_283 +happyReduction_283 (HappyAbsSyn110 happy_var_2) + (HappyAbsSyn119 happy_var_1) + = HappyAbsSyn106 (at (happy_var_1,head happy_var_2) $ TUser (thing happy_var_1) (reverse happy_var_2) ) -happyReduction_279 _ _ = notHappyAtAll +happyReduction_283 _ _ = notHappyAtAll -happyReduce_280 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_280 = happySpecReduce_1 90 happyReduction_280 -happyReduction_280 (HappyAbsSyn103 happy_var_1) - = HappyAbsSyn103 +happyReduce_284 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_284 = happySpecReduce_1 93 happyReduction_284 +happyReduction_284 (HappyAbsSyn106 happy_var_1) + = HappyAbsSyn106 (happy_var_1 ) -happyReduction_280 _ = notHappyAtAll +happyReduction_284 _ = notHappyAtAll -happyReduce_281 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_281 = happySpecReduce_1 91 happyReduction_281 -happyReduction_281 (HappyAbsSyn116 happy_var_1) - = HappyAbsSyn103 +happyReduce_285 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_285 = happySpecReduce_1 94 happyReduction_285 +happyReduction_285 (HappyAbsSyn119 happy_var_1) + = HappyAbsSyn106 (at happy_var_1 $ TUser (thing happy_var_1) [] ) -happyReduction_281 _ = notHappyAtAll +happyReduction_285 _ = notHappyAtAll -happyReduce_282 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_282 = happySpecReduce_3 91 happyReduction_282 -happyReduction_282 _ - (HappyAbsSyn44 happy_var_2) +happyReduce_286 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_286 = happySpecReduce_3 94 happyReduction_286 +happyReduction_286 _ + (HappyAbsSyn47 happy_var_2) (HappyTerminal (Located happy_var_1 (Token (Sym ParenL ) _))) - = HappyAbsSyn103 + = HappyAbsSyn106 (at happy_var_1 $ TUser (thing happy_var_2) [] ) -happyReduction_282 _ _ _ = notHappyAtAll +happyReduction_286 _ _ _ = notHappyAtAll -happyReduce_283 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_283 = happySpecReduce_1 91 happyReduction_283 -happyReduction_283 (HappyTerminal (happy_var_1@(Located _ (Token (Num {}) _)))) - = HappyAbsSyn103 +happyReduce_287 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_287 = happySpecReduce_1 94 happyReduction_287 +happyReduction_287 (HappyTerminal (happy_var_1@(Located _ (Token (Num {}) _)))) + = HappyAbsSyn106 (at happy_var_1 $ TNum (getNum happy_var_1) ) -happyReduction_283 _ = notHappyAtAll +happyReduction_287 _ = notHappyAtAll -happyReduce_284 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_284 = happySpecReduce_1 91 happyReduction_284 -happyReduction_284 (HappyTerminal (happy_var_1@(Located _ (Token (ChrLit {}) _)))) - = HappyAbsSyn103 +happyReduce_288 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_288 = happySpecReduce_1 94 happyReduction_288 +happyReduction_288 (HappyTerminal (happy_var_1@(Located _ (Token (ChrLit {}) _)))) + = HappyAbsSyn106 (at happy_var_1 $ TChar (getChr happy_var_1) ) -happyReduction_284 _ = notHappyAtAll +happyReduction_288 _ = notHappyAtAll -happyReduce_285 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_285 = happySpecReduce_3 91 happyReduction_285 -happyReduction_285 (HappyTerminal (Located happy_var_3 (Token (Sym BracketR) _))) - (HappyAbsSyn103 happy_var_2) +happyReduce_289 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_289 = happySpecReduce_3 94 happyReduction_289 +happyReduction_289 (HappyTerminal (Located happy_var_3 (Token (Sym BracketR) _))) + (HappyAbsSyn106 happy_var_2) (HappyTerminal (Located happy_var_1 (Token (Sym BracketL) _))) - = HappyAbsSyn103 + = HappyAbsSyn106 (at (happy_var_1,happy_var_3) $ TSeq happy_var_2 TBit ) -happyReduction_285 _ _ _ = notHappyAtAll +happyReduction_289 _ _ _ = notHappyAtAll -happyReduce_286 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_286 = happySpecReduce_3 91 happyReduction_286 -happyReduction_286 (HappyTerminal (Located happy_var_3 (Token (Sym ParenR ) _))) - (HappyAbsSyn103 happy_var_2) +happyReduce_290 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_290 = happySpecReduce_3 94 happyReduction_290 +happyReduction_290 (HappyTerminal (Located happy_var_3 (Token (Sym ParenR ) _))) + (HappyAbsSyn106 happy_var_2) (HappyTerminal (Located happy_var_1 (Token (Sym ParenL ) _))) - = HappyAbsSyn103 + = HappyAbsSyn106 (at (happy_var_1,happy_var_3) $ TParens happy_var_2 ) -happyReduction_286 _ _ _ = notHappyAtAll +happyReduction_290 _ _ _ = notHappyAtAll -happyReduce_287 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_287 = happySpecReduce_2 91 happyReduction_287 -happyReduction_287 (HappyTerminal (Located happy_var_2 (Token (Sym ParenR ) _))) +happyReduce_291 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_291 = happySpecReduce_2 94 happyReduction_291 +happyReduction_291 (HappyTerminal (Located happy_var_2 (Token (Sym ParenR ) _))) (HappyTerminal (Located happy_var_1 (Token (Sym ParenL ) _))) - = HappyAbsSyn103 + = HappyAbsSyn106 (at (happy_var_1,happy_var_2) $ TTuple [] ) -happyReduction_287 _ _ = notHappyAtAll +happyReduction_291 _ _ = notHappyAtAll -happyReduce_288 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_288 = happySpecReduce_3 91 happyReduction_288 -happyReduction_288 (HappyTerminal (Located happy_var_3 (Token (Sym ParenR ) _))) - (HappyAbsSyn109 happy_var_2) +happyReduce_292 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_292 = happySpecReduce_3 94 happyReduction_292 +happyReduction_292 (HappyTerminal (Located happy_var_3 (Token (Sym ParenR ) _))) + (HappyAbsSyn112 happy_var_2) (HappyTerminal (Located happy_var_1 (Token (Sym ParenL ) _))) - = HappyAbsSyn103 + = HappyAbsSyn106 (at (happy_var_1,happy_var_3) $ TTuple (reverse happy_var_2) ) -happyReduction_288 _ _ _ = notHappyAtAll +happyReduction_292 _ _ _ = notHappyAtAll -happyReduce_289 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_289 = happyMonadReduce 2 91 happyReduction_289 -happyReduction_289 ((HappyTerminal (Located happy_var_2 (Token (Sym CurlyR ) _))) `HappyStk` +happyReduce_293 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_293 = happyMonadReduce 2 94 happyReduction_293 +happyReduction_293 ((HappyTerminal (Located happy_var_2 (Token (Sym CurlyR ) _))) `HappyStk` (HappyTerminal (Located happy_var_1 (Token (Sym CurlyL ) _))) `HappyStk` happyRest) tk = happyThen ((( mkRecord (rComb happy_var_1 happy_var_2) TRecord [])) - ) (\r -> happyReturn (HappyAbsSyn103 r)) + ) (\r -> happyReturn (HappyAbsSyn106 r)) -happyReduce_290 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_290 = happyMonadReduce 3 91 happyReduction_290 -happyReduction_290 ((HappyTerminal (Located happy_var_3 (Token (Sym CurlyR ) _))) `HappyStk` - (HappyAbsSyn111 happy_var_2) `HappyStk` +happyReduce_294 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_294 = happyMonadReduce 3 94 happyReduction_294 +happyReduction_294 ((HappyTerminal (Located happy_var_3 (Token (Sym CurlyR ) _))) `HappyStk` + (HappyAbsSyn114 happy_var_2) `HappyStk` (HappyTerminal (Located happy_var_1 (Token (Sym CurlyL ) _))) `HappyStk` happyRest) tk = happyThen ((( mkRecord (rComb happy_var_1 happy_var_3) TRecord happy_var_2)) - ) (\r -> happyReturn (HappyAbsSyn103 r)) + ) (\r -> happyReturn (HappyAbsSyn106 r)) -happyReduce_291 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_291 = happySpecReduce_1 91 happyReduction_291 -happyReduction_291 (HappyTerminal (Located happy_var_1 (Token (Sym Underscore ) _))) - = HappyAbsSyn103 +happyReduce_295 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_295 = happySpecReduce_1 94 happyReduction_295 +happyReduction_295 (HappyTerminal (Located happy_var_1 (Token (Sym Underscore ) _))) + = HappyAbsSyn106 (at happy_var_1 TWild ) -happyReduction_291 _ = notHappyAtAll +happyReduction_295 _ = notHappyAtAll -happyReduce_292 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_292 = happySpecReduce_1 92 happyReduction_292 -happyReduction_292 (HappyAbsSyn103 happy_var_1) - = HappyAbsSyn107 +happyReduce_296 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_296 = happySpecReduce_1 95 happyReduction_296 +happyReduction_296 (HappyAbsSyn106 happy_var_1) + = HappyAbsSyn110 ([ happy_var_1 ] ) -happyReduction_292 _ = notHappyAtAll +happyReduction_296 _ = notHappyAtAll -happyReduce_293 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_293 = happySpecReduce_2 92 happyReduction_293 -happyReduction_293 (HappyAbsSyn103 happy_var_2) - (HappyAbsSyn107 happy_var_1) - = HappyAbsSyn107 +happyReduce_297 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_297 = happySpecReduce_2 95 happyReduction_297 +happyReduction_297 (HappyAbsSyn106 happy_var_2) + (HappyAbsSyn110 happy_var_1) + = HappyAbsSyn110 (happy_var_2 : happy_var_1 ) -happyReduction_293 _ _ = notHappyAtAll +happyReduction_297 _ _ = notHappyAtAll -happyReduce_294 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_294 = happySpecReduce_3 93 happyReduction_294 -happyReduction_294 (HappyTerminal (Located happy_var_3 (Token (Sym BracketR) _))) - (HappyAbsSyn103 happy_var_2) +happyReduce_298 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_298 = happySpecReduce_3 96 happyReduction_298 +happyReduction_298 (HappyTerminal (Located happy_var_3 (Token (Sym BracketR) _))) + (HappyAbsSyn106 happy_var_2) (HappyTerminal (Located happy_var_1 (Token (Sym BracketL) _))) - = HappyAbsSyn108 + = HappyAbsSyn111 (Located (rComb happy_var_1 happy_var_3) [ happy_var_2 ] ) -happyReduction_294 _ _ _ = notHappyAtAll +happyReduction_298 _ _ _ = notHappyAtAll -happyReduce_295 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_295 = happyReduce 4 93 happyReduction_295 -happyReduction_295 ((HappyTerminal (Located happy_var_4 (Token (Sym BracketR) _))) `HappyStk` - (HappyAbsSyn103 happy_var_3) `HappyStk` +happyReduce_299 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_299 = happyReduce 4 96 happyReduction_299 +happyReduction_299 ((HappyTerminal (Located happy_var_4 (Token (Sym BracketR) _))) `HappyStk` + (HappyAbsSyn106 happy_var_3) `HappyStk` _ `HappyStk` - (HappyAbsSyn108 happy_var_1) `HappyStk` + (HappyAbsSyn111 happy_var_1) `HappyStk` happyRest) - = HappyAbsSyn108 + = HappyAbsSyn111 (at (happy_var_1,happy_var_4) (fmap (happy_var_3 :) happy_var_1) ) `HappyStk` happyRest -happyReduce_296 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_296 = happySpecReduce_3 94 happyReduction_296 -happyReduction_296 (HappyAbsSyn103 happy_var_3) +happyReduce_300 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_300 = happySpecReduce_3 97 happyReduction_300 +happyReduction_300 (HappyAbsSyn106 happy_var_3) _ - (HappyAbsSyn103 happy_var_1) - = HappyAbsSyn109 + (HappyAbsSyn106 happy_var_1) + = HappyAbsSyn112 ([ happy_var_3, happy_var_1] ) -happyReduction_296 _ _ _ = notHappyAtAll +happyReduction_300 _ _ _ = notHappyAtAll -happyReduce_297 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_297 = happySpecReduce_3 94 happyReduction_297 -happyReduction_297 (HappyAbsSyn103 happy_var_3) +happyReduce_301 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_301 = happySpecReduce_3 97 happyReduction_301 +happyReduction_301 (HappyAbsSyn106 happy_var_3) _ - (HappyAbsSyn109 happy_var_1) - = HappyAbsSyn109 + (HappyAbsSyn112 happy_var_1) + = HappyAbsSyn112 (happy_var_3 : happy_var_1 ) -happyReduction_297 _ _ _ = notHappyAtAll +happyReduction_301 _ _ _ = notHappyAtAll -happyReduce_298 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_298 = happySpecReduce_3 95 happyReduction_298 -happyReduction_298 (HappyAbsSyn103 happy_var_3) +happyReduce_302 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_302 = happySpecReduce_3 98 happyReduction_302 +happyReduction_302 (HappyAbsSyn106 happy_var_3) _ - (HappyAbsSyn112 happy_var_1) - = HappyAbsSyn110 + (HappyAbsSyn115 happy_var_1) + = HappyAbsSyn113 (Named { name = happy_var_1, value = happy_var_3 } ) -happyReduction_298 _ _ _ = notHappyAtAll +happyReduction_302 _ _ _ = notHappyAtAll -happyReduce_299 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_299 = happySpecReduce_1 96 happyReduction_299 -happyReduction_299 (HappyAbsSyn110 happy_var_1) - = HappyAbsSyn111 +happyReduce_303 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_303 = happySpecReduce_1 99 happyReduction_303 +happyReduction_303 (HappyAbsSyn113 happy_var_1) + = HappyAbsSyn114 ([happy_var_1] ) -happyReduction_299 _ = notHappyAtAll +happyReduction_303 _ = notHappyAtAll -happyReduce_300 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_300 = happySpecReduce_3 96 happyReduction_300 -happyReduction_300 (HappyAbsSyn110 happy_var_3) +happyReduce_304 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_304 = happySpecReduce_3 99 happyReduction_304 +happyReduction_304 (HappyAbsSyn113 happy_var_3) _ - (HappyAbsSyn111 happy_var_1) - = HappyAbsSyn111 + (HappyAbsSyn114 happy_var_1) + = HappyAbsSyn114 (happy_var_3 : happy_var_1 ) -happyReduction_300 _ _ _ = notHappyAtAll +happyReduction_304 _ _ _ = notHappyAtAll -happyReduce_301 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_301 = happySpecReduce_1 97 happyReduction_301 -happyReduction_301 (HappyTerminal (happy_var_1@(Located _ (Token (Ident [] _) _)))) - = HappyAbsSyn112 +happyReduce_305 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_305 = happySpecReduce_1 100 happyReduction_305 +happyReduction_305 (HappyTerminal (happy_var_1@(Located _ (Token (Ident [] _) _)))) + = HappyAbsSyn115 (let Token (Ident _ str) _ = thing happy_var_1 in happy_var_1 { thing = mkIdent str } ) -happyReduction_301 _ = notHappyAtAll +happyReduction_305 _ = notHappyAtAll -happyReduce_302 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_302 = happySpecReduce_1 97 happyReduction_302 -happyReduction_302 (HappyTerminal (Located happy_var_1 (Token (KW KW_x) _))) - = HappyAbsSyn112 +happyReduce_306 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_306 = happySpecReduce_1 100 happyReduction_306 +happyReduction_306 (HappyTerminal (Located happy_var_1 (Token (KW KW_x) _))) + = HappyAbsSyn115 (Located { srcRange = happy_var_1, thing = mkIdent "x" } ) -happyReduction_302 _ = notHappyAtAll +happyReduction_306 _ = notHappyAtAll -happyReduce_303 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_303 = happySpecReduce_1 97 happyReduction_303 -happyReduction_303 (HappyTerminal (Located happy_var_1 (Token (KW KW_private) _))) - = HappyAbsSyn112 +happyReduce_307 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_307 = happySpecReduce_1 100 happyReduction_307 +happyReduction_307 (HappyTerminal (Located happy_var_1 (Token (KW KW_private) _))) + = HappyAbsSyn115 (Located { srcRange = happy_var_1, thing = mkIdent "private" } ) -happyReduction_303 _ = notHappyAtAll +happyReduction_307 _ = notHappyAtAll -happyReduce_304 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_304 = happySpecReduce_1 97 happyReduction_304 -happyReduction_304 (HappyTerminal (Located happy_var_1 (Token (KW KW_as) _))) - = HappyAbsSyn112 +happyReduce_308 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_308 = happySpecReduce_1 100 happyReduction_308 +happyReduction_308 (HappyTerminal (Located happy_var_1 (Token (KW KW_as) _))) + = HappyAbsSyn115 (Located { srcRange = happy_var_1, thing = mkIdent "as" } ) -happyReduction_304 _ = notHappyAtAll +happyReduction_308 _ = notHappyAtAll -happyReduce_305 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_305 = happySpecReduce_1 97 happyReduction_305 -happyReduction_305 (HappyTerminal (Located happy_var_1 (Token (KW KW_hiding) _))) - = HappyAbsSyn112 +happyReduce_309 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_309 = happySpecReduce_1 100 happyReduction_309 +happyReduction_309 (HappyTerminal (Located happy_var_1 (Token (KW KW_hiding) _))) + = HappyAbsSyn115 (Located { srcRange = happy_var_1, thing = mkIdent "hiding" } ) -happyReduction_305 _ = notHappyAtAll +happyReduction_309 _ = notHappyAtAll -happyReduce_306 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_306 = happySpecReduce_1 98 happyReduction_306 -happyReduction_306 (HappyAbsSyn112 happy_var_1) - = HappyAbsSyn44 +happyReduce_310 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_310 = happySpecReduce_1 101 happyReduction_310 +happyReduction_310 (HappyAbsSyn115 happy_var_1) + = HappyAbsSyn47 (fmap mkUnqual happy_var_1 ) -happyReduction_306 _ = notHappyAtAll +happyReduction_310 _ = notHappyAtAll -happyReduce_307 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_307 = happySpecReduce_1 99 happyReduction_307 -happyReduction_307 (HappyAbsSyn112 happy_var_1) - = HappyAbsSyn114 +happyReduce_311 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_311 = happySpecReduce_1 102 happyReduction_311 +happyReduction_311 (HappyAbsSyn115 happy_var_1) + = HappyAbsSyn117 (fmap (mkModName . (:[]) . identText) happy_var_1 ) -happyReduction_307 _ = notHappyAtAll +happyReduction_311 _ = notHappyAtAll -happyReduce_308 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_308 = happySpecReduce_1 99 happyReduction_308 -happyReduction_308 (HappyTerminal (happy_var_1@(Located _ (Token Ident{} _)))) - = HappyAbsSyn114 +happyReduce_312 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_312 = happySpecReduce_1 102 happyReduction_312 +happyReduction_312 (HappyTerminal (happy_var_1@(Located _ (Token Ident{} _)))) + = HappyAbsSyn117 (let Token (Ident ns i) _ = thing happy_var_1 in mkModName (ns ++ [i]) A.<$ happy_var_1 ) -happyReduction_308 _ = notHappyAtAll +happyReduction_312 _ = notHappyAtAll -happyReduce_309 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_309 = happySpecReduce_1 100 happyReduction_309 -happyReduction_309 (HappyAbsSyn114 happy_var_1) - = HappyAbsSyn114 +happyReduce_313 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_313 = happySpecReduce_1 103 happyReduction_313 +happyReduction_313 (HappyAbsSyn117 happy_var_1) + = HappyAbsSyn117 (happy_var_1 ) -happyReduction_309 _ = notHappyAtAll +happyReduction_313 _ = notHappyAtAll -happyReduce_310 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_310 = happySpecReduce_2 100 happyReduction_310 -happyReduction_310 (HappyAbsSyn114 happy_var_2) +happyReduce_314 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_314 = happySpecReduce_2 103 happyReduction_314 +happyReduction_314 (HappyAbsSyn117 happy_var_2) _ - = HappyAbsSyn114 + = HappyAbsSyn117 (fmap paramInstModName happy_var_2 ) -happyReduction_310 _ _ = notHappyAtAll +happyReduction_314 _ _ = notHappyAtAll -happyReduce_311 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_311 = happySpecReduce_1 101 happyReduction_311 -happyReduction_311 (HappyAbsSyn44 happy_var_1) - = HappyAbsSyn116 +happyReduce_315 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_315 = happySpecReduce_1 104 happyReduction_315 +happyReduction_315 (HappyAbsSyn47 happy_var_1) + = HappyAbsSyn119 (happy_var_1 ) -happyReduction_311 _ = notHappyAtAll +happyReduction_315 _ = notHappyAtAll -happyReduce_312 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_312 = happySpecReduce_1 101 happyReduction_312 -happyReduction_312 (HappyTerminal (happy_var_1@(Located _ (Token Ident{} _)))) - = HappyAbsSyn116 +happyReduce_316 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_316 = happySpecReduce_1 104 happyReduction_316 +happyReduction_316 (HappyTerminal (happy_var_1@(Located _ (Token Ident{} _)))) + = HappyAbsSyn119 (let Token (Ident ns i) _ = thing happy_var_1 in mkQual (mkModName ns) (mkIdent i) A.<$ happy_var_1 ) -happyReduction_312 _ = notHappyAtAll +happyReduction_316 _ = notHappyAtAll -happyReduce_313 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_313 = happySpecReduce_1 102 happyReduction_313 -happyReduction_313 (HappyAbsSyn116 happy_var_1) - = HappyAbsSyn116 +happyReduce_317 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_317 = happySpecReduce_1 105 happyReduction_317 +happyReduction_317 (HappyAbsSyn119 happy_var_1) + = HappyAbsSyn119 (happy_var_1 ) -happyReduction_313 _ = notHappyAtAll +happyReduction_317 _ = notHappyAtAll -happyReduce_314 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_314 = happySpecReduce_1 102 happyReduction_314 -happyReduction_314 (HappyAbsSyn44 happy_var_1) - = HappyAbsSyn116 +happyReduce_318 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_318 = happySpecReduce_1 105 happyReduction_318 +happyReduction_318 (HappyAbsSyn47 happy_var_1) + = HappyAbsSyn119 (happy_var_1 ) -happyReduction_314 _ = notHappyAtAll +happyReduction_318 _ = notHappyAtAll -happyReduce_315 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_315 = happySpecReduce_3 102 happyReduction_315 -happyReduction_315 _ - (HappyAbsSyn44 happy_var_2) +happyReduce_319 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_319 = happySpecReduce_3 105 happyReduction_319 +happyReduction_319 _ + (HappyAbsSyn47 happy_var_2) _ - = HappyAbsSyn116 + = HappyAbsSyn119 (happy_var_2 ) -happyReduction_315 _ _ _ = notHappyAtAll +happyReduction_319 _ _ _ = notHappyAtAll -happyReduce_316 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_316 = happySpecReduce_1 103 happyReduction_316 -happyReduction_316 (HappyAbsSyn116 happy_var_1) - = HappyAbsSyn103 +happyReduce_320 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_320 = happySpecReduce_1 106 happyReduction_320 +happyReduction_320 (HappyAbsSyn119 happy_var_1) + = HappyAbsSyn106 (at happy_var_1 $ TUser (thing happy_var_1) [] ) -happyReduction_316 _ = notHappyAtAll +happyReduction_320 _ = notHappyAtAll -happyReduce_317 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_317 = happySpecReduce_1 103 happyReduction_317 -happyReduction_317 (HappyTerminal (happy_var_1@(Located _ (Token (Num {}) _)))) - = HappyAbsSyn103 +happyReduce_321 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_321 = happySpecReduce_1 106 happyReduction_321 +happyReduction_321 (HappyTerminal (happy_var_1@(Located _ (Token (Num {}) _)))) + = HappyAbsSyn106 (at happy_var_1 $ TNum (getNum happy_var_1) ) -happyReduction_317 _ = notHappyAtAll +happyReduction_321 _ = notHappyAtAll -happyReduce_318 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_318 = happyMonadReduce 3 103 happyReduction_318 -happyReduction_318 ((HappyTerminal (Located happy_var_3 (Token (Sym ParenR ) _))) `HappyStk` - (HappyAbsSyn103 happy_var_2) `HappyStk` +happyReduce_322 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_322 = happyMonadReduce 3 106 happyReduction_322 +happyReduction_322 ((HappyTerminal (Located happy_var_3 (Token (Sym ParenR ) _))) `HappyStk` + (HappyAbsSyn106 happy_var_2) `HappyStk` (HappyTerminal (Located happy_var_1 (Token (Sym ParenL ) _))) `HappyStk` happyRest) tk = happyThen ((( validDemotedType (rComb happy_var_1 happy_var_3) happy_var_2)) - ) (\r -> happyReturn (HappyAbsSyn103 r)) + ) (\r -> happyReturn (HappyAbsSyn106 r)) -happyReduce_319 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_319 = happySpecReduce_2 103 happyReduction_319 -happyReduction_319 (HappyTerminal (Located happy_var_2 (Token (Sym CurlyR ) _))) +happyReduce_323 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_323 = happySpecReduce_2 106 happyReduction_323 +happyReduction_323 (HappyTerminal (Located happy_var_2 (Token (Sym CurlyR ) _))) (HappyTerminal (Located happy_var_1 (Token (Sym CurlyL ) _))) - = HappyAbsSyn103 + = HappyAbsSyn106 (at (happy_var_1,happy_var_2) (TTyApp []) ) -happyReduction_319 _ _ = notHappyAtAll +happyReduction_323 _ _ = notHappyAtAll -happyReduce_320 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_320 = happySpecReduce_3 103 happyReduction_320 -happyReduction_320 (HappyTerminal (Located happy_var_3 (Token (Sym CurlyR ) _))) - (HappyAbsSyn111 happy_var_2) +happyReduce_324 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_324 = happySpecReduce_3 106 happyReduction_324 +happyReduction_324 (HappyTerminal (Located happy_var_3 (Token (Sym CurlyR ) _))) + (HappyAbsSyn114 happy_var_2) (HappyTerminal (Located happy_var_1 (Token (Sym CurlyL ) _))) - = HappyAbsSyn103 + = HappyAbsSyn106 (at (happy_var_1,happy_var_3) (TTyApp (reverse happy_var_2)) ) -happyReduction_320 _ _ _ = notHappyAtAll +happyReduction_324 _ _ _ = notHappyAtAll -happyReduce_321 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_321 = happySpecReduce_3 103 happyReduction_321 -happyReduction_321 (HappyTerminal (Located happy_var_3 (Token (Sym CurlyR ) _))) - (HappyAbsSyn103 happy_var_2) +happyReduce_325 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_325 = happySpecReduce_3 106 happyReduction_325 +happyReduction_325 (HappyTerminal (Located happy_var_3 (Token (Sym CurlyR ) _))) + (HappyAbsSyn106 happy_var_2) (HappyTerminal (Located happy_var_1 (Token (Sym CurlyL ) _))) - = HappyAbsSyn103 + = HappyAbsSyn106 (anonTyApp (getLoc (happy_var_1,happy_var_3)) [happy_var_2] ) -happyReduction_321 _ _ _ = notHappyAtAll +happyReduction_325 _ _ _ = notHappyAtAll -happyReduce_322 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_322 = happySpecReduce_3 103 happyReduction_322 -happyReduction_322 (HappyTerminal (Located happy_var_3 (Token (Sym CurlyR ) _))) - (HappyAbsSyn109 happy_var_2) +happyReduce_326 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_326 = happySpecReduce_3 106 happyReduction_326 +happyReduction_326 (HappyTerminal (Located happy_var_3 (Token (Sym CurlyR ) _))) + (HappyAbsSyn112 happy_var_2) (HappyTerminal (Located happy_var_1 (Token (Sym CurlyL ) _))) - = HappyAbsSyn103 + = HappyAbsSyn106 (anonTyApp (getLoc (happy_var_1,happy_var_3)) (reverse happy_var_2) ) -happyReduction_322 _ _ _ = notHappyAtAll +happyReduction_326 _ _ _ = notHappyAtAll -happyReduce_323 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_323 = happySpecReduce_3 104 happyReduction_323 -happyReduction_323 (HappyAbsSyn103 happy_var_3) +happyReduce_327 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_327 = happySpecReduce_3 107 happyReduction_327 +happyReduction_327 (HappyAbsSyn106 happy_var_3) _ - (HappyAbsSyn112 happy_var_1) - = HappyAbsSyn110 + (HappyAbsSyn115 happy_var_1) + = HappyAbsSyn113 (Named { name = happy_var_1, value = happy_var_3 } ) -happyReduction_323 _ _ _ = notHappyAtAll +happyReduction_327 _ _ _ = notHappyAtAll -happyReduce_324 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_324 = happySpecReduce_1 105 happyReduction_324 -happyReduction_324 (HappyAbsSyn110 happy_var_1) - = HappyAbsSyn111 +happyReduce_328 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_328 = happySpecReduce_1 108 happyReduction_328 +happyReduction_328 (HappyAbsSyn113 happy_var_1) + = HappyAbsSyn114 ([happy_var_1] ) -happyReduction_324 _ = notHappyAtAll +happyReduction_328 _ = notHappyAtAll -happyReduce_325 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_325 = happySpecReduce_3 105 happyReduction_325 -happyReduction_325 (HappyAbsSyn110 happy_var_3) +happyReduce_329 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) +happyReduce_329 = happySpecReduce_3 108 happyReduction_329 +happyReduction_329 (HappyAbsSyn113 happy_var_3) _ - (HappyAbsSyn111 happy_var_1) - = HappyAbsSyn111 + (HappyAbsSyn114 happy_var_1) + = HappyAbsSyn114 (happy_var_3 : happy_var_1 ) -happyReduction_325 _ _ _ = notHappyAtAll +happyReduction_329 _ _ _ = notHappyAtAll happyNewToken action sts stk = lexerP(\tk -> @@ -3432,7 +3474,7 @@ happyNewToken action sts stk Located happy_dollar_dollar (Token (KW KW_primitive) _) -> cont 30; Located happy_dollar_dollar (Token (KW KW_constraint) _) -> cont 31; Located happy_dollar_dollar (Token (KW KW_Prop) _) -> cont 32; - Located happy_dollar_dollar (Token (KW KW_propguards)) -> cont 33; + Located happy_dollar_dollar (Token (KW KW_propguards) _) -> cont 33; Located happy_dollar_dollar (Token (Sym BracketL) _) -> cont 34; Located happy_dollar_dollar (Token (Sym BracketR) _) -> cont 35; Located happy_dollar_dollar (Token (Sym ArrL ) _) -> cont 36; @@ -3505,31 +3547,31 @@ programLayout = happySomeParser where happySomeParser = happyThen (happyParse 2) (\x -> case x of {HappyAbsSyn24 z -> happyReturn z; _other -> notHappyAtAll }) expr = happySomeParser where - happySomeParser = happyThen (happyParse 3) (\x -> case x of {HappyAbsSyn59 z -> happyReturn z; _other -> notHappyAtAll }) + happySomeParser = happyThen (happyParse 3) (\x -> case x of {HappyAbsSyn62 z -> happyReturn z; _other -> notHappyAtAll }) decl = happySomeParser where - happySomeParser = happyThen (happyParse 4) (\x -> case x of {HappyAbsSyn38 z -> happyReturn z; _other -> notHappyAtAll }) + happySomeParser = happyThen (happyParse 4) (\x -> case x of {HappyAbsSyn41 z -> happyReturn z; _other -> notHappyAtAll }) decls = happySomeParser where - happySomeParser = happyThen (happyParse 5) (\x -> case x of {HappyAbsSyn39 z -> happyReturn z; _other -> notHappyAtAll }) + happySomeParser = happyThen (happyParse 5) (\x -> case x of {HappyAbsSyn42 z -> happyReturn z; _other -> notHappyAtAll }) declsLayout = happySomeParser where - happySomeParser = happyThen (happyParse 6) (\x -> case x of {HappyAbsSyn39 z -> happyReturn z; _other -> notHappyAtAll }) + happySomeParser = happyThen (happyParse 6) (\x -> case x of {HappyAbsSyn42 z -> happyReturn z; _other -> notHappyAtAll }) letDecl = happySomeParser where - happySomeParser = happyThen (happyParse 7) (\x -> case x of {HappyAbsSyn38 z -> happyReturn z; _other -> notHappyAtAll }) + happySomeParser = happyThen (happyParse 7) (\x -> case x of {HappyAbsSyn41 z -> happyReturn z; _other -> notHappyAtAll }) repl = happySomeParser where - happySomeParser = happyThen (happyParse 8) (\x -> case x of {HappyAbsSyn53 z -> happyReturn z; _other -> notHappyAtAll }) + happySomeParser = happyThen (happyParse 8) (\x -> case x of {HappyAbsSyn56 z -> happyReturn z; _other -> notHappyAtAll }) schema = happySomeParser where - happySomeParser = happyThen (happyParse 9) (\x -> case x of {HappyAbsSyn94 z -> happyReturn z; _other -> notHappyAtAll }) + happySomeParser = happyThen (happyParse 9) (\x -> case x of {HappyAbsSyn97 z -> happyReturn z; _other -> notHappyAtAll }) modName = happySomeParser where - happySomeParser = happyThen (happyParse 10) (\x -> case x of {HappyAbsSyn114 z -> happyReturn z; _other -> notHappyAtAll }) + happySomeParser = happyThen (happyParse 10) (\x -> case x of {HappyAbsSyn117 z -> happyReturn z; _other -> notHappyAtAll }) helpName = happySomeParser where - happySomeParser = happyThen (happyParse 11) (\x -> case x of {HappyAbsSyn116 z -> happyReturn z; _other -> notHappyAtAll }) + happySomeParser = happyThen (happyParse 11) (\x -> case x of {HappyAbsSyn119 z -> happyReturn z; _other -> notHappyAtAll }) happySeq = happyDontSeq diff --git a/src/Cryptol/Parser.y b/src/Cryptol/Parser.y index bae21027f..d2683e709 100644 --- a/src/Cryptol/Parser.y +++ b/src/Cryptol/Parser.y @@ -301,23 +301,20 @@ mbDoc :: { Maybe (Located Text) } | {- empty -} { Nothing } propguards :: { [([Prop PName], Expr PName)] } - : 'propguards' propguards_cases { $2 } + : 'propguards' '|' propguards_cases { $3 } propguards_cases :: { [([Prop PName], Expr PName)] } - -- : propguards_case '|' propguards_cases { $1 ++ $3 } - -- | propguards_case { $1 } - : '|' propguards_case { $2 } - + : propguards_case '|' propguards_cases { $1 ++ $3 } + | propguards_case { $1 } + propguards_case :: { [([Prop PName], Expr PName)] } : propguards_quals '=>' expr { [($1, $3)] } --- support multiple +-- TODO: support multiple, or is that handles just as pairs or something? +-- I think that mkProp handles parsing pairs propguards_quals :: { [Prop PName] } - -- : type { [_ $1] } : type {% fmap thing (mkProp $1) } --- propguards_qual : { [Prop PName] } -- TODO - decl :: { Decl PName } : vars_comma ':' schema { at (head $1,$3) $ DSignature (reverse $1) $3 } | ipat '=' expr { at ($1,$3) $ DPatBind $1 $3 } diff --git a/src/Cryptol/Parser/AST.hs b/src/Cryptol/Parser/AST.hs index 2af6a56d5..ecb977d24 100644 --- a/src/Cryptol/Parser/AST.hs +++ b/src/Cryptol/Parser/AST.hs @@ -16,6 +16,7 @@ {-# LANGUAGE PatternGuards #-} {-# LANGUAGE RecordWildCards #-} {-# LANGUAGE OverloadedStrings #-} +{-# LANGUAGE FlexibleInstances #-} module Cryptol.Parser.AST ( -- * Names Ident, mkIdent, mkInfix, isInfixIdent, nullIdent, identText @@ -974,6 +975,8 @@ instance PPName name => PP (Type name) where instance PPName name => PP (Prop name) where ppPrec n (CType t) = ppPrec n t +instance PPName name => PP [Prop name] where + ppPrec n props = parens . commaSep . fmap (ppPrec n) $ props -------------------------------------------------------------------------------- -- Drop all position information, so equality reflects program structure From b4b956b00dbcaa7fdebe628e9334a2d1bba372cc Mon Sep 17 00:00:00 2001 From: Henry Blanchette Date: Thu, 7 Jul 2022 15:48:22 -0700 Subject: [PATCH 011/125] no more ExpandPropGuards Name Pass --- src/Cryptol/Parser/Name.hs | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/src/Cryptol/Parser/Name.hs b/src/Cryptol/Parser/Name.hs index 3c322dca0..8d4bf706d 100644 --- a/src/Cryptol/Parser/Name.hs +++ b/src/Cryptol/Parser/Name.hs @@ -33,6 +33,7 @@ data PName = UnQual !Ident -- | Passes that can generate fresh names. data Pass = NoPat | MonoValues + | ExpandPropGuards String deriving (Eq,Ord,Show,Generic) instance NFData PName @@ -54,8 +55,9 @@ getIdent (Qual _ n) = n getIdent (NewName p i) = packIdent ("__" ++ pass ++ show i) where pass = case p of - NoPat -> "p" - MonoValues -> "mv" + NoPat -> "p" + MonoValues -> "mv" + ExpandPropGuards _ -> "epg" isGeneratedName :: PName -> Bool isGeneratedName x = From 568ab61b5ecda7ee1defbcb1adc0bcf9ac5117bc Mon Sep 17 00:00:00 2001 From: Henry Blanchette Date: Thu, 7 Jul 2022 15:48:58 -0700 Subject: [PATCH 012/125] ExpandPropGuards pass --- src/Cryptol/Parser/ExpandPropGuards.hs | 72 +++++++++++++++++++------- 1 file changed, 53 insertions(+), 19 deletions(-) diff --git a/src/Cryptol/Parser/ExpandPropGuards.hs b/src/Cryptol/Parser/ExpandPropGuards.hs index 84fef4c8d..5eef8ae35 100644 --- a/src/Cryptol/Parser/ExpandPropGuards.hs +++ b/src/Cryptol/Parser/ExpandPropGuards.hs @@ -19,16 +19,14 @@ module Cryptol.Parser.ExpandPropGuards where import Cryptol.Parser.AST -import Cryptol.Parser.Position (Range(..), emptyRange, start, at) -import Cryptol.Parser.Names (namesP) +-- import Cryptol.Parser.Position (Range(..), emptyRange, start, at) +-- import Cryptol.Parser.Names (namesP) import Cryptol.Utils.PP +-- import Cryptol.Utils.Ident (mkIdent) import Cryptol.Utils.Panic (panic) -import Cryptol.Utils.RecordMap +-- import Cryptol.Utils.RecordMap -import MonadLib hiding (mapM) -import Data.Maybe (maybeToList) -import qualified Data.Map as Map -import Data.Text (Text) +import Data.Text (pack) import GHC.Generics (Generic) import Control.DeepSeq @@ -49,19 +47,27 @@ data Error = NoSignature (Located PName) deriving (Show,Generic, NFData) instance PP Error where - ppPrec = undefined -- TODO + ppPrec _ err = case err of + NoSignature x -> + text "At" <+> pp (srcRange x) <.> colon <+> + text "No signature provided for declaration that uses PROPGUARDS." -- | Instances instance ExpandPropGuards (Program PName) where expandPropGuards (Program decls) = Program <$> expandPropGuards decls +instance ExpandPropGuards (Module PName) where + expandPropGuards m = do + mDecls' <- expandPropGuards (mDecls m) + pure m { mDecls = mDecls' } + instance ExpandPropGuards [TopDecl PName] where expandPropGuards topDecls = concat <$> traverse f topDecls where f :: TopDecl PName -> ExpandPropGuardsM [TopDecl PName] - f (Decl topLevelDecl) = fmap lift <$> expandPropGuards [tlValue topLevelDecl] - where lift decl = Decl $ topLevelDecl { tlValue = decl } + f (Decl topLevelDecl) = fmap mu <$> expandPropGuards [tlValue topLevelDecl] + where mu decl = Decl $ topLevelDecl { tlValue = decl } f topDecl = pure [topDecl] instance ExpandPropGuards [Decl PName] where @@ -80,13 +86,41 @@ instance ExpandPropGuards [Bind PName] where Just schema -> pure schema Nothing -> Left . NoSignature $ bName bind let - g :: ([Prop PName], Expr PName) -> ExpandPropGuardsM (Bind PName) - g (props', e) = pure bind - { -- include guarded props in signature - bSignature = Just $ Forall params (props <> props') t rng - -- keeps same location at original bind - -- i.e. "on top of" original bind - , bDef = (bDef bind) {thing = DExpr e} - } - mapM g guards + g :: ([Prop PName], Expr PName) -> ExpandPropGuardsM (([Prop PName], Expr PName), Bind PName) + g (props', e) = do + bName' <- newName (bName bind) props' + -- call to generated function + let e' = foldr EApp (EVar $ thing bName') (patternToExpr <$> bParams bind) + pure + ( (props', e') + , bind + { bName = bName' + -- include guarded props in signature + , bSignature = Just $ Forall params (props <> props') t rng + -- keeps same location at original bind + -- i.e. "on top of" original bind + , bDef = (bDef bind) {thing = DExpr e} + } + ) + (guards', binds') <- unzip <$> mapM g guards + pure $ + bind { bDef = const (DPropGuards guards') <$> bDef bind } : + binds' _ -> pure [bind] + +patternToExpr :: Pattern PName -> Expr PName +patternToExpr (PVar locName) = EVar (thing locName) +patternToExpr _ = panic "patternToExpr" ["Unimplemented: patternToExpr of anything other than PVar"] + +newName :: Located PName -> [Prop PName] -> ExpandPropGuardsM (Located PName) +newName locName props = + case thing locName of + Qual modName ident -> do + let txt = identText ident + txt' = pack $ renderOneLine $ pp props + pure $ const (Qual modName (mkIdent $ txt <> txt')) <$> locName + UnQual ident -> do + let txt = identText ident + txt' = pack $ renderOneLine $ pp props + pure $ const (UnQual (mkIdent $ txt <> txt')) <$> locName + NewName _ _ -> panic "mkName" ["During expanding prop guards, tried to make new name from NewName case of PName"] From 9b613273ad7720d0ee1d55d3b16068d2b5f16c80 Mon Sep 17 00:00:00 2001 From: Henry Blanchette Date: Thu, 7 Jul 2022 15:49:08 -0700 Subject: [PATCH 013/125] do ExpandPropGuards pass --- src/Cryptol/ModuleSystem/Base.hs | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/src/Cryptol/ModuleSystem/Base.hs b/src/Cryptol/ModuleSystem/Base.hs index 6221f7304..580548778 100644 --- a/src/Cryptol/ModuleSystem/Base.hs +++ b/src/Cryptol/ModuleSystem/Base.hs @@ -453,8 +453,11 @@ checkSingleModule how isrc m = do -- remove pattern bindings npm <- noPat m + -- run expandPropGuards + epgm <- expandPropGuards npm + -- rename everything - renMod <- renameModule npm + renMod <- renameModule epgm -- when generating the prim map for the typechecker, if we're checking the -- prelude, we have to generate the map from the renaming environment, as we From 3c1f25baf7dddc87e7a33ef03d2c0b84a909aa48 Mon Sep 17 00:00:00 2001 From: Henry Blanchette Date: Thu, 7 Jul 2022 15:49:40 -0700 Subject: [PATCH 014/125] typechecking for PropGuards; factored out checkBindDefExpr --- src/Cryptol/TypeCheck/Infer.hs | 178 +++++++++++++++++---------------- src/Cryptol/TypeCheck/Kind.hs | 7 +- 2 files changed, 97 insertions(+), 88 deletions(-) diff --git a/src/Cryptol/TypeCheck/Infer.hs b/src/Cryptol/TypeCheck/Infer.hs index 98e1cf76c..671fca38f 100644 --- a/src/Cryptol/TypeCheck/Infer.hs +++ b/src/Cryptol/TypeCheck/Infer.hs @@ -976,97 +976,107 @@ checkMonoB b t = -- XXX: Do we really need to do the defaulting business in two different places? checkSigB :: P.Bind Name -> (Schema,[Goal]) -> InferM Decl -checkSigB b (Forall as asmps0 t0, validSchema) = case thing (P.bDef b) of - - -- XXX what should we do with validSchema in this case? - P.DPrim -> - do return Decl { dName = thing (P.bName b) - , dSignature = Forall as asmps0 t0 - , dDefinition = DPrim - , dPragmas = P.bPragmas b - , dInfix = P.bInfix b - , dFixity = P.bFixity b - , dDoc = P.bDoc b - } - - P.DExpr e0 -> - inRangeMb (getLoc b) $ - withTParams as $ - do (e1,cs0) <- collectGoals $ - do let nm = thing (P.bName b) - tGoal = WithSource t0 (DefinitionOf nm) (getLoc b) - e1 <- checkFun (P.FunDesc (Just nm) 0) (P.bParams b) e0 tGoal - addGoals validSchema - () <- simplifyAllConstraints -- XXX: using `asmps` also? - return e1 - - asmps1 <- applySubstPreds asmps0 - cs <- applySubstGoals cs0 - - let findKeep vs keep todo = - let stays (_,cvs) = not $ Set.null $ Set.intersection vs cvs - (yes,perhaps) = partition stays todo - (stayPs,newVars) = unzip yes - in case stayPs of - [] -> (keep,map fst todo) - _ -> findKeep (Set.unions (vs:newVars)) (stayPs ++ keep) perhaps - - let -- if a goal mentions any of these variables, we'll commit to - -- solving it now. - stickyVars = Set.fromList (map tpVar as) `Set.union` fvs asmps1 - (stay,leave) = findKeep stickyVars [] - [ (c, fvs c) | c <- cs ] - - addGoals leave - - - su <- proveImplication (Just (thing (P.bName b))) as asmps1 stay - extendSubst su - - let asmps = concatMap pSplitAnd (apSubst su asmps1) - t <- applySubst t0 - e2 <- applySubst e1 - - return Decl +checkSigB b (Forall as asmps0 t0, validSchema) = + let checkBindDefExpr :: [Prop] -> P.Expr Name -> InferM (Type, [Prop], Expr) + checkBindDefExpr asmps1 e0 = do + + (e1,cs0) <- collectGoals $ do + let nm = thing (P.bName b) + tGoal = WithSource t0 (DefinitionOf nm) (getLoc b) + e1 <- checkFun (P.FunDesc (Just nm) 0) (P.bParams b) e0 tGoal + addGoals validSchema + () <- simplifyAllConstraints -- XXX: using `asmps` also? + return e1 + + asmps2 <- applySubstPreds asmps1 + cs <- applySubstGoals cs0 + + let findKeep vs keep todo = + let stays (_,cvs) = not $ Set.null $ Set.intersection vs cvs + (yes,perhaps) = partition stays todo + (stayPs,newVars) = unzip yes + in case stayPs of + [] -> (keep,map fst todo) + _ -> findKeep (Set.unions (vs:newVars)) (stayPs ++ keep) perhaps + + let -- if a goal mentions any of these variables, we'll commit to + -- solving it now. + stickyVars = Set.fromList (map tpVar as) `Set.union` fvs asmps2 + (stay,leave) = findKeep stickyVars [] + [ (c, fvs c) | c <- cs ] + + addGoals leave + + + su <- proveImplication (Just (thing (P.bName b))) as asmps2 stay + extendSubst su + + let asmps = concatMap pSplitAnd (apSubst su asmps2) + t <- applySubst t0 + e2 <- applySubst e1 + + pure (t, asmps, e2) + + in case thing (P.bDef b) of + + -- XXX what should we do with validSchema in this case? + P.DPrim -> do + return Decl { dName = thing (P.bName b) - , dSignature = Forall as asmps t - , dDefinition = DExpr (foldr ETAbs (foldr EProofAbs e2 asmps) as) + , dSignature = Forall as asmps0 t0 + , dDefinition = DPrim , dPragmas = P.bPragmas b , dInfix = P.bInfix b , dFixity = P.bFixity b , dDoc = P.bDoc b } - P.DPropGuards propGuards -> - inRangeMb (getLoc b) $ - withTParams as $ do - asmps1 <- applySubstPreds asmps0 - t <- applySubst t0 - -- handle cases - let f :: ([P.Prop Name], P.Expr Name) -> InferM ([Prop], Expr) - f (ps0, e0) = do - -- validate props - (ps1, gss) <- unzip <$> mapM checkPropGuard ps0 - let gs = concat gss - ps2 = asmps1 <> (goal <$> gs) <> ps1 - -- typecheck expr - let tGoal = WithSource t0 (DefinitionOf nm) (getLoc b) - nm = thing $ P.bName b - e1 <- checkFun (P.FunDesc (Just nm) 0) (P.bParams b) e0 tGoal - e2 <- applySubst e1 - pure (ps2, e2) - -- undefined :: InferM ([Prop], Expr) - cases <- mapM f propGuards - - return Decl - { dName = thing (P.bName b) - , dSignature = Forall as asmps1 t - , dDefinition = DExpr (EPropGuards cases) - , dPragmas = P.bPragmas b - , dInfix = P.bInfix b - , dFixity = P.bFixity b - , dDoc = P.bDoc b - } + P.DExpr e0 -> + inRangeMb (getLoc b) $ + withTParams as $ do + (t, asmps, e2) <- checkBindDefExpr asmps0 e0 + + return Decl + { dName = thing (P.bName b) + , dSignature = Forall as asmps t + , dDefinition = DExpr (foldr ETAbs (foldr EProofAbs e2 asmps) as) + , dPragmas = P.bPragmas b + , dInfix = P.bInfix b + , dFixity = P.bFixity b + , dDoc = P.bDoc b + } + + P.DPropGuards propGuards -> + inRangeMb (getLoc b) $ + withTParams as $ do + -- Checking each guarded case is the same as checking a DExpr, except + -- that the guarding assumptions are added first. + let checkPropGuard :: ([P.Prop Name], P.Expr Name) -> InferM ([Prop], Expr) + checkPropGuard (asmpsGuard0, e0) = do + asmps0' <- do + -- validate props + (asmpsGuard1', goalss) <- unzip <$> mapM checkPropGuard asmpsGuard0 + let asmpsGoals = goal <$> concat goalss + asmpsGuard2 = asmpsGoals <> asmpsGuard1' + pure $ asmps0 <> asmpsGuard2 + + (_t', props', e') <- checkBindDefExpr asmps0' e0 + pure (props', e') + + cases <- mapM checkPropGuard propGuards + + asmps1 <- applySubstPreds asmps0 + t <- applySubst t0 + + return Decl + { dName = thing (P.bName b) + , dSignature = Forall as asmps1 t + , dDefinition = DExpr (EPropGuards cases) + , dPragmas = P.bPragmas b + , dInfix = P.bInfix b + , dFixity = P.bFixity b + , dDoc = P.bDoc b + } -------------------------------------------------------------------------------- -------------------------------------------------------------------------------- diff --git a/src/Cryptol/TypeCheck/Kind.hs b/src/Cryptol/TypeCheck/Kind.hs index 75d268dcd..b896e1ff0 100644 --- a/src/Cryptol/TypeCheck/Kind.hs +++ b/src/Cryptol/TypeCheck/Kind.hs @@ -417,7 +417,6 @@ checkKind t _ _ = return t checkPropGuard :: P.Prop Name -> InferM (Prop, [Goal]) checkPropGuard p = collectGoals $ - undefined - -- withTParams _ _ _ - -- (undefined :: KindM Type -> InferM Type) $ -- TODO - -- checkProp p + fmap (\(t, _, _) -> t) $ + runKindM NoWildCards [] $ + checkProp p From d1d903d6070b99411e3b562aa1515f76f60d25d9 Mon Sep 17 00:00:00 2001 From: Henry Blanchette Date: Thu, 7 Jul 2022 15:57:48 -0700 Subject: [PATCH 015/125] fixed shadowing of checkPropGuard --- src/Cryptol/TypeCheck/Infer.hs | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/src/Cryptol/TypeCheck/Infer.hs b/src/Cryptol/TypeCheck/Infer.hs index 671fca38f..1587ff17d 100644 --- a/src/Cryptol/TypeCheck/Infer.hs +++ b/src/Cryptol/TypeCheck/Infer.hs @@ -1046,13 +1046,13 @@ checkSigB b (Forall as asmps0 t0, validSchema) = , dDoc = P.bDoc b } - P.DPropGuards propGuards -> + P.DPropGuards cases0 -> inRangeMb (getLoc b) $ withTParams as $ do -- Checking each guarded case is the same as checking a DExpr, except -- that the guarding assumptions are added first. - let checkPropGuard :: ([P.Prop Name], P.Expr Name) -> InferM ([Prop], Expr) - checkPropGuard (asmpsGuard0, e0) = do + let checkPropGuardCase :: ([P.Prop Name], P.Expr Name) -> InferM ([Prop], Expr) + checkPropGuardCase (asmpsGuard0, e0) = do asmps0' <- do -- validate props (asmpsGuard1', goalss) <- unzip <$> mapM checkPropGuard asmpsGuard0 @@ -1063,7 +1063,7 @@ checkSigB b (Forall as asmps0 t0, validSchema) = (_t', props', e') <- checkBindDefExpr asmps0' e0 pure (props', e') - cases <- mapM checkPropGuard propGuards + cases1 <- mapM checkPropGuardCase cases0 asmps1 <- applySubstPreds asmps0 t <- applySubst t0 @@ -1071,7 +1071,7 @@ checkSigB b (Forall as asmps0 t0, validSchema) = return Decl { dName = thing (P.bName b) , dSignature = Forall as asmps1 t - , dDefinition = DExpr (EPropGuards cases) + , dDefinition = DExpr (EPropGuards cases1) , dPragmas = P.bPragmas b , dInfix = P.bInfix b , dFixity = P.bFixity b From 1bdde418f4cd0a68c12dcbf0940dffae443f7131 Mon Sep 17 00:00:00 2001 From: Henry Blanchette Date: Thu, 7 Jul 2022 16:25:05 -0700 Subject: [PATCH 016/125] make things Safe --- src/Cryptol/ModuleSystem/Exports.hs | 1 + src/Cryptol/ModuleSystem/Interface.hs | 1 + src/Cryptol/Parser/Name.hs | 1 + src/Cryptol/Parser/Names.hs | 2 ++ src/Cryptol/Parser/Token.hs | 1 + src/Cryptol/Parser/Utils.hs | 1 + src/Cryptol/TypeCheck/Default.hs | 2 ++ src/Cryptol/TypeCheck/Interface.hs | 2 ++ src/Cryptol/TypeCheck/SimpType.hs | 1 + src/Cryptol/TypeCheck/Solver/Improve.hs | 2 ++ src/Cryptol/TypeCheck/Solver/Numeric/Interval.hs | 1 + src/Cryptol/TypeCheck/Solver/Types.hs | 1 + src/Cryptol/TypeCheck/TypePat.hs | 1 + src/Cryptol/Utils/Ident.hs | 1 + src/Cryptol/Utils/RecordMap.hs | 1 + src/Cryptol/Version.hs | 2 +- 16 files changed, 20 insertions(+), 1 deletion(-) diff --git a/src/Cryptol/ModuleSystem/Exports.hs b/src/Cryptol/ModuleSystem/Exports.hs index a85d478a4..d6a251232 100644 --- a/src/Cryptol/ModuleSystem/Exports.hs +++ b/src/Cryptol/ModuleSystem/Exports.hs @@ -1,4 +1,5 @@ {-# LANGUAGE DeriveGeneric #-} +{-# LANGUAGE Safe #-} module Cryptol.ModuleSystem.Exports where import Data.Set(Set) diff --git a/src/Cryptol/ModuleSystem/Interface.hs b/src/Cryptol/ModuleSystem/Interface.hs index 88f53a30f..b49ba62ba 100644 --- a/src/Cryptol/ModuleSystem/Interface.hs +++ b/src/Cryptol/ModuleSystem/Interface.hs @@ -11,6 +11,7 @@ {-# LANGUAGE DeriveGeneric #-} {-# LANGUAGE PatternGuards #-} {-# LANGUAGE RecordWildCards #-} +{-# LANGUAGE Safe #-} module Cryptol.ModuleSystem.Interface ( Iface , IfaceG(..) diff --git a/src/Cryptol/Parser/Name.hs b/src/Cryptol/Parser/Name.hs index 8d4bf706d..dc74f3a54 100644 --- a/src/Cryptol/Parser/Name.hs +++ b/src/Cryptol/Parser/Name.hs @@ -7,6 +7,7 @@ -- Portability : portable {-# LANGUAGE DeriveGeneric #-} +{-# LANGUAGE Safe #-} module Cryptol.Parser.Name where diff --git a/src/Cryptol/Parser/Names.hs b/src/Cryptol/Parser/Names.hs index 43bb898dc..d488497dc 100644 --- a/src/Cryptol/Parser/Names.hs +++ b/src/Cryptol/Parser/Names.hs @@ -9,6 +9,8 @@ -- This module defines the scoping rules for value- and type-level -- names in Cryptol. +{-# LANGUAGE Safe #-} + module Cryptol.Parser.Names ( tnamesNT , tnamesT diff --git a/src/Cryptol/Parser/Token.hs b/src/Cryptol/Parser/Token.hs index fb1506f5b..feac45d20 100644 --- a/src/Cryptol/Parser/Token.hs +++ b/src/Cryptol/Parser/Token.hs @@ -1,5 +1,6 @@ {-# LANGUAGE DeriveAnyClass #-} {-# LANGUAGE DeriveGeneric #-} +{-# LANGUAGE Safe #-} module Cryptol.Parser.Token where import Data.Text(Text) diff --git a/src/Cryptol/Parser/Utils.hs b/src/Cryptol/Parser/Utils.hs index 5acb2d81c..1ac0444b2 100644 --- a/src/Cryptol/Parser/Utils.hs +++ b/src/Cryptol/Parser/Utils.hs @@ -10,6 +10,7 @@ -- from previous Cryptol versions. {-# LANGUAGE OverloadedStrings #-} +{-# LANGUAGE Safe #-} module Cryptol.Parser.Utils ( translateExprToNumT diff --git a/src/Cryptol/TypeCheck/Default.hs b/src/Cryptol/TypeCheck/Default.hs index 30eade366..11c973889 100644 --- a/src/Cryptol/TypeCheck/Default.hs +++ b/src/Cryptol/TypeCheck/Default.hs @@ -1,3 +1,5 @@ +{-# LANGUAGE Safe #-} + module Cryptol.TypeCheck.Default where import qualified Data.Set as Set diff --git a/src/Cryptol/TypeCheck/Interface.hs b/src/Cryptol/TypeCheck/Interface.hs index 372e936fa..f784580c1 100644 --- a/src/Cryptol/TypeCheck/Interface.hs +++ b/src/Cryptol/TypeCheck/Interface.hs @@ -1,3 +1,5 @@ +{-# LANGUAGE Safe #-} + module Cryptol.TypeCheck.Interface where import qualified Data.Map as Map diff --git a/src/Cryptol/TypeCheck/SimpType.hs b/src/Cryptol/TypeCheck/SimpType.hs index cea736fb5..9fcf0796c 100644 --- a/src/Cryptol/TypeCheck/SimpType.hs +++ b/src/Cryptol/TypeCheck/SimpType.hs @@ -1,4 +1,5 @@ {-# LANGUAGE PatternGuards #-} +{-# LANGUAGE Safe #-} -- See Note [-Wincomplete-uni-patterns and irrefutable patterns] in Cryptol.TypeCheck.TypePat {-# OPTIONS_GHC -Wno-incomplete-uni-patterns #-} module Cryptol.TypeCheck.SimpType where diff --git a/src/Cryptol/TypeCheck/Solver/Improve.hs b/src/Cryptol/TypeCheck/Solver/Improve.hs index df12b900e..877497321 100644 --- a/src/Cryptol/TypeCheck/Solver/Improve.hs +++ b/src/Cryptol/TypeCheck/Solver/Improve.hs @@ -1,3 +1,5 @@ +{-# LANGUAGE Safe #-} + -- | Look for opportunity to solve goals by instantiating variables. module Cryptol.TypeCheck.Solver.Improve where diff --git a/src/Cryptol/TypeCheck/Solver/Numeric/Interval.hs b/src/Cryptol/TypeCheck/Solver/Numeric/Interval.hs index b7e48d112..7c5553f9f 100644 --- a/src/Cryptol/TypeCheck/Solver/Numeric/Interval.hs +++ b/src/Cryptol/TypeCheck/Solver/Numeric/Interval.hs @@ -10,6 +10,7 @@ {-# LANGUAGE PatternGuards #-} {-# LANGUAGE BangPatterns #-} +{-# LANGUAGE Safe #-} module Cryptol.TypeCheck.Solver.Numeric.Interval where diff --git a/src/Cryptol/TypeCheck/Solver/Types.hs b/src/Cryptol/TypeCheck/Solver/Types.hs index 235488253..1fdf4d8b9 100644 --- a/src/Cryptol/TypeCheck/Solver/Types.hs +++ b/src/Cryptol/TypeCheck/Solver/Types.hs @@ -1,4 +1,5 @@ {-# Language OverloadedStrings, DeriveGeneric, DeriveAnyClass #-} +{-# LANGUAGE Safe #-} module Cryptol.TypeCheck.Solver.Types where import Data.Map(Map) diff --git a/src/Cryptol/TypeCheck/TypePat.hs b/src/Cryptol/TypeCheck/TypePat.hs index 2a474c930..53023830c 100644 --- a/src/Cryptol/TypeCheck/TypePat.hs +++ b/src/Cryptol/TypeCheck/TypePat.hs @@ -1,5 +1,6 @@ -- See Note [-Wincomplete-uni-patterns and irrefutable patterns] {-# OPTIONS_GHC -Wno-incomplete-uni-patterns #-} +{-# LANGUAGE Safe #-} module Cryptol.TypeCheck.TypePat ( aInf, aNat, aNat' diff --git a/src/Cryptol/Utils/Ident.hs b/src/Cryptol/Utils/Ident.hs index aff524250..ef212db70 100644 --- a/src/Cryptol/Utils/Ident.hs +++ b/src/Cryptol/Utils/Ident.hs @@ -8,6 +8,7 @@ {-# LANGUAGE DeriveGeneric, OverloadedStrings #-} {-# LANGUAGE DeriveAnyClass #-} +{-# LANGUAGE Safe #-} module Cryptol.Utils.Ident ( -- * Module names diff --git a/src/Cryptol/Utils/RecordMap.hs b/src/Cryptol/Utils/RecordMap.hs index f8599702f..2eef28af0 100644 --- a/src/Cryptol/Utils/RecordMap.hs +++ b/src/Cryptol/Utils/RecordMap.hs @@ -14,6 +14,7 @@ {-# LANGUAGE RankNTypes #-} {-# LANGUAGE ScopedTypeVariables #-} +{-# LANGUAGE Safe #-} module Cryptol.Utils.RecordMap ( RecordMap diff --git a/src/Cryptol/Version.hs b/src/Cryptol/Version.hs index 58135e217..cbd3ceece 100644 --- a/src/Cryptol/Version.hs +++ b/src/Cryptol/Version.hs @@ -6,7 +6,7 @@ -- Stability : provisional -- Portability : portable -{-# LANGUAGE Safe #-} +-- {-# LANGUAGE Safe #-} module Cryptol.Version ( commitHash From 6078a3f09755a36f8c38620cb382266f64bda3a7 Mon Sep 17 00:00:00 2001 From: Henry Blanchette Date: Thu, 7 Jul 2022 16:25:41 -0700 Subject: [PATCH 017/125] ignore .vscode --- .gitignore | 2 ++ 1 file changed, 2 insertions(+) diff --git a/.gitignore b/.gitignore index 06b7518e8..25a837e86 100644 --- a/.gitignore +++ b/.gitignore @@ -38,3 +38,5 @@ allfiles.wxs cryptol.msi cryptol.wixobj cryptol.wixpdb + +.vscode/ From 6b59c65afd36d35751136cb2ba0bef1597848831 Mon Sep 17 00:00:00 2001 From: Henry Blanchette Date: Thu, 7 Jul 2022 16:25:58 -0700 Subject: [PATCH 018/125] organize --- .gitignore | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/.gitignore b/.gitignore index 25a837e86..cd7737b8c 100644 --- a/.gitignore +++ b/.gitignore @@ -10,6 +10,7 @@ dist-newstyle .ghc.environment.* cabal.project.freeze cabal.project.local* +.vscode/ # don't check in generated documentation #docs/CryptolPrims.pdf @@ -39,4 +40,3 @@ cryptol.msi cryptol.wixobj cryptol.wixpdb -.vscode/ From 1f2c82c479436eb6e3b823a57a0116baedb9a6eb Mon Sep 17 00:00:00 2001 From: Henry Blanchette Date: Thu, 7 Jul 2022 16:26:42 -0700 Subject: [PATCH 019/125] test: parsing --- tests/constraint-guards/Parsing.cry | 61 +++++++++++++++++++++++++++++ 1 file changed, 61 insertions(+) create mode 100644 tests/constraint-guards/Parsing.cry diff --git a/tests/constraint-guards/Parsing.cry b/tests/constraint-guards/Parsing.cry new file mode 100644 index 000000000..52e09193b --- /dev/null +++ b/tests/constraint-guards/Parsing.cry @@ -0,0 +1,61 @@ +module Parsing where + +// Constraints are parsed the same as types + +foo : {n} [n] -> [n] +foo x = x + +// f : {n} [n] -> [n] +// f .. x = x + +// f : {n} [n] -> [n] +// f .. (fin n) .. x = x + +// f : {n} [n] -> [n] +// f <| (fin n, n == 1) => |> x = x + +// f : {n} fin n +// f = undefined + +// f : {n} ([n], [n], [n]) +// f = undefined + +// f : {n} (n == 1) => [n] -> [n] +// f x = x + +// f : {n} fin n => fin n => [1] -> [1] +// f x = x + +// Tests + +// f : {n} [n] -> [n] +// f <| (n == 1) => |> x = x + +// f : {n} [n] -> [n] +// f x = x + +// g : {n} (fin n) => [n] -> [n] +// g <| (n == 0) |> _ = [] + +// g' : {n} [n] -> [n] +// g' <| (n == 1) |> x = x + +f : {n} [n] -> [n] +f x = propguards + | n == 1 => g1 x // passes + | n == 2 => g2 x // passes + | n == 3 => g3 x // passes + // | n == n => g4 x // fails + +g1 : {n} (n == 1) => [n] -> [n] +g1 x = x + +g2 : {n} (n == 2) => [n] -> [n] +g2 x = x + +g3 : {n} (n == 3) => [n] -> [n] +g3 x = x + +g4 : {n} (n == 4) => [n] -> [n] +g4 x = x + From 5ae355efe3107a9cf20a335d9824a7ebaa78090e Mon Sep 17 00:00:00 2001 From: Henry Blanchette Date: Thu, 7 Jul 2022 16:45:57 -0700 Subject: [PATCH 020/125] formatting --- src/Cryptol/TypeCheck/Infer.hs | 84 +++++++++++++++++----------------- 1 file changed, 43 insertions(+), 41 deletions(-) diff --git a/src/Cryptol/TypeCheck/Infer.hs b/src/Cryptol/TypeCheck/Infer.hs index 1587ff17d..65ea5ff9a 100644 --- a/src/Cryptol/TypeCheck/Infer.hs +++ b/src/Cryptol/TypeCheck/Infer.hs @@ -977,47 +977,7 @@ checkMonoB b t = -- XXX: Do we really need to do the defaulting business in two different places? checkSigB :: P.Bind Name -> (Schema,[Goal]) -> InferM Decl checkSigB b (Forall as asmps0 t0, validSchema) = - let checkBindDefExpr :: [Prop] -> P.Expr Name -> InferM (Type, [Prop], Expr) - checkBindDefExpr asmps1 e0 = do - - (e1,cs0) <- collectGoals $ do - let nm = thing (P.bName b) - tGoal = WithSource t0 (DefinitionOf nm) (getLoc b) - e1 <- checkFun (P.FunDesc (Just nm) 0) (P.bParams b) e0 tGoal - addGoals validSchema - () <- simplifyAllConstraints -- XXX: using `asmps` also? - return e1 - - asmps2 <- applySubstPreds asmps1 - cs <- applySubstGoals cs0 - - let findKeep vs keep todo = - let stays (_,cvs) = not $ Set.null $ Set.intersection vs cvs - (yes,perhaps) = partition stays todo - (stayPs,newVars) = unzip yes - in case stayPs of - [] -> (keep,map fst todo) - _ -> findKeep (Set.unions (vs:newVars)) (stayPs ++ keep) perhaps - - let -- if a goal mentions any of these variables, we'll commit to - -- solving it now. - stickyVars = Set.fromList (map tpVar as) `Set.union` fvs asmps2 - (stay,leave) = findKeep stickyVars [] - [ (c, fvs c) | c <- cs ] - - addGoals leave - - - su <- proveImplication (Just (thing (P.bName b))) as asmps2 stay - extendSubst su - - let asmps = concatMap pSplitAnd (apSubst su asmps2) - t <- applySubst t0 - e2 <- applySubst e1 - - pure (t, asmps, e2) - - in case thing (P.bDef b) of + case thing (P.bDef b) of -- XXX what should we do with validSchema in this case? P.DPrim -> do @@ -1077,6 +1037,48 @@ checkSigB b (Forall as asmps0 t0, validSchema) = , dFixity = P.bFixity b , dDoc = P.bDoc b } + + where + + checkBindDefExpr :: [Prop] -> P.Expr Name -> InferM (Type, [Prop], Expr) + checkBindDefExpr asmps1 e0 = do + + (e1,cs0) <- collectGoals $ do + let nm = thing (P.bName b) + tGoal = WithSource t0 (DefinitionOf nm) (getLoc b) + e1 <- checkFun (P.FunDesc (Just nm) 0) (P.bParams b) e0 tGoal + addGoals validSchema + () <- simplifyAllConstraints -- XXX: using `asmps` also? + return e1 + + asmps2 <- applySubstPreds asmps1 + cs <- applySubstGoals cs0 + + let findKeep vs keep todo = + let stays (_,cvs) = not $ Set.null $ Set.intersection vs cvs + (yes,perhaps) = partition stays todo + (stayPs,newVars) = unzip yes + in case stayPs of + [] -> (keep,map fst todo) + _ -> findKeep (Set.unions (vs:newVars)) (stayPs ++ keep) perhaps + + let -- if a goal mentions any of these variables, we'll commit to + -- solving it now. + stickyVars = Set.fromList (map tpVar as) `Set.union` fvs asmps2 + (stay,leave) = findKeep stickyVars [] + [ (c, fvs c) | c <- cs ] + + addGoals leave + + + su <- proveImplication (Just (thing (P.bName b))) as asmps2 stay + extendSubst su + + let asmps = concatMap pSplitAnd (apSubst su asmps2) + t <- applySubst t0 + e2 <- applySubst e1 + + pure (t, asmps, e2) -------------------------------------------------------------------------------- -------------------------------------------------------------------------------- From fe300626ca654d56488947b5b796e640d2bc66db Mon Sep 17 00:00:00 2001 From: Henry Blanchette Date: Thu, 7 Jul 2022 16:46:01 -0700 Subject: [PATCH 021/125] Safe --- src/Cryptol/TypeCheck/Instantiate.hs | 1 + 1 file changed, 1 insertion(+) diff --git a/src/Cryptol/TypeCheck/Instantiate.hs b/src/Cryptol/TypeCheck/Instantiate.hs index 0a8b17bff..1acb477e1 100644 --- a/src/Cryptol/TypeCheck/Instantiate.hs +++ b/src/Cryptol/TypeCheck/Instantiate.hs @@ -6,6 +6,7 @@ -- Stability : provisional -- Portability : portable {-# Language OverloadedStrings #-} +{-# Language Safe #-} module Cryptol.TypeCheck.Instantiate ( instantiateWith , TypeArg(..) From fba4f146984ddfa7f84b5b2e392a6a2206a9cb98 Mon Sep 17 00:00:00 2001 From: Henry Blanchette Date: Fri, 8 Jul 2022 11:12:21 -0700 Subject: [PATCH 022/125] first impl of evaluation --- src/Cryptol/Eval.hs | 51 +++++++++++++++++++++----- src/Cryptol/Parser/ExpandPropGuards.hs | 4 +- src/Cryptol/TypeCheck/AST.hs | 5 ++- src/Cryptol/TypeCheck/Infer.hs | 2 +- src/Cryptol/Utils/PP.hs | 2 + tests/constraint-guards/Parsing.cry | 22 ++++++----- 6 files changed, 64 insertions(+), 22 deletions(-) diff --git a/src/Cryptol/Eval.hs b/src/Cryptol/Eval.hs index 4fcd17083..f58b8fb1e 100644 --- a/src/Cryptol/Eval.hs +++ b/src/Cryptol/Eval.hs @@ -15,6 +15,7 @@ {-# LANGUAGE ScopedTypeVariables #-} {-# LANGUAGE PatternGuards #-} {-# LANGUAGE ViewPatterns #-} +{-# LANGUAGE NamedFieldPuns #-} module Cryptol.Eval ( moduleEnv @@ -63,9 +64,12 @@ import Data.Maybe import qualified Data.IntMap.Strict as IntMap import qualified Data.Map.Strict as Map import Data.Semigroup +import Control.Applicative import Prelude () import Prelude.Compat +import Math.NumberTheory.Primes (UniqueFactorisation(isPrime)) +import System.IO.Unsafe (unsafePerformIO) type EvalEnv = GenEvalEnv Concrete @@ -215,13 +219,17 @@ evalExpr sym env expr = case expr of env' <- evalDecls sym ds env evalExpr sym env' e - EPropGuards _guards -> do - -- -- -- TODO: modify this to work for propguards - -- b <- fromVBit <$> eval c - -- iteValue sym b (eval t) (eval f) - -- -- -- error "should not evaluate EPropGuards" - -- -- evalPanic "evalExpr" ["cannot evalute EPropGuards"] - pure $ VBit $ bitLit sym True + EPropGuards guards -> {-# SCC "evalExpr->EPropGuards" #-} do + -- TODO: says that type var not bound.. which is true because we haven't called the function yet... + let + -- evalPropGuard :: ([Prop], Expr) -> SEval sym (Maybe (GenValue sym)) + evalPropGuard (props, e) = do + if and $ evalProp env <$> props + then Just <$> evalExpr sym env e + else pure Nothing + evalPropGuard `traverse` guards >>= (\case + Just val -> pure val + Nothing -> evalPanic "evalExpr" ["no guard case was satisfied"]) . foldr (<|>) Nothing where @@ -229,6 +237,22 @@ evalExpr sym env expr = case expr of eval = evalExpr sym env ppV = ppValue sym defaultPPOpts +evalProp :: GenEvalEnv sym -> Prop -> Bool +evalProp EvalEnv { envTypes } prop = case prop of + TCon tcon ts + -- | Just ns <- sequence $ toTypeNat' . evalType envTypes <$> ts + | ns <- evalNumType envTypes <$> ts + -> case (tcon, ns) of + (PC PEqual, [n1, n2]) -> n1 == n2 + (PC PNeq, [n1, n2]) -> n1 /= n2 + (PC PGeq, [n1, n2]) -> n1 <= n2 + (PC PFin, [n]) -> n /= Inf + (PC PPrime, [Nat n]) -> isJust $ isPrime n + _ -> evalPanic "evalProp" ["invalid use of constraints: ", show . pp $ prop ] + _ -> evalPanic "evalProp" ["cannot use this as a guarding constraint: ", show . pp $ prop ] + -- where + -- toTypeNat' (Left a) = Just a + -- toTypeNat' (Right _) = Nothing -- | Capure the current call stack from the evaluation monad and -- annotate function values. When arguments are later applied @@ -415,8 +439,17 @@ evalDecl :: GenEvalEnv sym {- ^ An evaluation environment to extend with the given declaration -} -> Decl {- ^ The declaration to evaluate -} -> SEval sym (GenEvalEnv sym) -evalDecl sym renv env d = - let ?range = nameLoc (dName d) in +-- evalDecl sym renv env d = +-- let ?range = nameLoc (dName d) in +evalDecl sym renv env d = do + let ?range = nameLoc (dName d) + -- case show $ pp d of + -- 'P' : 'a' : 'r' : 's' : 'i' : 'n' : 'g' : ':' : ':' : 'x' : 'x' : 'x' : _ -> pure $! unsafePerformIO $ do + -- putStrLn "===[ pp ]=====================" + -- print $ pp d + -- putStrLn "===[ show ]=====================" + -- print d + -- _ -> pure () case dDefinition d of DPrim -> case ?evalPrim =<< asPrim (dName d) of diff --git a/src/Cryptol/Parser/ExpandPropGuards.hs b/src/Cryptol/Parser/ExpandPropGuards.hs index 5eef8ae35..ceba6ede5 100644 --- a/src/Cryptol/Parser/ExpandPropGuards.hs +++ b/src/Cryptol/Parser/ExpandPropGuards.hs @@ -117,10 +117,10 @@ newName locName props = case thing locName of Qual modName ident -> do let txt = identText ident - txt' = pack $ renderOneLine $ pp props + txt' = pack $ show $ pp props pure $ const (Qual modName (mkIdent $ txt <> txt')) <$> locName UnQual ident -> do let txt = identText ident - txt' = pack $ renderOneLine $ pp props + txt' = pack $ show $ pp props pure $ const (UnQual (mkIdent $ txt <> txt')) <$> locName NewName _ _ -> panic "mkName" ["During expanding prop guards, tried to make new name from NewName case of PName"] diff --git a/src/Cryptol/TypeCheck/AST.hs b/src/Cryptol/TypeCheck/AST.hs index 0ba1498ba..6f80c0804 100644 --- a/src/Cryptol/TypeCheck/AST.hs +++ b/src/Cryptol/TypeCheck/AST.hs @@ -268,7 +268,10 @@ instance PP (WithNames Expr) where , hang "where" 2 (vcat (map ppW ds)) ] - EPropGuards _guards -> undefined -- TODO + EPropGuards guards -> + parens (text "propguard" <+> hsep (ppGuard <$> guards)) + where ppGuard (props, e) = + pipe <+> commaSep (pp <$> props) <+> text "=>" <+> pp e where ppW x = ppWithNames nm x diff --git a/src/Cryptol/TypeCheck/Infer.hs b/src/Cryptol/TypeCheck/Infer.hs index 65ea5ff9a..a66890b24 100644 --- a/src/Cryptol/TypeCheck/Infer.hs +++ b/src/Cryptol/TypeCheck/Infer.hs @@ -1031,7 +1031,7 @@ checkSigB b (Forall as asmps0 t0, validSchema) = return Decl { dName = thing (P.bName b) , dSignature = Forall as asmps1 t - , dDefinition = DExpr (EPropGuards cases1) + , dDefinition = DExpr (foldr ETAbs (foldr EProofAbs (EPropGuards cases1) asmps0) as) , dPragmas = P.bPragmas b , dInfix = P.bInfix b , dFixity = P.bFixity b diff --git a/src/Cryptol/Utils/PP.hs b/src/Cryptol/Utils/PP.hs index 7c14a3075..1af1c9fd2 100644 --- a/src/Cryptol/Utils/PP.hs +++ b/src/Cryptol/Utils/PP.hs @@ -337,6 +337,8 @@ comma = liftPP PP.comma colon :: Doc colon = liftPP PP.colon +pipe :: Doc +pipe = liftPP PP.pipe instance PP T.Text where ppPrec _ str = text (T.unpack str) diff --git a/tests/constraint-guards/Parsing.cry b/tests/constraint-guards/Parsing.cry index 52e09193b..4d374ad85 100644 --- a/tests/constraint-guards/Parsing.cry +++ b/tests/constraint-guards/Parsing.cry @@ -5,6 +5,9 @@ module Parsing where foo : {n} [n] -> [n] foo x = x +l : {n} fin n => [n] -> [n] +l _ = `n + // f : {n} [n] -> [n] // f .. x = x @@ -40,22 +43,23 @@ foo x = x // g' : {n} [n] -> [n] // g' <| (n == 1) |> x = x -f : {n} [n] -> [n] +f : {n} [n] -> [8] f x = propguards | n == 1 => g1 x // passes | n == 2 => g2 x // passes | n == 3 => g3 x // passes // | n == n => g4 x // fails -g1 : {n} (n == 1) => [n] -> [n] -g1 x = x +g1 : {n} (n == 1) => [n] -> [8] +g1 x = 1 + +g2 : {n} (n == 2) => [n] -> [8] +g2 x = 2 -g2 : {n} (n == 2) => [n] -> [n] -g2 x = x +g3 : {n} (n == 3) => [n] -> [8] +g3 x = 3 -g3 : {n} (n == 3) => [n] -> [n] -g3 x = x +g4 : {n} (n == 4) => [n] -> [8] +g4 x = 4 -g4 : {n} (n == 4) => [n] -> [n] -g4 x = x From d9c9a56a1efd484ce401f5e713838bf27885ca95 Mon Sep 17 00:00:00 2001 From: Henry Blanchette Date: Fri, 8 Jul 2022 12:51:28 -0700 Subject: [PATCH 023/125] removed unsafePeroformIO debugging --- src/Cryptol/Eval.hs | 8 -------- 1 file changed, 8 deletions(-) diff --git a/src/Cryptol/Eval.hs b/src/Cryptol/Eval.hs index f58b8fb1e..bb95ad380 100644 --- a/src/Cryptol/Eval.hs +++ b/src/Cryptol/Eval.hs @@ -69,7 +69,6 @@ import Control.Applicative import Prelude () import Prelude.Compat import Math.NumberTheory.Primes (UniqueFactorisation(isPrime)) -import System.IO.Unsafe (unsafePerformIO) type EvalEnv = GenEvalEnv Concrete @@ -443,13 +442,6 @@ evalDecl :: -- let ?range = nameLoc (dName d) in evalDecl sym renv env d = do let ?range = nameLoc (dName d) - -- case show $ pp d of - -- 'P' : 'a' : 'r' : 's' : 'i' : 'n' : 'g' : ':' : ':' : 'x' : 'x' : 'x' : _ -> pure $! unsafePerformIO $ do - -- putStrLn "===[ pp ]=====================" - -- print $ pp d - -- putStrLn "===[ show ]=====================" - -- print d - -- _ -> pure () case dDefinition d of DPrim -> case ?evalPrim =<< asPrim (dName d) of From f578222001be4d8f22eae67398dd2ae06ca340f4 Mon Sep 17 00:00:00 2001 From: Henry Blanchette Date: Mon, 18 Jul 2022 15:16:21 -0700 Subject: [PATCH 024/125] implemented simple evaluation over Props for checking prop guards --- src/Cryptol/Eval.hs | 20 +++++++------------- src/Cryptol/Eval/Type.hs | 1 + src/Cryptol/Parser/ExpandPropGuards.hs | 1 + src/Cryptol/TypeCheck/Infer.hs | 4 +++- 4 files changed, 12 insertions(+), 14 deletions(-) diff --git a/src/Cryptol/Eval.hs b/src/Cryptol/Eval.hs index bb95ad380..c21340195 100644 --- a/src/Cryptol/Eval.hs +++ b/src/Cryptol/Eval.hs @@ -68,7 +68,6 @@ import Control.Applicative import Prelude () import Prelude.Compat -import Math.NumberTheory.Primes (UniqueFactorisation(isPrime)) type EvalEnv = GenEvalEnv Concrete @@ -221,7 +220,6 @@ evalExpr sym env expr = case expr of EPropGuards guards -> {-# SCC "evalExpr->EPropGuards" #-} do -- TODO: says that type var not bound.. which is true because we haven't called the function yet... let - -- evalPropGuard :: ([Prop], Expr) -> SEval sym (Maybe (GenValue sym)) evalPropGuard (props, e) = do if and $ evalProp env <$> props then Just <$> evalExpr sym env e @@ -239,19 +237,15 @@ evalExpr sym env expr = case expr of evalProp :: GenEvalEnv sym -> Prop -> Bool evalProp EvalEnv { envTypes } prop = case prop of TCon tcon ts - -- | Just ns <- sequence $ toTypeNat' . evalType envTypes <$> ts | ns <- evalNumType envTypes <$> ts - -> case (tcon, ns) of - (PC PEqual, [n1, n2]) -> n1 == n2 - (PC PNeq, [n1, n2]) -> n1 /= n2 - (PC PGeq, [n1, n2]) -> n1 <= n2 - (PC PFin, [n]) -> n /= Inf - (PC PPrime, [Nat n]) -> isJust $ isPrime n - _ -> evalPanic "evalProp" ["invalid use of constraints: ", show . pp $ prop ] + -> case tcon of + PC PEqual | [n1, n2] <- ns -> n1 == n2 + PC PNeq | [n1, n2] <- ns -> n1 /= n2 + PC PGeq | [n1, n2] <- ns -> n1 >= n2 + PC PFin | [n] <- ns -> n /= Inf + -- PC PPrime | [n] <- ns -> isJust (isPrime n) -- TODO: instantiate UniqueFactorization for Nat'? + _ -> evalPanic "evalProp" ["cannot use this as a guarding constraint: ", show . pp $ prop ] _ -> evalPanic "evalProp" ["cannot use this as a guarding constraint: ", show . pp $ prop ] - -- where - -- toTypeNat' (Left a) = Just a - -- toTypeNat' (Right _) = Nothing -- | Capure the current call stack from the evaluation monad and -- annotate function values. When arguments are later applied diff --git a/src/Cryptol/Eval/Type.hs b/src/Cryptol/Eval/Type.hs index ced6e1c9d..e757b9e80 100644 --- a/src/Cryptol/Eval/Type.hs +++ b/src/Cryptol/Eval/Type.hs @@ -100,6 +100,7 @@ finNat' n' = newtype TypeEnv = TypeEnv { envTypeMap :: IntMap.IntMap (Either Nat' TValue) } + deriving (Show) instance Monoid TypeEnv where mempty = TypeEnv mempty diff --git a/src/Cryptol/Parser/ExpandPropGuards.hs b/src/Cryptol/Parser/ExpandPropGuards.hs index ceba6ede5..a27df0bd9 100644 --- a/src/Cryptol/Parser/ExpandPropGuards.hs +++ b/src/Cryptol/Parser/ExpandPropGuards.hs @@ -79,6 +79,7 @@ instance ExpandPropGuards [Decl PName] where instance ExpandPropGuards [Bind PName] where expandPropGuards binds = concat <$> traverse f binds where + f :: Bind PName -> Either Error [Bind PName] f bind = case thing $ bDef bind of DPropGuards guards -> do Forall params props t rng <- diff --git a/src/Cryptol/TypeCheck/Infer.hs b/src/Cryptol/TypeCheck/Infer.hs index a66890b24..72dbf2eea 100644 --- a/src/Cryptol/TypeCheck/Infer.hs +++ b/src/Cryptol/TypeCheck/Infer.hs @@ -14,7 +14,7 @@ {-# LANGUAGE RecursiveDo #-} {-# LANGUAGE OverloadedStrings #-} {-# LANGUAGE BlockArguments #-} -{-# LANGUAGE Safe #-} +{-# LANGUAGE Trustworthy #-} -- See Note [-Wincomplete-uni-patterns and irrefutable patterns] in Cryptol.TypeCheck.TypePat {-# OPTIONS_GHC -Wno-incomplete-uni-patterns #-} module Cryptol.TypeCheck.Infer @@ -1006,6 +1006,8 @@ checkSigB b (Forall as asmps0 t0, validSchema) = , dDoc = P.bDoc b } + -- TODO: somewhere in here, the signature's props are being added into the + -- propguard's props, but they shound't be P.DPropGuards cases0 -> inRangeMb (getLoc b) $ withTParams as $ do From 764442aaa32270d71ecaa53222f6509004df53bd Mon Sep 17 00:00:00 2001 From: Henry Blanchette Date: Mon, 18 Jul 2022 15:19:04 -0700 Subject: [PATCH 025/125] removed old coment --- src/Cryptol/TypeCheck/Infer.hs | 2 -- 1 file changed, 2 deletions(-) diff --git a/src/Cryptol/TypeCheck/Infer.hs b/src/Cryptol/TypeCheck/Infer.hs index 72dbf2eea..bc03218fe 100644 --- a/src/Cryptol/TypeCheck/Infer.hs +++ b/src/Cryptol/TypeCheck/Infer.hs @@ -1006,8 +1006,6 @@ checkSigB b (Forall as asmps0 t0, validSchema) = , dDoc = P.bDoc b } - -- TODO: somewhere in here, the signature's props are being added into the - -- propguard's props, but they shound't be P.DPropGuards cases0 -> inRangeMb (getLoc b) $ withTParams as $ do From 4fc59a3e1a93d43fb8005b3d410d3ebfd1bd8979 Mon Sep 17 00:00:00 2001 From: Henry Blanchette Date: Fri, 22 Jul 2022 14:51:35 -0700 Subject: [PATCH 026/125] builds: before removing old code (in comments) --- src/Cryptol/TypeCheck/Infer.hs | 167 ++++++++++++++++++++++++++++----- src/Cryptol/TypeCheck/Kind.hs | 35 +++++-- src/Cryptol/TypeCheck/Solve.hs | 17 ++++ 3 files changed, 185 insertions(+), 34 deletions(-) diff --git a/src/Cryptol/TypeCheck/Infer.hs b/src/Cryptol/TypeCheck/Infer.hs index bc03218fe..a664063e2 100644 --- a/src/Cryptol/TypeCheck/Infer.hs +++ b/src/Cryptol/TypeCheck/Infer.hs @@ -17,6 +17,7 @@ {-# LANGUAGE Trustworthy #-} -- See Note [-Wincomplete-uni-patterns and irrefutable patterns] in Cryptol.TypeCheck.TypePat {-# OPTIONS_GHC -Wno-incomplete-uni-patterns #-} +{-# LANGUAGE LambdaCase #-} module Cryptol.TypeCheck.Infer ( checkE , checkSigB @@ -57,13 +58,15 @@ import qualified Data.Map as Map import Data.Map (Map) import qualified Data.Set as Set import Data.List(foldl',sortBy,groupBy) -import Data.Either(partitionEithers) +import Data.Either(partitionEithers, isRight, isLeft) import Data.Maybe(isJust, fromMaybe, mapMaybe) import Data.List(partition) import Data.Ratio(numerator,denominator) import Data.Traversable(forM) import Data.Function(on) -import Control.Monad(zipWithM,unless,foldM,forM_,mplus) +import Control.Monad(zipWithM,unless,foldM,forM_,mplus,filterM) +import System.IO.Unsafe (unsafePerformIO) +import Data.Bifunctor (Bifunctor(first, second, bimap)) @@ -968,7 +971,7 @@ checkMonoB b t = , dFixity = P.bFixity b , dDoc = P.bDoc b } - + P.DPropGuards _ -> tcPanic "checkMonoB" [ "Used constraint guards without a signature, dumbwit, at " @@ -976,12 +979,12 @@ checkMonoB b t = -- XXX: Do we really need to do the defaulting business in two different places? checkSigB :: P.Bind Name -> (Schema,[Goal]) -> InferM Decl -checkSigB b (Forall as asmps0 t0, validSchema) = +checkSigB b (Forall as asmps0 t0, validSchema) = case thing (P.bDef b) of -- XXX what should we do with validSchema in this case? P.DPrim -> do - return Decl + return Decl { dName = thing (P.bName b) , dSignature = Forall as asmps0 t0 , dDefinition = DPrim @@ -994,7 +997,7 @@ checkSigB b (Forall as asmps0 t0, validSchema) = P.DExpr e0 -> inRangeMb (getLoc b) $ withTParams as $ do - (t, asmps, e2) <- checkBindDefExpr asmps0 e0 + (t, asmps, e2) <- checkBindDefExpr [] asmps0 e0 return Decl { dName = thing (P.bName b) @@ -1006,43 +1009,149 @@ checkSigB b (Forall as asmps0 t0, validSchema) = , dDoc = P.bDoc b } - P.DPropGuards cases0 -> + -- TODO: If the guarding prop is `n == 0` then here the constraint `fin n` + -- will be inferred. But, if the signature already constrains `fin n`, + -- then it should not be redundantly included in the validated guard again, + -- since then it will be checked unecessarily. + + -- TODO: In general, if a goal is inferred by a guarding constraint and also + -- implied the declaration's constraints, then that goal should not be + -- prepended to the local assumptions of the guard. + + -- TODO: can i check the implication considered above using an SMT solver + -- call? + + P.DPropGuards cases0 -> inRangeMb (getLoc b) $ withTParams as $ do + asmps1 <- applySubstPreds asmps0 + t1 <- applySubst t0 + -- Checking each guarded case is the same as checking a DExpr, except -- that the guarding assumptions are added first. let checkPropGuardCase :: ([P.Prop Name], P.Expr Name) -> InferM ([Prop], Expr) - checkPropGuardCase (asmpsGuard0, e0) = do - asmps0' <- do + checkPropGuardCase (guards0, e0) = do + let pSchema = case P.bSignature b of + Just schema -> schema + _ -> undefined -- TODO: handle error + -- TODO: use new impl of `checkPropGuard` + -- check guards + (guards1, goals) <- + second concat . unzip <$> + checkPropGuard pSchema `traverse` guards0 + -- try to prove all goals + su <- proveImplication (Just . thing $ P.bName b) as (asmps1 <> guards1) goals + extendSubst su + let guards2 = concatMap pSplitAnd (apSubst su guards1) + (_t, guards3, e1) <- checkBindDefExpr asmps1 guards2 e0 + e2 <- applySubst e1 + pure (guards3, e2) + + {- + -- OLD + -- Checking each guarded case is the same as checking a DExpr, except + -- that the guarding assumptions are added first. + let checkPropGuardCase' :: ([P.Prop Name], P.Expr Name) -> InferM ([Prop], Expr) + checkPropGuardCase' (asmpsGuard0, e0) = do + pure $! unsafePerformIO $ putStrLn "====================================" -- DEBUG + asmpsGuard0' <- do -- validate props - (asmpsGuard1', goalss) <- unzip <$> mapM checkPropGuard asmpsGuard0 - let asmpsGoals = goal <$> concat goalss - asmpsGuard2 = asmpsGoals <> asmpsGuard1' - pure $ asmps0 <> asmpsGuard2 + -- - asmpsGuard1': validated props in the guard + -- - goals: goals that are yielded by validating the props (i.e. + -- additional assumptions needed to make sense of props) + -- - goals': goals that are not already implied by the + -- declaration's constraints + let bTParams = case P.bSignature b of + Just (P.Forall params _ _ _) -> params + _ -> undefined -- TODO: error handle + ((asmpsGuard1', propsInferred), goals) <- + first (second concat . unzip) . -- concats propsInferred + fmap concat . + unzip <$> + mapM (checkPropGuard (zip3 (P.tpName <$> bTParams) (Just . tpKind <$> as) as)) asmpsGuard0 + + pure $! unsafePerformIO $ putStrLn $ "propsInferred = " ++ show (pp <$> propsInferred) + pure $! unsafePerformIO $ putStrLn $ "goals = " ++ show (pp . goal <$> goals) + + -- filter out propsInferred that are implied by asmps1, which + -- are the assumptions introduced by declaration + + let makeGoal :: Prop -> Goal + makeGoal prop = Goal + { goalSource = CtImprovement + , goalRange = emptyRange -- TODO: better range + , goal = prop + } + + propsInferred' <- + concat <$> + mapM + (\prop -> do + tryProveImplication Nothing as asmps1 [makeGoal prop] >>= \case + -- if can be proven, then DON'T need to include it among + -- the guarding constraints + Right _su -> pure [] + -- if can't be proven, then DO need to include it among + -- the guarding constraints + Left _errs -> pure [prop] + ) + propsInferred + + pure $! unsafePerformIO $ putStrLn $ "propsInferred' = " ++ show (pp <$> propsInferred') + + -- filter out collected goals that are implied by asmps1, which + -- are the assumptions introduced by declaration + goals' <- + concat <$> + mapM + (\goal -> do + tryProveImplication Nothing as asmps1 [goal] >>= \case + -- if can be proven, then DON'T need to include it among + -- the guarding constraints + Right _su -> pure [] + -- if can't be proven, then DO need to include it among + -- the guarding constraints + Left _errs -> pure [goal] + ) + goals + + pure $! unsafePerformIO $ putStrLn $ "goals' = " ++ show (pp . goal <$> goals') + + let asmpsGoals = goal <$> goals' + + -- note that the goals are checked first, to prevent checking a + -- prop that is undefined if the goal is not satisfied + let asmpsGuard2 = asmpsGoals <> propsInferred' <> asmpsGuard1' + + pure $! unsafePerformIO $ putStrLn $ "asmpsGuard2 = " ++ show (pp <$> asmpsGuard2) + + pure asmpsGuard2 + + (_t', props', e') <- checkBindDefExpr asmps1 asmpsGuard0' e0 + + pure $! unsafePerformIO $ putStrLn $ "props' = " ++ show (pp <$> props') ++ "\n====================================" + pure $! unsafePerformIO $ putStrLn "====================================" - (_t', props', e') <- checkBindDefExpr asmps0' e0 pure (props', e') + -} cases1 <- mapM checkPropGuardCase cases0 - asmps1 <- applySubstPreds asmps0 - t <- applySubst t0 - return Decl { dName = thing (P.bName b) - , dSignature = Forall as asmps1 t - , dDefinition = DExpr (foldr ETAbs (foldr EProofAbs (EPropGuards cases1) asmps0) as) + , dSignature = Forall as asmps1 t1 + , dDefinition = DExpr (foldr ETAbs (foldr EProofAbs (EPropGuards cases1) asmps1) as) , dPragmas = P.bPragmas b , dInfix = P.bInfix b , dFixity = P.bFixity b , dDoc = P.bDoc b } - + where - checkBindDefExpr :: [Prop] -> P.Expr Name -> InferM (Type, [Prop], Expr) - checkBindDefExpr asmps1 e0 = do - + checkBindDefExpr :: [Prop] -> [Prop] -> P.Expr Name -> InferM (Type, [Prop], Expr) + checkBindDefExpr asmpsSign asmps1 e0 = do + (e1,cs0) <- collectGoals $ do let nm = thing (P.bName b) tGoal = WithSource t0 (DefinitionOf nm) (getLoc b) @@ -1051,9 +1160,14 @@ checkSigB b (Forall as asmps0 t0, validSchema) = () <- simplifyAllConstraints -- XXX: using `asmps` also? return e1 + -- pure $! unsafePerformIO $ putStrLn $ "[*] asmpsSign = " ++ show (pp <$> asmpsSign) -- DEBUG + -- pure $! unsafePerformIO $ putStrLn $ "[*] asmps1 = " ++ show (pp <$> asmps1) -- DEBUG + asmps2 <- applySubstPreds asmps1 cs <- applySubstGoals cs0 + -- pure $! unsafePerformIO $ putStrLn $ "[*] asmps2 = " ++ show (pp <$> asmps2) -- DEBUG + let findKeep vs keep todo = let stays (_,cvs) = not $ Set.null $ Set.intersection vs cvs (yes,perhaps) = partition stays todo @@ -1070,14 +1184,17 @@ checkSigB b (Forall as asmps0 t0, validSchema) = addGoals leave - - su <- proveImplication (Just (thing (P.bName b))) as asmps2 stay + -- includes asmpsSign for the sake of implication, but doesn't actually + -- include them in the resulting asmps + su <- proveImplication (Just (thing (P.bName b))) as (asmpsSign <> asmps2) stay extendSubst su let asmps = concatMap pSplitAnd (apSubst su asmps2) t <- applySubst t0 e2 <- applySubst e1 + -- pure $! unsafePerformIO $ putStrLn $ "[*] asmps = " ++ show (pp <$> asmps) -- DEBUG + pure (t, asmps, e2) -------------------------------------------------------------------------------- diff --git a/src/Cryptol/TypeCheck/Kind.hs b/src/Cryptol/TypeCheck/Kind.hs index b896e1ff0..ab5e897d0 100644 --- a/src/Cryptol/TypeCheck/Kind.hs +++ b/src/Cryptol/TypeCheck/Kind.hs @@ -7,7 +7,7 @@ -- Portability : portable {-# LANGUAGE RecursiveDo #-} -{-# LANGUAGE Safe #-} +{-# LANGUAGE Trustworthy #-} -- See Note [-Wincomplete-uni-patterns and irrefutable patterns] in Cryptol.TypeCheck.TypePat {-# OPTIONS_GHC -Wno-incomplete-uni-patterns #-} module Cryptol.TypeCheck.Kind @@ -40,6 +40,8 @@ import Data.Maybe(fromMaybe) import Data.Function(on) import Data.Text (Text) import Control.Monad(unless,when) +import System.IO.Unsafe (unsafePerformIO) +import Cryptol.TypeCheck.PP (pp) -- | Check a type signature. Returns validated schema, and any implicit -- constraints that we inferred. @@ -65,6 +67,17 @@ checkSchema withWild (P.Forall xs ps t mb) = Nothing -> id Just r -> inRange r +checkPropGuard :: P.Schema Name -> P.Prop Name -> InferM (Type, [Goal]) +checkPropGuard (P.Forall xs _ _ mb_rng) prop = do + ((_, t), goals) <- + collectGoals $ + rng $ + withTParams NoWildCards schemaParam xs $ + checkProp prop + pure (t, goals) + where + rng = maybe id inRange mb_rng + -- | Check a module parameter declarations. Nothing much to check, -- we just translate from one syntax to another. checkParameterType :: P.ParameterType Name -> Maybe Text -> InferM ModTParam @@ -412,11 +425,15 @@ checkKind _ (Just k1) k2 checkKind t _ _ = return t --- | Validate a parsed proposition that appears on the LHS of a PropGuard. --- Returns the validated proposition as well as any inferred goal propisitions. -checkPropGuard :: P.Prop Name -> InferM (Prop, [Goal]) -checkPropGuard p = - collectGoals $ - fmap (\(t, _, _) -> t) $ - runKindM NoWildCards [] $ - checkProp p +-- -- | Validate a parsed proposition that appears on the LHS of a PropGuard. +-- -- Returns the validated proposition as well as any inferred goal propisitions. +-- checkPropGuard :: [(Name, Maybe Kind, TParam)] -> P.Prop Name -> InferM ((Prop, [Prop]), [Goal]) +-- checkPropGuard params p = +-- collectGoals $ +-- fmap (\(t, _, res) -> unsafePerformIO $ do +-- -- print (fmap pp . snd <$> res) -- DEBUG +-- pure (t, concat $ snd <$> res) +-- ) $ +-- runKindM NoWildCards params $ +-- checkProp p + diff --git a/src/Cryptol/TypeCheck/Solve.hs b/src/Cryptol/TypeCheck/Solve.hs index b0bc432dc..2e9657836 100644 --- a/src/Cryptol/TypeCheck/Solve.hs +++ b/src/Cryptol/TypeCheck/Solve.hs @@ -285,6 +285,23 @@ proveImplication lnam as ps gs = Left errs -> mapM_ recordError errs return su +-- FIX: don't need this anymore +-- -- | Tries to prove an implication, and return any improvements that we computed +-- -- if it can be prove. If can't be proven, then returns errors. +-- tryProveImplication :: Maybe Name -> [TParam] -> [Prop] -> [Goal] -> InferM (Either [Error] Subst) +-- tryProveImplication lnam as ps gs = +-- do evars <- varsWithAsmps +-- solver <- getSolver + +-- extraAs <- map mtpParam . Map.elems <$> getParamTypes +-- extra <- map thing <$> getParamConstraints + +-- (mbErr,su) <- io (proveImplicationIO solver lnam evars +-- (extraAs ++ as) (extra ++ ps) gs) +-- case mbErr of +-- Right ws -> mapM_ recordWarning ws >> pure (Right su) +-- Left errs -> mapM_ recordError errs >> pure (Left errs) + proveImplicationIO :: Solver -> Maybe Name -- ^ Checking this function From e640aa287ac55dac02598bd52b2f6e6a31200ed9 Mon Sep 17 00:00:00 2001 From: Henry Blanchette Date: Fri, 22 Jul 2022 14:54:48 -0700 Subject: [PATCH 027/125] [builds] after removing old code (in comments) --- src/Cryptol/TypeCheck/Infer.hs | 107 +-------------------------------- src/Cryptol/TypeCheck/Kind.hs | 18 +----- src/Cryptol/TypeCheck/Solve.hs | 18 ------ 3 files changed, 5 insertions(+), 138 deletions(-) diff --git a/src/Cryptol/TypeCheck/Infer.hs b/src/Cryptol/TypeCheck/Infer.hs index a664063e2..e931f1933 100644 --- a/src/Cryptol/TypeCheck/Infer.hs +++ b/src/Cryptol/TypeCheck/Infer.hs @@ -58,15 +58,14 @@ import qualified Data.Map as Map import Data.Map (Map) import qualified Data.Set as Set import Data.List(foldl',sortBy,groupBy) -import Data.Either(partitionEithers, isRight, isLeft) +import Data.Either(partitionEithers) import Data.Maybe(isJust, fromMaybe, mapMaybe) import Data.List(partition) import Data.Ratio(numerator,denominator) import Data.Traversable(forM) import Data.Function(on) -import Control.Monad(zipWithM,unless,foldM,forM_,mplus,filterM) -import System.IO.Unsafe (unsafePerformIO) -import Data.Bifunctor (Bifunctor(first, second, bimap)) +import Control.Monad(zipWithM,unless,foldM,forM_,mplus) +import Data.Bifunctor (Bifunctor(second)) @@ -1009,18 +1008,6 @@ checkSigB b (Forall as asmps0 t0, validSchema) = , dDoc = P.bDoc b } - -- TODO: If the guarding prop is `n == 0` then here the constraint `fin n` - -- will be inferred. But, if the signature already constrains `fin n`, - -- then it should not be redundantly included in the validated guard again, - -- since then it will be checked unecessarily. - - -- TODO: In general, if a goal is inferred by a guarding constraint and also - -- implied the declaration's constraints, then that goal should not be - -- prepended to the local assumptions of the guard. - - -- TODO: can i check the implication considered above using an SMT solver - -- call? - P.DPropGuards cases0 -> inRangeMb (getLoc b) $ withTParams as $ do @@ -1047,94 +1034,6 @@ checkSigB b (Forall as asmps0 t0, validSchema) = e2 <- applySubst e1 pure (guards3, e2) - {- - -- OLD - -- Checking each guarded case is the same as checking a DExpr, except - -- that the guarding assumptions are added first. - let checkPropGuardCase' :: ([P.Prop Name], P.Expr Name) -> InferM ([Prop], Expr) - checkPropGuardCase' (asmpsGuard0, e0) = do - pure $! unsafePerformIO $ putStrLn "====================================" -- DEBUG - asmpsGuard0' <- do - -- validate props - -- - asmpsGuard1': validated props in the guard - -- - goals: goals that are yielded by validating the props (i.e. - -- additional assumptions needed to make sense of props) - -- - goals': goals that are not already implied by the - -- declaration's constraints - let bTParams = case P.bSignature b of - Just (P.Forall params _ _ _) -> params - _ -> undefined -- TODO: error handle - ((asmpsGuard1', propsInferred), goals) <- - first (second concat . unzip) . -- concats propsInferred - fmap concat . - unzip <$> - mapM (checkPropGuard (zip3 (P.tpName <$> bTParams) (Just . tpKind <$> as) as)) asmpsGuard0 - - pure $! unsafePerformIO $ putStrLn $ "propsInferred = " ++ show (pp <$> propsInferred) - pure $! unsafePerformIO $ putStrLn $ "goals = " ++ show (pp . goal <$> goals) - - -- filter out propsInferred that are implied by asmps1, which - -- are the assumptions introduced by declaration - - let makeGoal :: Prop -> Goal - makeGoal prop = Goal - { goalSource = CtImprovement - , goalRange = emptyRange -- TODO: better range - , goal = prop - } - - propsInferred' <- - concat <$> - mapM - (\prop -> do - tryProveImplication Nothing as asmps1 [makeGoal prop] >>= \case - -- if can be proven, then DON'T need to include it among - -- the guarding constraints - Right _su -> pure [] - -- if can't be proven, then DO need to include it among - -- the guarding constraints - Left _errs -> pure [prop] - ) - propsInferred - - pure $! unsafePerformIO $ putStrLn $ "propsInferred' = " ++ show (pp <$> propsInferred') - - -- filter out collected goals that are implied by asmps1, which - -- are the assumptions introduced by declaration - goals' <- - concat <$> - mapM - (\goal -> do - tryProveImplication Nothing as asmps1 [goal] >>= \case - -- if can be proven, then DON'T need to include it among - -- the guarding constraints - Right _su -> pure [] - -- if can't be proven, then DO need to include it among - -- the guarding constraints - Left _errs -> pure [goal] - ) - goals - - pure $! unsafePerformIO $ putStrLn $ "goals' = " ++ show (pp . goal <$> goals') - - let asmpsGoals = goal <$> goals' - - -- note that the goals are checked first, to prevent checking a - -- prop that is undefined if the goal is not satisfied - let asmpsGuard2 = asmpsGoals <> propsInferred' <> asmpsGuard1' - - pure $! unsafePerformIO $ putStrLn $ "asmpsGuard2 = " ++ show (pp <$> asmpsGuard2) - - pure asmpsGuard2 - - (_t', props', e') <- checkBindDefExpr asmps1 asmpsGuard0' e0 - - pure $! unsafePerformIO $ putStrLn $ "props' = " ++ show (pp <$> props') ++ "\n====================================" - pure $! unsafePerformIO $ putStrLn "====================================" - - pure (props', e') - -} - cases1 <- mapM checkPropGuardCase cases0 return Decl diff --git a/src/Cryptol/TypeCheck/Kind.hs b/src/Cryptol/TypeCheck/Kind.hs index ab5e897d0..b665366d6 100644 --- a/src/Cryptol/TypeCheck/Kind.hs +++ b/src/Cryptol/TypeCheck/Kind.hs @@ -40,8 +40,6 @@ import Data.Maybe(fromMaybe) import Data.Function(on) import Data.Text (Text) import Control.Monad(unless,when) -import System.IO.Unsafe (unsafePerformIO) -import Cryptol.TypeCheck.PP (pp) -- | Check a type signature. Returns validated schema, and any implicit -- constraints that we inferred. @@ -67,6 +65,8 @@ checkSchema withWild (P.Forall xs ps t mb) = Nothing -> id Just r -> inRange r +-- | Validate a parsed proposition that appears in the guard of a PropGuard. +-- Returns the validated proposition as well as any inferred goal propisitions. checkPropGuard :: P.Schema Name -> P.Prop Name -> InferM (Type, [Goal]) checkPropGuard (P.Forall xs _ _ mb_rng) prop = do ((_, t), goals) <- @@ -423,17 +423,3 @@ checkKind _ (Just k1) k2 | k1 /= k2 = do kRecordError (KindMismatch Nothing k1 k2) kNewType TypeErrorPlaceHolder k1 checkKind t _ _ = return t - - --- -- | Validate a parsed proposition that appears on the LHS of a PropGuard. --- -- Returns the validated proposition as well as any inferred goal propisitions. --- checkPropGuard :: [(Name, Maybe Kind, TParam)] -> P.Prop Name -> InferM ((Prop, [Prop]), [Goal]) --- checkPropGuard params p = --- collectGoals $ --- fmap (\(t, _, res) -> unsafePerformIO $ do --- -- print (fmap pp . snd <$> res) -- DEBUG --- pure (t, concat $ snd <$> res) --- ) $ --- runKindM NoWildCards params $ --- checkProp p - diff --git a/src/Cryptol/TypeCheck/Solve.hs b/src/Cryptol/TypeCheck/Solve.hs index 2e9657836..d79764546 100644 --- a/src/Cryptol/TypeCheck/Solve.hs +++ b/src/Cryptol/TypeCheck/Solve.hs @@ -285,24 +285,6 @@ proveImplication lnam as ps gs = Left errs -> mapM_ recordError errs return su --- FIX: don't need this anymore --- -- | Tries to prove an implication, and return any improvements that we computed --- -- if it can be prove. If can't be proven, then returns errors. --- tryProveImplication :: Maybe Name -> [TParam] -> [Prop] -> [Goal] -> InferM (Either [Error] Subst) --- tryProveImplication lnam as ps gs = --- do evars <- varsWithAsmps --- solver <- getSolver - --- extraAs <- map mtpParam . Map.elems <$> getParamTypes --- extra <- map thing <$> getParamConstraints - --- (mbErr,su) <- io (proveImplicationIO solver lnam evars --- (extraAs ++ as) (extra ++ ps) gs) --- case mbErr of --- Right ws -> mapM_ recordWarning ws >> pure (Right su) --- Left errs -> mapM_ recordError errs >> pure (Left errs) - - proveImplicationIO :: Solver -> Maybe Name -- ^ Checking this function -> Set TVar -- ^ These appear in the env., and we should From 005c7da191132cd6ed2ff144b1720d640d812b19 Mon Sep 17 00:00:00 2001 From: Henry Blanchette Date: Fri, 22 Jul 2022 15:16:09 -0700 Subject: [PATCH 028/125] some tests --- tests/constraint-guards/Test1.cry | 12 ++++++++++++ tests/constraint-guards/Test2.cry | 5 +++++ tests/constraint-guards/Test3.cry | 4 ++++ 3 files changed, 21 insertions(+) create mode 100644 tests/constraint-guards/Test1.cry create mode 100644 tests/constraint-guards/Test2.cry create mode 100644 tests/constraint-guards/Test3.cry diff --git a/tests/constraint-guards/Test1.cry b/tests/constraint-guards/Test1.cry new file mode 100644 index 000000000..7b3bb18ba --- /dev/null +++ b/tests/constraint-guards/Test1.cry @@ -0,0 +1,12 @@ +// PASSES +// testA : {n} (fin n) => [n] -> [n] +// testA x = propguards +// | n - n == 0 => x + +// FAILS +// testB : {m, n, l} [n] -> [n] +// testB x = propguards +// | (m - n == l) => x + +test : {m, n, l} (m - n == l) => [n] -> [n] +test x = x \ No newline at end of file diff --git a/tests/constraint-guards/Test2.cry b/tests/constraint-guards/Test2.cry new file mode 100644 index 000000000..21c80c478 --- /dev/null +++ b/tests/constraint-guards/Test2.cry @@ -0,0 +1,5 @@ +// WHY isn't n in scope during evaluation? it typechecks just fine +len : {n, a} (fin n) => [n]a -> Integer +len x = propguards + | (n == 0) => 0 + | (n >= 1) => 1 + len (drop`{1} x) diff --git a/tests/constraint-guards/Test3.cry b/tests/constraint-guards/Test3.cry new file mode 100644 index 000000000..47535ab98 --- /dev/null +++ b/tests/constraint-guards/Test3.cry @@ -0,0 +1,4 @@ +test : {n, a} [n]a -> Integer +test x = propguards + | (n - 1 >= 0, n >= 1) => 0 + | n == n => 1 \ No newline at end of file From 09f6087f95a2f0b6ff872ad21c66eb8c64f52c07 Mon Sep 17 00:00:00 2001 From: Henry Blanchette Date: Fri, 22 Jul 2022 15:16:19 -0700 Subject: [PATCH 029/125] cleanup, better errors --- src/Cryptol/Eval.hs | 5 +++-- src/Cryptol/TypeCheck/Infer.hs | 15 +++++++++------ src/Cryptol/TypeCheck/Kind.hs | 9 ++++++--- 3 files changed, 18 insertions(+), 11 deletions(-) diff --git a/src/Cryptol/Eval.hs b/src/Cryptol/Eval.hs index c21340195..940c100b2 100644 --- a/src/Cryptol/Eval.hs +++ b/src/Cryptol/Eval.hs @@ -218,7 +218,6 @@ evalExpr sym env expr = case expr of evalExpr sym env' e EPropGuards guards -> {-# SCC "evalExpr->EPropGuards" #-} do - -- TODO: says that type var not bound.. which is true because we haven't called the function yet... let evalPropGuard (props, e) = do if and $ evalProp env <$> props @@ -243,7 +242,9 @@ evalProp EvalEnv { envTypes } prop = case prop of PC PNeq | [n1, n2] <- ns -> n1 /= n2 PC PGeq | [n1, n2] <- ns -> n1 >= n2 PC PFin | [n] <- ns -> n /= Inf - -- PC PPrime | [n] <- ns -> isJust (isPrime n) -- TODO: instantiate UniqueFactorization for Nat'? + -- TODO: instantiate UniqueFactorization for Nat'? + -- PC PPrime | [n] <- ns -> isJust (isPrime n) + PC PTrue -> True _ -> evalPanic "evalProp" ["cannot use this as a guarding constraint: ", show . pp $ prop ] _ -> evalPanic "evalProp" ["cannot use this as a guarding constraint: ", show . pp $ prop ] diff --git a/src/Cryptol/TypeCheck/Infer.hs b/src/Cryptol/TypeCheck/Infer.hs index e931f1933..19a6a5aad 100644 --- a/src/Cryptol/TypeCheck/Infer.hs +++ b/src/Cryptol/TypeCheck/Infer.hs @@ -1018,14 +1018,15 @@ checkSigB b (Forall as asmps0 t0, validSchema) = -- that the guarding assumptions are added first. let checkPropGuardCase :: ([P.Prop Name], P.Expr Name) -> InferM ([Prop], Expr) checkPropGuardCase (guards0, e0) = do - let pSchema = case P.bSignature b of - Just schema -> schema - _ -> undefined -- TODO: handle error - -- TODO: use new impl of `checkPropGuard` + mb_rng <- case P.bSignature b of + Just (P.Forall _ _ _ mb_rng) -> pure mb_rng + _ -> panic "checkSigB" + [ "Used constraint guards without a signature, dumbwit, at " + , show . pp $ P.bName b ] -- check guards (guards1, goals) <- second concat . unzip <$> - checkPropGuard pSchema `traverse` guards0 + checkPropGuard mb_rng `traverse` guards0 -- try to prove all goals su <- proveImplication (Just . thing $ P.bName b) as (asmps1 <> guards1) goals extendSubst su @@ -1039,7 +1040,9 @@ checkSigB b (Forall as asmps0 t0, validSchema) = return Decl { dName = thing (P.bName b) , dSignature = Forall as asmps1 t1 - , dDefinition = DExpr (foldr ETAbs (foldr EProofAbs (EPropGuards cases1) asmps1) as) + , dDefinition = DExpr + (foldr ETAbs + (foldr EProofAbs (EPropGuards cases1) asmps1) as) , dPragmas = P.bPragmas b , dInfix = P.bInfix b , dFixity = P.bFixity b diff --git a/src/Cryptol/TypeCheck/Kind.hs b/src/Cryptol/TypeCheck/Kind.hs index b665366d6..6f2b70b6e 100644 --- a/src/Cryptol/TypeCheck/Kind.hs +++ b/src/Cryptol/TypeCheck/Kind.hs @@ -67,12 +67,15 @@ checkSchema withWild (P.Forall xs ps t mb) = -- | Validate a parsed proposition that appears in the guard of a PropGuard. -- Returns the validated proposition as well as any inferred goal propisitions. -checkPropGuard :: P.Schema Name -> P.Prop Name -> InferM (Type, [Goal]) -checkPropGuard (P.Forall xs _ _ mb_rng) prop = do +-- IDEA [WORKS]: is using `xs` making it use the old names rather than the new names? so, try just giving `[]` instead of `xs` to `withTParams` +checkPropGuard :: Maybe Range -> P.Prop Name -> InferM (Type, [Goal]) +checkPropGuard mb_rng prop = do ((_, t), goals) <- collectGoals $ rng $ - withTParams NoWildCards schemaParam xs $ + -- not really doing anything here, since we don't want to introduce any new + -- type vars into scope + withTParams NoWildCards schemaParam [] $ checkProp prop pure (t, goals) where From fc1a42a0a28f85bada820c236aa2bac0f0786043 Mon Sep 17 00:00:00 2001 From: Henry Blanchette Date: Fri, 22 Jul 2022 16:48:42 -0700 Subject: [PATCH 030/125] cleaned; Trustworthy->Safe --- src/Cryptol/TypeCheck/Infer.hs | 2 +- src/Cryptol/TypeCheck/Kind.hs | 3 +-- 2 files changed, 2 insertions(+), 3 deletions(-) diff --git a/src/Cryptol/TypeCheck/Infer.hs b/src/Cryptol/TypeCheck/Infer.hs index c548c1ae6..eba103fb7 100644 --- a/src/Cryptol/TypeCheck/Infer.hs +++ b/src/Cryptol/TypeCheck/Infer.hs @@ -14,7 +14,7 @@ {-# LANGUAGE RecursiveDo #-} {-# LANGUAGE OverloadedStrings #-} {-# LANGUAGE BlockArguments #-} -{-# LANGUAGE Trustworthy #-} +{-# LANGUAGE Safe #-} -- See Note [-Wincomplete-uni-patterns and irrefutable patterns] in Cryptol.TypeCheck.TypePat {-# OPTIONS_GHC -Wno-incomplete-uni-patterns #-} {-# LANGUAGE LambdaCase #-} diff --git a/src/Cryptol/TypeCheck/Kind.hs b/src/Cryptol/TypeCheck/Kind.hs index 6f2b70b6e..45a926012 100644 --- a/src/Cryptol/TypeCheck/Kind.hs +++ b/src/Cryptol/TypeCheck/Kind.hs @@ -7,7 +7,7 @@ -- Portability : portable {-# LANGUAGE RecursiveDo #-} -{-# LANGUAGE Trustworthy #-} +{-# LANGUAGE Safe #-} -- See Note [-Wincomplete-uni-patterns and irrefutable patterns] in Cryptol.TypeCheck.TypePat {-# OPTIONS_GHC -Wno-incomplete-uni-patterns #-} module Cryptol.TypeCheck.Kind @@ -67,7 +67,6 @@ checkSchema withWild (P.Forall xs ps t mb) = -- | Validate a parsed proposition that appears in the guard of a PropGuard. -- Returns the validated proposition as well as any inferred goal propisitions. --- IDEA [WORKS]: is using `xs` making it use the old names rather than the new names? so, try just giving `[]` instead of `xs` to `withTParams` checkPropGuard :: Maybe Range -> P.Prop Name -> InferM (Type, [Goal]) checkPropGuard mb_rng prop = do ((_, t), goals) <- From 1cb8ef2f3b3c1a093da2426ed16a38a98890c748 Mon Sep 17 00:00:00 2001 From: Henry Blanchette Date: Fri, 22 Jul 2022 16:51:54 -0700 Subject: [PATCH 031/125] note about prepending inferred well-formedness goals to guarding constraints --- src/Cryptol/TypeCheck/Infer.hs | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) diff --git a/src/Cryptol/TypeCheck/Infer.hs b/src/Cryptol/TypeCheck/Infer.hs index eba103fb7..f54f0797c 100644 --- a/src/Cryptol/TypeCheck/Infer.hs +++ b/src/Cryptol/TypeCheck/Infer.hs @@ -1027,7 +1027,11 @@ checkSigB b (Forall as asmps0 t0, validSchema) = -- try to prove all goals su <- proveImplication (Just . thing $ P.bName b) as (asmps1 <> guards1) goals extendSubst su - let guards2 = concatMap pSplitAnd (apSubst su guards1) + -- preprends the goals to the constraints, because these must be + -- checked first before the rest of the constraints (during + -- evaluation) to ensure well-definedness, since some constraints + -- make use of partial functions e.g. `a - b` requires `a >= b`. + let guards2 = (goal <$> goals) <> concatMap pSplitAnd (apSubst su guards1) (_t, guards3, e1) <- checkBindDefExpr asmps1 guards2 e0 e2 <- applySubst e1 pure (guards3, e2) From fefcf5681286b0a261b4834065ed67f5a2cfbc79 Mon Sep 17 00:00:00 2001 From: Henry Blanchette Date: Fri, 22 Jul 2022 17:02:48 -0700 Subject: [PATCH 032/125] proper handling of evaluating with inferred well-formedness constraints --- tests/constraint-guards/Test4.cry | 16 ++++++++++++++++ 1 file changed, 16 insertions(+) create mode 100644 tests/constraint-guards/Test4.cry diff --git a/tests/constraint-guards/Test4.cry b/tests/constraint-guards/Test4.cry new file mode 100644 index 000000000..346f21281 --- /dev/null +++ b/tests/constraint-guards/Test4.cry @@ -0,0 +1,16 @@ +test : {n, a} [n]a -> Bit +test x = propguards + | (n - 5 >= 0, n >= 5) => True + | 0 == 0 => False + +property test_True = + (test [1..5] == True) && + (test [1..6] == True) && + (test [1..7] == True) && + (test [1..8] == True) + +property test_False = + (test [1..1] == False) && + (test [1..2] == False) && + (test [1..3] == False) && + (test [1..4] == False) From a3bfb1c445fef424c4f868ed11bcffb6c3c672a2 Mon Sep 17 00:00:00 2001 From: Henry Blanchette Date: Mon, 1 Aug 2022 10:29:42 -0700 Subject: [PATCH 033/125] updated syntax to not use 'propguards' keyword --- src/Cryptol/Parser.hs | 1 - src/Cryptol/Parser.y | 8 +++----- src/Cryptol/Parser/Lexer.x | 2 -- src/Cryptol/Parser/Token.hs | 1 - tests/constraint-guards/Parsing.cry | 3 ++- tests/constraint-guards/Test1.cry | 2 +- tests/constraint-guards/Test2.cry | 2 +- tests/constraint-guards/Test3.cry | 2 +- tests/constraint-guards/Test4.cry | 2 +- 9 files changed, 9 insertions(+), 14 deletions(-) diff --git a/src/Cryptol/Parser.hs b/src/Cryptol/Parser.hs index d64d83a15..d11510b90 100644 --- a/src/Cryptol/Parser.hs +++ b/src/Cryptol/Parser.hs @@ -3474,7 +3474,6 @@ happyNewToken action sts stk Located happy_dollar_dollar (Token (KW KW_primitive) _) -> cont 30; Located happy_dollar_dollar (Token (KW KW_constraint) _) -> cont 31; Located happy_dollar_dollar (Token (KW KW_Prop) _) -> cont 32; - Located happy_dollar_dollar (Token (KW KW_propguards) _) -> cont 33; Located happy_dollar_dollar (Token (Sym BracketL) _) -> cont 34; Located happy_dollar_dollar (Token (Sym BracketR) _) -> cont 35; Located happy_dollar_dollar (Token (Sym ArrL ) _) -> cont 36; diff --git a/src/Cryptol/Parser.y b/src/Cryptol/Parser.y index 79fad8f46..32990981e 100644 --- a/src/Cryptol/Parser.y +++ b/src/Cryptol/Parser.y @@ -91,8 +91,6 @@ import Paths_cryptol 'primitive' { Located $$ (Token (KW KW_primitive) _)} 'constraint'{ Located $$ (Token (KW KW_constraint) _)} 'Prop' { Located $$ (Token (KW KW_Prop) _)} - - 'propguards' { Located $$ (Token (KW KW_propguards) _) } '[' { Located $$ (Token (Sym BracketL) _)} ']' { Located $$ (Token (Sym BracketR) _)} @@ -300,8 +298,8 @@ mbDoc :: { Maybe (Located Text) } : doc { Just $1 } | {- empty -} { Nothing } -propguards :: { [([Prop PName], Expr PName)] } - : 'propguards' '|' propguards_cases { $3 } +-- propguards :: { [([Prop PName], Expr PName)] } +-- : 'propguards' '|' propguards_cases { $3 } propguards_cases :: { [([Prop PName], Expr PName)] } : propguards_case '|' propguards_cases { $1 ++ $3 } @@ -319,7 +317,7 @@ decl :: { Decl PName } : vars_comma ':' schema { at (head $1,$3) $ DSignature (reverse $1) $3 } | ipat '=' expr { at ($1,$3) $ DPatBind $1 $3 } | '(' op ')' '=' expr { at ($1,$5) $ DPatBind (PVar $2) $5 } - | var apats_indices '=' propguards + | var apats_indices '|' propguards_cases { mkIndexedPropGuardsDecl $1 $2 $4 } | var apats_indices '=' expr { at ($1,$4) $ mkIndexedDecl $1 $2 $4 } diff --git a/src/Cryptol/Parser/Lexer.x b/src/Cryptol/Parser/Lexer.x index 10c550568..0f76c62ae 100644 --- a/src/Cryptol/Parser/Lexer.x +++ b/src/Cryptol/Parser/Lexer.x @@ -129,8 +129,6 @@ $white+ { emit $ White Space } "Prop" { emit $ KW KW_Prop } -"propguards" { emit $ KW KW_propguards } - @num { emitS numToken } @fnum { emitFancy fnumTokens } diff --git a/src/Cryptol/Parser/Token.hs b/src/Cryptol/Parser/Token.hs index feac45d20..b706ec4f6 100644 --- a/src/Cryptol/Parser/Token.hs +++ b/src/Cryptol/Parser/Token.hs @@ -54,7 +54,6 @@ data TokenKW = KW_else | KW_Prop | KW_by | KW_down - | KW_propguards deriving (Eq, Show, Generic, NFData) -- | The named operators are a special case for parsing types, and 'Other' is diff --git a/tests/constraint-guards/Parsing.cry b/tests/constraint-guards/Parsing.cry index 4d374ad85..b597b3be0 100644 --- a/tests/constraint-guards/Parsing.cry +++ b/tests/constraint-guards/Parsing.cry @@ -43,8 +43,9 @@ l _ = `n // g' : {n} [n] -> [n] // g' <| (n == 1) |> x = x +// FAILS when evaluated on [1,2] f : {n} [n] -> [8] -f x = propguards +f x | n == 1 => g1 x // passes | n == 2 => g2 x // passes | n == 3 => g3 x // passes diff --git a/tests/constraint-guards/Test1.cry b/tests/constraint-guards/Test1.cry index 7b3bb18ba..2199b2858 100644 --- a/tests/constraint-guards/Test1.cry +++ b/tests/constraint-guards/Test1.cry @@ -8,5 +8,5 @@ // testB x = propguards // | (m - n == l) => x -test : {m, n, l} (m - n == l) => [n] -> [n] +test : {m, n, l} (fin n, m >= n, m - n == l) => [n] -> [n] test x = x \ No newline at end of file diff --git a/tests/constraint-guards/Test2.cry b/tests/constraint-guards/Test2.cry index 21c80c478..7b49a1536 100644 --- a/tests/constraint-guards/Test2.cry +++ b/tests/constraint-guards/Test2.cry @@ -1,5 +1,5 @@ // WHY isn't n in scope during evaluation? it typechecks just fine len : {n, a} (fin n) => [n]a -> Integer -len x = propguards +len x | (n == 0) => 0 | (n >= 1) => 1 + len (drop`{1} x) diff --git a/tests/constraint-guards/Test3.cry b/tests/constraint-guards/Test3.cry index 47535ab98..a71a23288 100644 --- a/tests/constraint-guards/Test3.cry +++ b/tests/constraint-guards/Test3.cry @@ -1,4 +1,4 @@ test : {n, a} [n]a -> Integer -test x = propguards +test x | (n - 1 >= 0, n >= 1) => 0 | n == n => 1 \ No newline at end of file diff --git a/tests/constraint-guards/Test4.cry b/tests/constraint-guards/Test4.cry index 346f21281..3bc1cf3a2 100644 --- a/tests/constraint-guards/Test4.cry +++ b/tests/constraint-guards/Test4.cry @@ -1,5 +1,5 @@ test : {n, a} [n]a -> Bit -test x = propguards +test x | (n - 5 >= 0, n >= 5) => True | 0 == 0 => False From 22fb6d8648c4c5bd3821eb1f3a964f645bde5361 Mon Sep 17 00:00:00 2001 From: Henry Blanchette Date: Mon, 1 Aug 2022 14:56:27 -0700 Subject: [PATCH 034/125] test [ci skip] --- tests/constraint-guards/Test2.cry | 1 + 1 file changed, 1 insertion(+) diff --git a/tests/constraint-guards/Test2.cry b/tests/constraint-guards/Test2.cry index 7b49a1536..fe758868b 100644 --- a/tests/constraint-guards/Test2.cry +++ b/tests/constraint-guards/Test2.cry @@ -3,3 +3,4 @@ len : {n, a} (fin n) => [n]a -> Integer len x | (n == 0) => 0 | (n >= 1) => 1 + len (drop`{1} x) + From 9f0d72a766d4c99412073b88e69bec6d48cd0019 Mon Sep 17 00:00:00 2001 From: Henry Blanchette Date: Tue, 9 Aug 2022 17:01:29 -0700 Subject: [PATCH 035/125] formatting --- src/Cryptol/TypeCheck/Type.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/Cryptol/TypeCheck/Type.hs b/src/Cryptol/TypeCheck/Type.hs index 754d88dd6..a0a79bdb5 100644 --- a/src/Cryptol/TypeCheck/Type.hs +++ b/src/Cryptol/TypeCheck/Type.hs @@ -696,7 +696,7 @@ tFun :: Type -> Type -> Type tFun a b = TCon (TC TCFun) [a,b] -- | Eliminate outermost type synonyms. -tNoUser :: Type -> Type +tNoUser :: Type -> Type tNoUser t = case t of TUser _ _ a -> tNoUser a _ -> t From ed6ade690de90873554d376d806d6a301db350d3 Mon Sep 17 00:00:00 2001 From: Henry Blanchette Date: Tue, 9 Aug 2022 17:50:38 -0700 Subject: [PATCH 036/125] supports type aliases in prop guards --- src/Cryptol/Backend/Monad.hs | 2 + src/Cryptol/Eval.hs | 74 ++++++++++++++++++++++--------- src/Cryptol/Eval/Type.hs | 2 +- src/Cryptol/TypeCheck/TCon.hs | 1 + tests/constraint-guards/Len.cry | 16 +++++++ tests/constraint-guards/Test2.cry | 6 --- 6 files changed, 72 insertions(+), 29 deletions(-) create mode 100644 tests/constraint-guards/Len.cry delete mode 100644 tests/constraint-guards/Test2.cry diff --git a/src/Cryptol/Backend/Monad.hs b/src/Cryptol/Backend/Monad.hs index ef138188a..23a703e7a 100644 --- a/src/Cryptol/Backend/Monad.hs +++ b/src/Cryptol/Backend/Monad.hs @@ -421,6 +421,7 @@ data EvalError | NoPrim Name -- ^ Primitive with no implementation | BadRoundingMode Integer -- ^ Invalid rounding mode | BadValue String -- ^ Value outside the domain of a partial function. + | NoMatchingPropGuardCase String -- ^ No prop guard holds for the given type variables. deriving Typeable instance PP EvalError where @@ -440,6 +441,7 @@ instance PP EvalError where BadRoundingMode r -> "invalid rounding mode" <+> integer r BadValue x -> "invalid input for" <+> backticks (text x) NoPrim x -> text "unimplemented primitive:" <+> pp x + NoMatchingPropGuardCase msg -> text $ "No matching prop guard case; " ++ msg instance Show EvalError where show = show . pp diff --git a/src/Cryptol/Eval.hs b/src/Cryptol/Eval.hs index 940c100b2..a28e123c6 100644 --- a/src/Cryptol/Eval.hs +++ b/src/Cryptol/Eval.hs @@ -68,6 +68,7 @@ import Control.Applicative import Prelude () import Prelude.Compat +import Data.Bifunctor (Bifunctor(first)) type EvalEnv = GenEvalEnv Concrete @@ -218,14 +219,22 @@ evalExpr sym env expr = case expr of evalExpr sym env' e EPropGuards guards -> {-# SCC "evalExpr->EPropGuards" #-} do - let - evalPropGuard (props, e) = do - if and $ evalProp env <$> props - then Just <$> evalExpr sym env e - else pure Nothing - evalPropGuard `traverse` guards >>= (\case - Just val -> pure val - Nothing -> evalPanic "evalExpr" ["no guard case was satisfied"]) . foldr (<|>) Nothing + -- let + -- evalPropGuard (props, e) = do + -- if and $ checkProp . evalProp env <$> props + -- then Just <$> evalExpr sym env e + -- else pure Nothing + let checkedGuards = + first (and . (checkProp . evalProp env <$>)) + <$> guards + case find fst checkedGuards of + Nothing -> raiseError sym (NoMatchingPropGuardCase $ "Available prop guards: `" ++ show (fmap pp . fst <$> guards) ++ "`") + Just (_, e) -> eval e + + -- (\case + -- Just val -> pure val + -- Nothing -> evalPanic "evalExpr" ["no guard case was satisfied"]) . + -- -- raiseError where @@ -233,20 +242,41 @@ evalExpr sym env expr = case expr of eval = evalExpr sym env ppV = ppValue sym defaultPPOpts -evalProp :: GenEvalEnv sym -> Prop -> Bool -evalProp EvalEnv { envTypes } prop = case prop of - TCon tcon ts - | ns <- evalNumType envTypes <$> ts - -> case tcon of - PC PEqual | [n1, n2] <- ns -> n1 == n2 - PC PNeq | [n1, n2] <- ns -> n1 /= n2 - PC PGeq | [n1, n2] <- ns -> n1 >= n2 - PC PFin | [n] <- ns -> n /= Inf - -- TODO: instantiate UniqueFactorization for Nat'? - -- PC PPrime | [n] <- ns -> isJust (isPrime n) - PC PTrue -> True - _ -> evalPanic "evalProp" ["cannot use this as a guarding constraint: ", show . pp $ prop ] - _ -> evalPanic "evalProp" ["cannot use this as a guarding constraint: ", show . pp $ prop ] +-- | Checks whether an evaluated `Prop` holds +checkProp :: Prop -> Bool +checkProp = \case + TCon tcon ts -> + let ns = toNat' <$> ts in + case tcon of + PC PEqual | [n1, n2] <- ns -> n1 == n2 + PC PNeq | [n1, n2] <- ns -> n1 /= n2 + PC PGeq | [n1, n2] <- ns -> n1 >= n2 + PC PFin | [n] <- ns -> n /= Inf + -- TODO: instantiate UniqueFactorization for Nat'? + -- PC PPrime | [n] <- ns -> isJust (isPrime n) + PC PTrue -> True + pc -> evalPanic "evalProp" ["cannot use this as a guarding constraint: ", show . pp $ TCon tcon ts ] + prop -> evalPanic "evalProp" ["cannot use this as a guarding constraint: ", show . pp $ prop ] + where + toNat' :: Prop -> Nat' + toNat' = \case + TCon (TC (TCNum n)) [] -> Nat n + TCon (TC TCInf) [] -> Inf + prop -> panic "checkProp" ["Expected `" ++ pretty prop ++ "` to be an evaluated numeric type"] + + +-- | Evaluates a `Prop` in an `EvalEnv` by substituting all variables according +-- to `envTypes` and expanding all type synonyms via `tNoUser`. +evalProp :: GenEvalEnv sym -> Prop -> Prop +evalProp env@EvalEnv { envTypes } = \case + TCon tc tys -> TCon tc (toType . evalType envTypes <$> tys) + TVar tv -> case lookupTypeVar tv envTypes of + Nothing -> panic "evalProp" ["Could not find type variable `" ++ pretty tv ++ "` in the type evaluation environment"] + Just either_nat'_tval -> toType either_nat'_tval + prop@TUser {} -> evalProp env (tNoUser prop) + prop -> panic "evalProp" ["Cannot use the following as a type constraint: `" ++ pretty prop ++ "`"] + where + toType = either tNumTy tValTy -- | Capure the current call stack from the evaluation monad and -- annotate function values. When arguments are later applied diff --git a/src/Cryptol/Eval/Type.hs b/src/Cryptol/Eval/Type.hs index e757b9e80..428689445 100644 --- a/src/Cryptol/Eval/Type.hs +++ b/src/Cryptol/Eval/Type.hs @@ -27,7 +27,7 @@ import Control.DeepSeq -- | An evaluated type of kind *. -- These types do not contain type variables, type synonyms, or type functions. data TValue - = TVBit -- ^ @ Bit @ + = TVBit -- ^ @ Bit @ | TVInteger -- ^ @ Integer @ | TVFloat Integer Integer -- ^ @ Float e p @ | TVIntMod Integer -- ^ @ Z n @ diff --git a/src/Cryptol/TypeCheck/TCon.hs b/src/Cryptol/TypeCheck/TCon.hs index f4a8df4e9..ab3b5ee91 100644 --- a/src/Cryptol/TypeCheck/TCon.hs +++ b/src/Cryptol/TypeCheck/TCon.hs @@ -1,4 +1,5 @@ {-# Language OverloadedStrings, DeriveGeneric, DeriveAnyClass, Safe #-} +{-# LANGUAGE LambdaCase #-} module Cryptol.TypeCheck.TCon where import qualified Data.Map as Map diff --git a/tests/constraint-guards/Len.cry b/tests/constraint-guards/Len.cry new file mode 100644 index 000000000..fcb655d0c --- /dev/null +++ b/tests/constraint-guards/Len.cry @@ -0,0 +1,16 @@ +len : {n,a} (fin n) => [n] a -> Integer +len x + | (n == 0) => 0 + | (n > 0) => 1 + len (drop`{1} x) + +property + len_correct = and + [ len l == length l where l = [] + , len l == length l where l = [1] + , len l == length l where l = [1,2] + , len l == length l where l = [1,2,3] + , len l == length l where l = [1,2,3,4,5] + , len l == length l where l = [1,2,3,4,5,6] + , len l == length l where l = [1,2,3,4,5,6,7] + , len l == length l where l = [1,2,3,4,5,6,7,8] + ] \ No newline at end of file diff --git a/tests/constraint-guards/Test2.cry b/tests/constraint-guards/Test2.cry deleted file mode 100644 index fe758868b..000000000 --- a/tests/constraint-guards/Test2.cry +++ /dev/null @@ -1,6 +0,0 @@ -// WHY isn't n in scope during evaluation? it typechecks just fine -len : {n, a} (fin n) => [n]a -> Integer -len x - | (n == 0) => 0 - | (n >= 1) => 1 + len (drop`{1} x) - From b5b92c01b6d5b753ba5dd13fb2c6e6bfd940db2d Mon Sep 17 00:00:00 2001 From: Henry Blanchette Date: Tue, 9 Aug 2022 17:54:17 -0700 Subject: [PATCH 037/125] comment about anticipated change in new module system --- src/Cryptol/ModuleSystem/InstantiateModule.hs | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/src/Cryptol/ModuleSystem/InstantiateModule.hs b/src/Cryptol/ModuleSystem/InstantiateModule.hs index 8e1aa3318..abd479fbe 100644 --- a/src/Cryptol/ModuleSystem/InstantiateModule.hs +++ b/src/Cryptol/ModuleSystem/InstantiateModule.hs @@ -217,7 +217,9 @@ instance Inst Expr where EProofApp e -> EProofApp (go e) EWhere e ds -> EWhere (go e) (inst env ds) - EPropGuards _guards -> EPropGuards undefined -- TODO + -- this doesn't exist in the new module system, so it will have to be + -- implemented differently there anyway + EPropGuards _guards -> EPropGuards undefined instance Inst DeclGroup where From c1812dfa61b198218b7e9c0f7f71967a13157aa7 Mon Sep 17 00:00:00 2001 From: Henry Blanchette Date: Tue, 9 Aug 2022 17:54:50 -0700 Subject: [PATCH 038/125] shouldn't commit this --- src/Cryptol/Parser.hs | 3995 ----------------------------------------- 1 file changed, 3995 deletions(-) delete mode 100644 src/Cryptol/Parser.hs diff --git a/src/Cryptol/Parser.hs b/src/Cryptol/Parser.hs deleted file mode 100644 index d11510b90..000000000 --- a/src/Cryptol/Parser.hs +++ /dev/null @@ -1,3995 +0,0 @@ -{-# OPTIONS_GHC -w #-} -{-# OPTIONS -cpp #-} --- | --- Module : Cryptol.Parser --- Copyright : (c) 2013-2016 Galois, Inc. --- License : BSD3 --- Maintainer : cryptol@galois.com --- Stability : provisional --- Portability : portable - -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE Trustworthy #-} -module Cryptol.Parser - ( parseModule - , parseProgram, parseProgramWith - , parseExpr, parseExprWith - , parseDecl, parseDeclWith - , parseDecls, parseDeclsWith - , parseLetDecl, parseLetDeclWith - , parseRepl, parseReplWith - , parseSchema, parseSchemaWith - , parseModName, parseHelpName - , ParseError(..), ppError - , Layout(..) - , Config(..), defaultConfig - , guessPreProc, PreProc(..) - ) where - -import Control.Applicative as A -import Data.Maybe(fromMaybe) -import Data.List.NonEmpty ( NonEmpty(..), cons ) -import Data.Text(Text) -import qualified Data.Text as T -import Control.Monad(liftM2,msum) - -import Cryptol.Parser.AST -import Cryptol.Parser.Position -import Cryptol.Parser.LexerUtils hiding (mkIdent) -import Cryptol.Parser.Token -import Cryptol.Parser.ParserUtils -import Cryptol.Parser.Unlit(PreProc(..), guessPreProc) -import Cryptol.Utils.Ident(paramInstModName) -import Cryptol.Utils.RecordMap(RecordMap) - -import Paths_cryptol -import qualified Data.Array as Happy_Data_Array -import qualified Data.Bits as Bits -import qualified System.IO as Happy_System_IO -import qualified System.IO.Unsafe as Happy_System_IO_Unsafe -import qualified Debug.Trace as Happy_Debug_Trace -import Control.Applicative(Applicative(..)) -import Control.Monad (ap) - --- parser produced by Happy Version 1.20.0 - -data HappyAbsSyn - = HappyTerminal (Located Token) - | HappyErrorToken Prelude.Int - | HappyAbsSyn15 (Module PName) - | HappyAbsSyn17 ([TopDecl PName]) - | HappyAbsSyn18 (Located (ImportG (ImpName PName))) - | HappyAbsSyn19 (Located (ImpName PName)) - | HappyAbsSyn20 (Maybe (Located ModName)) - | HappyAbsSyn21 (Maybe (Located ImportSpec)) - | HappyAbsSyn22 ([LIdent]) - | HappyAbsSyn23 ([Ident] -> ImportSpec) - | HappyAbsSyn24 (Program PName) - | HappyAbsSyn34 (TopDecl PName) - | HappyAbsSyn35 (Located Text) - | HappyAbsSyn36 (Maybe (Located Text)) - | HappyAbsSyn37 ([([Prop PName], Expr PName)]) - | HappyAbsSyn40 ([Prop PName]) - | HappyAbsSyn41 (Decl PName) - | HappyAbsSyn42 ([Decl PName]) - | HappyAbsSyn44 (Newtype PName) - | HappyAbsSyn45 (Located (RecordMap Ident (Range, Type PName))) - | HappyAbsSyn46 ([ LPName ]) - | HappyAbsSyn47 (LPName) - | HappyAbsSyn48 ([Pattern PName]) - | HappyAbsSyn51 (([Pattern PName], [Pattern PName])) - | HappyAbsSyn56 (ReplInput PName) - | HappyAbsSyn61 ([LPName]) - | HappyAbsSyn62 (Expr PName) - | HappyAbsSyn64 (Located [Decl PName]) - | HappyAbsSyn68 ([(Expr PName, Expr PName)]) - | HappyAbsSyn69 ((Expr PName, Expr PName)) - | HappyAbsSyn74 (NonEmpty (Expr PName)) - | HappyAbsSyn78 (Located Selector) - | HappyAbsSyn79 ([(Bool, Integer)]) - | HappyAbsSyn80 ((Bool, Integer)) - | HappyAbsSyn81 ([Expr PName]) - | HappyAbsSyn82 (Either (Expr PName) [Named (Expr PName)]) - | HappyAbsSyn83 ([UpdField PName]) - | HappyAbsSyn84 (UpdField PName) - | HappyAbsSyn85 ([Located Selector]) - | HappyAbsSyn86 (UpdHow) - | HappyAbsSyn88 ([[Match PName]]) - | HappyAbsSyn89 ([Match PName]) - | HappyAbsSyn90 (Match PName) - | HappyAbsSyn91 (Pattern PName) - | HappyAbsSyn95 (Named (Pattern PName)) - | HappyAbsSyn96 ([Named (Pattern PName)]) - | HappyAbsSyn97 (Schema PName) - | HappyAbsSyn98 (Located [TParam PName]) - | HappyAbsSyn99 (Located [Prop PName]) - | HappyAbsSyn101 (Located Kind) - | HappyAbsSyn102 (TParam PName) - | HappyAbsSyn103 ([TParam PName]) - | HappyAbsSyn106 (Type PName) - | HappyAbsSyn110 ([ Type PName ]) - | HappyAbsSyn111 (Located [Type PName]) - | HappyAbsSyn112 ([Type PName]) - | HappyAbsSyn113 (Named (Type PName)) - | HappyAbsSyn114 ([Named (Type PName)]) - | HappyAbsSyn115 (Located Ident) - | HappyAbsSyn117 (Located ModName) - | HappyAbsSyn119 (Located PName) - -happyExpList :: Happy_Data_Array.Array Prelude.Int Prelude.Int -happyExpList = Happy_Data_Array.listArray (0,3796) ([0,0,0,0,0,0,0,0,16384,0,0,32,8,0,0,0,0,0,0,0,62372,33024,8704,128,16,0,0,0,0,0,0,0,0,0,0,2048,0,0,0,0,0,0,0,0,58352,18432,32800,12584,4144,0,0,0,0,0,0,0,2048,487,258,68,32769,0,0,0,0,0,0,0,16384,3896,2064,544,8,0,0,0,0,0,0,0,0,0,0,0,128,0,0,0,0,0,0,0,0,49152,67,0,0,0,0,0,0,0,0,0,0,29176,9758,16400,6292,24,0,0,0,0,0,0,0,36416,3,129,32802,0,0,0,0,0,0,0,0,24576,28,8,8192,0,0,0,0,0,0,0,0,0,227,64,224,65024,3,0,0,0,0,0,0,0,0,4,0,0,0,0,0,0,0,0,0,0,14528,4096,0,64,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,49152,0,2044,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1816,512,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,50976,32769,64,16401,0,0,0,0,0,0,0,0,14592,14,516,136,2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,32,0,0,0,0,0,0,0,0,0,0,3072,49280,63,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,58368,56,2064,544,8,0,0,0,0,0,0,0,8192,455,16512,4352,64,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,36416,3,129,32802,0,0,0,0,0,0,0,0,29184,28,1032,316,32708,0,0,0,0,0,0,0,0,225,64,4096,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,8,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,24576,512,1022,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,128,0,256,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,36800,3,129,33954,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,4,0,0,0,0,0,0,0,0,0,0,0,32,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,2,0,0,0,0,0,0,0,0,0,0,0,16,0,0,0,0,0,0,0,0,0,0,0,128,0,0,0,0,0,0,0,0,0,0,0,16384,56,272,32,0,0,0,0,0,0,0,0,0,450,16512,4352,64,0,0,0,0,0,0,0,0,3647,1152,34818,786,3,0,0,0,0,0,0,0,29176,9216,16432,6292,24,0,0,0,0,0,0,0,36800,8195,32897,50343,4088,0,0,0,0,0,0,0,32256,28,1032,10000,4,0,0,0,0,0,0,0,4096,0,64,16384,0,0,0,0,0,0,0,0,32768,1816,512,17408,0,0,0,0,0,0,0,0,0,14400,4096,8200,2050,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,16128,32782,516,4744,3,0,0,0,0,0,0,0,63488,113,4132,37952,24,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,512,0,0,0,0,0,0,0,57600,16444,32800,40968,0,0,0,0,0,0,0,0,0,0,0,32,0,0,0,0,0,0,0,0,0,0,0,32896,0,0,0,0,0,0,0,0,0,450,16512,4352,64,33,0,0,0,0,0,0,0,52752,1027,34818,512,0,0,0,0,0,0,0,0,0,0,0,64,32,0,0,0,0,0,0,0,0,0,32768,1,1272,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,32768,0,0,0,0,0,0,0,0,0,0,0,0,4,0,0,0,0,0,0,0,0,0,0,0,32,0,0,0,0,0,0,0,0,0,0,0,4096,14,68,8,0,0,0,0,0,0,0,0,32768,112,12320,1088,16,0,0,0,0,0,0,0,0,900,33024,10112,63616,7,0,0,0,0,0,0,0,7200,2048,0,2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,32768,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,32,0,0,0,0,0,0,0,57104,1027,34818,2560,64,0,0,0,0,0,0,0,0,0,0,0,2048,0,0,0,0,0,0,0,41984,243,129,32802,4096,0,0,0,0,0,0,0,0,0,0,128,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,32768,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1024,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,64,0,0,0,0,0,0,0,48672,2055,4100,1025,128,0,0,0,0,0,0,0,0,0,0,32768,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,256,64,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,16384,0,0,0,0,0,0,0,8192,1980,1032,272,4,0,0,0,0,0,0,0,0,16904,513,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,14528,4160,0,64,0,0,0,0,0,0,0,0,0,0,0,32768,0,0,0,0,0,0,0,0,0,0,0,0,4,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,33668,256,512,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,4,0,0,0,0,0,0,0,0,0,0,0,32,12,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,4096,128,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,9,0,0,0,0,0,0,0,0,0,0,0,512,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,256,0,0,0,0,0,0,0,0,0,0,0,6144,0,0,0,0,0,0,0,0,0,0,0,0,128,16,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,48,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,900,33024,9728,128,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,64,2,0,0,0,0,0,0,0,0,0,0,512,16,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,192,64512,3,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,28800,8192,16384,64,0,0,0,0,0,0,0,0,33792,3,1,2,0,0,0,0,0,0,0,0,8192,28,8,0,0,0,0,0,0,0,0,0,0,0,0,96,65024,1,0,0,0,0,0,0,0,0,0,768,61440,15,0,0,0,0,0,0,0,0,0,6144,32768,127,0,0,0,0,0,0,0,49664,32769,64,16401,0,0,0,0,0,0,0,0,16128,32782,516,4744,771,0,0,0,0,0,0,0,32768,112,4128,1088,16,0,0,0,0,0,0,0,0,0,0,4096,0,0,0,0,0,0,0,0,0,7200,2048,4100,1025,16,0,0,0,0,0,0,0,0,0,0,128,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,16384,56,2064,544,8,0,0,0,0,0,0,0,0,450,128,256,0,0,0,0,0,0,0,0,0,3641,1024,34818,512,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,128,48,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,64,0,128,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,4096,0,8192,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,32768,112,4128,1088,18,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,7296,7,258,68,1,0,0,0,0,0,0,0,58368,56,2064,1568,8,0,0,0,0,0,0,0,0,0,0,32768,1024,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,32,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,16,0,0,0,0,0,0,0,0,0,0,0,32768,0,0,0,0,0,0,0,0,0,0,0,32768,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,4096,14,516,136,2050,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,8192,0,0,0,0,0,0,0,0,0,0,512,0,3,0,0,0,0,0,0,0,0,0,0,0,24,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,57344,455,16528,20736,98,0,0,0,0,0,0,0,0,3647,1152,34818,786,0,0,0,0,0,0,0,0,0,256,3968,1,0,0,0,0,0,0,0,0,0,0,0,8,0,0,0,0,0,0,0,0,0,0,2048,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,144,0,0,0,0,0,0,0,0,0,0,0,2048,1024,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,8224,0,0,0,0,0,0,0,0,32768,112,4128,1088,16400,0,0,0,0,0,0,0,0,0,0,0,2,1,0,0,0,0,0,0,0,0,0,3072,49152,39,0,0,0,0,0,0,0,57600,16384,57376,8201,510,0,0,0,0,0,0,0,0,0,0,3,4080,0,0,0,0,0,0,0,16384,56,16,8224,0,0,0,0,0,0,0,0,0,450,128,256,0,0,0,0,0,0,0,0,0,0,0,1536,57344,31,0,0,0,0,0,0,0,0,0,12288,0,255,0,0,0,0,0,0,0,0,0,32768,1,2040,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,16128,32782,516,4744,771,0,0,0,0,0,0,0,51200,113,4128,1088,16,0,0,0,0,0,0,0,0,61440,16,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,18,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1152,0,0,0,0,0,0,0,0,0,0,0,0,4,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,32768,0,0,0,0,0,0,0,0,0,0,0,0,12,0,0,0,0,0,0,0,0,0,0,0,96,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1800,512,32768,0,0,0,0,0,0,0,0,0,0,0,16,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,14592,14,516,136,2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,16384,910,33024,8704,128,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,58256,16384,32800,8200,0,0,0,0,0,0,0,0,7296,7,258,68,1,0,0,0,0,0,0,0,58368,56,2064,544,8,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1024,0,0,0,0,0,0,0,0,36416,3,129,32802,0,0,0,0,0,0,0,0,0,0,0,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,2048,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1024,0,256,0,0,0,0,0,0,0,0,0,0,0,0,4,0,0,0,0,0,0,0,32768,113,32,32768,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,256,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,4096,0,0,0,0,0,0,0,0,0,0,0,32768,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,2048,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,32768,1820,512,17409,256,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,50976,32769,64,16401,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,51200,113,5152,1088,8720,0,0,0,0,0,0,0,0,900,256,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,57600,16384,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,64,0,0,0,0,0,0,0,0,0,0,0,512,0,0,0,0,0,0,0,0,0,0,0,4096,0,0,0,0,0,0,0,0,0,0,0,6144,32768,127,0,0,0,0,0,0,0,49664,32769,0,257,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,32768,112,32,16448,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,7282,2048,4100,1025,0,0,0,0,0,0,0,0,57600,16384,32768,0,0,0,0,0,0,0,0,0,0,0,0,8,0,0,0,0,0,0,0,0,16384,56,2064,544,8,0,0,0,0,0,0,0,57344,455,16528,20736,24674,0,0,0,0,0,0,0,0,0,0,0,8,0,0,0,0,0,0,0,0,29128,8192,16400,4100,0,0,0,0,0,0,0,0,36800,8195,129,50338,192,0,0,0,0,0,0,0,32256,28,1033,9488,1542,0,0,0,0,0,0,0,61440,227,8264,10368,12337,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,14588,4608,8200,3146,12,0,0,0,0,0,0,0,51168,36865,49216,25169,96,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,63488,113,4132,37952,6168,0,0,0,0,0,0,0,49152,911,33056,41472,49348,0,0,0,0,0,0,0,0,7200,2048,4100,1025,0,0,0,0,0,0,0,0,58352,18432,32800,12584,48,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,57344,455,16528,20736,24674,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,29176,8192,16400,4244,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,36864,0,0,0,0,0,0,0,0,61440,227,8256,10368,33,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,14588,4096,8200,2122,0,0,0,0,0,0,0,0,32,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,2048,0,32,0,0,0,0,0,0,0,0,0,0,0,0,18432,0,0,0,0,0,0,0,0,0,0,0,16384,2,0,0,0,0,0,0,0,0,0,0,0,128,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1152,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,4096,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,36800,8195,129,50338,16576,0,0,0,0,0,0,0,8192,1948,1032,272,4,0,0,0,0,0,0,0,0,0,0,0,0,16,0,0,0,0,0,0,0,59144,513,17409,256,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,48,65280,0,0,0,0,0,0,0,0,0,0,0,0,2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,58352,18432,32816,12584,48,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,16384,56,2064,544,8,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,4,0,0,0,0,0,0,0,0,256,0,0,0,0,0,0,0,0,0,0,0,0,0,512,0,0,0,0,0,0,0,0,0,0,0,64,0,0,0,0,0,0,0,0,0,0,0,512,0,0,0,0,0,0,0,0,0,0,0,4096,0,0,0,0,0,0,0,0,0,0,0,0,128,0,0,0,0,0,0,0,0,0,0,49152,0,1020,0,0,0,0,0,0,0,4096,14,4,2056,0,0,0,0,0,0,0,0,32768,112,32,16448,0,0,0,0,0,0,0,0,16384,910,33024,8704,128,0,0,0,0,0,0,0,0,7200,2048,4096,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,2048,7,258,68,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,450,16512,4352,64,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,29128,8192,16400,4100,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,4096,0,0,0,0,0,0,0,0,0,225,8256,2176,32,0,0,0,0,0,0,0,0,1800,512,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,8192,0,0,0,0,0,0,0,4096,974,516,392,2,1,0,0,0,0,0,0,32768,7792,4128,1088,80,8,0,0,0,0,0,0,0,63428,33024,8704,128,16,0,0,0,0,0,0,0,0,0,0,0,512,0,0,0,0,0,0,0,61696,16445,32800,8200,1024,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,32768,0,0,0,0,0,0,0,0,8192,455,16512,4352,64,0,0,0,0,0,0,0,0,0,0,1536,57344,31,0,0,0,0,0,0,0,0,0,0,0,2560,0,0,0,0,0,0,0,50176,247,129,32802,4096,0,0,0,0,0,0,0,0,4,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1816,512,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,128,0,0,0,0,0,0,0,0,0,0,0,4096,14,4,0,0,0,0,0,0,0,0,0,32768,113,32,0,0,0,0,0,0,0,0,0,0,908,256,0,4,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,16384,0,0,0,0,0,0,0,0,0,0,0,0,2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,40,0,0,0,0,0,0,0,57104,1027,34818,512,64,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,33792,3,1,514,0,0,0,0,0,0,0,0,8192,28,1032,4368,4,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,4096,0,0,0,0,0,0,0,0,0,0,0,50688,32769,0,512,0,0,0,0,0,0,0,0,0,0,0,64,24,0,0,0,0,0,0,0,0,0,0,512,192,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,7200,2052,0,0,0,0,0,0,0,0,0,0,0,0,0,1,0,0,0,0,0,0,0,0,0,0,0,4096,0,0,0,0,0,0,0,0,58368,56,2064,544,8,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,49154,0,0,0,0,0,0,0,0,0,0,0,0,16384,0,0,0,0,0,0,0,8192,1948,1032,784,4,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,51168,36865,64,25169,96,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,16,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,58368,56,2064,544,8,0,0,0,0,0,0,0,0,450,128,256,1,0,0,0,0,0,0,0,0,3641,1024,34818,512,0,0,0,0,0,0,0,0,28800,8192,16384,0,0,0,0,0,0,0,0,0,0,0,32,0,272,0,0,0,0,0,0,0,0,0,0,12,16320,0,0,0,0,0,0,0,61440,227,8264,10368,12337,0,0,0,0,0,0,0,0,0,0,0,0,4,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1024,0,0,0,0,0,0,0,0,0,0,14592,14,516,136,2,0,0,0,0,0,0,0,32768,112,4128,1088,16,0,0,0,0,0,0,0,0,0,0,1024,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,450,128,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,29128,8192,16400,4100,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,4,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,63488,113,4132,37952,6168,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,2,0,0,0,0,0,0,0,0,0,4096,0,0,0,0,0,0,0,0,0,0,0,32768,49152,0,0,0,0,0,0,0,0,0,0,0,0,32,0,0,0,0,0,0,0,0,0,0,0,8192,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,512,0,0,0,0,0,0,0,0,0,0,16384,16,0,0,0,0,0,0,0,0,0,0,0,258,0,0,0,0,0,0,0,0,0,0,0,3088,0,0,0,0,0,0,0,0,0,0,14588,4608,8200,3146,12,0,0,0,0,0,0,0,51168,36865,64,25169,96,0,0,0,0,0,0,0,0,8192,0,0,0,0,0,0,0,0,0,0,0,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,8064,16391,258,35140,385,0,0,0,0,0,0,0,0,32768,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,0,0,0,0,0,0,0,0,0,0,0,8,0,0,0,0,0,0,0,0,0,0,0,64,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,29184,28,1032,272,4,0,0,0,0,0,0,0,0,225,64,32896,0,0,0,0,0,0,0,0,32768,1820,512,17409,256,0,0,0,0,0,0,0,0,14400,4096,8192,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,8192,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,16,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,29128,8192,16400,4100,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,2,0,0,16,0,0,0,0,0,0,0,61320,513,17409,256,32,0,0,0,0,0,0,0,0,0,0,8192,0,0,0,0,0,0,0,0,0,0,0,32768,0,0,0,0,0,0,0,0,0,0,128,0,1088,0,0,0,0,0,0,0,0,0,1024,0,8704,0,0,0,0,0,0,0,0,0,0,0,2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,58256,16384,32800,8200,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,58368,56,2064,544,8,0,0,0,0,0,0,0,57344,455,16528,20736,24674,0,0,0,0,0,0,0,0,3647,1152,34818,786,3,0,0,0,0,0,0,0,0,256,0,0,0,0,0,0,0,0,0,0,0,2048,2,0,0,0,0,0,0,0,0,0,0,16384,32,0,0,0,0,0,0,0,0,0,0,0,256,0,0,0,0,0,0,0,0,0,32768,1823,576,17409,33161,1,0,0,0,0,0,0,0,14588,4608,8200,3146,12,0,0,0,0,0,0,0,0,0,2,0,0,0,0,0,0,0,0,0,16128,32782,516,4744,771,0,0,0,0,0,0,0,32768,112,4128,1088,16,0,0,0,0,0,0,0,0,900,33024,8704,128,0,0,0,0,0,0,0,0,7294,2304,4100,1573,6,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,4096,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,16,0,0,0,0,0,0,0,0,0,0,0,0,64,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1024,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,128,2,0,0,0,0,0,0,0,0,0,0,0,2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,58256,16384,32800,8200,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,58368,56,2064,544,8,0,0,0,0,0,0,0,0,0,4,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,256,0,2176,0,0,0,0,0,0,0,0,0,0,0,2,0,0,0,0,0,0,0,0,0,0,0,16,0,0,0,0,0,0,0,0,14400,4096,1,0,0,0,0,0,0,0,0,0,0,0,0,0,2048,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,4,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,450,16512,4352,65,0,0,0,0,0,0,0,0,3647,1152,34818,786,3,0,0,0,0,0,0,0,28800,8192,16384,64,0,0,0,0,0,0,0,0,0,0,0,32,0,0,0,0,0,0,0,0,0,0,0,128,48,0,0,0,0,0,0,0,0,0,0,1024,384,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,4096,14,4,256,0,0,0,0,0,0,0,0,0,0,0,1024,0,0,0,0,0,0,0,0,0,0,8,0,0,0,0,0,0,0,0,0,0,7294,2304,4100,1573,6,0,0,0,0,0,0,0,57600,16384,32768,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,4,0,0,0,0,0,0,0,0,3641,1024,34818,512,0,0,0,0,0,0,0,0,29128,8192,16400,4100,0,0,0,0,0,0,0,0,36416,3,129,32802,0,0,0,0,0,0,0,0,0,0,0,32768,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,14564,4096,8200,2050,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,16128,32782,516,4744,771,0,0,0,0,0,0,0,51200,113,4128,1088,16,0,0,0,0,0,0,0,0,0,8,0,0,0,0,0,0,0,0,0,0,0,0,16384,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,4096,0,0,0,0,0,0,0,0,0,0,64512,56,2066,18976,3084,0,0,0,0,0,0,0,0,0,4,0,0,0,0,0,0,0,0,0,0,0,32,0,0,0,0,0,0,0,0,0,0,29176,9216,16400,6292,24,0,0,0,0,0,0,0,36800,8195,129,50338,192,0,0,0,0,0,0,0,0,0,32,0,0,0,0,0,0,0,0,0,0,0,2,0,0,0,0,0,0,0,0,0,0,0,16,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,14592,14,516,136,2,0,0,0,0,0,0,0,0,0,0,0,2,8,0,0,0,0,0,0,0,63428,33024,8704,128,16,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,32768,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,64512,56,2066,18976,3084,0,0,0,0,0,0,0,0,0,4,0,0,0,0,0,0,0,0,0,0,0,32,0,0,0,0,0,0,0,0,0,0,0,256,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,16384,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,128,0,1088,0,0,0,0,0,0,0,0,0,0,384,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,64,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,144,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,28800,8192,16384,0,0,0,0,0,0,0,0,0,0,0,0,4096,0,0,0,0,0,0,0,0,0,16384,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 - ]) - -{-# NOINLINE happyExpListPerState #-} -happyExpListPerState st = - token_strs_expected - where token_strs = ["error","%dummy","%start_vmodule","%start_program","%start_programLayout","%start_expr","%start_decl","%start_decls","%start_declsLayout","%start_letDecl","%start_repl","%start_schema","%start_modName","%start_helpName","vmodule","module_def","vmod_body","import","impName","mbAs","mbImportSpec","name_list","mbHiding","program","program_layout","top_decls","vtop_decls","vtop_decl","top_decl","private_decls","prim_bind","parameter_decls","par_decls","par_decl","doc","mbDoc","propguards","propguards_cases","propguards_case","propguards_quals","decl","let_decls","let_decl","newtype","newtype_body","vars_comma","var","apats","indices","indices1","apats_indices","opt_apats_indices","decls","vdecls","decls_layout","repl","qop","op","pat_op","other_op","ops","expr","exprNoWhere","whereClause","typedExpr","simpleExpr","longExpr","ifBranches","ifBranch","simpleRHS","longRHS","simpleApp","longApp","aexprs","aexpr","no_sel_aexpr","sel_expr","selector","poly_terms","poly_term","tuple_exprs","rec_expr","field_exprs","field_expr","field_path","field_how","list_expr","list_alts","matches","match","pat","ipat","apat","tuple_pats","field_pat","field_pats","schema","schema_vars","schema_quals","schema_qual","kind","schema_param","schema_params","tysyn_param","tysyn_params","type","infix_type","app_type","atype","atypes","dimensions","tuple_types","field_type","field_types","ident","name","smodName","modName","qname","help_name","tick_ty","field_ty_val","field_ty_vals","NUM","FRAC","STRLIT","CHARLIT","IDENT","QIDENT","SELECTOR","'include'","'import'","'as'","'hiding'","'private'","'parameter'","'property'","'infix'","'infixl'","'infixr'","'type'","'newtype'","'module'","'submodule'","'where'","'let'","'if'","'then'","'else'","'x'","'down'","'by'","'primitive'","'constraint'","'Prop'","'propguards'","'['","']'","'<-'","'..'","'...'","'..<'","'..>'","'|'","'<'","'>'","'('","')'","','","';'","'{'","'}'","'<|'","'|>'","'='","'`'","':'","'->'","'=>'","'\\\\'","'_'","'v{'","'v}'","'v;'","'+'","'*'","'^^'","'-'","'~'","'#'","'@'","OP","QOP","DOC","%eof"] - bit_start = st Prelude.* 195 - bit_end = (st Prelude.+ 1) Prelude.* 195 - read_bit = readArrayBit happyExpList - bits = Prelude.map read_bit [bit_start..bit_end Prelude.- 1] - bits_indexed = Prelude.zip bits [0..194] - token_strs_expected = Prelude.concatMap f bits_indexed - f (Prelude.False, _) = [] - f (Prelude.True, nr) = [token_strs Prelude.!! nr] - -happyActOffsets :: Happy_Data_Array.Array Prelude.Int Prelude.Int -happyActOffsets = Happy_Data_Array.listArray (0,637) ([-17,511,-49,1130,1415,1415,47,1217,960,2509,560,1150,39,560,0,0,0,0,0,0,0,50,0,0,0,0,0,0,0,0,1833,0,0,0,0,0,0,0,0,0,0,0,50,0,2147,50,2521,2521,0,99,1104,0,0,2534,2579,0,0,2592,866,1174,0,0,79,92,220,0,0,1816,0,0,0,3190,0,1595,0,254,254,0,0,0,0,0,179,310,329,1460,2992,1130,1045,796,1524,6,995,3017,0,1450,1450,283,283,1264,317,77,911,581,124,657,1903,0,372,413,422,1696,2902,1194,1309,0,367,-14,367,633,367,546,402,0,0,429,0,464,0,400,697,416,0,-42,0,0,0,0,1335,1296,0,816,448,465,0,1598,0,490,255,0,150,0,570,508,0,522,38,35,0,233,0,2913,0,110,182,0,1920,1990,863,442,2322,2007,2007,2007,3017,1130,3017,553,1197,555,0,3017,1080,2604,0,0,395,0,3207,0,3224,0,2943,0,0,0,2653,2460,185,0,0,568,0,583,591,671,0,1239,0,684,629,181,345,0,1450,1450,1759,700,695,0,676,166,0,212,1239,158,657,1194,2007,1138,1608,2007,2007,2007,0,0,0,0,0,1130,2653,1217,0,716,0,766,709,3265,693,439,566,0,1362,782,0,2665,0,2678,0,2678,2678,2678,0,0,801,2678,801,0,802,0,-18,837,560,0,870,0,0,878,909,0,3117,894,0,0,2678,0,2678,0,893,2322,0,2322,0,0,0,0,0,0,907,907,907,2007,1527,0,2485,0,2678,1608,941,3017,1130,943,2723,1130,1130,1130,0,1130,987,0,1130,1130,3017,1130,0,0,1130,0,1595,0,800,1595,0,1595,1011,0,17,840,903,972,0,936,0,996,0,1130,1415,0,1415,0,0,0,2007,990,0,1072,0,3017,0,975,1032,1018,1025,1025,1025,1027,2007,2634,2778,2736,1608,0,3017,0,3017,0,2736,0,1036,3017,2322,0,0,1370,1284,761,0,761,0,1043,2748,2007,1041,761,1103,0,2234,0,1118,2322,2234,560,0,1064,1085,0,1068,761,0,3164,2962,0,0,161,560,492,567,0,1478,1100,1109,2748,0,0,608,0,1390,0,0,0,1130,0,0,0,1106,0,0,2797,3182,2797,1608,-15,2007,1130,1107,0,1154,2797,3017,1136,0,0,0,0,2322,0,2797,0,0,0,0,0,1143,0,1130,0,0,1143,1169,129,1156,1152,0,1164,598,235,393,1130,1130,1181,1181,0,0,0,1130,1181,1158,1159,1170,0,2797,3185,2797,1608,0,1171,0,1188,0,0,0,0,0,0,2797,0,3117,1204,697,1193,1195,-15,-15,1215,0,2797,0,2797,1130,1130,1250,759,503,1248,1130,1130,1249,1130,3017,3017,1130,0,1263,0,1234,0,0,0,0,1247,1236,0,1268,0,342,1241,0,2797,0,2797,1281,0,0,0,-15,1251,1252,1699,1238,0,1238,0,0,0,1269,0,2973,1130,3194,1275,635,743,0,0,0,1537,1275,1303,1130,1783,0,0,1262,2797,2809,2809,1272,0,0,2822,0,1130,2822,1311,1288,0,1319,1130,1319,1319,1130,1130,1326,1341,1341,0,0,2822,1302,697,0,1304,0,1130,1344,1344,1344,0,1344,0,0,0,0,-15,611,0,1344,0,974,0,0,0,1783,1313,1349,0,0,0 - ]) - -happyGotoOffsets :: Happy_Data_Array.Array Prelude.Int Prelude.Int -happyGotoOffsets = Happy_Data_Array.listArray (0,637) ([1384,256,1381,1599,155,173,1352,1366,324,2222,748,505,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1023,0,0,0,0,0,0,0,0,0,0,0,0,0,564,0,2384,3364,0,0,836,0,0,915,1014,0,0,2458,791,1457,0,0,0,0,0,0,0,1424,0,0,0,1346,0,288,0,1336,1340,0,0,0,0,0,0,0,0,207,300,1462,692,628,3235,136,710,61,0,3010,3021,0,0,260,0,0,20,401,0,874,0,0,0,0,0,253,2063,417,-12,0,0,0,0,112,0,269,0,0,0,0,0,0,0,0,9,0,0,0,0,0,0,0,403,1367,0,-3,0,0,0,857,0,0,0,0,1360,0,0,0,0,0,0,0,0,0,0,2150,0,0,0,0,989,0,368,488,1310,1651,1739,1768,193,1615,258,0,168,0,0,-8,-23,2309,0,0,0,0,1361,0,1361,0,197,0,0,0,2602,3392,0,0,0,0,0,0,0,0,0,-5,0,0,0,0,0,0,3032,3047,0,0,0,0,0,0,0,0,430,0,923,558,1083,420,724,1913,1999,2086,0,0,0,0,0,2997,2746,946,0,0,0,0,0,0,0,0,0,0,1053,0,0,1000,0,2941,0,3410,846,3424,0,0,0,3378,0,0,0,0,0,0,1127,0,0,0,0,0,0,0,0,0,0,0,3438,0,3452,0,2768,938,0,97,0,0,0,0,0,0,0,0,0,1203,495,0,341,0,3466,479,0,370,1631,0,3258,2826,1533,1686,0,1702,1718,0,1773,1789,986,1805,0,0,1860,0,474,0,1345,561,0,1375,0,0,1347,0,0,0,0,0,0,0,0,2841,405,0,412,0,0,0,1286,0,0,262,0,95,0,0,0,0,0,0,0,0,1294,694,603,3480,667,0,-62,0,70,0,3494,0,0,267,-57,0,0,373,387,203,0,228,0,0,3281,1316,2125,137,1435,0,-37,0,0,880,685,5,0,0,0,0,2198,162,0,812,152,0,0,1111,1168,0,0,0,902,0,0,3304,0,0,0,0,414,0,0,0,1876,0,0,0,0,0,0,3508,729,3522,742,1343,1333,1892,0,0,0,302,397,0,0,0,0,0,433,0,3536,0,0,0,0,0,0,0,1947,0,0,0,0,0,0,0,0,0,0,0,0,1963,1979,0,0,0,0,0,2034,0,0,0,0,0,3550,756,3564,817,0,0,0,0,0,0,0,0,0,0,3578,0,0,0,34,0,0,1355,1364,0,0,3592,0,3606,2050,2066,0,0,0,0,2121,2137,0,2153,41,659,2208,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,3620,0,3634,0,0,0,0,1371,0,0,927,1402,0,1461,0,0,0,0,0,399,2224,854,1416,0,0,0,0,0,1528,1417,0,2240,13,0,0,0,3648,3327,3350,0,0,0,3662,0,2295,316,0,0,0,0,2311,0,0,2327,2382,0,0,0,0,0,3676,0,59,0,0,0,2398,0,0,0,0,0,0,0,0,0,1372,0,0,0,0,0,0,0,0,-19,0,0,0,0,0 - ]) - -happyAdjustOffset :: Prelude.Int -> Prelude.Int -happyAdjustOffset = Prelude.id - -happyDefActions :: Happy_Data_Array.Array Prelude.Int Prelude.Int -happyDefActions = Happy_Data_Array.listArray (0,637) ([0,0,0,0,0,0,0,0,-135,0,0,0,0,0,-319,-136,-138,-141,-311,-316,-318,0,-306,-317,-309,-310,-308,-307,-147,-148,0,-143,-142,-146,-144,-145,-139,-140,-149,-137,-312,-314,0,-313,0,0,0,0,-265,-258,-280,-282,-285,0,-286,-288,-289,0,0,0,-296,-134,-91,0,-133,-152,-156,0,-177,-163,-155,-178,-174,-175,-179,-181,-182,-183,-184,-185,-186,-187,0,0,0,0,0,0,0,0,0,0,0,0,-188,0,0,0,0,0,0,0,-112,0,0,-242,-114,-90,0,0,0,0,0,0,0,-244,0,0,0,0,0,0,0,-53,-68,0,-51,0,-67,0,0,0,-50,-17,-37,-47,-46,-48,0,0,-40,0,-308,0,-52,0,-35,0,0,-34,0,-256,0,0,-251,0,0,-240,-242,0,-243,0,-245,0,0,-248,0,-311,0,0,0,0,0,0,0,0,0,0,-119,0,-116,0,0,0,-126,-128,0,-132,-178,-173,-178,-172,0,-321,-196,-322,0,0,0,-203,-205,-206,-198,-216,0,-212,-213,-124,-192,-188,0,0,0,-191,-144,-145,-220,-221,0,-194,0,0,-166,0,-112,0,-242,0,0,0,0,0,0,0,-201,-202,-200,-180,-176,0,0,-92,-273,0,-304,0,-271,-262,0,0,0,-292,0,0,-297,-284,-286,0,-283,0,0,0,-266,-264,-260,0,-259,-315,0,-13,0,0,0,-320,-261,-279,-281,0,0,-298,-299,0,-294,-293,0,-291,0,-287,0,0,-295,0,-263,-93,-161,-162,-154,-150,-107,-105,-106,0,0,-277,0,-275,0,0,0,0,0,0,0,0,0,0,-195,0,0,-232,0,0,0,0,-190,-189,0,-197,0,-125,0,0,-193,0,0,-199,0,0,0,-311,-329,0,-324,0,-117,0,0,-131,0,-75,-113,-114,0,-123,-120,0,-122,0,-127,-241,-76,0,-89,-87,-88,0,0,0,0,0,0,-250,0,-249,0,-247,0,-246,-115,0,0,-252,-153,0,0,0,-33,0,-36,0,0,0,-69,0,-23,-21,0,-45,0,0,0,0,-41,-308,0,-14,-69,0,-49,0,0,-42,-20,-30,0,0,0,-61,0,0,0,0,-38,-39,0,-159,0,-157,-257,-255,0,-239,-253,-254,0,-81,-278,0,0,0,0,0,0,0,-118,-78,-79,0,0,0,-129,-130,-165,-323,0,-325,0,-327,-326,-204,-207,-216,-210,-214,0,-217,-218,-211,-208,-208,-219,-234,-236,0,0,-225,-222,0,0,-209,-168,-167,-164,-98,0,-94,0,-115,0,-99,0,0,0,0,-274,-271,-305,-272,-303,-269,-268,-267,-301,-302,0,-290,-300,0,0,0,0,0,0,0,-102,0,-100,0,0,0,-95,0,-224,0,0,0,0,0,0,0,0,-233,-215,-328,0,-330,-115,-121,-70,-72,0,-74,-80,-151,0,0,-84,0,-82,0,-77,-158,-160,-56,0,0,0,0,-69,-59,-69,-54,-22,-19,0,-29,0,0,0,0,0,0,-60,-55,-108,0,0,-44,0,-28,-63,-62,0,0,0,0,-58,-83,-85,0,-276,0,0,-223,-235,-237,-238,0,-228,-226,0,0,0,-97,-96,-101,-103,0,-270,0,-15,0,-104,0,-227,-229,-231,-71,-73,-86,-57,-64,-66,0,0,-27,-43,-109,0,-110,-111,-24,0,-65,-230,-16,-26 - ]) - -happyCheck :: Happy_Data_Array.Array Prelude.Int Prelude.Int -happyCheck = Happy_Data_Array.listArray (0,3796) ([-1,4,1,20,22,47,1,1,22,32,59,2,3,32,76,77,78,32,1,61,7,12,13,80,15,16,17,35,33,20,21,36,37,27,52,26,2,3,100,101,31,32,59,100,27,32,12,13,63,15,16,17,67,33,20,21,36,51,72,20,26,2,3,100,101,31,32,104,80,81,78,12,13,78,15,16,17,100,101,20,21,100,101,45,46,26,77,78,100,54,31,32,100,101,33,100,101,100,78,102,103,100,67,102,103,100,59,102,103,100,101,77,78,100,101,3,75,76,77,78,100,101,72,46,12,13,47,15,16,17,35,54,20,21,100,101,77,78,26,78,3,100,101,31,32,35,76,77,78,12,13,22,15,16,17,56,46,20,21,100,101,100,101,26,72,3,37,38,31,32,100,101,11,78,12,13,52,15,16,17,1,26,20,21,87,33,31,32,26,77,78,67,26,31,32,100,101,100,48,26,64,65,34,22,31,32,3,41,47,59,52,38,100,101,77,78,13,35,15,16,17,60,61,20,21,67,45,46,46,26,78,3,77,78,31,32,51,100,101,77,78,13,22,15,16,17,78,62,20,21,77,78,100,101,26,100,101,22,46,31,32,7,100,101,29,9,54,11,100,101,14,78,16,100,101,78,20,21,45,46,77,78,26,14,22,16,26,31,32,20,21,31,32,100,101,26,89,100,101,39,31,32,47,100,101,77,78,100,101,47,48,1,50,51,52,60,61,55,56,57,58,59,60,61,62,23,24,25,100,101,1,31,32,77,78,77,78,77,78,23,24,25,89,76,77,78,77,78,60,61,62,27,28,100,101,72,100,101,100,101,100,101,100,101,47,41,104,100,101,100,101,47,48,1,50,51,52,77,78,55,56,57,58,59,60,61,62,45,100,101,45,46,104,91,92,93,94,55,96,26,100,101,100,101,31,32,104,91,92,93,94,38,96,26,1,22,100,101,31,32,104,28,29,1,100,101,39,26,104,26,89,26,31,32,31,32,31,32,26,72,26,100,47,31,32,31,32,5,78,47,77,78,10,11,12,60,61,89,90,30,43,44,45,33,77,78,36,3,100,27,100,101,72,100,101,78,60,78,77,78,77,78,77,78,45,46,44,100,101,77,78,77,78,76,77,78,79,100,101,100,101,100,101,100,101,100,101,59,78,89,90,0,100,101,100,101,5,100,101,8,100,10,11,12,59,22,15,16,17,18,100,101,29,100,60,61,62,47,27,47,107,30,68,69,70,34,0,42,43,44,45,5,60,61,8,44,10,11,12,48,52,15,16,17,18,5,6,45,89,58,10,11,12,27,100,101,30,89,104,100,34,0,71,72,89,90,5,27,100,101,44,10,11,12,48,100,15,16,17,18,47,43,44,45,58,100,101,52,27,104,105,45,46,53,47,34,46,71,72,49,22,60,61,62,41,44,28,60,61,48,69,70,64,0,76,77,78,79,5,58,49,8,9,10,11,12,13,14,15,16,17,18,19,72,21,47,45,46,100,101,27,100,101,30,100,104,102,34,60,61,42,43,44,45,45,47,48,44,50,51,52,48,47,55,56,57,58,59,60,61,62,58,89,60,66,60,61,0,22,42,43,25,5,100,71,8,9,10,11,12,13,14,15,16,17,18,19,46,21,62,63,64,65,66,27,41,69,30,100,101,35,34,104,74,75,76,77,78,45,47,48,44,50,51,52,48,46,55,56,57,58,59,60,61,62,58,89,60,66,100,101,0,46,54,72,49,5,100,71,8,9,10,11,12,13,14,15,16,17,18,19,22,21,89,90,100,101,28,27,104,47,30,100,101,100,34,104,1,2,3,4,5,6,60,61,44,10,11,12,48,100,101,46,89,104,49,106,35,89,58,24,5,6,27,100,101,10,11,12,100,34,89,71,42,43,44,45,21,42,43,44,45,100,27,48,89,50,45,100,53,102,103,52,57,58,55,100,56,62,63,64,65,66,67,68,69,70,1,5,53,4,5,6,10,11,12,10,11,12,43,44,45,91,92,93,94,46,96,97,49,27,100,101,27,1,104,59,4,5,6,34,89,90,10,11,12,89,44,42,43,44,45,100,35,48,52,5,100,44,45,27,10,11,12,58,32,56,34,62,63,64,65,66,67,68,69,70,44,27,93,94,48,96,89,35,34,100,101,54,46,104,58,49,46,100,44,63,100,101,48,67,1,2,3,4,5,6,44,45,58,10,11,12,27,28,15,16,17,18,68,100,101,46,23,24,49,45,27,1,2,3,4,5,6,34,52,1,10,11,12,5,6,100,101,44,10,11,12,48,94,50,24,1,53,27,100,101,57,58,104,46,34,27,49,52,65,66,100,101,42,43,44,43,44,45,48,98,50,100,44,53,45,67,48,57,58,1,2,3,4,5,6,65,66,22,10,11,12,68,73,74,75,76,77,78,42,43,44,45,24,52,46,27,1,2,3,4,5,6,34,35,54,10,11,12,5,100,101,52,44,10,11,12,48,94,50,24,54,53,27,100,101,57,58,104,33,34,27,94,95,65,66,71,10,100,101,44,6,104,8,48,3,50,59,44,53,43,44,45,57,58,1,2,3,4,5,6,65,66,71,10,11,12,5,59,45,42,43,10,11,12,98,99,100,24,5,6,27,52,55,10,11,12,54,34,27,62,63,64,65,66,67,68,69,44,68,22,27,48,5,50,45,44,53,10,11,12,57,58,46,52,22,42,43,44,65,66,41,46,5,36,27,5,22,10,11,12,10,11,12,52,52,62,63,64,65,66,67,68,69,70,27,52,49,27,54,22,100,34,102,103,34,15,16,17,18,42,43,44,45,23,44,48,55,5,48,43,44,45,10,11,12,58,60,59,58,62,63,64,65,66,67,68,69,0,68,27,52,100,5,102,103,22,34,10,11,12,29,29,15,16,17,18,44,0,22,52,48,41,5,22,27,56,52,10,11,12,58,34,15,16,17,18,22,8,54,54,68,44,71,14,27,48,44,5,19,54,21,34,10,11,12,58,48,60,22,30,55,44,43,44,45,48,22,46,0,27,43,44,45,5,22,58,8,60,10,11,12,13,14,15,16,17,18,19,29,21,55,49,43,44,45,27,22,60,30,22,5,55,34,0,22,10,11,12,5,43,44,45,44,10,11,12,48,0,15,16,17,18,27,0,10,40,58,28,5,29,27,52,63,10,11,12,63,34,15,16,17,18,49,100,49,65,52,44,0,71,27,48,49,5,19,20,21,34,10,11,12,58,86,15,16,17,18,44,60,61,62,48,49,5,86,27,68,69,70,30,30,58,34,86,1,2,3,4,5,6,86,86,44,10,11,12,48,-1,5,42,43,44,45,10,11,12,58,24,100,101,27,-1,104,19,20,21,5,34,-1,-1,27,10,11,12,31,-1,-1,44,-1,18,-1,48,-1,50,-1,-1,53,44,27,-1,57,58,47,48,-1,50,51,52,53,54,55,56,57,58,59,60,61,62,1,2,3,4,5,6,-1,5,-1,10,11,12,10,11,12,-1,-1,5,-1,87,88,-1,10,11,12,-1,27,-1,-1,27,98,99,100,34,-1,-1,-1,100,101,27,-1,104,-1,44,-1,-1,44,48,49,50,-1,-1,53,-1,52,47,48,58,50,51,52,49,54,55,56,57,58,59,60,61,62,1,2,3,4,5,6,-1,5,-1,10,11,12,10,11,12,-1,-1,5,-1,-1,18,-1,10,11,12,-1,27,-1,-1,27,98,99,100,34,-1,-1,-1,100,101,27,-1,104,-1,44,-1,-1,44,48,-1,50,47,48,53,50,51,52,44,58,55,56,57,58,59,60,61,62,47,48,-1,50,51,52,-1,-1,55,56,57,58,59,60,61,62,47,48,-1,50,51,52,-1,-1,55,56,57,58,59,60,61,62,43,44,45,46,-1,100,101,5,-1,104,5,-1,10,11,12,10,11,12,-1,-1,-1,100,101,-1,-1,104,-1,-1,-1,27,-1,-1,27,31,-1,-1,31,100,101,47,48,104,50,51,52,-1,44,55,56,57,58,59,60,61,62,47,48,-1,50,51,52,-1,-1,55,56,57,58,59,60,61,62,47,48,-1,50,51,52,-1,-1,55,56,57,58,59,60,61,62,22,43,44,45,46,100,101,5,-1,104,-1,-1,10,11,12,37,38,39,40,41,-1,100,101,-1,46,104,-1,-1,-1,27,43,44,45,46,-1,-1,-1,100,101,47,48,104,50,51,52,-1,44,55,56,57,58,59,60,61,62,47,48,-1,50,51,52,-1,-1,55,56,57,58,59,60,61,62,47,48,-1,50,51,52,42,43,55,56,57,58,59,60,61,62,-1,-1,54,-1,-1,100,101,42,43,104,62,63,64,65,66,67,68,69,70,-1,-1,100,101,-1,-1,104,-1,62,63,64,65,66,67,68,69,70,-1,100,101,47,48,104,50,51,52,-1,-1,55,56,57,58,59,60,61,62,47,48,-1,50,51,52,-1,-1,55,56,57,58,59,60,61,62,47,48,-1,50,51,52,42,43,55,56,57,58,59,60,61,62,52,43,44,45,46,100,101,42,43,104,62,63,64,65,66,67,-1,69,-1,-1,-1,100,101,-1,-1,104,-1,62,63,64,65,66,67,68,69,-1,-1,100,101,47,48,104,50,51,52,-1,-1,55,56,57,58,59,60,61,62,47,48,-1,50,51,52,-1,-1,55,56,57,58,59,60,61,62,47,48,-1,50,51,52,42,43,55,56,57,58,59,60,61,62,43,44,45,46,-1,100,101,42,43,104,62,63,64,65,66,67,68,69,-1,-1,-1,100,101,-1,-1,104,-1,62,63,64,65,66,67,68,69,-1,-1,100,101,47,48,104,50,51,52,-1,-1,55,56,57,58,59,60,61,62,47,48,-1,50,51,52,-1,-1,55,56,57,58,59,60,61,62,47,48,-1,50,51,52,-1,-1,55,56,57,58,59,60,61,62,43,44,45,46,-1,100,101,-1,-1,104,76,77,78,79,18,19,20,21,-1,-1,-1,100,101,5,6,104,-1,-1,10,11,12,-1,-1,-1,100,101,-1,100,101,47,48,104,50,51,52,27,-1,55,56,57,58,59,60,61,62,47,48,-1,50,51,52,-1,-1,55,56,57,58,59,60,61,62,47,48,-1,50,51,52,-1,-1,55,56,57,58,59,60,61,62,18,19,20,21,-1,100,101,-1,-1,104,76,77,78,79,-1,-1,-1,-1,-1,-1,-1,100,101,5,6,104,-1,-1,10,11,12,-1,-1,-1,100,101,-1,100,101,47,48,104,50,51,52,27,-1,55,56,57,58,59,60,61,62,47,48,-1,50,51,52,-1,-1,55,56,57,58,59,60,61,62,47,48,-1,50,51,52,-1,-1,55,56,57,58,59,60,61,62,-1,82,83,84,85,100,101,-1,-1,104,91,92,93,94,-1,96,-1,-1,-1,100,101,100,101,104,5,104,-1,-1,-1,10,11,12,-1,-1,-1,-1,-1,100,101,47,48,104,50,51,52,-1,27,55,56,57,58,59,60,61,62,47,48,-1,50,51,52,-1,-1,55,56,57,58,59,60,61,62,47,48,-1,50,51,52,-1,-1,55,56,57,58,59,60,61,62,-1,82,83,84,85,100,101,-1,-1,104,91,92,93,94,-1,96,-1,-1,-1,100,101,100,101,104,-1,104,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,100,101,47,48,104,50,51,52,-1,-1,55,56,57,58,59,60,61,62,47,48,-1,50,51,52,-1,-1,55,56,57,58,59,60,61,62,1,-1,-1,4,5,6,-1,84,85,10,11,12,-1,-1,91,92,93,94,-1,96,-1,100,101,100,101,104,27,104,-1,5,-1,-1,-1,34,10,11,12,100,101,-1,-1,104,-1,44,-1,-1,-1,48,49,1,-1,27,4,5,6,-1,-1,58,10,11,12,1,-1,-1,4,5,6,-1,44,-1,10,11,12,-1,1,27,52,4,5,6,-1,-1,34,10,11,12,-1,27,91,92,93,94,44,96,34,-1,48,100,101,-1,27,104,-1,-1,44,-1,58,34,48,-1,-1,-1,-1,-1,-1,-1,-1,44,58,1,-1,48,4,5,6,-1,-1,-1,10,11,12,58,1,-1,-1,4,5,6,-1,-1,-1,10,11,12,1,27,-1,4,5,6,-1,-1,34,10,11,12,-1,-1,27,-1,-1,-1,44,-1,-1,34,48,-1,-1,-1,27,-1,-1,-1,-1,44,58,34,5,48,-1,-1,-1,10,11,12,-1,44,-1,58,-1,48,-1,1,-1,-1,4,5,6,-1,27,58,10,11,12,1,-1,-1,4,5,6,-1,-1,-1,10,11,12,44,1,27,-1,4,5,6,-1,52,34,10,11,12,-1,27,91,92,93,94,44,96,34,-1,48,100,101,-1,27,104,-1,-1,44,-1,58,34,48,-1,-1,-1,-1,-1,-1,-1,-1,44,58,1,-1,48,4,5,6,-1,-1,-1,10,11,12,58,1,-1,-1,4,5,6,-1,-1,-1,10,11,12,1,27,-1,4,5,6,-1,-1,34,10,11,12,-1,-1,27,-1,-1,-1,44,-1,-1,34,48,-1,-1,-1,27,-1,-1,-1,-1,44,58,34,5,48,-1,-1,-1,10,11,12,-1,44,-1,58,-1,48,-1,1,-1,-1,4,5,6,-1,27,58,10,11,12,1,-1,-1,4,5,6,-1,-1,-1,10,11,12,44,1,27,-1,4,5,6,-1,52,34,10,11,12,-1,27,91,92,93,94,44,96,34,-1,48,100,101,-1,27,104,-1,-1,44,86,58,34,48,-1,91,92,93,94,-1,96,-1,44,58,100,101,48,-1,104,-1,48,-1,50,51,52,-1,58,55,56,57,58,59,60,61,62,48,-1,50,51,52,-1,-1,55,56,57,58,59,60,61,62,-1,-1,-1,5,-1,-1,-1,-1,10,11,12,-1,-1,-1,5,-1,-1,-1,-1,10,11,12,100,101,-1,27,104,-1,-1,-1,-1,-1,34,35,-1,-1,27,100,101,-1,-1,104,44,34,5,-1,48,-1,-1,10,11,12,-1,44,45,-1,58,48,-1,-1,-1,-1,-1,5,-1,-1,27,58,10,11,12,-1,-1,34,5,-1,-1,-1,-1,10,11,12,-1,44,-1,27,-1,48,-1,-1,-1,-1,34,5,55,-1,27,58,10,11,12,-1,44,34,-1,-1,48,-1,-1,-1,52,-1,-1,44,-1,27,58,48,5,-1,-1,52,34,10,11,12,-1,58,91,92,93,94,44,96,-1,-1,48,100,101,-1,27,104,-1,-1,-1,52,58,34,55,56,57,58,59,60,61,62,-1,44,52,-1,-1,48,-1,57,58,59,60,61,62,52,-1,58,-1,-1,57,58,59,60,61,62,52,-1,-1,-1,-1,57,58,59,60,61,62,-1,-1,100,101,52,-1,104,-1,-1,57,58,59,60,61,62,100,101,-1,-1,104,-1,-1,-1,-1,-1,-1,100,101,-1,-1,104,-1,-1,-1,-1,-1,-1,100,101,-1,-1,104,-1,-1,22,-1,-1,25,26,-1,28,29,100,101,-1,-1,104,35,36,37,38,39,40,41,42,43,-1,45,46,47,-1,49,-1,-1,5,-1,54,55,56,10,11,12,60,61,62,63,64,65,66,67,68,69,5,-1,72,5,27,10,11,12,10,11,12,-1,5,-1,-1,-1,-1,10,11,12,-1,44,27,-1,-1,27,-1,24,-1,52,-1,-1,-1,-1,27,-1,-1,-1,-1,44,-1,-1,44,-1,24,42,43,52,-1,-1,52,44,-1,-1,-1,-1,-1,54,-1,52,57,24,42,43,-1,62,63,64,65,66,67,68,69,70,54,-1,-1,57,-1,42,43,-1,62,63,64,65,66,67,68,69,70,54,-1,-1,57,-1,-1,-1,-1,62,63,64,65,66,67,68,69,70,60,61,62,-1,-1,-1,-1,67,68,69,70,-1,42,43,-1,-1,-1,47,-1,-1,-1,-1,-1,-1,54,55,56,-1,-1,-1,60,61,62,63,64,65,66,67,68,69,100,101,72,-1,104,82,83,84,85,-1,-1,-1,-1,-1,91,92,93,94,-1,96,-1,-1,-1,100,101,-1,-1,104,82,83,84,85,-1,-1,-1,-1,-1,91,92,93,94,-1,96,-1,-1,-1,100,101,-1,-1,104,82,83,84,85,-1,-1,-1,-1,-1,91,92,93,94,-1,96,-1,-1,-1,100,101,-1,-1,104,82,83,84,85,-1,-1,-1,-1,-1,91,92,93,94,-1,96,-1,-1,-1,100,101,-1,-1,104,82,83,84,85,-1,-1,-1,-1,-1,91,92,93,94,-1,96,-1,-1,85,100,101,-1,-1,104,91,92,93,94,-1,96,-1,-1,85,100,101,-1,-1,104,91,92,93,94,-1,96,-1,-1,-1,100,101,-1,-1,104,91,92,93,94,-1,96,97,-1,-1,100,101,-1,-1,104,-1,-1,107,108,91,92,93,94,-1,96,-1,-1,-1,100,101,-1,-1,104,91,92,93,94,-1,96,-1,-1,-1,100,101,-1,-1,104,91,92,93,94,-1,96,-1,-1,-1,100,101,-1,-1,104,91,92,93,94,-1,96,-1,-1,-1,100,101,-1,-1,104,91,92,93,94,-1,96,-1,-1,-1,100,101,-1,-1,104,91,92,93,94,-1,96,-1,-1,-1,100,101,-1,-1,104,91,92,93,94,-1,96,-1,-1,-1,100,101,-1,-1,104,91,92,93,94,-1,96,-1,-1,-1,100,101,-1,-1,104,91,92,93,94,-1,96,-1,-1,-1,100,101,-1,-1,104,91,92,93,94,-1,96,-1,-1,-1,100,101,-1,-1,104,91,92,93,94,-1,96,-1,-1,-1,100,101,-1,-1,104,91,92,93,94,-1,96,-1,-1,-1,100,101,-1,-1,104,91,92,93,94,-1,96,-1,-1,-1,100,101,-1,-1,104,91,92,93,94,-1,96,-1,-1,-1,100,101,-1,-1,104,91,92,93,94,-1,96,-1,-1,-1,100,101,-1,-1,104,91,92,93,94,-1,96,-1,-1,-1,100,101,-1,-1,104,91,92,93,94,-1,96,-1,-1,-1,100,101,-1,-1,104,91,92,93,94,-1,96,-1,-1,-1,100,101,-1,-1,104,91,92,93,94,-1,96,-1,-1,-1,100,101,-1,-1,104,91,92,93,94,-1,96,-1,-1,-1,100,101,-1,-1,104,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1 - ]) - -happyTable :: Happy_Data_Array.Array Prelude.Int Prelude.Int -happyTable = Happy_Data_Array.listArray (0,3796) ([0,394,269,14,272,386,408,201,151,350,120,131,132,636,433,157,158,500,201,388,624,133,134,428,135,136,137,353,178,138,139,329,330,202,273,140,509,132,18,160,101,102,131,153,202,625,133,134,501,135,136,137,502,178,138,139,179,203,-1,14,140,611,132,18,19,101,102,412,151,152,354,133,134,180,135,136,137,18,351,138,139,18,351,378,375,140,104,105,153,377,101,102,18,160,192,18,160,40,180,41,395,40,177,41,270,40,100,41,270,18,106,104,105,18,351,132,595,473,157,158,18,160,-1,183,148,134,242,135,136,137,444,184,138,139,18,106,104,105,140,180,132,18,160,101,102,374,432,157,158,415,134,151,135,136,137,263,375,138,139,18,106,18,160,140,-1,132,531,532,101,102,18,160,566,354,570,134,176,135,136,137,234,116,138,139,494,566,101,102,140,104,105,177,314,101,102,18,160,495,384,100,198,199,356,151,101,102,132,315,-25,385,311,103,18,106,104,105,423,372,135,136,137,-25,-25,138,139,177,326,327,373,140,180,132,104,105,101,102,336,18,106,104,105,422,151,135,136,137,344,337,138,139,104,105,18,160,140,18,106,151,183,101,102,236,18,106,526,120,313,121,18,160,122,361,123,18,106,344,124,125,376,373,104,105,126,147,445,123,185,101,102,124,125,101,102,18,160,126,228,18,160,186,101,102,386,18,106,104,105,167,229,446,65,233,66,67,68,387,388,69,70,71,72,73,74,75,76,538,539,540,18,106,232,223,224,104,105,359,158,104,105,617,539,540,166,429,157,158,104,105,237,75,76,61,62,167,168,-1,18,106,18,160,18,106,18,19,185,63,77,18,160,18,106,64,65,174,66,67,68,225,226,69,70,71,72,73,74,75,76,591,18,19,325,318,77,541,50,51,52,512,53,100,18,106,18,19,101,102,54,541,50,51,52,426,53,185,173,151,18,19,101,102,54,524,525,172,18,19,424,177,77,402,436,451,101,102,101,102,101,102,450,-1,177,305,347,101,102,101,102,23,486,147,104,105,25,26,27,348,349,303,368,146,155,16,17,178,104,105,311,145,305,28,18,160,-1,18,106,537,406,344,104,105,104,105,104,105,286,287,171,18,106,104,105,104,105,156,157,158,159,18,160,18,160,18,106,18,106,18,106,394,180,303,304,108,18,106,18,106,23,18,160,128,305,25,26,27,393,151,109,110,111,112,18,160,602,534,461,75,76,389,28,386,535,-69,467,206,207,113,108,14,15,16,17,23,562,388,128,114,25,26,27,115,380,109,110,111,112,23,44,379,488,116,25,26,27,28,18,19,-69,366,77,305,113,108,129,-32,303,491,23,28,167,367,114,25,26,27,115,305,109,110,111,112,359,308,16,17,116,18,19,356,28,20,21,284,285,45,559,113,381,129,-31,382,151,461,75,76,334,114,527,560,561,115,463,207,335,108,156,157,158,159,23,116,333,-69,142,25,26,143,144,-69,109,110,111,112,-69,-1,-69,347,632,633,18,160,28,18,19,-69,40,77,267,113,553,349,210,15,16,17,328,211,65,114,66,67,68,115,386,69,70,71,72,73,74,75,76,116,436,150,212,574,388,108,151,29,30,316,23,305,129,-69,142,25,26,143,144,-69,109,110,111,112,-69,332,-69,32,33,34,35,36,28,329,39,-69,18,19,317,113,77,594,472,473,157,158,288,216,65,114,66,67,68,115,318,69,70,71,72,73,74,75,76,116,434,-18,217,18,160,108,292,289,218,293,23,305,129,-69,142,25,26,143,144,-69,109,110,111,112,-69,151,-69,303,438,18,19,603,28,409,559,-69,18,19,305,113,77,79,80,81,82,23,24,573,561,114,25,26,27,115,18,19,290,301,193,291,194,281,436,116,88,23,44,28,167,302,25,26,27,305,89,545,129,248,15,16,17,397,29,30,90,214,305,28,91,436,92,274,40,93,41,42,466,94,95,467,305,263,32,33,34,215,216,37,38,39,40,56,23,45,57,23,24,25,26,27,25,26,27,260,16,17,249,50,51,52,287,53,250,459,28,18,19,28,56,54,509,57,23,24,58,303,568,25,26,27,513,171,29,30,59,252,305,507,253,370,23,305,174,17,28,25,26,27,61,500,263,58,32,33,34,35,36,37,38,39,40,59,28,276,52,253,53,436,506,113,18,19,505,285,54,61,458,443,305,162,501,18,389,115,502,79,80,81,82,23,24,309,17,116,25,26,27,293,62,83,84,85,86,182,18,410,455,87,88,456,488,28,79,80,81,82,23,24,89,485,196,25,26,27,23,24,18,556,90,25,26,27,91,258,92,88,461,93,28,18,19,94,95,256,290,89,28,631,457,96,97,18,582,478,479,90,370,16,17,91,496,92,281,197,93,454,177,198,94,95,79,80,81,82,23,24,96,97,151,25,26,27,449,470,471,472,473,157,158,268,15,16,17,88,444,443,28,79,80,81,82,23,24,89,220,442,25,26,27,23,18,160,431,90,25,26,27,91,279,92,88,422,93,28,18,19,94,95,256,448,89,28,254,255,96,97,129,415,18,19,90,563,256,564,91,412,92,408,353,93,307,16,17,94,95,79,80,81,82,23,24,96,97,129,25,26,27,23,407,556,29,30,25,26,27,244,245,281,88,23,24,28,550,262,25,26,27,555,89,28,32,33,34,35,36,37,38,39,90,449,151,28,91,23,92,537,171,93,25,26,27,94,95,332,307,151,29,30,31,96,97,530,529,23,528,28,23,151,25,26,27,25,26,27,520,519,32,33,34,35,36,37,38,39,40,28,518,248,28,513,511,40,113,41,507,113,83,84,85,86,29,30,162,163,87,162,115,512,23,115,493,16,17,25,26,27,116,611,610,116,32,33,34,35,36,37,38,39,108,358,28,608,40,23,41,562,151,113,25,26,27,601,598,109,110,111,112,162,108,151,457,115,593,23,151,28,592,590,25,26,27,116,113,109,110,111,112,151,399,586,585,182,114,129,400,28,115,580,23,401,624,402,113,25,26,27,116,576,188,151,146,512,114,449,16,17,115,151,529,108,28,440,16,17,23,151,116,-68,426,25,26,404,405,-68,109,110,111,112,-68,614,-68,512,155,419,16,17,28,151,636,-68,151,23,512,113,108,151,25,26,27,23,543,16,17,114,25,26,27,115,129,109,110,111,112,28,108,118,98,116,97,23,397,28,238,236,25,26,27,234,113,109,110,111,112,382,365,283,459,238,114,108,464,28,115,428,23,581,124,418,113,25,26,27,116,544,109,110,111,112,114,461,75,76,115,552,413,608,28,462,206,207,574,627,116,113,497,79,80,81,82,23,24,586,633,114,25,26,27,115,0,23,239,15,16,17,25,26,27,116,88,18,19,28,0,77,580,124,418,23,89,0,0,28,25,26,27,231,0,0,90,0,558,0,91,0,92,0,0,93,171,28,0,94,95,220,65,0,66,67,68,221,222,69,70,71,72,73,74,75,76,79,80,81,82,23,24,0,23,0,25,26,27,25,26,27,0,0,23,0,242,243,0,25,26,27,0,28,0,0,28,244,245,246,89,0,0,0,18,19,28,0,77,0,90,0,0,171,91,209,92,0,0,93,0,493,220,65,210,66,67,68,630,481,69,70,71,72,73,74,75,76,79,80,81,82,23,24,0,23,0,25,26,27,25,26,27,0,0,23,0,0,391,0,25,26,27,0,28,0,0,28,244,628,281,89,0,0,0,18,19,28,0,77,0,90,0,0,392,91,0,92,117,65,93,66,67,68,171,95,69,70,71,72,73,74,75,76,360,65,0,66,67,68,0,0,69,70,71,72,73,74,75,76,485,65,0,66,67,68,0,0,69,70,71,72,73,74,75,76,297,16,17,364,0,18,19,23,0,77,23,0,25,26,27,25,26,27,0,0,0,18,19,0,0,77,0,0,0,28,0,0,28,170,0,0,584,18,19,480,65,77,66,67,68,0,171,69,70,71,72,73,74,75,76,479,65,0,66,67,68,0,0,69,70,71,72,73,74,75,76,476,65,0,66,67,68,0,0,69,70,71,72,73,74,75,76,151,297,16,17,363,18,19,23,0,77,0,0,25,26,27,319,320,321,322,323,0,18,19,0,324,77,0,0,0,28,297,16,17,362,0,0,0,18,19,475,65,77,66,67,68,0,353,69,70,71,72,73,74,75,76,474,65,0,66,67,68,0,0,69,70,71,72,73,74,75,76,469,65,0,66,67,68,29,30,69,70,71,72,73,74,75,76,0,0,241,0,0,18,19,29,30,77,32,33,34,35,36,37,38,39,40,0,0,18,19,0,0,77,0,32,33,34,35,36,37,38,39,40,0,18,19,468,65,77,66,67,68,0,0,69,70,71,72,73,74,75,76,550,65,0,66,67,68,0,0,69,70,71,72,73,74,75,76,542,65,0,66,67,68,-243,-243,69,70,71,72,73,74,75,76,-243,297,16,17,300,18,19,29,30,77,-243,-243,-243,-243,-243,-243,0,-243,0,0,0,18,19,0,0,77,0,32,33,34,35,36,37,38,39,0,0,18,19,532,65,77,66,67,68,0,0,69,70,71,72,73,74,75,76,522,65,0,66,67,68,0,0,69,70,71,72,73,74,75,76,521,65,0,66,67,68,-275,-275,69,70,71,72,73,74,75,76,297,16,17,299,0,18,19,29,30,77,-275,-275,-275,-275,-275,-275,-275,-275,0,0,0,18,19,0,0,77,0,32,33,34,35,36,37,38,39,0,0,18,19,520,65,77,66,67,68,0,0,69,70,71,72,73,74,75,76,604,65,0,66,67,68,0,0,69,70,71,72,73,74,75,76,603,65,0,66,67,68,0,0,69,70,71,72,73,74,75,76,297,16,17,298,0,18,19,0,0,77,163,157,158,164,416,417,124,418,0,0,0,18,19,23,44,77,0,0,25,26,27,0,0,0,18,160,0,18,19,599,65,77,66,67,68,28,0,69,70,71,72,73,74,75,76,598,65,0,66,67,68,0,0,69,70,71,72,73,74,75,76,596,65,0,66,67,68,0,0,69,70,71,72,73,74,75,76,571,417,124,418,0,18,19,0,0,77,156,157,158,159,0,0,0,0,0,0,0,18,19,23,24,77,0,0,25,26,27,0,0,0,18,160,0,18,19,593,65,77,66,67,68,28,0,69,70,71,72,73,74,75,76,577,65,0,66,67,68,0,0,69,70,71,72,73,74,75,76,626,65,0,66,67,68,0,0,69,70,71,72,73,74,75,76,0,45,46,47,48,18,19,0,0,77,49,50,51,52,0,53,0,0,0,18,19,18,19,54,23,77,0,0,0,25,26,27,0,0,0,0,0,18,19,618,65,77,66,67,68,0,28,69,70,71,72,73,74,75,76,616,65,0,66,67,68,0,0,69,70,71,72,73,74,75,76,615,65,0,66,67,68,0,0,69,70,71,72,73,74,75,76,0,349,46,47,48,18,19,0,0,77,49,50,51,52,0,53,0,0,0,18,19,18,19,54,0,77,0,0,0,0,0,0,0,0,0,0,0,18,19,614,65,77,66,67,68,0,0,69,70,71,72,73,74,75,76,634,65,0,66,67,68,0,0,69,70,71,72,73,74,75,76,56,0,0,57,23,24,0,265,48,25,26,27,0,0,266,50,51,52,0,53,0,18,19,18,19,77,28,54,0,23,0,0,0,58,25,26,27,18,19,0,0,77,0,59,0,0,0,253,343,56,0,28,57,23,24,0,0,61,25,26,27,56,0,0,57,23,24,0,171,0,25,26,27,0,56,28,491,57,23,24,0,0,58,25,26,27,0,28,253,50,51,52,59,53,58,0,60,18,19,0,28,54,0,0,59,0,61,260,253,0,0,0,0,0,0,0,0,59,61,56,0,253,57,23,24,0,0,0,25,26,27,61,56,0,0,57,23,24,0,0,0,25,26,27,56,28,0,57,23,24,0,0,258,25,26,27,0,0,28,0,0,0,59,0,0,58,253,0,0,0,28,0,0,0,0,59,61,58,23,253,0,0,0,25,26,27,0,59,0,61,0,60,0,56,0,0,57,23,24,0,28,61,25,26,27,56,0,0,57,23,24,0,0,0,25,26,27,171,56,28,0,57,23,24,0,440,58,25,26,27,0,28,343,50,51,52,59,53,258,0,253,18,19,0,28,54,0,0,59,0,61,58,253,0,0,0,0,0,0,0,0,59,61,56,0,253,57,23,24,0,0,0,25,26,27,61,56,0,0,57,23,24,0,0,0,25,26,27,56,28,0,57,23,24,0,0,58,25,26,27,0,0,28,0,0,0,59,0,0,58,60,0,0,0,28,0,0,0,0,59,61,58,23,253,0,0,0,25,26,27,0,59,0,61,0,60,0,56,0,0,57,23,24,0,28,61,25,26,27,56,0,0,57,23,24,0,0,0,25,26,27,171,56,28,0,57,23,24,0,438,58,25,26,27,0,28,294,50,51,52,59,53,58,0,253,18,19,0,28,54,0,0,59,497,61,58,60,0,498,50,51,52,0,53,0,59,61,18,19,253,0,54,0,482,0,66,67,68,0,61,69,70,71,72,73,74,75,76,452,0,66,67,68,0,0,69,70,71,72,73,74,75,76,0,0,0,23,0,0,0,0,25,26,27,0,0,0,23,0,0,0,0,25,26,27,18,19,0,28,77,0,0,0,0,0,113,166,0,0,28,18,19,0,0,77,162,113,23,0,115,0,0,25,26,27,0,162,163,0,116,115,0,0,0,0,0,23,0,0,28,116,25,26,27,0,0,113,23,0,0,0,0,25,26,27,0,162,0,28,0,115,0,0,0,0,113,23,346,0,28,116,25,26,27,0,162,113,0,0,115,0,0,0,568,0,0,162,0,28,116,115,23,0,0,579,113,25,26,27,0,116,278,50,51,52,228,53,0,0,115,18,19,0,28,54,0,0,0,68,116,113,295,296,71,72,73,74,75,76,0,162,68,0,0,115,0,190,191,73,74,75,76,68,0,116,0,0,188,189,73,74,75,76,68,0,0,0,0,190,191,73,74,75,76,0,0,18,19,68,0,77,0,0,188,189,73,74,75,76,18,19,0,0,77,0,0,0,0,0,0,18,19,0,0,77,0,0,0,0,0,0,18,19,0,0,77,0,0,-290,0,0,-290,-290,0,-290,-290,18,19,0,0,77,-290,-290,-290,-290,-290,-290,-290,-290,-290,0,-290,-290,-290,0,-290,0,0,23,0,-290,-290,-290,25,26,27,-290,-290,-290,-290,-290,-290,-290,-290,-290,-290,23,0,-290,23,28,25,26,27,25,26,27,0,23,0,0,0,0,25,26,27,0,171,28,0,0,28,0,88,0,570,0,0,0,0,28,0,0,0,0,171,0,0,171,0,88,-171,-171,548,0,0,516,171,0,0,0,0,0,-171,0,577,94,88,-170,-170,0,-171,-171,-171,-171,-171,-171,-171,-171,-171,-170,0,0,94,0,-169,-169,0,-170,-170,-170,-170,-170,-170,-170,-170,-170,-169,0,0,94,0,0,0,0,-169,-169,-169,-169,-169,-169,-169,-169,-169,203,75,76,0,0,0,0,204,205,206,207,0,-294,-294,0,0,0,-294,0,0,0,0,0,0,-294,-294,-294,0,0,0,-294,-294,-294,-294,-294,-294,-294,-294,-294,-294,18,19,-294,0,77,483,46,47,48,0,0,0,0,0,49,50,51,52,0,53,0,0,0,18,19,0,0,54,420,46,47,48,0,0,0,0,0,49,50,51,52,0,53,0,0,0,18,19,0,0,54,553,46,47,48,0,0,0,0,0,49,50,51,52,0,53,0,0,0,18,19,0,0,54,621,46,47,48,0,0,0,0,0,49,50,51,52,0,53,0,0,0,18,19,0,0,54,620,46,47,48,0,0,0,0,0,49,50,51,52,0,53,0,0,263,18,19,0,0,54,264,50,51,52,0,53,0,0,263,18,19,0,0,54,274,50,51,52,0,53,0,0,0,18,19,0,0,54,337,50,51,52,0,53,338,0,0,339,19,0,0,54,0,0,340,341,277,50,51,52,0,53,0,0,0,18,19,0,0,54,275,50,51,52,0,53,0,0,0,18,19,0,0,54,503,50,51,52,0,53,0,0,0,18,19,0,0,54,502,50,51,52,0,53,0,0,0,18,19,0,0,54,489,50,51,52,0,53,0,0,0,18,19,0,0,54,435,50,51,52,0,53,0,0,0,18,19,0,0,54,431,50,51,52,0,53,0,0,0,18,19,0,0,54,548,50,51,52,0,53,0,0,0,18,19,0,0,54,546,50,51,52,0,53,0,0,0,18,19,0,0,54,533,50,51,52,0,53,0,0,0,18,19,0,0,54,516,50,51,52,0,53,0,0,0,18,19,0,0,54,514,50,51,52,0,53,0,0,0,18,19,0,0,54,498,50,51,52,0,53,0,0,0,18,19,0,0,54,606,50,51,52,0,53,0,0,0,18,19,0,0,54,605,50,51,52,0,53,0,0,0,18,19,0,0,54,588,50,51,52,0,53,0,0,0,18,19,0,0,54,587,50,51,52,0,53,0,0,0,18,19,0,0,54,622,50,51,52,0,53,0,0,0,18,19,0,0,54,619,50,51,52,0,53,0,0,0,18,19,0,0,54,612,50,51,52,0,53,0,0,0,18,19,0,0,54,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 - ]) - -happyReduceArr = Happy_Data_Array.array (12, 329) [ - (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), - (252 , happyReduce_252), - (253 , happyReduce_253), - (254 , happyReduce_254), - (255 , happyReduce_255), - (256 , happyReduce_256), - (257 , happyReduce_257), - (258 , happyReduce_258), - (259 , happyReduce_259), - (260 , happyReduce_260), - (261 , happyReduce_261), - (262 , happyReduce_262), - (263 , happyReduce_263), - (264 , happyReduce_264), - (265 , happyReduce_265), - (266 , happyReduce_266), - (267 , happyReduce_267), - (268 , happyReduce_268), - (269 , happyReduce_269), - (270 , happyReduce_270), - (271 , happyReduce_271), - (272 , happyReduce_272), - (273 , happyReduce_273), - (274 , happyReduce_274), - (275 , happyReduce_275), - (276 , happyReduce_276), - (277 , happyReduce_277), - (278 , happyReduce_278), - (279 , happyReduce_279), - (280 , happyReduce_280), - (281 , happyReduce_281), - (282 , happyReduce_282), - (283 , happyReduce_283), - (284 , happyReduce_284), - (285 , happyReduce_285), - (286 , happyReduce_286), - (287 , happyReduce_287), - (288 , happyReduce_288), - (289 , happyReduce_289), - (290 , happyReduce_290), - (291 , happyReduce_291), - (292 , happyReduce_292), - (293 , happyReduce_293), - (294 , happyReduce_294), - (295 , happyReduce_295), - (296 , happyReduce_296), - (297 , happyReduce_297), - (298 , happyReduce_298), - (299 , happyReduce_299), - (300 , happyReduce_300), - (301 , happyReduce_301), - (302 , happyReduce_302), - (303 , happyReduce_303), - (304 , happyReduce_304), - (305 , happyReduce_305), - (306 , happyReduce_306), - (307 , happyReduce_307), - (308 , happyReduce_308), - (309 , happyReduce_309), - (310 , happyReduce_310), - (311 , happyReduce_311), - (312 , happyReduce_312), - (313 , happyReduce_313), - (314 , happyReduce_314), - (315 , happyReduce_315), - (316 , happyReduce_316), - (317 , happyReduce_317), - (318 , happyReduce_318), - (319 , happyReduce_319), - (320 , happyReduce_320), - (321 , happyReduce_321), - (322 , happyReduce_322), - (323 , happyReduce_323), - (324 , happyReduce_324), - (325 , happyReduce_325), - (326 , happyReduce_326), - (327 , happyReduce_327), - (328 , happyReduce_328), - (329 , happyReduce_329) - ] - -happy_n_terms = 73 :: Prelude.Int -happy_n_nonterms = 109 :: Prelude.Int - -happyReduce_12 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_12 = happySpecReduce_2 0 happyReduction_12 -happyReduction_12 (HappyAbsSyn15 happy_var_2) - _ - = HappyAbsSyn15 - (happy_var_2 - ) -happyReduction_12 _ _ = notHappyAtAll - -happyReduce_13 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_13 = happySpecReduce_3 0 happyReduction_13 -happyReduction_13 _ - (HappyAbsSyn17 happy_var_2) - _ - = HappyAbsSyn15 - (mkAnonymousModule happy_var_2 - ) -happyReduction_13 _ _ _ = notHappyAtAll - -happyReduce_14 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_14 = happyReduce 5 1 happyReduction_14 -happyReduction_14 (_ `HappyStk` - (HappyAbsSyn17 happy_var_4) `HappyStk` - _ `HappyStk` - _ `HappyStk` - (HappyAbsSyn117 happy_var_1) `HappyStk` - happyRest) - = HappyAbsSyn15 - (mkModule happy_var_1 happy_var_4 - ) `HappyStk` happyRest - -happyReduce_15 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_15 = happyReduce 7 1 happyReduction_15 -happyReduction_15 (_ `HappyStk` - (HappyAbsSyn17 happy_var_6) `HappyStk` - _ `HappyStk` - _ `HappyStk` - (HappyAbsSyn117 happy_var_3) `HappyStk` - _ `HappyStk` - (HappyAbsSyn117 happy_var_1) `HappyStk` - happyRest) - = HappyAbsSyn15 - (mkModuleInstance happy_var_1 happy_var_3 happy_var_6 - ) `HappyStk` happyRest - -happyReduce_16 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_16 = happySpecReduce_1 2 happyReduction_16 -happyReduction_16 (HappyAbsSyn17 happy_var_1) - = HappyAbsSyn17 - (reverse happy_var_1 - ) -happyReduction_16 _ = notHappyAtAll - -happyReduce_17 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_17 = happySpecReduce_0 2 happyReduction_17 -happyReduction_17 = HappyAbsSyn17 - ([] - ) - -happyReduce_18 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_18 = happyReduce 4 3 happyReduction_18 -happyReduction_18 ((HappyAbsSyn21 happy_var_4) `HappyStk` - (HappyAbsSyn20 happy_var_3) `HappyStk` - (HappyAbsSyn19 happy_var_2) `HappyStk` - (HappyTerminal (Located happy_var_1 (Token (KW KW_import) _))) `HappyStk` - happyRest) - = HappyAbsSyn18 - (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_19 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_19 = happySpecReduce_2 4 happyReduction_19 -happyReduction_19 (HappyAbsSyn119 happy_var_2) - _ - = HappyAbsSyn19 - (ImpNested `fmap` happy_var_2 - ) -happyReduction_19 _ _ = notHappyAtAll - -happyReduce_20 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_20 = happySpecReduce_1 4 happyReduction_20 -happyReduction_20 (HappyAbsSyn117 happy_var_1) - = HappyAbsSyn19 - (ImpTop `fmap` happy_var_1 - ) -happyReduction_20 _ = notHappyAtAll - -happyReduce_21 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_21 = happySpecReduce_2 5 happyReduction_21 -happyReduction_21 (HappyAbsSyn117 happy_var_2) - _ - = HappyAbsSyn20 - (Just happy_var_2 - ) -happyReduction_21 _ _ = notHappyAtAll - -happyReduce_22 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_22 = happySpecReduce_0 5 happyReduction_22 -happyReduction_22 = HappyAbsSyn20 - (Nothing - ) - -happyReduce_23 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_23 = happyReduce 4 6 happyReduction_23 -happyReduction_23 (_ `HappyStk` - (HappyAbsSyn22 happy_var_3) `HappyStk` - _ `HappyStk` - (HappyAbsSyn23 happy_var_1) `HappyStk` - happyRest) - = HappyAbsSyn21 - (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_24 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_24 = happySpecReduce_0 6 happyReduction_24 -happyReduction_24 = HappyAbsSyn21 - (Nothing - ) - -happyReduce_25 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_25 = happySpecReduce_3 7 happyReduction_25 -happyReduction_25 (HappyAbsSyn47 happy_var_3) - _ - (HappyAbsSyn22 happy_var_1) - = HappyAbsSyn22 - (fmap getIdent happy_var_3 : happy_var_1 - ) -happyReduction_25 _ _ _ = notHappyAtAll - -happyReduce_26 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_26 = happySpecReduce_1 7 happyReduction_26 -happyReduction_26 (HappyAbsSyn47 happy_var_1) - = HappyAbsSyn22 - ([fmap getIdent happy_var_1] - ) -happyReduction_26 _ = notHappyAtAll - -happyReduce_27 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_27 = happySpecReduce_0 7 happyReduction_27 -happyReduction_27 = HappyAbsSyn22 - ([] - ) - -happyReduce_28 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_28 = happySpecReduce_1 8 happyReduction_28 -happyReduction_28 _ - = HappyAbsSyn23 - (Hiding - ) - -happyReduce_29 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_29 = happySpecReduce_0 8 happyReduction_29 -happyReduction_29 = HappyAbsSyn23 - (Only - ) - -happyReduce_30 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_30 = happySpecReduce_1 9 happyReduction_30 -happyReduction_30 (HappyAbsSyn17 happy_var_1) - = HappyAbsSyn24 - (Program (reverse happy_var_1) - ) -happyReduction_30 _ = notHappyAtAll - -happyReduce_31 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_31 = happySpecReduce_0 9 happyReduction_31 -happyReduction_31 = HappyAbsSyn24 - (Program [] - ) - -happyReduce_32 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_32 = happySpecReduce_3 10 happyReduction_32 -happyReduction_32 _ - (HappyAbsSyn17 happy_var_2) - _ - = HappyAbsSyn24 - (Program (reverse happy_var_2) - ) -happyReduction_32 _ _ _ = notHappyAtAll - -happyReduce_33 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_33 = happySpecReduce_2 10 happyReduction_33 -happyReduction_33 _ - _ - = HappyAbsSyn24 - (Program [] - ) - -happyReduce_34 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_34 = happySpecReduce_2 11 happyReduction_34 -happyReduction_34 _ - (HappyAbsSyn17 happy_var_1) - = HappyAbsSyn17 - (happy_var_1 - ) -happyReduction_34 _ _ = notHappyAtAll - -happyReduce_35 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_35 = happySpecReduce_3 11 happyReduction_35 -happyReduction_35 _ - (HappyAbsSyn17 happy_var_2) - (HappyAbsSyn17 happy_var_1) - = HappyAbsSyn17 - (happy_var_2 ++ happy_var_1 - ) -happyReduction_35 _ _ _ = notHappyAtAll - -happyReduce_36 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_36 = happySpecReduce_1 12 happyReduction_36 -happyReduction_36 (HappyAbsSyn17 happy_var_1) - = HappyAbsSyn17 - (happy_var_1 - ) -happyReduction_36 _ = notHappyAtAll - -happyReduce_37 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_37 = happySpecReduce_3 12 happyReduction_37 -happyReduction_37 (HappyAbsSyn17 happy_var_3) - _ - (HappyAbsSyn17 happy_var_1) - = HappyAbsSyn17 - (happy_var_3 ++ happy_var_1 - ) -happyReduction_37 _ _ _ = notHappyAtAll - -happyReduce_38 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_38 = happySpecReduce_3 12 happyReduction_38 -happyReduction_38 (HappyAbsSyn17 happy_var_3) - _ - (HappyAbsSyn17 happy_var_1) - = HappyAbsSyn17 - (happy_var_3 ++ happy_var_1 - ) -happyReduction_38 _ _ _ = notHappyAtAll - -happyReduce_39 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_39 = happySpecReduce_1 13 happyReduction_39 -happyReduction_39 (HappyAbsSyn41 happy_var_1) - = HappyAbsSyn17 - ([exportDecl Nothing Public happy_var_1] - ) -happyReduction_39 _ = notHappyAtAll - -happyReduce_40 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_40 = happySpecReduce_2 13 happyReduction_40 -happyReduction_40 (HappyAbsSyn41 happy_var_2) - (HappyAbsSyn35 happy_var_1) - = HappyAbsSyn17 - ([exportDecl (Just happy_var_1) Public happy_var_2] - ) -happyReduction_40 _ _ = notHappyAtAll - -happyReduce_41 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_41 = happyMonadReduce 3 13 happyReduction_41 -happyReduction_41 ((HappyTerminal (happy_var_3@(Located _ (Token (StrLit {}) _)))) `HappyStk` - _ `HappyStk` - _ `HappyStk` - happyRest) tk - = happyThen ((( (return . Include) `fmap` fromStrLit happy_var_3)) - ) (\r -> happyReturn (HappyAbsSyn17 r)) - -happyReduce_42 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_42 = happyReduce 6 13 happyReduction_42 -happyReduction_42 ((HappyAbsSyn62 happy_var_6) `HappyStk` - _ `HappyStk` - (HappyAbsSyn48 happy_var_4) `HappyStk` - (HappyAbsSyn47 happy_var_3) `HappyStk` - _ `HappyStk` - (HappyAbsSyn36 happy_var_1) `HappyStk` - happyRest) - = HappyAbsSyn17 - ([exportDecl happy_var_1 Public (mkProperty happy_var_3 happy_var_4 happy_var_6)] - ) `HappyStk` happyRest - -happyReduce_43 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_43 = happyReduce 5 13 happyReduction_43 -happyReduction_43 ((HappyAbsSyn62 happy_var_5) `HappyStk` - _ `HappyStk` - (HappyAbsSyn47 happy_var_3) `HappyStk` - _ `HappyStk` - (HappyAbsSyn36 happy_var_1) `HappyStk` - happyRest) - = HappyAbsSyn17 - ([exportDecl happy_var_1 Public (mkProperty happy_var_3 [] happy_var_5)] - ) `HappyStk` happyRest - -happyReduce_44 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_44 = happySpecReduce_2 13 happyReduction_44 -happyReduction_44 (HappyAbsSyn44 happy_var_2) - (HappyAbsSyn36 happy_var_1) - = HappyAbsSyn17 - ([exportNewtype Public happy_var_1 happy_var_2] - ) -happyReduction_44 _ _ = notHappyAtAll - -happyReduce_45 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_45 = happySpecReduce_1 13 happyReduction_45 -happyReduction_45 (HappyAbsSyn17 happy_var_1) - = HappyAbsSyn17 - (happy_var_1 - ) -happyReduction_45 _ = notHappyAtAll - -happyReduce_46 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_46 = happySpecReduce_1 13 happyReduction_46 -happyReduction_46 (HappyAbsSyn17 happy_var_1) - = HappyAbsSyn17 - (happy_var_1 - ) -happyReduction_46 _ = notHappyAtAll - -happyReduce_47 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_47 = happySpecReduce_1 13 happyReduction_47 -happyReduction_47 (HappyAbsSyn17 happy_var_1) - = HappyAbsSyn17 - (happy_var_1 - ) -happyReduction_47 _ = notHappyAtAll - -happyReduce_48 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_48 = happyMonadReduce 3 13 happyReduction_48 -happyReduction_48 ((HappyAbsSyn15 happy_var_3) `HappyStk` - _ `HappyStk` - (HappyAbsSyn36 happy_var_1) `HappyStk` - happyRest) tk - = happyThen ((( ((:[]) . exportModule happy_var_1) `fmap` mkNested happy_var_3)) - ) (\r -> happyReturn (HappyAbsSyn17 r)) - -happyReduce_49 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_49 = happySpecReduce_1 13 happyReduction_49 -happyReduction_49 (HappyAbsSyn18 happy_var_1) - = HappyAbsSyn17 - ([DImport happy_var_1] - ) -happyReduction_49 _ = notHappyAtAll - -happyReduce_50 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_50 = happySpecReduce_1 14 happyReduction_50 -happyReduction_50 (HappyAbsSyn41 happy_var_1) - = HappyAbsSyn17 - ([Decl (TopLevel {tlExport = Public, tlValue = happy_var_1 })] - ) -happyReduction_50 _ = notHappyAtAll - -happyReduce_51 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_51 = happyMonadReduce 2 14 happyReduction_51 -happyReduction_51 ((HappyTerminal (happy_var_2@(Located _ (Token (StrLit {}) _)))) `HappyStk` - _ `HappyStk` - happyRest) tk - = happyThen ((( (return . Include) `fmap` fromStrLit happy_var_2)) - ) (\r -> happyReturn (HappyAbsSyn17 r)) - -happyReduce_52 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_52 = happySpecReduce_1 14 happyReduction_52 -happyReduction_52 (HappyAbsSyn17 happy_var_1) - = HappyAbsSyn17 - (happy_var_1 - ) -happyReduction_52 _ = notHappyAtAll - -happyReduce_53 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_53 = happyReduce 4 15 happyReduction_53 -happyReduction_53 (_ `HappyStk` - (HappyAbsSyn17 happy_var_3) `HappyStk` - _ `HappyStk` - _ `HappyStk` - happyRest) - = HappyAbsSyn17 - (changeExport Private (reverse happy_var_3) - ) `HappyStk` happyRest - -happyReduce_54 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_54 = happyReduce 5 15 happyReduction_54 -happyReduction_54 (_ `HappyStk` - (HappyAbsSyn17 happy_var_4) `HappyStk` - _ `HappyStk` - _ `HappyStk` - _ `HappyStk` - happyRest) - = HappyAbsSyn17 - (changeExport Private (reverse happy_var_4) - ) `HappyStk` happyRest - -happyReduce_55 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_55 = happyReduce 5 16 happyReduction_55 -happyReduction_55 ((HappyAbsSyn97 happy_var_5) `HappyStk` - _ `HappyStk` - (HappyAbsSyn47 happy_var_3) `HappyStk` - _ `HappyStk` - (HappyAbsSyn36 happy_var_1) `HappyStk` - happyRest) - = HappyAbsSyn17 - (mkPrimDecl happy_var_1 happy_var_3 happy_var_5 - ) `HappyStk` happyRest - -happyReduce_56 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_56 = happyReduce 7 16 happyReduction_56 -happyReduction_56 ((HappyAbsSyn97 happy_var_7) `HappyStk` - _ `HappyStk` - _ `HappyStk` - (HappyAbsSyn47 happy_var_4) `HappyStk` - _ `HappyStk` - _ `HappyStk` - (HappyAbsSyn36 happy_var_1) `HappyStk` - happyRest) - = HappyAbsSyn17 - (mkPrimDecl happy_var_1 happy_var_4 happy_var_7 - ) `HappyStk` happyRest - -happyReduce_57 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_57 = happyMonadReduce 6 16 happyReduction_57 -happyReduction_57 ((HappyAbsSyn101 happy_var_6) `HappyStk` - _ `HappyStk` - (HappyAbsSyn97 happy_var_4) `HappyStk` - _ `HappyStk` - _ `HappyStk` - (HappyAbsSyn36 happy_var_1) `HappyStk` - happyRest) tk - = happyThen ((( mkPrimTypeDecl happy_var_1 happy_var_4 happy_var_6)) - ) (\r -> happyReturn (HappyAbsSyn17 r)) - -happyReduce_58 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_58 = happyReduce 4 17 happyReduction_58 -happyReduction_58 (_ `HappyStk` - (HappyAbsSyn17 happy_var_3) `HappyStk` - _ `HappyStk` - _ `HappyStk` - happyRest) - = HappyAbsSyn17 - (reverse happy_var_3 - ) `HappyStk` happyRest - -happyReduce_59 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_59 = happyReduce 5 17 happyReduction_59 -happyReduction_59 (_ `HappyStk` - (HappyAbsSyn17 happy_var_4) `HappyStk` - _ `HappyStk` - _ `HappyStk` - _ `HappyStk` - happyRest) - = HappyAbsSyn17 - (reverse happy_var_4 - ) `HappyStk` happyRest - -happyReduce_60 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_60 = happySpecReduce_1 18 happyReduction_60 -happyReduction_60 (HappyAbsSyn34 happy_var_1) - = HappyAbsSyn17 - ([happy_var_1] - ) -happyReduction_60 _ = notHappyAtAll - -happyReduce_61 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_61 = happySpecReduce_3 18 happyReduction_61 -happyReduction_61 (HappyAbsSyn34 happy_var_3) - _ - (HappyAbsSyn17 happy_var_1) - = HappyAbsSyn17 - (happy_var_3 : happy_var_1 - ) -happyReduction_61 _ _ _ = notHappyAtAll - -happyReduce_62 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_62 = happySpecReduce_3 18 happyReduction_62 -happyReduction_62 (HappyAbsSyn34 happy_var_3) - _ - (HappyAbsSyn17 happy_var_1) - = HappyAbsSyn17 - (happy_var_3 : happy_var_1 - ) -happyReduction_62 _ _ _ = notHappyAtAll - -happyReduce_63 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_63 = happyReduce 4 19 happyReduction_63 -happyReduction_63 ((HappyAbsSyn97 happy_var_4) `HappyStk` - _ `HappyStk` - (HappyAbsSyn47 happy_var_2) `HappyStk` - (HappyAbsSyn36 happy_var_1) `HappyStk` - happyRest) - = HappyAbsSyn34 - (mkParFun happy_var_1 happy_var_2 happy_var_4 - ) `HappyStk` happyRest - -happyReduce_64 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_64 = happyMonadReduce 5 19 happyReduction_64 -happyReduction_64 ((HappyAbsSyn101 happy_var_5) `HappyStk` - _ `HappyStk` - (HappyAbsSyn47 happy_var_3) `HappyStk` - _ `HappyStk` - (HappyAbsSyn36 happy_var_1) `HappyStk` - happyRest) tk - = happyThen ((( mkParType happy_var_1 happy_var_3 happy_var_5)) - ) (\r -> happyReturn (HappyAbsSyn34 r)) - -happyReduce_65 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_65 = happyMonadReduce 4 19 happyReduction_65 -happyReduction_65 ((HappyAbsSyn106 happy_var_4) `HappyStk` - _ `HappyStk` - _ `HappyStk` - _ `HappyStk` - happyRest) tk - = happyThen ((( fmap (DParameterConstraint . distrLoc) - (mkProp happy_var_4))) - ) (\r -> happyReturn (HappyAbsSyn34 r)) - -happyReduce_66 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_66 = happySpecReduce_1 20 happyReduction_66 -happyReduction_66 (HappyTerminal (happy_var_1@(Located _ (Token (White DocStr) _)))) - = HappyAbsSyn35 - (mkDoc (fmap tokenText happy_var_1) - ) -happyReduction_66 _ = notHappyAtAll - -happyReduce_67 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_67 = happySpecReduce_1 21 happyReduction_67 -happyReduction_67 (HappyAbsSyn35 happy_var_1) - = HappyAbsSyn36 - (Just happy_var_1 - ) -happyReduction_67 _ = notHappyAtAll - -happyReduce_68 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_68 = happySpecReduce_0 21 happyReduction_68 -happyReduction_68 = HappyAbsSyn36 - (Nothing - ) - -happyReduce_69 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_69 = happySpecReduce_2 22 happyReduction_69 -happyReduction_69 (HappyAbsSyn37 happy_var_2) - _ - = HappyAbsSyn37 - (happy_var_2 - ) -happyReduction_69 _ _ = notHappyAtAll - -happyReduce_70 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_70 = happySpecReduce_3 23 happyReduction_70 -happyReduction_70 (HappyAbsSyn37 happy_var_3) - (HappyTerminal (Located happy_var_2 (Token (Sym Bar ) _))) - _ - = HappyAbsSyn37 - (happy_var_2 ++ happy_var_3 - ) -happyReduction_70 _ _ _ = notHappyAtAll - -happyReduce_71 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_71 = happySpecReduce_1 23 happyReduction_71 -happyReduction_71 (HappyAbsSyn37 happy_var_1) - = HappyAbsSyn37 - (happy_var_1 - ) -happyReduction_71 _ = notHappyAtAll - -happyReduce_72 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_72 = happySpecReduce_3 24 happyReduction_72 -happyReduction_72 (HappyAbsSyn62 happy_var_3) - _ - (HappyAbsSyn40 happy_var_1) - = HappyAbsSyn37 - ([(happy_var_1, happy_var_3)] - ) -happyReduction_72 _ _ _ = notHappyAtAll - -happyReduce_73 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_73 = happyMonadReduce 1 25 happyReduction_73 -happyReduction_73 ((HappyAbsSyn106 happy_var_1) `HappyStk` - happyRest) tk - = happyThen ((( fmap thing (mkProp happy_var_1))) - ) (\r -> happyReturn (HappyAbsSyn40 r)) - -happyReduce_74 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_74 = happySpecReduce_3 26 happyReduction_74 -happyReduction_74 (HappyAbsSyn97 happy_var_3) - _ - (HappyAbsSyn46 happy_var_1) - = HappyAbsSyn41 - (at (head happy_var_1,happy_var_3) $ DSignature (reverse happy_var_1) happy_var_3 - ) -happyReduction_74 _ _ _ = notHappyAtAll - -happyReduce_75 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_75 = happySpecReduce_3 26 happyReduction_75 -happyReduction_75 (HappyAbsSyn62 happy_var_3) - _ - (HappyAbsSyn91 happy_var_1) - = HappyAbsSyn41 - (at (happy_var_1,happy_var_3) $ DPatBind happy_var_1 happy_var_3 - ) -happyReduction_75 _ _ _ = notHappyAtAll - -happyReduce_76 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_76 = happyReduce 5 26 happyReduction_76 -happyReduction_76 ((HappyAbsSyn62 happy_var_5) `HappyStk` - _ `HappyStk` - _ `HappyStk` - (HappyAbsSyn47 happy_var_2) `HappyStk` - (HappyTerminal (Located happy_var_1 (Token (Sym ParenL ) _))) `HappyStk` - happyRest) - = HappyAbsSyn41 - (at (happy_var_1,happy_var_5) $ DPatBind (PVar happy_var_2) happy_var_5 - ) `HappyStk` happyRest - -happyReduce_77 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_77 = happyReduce 4 26 happyReduction_77 -happyReduction_77 ((HappyAbsSyn37 happy_var_4) `HappyStk` - _ `HappyStk` - (HappyAbsSyn51 happy_var_2) `HappyStk` - (HappyAbsSyn47 happy_var_1) `HappyStk` - happyRest) - = HappyAbsSyn41 - (mkIndexedPropGuardsDecl happy_var_1 happy_var_2 happy_var_4 - ) `HappyStk` happyRest - -happyReduce_78 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_78 = happyReduce 4 26 happyReduction_78 -happyReduction_78 ((HappyAbsSyn62 happy_var_4) `HappyStk` - _ `HappyStk` - (HappyAbsSyn51 happy_var_2) `HappyStk` - (HappyAbsSyn47 happy_var_1) `HappyStk` - happyRest) - = HappyAbsSyn41 - (at (happy_var_1,happy_var_4) $ mkIndexedDecl happy_var_1 happy_var_2 happy_var_4 - ) `HappyStk` happyRest - -happyReduce_79 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_79 = happyReduce 5 26 happyReduction_79 -happyReduction_79 ((HappyAbsSyn62 happy_var_5) `HappyStk` - _ `HappyStk` - (HappyAbsSyn91 happy_var_3) `HappyStk` - (HappyAbsSyn47 happy_var_2) `HappyStk` - (HappyAbsSyn91 happy_var_1) `HappyStk` - happyRest) - = HappyAbsSyn41 - (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 - , bExport = Public - } - ) `HappyStk` happyRest - -happyReduce_80 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_80 = happyMonadReduce 4 26 happyReduction_80 -happyReduction_80 ((HappyAbsSyn106 happy_var_4) `HappyStk` - _ `HappyStk` - (HappyAbsSyn47 happy_var_2) `HappyStk` - (HappyTerminal (Located happy_var_1 (Token (KW KW_type ) _))) `HappyStk` - happyRest) tk - = happyThen ((( at (happy_var_1,happy_var_4) `fmap` mkTySyn happy_var_2 [] happy_var_4)) - ) (\r -> happyReturn (HappyAbsSyn41 r)) - -happyReduce_81 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_81 = happyMonadReduce 5 26 happyReduction_81 -happyReduction_81 ((HappyAbsSyn106 happy_var_5) `HappyStk` - _ `HappyStk` - (HappyAbsSyn103 happy_var_3) `HappyStk` - (HappyAbsSyn47 happy_var_2) `HappyStk` - (HappyTerminal (Located happy_var_1 (Token (KW KW_type ) _))) `HappyStk` - happyRest) tk - = happyThen ((( at (happy_var_1,happy_var_5) `fmap` mkTySyn happy_var_2 (reverse happy_var_3) happy_var_5)) - ) (\r -> happyReturn (HappyAbsSyn41 r)) - -happyReduce_82 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_82 = happyMonadReduce 6 26 happyReduction_82 -happyReduction_82 ((HappyAbsSyn106 happy_var_6) `HappyStk` - _ `HappyStk` - (HappyAbsSyn102 happy_var_4) `HappyStk` - (HappyAbsSyn47 happy_var_3) `HappyStk` - (HappyAbsSyn102 happy_var_2) `HappyStk` - (HappyTerminal (Located happy_var_1 (Token (KW KW_type ) _))) `HappyStk` - happyRest) tk - = happyThen ((( at (happy_var_1,happy_var_6) `fmap` mkTySyn happy_var_3 [happy_var_2, happy_var_4] happy_var_6)) - ) (\r -> happyReturn (HappyAbsSyn41 r)) - -happyReduce_83 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_83 = happyMonadReduce 5 26 happyReduction_83 -happyReduction_83 ((HappyAbsSyn106 happy_var_5) `HappyStk` - _ `HappyStk` - (HappyAbsSyn47 happy_var_3) `HappyStk` - (HappyTerminal (Located happy_var_2 (Token (KW KW_constraint) _))) `HappyStk` - _ `HappyStk` - happyRest) tk - = happyThen ((( at (happy_var_2,happy_var_5) `fmap` mkPropSyn happy_var_3 [] happy_var_5)) - ) (\r -> happyReturn (HappyAbsSyn41 r)) - -happyReduce_84 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_84 = happyMonadReduce 6 26 happyReduction_84 -happyReduction_84 ((HappyAbsSyn106 happy_var_6) `HappyStk` - _ `HappyStk` - (HappyAbsSyn103 happy_var_4) `HappyStk` - (HappyAbsSyn47 happy_var_3) `HappyStk` - (HappyTerminal (Located happy_var_2 (Token (KW KW_constraint) _))) `HappyStk` - _ `HappyStk` - happyRest) tk - = happyThen ((( at (happy_var_2,happy_var_6) `fmap` mkPropSyn happy_var_3 (reverse happy_var_4) happy_var_6)) - ) (\r -> happyReturn (HappyAbsSyn41 r)) - -happyReduce_85 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_85 = happyMonadReduce 7 26 happyReduction_85 -happyReduction_85 ((HappyAbsSyn106 happy_var_7) `HappyStk` - _ `HappyStk` - (HappyAbsSyn102 happy_var_5) `HappyStk` - (HappyAbsSyn47 happy_var_4) `HappyStk` - (HappyAbsSyn102 happy_var_3) `HappyStk` - (HappyTerminal (Located happy_var_2 (Token (KW KW_constraint) _))) `HappyStk` - _ `HappyStk` - happyRest) tk - = happyThen ((( at (happy_var_2,happy_var_7) `fmap` mkPropSyn happy_var_4 [happy_var_3, happy_var_5] happy_var_7)) - ) (\r -> happyReturn (HappyAbsSyn41 r)) - -happyReduce_86 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_86 = happyMonadReduce 3 26 happyReduction_86 -happyReduction_86 ((HappyAbsSyn61 happy_var_3) `HappyStk` - (HappyTerminal (happy_var_2@(Located _ (Token (Num {}) _)))) `HappyStk` - _ `HappyStk` - happyRest) tk - = happyThen ((( mkFixity LeftAssoc happy_var_2 (reverse happy_var_3))) - ) (\r -> happyReturn (HappyAbsSyn41 r)) - -happyReduce_87 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_87 = happyMonadReduce 3 26 happyReduction_87 -happyReduction_87 ((HappyAbsSyn61 happy_var_3) `HappyStk` - (HappyTerminal (happy_var_2@(Located _ (Token (Num {}) _)))) `HappyStk` - _ `HappyStk` - happyRest) tk - = happyThen ((( mkFixity RightAssoc happy_var_2 (reverse happy_var_3))) - ) (\r -> happyReturn (HappyAbsSyn41 r)) - -happyReduce_88 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_88 = happyMonadReduce 3 26 happyReduction_88 -happyReduction_88 ((HappyAbsSyn61 happy_var_3) `HappyStk` - (HappyTerminal (happy_var_2@(Located _ (Token (Num {}) _)))) `HappyStk` - _ `HappyStk` - happyRest) tk - = happyThen ((( mkFixity NonAssoc happy_var_2 (reverse happy_var_3))) - ) (\r -> happyReturn (HappyAbsSyn41 r)) - -happyReduce_89 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_89 = happyMonadReduce 1 26 happyReduction_89 -happyReduction_89 (_ `HappyStk` - happyRest) tk - = happyThen ((( expected "a declaration")) - ) (\r -> happyReturn (HappyAbsSyn41 r)) - -happyReduce_90 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_90 = happySpecReduce_1 27 happyReduction_90 -happyReduction_90 (HappyAbsSyn41 happy_var_1) - = HappyAbsSyn42 - ([happy_var_1] - ) -happyReduction_90 _ = notHappyAtAll - -happyReduce_91 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_91 = happySpecReduce_2 27 happyReduction_91 -happyReduction_91 _ - (HappyAbsSyn41 happy_var_1) - = HappyAbsSyn42 - ([happy_var_1] - ) -happyReduction_91 _ _ = notHappyAtAll - -happyReduce_92 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_92 = happySpecReduce_3 27 happyReduction_92 -happyReduction_92 (HappyAbsSyn42 happy_var_3) - _ - (HappyAbsSyn41 happy_var_1) - = HappyAbsSyn42 - ((happy_var_1:happy_var_3) - ) -happyReduction_92 _ _ _ = notHappyAtAll - -happyReduce_93 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_93 = happyReduce 4 28 happyReduction_93 -happyReduction_93 ((HappyAbsSyn62 happy_var_4) `HappyStk` - _ `HappyStk` - (HappyAbsSyn91 happy_var_2) `HappyStk` - _ `HappyStk` - happyRest) - = HappyAbsSyn41 - (at (happy_var_2,happy_var_4) $ DPatBind happy_var_2 happy_var_4 - ) `HappyStk` happyRest - -happyReduce_94 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_94 = happyReduce 5 28 happyReduction_94 -happyReduction_94 ((HappyAbsSyn62 happy_var_5) `HappyStk` - _ `HappyStk` - (HappyAbsSyn51 happy_var_3) `HappyStk` - (HappyAbsSyn47 happy_var_2) `HappyStk` - _ `HappyStk` - happyRest) - = HappyAbsSyn41 - (at (happy_var_2,happy_var_5) $ mkIndexedDecl happy_var_2 happy_var_3 happy_var_5 - ) `HappyStk` happyRest - -happyReduce_95 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_95 = happyReduce 6 28 happyReduction_95 -happyReduction_95 ((HappyAbsSyn62 happy_var_6) `HappyStk` - _ `HappyStk` - _ `HappyStk` - (HappyAbsSyn47 happy_var_3) `HappyStk` - (HappyTerminal (Located happy_var_2 (Token (Sym ParenL ) _))) `HappyStk` - _ `HappyStk` - happyRest) - = HappyAbsSyn41 - (at (happy_var_2,happy_var_6) $ DPatBind (PVar happy_var_3) happy_var_6 - ) `HappyStk` happyRest - -happyReduce_96 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_96 = happyReduce 6 28 happyReduction_96 -happyReduction_96 ((HappyAbsSyn62 happy_var_6) `HappyStk` - _ `HappyStk` - (HappyAbsSyn91 happy_var_4) `HappyStk` - (HappyAbsSyn47 happy_var_3) `HappyStk` - (HappyAbsSyn91 happy_var_2) `HappyStk` - _ `HappyStk` - happyRest) - = HappyAbsSyn41 - (at (happy_var_2,happy_var_6) $ - DBind $ Bind { bName = happy_var_3 - , bParams = [happy_var_2,happy_var_4] - , bDef = at happy_var_6 (Located emptyRange (DExpr happy_var_6)) - , bSignature = Nothing - , bPragmas = [] - , bMono = False - , bInfix = True - , bFixity = Nothing - , bDoc = Nothing - , bExport = Public - } - ) `HappyStk` happyRest - -happyReduce_97 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_97 = happyReduce 4 28 happyReduction_97 -happyReduction_97 ((HappyAbsSyn97 happy_var_4) `HappyStk` - _ `HappyStk` - (HappyAbsSyn46 happy_var_2) `HappyStk` - _ `HappyStk` - happyRest) - = HappyAbsSyn41 - (at (head happy_var_2,happy_var_4) $ DSignature (reverse happy_var_2) happy_var_4 - ) `HappyStk` happyRest - -happyReduce_98 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_98 = happyMonadReduce 4 28 happyReduction_98 -happyReduction_98 ((HappyAbsSyn106 happy_var_4) `HappyStk` - _ `HappyStk` - (HappyAbsSyn47 happy_var_2) `HappyStk` - (HappyTerminal (Located happy_var_1 (Token (KW KW_type ) _))) `HappyStk` - happyRest) tk - = happyThen ((( at (happy_var_1,happy_var_4) `fmap` mkTySyn happy_var_2 [] happy_var_4)) - ) (\r -> happyReturn (HappyAbsSyn41 r)) - -happyReduce_99 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_99 = happyMonadReduce 5 28 happyReduction_99 -happyReduction_99 ((HappyAbsSyn106 happy_var_5) `HappyStk` - _ `HappyStk` - (HappyAbsSyn103 happy_var_3) `HappyStk` - (HappyAbsSyn47 happy_var_2) `HappyStk` - (HappyTerminal (Located happy_var_1 (Token (KW KW_type ) _))) `HappyStk` - happyRest) tk - = happyThen ((( at (happy_var_1,happy_var_5) `fmap` mkTySyn happy_var_2 (reverse happy_var_3) happy_var_5)) - ) (\r -> happyReturn (HappyAbsSyn41 r)) - -happyReduce_100 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_100 = happyMonadReduce 6 28 happyReduction_100 -happyReduction_100 ((HappyAbsSyn106 happy_var_6) `HappyStk` - _ `HappyStk` - (HappyAbsSyn102 happy_var_4) `HappyStk` - (HappyAbsSyn47 happy_var_3) `HappyStk` - (HappyAbsSyn102 happy_var_2) `HappyStk` - (HappyTerminal (Located happy_var_1 (Token (KW KW_type ) _))) `HappyStk` - happyRest) tk - = happyThen ((( at (happy_var_1,happy_var_6) `fmap` mkTySyn happy_var_3 [happy_var_2, happy_var_4] happy_var_6)) - ) (\r -> happyReturn (HappyAbsSyn41 r)) - -happyReduce_101 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_101 = happyMonadReduce 5 28 happyReduction_101 -happyReduction_101 ((HappyAbsSyn106 happy_var_5) `HappyStk` - _ `HappyStk` - (HappyAbsSyn47 happy_var_3) `HappyStk` - (HappyTerminal (Located happy_var_2 (Token (KW KW_constraint) _))) `HappyStk` - _ `HappyStk` - happyRest) tk - = happyThen ((( at (happy_var_2,happy_var_5) `fmap` mkPropSyn happy_var_3 [] happy_var_5)) - ) (\r -> happyReturn (HappyAbsSyn41 r)) - -happyReduce_102 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_102 = happyMonadReduce 6 28 happyReduction_102 -happyReduction_102 ((HappyAbsSyn106 happy_var_6) `HappyStk` - _ `HappyStk` - (HappyAbsSyn103 happy_var_4) `HappyStk` - (HappyAbsSyn47 happy_var_3) `HappyStk` - (HappyTerminal (Located happy_var_2 (Token (KW KW_constraint) _))) `HappyStk` - _ `HappyStk` - happyRest) tk - = happyThen ((( at (happy_var_2,happy_var_6) `fmap` mkPropSyn happy_var_3 (reverse happy_var_4) happy_var_6)) - ) (\r -> happyReturn (HappyAbsSyn41 r)) - -happyReduce_103 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_103 = happyMonadReduce 7 28 happyReduction_103 -happyReduction_103 ((HappyAbsSyn106 happy_var_7) `HappyStk` - _ `HappyStk` - (HappyAbsSyn102 happy_var_5) `HappyStk` - (HappyAbsSyn47 happy_var_4) `HappyStk` - (HappyAbsSyn102 happy_var_3) `HappyStk` - (HappyTerminal (Located happy_var_2 (Token (KW KW_constraint) _))) `HappyStk` - _ `HappyStk` - happyRest) tk - = happyThen ((( at (happy_var_2,happy_var_7) `fmap` mkPropSyn happy_var_4 [happy_var_3, happy_var_5] happy_var_7)) - ) (\r -> happyReturn (HappyAbsSyn41 r)) - -happyReduce_104 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_104 = happyMonadReduce 3 28 happyReduction_104 -happyReduction_104 ((HappyAbsSyn61 happy_var_3) `HappyStk` - (HappyTerminal (happy_var_2@(Located _ (Token (Num {}) _)))) `HappyStk` - _ `HappyStk` - happyRest) tk - = happyThen ((( mkFixity LeftAssoc happy_var_2 (reverse happy_var_3))) - ) (\r -> happyReturn (HappyAbsSyn41 r)) - -happyReduce_105 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_105 = happyMonadReduce 3 28 happyReduction_105 -happyReduction_105 ((HappyAbsSyn61 happy_var_3) `HappyStk` - (HappyTerminal (happy_var_2@(Located _ (Token (Num {}) _)))) `HappyStk` - _ `HappyStk` - happyRest) tk - = happyThen ((( mkFixity RightAssoc happy_var_2 (reverse happy_var_3))) - ) (\r -> happyReturn (HappyAbsSyn41 r)) - -happyReduce_106 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_106 = happyMonadReduce 3 28 happyReduction_106 -happyReduction_106 ((HappyAbsSyn61 happy_var_3) `HappyStk` - (HappyTerminal (happy_var_2@(Located _ (Token (Num {}) _)))) `HappyStk` - _ `HappyStk` - happyRest) tk - = happyThen ((( mkFixity NonAssoc happy_var_2 (reverse happy_var_3))) - ) (\r -> happyReturn (HappyAbsSyn41 r)) - -happyReduce_107 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_107 = happyReduce 4 29 happyReduction_107 -happyReduction_107 ((HappyAbsSyn45 happy_var_4) `HappyStk` - _ `HappyStk` - (HappyAbsSyn119 happy_var_2) `HappyStk` - _ `HappyStk` - happyRest) - = HappyAbsSyn44 - (Newtype happy_var_2 [] (thing happy_var_4) - ) `HappyStk` happyRest - -happyReduce_108 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_108 = happyReduce 5 29 happyReduction_108 -happyReduction_108 ((HappyAbsSyn45 happy_var_5) `HappyStk` - _ `HappyStk` - (HappyAbsSyn103 happy_var_3) `HappyStk` - (HappyAbsSyn119 happy_var_2) `HappyStk` - _ `HappyStk` - happyRest) - = HappyAbsSyn44 - (Newtype happy_var_2 (reverse happy_var_3) (thing happy_var_5) - ) `HappyStk` happyRest - -happyReduce_109 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_109 = happyMonadReduce 2 30 happyReduction_109 -happyReduction_109 ((HappyTerminal (Located happy_var_2 (Token (Sym CurlyR ) _))) `HappyStk` - (HappyTerminal (Located happy_var_1 (Token (Sym CurlyL ) _))) `HappyStk` - happyRest) tk - = happyThen ((( mkRecord (rComb happy_var_1 happy_var_2) (Located emptyRange) [])) - ) (\r -> happyReturn (HappyAbsSyn45 r)) - -happyReduce_110 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_110 = happyMonadReduce 3 30 happyReduction_110 -happyReduction_110 ((HappyTerminal (Located happy_var_3 (Token (Sym CurlyR ) _))) `HappyStk` - (HappyAbsSyn114 happy_var_2) `HappyStk` - (HappyTerminal (Located happy_var_1 (Token (Sym CurlyL ) _))) `HappyStk` - happyRest) tk - = happyThen ((( mkRecord (rComb happy_var_1 happy_var_3) (Located emptyRange) happy_var_2)) - ) (\r -> happyReturn (HappyAbsSyn45 r)) - -happyReduce_111 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_111 = happySpecReduce_1 31 happyReduction_111 -happyReduction_111 (HappyAbsSyn47 happy_var_1) - = HappyAbsSyn46 - ([ happy_var_1] - ) -happyReduction_111 _ = notHappyAtAll - -happyReduce_112 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_112 = happySpecReduce_3 31 happyReduction_112 -happyReduction_112 (HappyAbsSyn47 happy_var_3) - _ - (HappyAbsSyn46 happy_var_1) - = HappyAbsSyn46 - (happy_var_3 : happy_var_1 - ) -happyReduction_112 _ _ _ = notHappyAtAll - -happyReduce_113 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_113 = happySpecReduce_1 32 happyReduction_113 -happyReduction_113 (HappyAbsSyn47 happy_var_1) - = HappyAbsSyn47 - (happy_var_1 - ) -happyReduction_113 _ = notHappyAtAll - -happyReduce_114 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_114 = happySpecReduce_3 32 happyReduction_114 -happyReduction_114 _ - (HappyAbsSyn47 happy_var_2) - _ - = HappyAbsSyn47 - (happy_var_2 - ) -happyReduction_114 _ _ _ = notHappyAtAll - -happyReduce_115 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_115 = happySpecReduce_1 33 happyReduction_115 -happyReduction_115 (HappyAbsSyn91 happy_var_1) - = HappyAbsSyn48 - ([happy_var_1] - ) -happyReduction_115 _ = notHappyAtAll - -happyReduce_116 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_116 = happySpecReduce_2 33 happyReduction_116 -happyReduction_116 (HappyAbsSyn91 happy_var_2) - (HappyAbsSyn48 happy_var_1) - = HappyAbsSyn48 - (happy_var_2 : happy_var_1 - ) -happyReduction_116 _ _ = notHappyAtAll - -happyReduce_117 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_117 = happySpecReduce_2 34 happyReduction_117 -happyReduction_117 (HappyAbsSyn48 happy_var_2) - _ - = HappyAbsSyn48 - (happy_var_2 - ) -happyReduction_117 _ _ = notHappyAtAll - -happyReduce_118 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_118 = happySpecReduce_0 34 happyReduction_118 -happyReduction_118 = HappyAbsSyn48 - ([] - ) - -happyReduce_119 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_119 = happySpecReduce_1 35 happyReduction_119 -happyReduction_119 (HappyAbsSyn91 happy_var_1) - = HappyAbsSyn48 - ([happy_var_1] - ) -happyReduction_119 _ = notHappyAtAll - -happyReduce_120 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_120 = happySpecReduce_3 35 happyReduction_120 -happyReduction_120 (HappyAbsSyn91 happy_var_3) - _ - (HappyAbsSyn48 happy_var_1) - = HappyAbsSyn48 - (happy_var_3 : happy_var_1 - ) -happyReduction_120 _ _ _ = notHappyAtAll - -happyReduce_121 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_121 = happySpecReduce_2 36 happyReduction_121 -happyReduction_121 (HappyAbsSyn48 happy_var_2) - (HappyAbsSyn48 happy_var_1) - = HappyAbsSyn51 - ((happy_var_1, happy_var_2) - ) -happyReduction_121 _ _ = notHappyAtAll - -happyReduce_122 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_122 = happySpecReduce_2 36 happyReduction_122 -happyReduction_122 (HappyAbsSyn48 happy_var_2) - _ - = HappyAbsSyn51 - (([], happy_var_2) - ) -happyReduction_122 _ _ = notHappyAtAll - -happyReduce_123 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_123 = happySpecReduce_0 37 happyReduction_123 -happyReduction_123 = HappyAbsSyn51 - (([],[]) - ) - -happyReduce_124 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_124 = happySpecReduce_1 37 happyReduction_124 -happyReduction_124 (HappyAbsSyn51 happy_var_1) - = HappyAbsSyn51 - (happy_var_1 - ) -happyReduction_124 _ = notHappyAtAll - -happyReduce_125 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_125 = happySpecReduce_2 38 happyReduction_125 -happyReduction_125 _ - (HappyAbsSyn41 happy_var_1) - = HappyAbsSyn42 - ([happy_var_1] - ) -happyReduction_125 _ _ = notHappyAtAll - -happyReduce_126 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_126 = happySpecReduce_3 38 happyReduction_126 -happyReduction_126 _ - (HappyAbsSyn41 happy_var_2) - (HappyAbsSyn42 happy_var_1) - = HappyAbsSyn42 - (happy_var_2 : happy_var_1 - ) -happyReduction_126 _ _ _ = notHappyAtAll - -happyReduce_127 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_127 = happySpecReduce_1 39 happyReduction_127 -happyReduction_127 (HappyAbsSyn41 happy_var_1) - = HappyAbsSyn42 - ([happy_var_1] - ) -happyReduction_127 _ = notHappyAtAll - -happyReduce_128 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_128 = happySpecReduce_3 39 happyReduction_128 -happyReduction_128 (HappyAbsSyn41 happy_var_3) - _ - (HappyAbsSyn42 happy_var_1) - = HappyAbsSyn42 - (happy_var_3 : happy_var_1 - ) -happyReduction_128 _ _ _ = notHappyAtAll - -happyReduce_129 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_129 = happySpecReduce_3 39 happyReduction_129 -happyReduction_129 (HappyAbsSyn41 happy_var_3) - _ - (HappyAbsSyn42 happy_var_1) - = HappyAbsSyn42 - (happy_var_3 : happy_var_1 - ) -happyReduction_129 _ _ _ = notHappyAtAll - -happyReduce_130 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_130 = happySpecReduce_3 40 happyReduction_130 -happyReduction_130 _ - (HappyAbsSyn42 happy_var_2) - _ - = HappyAbsSyn42 - (happy_var_2 - ) -happyReduction_130 _ _ _ = notHappyAtAll - -happyReduce_131 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_131 = happySpecReduce_2 40 happyReduction_131 -happyReduction_131 _ - _ - = HappyAbsSyn42 - ([] - ) - -happyReduce_132 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_132 = happySpecReduce_1 41 happyReduction_132 -happyReduction_132 (HappyAbsSyn62 happy_var_1) - = HappyAbsSyn56 - (ExprInput happy_var_1 - ) -happyReduction_132 _ = notHappyAtAll - -happyReduce_133 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_133 = happySpecReduce_1 41 happyReduction_133 -happyReduction_133 (HappyAbsSyn42 happy_var_1) - = HappyAbsSyn56 - (LetInput happy_var_1 - ) -happyReduction_133 _ = notHappyAtAll - -happyReduce_134 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_134 = happySpecReduce_0 41 happyReduction_134 -happyReduction_134 = HappyAbsSyn56 - (EmptyInput - ) - -happyReduce_135 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_135 = happySpecReduce_1 42 happyReduction_135 -happyReduction_135 (HappyAbsSyn47 happy_var_1) - = HappyAbsSyn47 - (happy_var_1 - ) -happyReduction_135 _ = notHappyAtAll - -happyReduce_136 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_136 = happySpecReduce_1 42 happyReduction_136 -happyReduction_136 (HappyTerminal (happy_var_1@(Located _ (Token (Op Other{} ) _)))) - = HappyAbsSyn47 - (let Token (Op (Other ns i)) _ = thing happy_var_1 - in mkQual (mkModName ns) (mkInfix i) A.<$ happy_var_1 - ) -happyReduction_136 _ = notHappyAtAll - -happyReduce_137 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_137 = happySpecReduce_1 43 happyReduction_137 -happyReduction_137 (HappyAbsSyn47 happy_var_1) - = HappyAbsSyn47 - (happy_var_1 - ) -happyReduction_137 _ = notHappyAtAll - -happyReduce_138 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_138 = happySpecReduce_1 43 happyReduction_138 -happyReduction_138 (HappyTerminal (Located happy_var_1 (Token (Op Hash) _))) - = HappyAbsSyn47 - (Located happy_var_1 $ mkUnqual $ mkInfix "#" - ) -happyReduction_138 _ = notHappyAtAll - -happyReduce_139 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_139 = happySpecReduce_1 43 happyReduction_139 -happyReduction_139 (HappyTerminal (Located happy_var_1 (Token (Op At) _))) - = HappyAbsSyn47 - (Located happy_var_1 $ mkUnqual $ mkInfix "@" - ) -happyReduction_139 _ = notHappyAtAll - -happyReduce_140 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_140 = happySpecReduce_1 44 happyReduction_140 -happyReduction_140 (HappyAbsSyn47 happy_var_1) - = HappyAbsSyn47 - (happy_var_1 - ) -happyReduction_140 _ = notHappyAtAll - -happyReduce_141 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_141 = happySpecReduce_1 44 happyReduction_141 -happyReduction_141 (HappyTerminal (Located happy_var_1 (Token (Op Mul) _))) - = HappyAbsSyn47 - (Located happy_var_1 $ mkUnqual $ mkInfix "*" - ) -happyReduction_141 _ = notHappyAtAll - -happyReduce_142 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_142 = happySpecReduce_1 44 happyReduction_142 -happyReduction_142 (HappyTerminal (Located happy_var_1 (Token (Op Plus) _))) - = HappyAbsSyn47 - (Located happy_var_1 $ mkUnqual $ mkInfix "+" - ) -happyReduction_142 _ = notHappyAtAll - -happyReduce_143 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_143 = happySpecReduce_1 44 happyReduction_143 -happyReduction_143 (HappyTerminal (Located happy_var_1 (Token (Op Minus) _))) - = HappyAbsSyn47 - (Located happy_var_1 $ mkUnqual $ mkInfix "-" - ) -happyReduction_143 _ = notHappyAtAll - -happyReduce_144 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_144 = happySpecReduce_1 44 happyReduction_144 -happyReduction_144 (HappyTerminal (Located happy_var_1 (Token (Op Complement) _))) - = HappyAbsSyn47 - (Located happy_var_1 $ mkUnqual $ mkInfix "~" - ) -happyReduction_144 _ = notHappyAtAll - -happyReduce_145 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_145 = happySpecReduce_1 44 happyReduction_145 -happyReduction_145 (HappyTerminal (Located happy_var_1 (Token (Op Exp) _))) - = HappyAbsSyn47 - (Located happy_var_1 $ mkUnqual $ mkInfix "^^" - ) -happyReduction_145 _ = notHappyAtAll - -happyReduce_146 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_146 = happySpecReduce_1 44 happyReduction_146 -happyReduction_146 (HappyTerminal (Located happy_var_1 (Token (Sym Lt ) _))) - = HappyAbsSyn47 - (Located happy_var_1 $ mkUnqual $ mkInfix "<" - ) -happyReduction_146 _ = notHappyAtAll - -happyReduce_147 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_147 = happySpecReduce_1 44 happyReduction_147 -happyReduction_147 (HappyTerminal (Located happy_var_1 (Token (Sym Gt ) _))) - = HappyAbsSyn47 - (Located happy_var_1 $ mkUnqual $ mkInfix ">" - ) -happyReduction_147 _ = notHappyAtAll - -happyReduce_148 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_148 = happySpecReduce_1 45 happyReduction_148 -happyReduction_148 (HappyTerminal (happy_var_1@(Located _ (Token (Op (Other [] _)) _)))) - = HappyAbsSyn47 - (let Token (Op (Other [] str)) _ = thing happy_var_1 - in mkUnqual (mkInfix str) A.<$ happy_var_1 - ) -happyReduction_148 _ = notHappyAtAll - -happyReduce_149 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_149 = happySpecReduce_1 46 happyReduction_149 -happyReduction_149 (HappyAbsSyn47 happy_var_1) - = HappyAbsSyn61 - ([happy_var_1] - ) -happyReduction_149 _ = notHappyAtAll - -happyReduce_150 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_150 = happySpecReduce_3 46 happyReduction_150 -happyReduction_150 (HappyAbsSyn47 happy_var_3) - _ - (HappyAbsSyn61 happy_var_1) - = HappyAbsSyn61 - (happy_var_3 : happy_var_1 - ) -happyReduction_150 _ _ _ = notHappyAtAll - -happyReduce_151 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_151 = happySpecReduce_1 47 happyReduction_151 -happyReduction_151 (HappyAbsSyn62 happy_var_1) - = HappyAbsSyn62 - (happy_var_1 - ) -happyReduction_151 _ = notHappyAtAll - -happyReduce_152 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_152 = happySpecReduce_3 47 happyReduction_152 -happyReduction_152 (HappyAbsSyn64 happy_var_3) - _ - (HappyAbsSyn62 happy_var_1) - = HappyAbsSyn62 - (at (happy_var_1,happy_var_3) (EWhere happy_var_1 (thing happy_var_3)) - ) -happyReduction_152 _ _ _ = notHappyAtAll - -happyReduce_153 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_153 = happySpecReduce_3 48 happyReduction_153 -happyReduction_153 (HappyAbsSyn62 happy_var_3) - (HappyAbsSyn47 happy_var_2) - (HappyAbsSyn62 happy_var_1) - = HappyAbsSyn62 - (binOp happy_var_1 happy_var_2 happy_var_3 - ) -happyReduction_153 _ _ _ = notHappyAtAll - -happyReduce_154 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_154 = happySpecReduce_1 48 happyReduction_154 -happyReduction_154 (HappyAbsSyn62 happy_var_1) - = HappyAbsSyn62 - (happy_var_1 - ) -happyReduction_154 _ = notHappyAtAll - -happyReduce_155 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_155 = happySpecReduce_1 48 happyReduction_155 -happyReduction_155 (HappyAbsSyn62 happy_var_1) - = HappyAbsSyn62 - (happy_var_1 - ) -happyReduction_155 _ = notHappyAtAll - -happyReduce_156 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_156 = happySpecReduce_2 49 happyReduction_156 -happyReduction_156 (HappyTerminal (Located happy_var_2 (Token (Sym CurlyR ) _))) - (HappyTerminal (Located happy_var_1 (Token (Sym CurlyL ) _))) - = HappyAbsSyn64 - (Located (rComb happy_var_1 happy_var_2) [] - ) -happyReduction_156 _ _ = notHappyAtAll - -happyReduce_157 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_157 = happySpecReduce_3 49 happyReduction_157 -happyReduction_157 (HappyTerminal (Located happy_var_3 (Token (Sym CurlyR ) _))) - (HappyAbsSyn42 happy_var_2) - (HappyTerminal (Located happy_var_1 (Token (Sym CurlyL ) _))) - = HappyAbsSyn64 - (Located (rComb happy_var_1 happy_var_3) (reverse happy_var_2) - ) -happyReduction_157 _ _ _ = notHappyAtAll - -happyReduce_158 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_158 = happySpecReduce_2 49 happyReduction_158 -happyReduction_158 (HappyTerminal (Located happy_var_2 (Token (Virt VCurlyR) _))) - (HappyTerminal (Located happy_var_1 (Token (Virt VCurlyL) _))) - = HappyAbsSyn64 - (Located (rComb happy_var_1 happy_var_2) [] - ) -happyReduction_158 _ _ = notHappyAtAll - -happyReduce_159 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_159 = happySpecReduce_3 49 happyReduction_159 -happyReduction_159 (HappyTerminal (Located happy_var_3 (Token (Virt VCurlyR) _))) - (HappyAbsSyn42 happy_var_2) - (HappyTerminal (Located happy_var_1 (Token (Virt VCurlyL) _))) - = HappyAbsSyn64 - (let l2 = fromMaybe happy_var_3 (getLoc happy_var_2) - in Located (rComb happy_var_1 l2) (reverse happy_var_2) - ) -happyReduction_159 _ _ _ = notHappyAtAll - -happyReduce_160 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_160 = happySpecReduce_3 50 happyReduction_160 -happyReduction_160 (HappyAbsSyn106 happy_var_3) - _ - (HappyAbsSyn62 happy_var_1) - = HappyAbsSyn62 - (at (happy_var_1,happy_var_3) (ETyped happy_var_1 happy_var_3) - ) -happyReduction_160 _ _ _ = notHappyAtAll - -happyReduce_161 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_161 = happySpecReduce_3 51 happyReduction_161 -happyReduction_161 (HappyAbsSyn62 happy_var_3) - (HappyAbsSyn47 happy_var_2) - (HappyAbsSyn62 happy_var_1) - = HappyAbsSyn62 - (binOp happy_var_1 happy_var_2 happy_var_3 - ) -happyReduction_161 _ _ _ = notHappyAtAll - -happyReduce_162 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_162 = happySpecReduce_1 51 happyReduction_162 -happyReduction_162 (HappyAbsSyn62 happy_var_1) - = HappyAbsSyn62 - (happy_var_1 - ) -happyReduction_162 _ = notHappyAtAll - -happyReduce_163 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_163 = happyReduce 4 52 happyReduction_163 -happyReduction_163 ((HappyAbsSyn62 happy_var_4) `HappyStk` - _ `HappyStk` - (HappyAbsSyn68 happy_var_2) `HappyStk` - (HappyTerminal (Located happy_var_1 (Token (KW KW_if ) _))) `HappyStk` - happyRest) - = HappyAbsSyn62 - (at (happy_var_1,happy_var_4) $ mkIf (reverse happy_var_2) happy_var_4 - ) `HappyStk` happyRest - -happyReduce_164 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_164 = happyReduce 4 52 happyReduction_164 -happyReduction_164 ((HappyAbsSyn62 happy_var_4) `HappyStk` - _ `HappyStk` - (HappyAbsSyn48 happy_var_2) `HappyStk` - (HappyTerminal (Located happy_var_1 (Token (Sym Lambda ) _))) `HappyStk` - happyRest) - = HappyAbsSyn62 - (at (happy_var_1,happy_var_4) $ EFun emptyFunDesc (reverse happy_var_2) happy_var_4 - ) `HappyStk` happyRest - -happyReduce_165 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_165 = happySpecReduce_1 53 happyReduction_165 -happyReduction_165 (HappyAbsSyn69 happy_var_1) - = HappyAbsSyn68 - ([happy_var_1] - ) -happyReduction_165 _ = notHappyAtAll - -happyReduce_166 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_166 = happySpecReduce_3 53 happyReduction_166 -happyReduction_166 (HappyAbsSyn69 happy_var_3) - _ - (HappyAbsSyn68 happy_var_1) - = HappyAbsSyn68 - (happy_var_3 : happy_var_1 - ) -happyReduction_166 _ _ _ = notHappyAtAll - -happyReduce_167 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_167 = happySpecReduce_3 54 happyReduction_167 -happyReduction_167 (HappyAbsSyn62 happy_var_3) - _ - (HappyAbsSyn62 happy_var_1) - = HappyAbsSyn69 - ((happy_var_1, happy_var_3) - ) -happyReduction_167 _ _ _ = notHappyAtAll - -happyReduce_168 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_168 = happySpecReduce_2 55 happyReduction_168 -happyReduction_168 (HappyAbsSyn62 happy_var_2) - (HappyTerminal (Located happy_var_1 (Token (Op Minus) _))) - = HappyAbsSyn62 - (at (happy_var_1,happy_var_2) (ENeg happy_var_2) - ) -happyReduction_168 _ _ = notHappyAtAll - -happyReduce_169 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_169 = happySpecReduce_2 55 happyReduction_169 -happyReduction_169 (HappyAbsSyn62 happy_var_2) - (HappyTerminal (Located happy_var_1 (Token (Op Complement) _))) - = HappyAbsSyn62 - (at (happy_var_1,happy_var_2) (EComplement happy_var_2) - ) -happyReduction_169 _ _ = notHappyAtAll - -happyReduce_170 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_170 = happySpecReduce_1 55 happyReduction_170 -happyReduction_170 (HappyAbsSyn62 happy_var_1) - = HappyAbsSyn62 - (happy_var_1 - ) -happyReduction_170 _ = notHappyAtAll - -happyReduce_171 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_171 = happySpecReduce_2 56 happyReduction_171 -happyReduction_171 (HappyAbsSyn62 happy_var_2) - (HappyTerminal (Located happy_var_1 (Token (Op Minus) _))) - = HappyAbsSyn62 - (at (happy_var_1,happy_var_2) (ENeg happy_var_2) - ) -happyReduction_171 _ _ = notHappyAtAll - -happyReduce_172 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_172 = happySpecReduce_2 56 happyReduction_172 -happyReduction_172 (HappyAbsSyn62 happy_var_2) - (HappyTerminal (Located happy_var_1 (Token (Op Complement) _))) - = HappyAbsSyn62 - (at (happy_var_1,happy_var_2) (EComplement happy_var_2) - ) -happyReduction_172 _ _ = notHappyAtAll - -happyReduce_173 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_173 = happySpecReduce_1 56 happyReduction_173 -happyReduction_173 (HappyAbsSyn62 happy_var_1) - = HappyAbsSyn62 - (happy_var_1 - ) -happyReduction_173 _ = notHappyAtAll - -happyReduce_174 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_174 = happyMonadReduce 1 57 happyReduction_174 -happyReduction_174 ((HappyAbsSyn74 happy_var_1) `HappyStk` - happyRest) tk - = happyThen ((( mkEApp happy_var_1)) - ) (\r -> happyReturn (HappyAbsSyn62 r)) - -happyReduce_175 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_175 = happySpecReduce_2 58 happyReduction_175 -happyReduction_175 (HappyAbsSyn62 happy_var_2) - (HappyAbsSyn62 happy_var_1) - = HappyAbsSyn62 - (at (happy_var_1,happy_var_2) (EApp happy_var_1 happy_var_2) - ) -happyReduction_175 _ _ = notHappyAtAll - -happyReduce_176 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_176 = happySpecReduce_1 58 happyReduction_176 -happyReduction_176 (HappyAbsSyn62 happy_var_1) - = HappyAbsSyn62 - (happy_var_1 - ) -happyReduction_176 _ = notHappyAtAll - -happyReduce_177 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_177 = happySpecReduce_1 58 happyReduction_177 -happyReduction_177 (HappyAbsSyn62 happy_var_1) - = HappyAbsSyn62 - (happy_var_1 - ) -happyReduction_177 _ = notHappyAtAll - -happyReduce_178 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_178 = happySpecReduce_1 59 happyReduction_178 -happyReduction_178 (HappyAbsSyn62 happy_var_1) - = HappyAbsSyn74 - (happy_var_1 :| [] - ) -happyReduction_178 _ = notHappyAtAll - -happyReduce_179 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_179 = happySpecReduce_2 59 happyReduction_179 -happyReduction_179 (HappyAbsSyn62 happy_var_2) - (HappyAbsSyn74 happy_var_1) - = HappyAbsSyn74 - (cons happy_var_2 happy_var_1 - ) -happyReduction_179 _ _ = notHappyAtAll - -happyReduce_180 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_180 = happySpecReduce_1 60 happyReduction_180 -happyReduction_180 (HappyAbsSyn62 happy_var_1) - = HappyAbsSyn62 - (happy_var_1 - ) -happyReduction_180 _ = notHappyAtAll - -happyReduce_181 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_181 = happySpecReduce_1 60 happyReduction_181 -happyReduction_181 (HappyAbsSyn62 happy_var_1) - = HappyAbsSyn62 - (happy_var_1 - ) -happyReduction_181 _ = notHappyAtAll - -happyReduce_182 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_182 = happySpecReduce_1 61 happyReduction_182 -happyReduction_182 (HappyAbsSyn119 happy_var_1) - = HappyAbsSyn62 - (at happy_var_1 $ EVar (thing happy_var_1) - ) -happyReduction_182 _ = notHappyAtAll - -happyReduce_183 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_183 = happySpecReduce_1 61 happyReduction_183 -happyReduction_183 (HappyTerminal (happy_var_1@(Located _ (Token (Num {}) _)))) - = HappyAbsSyn62 - (at happy_var_1 $ numLit (thing happy_var_1) - ) -happyReduction_183 _ = notHappyAtAll - -happyReduce_184 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_184 = happySpecReduce_1 61 happyReduction_184 -happyReduction_184 (HappyTerminal (happy_var_1@(Located _ (Token (Frac {}) _)))) - = HappyAbsSyn62 - (at happy_var_1 $ fracLit (thing happy_var_1) - ) -happyReduction_184 _ = notHappyAtAll - -happyReduce_185 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_185 = happySpecReduce_1 61 happyReduction_185 -happyReduction_185 (HappyTerminal (happy_var_1@(Located _ (Token (StrLit {}) _)))) - = HappyAbsSyn62 - (at happy_var_1 $ ELit $ ECString $ getStr happy_var_1 - ) -happyReduction_185 _ = notHappyAtAll - -happyReduce_186 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_186 = happySpecReduce_1 61 happyReduction_186 -happyReduction_186 (HappyTerminal (happy_var_1@(Located _ (Token (ChrLit {}) _)))) - = HappyAbsSyn62 - (at happy_var_1 $ ELit $ ECChar $ getChr happy_var_1 - ) -happyReduction_186 _ = notHappyAtAll - -happyReduce_187 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_187 = happySpecReduce_1 61 happyReduction_187 -happyReduction_187 (HappyTerminal (Located happy_var_1 (Token (Sym Underscore ) _))) - = HappyAbsSyn62 - (at happy_var_1 $ EVar $ mkUnqual $ mkIdent "_" - ) -happyReduction_187 _ = notHappyAtAll - -happyReduce_188 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_188 = happySpecReduce_3 61 happyReduction_188 -happyReduction_188 (HappyTerminal (Located happy_var_3 (Token (Sym ParenR ) _))) - (HappyAbsSyn62 happy_var_2) - (HappyTerminal (Located happy_var_1 (Token (Sym ParenL ) _))) - = HappyAbsSyn62 - (at (happy_var_1,happy_var_3) $ EParens happy_var_2 - ) -happyReduction_188 _ _ _ = notHappyAtAll - -happyReduce_189 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_189 = happySpecReduce_3 61 happyReduction_189 -happyReduction_189 (HappyTerminal (Located happy_var_3 (Token (Sym ParenR ) _))) - (HappyAbsSyn81 happy_var_2) - (HappyTerminal (Located happy_var_1 (Token (Sym ParenL ) _))) - = HappyAbsSyn62 - (at (happy_var_1,happy_var_3) $ ETuple (reverse happy_var_2) - ) -happyReduction_189 _ _ _ = notHappyAtAll - -happyReduce_190 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_190 = happySpecReduce_2 61 happyReduction_190 -happyReduction_190 (HappyTerminal (Located happy_var_2 (Token (Sym ParenR ) _))) - (HappyTerminal (Located happy_var_1 (Token (Sym ParenL ) _))) - = HappyAbsSyn62 - (at (happy_var_1,happy_var_2) $ ETuple [] - ) -happyReduction_190 _ _ = notHappyAtAll - -happyReduce_191 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_191 = happyMonadReduce 2 61 happyReduction_191 -happyReduction_191 ((HappyTerminal (Located happy_var_2 (Token (Sym CurlyR ) _))) `HappyStk` - (HappyTerminal (Located happy_var_1 (Token (Sym CurlyL ) _))) `HappyStk` - happyRest) tk - = happyThen ((( mkRecord (rComb happy_var_1 happy_var_2) ERecord [])) - ) (\r -> happyReturn (HappyAbsSyn62 r)) - -happyReduce_192 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_192 = happyMonadReduce 3 61 happyReduction_192 -happyReduction_192 ((HappyTerminal (Located happy_var_3 (Token (Sym CurlyR ) _))) `HappyStk` - (HappyAbsSyn82 happy_var_2) `HappyStk` - (HappyTerminal (Located happy_var_1 (Token (Sym CurlyL ) _))) `HappyStk` - happyRest) tk - = happyThen ((( case happy_var_2 of { - Left upd -> pure $ at (happy_var_1,happy_var_3) upd; - Right fs -> mkRecord (rComb happy_var_1 happy_var_3) ERecord fs; })) - ) (\r -> happyReturn (HappyAbsSyn62 r)) - -happyReduce_193 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_193 = happySpecReduce_2 61 happyReduction_193 -happyReduction_193 (HappyTerminal (Located happy_var_2 (Token (Sym BracketR) _))) - (HappyTerminal (Located happy_var_1 (Token (Sym BracketL) _))) - = HappyAbsSyn62 - (at (happy_var_1,happy_var_2) $ EList [] - ) -happyReduction_193 _ _ = notHappyAtAll - -happyReduce_194 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_194 = happySpecReduce_3 61 happyReduction_194 -happyReduction_194 (HappyTerminal (Located happy_var_3 (Token (Sym BracketR) _))) - (HappyAbsSyn62 happy_var_2) - (HappyTerminal (Located happy_var_1 (Token (Sym BracketL) _))) - = HappyAbsSyn62 - (at (happy_var_1,happy_var_3) happy_var_2 - ) -happyReduction_194 _ _ _ = notHappyAtAll - -happyReduce_195 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_195 = happySpecReduce_2 61 happyReduction_195 -happyReduction_195 (HappyAbsSyn106 happy_var_2) - (HappyTerminal (Located happy_var_1 (Token (Sym BackTick) _))) - = HappyAbsSyn62 - (at (happy_var_1,happy_var_2) $ ETypeVal happy_var_2 - ) -happyReduction_195 _ _ = notHappyAtAll - -happyReduce_196 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_196 = happySpecReduce_3 61 happyReduction_196 -happyReduction_196 (HappyTerminal (Located happy_var_3 (Token (Sym ParenR ) _))) - (HappyAbsSyn47 happy_var_2) - (HappyTerminal (Located happy_var_1 (Token (Sym ParenL ) _))) - = HappyAbsSyn62 - (at (happy_var_1,happy_var_3) $ EVar $ thing happy_var_2 - ) -happyReduction_196 _ _ _ = notHappyAtAll - -happyReduce_197 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_197 = happyMonadReduce 2 61 happyReduction_197 -happyReduction_197 ((HappyTerminal (Located happy_var_2 (Token (Sym TriR ) _))) `HappyStk` - (HappyTerminal (Located happy_var_1 (Token (Sym TriL ) _))) `HappyStk` - happyRest) tk - = happyThen ((( mkPoly (rComb happy_var_1 happy_var_2) [])) - ) (\r -> happyReturn (HappyAbsSyn62 r)) - -happyReduce_198 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_198 = happyMonadReduce 3 61 happyReduction_198 -happyReduction_198 ((HappyTerminal (Located happy_var_3 (Token (Sym TriR ) _))) `HappyStk` - (HappyAbsSyn79 happy_var_2) `HappyStk` - (HappyTerminal (Located happy_var_1 (Token (Sym TriL ) _))) `HappyStk` - happyRest) tk - = happyThen ((( mkPoly (rComb happy_var_1 happy_var_3) happy_var_2)) - ) (\r -> happyReturn (HappyAbsSyn62 r)) - -happyReduce_199 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_199 = happySpecReduce_2 62 happyReduction_199 -happyReduction_199 (HappyAbsSyn78 happy_var_2) - (HappyAbsSyn62 happy_var_1) - = HappyAbsSyn62 - (at (happy_var_1,happy_var_2) $ ESel happy_var_1 (thing happy_var_2) - ) -happyReduction_199 _ _ = notHappyAtAll - -happyReduce_200 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_200 = happySpecReduce_2 62 happyReduction_200 -happyReduction_200 (HappyAbsSyn78 happy_var_2) - (HappyAbsSyn62 happy_var_1) - = HappyAbsSyn62 - (at (happy_var_1,happy_var_2) $ ESel happy_var_1 (thing happy_var_2) - ) -happyReduction_200 _ _ = notHappyAtAll - -happyReduce_201 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_201 = happySpecReduce_1 63 happyReduction_201 -happyReduction_201 (HappyTerminal (happy_var_1@(Located _ (Token (Selector _) _)))) - = HappyAbsSyn78 - (mkSelector `fmap` happy_var_1 - ) -happyReduction_201 _ = notHappyAtAll - -happyReduce_202 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_202 = happySpecReduce_1 64 happyReduction_202 -happyReduction_202 (HappyAbsSyn80 happy_var_1) - = HappyAbsSyn79 - ([happy_var_1] - ) -happyReduction_202 _ = notHappyAtAll - -happyReduce_203 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_203 = happySpecReduce_3 64 happyReduction_203 -happyReduction_203 (HappyAbsSyn80 happy_var_3) - _ - (HappyAbsSyn79 happy_var_1) - = HappyAbsSyn79 - (happy_var_3 : happy_var_1 - ) -happyReduction_203 _ _ _ = notHappyAtAll - -happyReduce_204 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_204 = happyMonadReduce 1 65 happyReduction_204 -happyReduction_204 ((HappyTerminal (happy_var_1@(Located _ (Token (Num {}) _)))) `HappyStk` - happyRest) tk - = happyThen ((( polyTerm (srcRange happy_var_1) (getNum happy_var_1) 0)) - ) (\r -> happyReturn (HappyAbsSyn80 r)) - -happyReduce_205 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_205 = happyMonadReduce 1 65 happyReduction_205 -happyReduction_205 ((HappyTerminal (Located happy_var_1 (Token (KW KW_x) _))) `HappyStk` - happyRest) tk - = happyThen ((( polyTerm happy_var_1 1 1)) - ) (\r -> happyReturn (HappyAbsSyn80 r)) - -happyReduce_206 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_206 = happyMonadReduce 3 65 happyReduction_206 -happyReduction_206 ((HappyTerminal (happy_var_3@(Located _ (Token (Num {}) _)))) `HappyStk` - _ `HappyStk` - (HappyTerminal (Located happy_var_1 (Token (KW KW_x) _))) `HappyStk` - happyRest) tk - = happyThen ((( polyTerm (rComb happy_var_1 (srcRange happy_var_3)) - 1 (getNum happy_var_3))) - ) (\r -> happyReturn (HappyAbsSyn80 r)) - -happyReduce_207 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_207 = happySpecReduce_3 66 happyReduction_207 -happyReduction_207 (HappyAbsSyn62 happy_var_3) - _ - (HappyAbsSyn62 happy_var_1) - = HappyAbsSyn81 - ([ happy_var_3, happy_var_1] - ) -happyReduction_207 _ _ _ = notHappyAtAll - -happyReduce_208 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_208 = happySpecReduce_3 66 happyReduction_208 -happyReduction_208 (HappyAbsSyn62 happy_var_3) - _ - (HappyAbsSyn81 happy_var_1) - = HappyAbsSyn81 - (happy_var_3 : happy_var_1 - ) -happyReduction_208 _ _ _ = notHappyAtAll - -happyReduce_209 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_209 = happySpecReduce_3 67 happyReduction_209 -happyReduction_209 (HappyAbsSyn83 happy_var_3) - _ - (HappyAbsSyn62 happy_var_1) - = HappyAbsSyn82 - (Left (EUpd (Just happy_var_1) (reverse happy_var_3)) - ) -happyReduction_209 _ _ _ = notHappyAtAll - -happyReduce_210 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_210 = happySpecReduce_3 67 happyReduction_210 -happyReduction_210 (HappyAbsSyn83 happy_var_3) - _ - _ - = HappyAbsSyn82 - (Left (EUpd Nothing (reverse happy_var_3)) - ) -happyReduction_210 _ _ _ = notHappyAtAll - -happyReduce_211 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_211 = happyMonadReduce 1 67 happyReduction_211 -happyReduction_211 ((HappyAbsSyn83 happy_var_1) `HappyStk` - happyRest) tk - = happyThen ((( Right `fmap` mapM ufToNamed happy_var_1)) - ) (\r -> happyReturn (HappyAbsSyn82 r)) - -happyReduce_212 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_212 = happySpecReduce_1 68 happyReduction_212 -happyReduction_212 (HappyAbsSyn84 happy_var_1) - = HappyAbsSyn83 - ([happy_var_1] - ) -happyReduction_212 _ = notHappyAtAll - -happyReduce_213 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_213 = happySpecReduce_3 68 happyReduction_213 -happyReduction_213 (HappyAbsSyn84 happy_var_3) - _ - (HappyAbsSyn83 happy_var_1) - = HappyAbsSyn83 - (happy_var_3 : happy_var_1 - ) -happyReduction_213 _ _ _ = notHappyAtAll - -happyReduce_214 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_214 = happyReduce 4 69 happyReduction_214 -happyReduction_214 ((HappyAbsSyn62 happy_var_4) `HappyStk` - (HappyAbsSyn86 happy_var_3) `HappyStk` - (HappyAbsSyn51 happy_var_2) `HappyStk` - (HappyAbsSyn85 happy_var_1) `HappyStk` - happyRest) - = HappyAbsSyn84 - (UpdField happy_var_3 happy_var_1 (mkIndexedExpr happy_var_2 happy_var_4) - ) `HappyStk` happyRest - -happyReduce_215 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_215 = happyMonadReduce 1 70 happyReduction_215 -happyReduction_215 ((HappyAbsSyn62 happy_var_1) `HappyStk` - happyRest) tk - = happyThen ((( exprToFieldPath happy_var_1)) - ) (\r -> happyReturn (HappyAbsSyn85 r)) - -happyReduce_216 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_216 = happySpecReduce_1 71 happyReduction_216 -happyReduction_216 _ - = HappyAbsSyn86 - (UpdSet - ) - -happyReduce_217 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_217 = happySpecReduce_1 71 happyReduction_217 -happyReduction_217 _ - = HappyAbsSyn86 - (UpdFun - ) - -happyReduce_218 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_218 = happySpecReduce_3 72 happyReduction_218 -happyReduction_218 (HappyAbsSyn88 happy_var_3) - _ - (HappyAbsSyn62 happy_var_1) - = HappyAbsSyn62 - (EComp happy_var_1 (reverse happy_var_3) - ) -happyReduction_218 _ _ _ = notHappyAtAll - -happyReduce_219 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_219 = happySpecReduce_1 72 happyReduction_219 -happyReduction_219 (HappyAbsSyn62 happy_var_1) - = HappyAbsSyn62 - (EList [happy_var_1] - ) -happyReduction_219 _ = notHappyAtAll - -happyReduce_220 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_220 = happySpecReduce_1 72 happyReduction_220 -happyReduction_220 (HappyAbsSyn81 happy_var_1) - = HappyAbsSyn62 - (EList (reverse happy_var_1) - ) -happyReduction_220 _ = notHappyAtAll - -happyReduce_221 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_221 = happyMonadReduce 3 72 happyReduction_221 -happyReduction_221 ((HappyAbsSyn62 happy_var_3) `HappyStk` - (HappyTerminal (Located happy_var_2 (Token (Sym DotDot ) _))) `HappyStk` - (HappyAbsSyn62 happy_var_1) `HappyStk` - happyRest) tk - = happyThen ((( eFromTo happy_var_2 happy_var_1 Nothing happy_var_3)) - ) (\r -> happyReturn (HappyAbsSyn62 r)) - -happyReduce_222 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_222 = happyMonadReduce 5 72 happyReduction_222 -happyReduction_222 ((HappyAbsSyn62 happy_var_5) `HappyStk` - (HappyTerminal (Located happy_var_4 (Token (Sym DotDot ) _))) `HappyStk` - (HappyAbsSyn62 happy_var_3) `HappyStk` - _ `HappyStk` - (HappyAbsSyn62 happy_var_1) `HappyStk` - happyRest) tk - = happyThen ((( eFromTo happy_var_4 happy_var_1 (Just happy_var_3) happy_var_5)) - ) (\r -> happyReturn (HappyAbsSyn62 r)) - -happyReduce_223 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_223 = happyMonadReduce 4 72 happyReduction_223 -happyReduction_223 ((HappyAbsSyn62 happy_var_4) `HappyStk` - _ `HappyStk` - (HappyTerminal (Located happy_var_2 (Token (Sym DotDot ) _))) `HappyStk` - (HappyAbsSyn62 happy_var_1) `HappyStk` - happyRest) tk - = happyThen ((( eFromToLessThan happy_var_2 happy_var_1 happy_var_4)) - ) (\r -> happyReturn (HappyAbsSyn62 r)) - -happyReduce_224 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_224 = happyMonadReduce 3 72 happyReduction_224 -happyReduction_224 ((HappyAbsSyn62 happy_var_3) `HappyStk` - (HappyTerminal (Located happy_var_2 (Token (Sym DotDotLt) _))) `HappyStk` - (HappyAbsSyn62 happy_var_1) `HappyStk` - happyRest) tk - = happyThen ((( eFromToLessThan happy_var_2 happy_var_1 happy_var_3)) - ) (\r -> happyReturn (HappyAbsSyn62 r)) - -happyReduce_225 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_225 = happyMonadReduce 5 72 happyReduction_225 -happyReduction_225 ((HappyAbsSyn62 happy_var_5) `HappyStk` - _ `HappyStk` - (HappyAbsSyn62 happy_var_3) `HappyStk` - (HappyTerminal (Located happy_var_2 (Token (Sym DotDot ) _))) `HappyStk` - (HappyAbsSyn62 happy_var_1) `HappyStk` - happyRest) tk - = happyThen ((( eFromToBy happy_var_2 happy_var_1 happy_var_3 happy_var_5 False)) - ) (\r -> happyReturn (HappyAbsSyn62 r)) - -happyReduce_226 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_226 = happyMonadReduce 6 72 happyReduction_226 -happyReduction_226 ((HappyAbsSyn62 happy_var_6) `HappyStk` - _ `HappyStk` - (HappyAbsSyn62 happy_var_4) `HappyStk` - _ `HappyStk` - (HappyTerminal (Located happy_var_2 (Token (Sym DotDot ) _))) `HappyStk` - (HappyAbsSyn62 happy_var_1) `HappyStk` - happyRest) tk - = happyThen ((( eFromToBy happy_var_2 happy_var_1 happy_var_4 happy_var_6 True)) - ) (\r -> happyReturn (HappyAbsSyn62 r)) - -happyReduce_227 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_227 = happyMonadReduce 5 72 happyReduction_227 -happyReduction_227 ((HappyAbsSyn62 happy_var_5) `HappyStk` - _ `HappyStk` - (HappyAbsSyn62 happy_var_3) `HappyStk` - (HappyTerminal (Located happy_var_2 (Token (Sym DotDotLt) _))) `HappyStk` - (HappyAbsSyn62 happy_var_1) `HappyStk` - happyRest) tk - = happyThen ((( eFromToBy happy_var_2 happy_var_1 happy_var_3 happy_var_5 True)) - ) (\r -> happyReturn (HappyAbsSyn62 r)) - -happyReduce_228 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_228 = happyMonadReduce 6 72 happyReduction_228 -happyReduction_228 ((HappyAbsSyn62 happy_var_6) `HappyStk` - _ `HappyStk` - _ `HappyStk` - (HappyAbsSyn62 happy_var_3) `HappyStk` - (HappyTerminal (Located happy_var_2 (Token (Sym DotDot ) _))) `HappyStk` - (HappyAbsSyn62 happy_var_1) `HappyStk` - happyRest) tk - = happyThen ((( eFromToDownBy happy_var_2 happy_var_1 happy_var_3 happy_var_6 False)) - ) (\r -> happyReturn (HappyAbsSyn62 r)) - -happyReduce_229 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_229 = happyMonadReduce 7 72 happyReduction_229 -happyReduction_229 ((HappyAbsSyn62 happy_var_7) `HappyStk` - _ `HappyStk` - _ `HappyStk` - (HappyAbsSyn62 happy_var_4) `HappyStk` - _ `HappyStk` - (HappyTerminal (Located happy_var_2 (Token (Sym DotDot ) _))) `HappyStk` - (HappyAbsSyn62 happy_var_1) `HappyStk` - happyRest) tk - = happyThen ((( eFromToDownBy happy_var_2 happy_var_1 happy_var_4 happy_var_7 True)) - ) (\r -> happyReturn (HappyAbsSyn62 r)) - -happyReduce_230 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_230 = happyMonadReduce 6 72 happyReduction_230 -happyReduction_230 ((HappyAbsSyn62 happy_var_6) `HappyStk` - _ `HappyStk` - _ `HappyStk` - (HappyAbsSyn62 happy_var_3) `HappyStk` - (HappyTerminal (Located happy_var_2 (Token (Sym DotDotGt) _))) `HappyStk` - (HappyAbsSyn62 happy_var_1) `HappyStk` - happyRest) tk - = happyThen ((( eFromToDownBy happy_var_2 happy_var_1 happy_var_3 happy_var_6 True)) - ) (\r -> happyReturn (HappyAbsSyn62 r)) - -happyReduce_231 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_231 = happySpecReduce_2 72 happyReduction_231 -happyReduction_231 _ - (HappyAbsSyn62 happy_var_1) - = HappyAbsSyn62 - (EInfFrom happy_var_1 Nothing - ) -happyReduction_231 _ _ = notHappyAtAll - -happyReduce_232 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_232 = happyReduce 4 72 happyReduction_232 -happyReduction_232 (_ `HappyStk` - (HappyAbsSyn62 happy_var_3) `HappyStk` - _ `HappyStk` - (HappyAbsSyn62 happy_var_1) `HappyStk` - happyRest) - = HappyAbsSyn62 - (EInfFrom happy_var_1 (Just happy_var_3) - ) `HappyStk` happyRest - -happyReduce_233 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_233 = happySpecReduce_1 73 happyReduction_233 -happyReduction_233 (HappyAbsSyn89 happy_var_1) - = HappyAbsSyn88 - ([ reverse happy_var_1 ] - ) -happyReduction_233 _ = notHappyAtAll - -happyReduce_234 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_234 = happySpecReduce_3 73 happyReduction_234 -happyReduction_234 (HappyAbsSyn89 happy_var_3) - _ - (HappyAbsSyn88 happy_var_1) - = HappyAbsSyn88 - (reverse happy_var_3 : happy_var_1 - ) -happyReduction_234 _ _ _ = notHappyAtAll - -happyReduce_235 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_235 = happySpecReduce_1 74 happyReduction_235 -happyReduction_235 (HappyAbsSyn90 happy_var_1) - = HappyAbsSyn89 - ([happy_var_1] - ) -happyReduction_235 _ = notHappyAtAll - -happyReduce_236 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_236 = happySpecReduce_3 74 happyReduction_236 -happyReduction_236 (HappyAbsSyn90 happy_var_3) - _ - (HappyAbsSyn89 happy_var_1) - = HappyAbsSyn89 - (happy_var_3 : happy_var_1 - ) -happyReduction_236 _ _ _ = notHappyAtAll - -happyReduce_237 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_237 = happySpecReduce_3 75 happyReduction_237 -happyReduction_237 (HappyAbsSyn62 happy_var_3) - _ - (HappyAbsSyn91 happy_var_1) - = HappyAbsSyn90 - (Match happy_var_1 happy_var_3 - ) -happyReduction_237 _ _ _ = notHappyAtAll - -happyReduce_238 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_238 = happySpecReduce_3 76 happyReduction_238 -happyReduction_238 (HappyAbsSyn106 happy_var_3) - _ - (HappyAbsSyn91 happy_var_1) - = HappyAbsSyn91 - (at (happy_var_1,happy_var_3) $ PTyped happy_var_1 happy_var_3 - ) -happyReduction_238 _ _ _ = notHappyAtAll - -happyReduce_239 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_239 = happySpecReduce_1 76 happyReduction_239 -happyReduction_239 (HappyAbsSyn91 happy_var_1) - = HappyAbsSyn91 - (happy_var_1 - ) -happyReduction_239 _ = notHappyAtAll - -happyReduce_240 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_240 = happySpecReduce_3 77 happyReduction_240 -happyReduction_240 (HappyAbsSyn91 happy_var_3) - _ - (HappyAbsSyn91 happy_var_1) - = HappyAbsSyn91 - (at (happy_var_1,happy_var_3) $ PSplit happy_var_1 happy_var_3 - ) -happyReduction_240 _ _ _ = notHappyAtAll - -happyReduce_241 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_241 = happySpecReduce_1 77 happyReduction_241 -happyReduction_241 (HappyAbsSyn91 happy_var_1) - = HappyAbsSyn91 - (happy_var_1 - ) -happyReduction_241 _ = notHappyAtAll - -happyReduce_242 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_242 = happySpecReduce_1 78 happyReduction_242 -happyReduction_242 (HappyAbsSyn47 happy_var_1) - = HappyAbsSyn91 - (PVar happy_var_1 - ) -happyReduction_242 _ = notHappyAtAll - -happyReduce_243 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_243 = happySpecReduce_1 78 happyReduction_243 -happyReduction_243 (HappyTerminal (Located happy_var_1 (Token (Sym Underscore ) _))) - = HappyAbsSyn91 - (at happy_var_1 $ PWild - ) -happyReduction_243 _ = notHappyAtAll - -happyReduce_244 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_244 = happySpecReduce_2 78 happyReduction_244 -happyReduction_244 (HappyTerminal (Located happy_var_2 (Token (Sym ParenR ) _))) - (HappyTerminal (Located happy_var_1 (Token (Sym ParenL ) _))) - = HappyAbsSyn91 - (at (happy_var_1,happy_var_2) $ PTuple [] - ) -happyReduction_244 _ _ = notHappyAtAll - -happyReduce_245 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_245 = happySpecReduce_3 78 happyReduction_245 -happyReduction_245 (HappyTerminal (Located happy_var_3 (Token (Sym ParenR ) _))) - (HappyAbsSyn91 happy_var_2) - (HappyTerminal (Located happy_var_1 (Token (Sym ParenL ) _))) - = HappyAbsSyn91 - (at (happy_var_1,happy_var_3) happy_var_2 - ) -happyReduction_245 _ _ _ = notHappyAtAll - -happyReduce_246 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_246 = happySpecReduce_3 78 happyReduction_246 -happyReduction_246 (HappyTerminal (Located happy_var_3 (Token (Sym ParenR ) _))) - (HappyAbsSyn48 happy_var_2) - (HappyTerminal (Located happy_var_1 (Token (Sym ParenL ) _))) - = HappyAbsSyn91 - (at (happy_var_1,happy_var_3) $ PTuple (reverse happy_var_2) - ) -happyReduction_246 _ _ _ = notHappyAtAll - -happyReduce_247 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_247 = happySpecReduce_2 78 happyReduction_247 -happyReduction_247 (HappyTerminal (Located happy_var_2 (Token (Sym BracketR) _))) - (HappyTerminal (Located happy_var_1 (Token (Sym BracketL) _))) - = HappyAbsSyn91 - (at (happy_var_1,happy_var_2) $ PList [] - ) -happyReduction_247 _ _ = notHappyAtAll - -happyReduce_248 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_248 = happySpecReduce_3 78 happyReduction_248 -happyReduction_248 (HappyTerminal (Located happy_var_3 (Token (Sym BracketR) _))) - (HappyAbsSyn91 happy_var_2) - (HappyTerminal (Located happy_var_1 (Token (Sym BracketL) _))) - = HappyAbsSyn91 - (at (happy_var_1,happy_var_3) $ PList [happy_var_2] - ) -happyReduction_248 _ _ _ = notHappyAtAll - -happyReduce_249 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_249 = happySpecReduce_3 78 happyReduction_249 -happyReduction_249 (HappyTerminal (Located happy_var_3 (Token (Sym BracketR) _))) - (HappyAbsSyn48 happy_var_2) - (HappyTerminal (Located happy_var_1 (Token (Sym BracketL) _))) - = HappyAbsSyn91 - (at (happy_var_1,happy_var_3) $ PList (reverse happy_var_2) - ) -happyReduction_249 _ _ _ = notHappyAtAll - -happyReduce_250 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_250 = happyMonadReduce 2 78 happyReduction_250 -happyReduction_250 ((HappyTerminal (Located happy_var_2 (Token (Sym CurlyR ) _))) `HappyStk` - (HappyTerminal (Located happy_var_1 (Token (Sym CurlyL ) _))) `HappyStk` - happyRest) tk - = happyThen ((( mkRecord (rComb happy_var_1 happy_var_2) PRecord [])) - ) (\r -> happyReturn (HappyAbsSyn91 r)) - -happyReduce_251 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_251 = happyMonadReduce 3 78 happyReduction_251 -happyReduction_251 ((HappyTerminal (Located happy_var_3 (Token (Sym CurlyR ) _))) `HappyStk` - (HappyAbsSyn96 happy_var_2) `HappyStk` - (HappyTerminal (Located happy_var_1 (Token (Sym CurlyL ) _))) `HappyStk` - happyRest) tk - = happyThen ((( mkRecord (rComb happy_var_1 happy_var_3) PRecord happy_var_2)) - ) (\r -> happyReturn (HappyAbsSyn91 r)) - -happyReduce_252 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_252 = happySpecReduce_3 79 happyReduction_252 -happyReduction_252 (HappyAbsSyn91 happy_var_3) - _ - (HappyAbsSyn91 happy_var_1) - = HappyAbsSyn48 - ([happy_var_3, happy_var_1] - ) -happyReduction_252 _ _ _ = notHappyAtAll - -happyReduce_253 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_253 = happySpecReduce_3 79 happyReduction_253 -happyReduction_253 (HappyAbsSyn91 happy_var_3) - _ - (HappyAbsSyn48 happy_var_1) - = HappyAbsSyn48 - (happy_var_3 : happy_var_1 - ) -happyReduction_253 _ _ _ = notHappyAtAll - -happyReduce_254 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_254 = happySpecReduce_3 80 happyReduction_254 -happyReduction_254 (HappyAbsSyn91 happy_var_3) - _ - (HappyAbsSyn115 happy_var_1) - = HappyAbsSyn95 - (Named { name = happy_var_1, value = happy_var_3 } - ) -happyReduction_254 _ _ _ = notHappyAtAll - -happyReduce_255 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_255 = happySpecReduce_1 81 happyReduction_255 -happyReduction_255 (HappyAbsSyn95 happy_var_1) - = HappyAbsSyn96 - ([happy_var_1] - ) -happyReduction_255 _ = notHappyAtAll - -happyReduce_256 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_256 = happySpecReduce_3 81 happyReduction_256 -happyReduction_256 (HappyAbsSyn95 happy_var_3) - _ - (HappyAbsSyn96 happy_var_1) - = HappyAbsSyn96 - (happy_var_3 : happy_var_1 - ) -happyReduction_256 _ _ _ = notHappyAtAll - -happyReduce_257 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_257 = happySpecReduce_1 82 happyReduction_257 -happyReduction_257 (HappyAbsSyn106 happy_var_1) - = HappyAbsSyn97 - (at happy_var_1 $ mkSchema [] [] happy_var_1 - ) -happyReduction_257 _ = notHappyAtAll - -happyReduce_258 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_258 = happySpecReduce_2 82 happyReduction_258 -happyReduction_258 (HappyAbsSyn106 happy_var_2) - (HappyAbsSyn98 happy_var_1) - = HappyAbsSyn97 - (at (happy_var_1,happy_var_2) $ mkSchema (thing happy_var_1) [] happy_var_2 - ) -happyReduction_258 _ _ = notHappyAtAll - -happyReduce_259 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_259 = happySpecReduce_2 82 happyReduction_259 -happyReduction_259 (HappyAbsSyn106 happy_var_2) - (HappyAbsSyn99 happy_var_1) - = HappyAbsSyn97 - (at (happy_var_1,happy_var_2) $ mkSchema [] (thing happy_var_1) happy_var_2 - ) -happyReduction_259 _ _ = notHappyAtAll - -happyReduce_260 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_260 = happySpecReduce_3 82 happyReduction_260 -happyReduction_260 (HappyAbsSyn106 happy_var_3) - (HappyAbsSyn99 happy_var_2) - (HappyAbsSyn98 happy_var_1) - = HappyAbsSyn97 - (at (happy_var_1,happy_var_3) $ mkSchema (thing happy_var_1) - (thing happy_var_2) happy_var_3 - ) -happyReduction_260 _ _ _ = notHappyAtAll - -happyReduce_261 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_261 = happySpecReduce_2 83 happyReduction_261 -happyReduction_261 (HappyTerminal (Located happy_var_2 (Token (Sym CurlyR ) _))) - (HappyTerminal (Located happy_var_1 (Token (Sym CurlyL ) _))) - = HappyAbsSyn98 - (Located (rComb happy_var_1 happy_var_2) [] - ) -happyReduction_261 _ _ = notHappyAtAll - -happyReduce_262 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_262 = happySpecReduce_3 83 happyReduction_262 -happyReduction_262 (HappyTerminal (Located happy_var_3 (Token (Sym CurlyR ) _))) - (HappyAbsSyn103 happy_var_2) - (HappyTerminal (Located happy_var_1 (Token (Sym CurlyL ) _))) - = HappyAbsSyn98 - (Located (rComb happy_var_1 happy_var_3) (reverse happy_var_2) - ) -happyReduction_262 _ _ _ = notHappyAtAll - -happyReduce_263 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_263 = happySpecReduce_2 84 happyReduction_263 -happyReduction_263 (HappyAbsSyn99 happy_var_2) - (HappyAbsSyn99 happy_var_1) - = HappyAbsSyn99 - (at (happy_var_1,happy_var_2) $ fmap (++ thing happy_var_2) happy_var_1 - ) -happyReduction_263 _ _ = notHappyAtAll - -happyReduce_264 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_264 = happySpecReduce_1 84 happyReduction_264 -happyReduction_264 (HappyAbsSyn99 happy_var_1) - = HappyAbsSyn99 - (happy_var_1 - ) -happyReduction_264 _ = notHappyAtAll - -happyReduce_265 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_265 = happyMonadReduce 2 85 happyReduction_265 -happyReduction_265 ((HappyTerminal (Located happy_var_2 (Token (Sym FatArrR ) _))) `HappyStk` - (HappyAbsSyn106 happy_var_1) `HappyStk` - happyRest) tk - = happyThen ((( fmap (\x -> at (x,happy_var_2) x) (mkProp happy_var_1))) - ) (\r -> happyReturn (HappyAbsSyn99 r)) - -happyReduce_266 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_266 = happySpecReduce_1 86 happyReduction_266 -happyReduction_266 (HappyTerminal (Located happy_var_1 (Token (Op Hash) _))) - = HappyAbsSyn101 - (Located happy_var_1 KNum - ) -happyReduction_266 _ = notHappyAtAll - -happyReduce_267 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_267 = happySpecReduce_1 86 happyReduction_267 -happyReduction_267 (HappyTerminal (Located happy_var_1 (Token (Op Mul) _))) - = HappyAbsSyn101 - (Located happy_var_1 KType - ) -happyReduction_267 _ = notHappyAtAll - -happyReduce_268 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_268 = happySpecReduce_1 86 happyReduction_268 -happyReduction_268 (HappyTerminal (Located happy_var_1 (Token (KW KW_Prop) _))) - = HappyAbsSyn101 - (Located happy_var_1 KProp - ) -happyReduction_268 _ = notHappyAtAll - -happyReduce_269 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_269 = happySpecReduce_3 86 happyReduction_269 -happyReduction_269 (HappyAbsSyn101 happy_var_3) - _ - (HappyAbsSyn101 happy_var_1) - = HappyAbsSyn101 - (combLoc KFun happy_var_1 happy_var_3 - ) -happyReduction_269 _ _ _ = notHappyAtAll - -happyReduce_270 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_270 = happyMonadReduce 1 87 happyReduction_270 -happyReduction_270 ((HappyAbsSyn115 happy_var_1) `HappyStk` - happyRest) tk - = happyThen ((( mkTParam happy_var_1 Nothing)) - ) (\r -> happyReturn (HappyAbsSyn102 r)) - -happyReduce_271 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_271 = happyMonadReduce 3 87 happyReduction_271 -happyReduction_271 ((HappyAbsSyn101 happy_var_3) `HappyStk` - _ `HappyStk` - (HappyAbsSyn115 happy_var_1) `HappyStk` - happyRest) tk - = happyThen ((( mkTParam (at (happy_var_1,happy_var_3) happy_var_1) (Just (thing happy_var_3)))) - ) (\r -> happyReturn (HappyAbsSyn102 r)) - -happyReduce_272 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_272 = happySpecReduce_1 88 happyReduction_272 -happyReduction_272 (HappyAbsSyn102 happy_var_1) - = HappyAbsSyn103 - ([happy_var_1] - ) -happyReduction_272 _ = notHappyAtAll - -happyReduce_273 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_273 = happySpecReduce_3 88 happyReduction_273 -happyReduction_273 (HappyAbsSyn102 happy_var_3) - _ - (HappyAbsSyn103 happy_var_1) - = HappyAbsSyn103 - (happy_var_3 : happy_var_1 - ) -happyReduction_273 _ _ _ = notHappyAtAll - -happyReduce_274 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_274 = happyMonadReduce 1 89 happyReduction_274 -happyReduction_274 ((HappyAbsSyn115 happy_var_1) `HappyStk` - happyRest) tk - = happyThen ((( mkTParam happy_var_1 Nothing)) - ) (\r -> happyReturn (HappyAbsSyn102 r)) - -happyReduce_275 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_275 = happyMonadReduce 5 89 happyReduction_275 -happyReduction_275 ((HappyTerminal (Located happy_var_5 (Token (Sym ParenR ) _))) `HappyStk` - (HappyAbsSyn101 happy_var_4) `HappyStk` - _ `HappyStk` - (HappyAbsSyn115 happy_var_2) `HappyStk` - (HappyTerminal (Located happy_var_1 (Token (Sym ParenL ) _))) `HappyStk` - happyRest) tk - = happyThen ((( mkTParam (at (happy_var_1,happy_var_5) happy_var_2) (Just (thing happy_var_4)))) - ) (\r -> happyReturn (HappyAbsSyn102 r)) - -happyReduce_276 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_276 = happySpecReduce_1 90 happyReduction_276 -happyReduction_276 (HappyAbsSyn102 happy_var_1) - = HappyAbsSyn103 - ([happy_var_1] - ) -happyReduction_276 _ = notHappyAtAll - -happyReduce_277 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_277 = happySpecReduce_2 90 happyReduction_277 -happyReduction_277 (HappyAbsSyn102 happy_var_2) - (HappyAbsSyn103 happy_var_1) - = HappyAbsSyn103 - (happy_var_2 : happy_var_1 - ) -happyReduction_277 _ _ = notHappyAtAll - -happyReduce_278 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_278 = happySpecReduce_3 91 happyReduction_278 -happyReduction_278 (HappyAbsSyn106 happy_var_3) - _ - (HappyAbsSyn106 happy_var_1) - = HappyAbsSyn106 - (at (happy_var_1,happy_var_3) $ TFun happy_var_1 happy_var_3 - ) -happyReduction_278 _ _ _ = notHappyAtAll - -happyReduce_279 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_279 = happySpecReduce_1 91 happyReduction_279 -happyReduction_279 (HappyAbsSyn106 happy_var_1) - = HappyAbsSyn106 - (happy_var_1 - ) -happyReduction_279 _ = notHappyAtAll - -happyReduce_280 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_280 = happySpecReduce_3 92 happyReduction_280 -happyReduction_280 (HappyAbsSyn106 happy_var_3) - (HappyAbsSyn47 happy_var_2) - (HappyAbsSyn106 happy_var_1) - = HappyAbsSyn106 - (at (happy_var_1,happy_var_3) $ TInfix happy_var_1 happy_var_2 defaultFixity happy_var_3 - ) -happyReduction_280 _ _ _ = notHappyAtAll - -happyReduce_281 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_281 = happySpecReduce_1 92 happyReduction_281 -happyReduction_281 (HappyAbsSyn106 happy_var_1) - = HappyAbsSyn106 - (happy_var_1 - ) -happyReduction_281 _ = notHappyAtAll - -happyReduce_282 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_282 = happySpecReduce_2 93 happyReduction_282 -happyReduction_282 (HappyAbsSyn106 happy_var_2) - (HappyAbsSyn111 happy_var_1) - = HappyAbsSyn106 - (at (happy_var_1,happy_var_2) $ foldr TSeq happy_var_2 (reverse (thing happy_var_1)) - ) -happyReduction_282 _ _ = notHappyAtAll - -happyReduce_283 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_283 = happySpecReduce_2 93 happyReduction_283 -happyReduction_283 (HappyAbsSyn110 happy_var_2) - (HappyAbsSyn119 happy_var_1) - = HappyAbsSyn106 - (at (happy_var_1,head happy_var_2) - $ TUser (thing happy_var_1) (reverse happy_var_2) - ) -happyReduction_283 _ _ = notHappyAtAll - -happyReduce_284 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_284 = happySpecReduce_1 93 happyReduction_284 -happyReduction_284 (HappyAbsSyn106 happy_var_1) - = HappyAbsSyn106 - (happy_var_1 - ) -happyReduction_284 _ = notHappyAtAll - -happyReduce_285 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_285 = happySpecReduce_1 94 happyReduction_285 -happyReduction_285 (HappyAbsSyn119 happy_var_1) - = HappyAbsSyn106 - (at happy_var_1 $ TUser (thing happy_var_1) [] - ) -happyReduction_285 _ = notHappyAtAll - -happyReduce_286 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_286 = happySpecReduce_3 94 happyReduction_286 -happyReduction_286 _ - (HappyAbsSyn47 happy_var_2) - (HappyTerminal (Located happy_var_1 (Token (Sym ParenL ) _))) - = HappyAbsSyn106 - (at happy_var_1 $ TUser (thing happy_var_2) [] - ) -happyReduction_286 _ _ _ = notHappyAtAll - -happyReduce_287 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_287 = happySpecReduce_1 94 happyReduction_287 -happyReduction_287 (HappyTerminal (happy_var_1@(Located _ (Token (Num {}) _)))) - = HappyAbsSyn106 - (at happy_var_1 $ TNum (getNum happy_var_1) - ) -happyReduction_287 _ = notHappyAtAll - -happyReduce_288 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_288 = happySpecReduce_1 94 happyReduction_288 -happyReduction_288 (HappyTerminal (happy_var_1@(Located _ (Token (ChrLit {}) _)))) - = HappyAbsSyn106 - (at happy_var_1 $ TChar (getChr happy_var_1) - ) -happyReduction_288 _ = notHappyAtAll - -happyReduce_289 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_289 = happySpecReduce_3 94 happyReduction_289 -happyReduction_289 (HappyTerminal (Located happy_var_3 (Token (Sym BracketR) _))) - (HappyAbsSyn106 happy_var_2) - (HappyTerminal (Located happy_var_1 (Token (Sym BracketL) _))) - = HappyAbsSyn106 - (at (happy_var_1,happy_var_3) $ TSeq happy_var_2 TBit - ) -happyReduction_289 _ _ _ = notHappyAtAll - -happyReduce_290 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_290 = happySpecReduce_3 94 happyReduction_290 -happyReduction_290 (HappyTerminal (Located happy_var_3 (Token (Sym ParenR ) _))) - (HappyAbsSyn106 happy_var_2) - (HappyTerminal (Located happy_var_1 (Token (Sym ParenL ) _))) - = HappyAbsSyn106 - (at (happy_var_1,happy_var_3) $ TParens happy_var_2 - ) -happyReduction_290 _ _ _ = notHappyAtAll - -happyReduce_291 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_291 = happySpecReduce_2 94 happyReduction_291 -happyReduction_291 (HappyTerminal (Located happy_var_2 (Token (Sym ParenR ) _))) - (HappyTerminal (Located happy_var_1 (Token (Sym ParenL ) _))) - = HappyAbsSyn106 - (at (happy_var_1,happy_var_2) $ TTuple [] - ) -happyReduction_291 _ _ = notHappyAtAll - -happyReduce_292 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_292 = happySpecReduce_3 94 happyReduction_292 -happyReduction_292 (HappyTerminal (Located happy_var_3 (Token (Sym ParenR ) _))) - (HappyAbsSyn112 happy_var_2) - (HappyTerminal (Located happy_var_1 (Token (Sym ParenL ) _))) - = HappyAbsSyn106 - (at (happy_var_1,happy_var_3) $ TTuple (reverse happy_var_2) - ) -happyReduction_292 _ _ _ = notHappyAtAll - -happyReduce_293 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_293 = happyMonadReduce 2 94 happyReduction_293 -happyReduction_293 ((HappyTerminal (Located happy_var_2 (Token (Sym CurlyR ) _))) `HappyStk` - (HappyTerminal (Located happy_var_1 (Token (Sym CurlyL ) _))) `HappyStk` - happyRest) tk - = happyThen ((( mkRecord (rComb happy_var_1 happy_var_2) TRecord [])) - ) (\r -> happyReturn (HappyAbsSyn106 r)) - -happyReduce_294 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_294 = happyMonadReduce 3 94 happyReduction_294 -happyReduction_294 ((HappyTerminal (Located happy_var_3 (Token (Sym CurlyR ) _))) `HappyStk` - (HappyAbsSyn114 happy_var_2) `HappyStk` - (HappyTerminal (Located happy_var_1 (Token (Sym CurlyL ) _))) `HappyStk` - happyRest) tk - = happyThen ((( mkRecord (rComb happy_var_1 happy_var_3) TRecord happy_var_2)) - ) (\r -> happyReturn (HappyAbsSyn106 r)) - -happyReduce_295 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_295 = happySpecReduce_1 94 happyReduction_295 -happyReduction_295 (HappyTerminal (Located happy_var_1 (Token (Sym Underscore ) _))) - = HappyAbsSyn106 - (at happy_var_1 TWild - ) -happyReduction_295 _ = notHappyAtAll - -happyReduce_296 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_296 = happySpecReduce_1 95 happyReduction_296 -happyReduction_296 (HappyAbsSyn106 happy_var_1) - = HappyAbsSyn110 - ([ happy_var_1 ] - ) -happyReduction_296 _ = notHappyAtAll - -happyReduce_297 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_297 = happySpecReduce_2 95 happyReduction_297 -happyReduction_297 (HappyAbsSyn106 happy_var_2) - (HappyAbsSyn110 happy_var_1) - = HappyAbsSyn110 - (happy_var_2 : happy_var_1 - ) -happyReduction_297 _ _ = notHappyAtAll - -happyReduce_298 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_298 = happySpecReduce_3 96 happyReduction_298 -happyReduction_298 (HappyTerminal (Located happy_var_3 (Token (Sym BracketR) _))) - (HappyAbsSyn106 happy_var_2) - (HappyTerminal (Located happy_var_1 (Token (Sym BracketL) _))) - = HappyAbsSyn111 - (Located (rComb happy_var_1 happy_var_3) [ happy_var_2 ] - ) -happyReduction_298 _ _ _ = notHappyAtAll - -happyReduce_299 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_299 = happyReduce 4 96 happyReduction_299 -happyReduction_299 ((HappyTerminal (Located happy_var_4 (Token (Sym BracketR) _))) `HappyStk` - (HappyAbsSyn106 happy_var_3) `HappyStk` - _ `HappyStk` - (HappyAbsSyn111 happy_var_1) `HappyStk` - happyRest) - = HappyAbsSyn111 - (at (happy_var_1,happy_var_4) (fmap (happy_var_3 :) happy_var_1) - ) `HappyStk` happyRest - -happyReduce_300 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_300 = happySpecReduce_3 97 happyReduction_300 -happyReduction_300 (HappyAbsSyn106 happy_var_3) - _ - (HappyAbsSyn106 happy_var_1) - = HappyAbsSyn112 - ([ happy_var_3, happy_var_1] - ) -happyReduction_300 _ _ _ = notHappyAtAll - -happyReduce_301 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_301 = happySpecReduce_3 97 happyReduction_301 -happyReduction_301 (HappyAbsSyn106 happy_var_3) - _ - (HappyAbsSyn112 happy_var_1) - = HappyAbsSyn112 - (happy_var_3 : happy_var_1 - ) -happyReduction_301 _ _ _ = notHappyAtAll - -happyReduce_302 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_302 = happySpecReduce_3 98 happyReduction_302 -happyReduction_302 (HappyAbsSyn106 happy_var_3) - _ - (HappyAbsSyn115 happy_var_1) - = HappyAbsSyn113 - (Named { name = happy_var_1, value = happy_var_3 } - ) -happyReduction_302 _ _ _ = notHappyAtAll - -happyReduce_303 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_303 = happySpecReduce_1 99 happyReduction_303 -happyReduction_303 (HappyAbsSyn113 happy_var_1) - = HappyAbsSyn114 - ([happy_var_1] - ) -happyReduction_303 _ = notHappyAtAll - -happyReduce_304 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_304 = happySpecReduce_3 99 happyReduction_304 -happyReduction_304 (HappyAbsSyn113 happy_var_3) - _ - (HappyAbsSyn114 happy_var_1) - = HappyAbsSyn114 - (happy_var_3 : happy_var_1 - ) -happyReduction_304 _ _ _ = notHappyAtAll - -happyReduce_305 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_305 = happySpecReduce_1 100 happyReduction_305 -happyReduction_305 (HappyTerminal (happy_var_1@(Located _ (Token (Ident [] _) _)))) - = HappyAbsSyn115 - (let Token (Ident _ str) _ = thing happy_var_1 - in happy_var_1 { thing = mkIdent str } - ) -happyReduction_305 _ = notHappyAtAll - -happyReduce_306 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_306 = happySpecReduce_1 100 happyReduction_306 -happyReduction_306 (HappyTerminal (Located happy_var_1 (Token (KW KW_x) _))) - = HappyAbsSyn115 - (Located { srcRange = happy_var_1, thing = mkIdent "x" } - ) -happyReduction_306 _ = notHappyAtAll - -happyReduce_307 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_307 = happySpecReduce_1 100 happyReduction_307 -happyReduction_307 (HappyTerminal (Located happy_var_1 (Token (KW KW_private) _))) - = HappyAbsSyn115 - (Located { srcRange = happy_var_1, thing = mkIdent "private" } - ) -happyReduction_307 _ = notHappyAtAll - -happyReduce_308 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_308 = happySpecReduce_1 100 happyReduction_308 -happyReduction_308 (HappyTerminal (Located happy_var_1 (Token (KW KW_as) _))) - = HappyAbsSyn115 - (Located { srcRange = happy_var_1, thing = mkIdent "as" } - ) -happyReduction_308 _ = notHappyAtAll - -happyReduce_309 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_309 = happySpecReduce_1 100 happyReduction_309 -happyReduction_309 (HappyTerminal (Located happy_var_1 (Token (KW KW_hiding) _))) - = HappyAbsSyn115 - (Located { srcRange = happy_var_1, thing = mkIdent "hiding" } - ) -happyReduction_309 _ = notHappyAtAll - -happyReduce_310 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_310 = happySpecReduce_1 101 happyReduction_310 -happyReduction_310 (HappyAbsSyn115 happy_var_1) - = HappyAbsSyn47 - (fmap mkUnqual happy_var_1 - ) -happyReduction_310 _ = notHappyAtAll - -happyReduce_311 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_311 = happySpecReduce_1 102 happyReduction_311 -happyReduction_311 (HappyAbsSyn115 happy_var_1) - = HappyAbsSyn117 - (fmap (mkModName . (:[]) . identText) happy_var_1 - ) -happyReduction_311 _ = notHappyAtAll - -happyReduce_312 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_312 = happySpecReduce_1 102 happyReduction_312 -happyReduction_312 (HappyTerminal (happy_var_1@(Located _ (Token Ident{} _)))) - = HappyAbsSyn117 - (let Token (Ident ns i) _ = thing happy_var_1 - in mkModName (ns ++ [i]) A.<$ happy_var_1 - ) -happyReduction_312 _ = notHappyAtAll - -happyReduce_313 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_313 = happySpecReduce_1 103 happyReduction_313 -happyReduction_313 (HappyAbsSyn117 happy_var_1) - = HappyAbsSyn117 - (happy_var_1 - ) -happyReduction_313 _ = notHappyAtAll - -happyReduce_314 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_314 = happySpecReduce_2 103 happyReduction_314 -happyReduction_314 (HappyAbsSyn117 happy_var_2) - _ - = HappyAbsSyn117 - (fmap paramInstModName happy_var_2 - ) -happyReduction_314 _ _ = notHappyAtAll - -happyReduce_315 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_315 = happySpecReduce_1 104 happyReduction_315 -happyReduction_315 (HappyAbsSyn47 happy_var_1) - = HappyAbsSyn119 - (happy_var_1 - ) -happyReduction_315 _ = notHappyAtAll - -happyReduce_316 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_316 = happySpecReduce_1 104 happyReduction_316 -happyReduction_316 (HappyTerminal (happy_var_1@(Located _ (Token Ident{} _)))) - = HappyAbsSyn119 - (let Token (Ident ns i) _ = thing happy_var_1 - in mkQual (mkModName ns) (mkIdent i) A.<$ happy_var_1 - ) -happyReduction_316 _ = notHappyAtAll - -happyReduce_317 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_317 = happySpecReduce_1 105 happyReduction_317 -happyReduction_317 (HappyAbsSyn119 happy_var_1) - = HappyAbsSyn119 - (happy_var_1 - ) -happyReduction_317 _ = notHappyAtAll - -happyReduce_318 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_318 = happySpecReduce_1 105 happyReduction_318 -happyReduction_318 (HappyAbsSyn47 happy_var_1) - = HappyAbsSyn119 - (happy_var_1 - ) -happyReduction_318 _ = notHappyAtAll - -happyReduce_319 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_319 = happySpecReduce_3 105 happyReduction_319 -happyReduction_319 _ - (HappyAbsSyn47 happy_var_2) - _ - = HappyAbsSyn119 - (happy_var_2 - ) -happyReduction_319 _ _ _ = notHappyAtAll - -happyReduce_320 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_320 = happySpecReduce_1 106 happyReduction_320 -happyReduction_320 (HappyAbsSyn119 happy_var_1) - = HappyAbsSyn106 - (at happy_var_1 $ TUser (thing happy_var_1) [] - ) -happyReduction_320 _ = notHappyAtAll - -happyReduce_321 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_321 = happySpecReduce_1 106 happyReduction_321 -happyReduction_321 (HappyTerminal (happy_var_1@(Located _ (Token (Num {}) _)))) - = HappyAbsSyn106 - (at happy_var_1 $ TNum (getNum happy_var_1) - ) -happyReduction_321 _ = notHappyAtAll - -happyReduce_322 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_322 = happyMonadReduce 3 106 happyReduction_322 -happyReduction_322 ((HappyTerminal (Located happy_var_3 (Token (Sym ParenR ) _))) `HappyStk` - (HappyAbsSyn106 happy_var_2) `HappyStk` - (HappyTerminal (Located happy_var_1 (Token (Sym ParenL ) _))) `HappyStk` - happyRest) tk - = happyThen ((( validDemotedType (rComb happy_var_1 happy_var_3) happy_var_2)) - ) (\r -> happyReturn (HappyAbsSyn106 r)) - -happyReduce_323 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_323 = happySpecReduce_2 106 happyReduction_323 -happyReduction_323 (HappyTerminal (Located happy_var_2 (Token (Sym CurlyR ) _))) - (HappyTerminal (Located happy_var_1 (Token (Sym CurlyL ) _))) - = HappyAbsSyn106 - (at (happy_var_1,happy_var_2) (TTyApp []) - ) -happyReduction_323 _ _ = notHappyAtAll - -happyReduce_324 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_324 = happySpecReduce_3 106 happyReduction_324 -happyReduction_324 (HappyTerminal (Located happy_var_3 (Token (Sym CurlyR ) _))) - (HappyAbsSyn114 happy_var_2) - (HappyTerminal (Located happy_var_1 (Token (Sym CurlyL ) _))) - = HappyAbsSyn106 - (at (happy_var_1,happy_var_3) (TTyApp (reverse happy_var_2)) - ) -happyReduction_324 _ _ _ = notHappyAtAll - -happyReduce_325 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_325 = happySpecReduce_3 106 happyReduction_325 -happyReduction_325 (HappyTerminal (Located happy_var_3 (Token (Sym CurlyR ) _))) - (HappyAbsSyn106 happy_var_2) - (HappyTerminal (Located happy_var_1 (Token (Sym CurlyL ) _))) - = HappyAbsSyn106 - (anonTyApp (getLoc (happy_var_1,happy_var_3)) [happy_var_2] - ) -happyReduction_325 _ _ _ = notHappyAtAll - -happyReduce_326 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_326 = happySpecReduce_3 106 happyReduction_326 -happyReduction_326 (HappyTerminal (Located happy_var_3 (Token (Sym CurlyR ) _))) - (HappyAbsSyn112 happy_var_2) - (HappyTerminal (Located happy_var_1 (Token (Sym CurlyL ) _))) - = HappyAbsSyn106 - (anonTyApp (getLoc (happy_var_1,happy_var_3)) (reverse happy_var_2) - ) -happyReduction_326 _ _ _ = notHappyAtAll - -happyReduce_327 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_327 = happySpecReduce_3 107 happyReduction_327 -happyReduction_327 (HappyAbsSyn106 happy_var_3) - _ - (HappyAbsSyn115 happy_var_1) - = HappyAbsSyn113 - (Named { name = happy_var_1, value = happy_var_3 } - ) -happyReduction_327 _ _ _ = notHappyAtAll - -happyReduce_328 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_328 = happySpecReduce_1 108 happyReduction_328 -happyReduction_328 (HappyAbsSyn113 happy_var_1) - = HappyAbsSyn114 - ([happy_var_1] - ) -happyReduction_328 _ = notHappyAtAll - -happyReduce_329 :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) -happyReduce_329 = happySpecReduce_3 108 happyReduction_329 -happyReduction_329 (HappyAbsSyn113 happy_var_3) - _ - (HappyAbsSyn114 happy_var_1) - = HappyAbsSyn114 - (happy_var_3 : happy_var_1 - ) -happyReduction_329 _ _ _ = notHappyAtAll - -happyNewToken action sts stk - = lexerP(\tk -> - let cont i = happyDoAction i tk action sts stk in - case tk of { - Located _ (Token EOF _) -> happyDoAction 72 tk action sts stk; - happy_dollar_dollar@(Located _ (Token (Num {}) _)) -> cont 1; - happy_dollar_dollar@(Located _ (Token (Frac {}) _)) -> cont 2; - happy_dollar_dollar@(Located _ (Token (StrLit {}) _)) -> cont 3; - happy_dollar_dollar@(Located _ (Token (ChrLit {}) _)) -> cont 4; - happy_dollar_dollar@(Located _ (Token (Ident [] _) _)) -> cont 5; - happy_dollar_dollar@(Located _ (Token Ident{} _)) -> cont 6; - happy_dollar_dollar@(Located _ (Token (Selector _) _)) -> cont 7; - Located happy_dollar_dollar (Token (KW KW_include) _) -> cont 8; - Located happy_dollar_dollar (Token (KW KW_import) _) -> cont 9; - Located happy_dollar_dollar (Token (KW KW_as) _) -> cont 10; - Located happy_dollar_dollar (Token (KW KW_hiding) _) -> cont 11; - Located happy_dollar_dollar (Token (KW KW_private) _) -> cont 12; - Located happy_dollar_dollar (Token (KW KW_parameter) _) -> cont 13; - Located happy_dollar_dollar (Token (KW KW_property) _) -> cont 14; - Located happy_dollar_dollar (Token (KW KW_infix) _) -> cont 15; - Located happy_dollar_dollar (Token (KW KW_infixl) _) -> cont 16; - Located happy_dollar_dollar (Token (KW KW_infixr) _) -> cont 17; - Located happy_dollar_dollar (Token (KW KW_type ) _) -> cont 18; - Located happy_dollar_dollar (Token (KW KW_newtype) _) -> cont 19; - Located happy_dollar_dollar (Token (KW KW_module ) _) -> cont 20; - Located happy_dollar_dollar (Token (KW KW_submodule ) _) -> cont 21; - Located happy_dollar_dollar (Token (KW KW_where ) _) -> cont 22; - Located happy_dollar_dollar (Token (KW KW_let ) _) -> cont 23; - Located happy_dollar_dollar (Token (KW KW_if ) _) -> cont 24; - Located happy_dollar_dollar (Token (KW KW_then ) _) -> cont 25; - Located happy_dollar_dollar (Token (KW KW_else ) _) -> cont 26; - Located happy_dollar_dollar (Token (KW KW_x) _) -> cont 27; - Located happy_dollar_dollar (Token (KW KW_down) _) -> cont 28; - Located happy_dollar_dollar (Token (KW KW_by) _) -> cont 29; - Located happy_dollar_dollar (Token (KW KW_primitive) _) -> cont 30; - Located happy_dollar_dollar (Token (KW KW_constraint) _) -> cont 31; - Located happy_dollar_dollar (Token (KW KW_Prop) _) -> cont 32; - Located happy_dollar_dollar (Token (Sym BracketL) _) -> cont 34; - Located happy_dollar_dollar (Token (Sym BracketR) _) -> cont 35; - Located happy_dollar_dollar (Token (Sym ArrL ) _) -> cont 36; - Located happy_dollar_dollar (Token (Sym DotDot ) _) -> cont 37; - Located happy_dollar_dollar (Token (Sym DotDotDot) _) -> cont 38; - Located happy_dollar_dollar (Token (Sym DotDotLt) _) -> cont 39; - Located happy_dollar_dollar (Token (Sym DotDotGt) _) -> cont 40; - Located happy_dollar_dollar (Token (Sym Bar ) _) -> cont 41; - Located happy_dollar_dollar (Token (Sym Lt ) _) -> cont 42; - Located happy_dollar_dollar (Token (Sym Gt ) _) -> cont 43; - Located happy_dollar_dollar (Token (Sym ParenL ) _) -> cont 44; - Located happy_dollar_dollar (Token (Sym ParenR ) _) -> cont 45; - Located happy_dollar_dollar (Token (Sym Comma ) _) -> cont 46; - Located happy_dollar_dollar (Token (Sym Semi ) _) -> cont 47; - Located happy_dollar_dollar (Token (Sym CurlyL ) _) -> cont 48; - Located happy_dollar_dollar (Token (Sym CurlyR ) _) -> cont 49; - Located happy_dollar_dollar (Token (Sym TriL ) _) -> cont 50; - Located happy_dollar_dollar (Token (Sym TriR ) _) -> cont 51; - Located happy_dollar_dollar (Token (Sym EqDef ) _) -> cont 52; - Located happy_dollar_dollar (Token (Sym BackTick) _) -> cont 53; - Located happy_dollar_dollar (Token (Sym Colon ) _) -> cont 54; - Located happy_dollar_dollar (Token (Sym ArrR ) _) -> cont 55; - Located happy_dollar_dollar (Token (Sym FatArrR ) _) -> cont 56; - Located happy_dollar_dollar (Token (Sym Lambda ) _) -> cont 57; - Located happy_dollar_dollar (Token (Sym Underscore ) _) -> cont 58; - Located happy_dollar_dollar (Token (Virt VCurlyL) _) -> cont 59; - Located happy_dollar_dollar (Token (Virt VCurlyR) _) -> cont 60; - Located happy_dollar_dollar (Token (Virt VSemi) _) -> cont 61; - Located happy_dollar_dollar (Token (Op Plus) _) -> cont 62; - Located happy_dollar_dollar (Token (Op Mul) _) -> cont 63; - Located happy_dollar_dollar (Token (Op Exp) _) -> cont 64; - Located happy_dollar_dollar (Token (Op Minus) _) -> cont 65; - Located happy_dollar_dollar (Token (Op Complement) _) -> cont 66; - Located happy_dollar_dollar (Token (Op Hash) _) -> cont 67; - Located happy_dollar_dollar (Token (Op At) _) -> cont 68; - happy_dollar_dollar@(Located _ (Token (Op (Other [] _)) _)) -> cont 69; - happy_dollar_dollar@(Located _ (Token (Op Other{} ) _)) -> cont 70; - happy_dollar_dollar@(Located _ (Token (White DocStr) _)) -> cont 71; - _ -> happyError' (tk, []) - }) - -happyError_ explist 72 tk = happyError' (tk, explist) -happyError_ explist _ tk = happyError' (tk, explist) - -happyThen :: () => ParseM a -> (a -> ParseM b) -> ParseM b -happyThen = (Prelude.>>=) -happyReturn :: () => a -> ParseM a -happyReturn = (Prelude.return) -happyParse :: () => Prelude.Int -> ParseM (HappyAbsSyn ) - -happyNewToken :: () => Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) - -happyDoAction :: () => Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn ) - -happyReduceArr :: () => Happy_Data_Array.Array Prelude.Int (Prelude.Int -> Located Token -> Prelude.Int -> Happy_IntList -> HappyStk (HappyAbsSyn ) -> ParseM (HappyAbsSyn )) - -happyThen1 :: () => ParseM a -> (a -> ParseM b) -> ParseM b -happyThen1 = happyThen -happyReturn1 :: () => a -> ParseM a -happyReturn1 = happyReturn -happyError' :: () => ((Located Token), [Prelude.String]) -> ParseM a -happyError' tk = (\(tokens, explist) -> happyError) tk -vmodule = happySomeParser where - happySomeParser = happyThen (happyParse 0) (\x -> case x of {HappyAbsSyn15 z -> happyReturn z; _other -> notHappyAtAll }) - -program = happySomeParser where - happySomeParser = happyThen (happyParse 1) (\x -> case x of {HappyAbsSyn24 z -> happyReturn z; _other -> notHappyAtAll }) - -programLayout = happySomeParser where - happySomeParser = happyThen (happyParse 2) (\x -> case x of {HappyAbsSyn24 z -> happyReturn z; _other -> notHappyAtAll }) - -expr = happySomeParser where - happySomeParser = happyThen (happyParse 3) (\x -> case x of {HappyAbsSyn62 z -> happyReturn z; _other -> notHappyAtAll }) - -decl = happySomeParser where - happySomeParser = happyThen (happyParse 4) (\x -> case x of {HappyAbsSyn41 z -> happyReturn z; _other -> notHappyAtAll }) - -decls = happySomeParser where - happySomeParser = happyThen (happyParse 5) (\x -> case x of {HappyAbsSyn42 z -> happyReturn z; _other -> notHappyAtAll }) - -declsLayout = happySomeParser where - happySomeParser = happyThen (happyParse 6) (\x -> case x of {HappyAbsSyn42 z -> happyReturn z; _other -> notHappyAtAll }) - -letDecl = happySomeParser where - happySomeParser = happyThen (happyParse 7) (\x -> case x of {HappyAbsSyn41 z -> happyReturn z; _other -> notHappyAtAll }) - -repl = happySomeParser where - happySomeParser = happyThen (happyParse 8) (\x -> case x of {HappyAbsSyn56 z -> happyReturn z; _other -> notHappyAtAll }) - -schema = happySomeParser where - happySomeParser = happyThen (happyParse 9) (\x -> case x of {HappyAbsSyn97 z -> happyReturn z; _other -> notHappyAtAll }) - -modName = happySomeParser where - happySomeParser = happyThen (happyParse 10) (\x -> case x of {HappyAbsSyn117 z -> happyReturn z; _other -> notHappyAtAll }) - -helpName = happySomeParser where - happySomeParser = happyThen (happyParse 11) (\x -> case x of {HappyAbsSyn119 z -> happyReturn z; _other -> notHappyAtAll }) - -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" #-} --- $Id: GenericTemplate.hs,v 1.26 2005/01/14 14:47:22 simonmar Exp $ - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -data Happy_IntList = HappyCons Prelude.Int Happy_IntList - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -happyTrace string expr = Happy_System_IO_Unsafe.unsafePerformIO $ do - Happy_System_IO.hPutStr Happy_System_IO.stderr string - return expr - - - - -infixr 9 `HappyStk` -data HappyStk a = HappyStk a (HappyStk a) - ------------------------------------------------------------------------------ --- starting the parse - -happyParse start_state = happyNewToken start_state notHappyAtAll notHappyAtAll - ------------------------------------------------------------------------------ --- Accepting the parse - --- If the current token is ERROR_TOK, it means we've just accepted a partial --- parse (a %partial parser). We must ignore the saved token on the top of --- the stack in this case. -happyAccept (0) tk st sts (_ `HappyStk` ans `HappyStk` _) = - happyReturn1 ans -happyAccept j tk st sts (HappyStk ans _) = - (happyReturn1 ans) - ------------------------------------------------------------------------------ --- Arrays only: do the next action - - - -happyDoAction i tk st - = (happyTrace ("state: " ++ show (st) ++ - ",\ttoken: " ++ show (i) ++ - ",\taction: ")) $ - case action of - (0) -> (happyTrace ("fail.\n")) $ - happyFail (happyExpListPerState ((st) :: Prelude.Int)) i tk st - (-1) -> (happyTrace ("accept.\n")) $ - happyAccept i tk st - n | (n Prelude.< ((0) :: Prelude.Int)) -> (happyTrace ("reduce (rule " ++ show rule - ++ ")")) $ - (happyReduceArr Happy_Data_Array.! rule) i tk st - where rule = ((Prelude.negate ((n Prelude.+ ((1) :: Prelude.Int))))) - n -> (happyTrace ("shift, enter state " - ++ show (new_state) - ++ "\n")) $ - happyShift new_state i tk st - where new_state = (n Prelude.- ((1) :: Prelude.Int)) - where off = happyAdjustOffset (indexShortOffAddr happyActOffsets st) - off_i = (off Prelude.+ i) - check = if (off_i Prelude.>= ((0) :: Prelude.Int)) - then (indexShortOffAddr happyCheck off_i Prelude.== i) - else Prelude.False - action - | check = indexShortOffAddr happyTable off_i - | Prelude.otherwise = indexShortOffAddr happyDefActions st - - - - - - - - - - - - -indexShortOffAddr arr off = arr Happy_Data_Array.! off - - -{-# INLINE happyLt #-} -happyLt x y = (x Prelude.< y) - - - - - - -readArrayBit arr bit = - Bits.testBit (indexShortOffAddr arr (bit `Prelude.div` 16)) (bit `Prelude.mod` 16) - - - - - - ------------------------------------------------------------------------------ --- HappyState data type (not arrays) - - - - - - - - - - - - - ------------------------------------------------------------------------------ --- Shifting a token - -happyShift new_state (0) tk st sts stk@(x `HappyStk` _) = - let i = (case x of { HappyErrorToken (i) -> i }) in --- trace "shifting the error token" $ - happyDoAction i tk new_state (HappyCons (st) (sts)) (stk) - -happyShift new_state i tk st sts stk = - happyNewToken new_state (HappyCons (st) (sts)) ((HappyTerminal (tk))`HappyStk`stk) - --- happyReduce is specialised for the common cases. - -happySpecReduce_0 i fn (0) tk st sts stk - = happyFail [] (0) tk st sts stk -happySpecReduce_0 nt fn j tk st@((action)) sts stk - = happyGoto nt j tk st (HappyCons (st) (sts)) (fn `HappyStk` stk) - -happySpecReduce_1 i fn (0) tk st sts stk - = happyFail [] (0) tk st sts stk -happySpecReduce_1 nt fn j tk _ sts@((HappyCons (st@(action)) (_))) (v1`HappyStk`stk') - = let r = fn v1 in - happySeq r (happyGoto nt j tk st sts (r `HappyStk` stk')) - -happySpecReduce_2 i fn (0) tk st sts stk - = happyFail [] (0) tk st sts stk -happySpecReduce_2 nt fn j tk _ (HappyCons (_) (sts@((HappyCons (st@(action)) (_))))) (v1`HappyStk`v2`HappyStk`stk') - = let r = fn v1 v2 in - happySeq r (happyGoto nt j tk st sts (r `HappyStk` stk')) - -happySpecReduce_3 i fn (0) tk st sts stk - = happyFail [] (0) tk st sts stk -happySpecReduce_3 nt fn j tk _ (HappyCons (_) ((HappyCons (_) (sts@((HappyCons (st@(action)) (_))))))) (v1`HappyStk`v2`HappyStk`v3`HappyStk`stk') - = let r = fn v1 v2 v3 in - happySeq r (happyGoto nt j tk st sts (r `HappyStk` stk')) - -happyReduce k i fn (0) tk st sts stk - = happyFail [] (0) tk st sts stk -happyReduce k nt fn j tk st sts stk - = case happyDrop (k Prelude.- ((1) :: Prelude.Int)) sts of - sts1@((HappyCons (st1@(action)) (_))) -> - let r = fn stk in -- it doesn't hurt to always seq here... - happyDoSeq r (happyGoto nt j tk st1 sts1 r) - -happyMonadReduce k nt fn (0) tk st sts stk - = happyFail [] (0) tk st sts stk -happyMonadReduce k nt fn j tk st sts stk = - case happyDrop k (HappyCons (st) (sts)) of - sts1@((HappyCons (st1@(action)) (_))) -> - let drop_stk = happyDropStk k stk in - happyThen1 (fn stk tk) (\r -> happyGoto nt j tk st1 sts1 (r `HappyStk` drop_stk)) - -happyMonad2Reduce k nt fn (0) tk st sts stk - = happyFail [] (0) tk st sts stk -happyMonad2Reduce k nt fn j tk st sts stk = - case happyDrop k (HappyCons (st) (sts)) of - sts1@((HappyCons (st1@(action)) (_))) -> - let drop_stk = happyDropStk k stk - - off = happyAdjustOffset (indexShortOffAddr happyGotoOffsets st1) - off_i = (off Prelude.+ nt) - new_state = indexShortOffAddr happyTable off_i - - - - - in - happyThen1 (fn stk tk) (\r -> happyNewToken new_state sts1 (r `HappyStk` drop_stk)) - -happyDrop (0) l = l -happyDrop n (HappyCons (_) (t)) = happyDrop (n Prelude.- ((1) :: Prelude.Int)) t - -happyDropStk (0) l = l -happyDropStk n (x `HappyStk` xs) = happyDropStk (n Prelude.- ((1)::Prelude.Int)) xs - ------------------------------------------------------------------------------ --- Moving to a new state after a reduction - - -happyGoto nt j tk st = - (happyTrace (", goto state " ++ show (new_state) ++ "\n")) $ - happyDoAction j tk new_state - where off = happyAdjustOffset (indexShortOffAddr happyGotoOffsets st) - off_i = (off Prelude.+ nt) - new_state = indexShortOffAddr happyTable off_i - - - - ------------------------------------------------------------------------------ --- Error recovery (ERROR_TOK is the error token) - --- parse error if we are in recovery and we fail again -happyFail explist (0) tk old_st _ stk@(x `HappyStk` _) = - let i = (case x of { HappyErrorToken (i) -> i }) in --- trace "failing" $ - happyError_ explist i tk - -{- We don't need state discarding for our restricted implementation of - "error". In fact, it can cause some bogus parses, so I've disabled it - for now --SDM - --- discard a state -happyFail ERROR_TOK tk old_st CONS(HAPPYSTATE(action),sts) - (saved_tok `HappyStk` _ `HappyStk` stk) = --- trace ("discarding state, depth " ++ show (length stk)) $ - DO_ACTION(action,ERROR_TOK,tk,sts,(saved_tok`HappyStk`stk)) --} - --- Enter error recovery: generate an error token, --- save the old token and carry on. -happyFail explist i tk (action) sts stk = --- trace "entering error recovery" $ - happyDoAction (0) tk action sts ((HappyErrorToken (i)) `HappyStk` stk) - --- Internal happy errors: - -notHappyAtAll :: a -notHappyAtAll = Prelude.error "Internal Happy error\n" - ------------------------------------------------------------------------------ --- Hack to get the typechecker to accept our action functions - - - - - - - ------------------------------------------------------------------------------ --- Seq-ing. If the --strict flag is given, then Happy emits --- happySeq = happyDoSeq --- otherwise it emits --- happySeq = happyDontSeq - -happyDoSeq, happyDontSeq :: a -> b -> b -happyDoSeq a b = a `Prelude.seq` b -happyDontSeq a b = b - ------------------------------------------------------------------------------ --- Don't inline any functions from the template. GHC has a nasty habit --- of deciding to inline happyGoto everywhere, which increases the size of --- the generated parser quite a bit. - - -{-# NOINLINE happyDoAction #-} -{-# NOINLINE happyTable #-} -{-# NOINLINE happyCheck #-} -{-# NOINLINE happyActOffsets #-} -{-# NOINLINE happyGotoOffsets #-} -{-# NOINLINE happyDefActions #-} - -{-# NOINLINE happyShift #-} -{-# NOINLINE happySpecReduce_0 #-} -{-# NOINLINE happySpecReduce_1 #-} -{-# NOINLINE happySpecReduce_2 #-} -{-# NOINLINE happySpecReduce_3 #-} -{-# NOINLINE happyReduce #-} -{-# NOINLINE happyMonadReduce #-} -{-# NOINLINE happyGoto #-} -{-# NOINLINE happyFail #-} - --- end of Happy Template. From d58d1cdd537debcdc8470b03117843069f51fd4c Mon Sep 17 00:00:00 2001 From: Henry Blanchette Date: Tue, 9 Aug 2022 17:56:15 -0700 Subject: [PATCH 039/125] gitignore src/Cryptol/Parser.hs --- .gitignore | 2 ++ 1 file changed, 2 insertions(+) diff --git a/.gitignore b/.gitignore index cd7737b8c..e3fb03b09 100644 --- a/.gitignore +++ b/.gitignore @@ -40,3 +40,5 @@ cryptol.msi cryptol.wixobj cryptol.wixpdb +# happy-generated files +src/Cryptol/Parser.hs \ No newline at end of file From 823d1e49872da997b103ff09c17ba54d9c4a0545 Mon Sep 17 00:00:00 2001 From: Henry Blanchette Date: Tue, 9 Aug 2022 17:57:31 -0700 Subject: [PATCH 040/125] [ci skip] From 2ecee7b7823ab3db6d2dcd5da7f412d9d13b4b95 Mon Sep 17 00:00:00 2001 From: Henry Blanchette Date: Thu, 11 Aug 2022 12:02:06 -0700 Subject: [PATCH 041/125] docs for constraint guards --- docs/RefMan/BasicSyntax.rst | 37 +++++++++++++++++++++++++++++++++++++ 1 file changed, 37 insertions(+) diff --git a/docs/RefMan/BasicSyntax.rst b/docs/RefMan/BasicSyntax.rst index 90e31090b..61abc23e3 100644 --- a/docs/RefMan/BasicSyntax.rst +++ b/docs/RefMan/BasicSyntax.rst @@ -19,6 +19,43 @@ Type Signatures f,g : {a,b} (fin a) => [a] b +Numeric Constraint Guards +------------------------- + +A declaration with a signature can use numeric constraint guards, which are like +normal guards (such as in a multi-branch `if`` expression) except that the +guarding conditions can be numeric constraints. For example: + +.. code-block:: cryptol + + len : {n} (fin n) => [n]a -> Integer + len xs | n == 0 => 0 + | n > 0 => 1 + len (drop `{1} xs) + + +Note that this is importantly different from + +.. code-block:: cryptol + + len' : {n} (fin n) => [n]a -> Integer + len' xs = if `n == 0 => 0 + | `n > 0 => 1 + len (drop `{1} xs) + +In `len'`, the type-checker cannot determine that `n >= 1` which is +required to use the + +.. code-block:: cryptol + + drop `{1} xs + +since the `if`'s condition is only on values, not types. + +However, in `len`, the type-checker locally-assumes the constraint `n > 0` in +that constraint-guarded branch and so it can in fact determine that `n >= 1`. + +Numeric constraint guards only support constraints over numeric literals, such +as `fin`, `<=`, `==`, etc. Type constraint aliases can also be used as long as +they only constraint numeric literals. Layout ------ From 840449a80c1159cb74dcd7ab7b187c0b30e24eb6 Mon Sep 17 00:00:00 2001 From: Henry Blanchette Date: Thu, 11 Aug 2022 12:02:32 -0700 Subject: [PATCH 042/125] [ci skip] From 5e0d8a8e5f236e2b3cfb599f587d80b29a111e62 Mon Sep 17 00:00:00 2001 From: Henry Blanchette Date: Thu, 11 Aug 2022 12:12:00 -0700 Subject: [PATCH 043/125] updated docs: constraint guads exhaustivity requirement --- docs/RefMan/BasicSyntax.rst | 9 ++++++--- 1 file changed, 6 insertions(+), 3 deletions(-) diff --git a/docs/RefMan/BasicSyntax.rst b/docs/RefMan/BasicSyntax.rst index 61abc23e3..43acef714 100644 --- a/docs/RefMan/BasicSyntax.rst +++ b/docs/RefMan/BasicSyntax.rst @@ -53,9 +53,12 @@ since the `if`'s condition is only on values, not types. However, in `len`, the type-checker locally-assumes the constraint `n > 0` in that constraint-guarded branch and so it can in fact determine that `n >= 1`. -Numeric constraint guards only support constraints over numeric literals, such -as `fin`, `<=`, `==`, etc. Type constraint aliases can also be used as long as -they only constraint numeric literals. +Requirements: + - Numeric constraint guards only support constraints over numeric literals, + such as `fin`, `<=`, `==`, etc. Type constraint aliases can also be used as + long as they only constraint numeric literals. + - The numeric constraint guards of a declaration must be exhaustive. + Layout ------ From b7f6137770aa1c6888c36a757d0b304141c16728 Mon Sep 17 00:00:00 2001 From: Henry Blanchette Date: Thu, 11 Aug 2022 12:12:10 -0700 Subject: [PATCH 044/125] [ci skip] From eca83666599d422a54ff77422d96882e3a119e89 Mon Sep 17 00:00:00 2001 From: Henry Blanchette Date: Thu, 11 Aug 2022 12:24:53 -0700 Subject: [PATCH 045/125] rest of the docs stuff rest of the docs stuff [ci skip] --- .../_build/doctrees/BasicSyntax.doctree | Bin 45268 -> 53487 bytes .../RefMan/_build/doctrees/BasicTypes.doctree | Bin 24627 -> 25225 bytes .../_build/doctrees/Expressions.doctree | Bin 15217 -> 15445 bytes docs/RefMan/_build/doctrees/Modules.doctree | Bin 61145 -> 62133 bytes .../doctrees/OverloadedOperations.doctree | Bin 9434 -> 9572 bytes docs/RefMan/_build/doctrees/RefMan.doctree | Bin 2810 -> 2948 bytes .../_build/doctrees/TypeDeclarations.doctree | Bin 8226 -> 8414 bytes .../RefMan/_build/doctrees/environment.pickle | Bin 114200 -> 126903 bytes docs/RefMan/_build/html/.buildinfo | 2 +- docs/RefMan/_build/html/BasicSyntax.html | 151 +- docs/RefMan/_build/html/BasicTypes.html | 152 +- docs/RefMan/_build/html/Expressions.html | 160 +- docs/RefMan/_build/html/Modules.html | 564 +- .../_build/html/OverloadedOperations.html | 160 +- docs/RefMan/_build/html/RefMan.html | 11 +- docs/RefMan/_build/html/TypeDeclarations.html | 30 +- .../_build/html/_sources/BasicSyntax.rst.txt | 40 + .../_sphinx_javascript_frameworks_compat.js | 134 + docs/RefMan/_build/html/_static/basic.css | 46 +- docs/RefMan/_build/html/_static/doctools.js | 449 +- .../html/_static/documentation_options.js | 6 +- .../_build/html/_static/jquery-3.6.0.js | 10881 ++++++++++++++++ docs/RefMan/_build/html/_static/jquery.js | 4 +- .../_build/html/_static/language_data.js | 102 +- docs/RefMan/_build/html/_static/pygments.css | 41 +- .../RefMan/_build/html/_static/searchtools.js | 789 +- docs/RefMan/_build/html/genindex.html | 1 + docs/RefMan/_build/html/search.html | 1 + docs/RefMan/_build/html/searchindex.js | 2 +- 29 files changed, 12357 insertions(+), 1369 deletions(-) create mode 100644 docs/RefMan/_build/html/_static/_sphinx_javascript_frameworks_compat.js create mode 100644 docs/RefMan/_build/html/_static/jquery-3.6.0.js diff --git a/docs/RefMan/_build/doctrees/BasicSyntax.doctree b/docs/RefMan/_build/doctrees/BasicSyntax.doctree index 3daf03c9cc3e27eec6d870b537375685e4146395..0814ac2fc53d18dd1201440ce0dc5c0b4f577d66 100644 GIT binary patch literal 53487 zcmeHw3zQ^RdEU;<&dyBlORL8Ud9+fkgm!0E^W2qINZwtvl8_}qLZn;&r8bSN*?eW*QpKOnXBc8eByDhJ5wZl!wQLfsxif1+2r`zEU${yG?e<~_J zl(kIlC%(S1 z&EP?WmxNoICLjpf)m`C8QG#3@2)9I#&V`$6cEf7VwdT#RUMQ3Ic2Tj);u@blF>J25xP#>^3Skk;Y`d{lGKrM&M5adVl(UYvH8Xm}b=A z#F+AYpm)`Yf!2I=E9ZnF4eX*>K=y22pVO0wdO5JfN)zyr=%$e(vhwasGx*E5-5dNJ5Q}N zE#m{ALm2>TRvTrmej=fV2i4%Ok>X#7me^k5s9A=(|Ln4ln zbu4spuyUd+t`3HSj4?t$2f!tT2Rho(>c7$}OSkX;lG=v&?G9hFahz6E-oQqZL{w&7 zm~p*ddpha|u0S!SiZLr$u2~JTl8wklLiEW-Hcp$yt2bRQFdIQ_#i-Z|OqK&ctAHJg(?rkr>!R+ODW&~AhVU9v6NDT{;Nwhc# zRYQc9Gt{?f(^@dwlg1F6^*#?!&|`xCs=xIV~`6Ko#d=W_pbBBY6Vhw{_0GpO-AGY`n6N1Z%RW8FJ0itrm;6_ z8jB%K#X`J+g};h58<8zFqyay9*zeLro+9E*buHsVR|Bp4xqCnnO8=I^q#?%eN^Qm9 zmKkHe)g&*J%(Mu&87?e_95P42EPn#dyBH0Z04gj=>Bv#~dzAiKL3zqxVH#DFVb*LD z(L-hq%obDWGx+E|W;tvPNTdcL76m zJsMDN`2n?PEmuwaw9i^og+kQNAcjhAmPWjAdyH~Ixe}?;syiPb5gK*gpGT6Me@(f0 zjO{22|1w@-Vn)J(;;aUeWc=3oR;^|Q-35c<#v>#$NpT4O)A{55`Q&^)zH>$>593D% zDGKl0fBspdnWv4Y9b)^bgv`hKVKNOuc?R&Jz+wH;A0*25?uV&0)(`hj=wlmtONV7M z*(U)?|B<5!NWOBOAaVYLD&kZDoN9EnnJlAh|7f!PZ?C<5a}D-3r`AbB7hZtIy6`bu zA9^!N{x*}3R5@~<<1G3(%j$d*4><6%ifj z>P=DY?^U%^-}~+iwLimZ=ONJQ9!@INNO(o$jL^(w6G`G9r`i+;EQtnNsFv zXxbxXZf46p=8D_G1Sq+NyF>A+IDH@I^u4(_jY(VQ9$A7-+1&~_q+mbffFeKRxveI~ z@(a4R<+CXi*IP6j_Tw}pgyUDCp}yUyz!hcFuTuqmE|$;M!1*(LOc?9=;IuJog#efQ zyhx2s74AV`j5Qr#1{_~8)k0G@yb&~5ckzbg1}iylE!vF+O~H_J2q#O<1jm{{CE6!8 zB~+v7pl(eSWK%WF`xrb{XCky~8VtlFS*8p&duCT?5RNHXF~c)~!L)^hTFqS|0B`4$ z;5r~ap9QM!{t4ADEY+0~6}b|fmMW3QT;8TB6O>4W>t2>v27s~9QWY~eIQ8yn3KuvuTy(o%`B2h+W5MMnX~1l5VDV>Wc73VIHQQO@C$WP!BSiY7j;Vy`V{<;V0G( z&7M?+)1d5;u^03ywEW!Kq2H>R0}a+#@;V^<+S(zzdCjIt!($zlbi;Zi9ExIZT0|-w zk+x7+kU?e}6&y@Y|27XTobOR?&5#t7omKUQdTKX-)xbN|z-=AKGxUiWxP947z6NvF z620(QQ6_OkRnJI$)!Ok%8W-o|F-GVFeOv+XcmjZ#wF98X(w(=n!B$7drN&!nD^>0X z1;xN6wpMOSjgOPmfJ~*NjJ{~plQQ}mzTK^}2)ob%l^{JV=hZ}*QRjhN^q~>ht7Hi_ z0()2=frY;(Mha2n-sj4K;U$Mi$fzHf27BoU@XM&s7EUw4-u~$Wszs)DPNI0KpCl|CwaHwi9dTx;y2Ip` zERYf>C8P(YRc#E?C)WijELav1QEi4zFlF7(P~ z8y`hUVNxJ{Y8*O0eE=gOz8KAnn-Sx{bYXg0`>NZBLaZEK=D2bnnC_@Vh~ZPR z{Rfz?t*(|C#?%hdO8 zghSX@!nUe}TeV#!JP=KwN0f}ofKoW@@)0h8axL_<6z76E^c3e}>)jMFwHIt`nGq5a zOOt})^lfG?#t-w5n#sx!WC`YCoYCdwp*O)36J0U_mjV_R!Nxo@_4gF0LEMJLJIYlo z%`d|+8SAQnNo|y)npy}Gdw!Y1w_~MJ zu~Zu8l@(NoR95HOC>-nYPxN?!sy^#D+iXFbNa6lKg zlf-K?S8?Ms$V5jdOwoMBz*(iCTnu><&+Dgh(m~H>m#g(rkQPG~0tqWC^=aA;o)KOA&&8Qokz|?YpZLpT7d619!P zb&^dgO)giFjw~9$P&zzeG-t%S;(+{3V|u*LTY3&bob7P+&ebq z7r9zI@PY6Z_Jk_8j%F*BUk7IsOWY9GYCtOGeEo%PRT1%{oQNNhB*`;h{SP2if|$(s z3`Ij6&GdxdC4vU#JZ4U5a&<}UXkD~mqp%JFD?e5YufUVZYEk=5S?DM^i}TR z_NghODEx+K>C0+|FF5n4I~*2WH|wMSJ2iLJiT7wyOii}to!8=vi0npvr*l?I3x`Fs zqGM4B5_RW)Q~jgPpV1?$fzmt0_oDDuQ5g8kPVu38Fx1A%h}b`_7(6Lb3GouC0e_VO z8@)!lz~8tUKo?{GxFYZ*rVZjN^hNxnCs!|-A~lhvFzr=3!gFEMr~JqDEPCZCEWb&8 z<0(vUNy%ge{NReqQ&?SI^fl6ckvFm%;+51tV&G5cO7`%4(pBmKGXdXba=d!qtlXo` z4TOr?$#X4~E-0skojP-*W|m1E}{FegB3nkhb|StbSR)zwh)WLUP@Jv#nrf5LdUltAG$A@4=42mJYa-a z#apsK#r89*>S>+_`nWN0N%?Uu2DxDhFQP|QJ6aV>kl(Lach->%GJx1rXbqH%x;(ZLt_!F%j&o}iY3%qYPv1$78Y%u< zTe2%bwS8iodfUSs&_k>_=O#SjU0$Y|c6HQ*G3X$K!mMk2C% zPoygF175R7k2QhsGMI9JudHcOUI^3sI6QM1YQ2YN<&jzwX-SoGF;FExtD2JF`W@~EH+>vMjYzGfw(m`{2S3Z?m~Ad9pu{|*B4Oz-?c zV4h}K(~%wY=!h*LDAAh|kmm@cQRfr%$ckAE+>hl2HRqrLMB=DvhwU6 zJ@EpH(Knse9q{ zFb}pd6rRnCLMnBH7q-?;_NGz^-V-$S2>%OV!^<%|urlY!OZgjr961`j(zBZqW4c^; zVx)6PkL$~MNG4SHc}A^-3JaB?kE`o2zyVT1h5L>q4hu02Bsv(m$@;4zo zUu0UJE`!lP`|~X8c{lSbgyyKTln2`w3IR%H?5Q{ksnl7onTNieI~VDH%*AltNf`1` za{sw=31+`55BkDnKiwO1NvYogjoZERi$49WENeQmdyJz#N+_ZKrblj9o4|cGFSr}Z zSafoab>-`q2tm%*zQ+=5{c;}U1zVr*jkjd$CqSn!_RcTZ`gxW$ovoW|)`ARu@E7Hj zeV-5-b^eAPxtU79ekU)m8_HB@>%M(mxq8L0tj2u9j^ZGx?jc z*%|kstiti@Kb9Ocy(7$u7EqatG(KSr&^zF} z5c$6A6LR*_JY*22z(66)7so@OVn|FMb;8C?0l*P}Qu)aQIENF3GZ_L7PAZk9w0#N; z+{3_6uR0nC{uIl)4rzNeA%qRqdGLw>`>MRarqW@((sniWWHV{Q92!D;=%es=8vPKx ztkNBUzKq63cfUzY^qxwV6lsti)kJ`D|RqLGYUP@QF6 zhf(-rLTJ?aqda)Ufc;WlU{mR^UZVgxdaQfA;O_~;C=T>kGGMT&5LeSon)ZXV&MLtyx^u%A}*`xS>HzM$VMH$B6Ibu;bvM&+&j(UH-fS!{v$}nZ}iSD2A>~fS<@Yd;o}v4`M3}bm7rwf zi-g#y^96cj?lFWo6VRW{3v?#g_yET*_j-LWSHz3s%>51_7%?{)MgCqMjSNMoH|)%M`c8a#nKduFWtsid@((8vzS2NiIN$IUL5p| zX0eD5$60&>AsDeZ88tqf2YJEbgT3*VEdCSFX}WiQ!Qu&)HJ!yfPSWMvILf`uu9^^9 zoJ>}XK1E34PCy5W$^jASAw|9QQ z=o-tK&gkJguv?ZcTo)`>35vOGLTuD|8$EI}mwe~Ng1sN=jk#p+pMp}q(L29j?+01dboO3*yJh37(M25J$JtCL^g*%>-2Z|j0xL$V z$u9?|!z?fE%&cMX^a$a-wj$XBy35QHv}@vn_^&6xT4G z-UY@~>58%Av#hOju%dVhXGdz)B0#YY4?|4F#mMXoZ(oFT{2e%bG5>LnrCXnwH#FF5e}SoiRdd)Y(Umtk}gszBVt&8_HVPr0crd zq`L^i$R=Hvv`MebgT7$yoxL%al=^ef`1aoU1#@p@S<{)jSC|=gmPyMu#(2QSGMXkv z4UI)^kzkNA5QJtqFPa-I5Ub2ozL_wL1fpZ6@*n3xUkJpTdSfmH z;x9m{H}uXg1mblpYq~(}c*SxP$C}_^+_ZZdAz{|lkWc|CwUsyk*=3csI+0D{^7xi{{T+1~`Mez$ji!R$}6tm(}DDWUx} zcM);ipjtP^=yp5fpj7*`EJ_IeoRA-NzD|$aLO_UpEiYmlDg<;D44psHRSbrANHG}X zr<6!KFhMBL_pC$^g0KaJvi9-c0=))$=NE#oiDgX}guS=nW_yN=F@}gcj+jP3o@v5Z zM+!d0ifzx3;;x}-)DBd%q&rUMW;rJNC|Rj=16h4reN%U#9xQKDI7y^u$dfKl|Z zwNUio-ndIz{S|2SVDJ1wXiu@M=|Ven(p=tc-soMi_v3`t zsPi#;hbpc9rgt5GkVF~_GfIB*IkHNf6%V===dpR&`6XI3|It{*1wU$kB zO9Rex;CBPFn7fw%16Gd)8$V2sy7QlZk>IQPqZbcIkd?lj zanllaS`a88E(vMvpP5%^a9=P{Jl#)-92IJlIV#&@>{nHXi4U3Jgy<+ZT~!%_bI-cq zoMv!lmr2!ln7e2uT!jY&`R<=dx;iuK!gW`tDoK+RcKO%^US+wvOp41M^>0y9SSqZ) z=y}lZrTW?U!gvXecmF5>cjkyDxMnaHX|z-E{|<%kMq!ApJODWS*1;QZ5C_=GCvM)l zBf7;V0tDyCd8`@Hem?e3bNx|xNP92{+ROa`>cbuTBgh^=%`8bEUkE71c z70d6^&dU`lB(D-s>)9T<4<}T2bbp=wJGx-4>oi2SZs4*EOw7U|DB$8pL#|Y#rEsQ! zP8>5jHLI~0RE;rv%9@&>m2E5hY<}{fFus1Iahmtd1)pwcDmCb8s8d+~7M1Jp5NK^2 zb0nezZH-2&K96JF(ImSQO5W=oiSJZW*|1~}*HF1@zGDd3q#J&~wjb={)XaFGu|tuh~?K>ZaLFI8`-r*?rccB6Vj`VD;z zRRsg>pXLFL-KZ|%`kfyENtc!{{87NBiySEXo8qaQ9O^?+VP~_rDlfSw8s@3QYjxfKR2Ck=jZZn&JW#ajqrHJ6-~sV_y;ZHa zA+OVgDR)3}{t2YI)bN5d2dnqFgw2d~_sgogPmY|wlqk2lq{9lGV34w-s z_wQX`jk`|>z>pjX@2USt^3b?%<^fqaPZH{#2?5mr?)a1iRuXRs>$zj9I%Yn8xGq@# z;fp|Tq&W;<4A6Aph_b0^4$b9x9hysCCGDVyF-Tvg>o-X#XU|2c;?#@s=>lUcni1e3>hXyJi_hxGhzO6%*$ZO~lL@>C5-Gf($2?SJ zE@G?W1@82s&ph4*5Pm6kbWaeR1a#?9S5LjC%Wn0==D?K#yQUERGF%6?W_$?Y27+3BbV#4qXgO+xH^n#eHfd@2_; z)THFe0|e{upmfYN_Gf3N4kCs&bbwdUy!yXL78m*H%5=ud+ZGEuSQoTH01u?e4gFk z@R{SaS{Da1If*3=IiglH8^y1iq&YU9A4L&)%>~V|;}d7t?_f9rg za_dT^J26cb&>Wpvw`=T_3s&v8T0mo8Fc_7U2rpox(4lW6G%)TiV&$%)osjflk)(iT z;`g0IRjUi4<~maQ%yld%)~I?zJ+&vaSlS)&RDe3j-c@}J&Y@j-#^ceXn}qY?F7hJP zFzoiV3*1V#(hTy!xIxxtw=coi@d27v=8C`soz2}!3Pezj(?#cW`H*K(2p4-l=_0t8nJ)dggP9vJKQHpz6SK=r+2v^AfRv8KDh$}=! z5gSibl1UY)Wu^+>{qba;(xM+z0(6nSY=+{-)eJ@W4(h?sA6lMW7OKUUy|R##xTn2T zDpKFb*ML+pD};cNwXgt<$GJ|Ve1*su;7q7m3t^mAfPl*iO(n5T85)Y)&poU?fp(e| za~_+a12QCc(Uc?E54H#fYq09gn&qp7B>S?#r)h515+LSn2`!APG6tYPTJ#isMb!rD zB~By?XHsEmk*V;R3rS3+I2W|pE)>otu0I_Y*WT+NhhEL1dPTu3`7SYcY+~1_vzUu( z+JNF1!BpYwlS>A|D`w`4Gx&!;vojbJ6z{}8{CUN30ZK{^2^^EB7OQ)8DazoSYcMK8 zhnwvRLh@`a|2mh?X_a0S*^Eiy1n>sv+`UkIllBDP_OE_e9@gM%6>md))hJoVVW&cU9bSE3j++6qd(f^+co64!8U)nLJ?*?LU9?3yy|VF?C=B6ZWghLyAFJO)HljgteVAAic8q$SuEFZ(IntSb5Q}Aunn#g zW*Ca>2tpjT7$Qtxldpr}E^FBaq2S@Qe35A|9IROLtwq$gW6AVrh95a#F3h!@^(1V3Kk|`HtE~=eP#S(5sMIAuZWrZO3m^>WCFDuw8Ncl zD~Q)J$ZBbadlFv~RXEQg|eO0i;Lu|oyT*o@L!Fe9=6G(i!&Qsh%D?dq0rhuI3;qDl(;ZAjGi zN~_*1N~r^3S%M9L^BU-vQO!=40_rw=V!uji`c|vr7MJTJPZ!Y?ifO{B=$oPS3yt`eM@LbC!&F-Z zEZ^#xOY#*Wx{Fi_l0z$Fp#pU~XrH`jf4HM*HH-4ZOhRTGrO;Fh(~R&X)gWm4w@gnX z*`I2z1XZ^&<$8Y=G7 ziR>B6o5InS3#<+3{B$*_*U;EVV9rB}usyhaVmRCbnXDJ3dP)R}ev>5Rsqi9hu8LJ$ zmtJF6riYtrE{Xm&AM;T`@wF}JwGTpF!ru97vF2j@#7VoSTs0|(W_euSKxIZkn$2o8 z(Zmiw7uW&l&+WidkRG>;RlJY^VHhqZQ{m&Ruy{Uf6oT;5T41J)o0&<1%wSb<1uDD( z5UQ3HppnZkv@*{Wt-5K~iZ~mB7W*);cTvs6a*PWXxJ`R1+{SBQ)%z$tU^ULRvGFV% z=H>YY`xw{`JchaAe1Niew`tyDI^F8|WKGfm-3;J^vPHtnT$vVS0s*tte{3W)X zIe$Ta-bVGl1%F!M2(`xs=zxW{I9GjmuKI>K*47+rXO6Wo$LgPBb4yH|fvE=???>2lR^$z;)<^Tn_SA=@$c; zb`Ua<*+Ng}Y5L&NpFzTp<-3fs(0RPh*9ghu^jgD`7Pc|O`F;9D%PpOsMl^@5SaAM~ zeo=td`FWxU^Q^+{x-Ky$Z!gE{SUQoaT#rGxlC%+6p4%I}?+&N#LP*pj z6*suT8P^DvxrSmXJO(7rEKbh0U4Jo+TUK{Y$(4E<4)R!!eBof^TJ(jRN%Gs_=DX+a zyqEfS;g!KclG}CSJro4o$LkBXN=h)}u{9c(!gwu`-JorcF5E3xjrJUQg01sp=RlG7-*;E;Ns54d>2?ql=s5y~W;g;KM-z{4AEj0pru|seG+jz=ZB>aiD z@9!{rP~pySQ_BVgL8r2#(pMP>HwpS?!;Lk!;dEx(b9R`sgTQm=+5y@{?HF)NKG8f> ztl7SghxmK2Vb}Rz!=-jh-^|&?vz{|gFzs+Cu*>wSQyHyXS=mAuD_4cbCM(UlGg)%& zpjbKUPWoPPvgj?ff@W>JZu^1bO@cZ8nc>qbn9T`Ud=eBmQ59|6^!SWglzE z0S;c-4^oCe%1F4i=7MaymY=INi)W*98lATmtz-DV-&(@|^OBsd=bEBTpy=i_I>M2~ zdhLkcvPrRqTb|=P-Z}g^INu~)dpsPj*^P4BF5}sd;4Cz*;+88l{15WBS0>3)dyZAE zV(l0KQr52aoTC^JZYf1MX-kH5J&!ObrzNczlp?FqQ%fz!y3d841Z}iL@hACQ^T!5; z{K_PDIwG-ANNh&w%2o3R%GMF zay|QAjQp7>6PZ7tayX~cB8%9PB z<+4!T>Lz{=!WYTt$p|HNyyTfWttx1yS7!Dm@b zuWUEm^G?Z{vwi$-HY~SMf-hrsK9P$Wy|v&56)UJXmJjz6g|p_ITC-8Mf~J05CZrR& zyWs#C>HuC8Z|#8L9}yz{3D++!*R>^m3YPSV?3VN~;izAaV$7mqZtP8oZYF0z(;Uyib%}L9`>aL$ zeO`7&xm=mOSdx~$`U-T5$o>7|8r|QXNb^1}z4ZN~a1Ey_t}pDMV#7KXnlXhw0Ea+I z?^%WUf@L?zL5TZu0hV%Wtwwg6Mnq4h4(Co{?tuYzudXg`?$oq=a8jw=fq?C0PjFfL@C*_J|)koJE zrU0dqn8K|Wvy(W;xD_EsJV-^I!kt&Lqu!lrI1!QzfT^S|&!y^C_=fD%ZjP97gtpk@ z)ly=uh>|z2+J!{uUPC2atsDu5#4sjm&m+oVNvj@Y4onk4=2X4G-1h1rzz|ku-#P97 zbX8&WX%~S}%T7^?p^I(ZREfVfLYzh+%Yra8r$sJ@n8$U(2yc!L^FJQ zvrcIlHL}zXRCic?ifLx`BXnU&ij1j%>W5VcHrPD~T2#~$enSS{e!JCbdV$YX-YN=; zq~`g7?FD?uQYcLBLuf$Zi-Z3(jL8)W`z8yB5a=OAFNX4fWuTGa1C3^!994*DgT@9_ z4cyOd6oIJfth&7f?`R?Z2r%5Sy*W4VY|pJN>0smF%9|8XnAMbqZ}~aJWG7Du~_i2pGp8gG>4IPAVO$-zBPTS%l&^3n1H(BT-`6>GLP3qbheZR2^`rw1I zsDs87W-XDWJ(JP)OeWj&2dik$PhEJGRn{G@L*+fVq&-=h>pP5+(rG}`bRueQavw$% z7~`gJosRTSy zH4{Oz)a-;KbjedTJsQ63yhEhrEpik4z)E3?V-=k+-gt^?5IHY?6Q}?04fKo5aP<|y ziE;W&v@59oKYGEE`Im(wilm5nMjoP}Tl&dm#r+)mfmj15J;xvDY8bOGWrb7I*wWu| zJlQn&X3$0Li{<H89;_9diZlP9tp*Wp3*SxSIFopMTmu=y>NM0Dp}$5Syv?3q%9>doLR2s}oY6@>{$R0$R) z+#c19`#*r@%Wf69JV^`sW#sn!fck7oWgxS`G6Ka4lBY%V?!Fj6%)6Kt$*IRyy^TWX z#~lO@jt9qT-PtJDT)$$~oB-vhrZzICo?oPl=2)SSFBJCj%5pkus4DbjV9-?)Iw8uz zxOJo`N^aQ=4&=HkMq&m;SV)o}6ANV5b7c2n4#{_nwAlHl3rAV5{ z`HTaW&+@iQjHE`BwX;pxU;wtfCUVLM_PlYPMk(c3-ozU79mgu1aF!ODUJ2e6anNmT zw-$_}&^;~8+XPL|FXZ>?Fz4Y{Qy$u!!&jFMsQL+|xV=KJL8dy=arWgk<;)SCLg9>o z7vX_XTo#^M4@J~;tyBGL+LQZ?ksJDRoZtG0X3V|5aUWNOwJWsUw24Ap1^~lwB_B z2LI8Q1~vx0UL-bzW{c$&Lq)rlSbGs(ekY$yW7Bkzeo9JY+4rgq)i3krK4)Myg+N~< zP(BlXH;8|R6^V=v{wc}B!Vg`iF3*6xXZ&gSYBMx~wQL{R>rs1*UHU= zrx`9C5JuQyMT0d<1Z!-HO9W0lJ%NN$E*hlK?3|9$#AH{A&u+;H>F^?B)lB>WXX49> zC0UYyGNt(rD3xR;b2&p|z!Gsd;mgF(z@EcQAx$POSVe@?h}6ptJQF7Rv9w{y^4fe^ zL7`Y_wk9fmfmS*Mlo>z_9~{X!H6OXWMFjGVoI9UGTzw8jF^gTSwM$N}-Ym6iPR?)7 ziND+iK=hi7>nX~;|#VsKcNB#5e zVvS!sej(g-4EWBWN{mVB4iM#N)Pl4ju;xn5g+^{pO)>wNwq7Y1^NoW8=`k_+M)Few zfQzV<=oda108KVjBNrlkPz2RB##gw^GVx5DNntne1{mW*DA?I(OCFL)vOseZ;*p@6vhN3cv51V!xImQ!$P0g>#xL_ic? z;VdE*6X-P_rTp9y3o@~Aw0ax}tGn>a4=?Wth#>*Mh%OEmiz_}9k1KeGC?a%Uu2#Dq zfwvqy@X3LS<9g_j{3bF)=ycp*iO-p#BSp#^2Iv$Wq|b^-m8pU(H^zezTK)<+bXp1y z%b5e7^g-s~i7Zt8xA%PVqS2-Fr}|d#5w38SE}6qS8JRp9@#(Dl7-S5O#3jP5M-t+f z-Xk~|;i^iG_I|0UEplpYTnyPCtfuB;o_`J+&oFol);0xfwPOzgu|lEPtWl1z>!n(= zoE#TY=D4=tmV!#>#9r!O0#4pL8MR#0Y&GJw4Hhq${DK+z7k!tY)u>50Y_-cn&{SgLQeHxbpyYzTr z>#b4al=LQ^YNDUzH9x~@&QA2_&G2!ewZBa21_|*APDPlZ)(>(}t~pHJbInq>@W!f7 z0x-^{v2@N26$;0W&4>hCY}%*#UkE8*jXeMuog!hq%AaK*n=iYm{)rh>DaT__j_;V^ zC7)klpy^E<^yt$AsTAT)E5naa1(5!o8EK5jADZFgL}pTk=XrZpEJiFvI4$QFV^R#G zZ_wBDpH5DiU%k=jE#;)$m1a=IBP`dizRnCUd9;gxu1SzHr~*ijnvuqce6txoPULzE za`JR9b0k5kHzdf((+P_#WN3)6$kS#}#iI~BeZUMadGvM$x+XzBiYkEg5i`;lk>}0u zaU$1Mkh{sTVnI})u!mocsaxDLZ#33rsRSY&RsXSL2?2jLLj#3?Kf^$wCViH!gl@oB z{;mr*k*RR+N#g#}8gW;@hzgcL&ibGTcJww$^j}|J^n0R=AHbbv8td%7vr_b_s-?8{ z!(hm#GE^-hp^r1rbkiE8tfwBT$T4=<^;~y=KR~r0)bSOV?h8h{NFLIKVY3;S~9 z`+D)58ZI?~I@Y6a)Ww+f&#eY`#P6mF9LQ&)$Y+wsgLOm>$IFaCvV8z|iMD@WebLV- z8wBSEaF;;;iIt*Hbu!9-JqcB~BtzB0@s2Xk3+{NojA}v1b7n$fggPCbY;xeZ%M7Zx^EBC}8D4T{ zl!2y;aAVDxR|x=qqr;z@PytZhU`81u@t_$#PU5->5LS5Ibv-5c4r-pT!t1U}i12|7 zjSyD&HZ!Q=&&R>fd(H5YKld=ubP*b?Z~;{SY1@o6Mxr*(GA_xc58y7LO1*~VSmpZ|M;I1LSo|U3cRdHoK zpN6$PpMkL=2>vG5o78!j)Qax-(!e>1sjXjYxVyPf*w2y)2}mPAph@dWB%rKnT+s6_M`i1fh>RSPY; zpMj=#6scPD6euqrzvH+e3^zTc@V?)B#}S2Qsk*RrPTH3!HR_pRSUNmFwk_HN{w>9jS7JBc{9ow ziQhECON-(prnY{qZgJ;WyJ34vdtp)tO!52O(vl#$Vfj*PPvjZe{u1Y5Y{v~li2HXL znlEgQ*G}piF*&Ju%b=FzQ>k}rve_Kb))8X|CX=DO_EgR*q5c9G@wXXTCG_rpa-OA* z(G0%)02%_M`^@c$5qZ5CUTPjEGPV72%}WRU7GJ-`*TyXm8g8TooShT>wDhjY%ba1W zt#lds&g(G$&MW#k7nL~8OGFkcV-H^J*{cgzKg(7?i=BJ*XNhbHvHUDiFAxTrln=Sy z7UtB4o8mjgl<&HBtB=Z0(PphR=bTg1-{#eS(io583DY^Gj@xAs>6SvX3Wy=bdd@mhG#h)~_xRn#De6@jDg6R`SKyzl*RM z-^n}#)l97Uj4r5-sD$FNREbM_zSLy?G$-?YxR|1IxuE)&LENJZzS`<0Y_+SNw?tMw zKgnxvch#P0{q$IOO+VXJ)5_P;W?C%$ENAC48Q3WoOFs*Ce%=f(ee35qZ&Evep_6=z z3#kO^Ud#O(oY3DjBUYUN5&AVVe4J42JyRA)|5Aop#R6%e8h_X&&{eFAMyw$-d9mQT z`Vuim%*G`1d*9DMtB64Uw;5D1_e)^z-{Xpx%B{>!h zY{$i9|59Oz)U9UtIH{TR;6>i56|aqs1dVY)9;DU@K_;`Mhch%m2y)5{ss#Bf;Lf-i zUUFw215Fp?=KI=n`0SM*;UJn5d#1&CFRB9pZ#5GTBlx5lK2Gp@i&N%7}Zgo2|}DLGpORuuY#L(GrZ(Zm4T*yakAH2s4~MG7wWUrIw90#-uX)znjnPwj2TpM=hwl_&zs>TcRt5J(}g;G2fiBg z>5LW87X3gA@_AGQ)Za3rj*ncb}n)gnHzC_LAlI)*Mrb54;p%Jp*G=nPs z{3iJMH)eRrpYJiybWvV&yW?UP#4@%W<07S<#h|+uj&i`(W+kiL+RLO&JEULI4XpD9 zJ>P=h?VG8$jhR7+K1|vNWgn83a0M%p`X!spKJeO6$(9(!N(~dw6+Nk16Jz++48(|h z1!s6_)iM>ZhTi{Lk#>r)w0az5O3#vZV2qU1UN7~N^IWcx7Q z8pfltyW406RUG;nINE21mmK>041#^VwCY;3j9h0>sas=oh?I3unR6P57Wj3CeYuY;?%n&Bmv zW*BI?HSf92rA_tGP-_esXlzl71U1w3vBv)Cz1W3T1&EjS0@d0c_I?kNOPr3_?AVql z4mHw%`7pG)R>sbHhBga!a$FR5?$wphjiMt}YhtXnGoTg0A!l`J)oTq7;eqP*Vo!Da z6bKdSH~<*kaK^oVk)auad!I0aDh~Y~IQq01UMk~98ECpP4xO|Y-Fmw&^+DY$>#F`b zssZ9(H6xA@`kWa)PUyOe(rxq<DrRqa;(mG1UbDA+mPwbP+1ndZ zXK&;4ld;*`aJQVI9jA#!K8G6FL{{&{sQ}pwq?l~gGi#~Sx-=u2GLO4`R?KbQ%@1`| zqq^=FTI7eeGLcWyWks{K6RHH8t^I@8Z0%o3Qp9$rYAf~yL@@!*ufq=Jb1p6Kz+TYB zz^)yT`?1sB(76f@gp~WUEgT^ z?3IOm>5kyz?Ws8=S7`rEi4KpN;*r4I5c9vNjF%&LIvA7ohv$26p%DB$t0zJmpBJV~ z&Ck3>+N+(@YlkE_l$({V^xBObgL9IS>|*+-=5#Z7?1thQ19rj$O{8P^qC(ddCSPQt z4ho~GYwF4vbq}tBx=BV|cKy>R!xb0J)Iu4>fOGv*$#A8yiWctZHWuY{!X7VsP^o=$ zkLg|20euT4r7y~|?dPS@{jsHclG5${QW0Ja!3p5|UWb5H?hxlv2-0#>J>YtQ%}w*4DOH&Tu-llEmCiCZ)jV|5jT(Uc1*m(-1#6(i z<98-tsH(dnPFWGRIL~(Xj)M0Fl^p(YYqruI<|{s7P#nFPraJ#Txu2$1CT$-SyWGfQ z7rm3FTp*UVd!{rTwVk-$!0-N_!hW?~-CB3QjjlD)C0eq(wy;e;rXtbN=WraGrPfl> zVlCT3=Zwy}<}}JQ%5^84i37CuYKia9O(7IUybm@W;(cz;r!!Xy4La#KZ8S~M2DYhn zJP+j0d(Ao>cEgU{24iqUHcrANyrO=BrWIxrmh?G%hhvHu-t{W7Hqx8Cs${?|K0^*Q z5_iTXSwal3nG#6nF@QTwJhP}@GguU@*An9|!o^~P9Q93HsdQ~P!c#x(L0RQ1a+O>- z09BME^(6;{|Jh6so#M$_&ZzmFe*jvoyj=JXp*20EuYGM=Eb?b4DP3xoSmbqgi;|>^!7N}Lgp#3VSlSxTWU1x zINc5B;9~1;WH4v}2Tq1lFL0~{G6y~_(V@%+Wh2-M^1@;Pl?4k9G9EZF18E+1I2^W1 zz@A6U=54E3Yx-0lHbR;y6ee=L;sTASM|_3MMk2oA@llQr-(x55VM#ol#Ni-OQuc79 z9PF0vbgek>syjj{c2RQS85HS$FA6$1y=~j#5l5_FU)242au9qu${CUntY4@4S-*a1 zFVROD-1~hG3ga;mvL&QFvWMtDn%o;}pP5h@5h+?n6UrDNv+GqB3Q3g}g%8i@>X@fE zwh9X0_ZqMa0HnKL(9`{{C+Uk>uiG%nND!!t5cxe4KenmXkH4U!`{UV|ul zh>Ef@@#p}N0b-pS5;agvBo+EKK#Afov!}9wy%~C5&2p_n)bqaSLifCMXt+G2ly$c1 zjQM%73SDQSX!J~7BTwC1V~?y%G8;LPp^W?sg)W;q!BAGo289pZ_<_aH&$Y? z%vYo4cjz*52q|Z?+3d8$O4GXHbG;mvX47bilDKr1qiPB}D;XQ9G{jtqHqu=^nWLp2 zE&~95pGj5zjEYsxu2_VRsr}18o+8t>^JB_@9y*uJJ#1ahJ%k^lJ_zrH4fGz zJf7Wf2@f;evlo+v+FULw+8%t(rldRLN@_kaeCTZ~&6bxUQunIm)n6hBUs?Ty46@P* z?~|7iCI5;GP0hxKS4_?2r|^Sc(^ClX^T+XnUw7Ur2}prZBr)CjqJf?ap>~8u&E9aM zTS8)-EpK1r%CktN+l7A^m;QkxpiR|6`A&AmKHjD5gob75k&3q<&FL1${iQ~LZ*uga zeEuA{Q}H}e;Q)^~**f=uv{7HU$#1s3B92YlkLa<|7j7%Iu~e)PzZU zY&h&Y0nI1-op48~S!@Sx&7Z)^GAvAJlse(2x08GG^+CI%v*AeDX<+Gl(DYD#q+|z( zJmAJ~vzepGqwce~#S$l?Cg1jIxZ4^ui}^Xbc$VJ!9ri^=c*%UT86e7WB5zLggcJKSM@=ut zv;F0;lU|5yc}?98hC7@^7mPv-*Y+jQU^rNE=GtY{w{5}pX!aZs@aT0s8KHe^9BNVL zv2dH)z+P{8?AO+$&z(ErNIRGxf77_{;_s{CFY{Qx*Yxt36))8s4@@Rfi$NzGZMK7W zErYCAWL5re~~C0Zl^Z*U{nPxs-aCCtl6|1<+fdR!0{69 z`<+H7+=&ywn_ekja^NV%Tr|mQk;XC&AZYnVCMOpb7A9ItL8aN4XnN(zl5=hnkp5&R+(jj*Mk?ss8as+O+*oUphHvpP`xE5f z*@pT0D7ll}^V@u_iGdL3;O=6@rhJ#4{WdOz_UQ+JAepU5x^UQHzjA@?>y28FNr;E*mcy3$Ea;y z-CTXvSz3UNATNUnKlxFX-X0RQSD&DrHvMoDeIrz&DymlxY}kMoyKupaA*zkP8LNH= zhFyIDzbX$@-d=fM<^1zTX|r%^1fMyVV2cC%W9rwwa&5{A7i!6vYKYw6^qI; z^0t7y1C>WBrx|UP_jAHNOmyxe!d{`j7>P&dmbM$M(tf0zM2m=JB+^%Ij6^oPuf9Ma z&(N>i353DjM|`ZioT?)evba4j~uGQ$PTlmh1Dhcizf1`*HF7D|5^Qy^oxZ$ z;nt{qFi~zTy8L4=vPAxbe3*pex)FWC;h-_F5}Nl^CdWW8O*~Z4Be5DsBvw}Fl34xd zj=X^Szg@|?#G4Ia4j#6M-FskPop3X@iLF7Kp||MKhi(_opCT>WynVxl6FL9=oqNfv z*&ZAiRM>};=ZKZVjXuV4?c4k%A3jSy)v>@JVmtaURh?un?k@``?m}wNqmJIO?-C)$*4%k%oe&59GuMbM{sO~gCkX=j!~vG&}={|D;+LdpOD diff --git a/docs/RefMan/_build/doctrees/BasicTypes.doctree b/docs/RefMan/_build/doctrees/BasicTypes.doctree index a7ba5840b4c6eb112f5413ccd5b0f38c8b308254..faa49b9be86c82fe3d1c8262696b6337ffb89e27 100644 GIT binary patch literal 25225 zcmeHQeT*bWb-%m4-M#Jmv<)Z2`b;0T<2}4Pd%K4boX(ds_E{o^wK<>R#QB)*nW@?C zxt{KEchBu^93!I05tpWSyawXFSg zESiZI26=OL(w%aruMOthnRGJo5?>gv(t~ezVy|gm-t3`ss)kzoFN+Q8zWDNm0b>Jj zccfE22mL1l_qKGVo+Io|q*EE5E9rjU3&dch-*8gPNs`EG^b>SJcRJx(IW3zB#d*vE^PMEhM%u*kGvQq-atqr3a@ ziGIU9DA}OtcuWA40+uQ+@6>@m=aBw98YX7^*! zvfE)~_dr!=%?sA-Zr@KljKRL)_HNB*YWh@7T~Yqova6?QZ1_QC)FVmoZxjWBWTM3c}26bl+%f=(No7MgXP z;V@KlLUW@Ri8uz2bJTz+H8%P*`*3XEX$YU$=ST|JX1{o0i)Z_eZ^hnPfFWGmaJt0s zvl*9PCHBigY^^tMhu&NmU2o32CspBHU>0?~HP^>)Qg@;?nx)9tG0#29Vpf}_Vq4VpB5A1RSsLQdruLX@L_{VWhBOl(!_s-N z9fXPP!SqFm6C`Z*yJ4Kzy?z9AV3Dn|HA`PfL((#{2KI^ZZN{Aj*PqC_{%3{`lCd~t zKlG3-zZh@u720_@>I=&#)%BO>m&&FC^&fNmSPU@|=wYkj&^>H<$MxC5%u9Pih9$?g<1*=9{9o!+#aUQaj?nF$dIC(abxl4hNKIJ2?i z_gpwI3H6pifid99HoMR@#q1yQQD{cL04Dv+_{w~r!P^Rd{@BA!_^L5k)yH@aR`lEY zLZkFCz#fc_5-nXmDyy?^G7q0bi`(yC-r^-Y%DlsIcQRL`>%g%Vw!`RVk_5+L-Pw%K z+BZDM>S4_#qQLGt36_gAOGGpg^?7V?lzp%1CE7QE+v{W97)In|U(8->xz(>(2G=7G z&;uI++75j`T+bci^oJII&CgGQLBBRSKb4PJQ+x$K^?dQ}xupl^?d8*_YNw5v02X@b zK`Vc?RD893I-dm4mJRu7`}rDNM{1@-@)khWG$4EW*F+{%$ zlgzDS*FhE7MFPbh8g#*u9utK9F(`(R%R05HOaEWvsG0Ny5cp5W7u2^Ie9?mXRi@-+ ztV^D=X|-#gwcqX~^LEhhHbjJ{t4j}Fv!AytI4bXPe6J;^J$7r)QX!Lp|0_IoyJ zZKW))(9vmGAcg(PE*176LooD=^sQktlF}ngNEx3=dEvi?g=vYWn=Nw@wC+hcJ<3VyA`AfHc74P*F`>zT)!9s?v-vKj7}xeODus%ymPe+xEQEff z#;k?t>kxpijc-tX!jKznP<#XuAH#ZcZezZVRg%47SuHQdTC^#av-Qjd41%2CHt`Ls z6x5%}VOduVJ!%Yg$0iIu;`Q zyOg!725q#gedMy+hseO~S{JtKV4`+%YVfqqp?bt6S2yC-)p?SmfT}hTCx5o@HLt^G z3mfF4*^Z^iD8riU&yn287}@<;rDBUkFF;~iozS|1B$D9QPOq-YS9JR!LQqH6R6POZ|YcrGO1>edcR-j@QQ6cZ=sOQ-etQ1vMqn zr*#Y_P&86dp=~C#T%lNzEUbkhESRwVQ97oT=Z!lfY!Gae+MwvWODrmKd6FrhSiHBb z;WK~VS86 z?98>fbn(e|=8?}I5VV|RoevTJW;;JS4jWx%QD`qBi-~9wrN?9(593*ok=}u$vH*;C zYIDyqGXpFDG&2JznphFwJo}|(j`vr_8ZUyJoloQ~IL_HEgn=$y zhMgkj>1=>}DG8=4jaDHc!Wtg03}2Fo%iUKC+g$9v<{s;<0IkXKJCYo~oeyr5{0+ta z&>#!Qk$a_Az6o&fC$oiUwzjn*EN!yg9U~AZ-A~k31hW#k%^bXfs| z>rriNF~r_a3Vd5Sjo2b@4h1468q4)OM_`^pE)B_w6iVz~N9->@WS`+S$`OW#EU`Ru zT8Ar9J3;N!=z{mPNMyMqmP$$_@xe;CotXTH$ykR-QsiC34W~umg9=*S z^|IMDg`+Z%j-3sQ#{f71km@BAOvTU@7((hf6r(Vsw*jt5DicJ8jf7JMv23uc2qK#t zUS&Ed^^XkGa}&Z|z#l>3ce#d(3dY2kPLB37BfoVv$zP2$nZRTlU~iX8w*^eY3(`o$ z#ypk1Gu6yfSyUrmTN@=gEjwSA=J;!4nPZxr{vmI{*!-+H zJ6(AJFCW%RU$`Lf!@UjBTJS}%hAf~aw!LJYC9R7Qp`naT&S@jN6(dKH<1fgf!y`x5 zQH@{(^guzi5#JTq>H%SB9C{5Cyu9qtK70Cd z_YB$mb}pOJxj;DLC}-~0kqV2%0L1#tu*3v}M=dz^1{!rXH2+hARlU^uZ>lX3fI=Kk z@7zu(buSflh76_i9rTa~112EbIp&Ur$(URFib0w2FyBu)qamj9c^F28@Wf26W(u!K zRyz%eaXT>~>U2PV1U+GRYhm5KiAQ^)b zSH>DsS=RQG1vfC4&pYCWKnCPuHP_AwJZUIQ>+8G1s|H$+F`ekX({Wo48|&y+=mTSo zvTQ#sJqH>iFiVGFSFlJVDQfamqCcILXqe2AkB)_FSyHCt)U08qs$@qT$!f~^TwyrL z&l(ov_sL!1_lBK(h1@GlcdR;OMB39;u@^JWqE_%9LQCa37FO^J6MObt6-)DCd0w26 zdr8^)7>iNEd0`(9J9h%-6*9NcvaTjeHpDtvE;qc0^b4e_)ApRIbgozn(2Yv=oY-jk z2$NtD-3a?Z>y&DiEYl7POuhUmH-q1WwBx)sIx(vcuRV`ATy1MNEo6JB#^r|eZrzDm zZtj!8NlE*6k{R?wID^Fle^5;IufunHcpyg=}Tw~ z+I+d>w-gt#`)SO|@7Y%~HlNw)`MXl%k(RO4BQF)7zBR@*5zmO)iM&a98&z9yeA!(QesWuYU4FowU(3DEft@n^R4U*oU|2Xf`X!rw&8|B$?z zNvD!EBxLoBC96Ue=_H64#y!#8@^afm1f25@{dKRExP!;<#&NXHG(1dnw;vz@KGY1Hh2dg6>&52dgO2`ybEO-^@|efBlPi- zP`|+VjDdQk0(IUf@p;1tP*2FJQj(bejj*-3g_(1mdr+}RtGR0WA@Ad!END=OcXWEx zC0#FYJl%VbHppxtBYHO~302lqfJRl*9v$FRi?+`|P_FM>zmo}y%T=ofdOSBdNJ?(P z-wt?@retQj*IIl&LW7>|`~rQ9I`+bVetz5mjU+xoj(u##A6Z>Je;(m{Y!;k5mr1}} zK?G7{&ruacqJ8Jjm*n7cN0uO*J6FQ!i>2n( z%9;gKBu16g&Kdbx;P_iSf@;v2Wc~(Mt(MF?o^p{MY|lk>oOvGmOYP*8qWREwS|WHi z!V<&ea`;Ovm~W*4&vxE2&bSMMIfIrv%ofV}%fVFAX}5yOLU-@bdGZPkQO=VP#d}MP zf8RI+P!{q%JC8l5)$fAJPwiY^(dtRATFv+e9!6fP+oe;=HuE0G4A?;7upah!Z^&b( zHs!PCc519PT1+;GJhPn}^fC6FN<)vw9r`U5lY^_P7ub5896q7K*}{8ex%OTt3Ck~y zLk1-*A7cuTmuA?l&Yc8mwnHyX!WL&!pra6__9si|e7e+lB%>wKsibl)yT1nvUu5*F zL1%O6N4RRW?4FS4!ShHx&VWQXggS52wN$yZ?odn1=U)>EW;=g54kZf1`_j0>tEAj+ z&DdecUnZc6@mpO!s-Z-5--WV_{_8lTP%`>WrouKdN-wvUQTU)I6|MlV?_^m@zh7!z zElSyBFA=JwboUL`YfasET_`E5L$YS5WDzlEz-i}Ts1 zIoq3~&Kw7(Y%t>>nv+<#xGlt@n|4KqTIAh;&k*1sX}$71JhYaNy=UvheApTKFq|~MhWQU_DXc{i)|0ts2Hn_X4ij8cK!QHV%ML8 zT523-I!o$Y?QwbmQVh=E_svF{gqaMGUAtiQmh5|wjG!|H@^4fdw+$uvzCUhf;H!z0 zO?er5%8A9{=I`wwo+Dfp_Qe9(4567({+F2=Uns1|h^HL%s*L!@vP2D?5wA<~A$De` zSO;E5A0xYMlo5YCZ^0Sye^Zc$YtMkiU@&ErT$?lq}rhUUDL_9NdrbR=KAm$iY_(vK7us%&1el1vxMaE93x_H$>`SgKlVEpzU-M zm@MY>dMYk~n~48`t3&UmA zx8=7_^SW3BtwB2V9==If?lo5ekf~BPTe6filll!0SG2Nx9nbBIb{2&87Dce+W^i_b1DqBySgHj#i6)WT?Oage^2YBB=Qp?ZQmdYq}` zyKqHs;l9&v20f2N?Pdu)m1yukrocl}9TM5=xDebENt^qC&M&%2*GFeF$jyKjagM@) z^aNzGThG-qKdVxg*YVy=kIB27>iKQE16&gylIS0byGXIDKih|1#~{=l{45{qwARZ= zd!p&$R`4bmFZB&nW)hQyD*gF5{rMRE`CIz)W%_dm zRXIj~&e5N@;ZHxEAxLr_!d>+YYlY#gFpL#$zrt--xZO(MJxMjGL-!E(<}Pqo?nh-m zpPKj(2Ch>zW4FaqJ|HRMM_fXWgVY&g`3+JNw@F z&3lvg-gtKjkqT-cDGw4g6N#!40u@vNrF;khs-P$;MW_n!4;2zpsVG7Mg7^@Wf2vme z&bjZtd*AGMX4YE=n#PiMX6`%p+;h+UopaAU_rCkFvDc@Tw(!4nPuz07V727bYC%{N zaVOng3#;v>2$Ifgoufb5d7(3vPDaj39JZsX=%iafQFT4P7Kxy9rIYR^^2GDwQdWN= z7S+THgS@&s=8n4)S2|PfWIC33i7$*t>5hk;*sI!$Yb`WRWT4u%C|0TY;=>m^EDhM* znvS;|w4Zd`Tig+MG#$^RTS&M0ULZOP?TV9HPLf1krJaB=^vo~II7N8 zqqSBN`ZG-@PDC^d)x@(GMg2ogFw5QKUY4R5f**c-v|Vv`NDXTh?NtTozQuOS7qRUG zHT$Bdh7qJ^{p|1gNNZ;fLe5Gd7u>_73il55-?gFJJMsT+{J$6fr_eX|e(uw>BzKQN ztOu+1h6QmfjI{5880IaLvtY9acJt8icJrWn zi0x$()!2U6Zg%+|EZ_0V6+f(AHEbvSv#Gi1`RNl!ZT)X{);=dOYOi>J>j{lvYsw_# zD&5pUsL5l?dfr~OAGGJD?KOPN+b`HQSCE*L{F9Z?u6x3-0mDnHON`B>wI%C$5EuWg ztBS^CP342$Dc#ZIKaPRC(9c_@ldDbtR161)d2l=V0})-r*D<&~6uq2o_nlz5?JT2g zBAW^@LAu_u>*Ie?cA{mPipcAJC_~R)13hPQ-~W~M{><=2UJXvp!*G!QvRh&7(R`~s zW`DO-tP5H%l8$Pc(GZ6=)yHHbB68tyq#1w=Pv^yU5GJ+<*B2#Dkg(fthH+xI+7ZNo zN4C1XS^7@ulEzFO!&lq5&p2R=`a(YHZx}X6&f=*3;DfgOVm!fDSm$EY7M4+}>F1~C zx?Kn8A9MUz^l%brVZGzfEv$RS^z31#rN1FZlhZ5b@DAvS9%J$gQ9r-nUU8pw%P+f2 z+Ung((aaAU1Fp^dk1ynQ7W9f$U}!Z_M?hP%eX;6QLk`His^j}>C7XjNGXkM7jLa0D z98STKZMI~x={4JFwS*Iqn-Gz3;>@ru>DD=hGb=lO%S8Z_P-__%I0GiOIZiIA!Tuia zg&ydSV~~Do{;YHUL@=eLq~u1LE|1R(?I6pTPkA z^6=xSV$6~nSB$5gFFrgqcXHaEKYp}y+?WaAq32Fo`J=hwqxs|cB!If?$dB7Eln^>n zH3i9=z**~n{ONCP(x1*73ef=nv_h9cb&fn>l|jv`)G)x((W{eJv|AB5)h5syB#sxv zR@|=FfnP*ec7mJ)mZga9fOJGySir&`1Nu$4WUd{%4oKh^i4{j^aFv#fm;m<2U{yjc z>(r_){eLZ^9;7#*;6K?oP=CZ27Y)>}vL+X?E_vRj)vkTYe%MQm9e}-d#ABL2KyJAG}s3XU}%GVtJjRA z>vf7 z&@y3lDl_S9zKbcxb^RQb5=D~bnW=RPq3^3cYY=@M0QlO*9m^yn6@7X3StLh}*<489Evs&~=phx#*qGN< zU~R7v@0POjx3^KPIWoVuHfeqr3^i)=TX|ANW*mC4iTPfg5~GP5h3#b*!P#?dai87otb;fq=hHbxQyP;pp=feN9 z_O)`q4aIzGD;$JjB2(&&tvU#Z^qEzf zt)?)m9Ho-%A4rw5^Q`|(;;wZ8pfx6u;ol_IE*rYhSbKHRZ38k0yHV(!6gh=9FI=-|dm#Q++k5Y6`~>PLqkRceQA;)e;VrUq2rqrX0N z%ju1B7}(p1Y|vDHM=^xDUGA}e13iA^y8#02{Jtyfdgx*}TdMZ7rSpp}7K0UmiN!-O zkMEc>U$Y1IzE?oZkTf!YWPD#El@`uZ9e_aV23y{TVQ5uRx84i zCEK+z5_~eO1hrC_m4I%Fc9Ev(PjSbH={T6O0%q4DYHS_E-j54>n>&u2A#eHw0ta1c zYAb|N`#Y`=xC6!zL2WOn?`s|i@TGGTi*1%*)++Xv2^ULTigfm2_RG}p(H7~ zuGo-J&!ZTHnZ6BnMOB$BGHE2AZWi;#kQG^EQ^LE0PDcHGGw8Vs;ko|{F!)Wb&7y)c zF{YC}?aaxqpH1>dLro@d*#_Hva!EFWX?R8^^I~J3%ARs=K|eLlrqN85owv)+ruCVr zCZEi*75SRkD9Lr%__}n*U)zv7rrGIl^BOG8Pn)yT(=@rC(@R=}Ac(oWRZ*MqMX-$1 zJymRH$)l09-bLnx4q5V9HS$|A4j6J?1*hZilQZTZBOU=oGWn7hg&D)80PAEvI8D8QqZ86$xfogK~pfLA|9L#c-UruJmBFoXT+f$Kq0^X@~_qXUg^qJ?~sKMF+W z@;aI)%R9Ms2y>?l$sJ znlsD#=n%3#44SM}9)mmjJ2~A#I*77IUy7-X4QTzTA$rn{rfuYf4SD77fl?s_fstRz zZEY04G#A!u;|8QDL9ZK_2y~0-Mr-!!;qad1g(3RZ?fEP{XBl#vrM+Y-coo8en(P#$ zC$bXFlePcq5E6D{VO&n2np3Ju21-W$PR_bYt}*_td9hTVxdEwuXwW>KM{Map(jNWL zQK-s`m^l!&x_${YRagfPpjX#3qg%FI7IV{Lep;N6`!{-T#t1Ap{=#mVz&iq2NM~7> zlQ|o}P3F5Rp2v{~91o{0F-3H`NQGsnL1a&f)vAva1{S!LupQKns%ptR?P|bD%YWU~ z5EJ33Z%&OyO!D5;)5wvP);Ckb2@6%ZyCOYXaiSWW`5wAibrXtgL6 zhNi{*3@TffZ9(aQxjEYF6LVnInwyv3=Sc|gQOgoeUPS^sTl^vk?=z$7ysSD;Rp(_@ zd|a_CN;oWwfB+-xsb@UeDU_)ilW9E)n~ID?Q;B|5KWlqnAu?U)53@Q0*b8b%h*t0c z4we%|T=lHo=&Fv2i!0$w&BNM-`hc^cYGIQ3ho|2)oXqx310WO>%=%r!dDn2VWJT9h z`bPt%(jiWpzfzpkbO!ws3t=K~tO<*Do=sxf>FY``#P(F;;w285Sy(ESmX7l25L%R5 zyS-auvO=1r*B+=nSHHMdcpRkX9UWNZR+ zsPokU<6|t2sU2QcT)H_b)B(~>YM_U%h6}5HwTM7^@z<#oUi^hF`JG_>!s~7MG#R$C z7%5BUAidE0VXlD2H)%)@HvVhy;NXQ<`QqNMf&M?_2u-Hr$ubT+wTvaE5)j8VkhzOn zqPp(kbvOUiyE5huQi;jxGP)a7qSwKkeZ~o@b{-9cWFn#ZVs4tU9>@NvDz8Y-`#5s3A3gT*Rz;}e7Fi`^Is zDmB^T4G;3}rKK}xkS<3u{`Bc=w5JNgo#NCPktoG%J#(gO%ztNy9%W}O-dCUbQ2jRK`Sl@KXKv`TOxhoDw?66O;H*6r(Tl#* z*rBN>N0nB4KGRtH2e5}ge?M5DLI?hCFulT>>_A`LD7SQ@SldHDBCrwGt^>A-j7I5Y z6g9dAd~Dm`OnwHp5hf)+Wugr~piB9z2sX5?B}27Q{OW4`z(!l|tI~Y5eissbXZX?j z7L)de+ie%=1PhV^z3|rip$6Rh&`pSRa&T`8U6>zCuK*{z&{sQ~1ssFv?w)hlQ`A2> zhXG=DcMbAKhv-HIu}gzVa}E6-G-C?=u8HT*O|1-_cVS0rBI@LSad#US_wt9j&wEs8yju9uO9Ou`h7_A$st&0^V};; z+8>jLo7P8Q(FAt_yxRaggtFO(vqFumM z20S&$>%%OfP|(|Ywi|o@Iz)#u?EMpyUI%;fVG(KER-hc0Rk}RWLqqg21Lpgg^g6(l4~xKr-E@nI+LL)% zmna|Js3?8aosZ-f0MiGCV4cDAB$M`s>8VS6_L%dmocW})Nyh6=PGaGDun-GV+6V0E zK{vxf1G@!b(Y;`B_X_H`I+$JoTdJe4rZ)@h_b8a)y)ZlfeqCrI3Xli_xx)5DR?>y2 zPY%(~4BS7@q}Ktrd{_iG7T;N;T2fTEbYYh;zp_zb`YJsi&o5&9e|8Ag8N6R&(*E$C zza-(^eZOA;|#lUA^lgTSM_qPsq6 zx{Wf-oyWIQf_FsLk(p^-hpw-j(`RRmvkZ-Yleuqoj6tTiaqpv%&^?ATrPzj{tr+ty zUw(m?-ru!*q}(@DM-S3}%0c>f`q=QhE?8Er>$?#Yw&67Hw$>U@(hL; z1576(^0DPF7~l^&%}UKN?(C#@{F!{+VF*wwp^ZyN6c%oBE4h*w2lt}C{ld>7aPXIg z+6w3JC)J^l0uIc=J~)8p4M^>%(1pD-v>j|Rlf`^=n~J;Gjmn|tfyBMH*WY}}ukv+| z!5O+E>2BQgO1Hw6^DBOLsuFqCZ@N8}uN>j-;#=~|h;Rn4^f+IoA7JlrI&6L6WDt_Wx1G@IOjN4}MYgZCh%e2s?r*VfTjdWi<3=_Oi zCX6SKkEFZk8f2XIDzDQ0K^>IrrZZBlGG1Wgga6=nP?o53V`VyuQ&zVVqq(d?c3ts8 zx-$}VXucC3iT(y^MTw3pG`Zk*Jj7a&1F2j)>S zna~Bg)T7Qz>25E;3&v%f6c6bXPzRBCQlEKX2AAe^(nH0EWkGkSl7KBi6uFEsmri=P>q!@jh70(oyCq*OgQ|U~_@JwDx|jM8Ls2-0*Yf#-&Ryy)R-M0Io%8u4mn-0X=LH#+Wky4z_dVObZYTRk9Z zSFPP_m2=cVv0Q+=FmNjxrdP1p!zIve5YzDMqE;;0wXlqfL_xI|$0=~qqHNY=lvI=Q zH4oQ%GCuc|akmNWo}(j~loQGt++*oZbSB1WHo3zE)MRAkI_^*AORjgfL`%N~K(g$l z64c51sx(uz;b&aSMilv-;z{t=YIXnD3KuFZlnp6#T!Qw`!srch3BBpa{Y@inNT zHFMAL_d+eZqk6Tg87k4u98%3BA;O)KCz3ih<0efXO-$m508D^4&9|qA0jOp0dPw?ssYG5a9w%+6Na}}Uh`AVFJkTBn(&YizB6v(Bw+cu zHq19h&0G1m{8^?2TBgCnRTmdVS24cQtT1Bae9EYO6^901=3CI^+ZNK?Uj|6RDh|V7 zsFnTiBaeX0MUif=z#UjMnB*GTa)n61?RH#=?OZL3rsMf#+{{ilPqTcZBDhAEo2T2Q zCxGbzMRaNpxK7GA)`)lgdCYG?LqJ7>tJ$F&+#*RA&!+ndrSiIS6oXqm|1nPJ$6ezn zpP)kdeX8*Y?6Yx}{`?KzSZMq;{rLs@^E&CXfB(@rOelbkYe z6*==-U_J}XV}a{0aNPy2x6pQNqNE1ho!pu`%}u$l%68~gVc8A^jNA@~42^$5JS7iy zq`OS~aF=%BYC^UYLaHnw8&`BvcV>yC!&UJ>QL_^IIV73%wywgQda}TAQnkvJ_7(W^ zVN{wQZtv!mJ=v04@IY0Z{ssPUC%%4<3^U%uBU$-t7_i1QXzTHj_{Gjem?Q21g@NOG g`xrM8%Z77@R4Cq&7c-u$8eQw2xf7bV+m+J)0(D*fSpWb4 diff --git a/docs/RefMan/_build/doctrees/Expressions.doctree b/docs/RefMan/_build/doctrees/Expressions.doctree index 53f579161c67ce4419448ea3d80cad33e84f2cc5..7f983f0ab9a15f90bd410c50cda93d3170ecc200 100644 GIT binary patch literal 15445 zcmeHO&2J>fb>Ces$>l7UA1jG4z+JgyL0+!N8EQ!xQ8uO$eOS?Yt&w0bk^*@%-P7GO z)x)0daet5;Ih)uA1KywnIMCRD;KZ;2!_Fla!xtL{oCNs;5(5E(1j)g-oB~J4J-=7g zUEMt#4u_`fM2HCNYlYO!*weq3QZ@v8WKVS10=y^u7)kvYuQY=>r#7kT%Y zUG7FKxu9-=OPh*Ib^a*Hf`1$W;EzGfkK^AH_;&;UZi2adomcsFzJWPk%$SS0UsgJp zE74NcAeLV+JqWqYUP^qaa;XBXjQWxj^*pfu-sD7)q<2(zN!+Xy$Q93xozV0eO)s$a zibDD87TaRQzs*f%fly|&40hngoRKWM4#1hQWmMYiko61wb@z7KJw6C>kmxou4h@Ld zW=7wraJF{1(Z8v|H84+s1K-JkH<(n0p6Oy}320=(|Bz9gOLGR|d2O6xiMhkBcRT8t z?dLwg`D!D`!y*+$!JYOHW;+--9Y|Kf%jw#jXfg4R<7oy&A0X*yb? z#WIN*`dDpgeKa#Q*B@E&V?p;TK$$uet!86%f9W+iCHIiM+JhFxL8w*#=!cwFA;##P zPV>73&0mJ*znWR!o1Zv;?p(F3=`2&f#5cn}GpZvMzIu#(j0I}3wdz)`=XxY-fNO!&yHrylkc6W!tDI;3wIq zQUsaK8z%!ZKpB;_^_#HveEd@&Fe+qk>#VK8PX;C(Qn3+GWU_>ydI|(^8w$QE!4(Bn zq9HTnk9hh4@-)|bGWQ>x(cB*c4rvS}b6<4H2uH?b^=ZH#`$25d zGCz;VM?U1!{(F%8cc(M=pB2n~9VFGVh%D|Qeehh%jaf{jm^mq|YxY?aO}6dWEbt3i zK(v7I)Hrsu{BLJ(|^iI*uW^ z0oJdjOuWfEWtX(#(;=$cIr#Uxer$_o}3cL|j&a;>1qMK9$k{P*PUj>;0h zOw-Y4i(!DjpAImdwtV3C`D$kh?s4+5Ggte&L_;aqqOx{tAeYl((X_jP3LaI-LbF)z z5woa!$x>Rm$VXZBe`eFl1yabemx#&LLU2>#5pp5F6$2l>jaj}^_#6|_S9LtyrFeSB zk0^h1WpvM^IJS@Gapwl{ceV4xsn`q=cPPs)1pF6^k`_vT;#@W{6s6riTjKS)r6#Ildn!i*88No#23hr&Aw zs8|%4D#+{FWUevGN1$`5ixD3|MSDmOIy-34>(mpJs5b;WkrL5}Qi&ctVOE;!;-sD< z<}sP_yi%4!t~?LHTyx#oVYjx~{mhm|e$&KC6?q`%csx5MsEE8;A}ybeSjE18%pI!I zy}Bh|m)A#hH>EAZ-NyJ@@?2wl?bXi(sGhPH9c;;3pBGWwrCY(!0tTMlirP>Da^T*>pL4+2#_ z-5;sx{!kNtnthc&EKIxT)!v*2I?68Of_wKK(trc*gbw8e6!~`H+n&M8p~{?gP*%}@ zSdbgLY0-o>CaBcvv&cdPjkscDXpOgak>kj8gHj3~t9hAfY-NK1dl50=1wI5ejSdf# zj1)4B$`|@7`B|5_izIpkp1#CGsn0Mjnc$MPNm>uH?U0Wcq8Xx9Pr9JLfufu-O1)K5 z!h#FBik&p*TNDG!_u&avR^N@B$_qd-wvx-L4{Q0XRK?DkLwY=-h6 zOjKhp1tENs*+pyagf7wm1+SvsLDtintWj>_W5>~yIgW=%k(`esb!2B~h>2VY(Is8U z@0?}&T5jS@Xh!fU*VA#X=Iw&uORlC*OE2)Q&z`{2ZfA!*rKG;Kr98&=cBOJmms`rS z{IP`HF2WW+e5&waTYZqO=(jS-{V!6Wr6Seibt&oNm12S%>wbyNxoE_E;RqNxiSz{2 zk@hiJ6dCFm=YjmG8^n~+*KrUcL>-7KS6Ed9>~$&#X@_!hN6nT_L>9B!`Qm8|M`l>Q zhLBF?Ye$`os!~}&h*LQ|@_V3Mu6O*De3^b^n^%^FbAnjYB(i3Kz*cDmo);VtRJQA; zoD71#bYi~_{5fO3q8Rh1dYY4X->ky)XJBc@ppr3OFmUc~7Kh?i1U>5Equ zey2Qep7Z|XWu$z}hz%C;An|OuVaVhLV7fDtr?;xIm`Q2R_3avC8ugd^eEMxfZ8XFG^Z1Y+zz@$m?Sn9JZYbse@$&-ELr0;R;euYn$oG zM#7LsmT5VMoM|F$z?}bbNKB}3F3QuW4IBr-%#p?yE1gqdL?(yx!(#ZWAza7%3tEqU zpL#0-An6tH!w(^YwHkgXsUIQ!+%IQ-cvKzu&&$S=m-1GPmeYW;FbrO^zXTwhA zv&_uYW^5nLP-)kHdv?42Mw!&yt|NJ_m(DTAE;8QCQ%ZZ2CxBsgZ8Kyz4~ayHnLR25 z$`TwIEV)?&HrsSU0~If~8@u~3*(i{vXf|=uI6GZ%5V|->01Q!Xkk6fY@PaXa0LZ|k ze;hL2&JWO_i_@2~$!1cVQIpTfkOKRcAtV!d02*0(fG1DENv$a2G*BbvIhn@4S5~83 z;~!6z;7jrS6E%OLzItMkq3=uH9M8rH7G8f*COx-+gF6&>XKAg$PSy zOZz%s%h3tEjG${WYxqt{rE(a7LZn)0SJU;3+&77^(_NK|&f@xB_tk43QboBc*L}yV z`LS*;4176XR~5$?Y92y2RoFttg_7f$sqfG54cdu6FBYr>M&ic}eXnLdYf<-W#H9!q zUa;W9)uCm&i6idte3$`0CjD057zz!_IoQhnLH0m@17S|=wb|{(>O$A>kiPefWn2_ zYtU+v&L08gs%ptjBsHjv(a3HEVZ;<5y(Ux_^Pxk>$Qz!s?|6f|7es}do_?Jc%g&(- zUf~2_5@nsH#kB1-lQxE1I50yWyh4xAF}rA)!!;nwp-BzCCKg=3m&6S$MFUEOaOfn7 zTh(W(k&EYR<&OUe5gMMHb7g=dt%)kM+ zFimj8wHxY$_JGfb1@gO%yh&Vep;TAwq}yv~#RFqy1MXAd9HZ$G!bRBv?)njlKX2+q zPJ)v>xD--w^YdOav292ScDW zX}3nprBgsSm$E`n7z9^OXtN0tCTuoDei>Km^ea?!nXC$$!6&?nSpZH_;r`di|IOek};wn*;F(^^^plXCrn{i-X0{T^OfV zed4L7!Ow-TWeuUHmK^;jGxRW4lT>!k32Uwsx8xWw`%NBqJq$L7&Nv^aBnXl)t`^LCJgP13G6xoqaKp)>a`(viWFdjbp5A3BgZhO6W%qNF+0&+Xz?5C$`qHPVg3 zJsdJ}uo$*s!hJ}WJ5G#29E}tpa|1t#m?Qi$#L;a_IYOOx>ipe0|7l&Ku1mCaiLx%y)g`LBL{m@r zV+1Ivng>-opsLG%%)co~;y>$L1r_|4iYz*&qsaO$JxQ`?!%dMzg>FffEVd-#N>Ldl zH?H8ow6t6@0M$Z1C+nx!UTjhQAPgvPw;6a^zh&2lhZ=S7xe~^?Y*Yz!wS*txBaA6t zJu-|d{c=uJ;1R7LA%BNkvKGo;lfCZ3b}QK-TB zJYV38cSf6hNzA8y8hE8w;{4|h2eFqVfJjEv4ZY6pd51K7_2pMbk{Y0UNGuF&jGvD9 z8b8g?h=rWGrZ^k;p*Lz~ZCljrG>!dsmSR>ki!;8P5XFm5U?&M0@q0eB`|8&@HyfCT zw(Z=Fy$D7p@@D099Bl64Q<~EP|-nQ%8sl)I3+ez$fJMnOkMnS!AC#e^2 zgEh(a7rf4^cDP-dW+P5O`IXyqSsRmG!c^>TY!7&uEuY)te!_BAvOyf}`;ZQ^Ll*6O z@xJdJu&BdQ?y;BDn4e6Tr#Z=zVVK&74aLxP@w+F*_VahXc`QC7gQvlYhGIpNUm=F` zN5N&zAi>A+{|Wp*iT_P-kUzz*@ymP*b3R*e5OY7T)XV6{YSAFpUa|v7vddo1La9x; zZmb{o#t`)auzzNDqDY+2sqT`vMJbRAfe+!?L8~1^&fT(5{<_0zn>iqqSsjZV z_$g;3%f1J2X6;zDE<0qyQh(jOn|DtSA_J1#VAi1p5xdM9S~bo#53dccYH$tAbKofS z4DdB3m0@7}7+L~ah44ROR2yk7Ks>KaQY^7_*bi}GZsZHu{W!eep2%LDwUEj#X#Zy*JIHCNE3LMO7er!`uvk(i;6^^Vp@yHIoel9gYU zbiW3ax!2HYHbM7SUx(-M57}!2Xki+~TJ?{Qzl=h5BWo9S@mRKUU%E_py(OKpnPO-!XcwN76<`iVjK1MF}=i-?5uHJoZ8uMyXAyjaiY8yfD-LF-ZQ=$;|zS zC3D{bN%dky7I%<71is^^EG1HGLkjELL)J!<>v}GW!crEHT*E4vA{Y(v3t?r=5A{0A zTsX?mm$T7n!moG~!<(OhH$R!3H%0PL2bknh#TEV>uJDlEU@w9@#UK1hGVmO~GelTy zr!uhScA~gvp(nYZD$o%Sbgyn*BG=@<^V+$TJu3`P38q58{&r-Bp!Ra;1nT4`gk9NZcrk7kE@UNElSjlAZ6+toHM9EXfV9elus{Rdy5e+hW(j&0}VV zsTCSrIO&h2{r^JR##hkt@$V0~d{D6>cO1Ing%VREjofG?mguWR<*RbCfBE&?cdE=@ z+R45h`*u4(#Yh#jOu^#p9-)%;t98_`=%G4=|DH4jNBNlG;GcM#r0u0`J5W`igg_M;eeS%>Z0LFO3+ zypikOx;O(Eqhab1?_KD-_$IYK{^q!X8^KwLw8d; zGTv>1UnMU!!LMHWe1xhf`>cok6cj4UdC_sNG-G<-1yeAozof4ddC~7^2&rF*k!lIT3>!$4)G`*&)(f1``}Z=tK1$u+B0}KlxYecO66Px+SXoP451AN zDxrofaZni}u2=#aTHE;5avR3Su^E>nn|VlZGYBPP7Sheb@I!w*U_N*P4$OGA~^ zY{{HN5`7Gwp~OQe%{VTZxRSO>S`UkDj*l6l8KPBBx}bl6qD)%MXK+DpRg|#gf-Yf) z%ns^hn=6HJ>Mbe_B?mDvkRyYh;BZ!6qzyUtLcSHCt1w5}H3NG8rflzDPh@)(u>G@! zkgldzaW(FnWDQw@f(z9Ypy1e1#wwf>#?lBYa*>A19l~ohi}Gh>bb;M(yLQ?0FgKFv zd*}hB+SxEm`0g(;T4|C0rNF^~|Ii#z{;C=VEU5VuOW~Y99z*^Yz$d9)DG;EMz~6PT zB@47OvPTQ~WMIe4%qaAvs4^&NMcEUJuXR{as8P-qez3YLT;9NfizYL+hooLBX*kAsx_f7xMaFq(DnWD#h9jZtnf{54~ROr!eWO_%po*O{1m!M@A?z4v|v!h80RdU-J@fQ>w6IwKFp`al^mD}dTIHj7BU z*O0yW4yUv($vPcuLSlm_7$W42yIzgd!EvH~KXR!w1*zvX%lvdAVKD2-yqtq!n#db4 z=WmaR36;wgd04cCBORDIQucBM^9&eK$l>(382)OC7%2AqE{&&#g?!h=-+lzys+I2} zN&PWGH{N*CLiuM^6EVfQ4J)MruYHegeqNp7WXQ^}$M`(63uT$uM>AAf^FK~eqZzFE z{VJ)(niF{DLGdQmfH4W3pFjj zpZfbS)FhGyXt!}jxHuPZ5c@a+01SyS!xtWS@RA9C2*|*spN^S-?|W#_Mdx$HWD6-S zsL2~Lq`>}Vioi;CPvc3uf9eGM)9N8k0(H#nX4CU;R+Y!-`ETW-|4Mpqs=m+ES5Hi` z@q;OBoI&ruT_xS<{lP6-WMtfcJq@bwVd23s9uF~w%Q|t?rw~5H<}8k^zy|!3_FEOe zfiKsonw_OlAGSbA_K-O|N}%6}j|UMpM9}*hLXb?pvu*)Z7e=B=yPNRy{a-5qMnQkw z1496FXR0A#)uxs-a|)wc%(-QVmg;aGXeI?UC99$lrB$777$gD@$51ny4Sc7fNCrlr ztf*q?dLFUJU62HO)O8tFQgWZ)Loj`HbVCX#<8Iw|LR62)xHRy26FHT~7;7FwcSeQg zGSJ4gkNe-1&{tXb7Wm3fi;GSM(+Ja+zT&c6w5Y2t;#}gT6w=}D&YHfA151MHhwex$ zyrEKy;x-RoX^N$;7plYMBRo*#hCT8A01xNYFfHJ|i^p32n8g8}E~JsuqBV=&Vz_zG z6%R+^QYVU1*s@o8dHb}uK-X6woz@{%vHl1x7g3P#2Q7*h>68#qZm5>x+)#_k6RqNc z4o1uY@*6u%u^fAJ*t->Y`(7}*Jtu114)o)^So02j@CxVjvZUxVFXmmZopmwX#REGI z!7KELJ-d&Vr8LI%0h-k4U2)M52U*%euo+RZgQFo?+NnQNPkj8oTz%Ps%ZlO_$HBV5 zi@|3i)k#NUCCbt&mU)R~B(99T8AH)~6Xqi>D!hh<0{U|G#Tc+yr8y*E6bFj}c_rdP zas2@t$Ke(+hbvp+A#8y~vDQaBpx9M!blLU)I+HZhC>%myg~hm zr#}U@T#P%;*f7*$hPhk}lSUD)%=up0k;Cw`A7F?jtadN~H|3+-=fo8#RKKNdOXoo? zb>rndu`a2>j;VNYMqV7>_; zACk}Nu_d>66bG+39J{;@o)kj>aw5l6_Xa=^9epsMe1h_1S_C;z`zc+i= zVV}JQKDf_2{OkNr`49N_dyiuKqPIaGe?cGLqK|)~kDt-UZz7oLU8av7eRS#LD&ct& zADLJp{Bkv-JBo6ICik2C>rMWHrbOM8XqyscQ=)51R85JdnQoH9h?I|m=Xs1h&Ma4%+maKea;zC*VBsVVL1hO0rCb&MP2G+i;(tKVwOI564 RyE9V9Ax2GF^|N;4e*ii&D4qZS diff --git a/docs/RefMan/_build/doctrees/Modules.doctree b/docs/RefMan/_build/doctrees/Modules.doctree index 0da8e85af5864ddf2dd84d4c3be2ad7da525e352..49bf0289b1b12bf3373a07308147ad92771ea3af 100644 GIT binary patch literal 62133 zcmeHweUuzmb*DaOG%aZ)8B5rVWtWVJC0R4FB#iAL!aK&6J=oKhEjgC6ai(j!tEZ~e z)7|ds)@W?(KnUkxsIz}Svk4&t2p?hbLINb4LlVe_kPui-NZ2e3ha@M-;T#UhX2W`6 zLz0tZfA_x6s_Cxj?ioq8jE>#YUG+ZhyYIgH_3pdx4V&Nj(dX9jzj#Mf_k-&B3Aa?L z)=FN~j<=L*#nysXZMNUhKJdo&Q|YOO}mYsc$QqUZ;eQp2mZA8W^>RJ<8f zq6t}lIP!|kpjOq@{muT6Km1sGzdsUhZU)VYXT6GtXKJNZ1szinl-P9IJ5ODk7jJGe z6lmrp@lf4GzsIEt3}^yHoe1lN#sR`i;bmvvsM`|)~cm|5aROpsM&CXYBM?v=%d3AdF2_mdRXFM zq7h+e*WS0GH3v+LV65(Z!>#)^zQQTz-~yxUpc6z+EAmQCv*yeEGG$cA={f>liKo_I*KZJGmZjQNvxTdsc{ zCd=Oka(FrZe+B-(5&s{+MEE!Pw^7&Va8F#g;Nv%AzVLmeG3sSvVcg&A9|EOpLNz8w zo`UU_py@T-%IsXFRy=FZ!y$ooXU19dy@r>|HJ9q1bJ{uX{QKJ;%jL?>B!4O6!I7KQ zT=iE;Ba3JBVXVKdBZx=NFH|O@x=RdYOTFP?8J)w|&E*>Lm}lZGSWxpVcOK7%B4g8!SdZeyNSG||H;iHTtg6I%t}GK^=ZdJtcIZvYH6z`=@c#hGD3ck;{vm;vp{ zDq)6LLvIVc6D@I#P!#8By8_cSp<()Y2?iFXR7L}hI7!jpg!m@ zmzu~WhQiMra7PDg8%(BEBpxugI_{w`5b~srKmT@(j?v_36*X?NabP-QYWo?xsqS>A z_{WpXKS~z^j|R~A;`Fx+u_N)YWD7P!7!nh#kh@`W(m={6eOK=&{aNahQM!J@v=ZY- z8kpXg+Lfrrs|9VI)?{&`WMTKZkv}fWiNx4cSmv&eVp*KucJLXa%PL(k>SswPqN z$t=d@7yXj&J>!=RTk`!RAG*o{UN7-8Z(qM|-Dz4~yf9l>r4YVYj!c3ik)1g&CCl}K zmGV3%#!s?*suI->arM^txOMc#3o2zfPjFKz-3q|kP3m~ z0!DXmL`9_&|c|H-M-_uAa;?_N}MW3AB_*}$hwar z)@VwX!k#$&SPT5{0HJRzysMjf+twm!%$t@Zs(j{Pc zt2G`)(?eo_1_~zU*QDB5k)?94%vDEIn9`FRr{8pd)zGgZQQPI9jO_!~#G_AmXp{!h zuvBXdL^`{Mi*7yT35&PLxt~#pFb_1uVS&&v7XD;E*a&}uN(-;RI4VDip8(S6&$k~w z?3`@W&cW;xej!|)M8V`701v4<->gBMC$kaHY9W3!(2P4 zCVxP+?p!%H538!|aM?n+;4He4tOJ#r85+7!1HR;NB+2YQGM>7lwg)mZ=uVQ^Q9)+m z8_>nzH05W=vTf5W0i64T$Vjr}Lp|E?Q$$W<;V0-%uT({@?C|5d2FtP6f~<@jd)q0v zlbZqD<1CoSN?mlTO)?)P+0?3)CBaOT>1BM*Ii?O*8IFzvkyWapw32cVeySZy$T^Ea z)6e16LD@$I2skLLdXjukT~eUTO1{*9VDf%PPo9*x#)q~&fjzZ8w^}GQBVm^OhpD!@ zuNvt@N&%@&59m`2);i#iEa(C1PO_zjdo{i_F8>fn6*I z%A!;73%T5RX394?^J>5sqUj`JzPozFJeWj`VKg6pnBC9b`FbTN22I5kXyr$a?^Ws% zHnmEvqI8!PYZbhLpDUWkO*b7E-Y}=>RZDPr)!<7zOD=FIIUY8npjzWut6GASy9rz# za^Pqyy3o#Z=!eQeoHeQF5*3U*p|y+6MDizDN|N?0zEHr`6BusT!17@o{pndgD7E*| z#I%{k9B&isWSr;8vhL(_M?Fs(bZOg(WKM=09KAQde#N{aSB4_^^kXyDF)`Mw`x-0B z!aceM%fi`&Ec^>CcHong>zD*$U24<|Zgt5fmP5R9Va_RuNhBw>TGAiXTLWwKYzH=3{R8j`JJayQwy?(= z1)=F&6^=@@#8q|3j z=2&=tKcls+t}-f5i-8-1x*sJ&?k)FIMPrpG>c_eF?$gtQEn@~@W`a!SV}sZ-7PDMa z`*=~zRBO6yB(o8sk&Md9rC50Eh|WQ>Ctn8s2QVNvtUq&sU|YuaXVuHUr! zxi)A>&h;zTWUj3?5tKoKWL(IR$kGDj8_6Z;O|~9D@-{;cxaz@{TM;{XGa_mur4e*5 zps^c%L{Qg<`=KtjlRuzqux{}Bgl=$RN_ue@p%6gCy60+v*zAYwRjMjUVnkzzKnpi_ z@NqR9C4-HLdu)LA3}252s*YvzYkG{!q{&tbTqRIO^axDf%&I<h=O_Jl5LAZ&U2>7bkRB~+E$n&v*{`6|&*z@sL%*Vf_=i{fl zN)GrzPv+PIadL99oP+e}>K>(+WWIB>1oUsjE5MfbJYldR@B0)CQJ|m@wXzyc z;iPu1J|93yQr1qOdX>HsgY+b2y=qM;%kpKu$%qdrs)VNiGf}TaQ80%TH`Ex zAZ=SN*Ypu5>(dSbf_7>mMvvwxqF@@1sG;el*gJL?&;(ZzxKb`7)Dr$uK|_)DA3QH$ z(Nh^76bom6KMTiK&VhF(SgVEb6P*ywVNS)`!W=@hO9IbgHiWN$LLH?>2D=t3MecaQ z$+%X{nPJ~1hW)C6hW&GiVXthZ4Bst6rj+p1zYRRo0-k&Nfyd@wKM#=ZLS+b2BTwEZ z(L3dUU)|~KFT>3!|Iy}8wb_6!RfH4lPGVxR@EI!nsG13`lPsK8km09fXaAX;YJB-$ zv|xfv1;cX+XEb+v{sXFKilyqqjOkTLRWo5p-goO-^S<&l`+?X`YBM`>1!*>BWR9F1 z3g(lnQf%ccXK0RNMFR>S5|--4>P}BcSQATUp`WFrIoSKxeks2}!1HuJ@YqZFg8=DC zR8B1AvBXkNtkpXeTgfb=@x=rjbNj0zU;}27fNxuC0)E>ma%@_ggb`#1cC0P_)p-NE zFog&j-a-MZDdb2>OBX2Ue&LX_RBH*xs+8$9sd_0pjaG-^RRyp}J7)CO0f92sQao@I zppOrxh|3CP++3h>E1Fn8WqRb9|5&PKcN!r33~`Ix7u#o>8JVWNSUy-09$;U?bH>zX zc>e3)@El*&lo~kVRW_78{^5e49fg67pd`~b^GT^7RyhUKSY_1Sh$)lp^?@hF>T6V}%ALGP(h%#`ZX!&O!tpX(Nuwtl z!8wY4zmtwhnJ~fBW6dwab(`3<{MWuFiMEvfS=V5<(XRk5v+Mbrv|~dD_KGev-9xs; zAp&XTkQeC46Yty5R;bs=m0MLlVM!tWFignqpq*iGLu`UVuLg@#rwMAUW<&vB#K=T* zyk!bs)O@X00&jEC682S5rCz~tEU|@@;IuGh4%Q{YIG8FrXts;~(+g${X2HcTAfQ1* z+lcrqhlX`hYG-<46o(m2PM8@xGn?J17PAEa4qP$}ECAM9j4Q^E4)B@foW*WFVXcl{ zTylEN3KG->{W<`gKxGWum{U*6CE3wEhX9l#&P^Pz;5E#* zqq&@%jU3D)v4oGv^OolKaR=qp&!ef=M-lFEObz*x!l3cXgmeevr#t!d;94|jHgrR- z#oGtbAuV<*T#JU=o>_G{+DA%oRASi7qZMHgd#-|qJ66jA5OJIf z?3!Ri?=Z}Xl@|(oMzE+j4PyI5hM*s?`M{H@WOj(*S#QoLlFjB(^vINNQ zUuXgHG@))Re0@I{v<1kQP#IwKGZK39^!`*9qN}QI4()wnl6|e-^%#t zPJ}%O41-ofC-Ei({@;9|B*s~93EKj6I@K^;+w%b4yy#S1_!62~-+el(4Oc*8;C!d4l ze<`(I2IE`LrdsJvGKz0ezs$G3lW+@N){~?&K) zV`LJzonh=g@jb9FGgLFj%)SOXp{QnGvoC8!KXFQ}%ZOJsVwS||8a}sA9&2c~0g}U1 zi2Osmxdm$3NRN|hBcNmM|Wf}5nW@B{!k_I2xt7qH*+Qdf3*s_T%U_k$qAi8=0)TuIv8#^r1f<(h=b(cK)+I$P7q3H& zI$nq$;*ob>ek;pD8-s>`SQrj;#3f4@ekfn#>}lYgNKe*kM8P>3{3#NyI&QInuu|!0 ziS!;VoIym(LF}h0x09MpzQtQzY9AJ~cry~6IO9o!1$UjKc>`t3X zG*DkG8eY<2l1%Gy$JZ;uiaFM>K4Ds8Sii9vSUV7oUYmfm!|M*PniZGDviBrec9tQ# za~e4Y`8YVf*y)^>ztGTz|3G+v71I|wC{p7&U4x9-nZ4^1)@+e{srnpkkuo1*WtQON zC2U98|}zlsyrR)>iWzbJhfjBOrbjBTVpR+K?DvCHW1 znd@je73z918IR7mXUSe9t|j*-A)gYb{(-CIIw$1uAXUvU_lRL$+0QU->3ltnbQfxa zE{t@ZS+#UlA~11?P3I)OpNj;p* zK&}R{hmsbV`mDUlhl;g{RH63jlxk4YR=|;ZPv}E=6WVD!I>%QjpP}_};Y|m5~N(*d_>`Aho%IB|OJ6Fsab>Qi*itau%))xJ;4{rh4g4oJ!DY z3@!_POhar4G)pW^B>9-B6qEhP?5RUcqJAgYe1|ixmJX@KN`~`xH!cHk=ZQhih%>Hv zJ2QEgx0)QobA-sTu-O+rN%}pmYq0b?mXLmDmSpIRaP)v}CwzTExkdg9q-*CayW~8O zd@)*rFM5If5IOckBpeIKm?7N2mO(}I0N!_CW^_;@cv1MEXM-n6MQ07jQY0!2oa(p<=MI@tXdUccX@yw6@a27<0>;Y%N zFr6Qwa+L&4VV^&(S%y3XN2C&;<}Lq>vcSRB0!!kGL95i)oK^9K=94E2Jv584A6IN1`$7J zpTEGo-cJmFpAbGwmk8~NujQ#1iGH1KYiQR$7xdjH)FbwN$Eb}xTFbdo9_N;$3w^} zJr@-5MVxSJ`$M=zt5rrOg0}xGH0|)W1?Zpdq5t0yMHQd%_X?q~vP=Fp;gV19AIsdK z=E!MUVbXhogEwI2Xl$5C`fB>q>m1q6fjelL_MmpcIq)f|1W&2NyM1jq=cK;t+$pPT zPyUpBxEjZ*?Sk2f zQnHgo3{ujl%Z@>!Sf4C2_9S=c&FXjndgNgV|!WR>lrYJMEhDeB*gK$4YMci~ro&(S&#fDQvHwaKAE5)@- z$Rmmfb&;@?h}orb#Rirs`L8OTzCOzA8*W5zmQu|>0pi;Ai1s0CSCMziq(V<;dM6rEqzW7Gt~OZKxozugyV4?31bCuSM2jx|sYFtt89Z6=+# zpF-hMk;j@KO|XW%j!!B?K{c1CqVwFWRdX7p;n&5Q`&vJ1P7A@HU-oeIlyc;297x?# zQF2BJ1N3(U(BJL{Xq!<~2<~s8HaNLq6hDy0lNGINpfv6xi+f0(&?EmCgoAK~{yupK z*?a?WkryulG-)x5`94#|s#uIgVJQ|fP^ztEEXHbdmnPByt|B!&Ay=m8_L+ zHaGSm(&7p?u^fiR;US!v#4ec2=h!WERqzHix(n30!ODJtl^@Y#?8i2Fn%J8{PcK^A zo++{(E%YQu+wHXh_jUp9t^I&&GvqfC#IHo{1VjFx(0)!sThfz5Dz`B?0P=!M7Jq~} zQ&cEahwe#*ldLnBqYSF2$vBrS;#&eo%2#$G?JF~|Oq15QBzQ4@69+qvC@Q*a z$EOK{+3DRpud8CG7JXQpkB(pul=w}pjZPZd{AqpFl=cvtDHWlwa)-%0hK@fcq9>-2 z^No&T^PMme-MTDKJKzPG6?&tAiGa42_N~~VFw`MC4@>@i|P4cJx#SwC%>V`!HKhjx2%3N@X_sTUpK zGjy9}aKAmtx~;Q1-|3Q3Q%;jUlW&MpFs|rOPP!C1b#VGM*qfkHy3V@jQ6`zYDQZ+S znz`dJ*6PqsYB*sDWz+81%jAD9*dgDgis1laFD3W_;RB8~zXSCL&4~DN$ zN^{llPiTB&;aBKSueO1$R=%5%@@0V(W9R>|flcamYoIO4ma?=#;)2uA1D6TbX?pWI ztt?JYPF5e2`Xav5S>Pk|@(I!;UngJE_9?#eOC{+pzkz8|;3fU%Jd??VY_HcITz?it zm?gljzk#y9skNaMNvqMlVxGYR$KC3Svr-EtKMfw&Z# zgB>P5bXIOv=oA{AP?L8j5Q^z?Ig=gF_~$8`5INg(#B!l{v)2N;3debn6JAe=-k^AX z0cGZ3r=rVS&rlNkTm|^V`!@91YVcG2c zztG68LG6Us;Li=9&o}mNATzji_7lH%jx#&29>|gc#P1cazsyIeiG&&dIM4B_7{5g; z7LSGp;pjj~+|+u~jNh`ZNO-3ZKD#dbJpoa5*Pzu0r8_ zp>Tkl1#{R4GD{EMD9Wz@4oHlR3_2KW`k?J0s#>h!XfWbKs67hlw{&H2f6n8kE)X>a z8`810z#}R6gu6C2*hGJWF-mycZ%wS_yHlLN@>{^B2bvW1udkYpm_qWYn%!wdc_64S z)|GdpaBo_Um%UmMMogQA@w{n?VRQ$F@!X}M1v7y7QbDjPj5i0z_%aJBO`C>`WchRc zFe!Wy8a5>Dx_7j74D-t-CY)Joof>C|-1xojDFmVKgYElr{Ey`KDpyy$85U#!`!#71 z>wO@y5o5x^wKIQY141@qB1RAOr2~E3uqQiI&lIru*UEcItn_8*rZ-I6E+E8QoJ?#( z2vb@usNM=|$r1iCjeIQpP+vqq;ZVP%Yp~|})uiV73HWQt4eS~{h(ivgvSEdyD?SU9 za?BH5pkl>5nP5MSeTt<*eg`PM=mFX*)U27VW{6T0$OG{|b3YxS-Wxel^CAzI1Reh%s6kaefA zPV}}Khh0HIc5Z_Ygwm%SeU%PWpIJJA2Pd2-=^ovR^ORy0m)*EDA+RR#Ri4N0I!+Ic z5Q`p+BqK-2(Sedss$b!Gxo{ikH@eoCD|NN`(U2Gm7jDy+C0pJiV32qWYWElC+do z+`_}7Qe?Rizf2cAmH#(YyZfXn#g+PF#dUwL$TD5Vz1PVe8PXJp2~b1ZL_bYOJhq`+ zKRzS6^+}IyEMsC#FL7qE>=D4A0DUO%*Qe*@>cL@OraGo6#4Nb9LPv9~{5Jn9DYGmC z^TX37$eQGRN;WN-1l@X7M7a)n3GM7*)=U((T3xiLD0hsBt5E4uA?qr9HxM67Xa;bx z2`?Me6q&;t=MgwmRSUrv3b>lbhR0~~$HF6h(SVw_?)1VN$I?|JlK_!oNFL~@{-KM3DKr7)M4mq!rUy=1rsV6@~7L?_ck)=tNg~>^# zxbEVy2c5^FT*HD{=NTw-ZI;gSS0ac)S=D;a5B3>d_7ju?p`=juJX+Q&uP0e=IKp-g zZ}mP!q2NZ)bj0<?uAC5KqH zrei*9#`Y#$id53-uNirjvQez=Tf?DRqJ2%91;_GJ{LWI-h6JjVF0jFk3>-{*kEiN( zr$VKqQE#lI9qD`COyBVUl~*~^pBa3lkIIo=08-POAijW|bikb95?PAcwhgGNm;okT zXOM_zPX&mnGHXZVElP3#Uj4Mh5T=EtPd1LQf$(UFlXyx85CW&fVNbE(5jdrFfeYS` zo`CSZL?DQV>5ER3YIH?cOx-slGc73_kpi@hZxA|W;)KkhoSkP{<#ZBShCVE_rfnJw zd`w{A*?};yJBfjnmBVZDi6r+4oap(_E@VLetN{JD`vKin{jMVDKaJY9>K8vGwLAOV z49g_v6s{UwWRV2bP|R%P+(X_UbDV}8IOf+qC(gkT+qk~!dmv}VY8F~+Dg@qNv zFj%cPCZat0yU#;$k`AtvGcSXdo!XE)1VL}`M=liBAy@;?C07wVD17;=I9sM=KY28j zhF&P#gN*KE%ps&1Q5Nc$gwjU}1wE&5uH^LABe5+$%1#%{vciDqHKg=0cRVF1H^&jW z1gVSIj{11TJLgrT^@+>eyrN4Ub`kpldlHuxdPTmB5CbA@#2PXNEboXiDhW(rXC)Po&XZ;s_N*lMBOw9i!ax2e{;)0a{hsDD-%j<0I|3>@()8_LEB zyeA+Or7^9)$MnnN|JT9CKbAp#rk6OgST^jqG{qufHHH!W%=E%z*|oJ_FP5ImSFd7) z7%1XZHIt2t6+-227<}xLgRgFD=&NZZd*ppyopbBpm>4k(O3R+ude{L@BS*3n&wWW{ z!csgR#vWzeMKXAOghk3|xMYZbYUWJw{f@fa`w;ogZQkn8p%s}#Gcb7}<5#bud24c4 z)eNw9GBqdNc(!#I#NyfMVD)V0*4G36jf0OQxgCExMzX{C5-peOSc!;e0bkR3qsxlJFoI)f~>x!c3zO zYv09oHQI1bD19pkXbEM!3cvH<-{{eW&upF0TpFQ7Ko zl94`-%VlCo9}O*h6R9)fy`}BY=f)kUtWSKGA)=1p_>PX+z63pMWU_4fI^$whvdO}! z5hE;{2Fg&VXsd&}BmU2)+1A&S18r1XWvzTkozA8ThCwGjnzs2xEJ!zmIBMKy4L-z? zeBfS`%~CYV=Ti~4fxhU{Bh)gyh&?NGy*At-NaYm4lPjXNQQCMPHWAd8nk#;T5Wkxu zV@qF!HKKttcJ+vUW}4$^{Kr&F-6vG}7pQO6Rp&1f3Jt{ZMe8yf$FOxVPfDDxpD_?J zPPc9AM`Ba7ipJ@Io=L^@8TV0XRpYvD@Nq4RWJy!7VE{@qv=uw$_P;+VLrkT3OiTP_ z2juMNV^hppjDm@;9D~e?REF-i&({6)fpqLROi2%>KIPOyNzHA;y9n)L;hlY9pQ4ZN z&^1^Od?=v@#@{A4RWn#%{>CnrN>qcYHU|x$7i})5wK*vSS&f9!$L<0&LO~nQ#4PVE ztB0BsS>9qw7O;{A7`5uOJNGPH8{4MriI_LRO&i`KZq4T68IabjXi!NFh+=z}L_!^%lqoUms{cIH zr5RM`EhGHZk-x`|;+O0d8r2c}l3gBme6LdX8nmY*zLCnMuTFkZjagF=i?g2u`DA4* z=)nu|Xo{A!H5$L0R2=IH9VlBOxTH|v$rpWAJsKj<2jeqcz)~=<41~?s!g}pL{i?UHSadqfh59V=y(8Geim}+iP+n~ zRhT$cMYbI0KqB=?D;O85d4reF2)z839%VoB{5(;VLQq1UKVsb7=B$n8i;#yh59nXc8(%t;KEw;U^H<2?&y0mZUS6kgA_fQ6qiAIUQ*Y#48Kb3i_Cs@FMz(CAyPl|5mJJ_#ArOWcZv4W4x6{0u8=bKuZV|eg+Y$ZD43}s3!+p&z?cVCy z&9Ct)(mXF->y|rU%m|SzTkF?I@+d}Xdy&rk3;3tTsU^TqSvCXG&ccaA7a~k4euW@? zB@Q?t4w%|0OHnWuhZOo9yGZI8)O?aDf|IfdX!S(g)9y&=G99w&8fD}ZaqTJEB0?X= z%?Z!YJq5{O^=O>JRDokUP83jnnaV=vlgwDAoTtdmhE~;usP-MFs83mXr$m-s?0{M2 zp1?7kD#QR^ojRE;hhkm-9d~Y_cQ-lvZ=tln2dK@i|9Gox*$@oM$QrywuB;ytf)KSY zVnWb-iy7+gu<+|HBzxFD{LLiSF{~=yN4gL+r}3uHF=dpo2|czoUR4;Hn@~ul-L0o; zWu2FlMyvbXx+*a*oi5K+EHq9Qkp86Q-T2!?h%YOqboHy%$FP9X9*FfQ8UE~VH0|66 zP`hIt*JUHWXVGgTfgf_ktdB>Ftp>uQo3rwHKHjFDa0dN+ye0CQ4 zf?wO4wc_lYTRcl|(cNai)mUoBSCnhDCRn>?y}WOIyq&JS#RZ77=Me|8(8iNd#P(#L4TB-aFsCI#quXV%S>zSN;2vwod*~ab;Pe_4n1C6k)=HT2tqpfk{{)Hd zqE!XTsm_BCE5Sn0Y|rexF&?dZb#qjK27?PQ>Y#VPPKzVH%5OI7(d6O7cpOdCmvA#~ zb)wdoKimehK}iMxC1;x+9EVtO?RX2GkH6yPR|21-jdC&7JUubZ|A=ZHi`6BPJ?k|l z0lGu*y!OS~5}xiG7jr#@>j8`X(Io{4wzj_dhZA4#7$ z@l!kARH+f^Z;KXi;q>g|Ev)MZhYk3St#d=u+i^1tQ)`%@wP06LTfd3=TDvu!NT|yS|4z zG@glf7g6f$EPTB|Wftk;X{e0-liUa|onJL%(n^zk10_%6NpJNkHT z6F&Z)KJLc_hv77RREO|!mOk#HpHuYlXVm;R=;I2c@DF#;$3M}>KhVc}=}65l&@ew8U8%Oo@co840E30%`>cdhBMDF<{7@Xgalij;mR{id4?y?u;g3*KI)wi z>ThFg`k_GO4TM=n<;Uq8qjC@7lTrBr`o^gIXTmI_^818YM&)yx@r_aWIANAiN#Pj+ zm2{V*KqcKCAy7%_#KmDHI;tg5$=?{26e2HBNr8O=l@t=dsARJ)e42oKls-N}A8)3Q z3IRDyAMd1(27UY^eSD2Rt|!3%jlRv(x4Y=$7wO|k`go8AGeIA}Kp#u=@ooC}Jbm0p z1Kdv^zd;{u`gkP`br*fyP6OOSAAd|AbRly%Oar7FSHnl>8(sAm{ylxr?JVIPG-yiX zAAXBIC{1ZNha=>iW-RlTbi^{n6OvM@ zoLH##6HyLw0PGGIxm7er*$WR>F zA~}bffr>R`#ROX3K`ua%g@ge=iNFa($6BP?kCAwK zG+M&NmJ8~sQTR4P-=~X}^ro2ny(fP4y@*t35La~sk8`fKoXt?*rH*?&xi_KUIa+{} ztZia8Cz^mdOR*(wb{tNM$5$v9ZH!xBE@^>*;># z>2CMy*31Y53xrw(Z~s`_B!sWNQ=xyt%xkJp6EHygU+aZdF=U&-y7Go~;+#Rdh^6P-4?*Z;84#KfJZW zP@tJ-gj*Ue`fYW}*OrIM8^bLUs%*HaTB&)RY2RUy z1_55;@69!LLHxC~*lw6Fb8g{m(<@P#b~xN}=jo?Td1ra7yq$V1-xR*+K)Jr)9Vk}Z zR-t^hav*3H4iuWpjaI!nx!?vZuXz9{2@X8ym1f=A0Xe*>W&o)7p4iZy!yrd640pci zHp(_C{Ap+Z0%K#pQwf}Q;1!)#-I;IJ+YKi`r%uzWx-GmddZkLOLRb!_9Oq?jq3o0@ zRnJ*)motTWt>so~j@xn;>Osq?*F3b+n5=r|yeeK1wx<}|80(&Si#zX7Gc;HwjVzwW({b|{jw~%y zj|2^uIKMR?=!3NX|JODeckXO_v^$@1!Ej>2RF%hO*E zI!D4`$qZ~ZutiL(Lg|JhM+~Hl$ag0p@;9g_M&!_xsT<-;Hwft%*!8H!D+6tw(j;)3 zWLL-CpnT-WspHcJ?|Px)TtV5TZ%3V}DM6kP1*yxM6->hBQ*om$&y@@1;>EIOSWtOB z%5!e8fY;0U%sYp!x#l#jBwmDVtVoDgEIlSXlDW>D*Cnm>;*=6QBgRkCdb%3aC%F23 zLThlCE0D(Jl0>JL0{-3fS1-|v46y{#2p|lg25=b``%>hq6>qcyM^sc&KXVMM$6IoV z3r!IEYfj)X?*u;qtCr=!E9`m7=O-KqYG$!gt)lz-SuXAht%JZSqLP@_De(6^#49uq zr&wu18LT WdvrSImf(sYMAhDxxImC=ygvr2-@b4X;4_jM-j3f8T=-ojm=(D^5F~sdQAsf^&Yy8tVWWiL5(3mxD`G45}GWogCk4_WJ^!4xeG%+>(LmH_yUa*Y0Mj*X^lrw@)j{b0|gWD zQM8eQh`BH3mZM$x(Ni0C|I!CSL$!)9ZD)ZpllP&fnr`$7kBZVKnwEMD@TK2rxZpOr zoKoRdIpecx_~wO%*v}CH$NYzrap3CD@hzWfaDeKlm3VxEG&8r#BDllxcoPwi`7$7IYwG-pJ5*FyrL2qSrvV$ zN9%tYV1O`wpFReXRG-u}SW?{=kyP(E1y^sY0{=9N9nN?{7{r@u#}Z@CVx?8i;HUkvk17zbU)bX$+b&#Dpv?Nc(tu#P z|5#6+l&QwkwIhN(wLZ65C^aKtM*JVqRstI$2RZl2vb9@B?19ECm^k_QGPJ3P5bYXA zjdbeUg6ODo$I=}KnIqwkLzyyI6aILC8r~pP^xEOk|Br;xr{EMbD-Gm9DcyVc?|5lq zejhVdvD5=-e^^e$W!)Ow81ryWVDrd<66oa1`AlYsS@G@8yc+POXgZ3RAFmxTuZ$wb zD8e6q6}yJLrAD<p!FU&Wv|)@u+3C#7o>ZuP_N=A-f7Crv>X@SE2rhvif~cY z;rlvE?rA7A9=3;|GUHvlR)hn(1zb)zaEujPXx$m~LuDbvT2yqI3I?9g#>E~U`F|`q zsy%^E6>#+g`a>I7D*U30O~l(TO0j(?GHqrthuZ}cndEu0tTy@HQSYOMnpTpfVoH)G zM*58&uV61>-jORq5q$S+GuCH`vED!*14+Q$x&}+YTtou?cP(t-LzL^7#9%{e&kJsC z*(R0=Ub!&Sl$<1z6PusxI9=ccO%e|6mApmxKnot*1A#N{P0deX#S21(d02;$xL9vj ziy3TVwW}<5UE%7b4dn7Z_;8&Wcuw2cbqy-5wlD*Uvax9kGvu6CtH7C?p|yavT-xj* ztYTA_bqixKe*Nkir;%;p)iyG$%I9l}?GgK1)eNfzvqj9fK?sYx185q^G_s?(YC8fsB&Bk_X_DC4mC zZXwEOp4o7JooZd%)T@P;-J27JoMMIz8lp4&f_0f;t4)MNkf@jxk|MC=y!=IS1o|aj z(vw7uk@Ppbvh7yI-rB5)ndp-FD;Ln%^*SOdVko5nsuEEm(^%3cRY+CwX7a{T? zMBQ`sir93AbXCeI$y&rhh%g5?v;Pq_93^Fq>3V1t?HSG;uBtkg%^&D7_Q;EE7Pv}e zjOY=VzL|VKk9N{X4eBoDp?pb*Ain0M7%##`RBAh&Oq?CbtSkbXbKavT~5em?u5hDP5-1CIdiC_yv zn3XC^A})XeG1S^=I{A~@E&5~tB}z{_6A+w&o($5X^z_1Yp(ks<>@7w>NMR(beau9o z9t4#+1hRoSFV>r9*>`B$W0_VN(Whnd_#;rJE@I$lo&pMB;V2fGUW#pFlb-j;6)M*D?>RxBO1P7t~k2Y&+ttND&0^C>k66=zM&rsoq6#ltRv~aiL z3lAeZ=g(wRyt~(%8)YY2@Tk*qmgLV(X=sjX91LcPG3*SfH1yJ3S$OO)QuyeGJUEKD7P|_>BUd z3kfvRWs-grfSl(l)&d@jEa1ory;rf2*fJVROt$Yx04W988Ze_|dw9Lc_8q6l5ovAZ z1&|ZiSGKrT|83^{G$L7e%L5E1pCO4XU6!Esg$ZZ5-WHBfDZlGd%~DnutqH}U@?ea1 zOy=FI1j^Vx;i{VeeSCx{%Odfz347U`r*SKq7@9Uc^2|S;F!M4lkb7WjYcr$Jv=Yh} ziBJIN8j3TfK11>E28H72nx@b69VilDt(@H=cvLQ4h{ zQ}Ouqb}OK8D`HimxhdMjgzsp+UN3@sxo8PHov6~N;_#B#)QRv?7$*B05@8(56zn$} zIKT6h8G~77;Zq1`(9pI`QL3}f747Pt7{ymcqZ4Mv&MfA7w3uKpaLfhu%q)J$Vp1W# z^nuDO;y5PrDQiunaiQszDhN*xPpwq>+N{)rgsd_Dj^q*Aj+}psDwATc#+~*$x%~RN z(-8h~r*k_;3wTZQ*TGCiVm<>CM=aMnI{iuU->g&O-pARC~;*c8X6@@`#m5Jt_ z1eB)G2o0JIwU8_DMXS*WE!HZ+BaJ8F%r%HSIL*qL;PXr-BFe>fqE)~x!874|DUp9o z@L6!q5}fSyMZBL|&fr)$A2Y_$%0_z*0V5GblXt>PhzY48WMlz{j%kl4!aa#OGe1^@ zL9Dn2e(hK-3qZu-C$MIM5xv8>Cbpf=OOk@JDh5K@Z3c(L!R@JSDnx%qk2*04QQ+Fw zt{O}jHg+`)3cTml#I-EN!qV2aS<|n$!muO=gAZPzxr7y}G*JpfY`Ns*1FQcYf<(EWQTp+ZM`L9dHn=LH<6jhc43XQM`)+j8ZqC$ORK_R{< zF`>R$LgI?_t*L=Y?_vT9QwRrxRzn@(CWO=9ajB%kS#KH6dpfsi7_99x03Tj-sxG_$ zEhi|{8#pma&H~{}FvnjqP>_iQi?yVVt3&BV5TR7XW&4U*OGO+fVG%x6o2RrDyaSz~ z5HER*!&yM&RfP`AtIFIyou9RQY2p~IkXIynWIK={-Xm?uzA9}dND%=~#koqoP0^m7 zQQ)_ebWoTu3?+=d2g!ek7R#D>)ME*RqIeYb#yskW5jW0NJtcZcg-@eF_n|Da{^O*> zcTw|_N{6o!!H@Z0Nv2p^I{X!?d`S?mkq&Ajc9o`tG8I;^BqW1KXHh&EK+%NGvg0oj z5S&7G7^EB8Vc8+iVhwg&Mp2axGO!v|hP61<6$wv@@@WXIsN*Z*pdv?5oP#RsA&pW| zCUY?ks;<`>kN!UhTK#+auy}N`gX#%ggB?_V2e?e2{Oqgm(K_7IU$Q+w4C)w%$jhd!>eu95>Kmd1M741<|vvhb$dqybfs{Q=;0U;n080e zQj#YHhv>OS7H3;EHuU5npjBh27dAtCam?@u^r5CQjjDX>OZogRO(G(@1+j_wl6fke ztQvcoqIxX;1fh1!-=B;Zn`!oKJnwe!*wW^bSYR)yQvR3c;Q)&$coT3F0L*jf2pJ*o! zGqlzU(xKD})jFSuVI_AeBWObf^-~rT;9C0r#m*WM))ecDBJGfD$bptj37$w#)?q7G z5(GVS{)2)hPtr$f<|w08X0I8FEG-MaAL)yy18U+FquW< z?J9E=QQ-J(q^qk|aHI(55LH$y*@`@}fk}hQKTjK$a5-T{13G3w_6J85!3V_CCDxAN zxpxc-tYLKF;B|qrf8K>{i^pEy4-typ?CQpm0fd*}e8Lh`1_brb9QW>3qS*8suDXeM zJYXX>ZVUAMpd)=w8iLTvB1~1h&j<|PijhdO8>8zcIo|2H;#6MIN-QCQg?i{2KFxH6 z^;rFP6E%+czmbemODxT9r7=7z2+1h(e4RxIJkY5L#{SG2Tm(`NE zd>v|p@lyL}0=AN+osB_5HZ1N|bu=VS+7OSW|N|xN?^pxV8lpHz+4zVGkN0SM$Fm;rQQLhxEMTBC;qZGlEHn57L?keV5+Ylzw`m*$8Ft%w6V{8L`q{f)iO`lEE zsZf{3>^nH?o+X=)IF#Hige;1jf(Nd8HAqO@)l@aZ+%1Or416S*%eMTzmBzP=>sWT- z?3(4T60%uK$gXp%dg#m*Zb=w-3Q20=!mM?cq^mlDr>Lf%;aJV*2{RBx;~PwfIHs3xtDmbIVH(u${;mCMr#p zcb~8;z!UqW6wM;{K?RZ0C_Km+j!LA&xHT27IF%6qNhR8{{Itj>c)D`=L)oT4ZfxDw z!F|Mt`;@sCWty}timVn+YZ2*JT3*8>FFf-rznle;#CesoU|7vBQMpEfrU1(~X_nEG zxH2Jv|Lv%mpk+~JU+#geq-Q6r9W%3GV$np%u?&^a8oJlC%;M?&gF=3N-xaMHcG&;- zJ}?@I6eq^+A~B|TIZ!teZsVwo+#_u`AA0g`;`g0i4Oht^QL0zWQG%kLGIS@*2>p`7 zMHdU!&*99m3bII%siQckR;P&Ffk)0YiPzdJpZ?ZH4e@UF#|wPxeLep_5NUB<&^_S| zEA?WgCZ-I~@fDskOI=Bz&abDOW7+N=M4JsVR5SO3)zc$MM+v_|l<@D9hvNSU;d;#f z0vGkah!2&)Gdy{kB0+oSH#&(ugO~m!A)DcsQnNgj>6+*8fpzXct=n~PS5KP%e+9aJ z!sv?EtCSUdl&0cuk}E`~V&!SZWj|Q6bel{k+=3j(bCm-A5a+x)*)@JxxW>D8YGs~FbKJ69>CyXet8c)}%(I4>kZ-_8 zf^e}-_?OV+?B+U_3I7LDeVtaRVF%jU%}7nvxmQ-#9`$MaI57?q-%AWKaPnDp#WFAK z?|yfz!po7u%2%Mh@lQ$E^)#}WeSX3mrf^4C^J-QSyCYVW*Tbv{07!RkS&i;y(+3l& zj-RoaWF0=!1(a2!3Pb~NbbthW9%L($5oUEWDy$&cNhGo-YL3N6_D}>(oB?_g90kd3 zy=LV+IJmGvb%4+A{=e$k^G}II_)7Xn?JlH)Xjxr@$9|FwP+X|9=r-xdf~|HeLueph zuDAhD9!Vev5MoND$w#Nh$W2Ics@*_t2GT;#xy=gY=&hHK`vONOJhz2=V&JLe?QJ^L zfD>xV9&%^6O)7;gatJQEvre0%-Qw#?L$W8lf)JQFpBHoP;Uj_ZmX%06MO@cSuHffH z+fnMEEAL`R_}UqqnQ4~juwWPY_W8vO;|-##*VD&9q`RzZFzKF&_)fy&G-Yho5DCGu zAMS#nfGZHm(g!tCOf^M9gX~l~O(~qLnq#38w$kaQgY)|;WdJkLA-ugG)2Wy5I z$Jt>2jA&cYM4C;H>oI5DnAVz6{~z_Z{ZG-%j`_crJQcRq^Dx2qxR@3bIPl$WD4ZFi z|M2aFHJk-}j?iJCkmPI7MBx2%*o4H%Gb%&z16&rgitDk!L|e$#0#;gsAJ4f5mmTgy ziSGZ<+H?@K7i7v;caA8ZR)+TTb@#DE#}aD~>xQTWSz1Ph@nT{q!1onRU)5vOWWmex z3kfulLW{EK#1KDgQLD;krB+41O`T(}ps=#8h+R#PCM-h6`bw3jQp-fD=-e&q)tpAD z|823-zC|CY<%1Gu5lo>M@7joB@EF2O91_Y1X3VF(c~1JtrE1~=Q@^A z^fPG`S@Et0HsjQ>c!uNzDY?dK_y%W*ACPm9Ew?J(@$^N2CMaesPb5%N3dUklSQlei zRnn*)#$q*kttQewrjz+muC6{?cv0nZmi4gnG$D^>qRzn){s4l8jZ$c@JaR0`w zEa0C>AF0_6Syb2S8myMSKB|_!YFZhilA+Rl*T(Kc;#T3zmBY|DoWN;9>`S?Pn%h!H z1#eKJyF{%UtlTEB@;p68q1UE!$i0Esn?g?-4QV>zNKXkV)y9+npbIY9?*V2?(VpboiZ$DOIhDF58D=I!c|T8+ zsV!T?UlGhG&)2bT&zFH^hBU-w!GZZNaUkMOMLSpR_%t~%6Mbm{Eu>(g7JXR!j*cX+ zDutO^5&g8Y`P2GpBkkoiQz`;Vp0=3piHb56zh77{;YRVcZd&E=|*6*AIQ5GBg@zKEE@{oUQXLKNNYPda^&t zDbeTA4FL)!6-;ELGmw+pcK-}kCg_naIWBmVG38|xiz%ATkQLc$pVI*vL|Ws2cnHsm z_z}8HS>?x7jvC1i5okiYV#4LaF)K%KHs(m4WGRf(3M|&zd`^OET><}}uBIUy(hIMy zae>zVbvJLhCfttH%5+meZV6LuJFstxn|rZRN5UhP!CJNbjB`l+wJ^{|1e3%>OzMD^{nq)y4M` zD*jBM!Z`K5VIYz^+d620vZXjJk2u~8^t&E`IYYm^Tq}VyM~>7UmUfGG*c@=D~ML3d&NA1-%Yx; zNlkOo_Ck_OT0WKZ)oXT9nQ0$nLu20KE0M61-U(wQwf&m}YY6N+&# z!ph5LeC(7phaBb^Vzf}G*#`l=gkvzsk*=piZ!J8zfHHHiQ_R5*`ba$o%F+61VuETi z(y;FR(@3C)NwHB0v}<%3`&LuYAXUt;95Jk$@iBl8;4?IyF|K3z0RGZ|_he)01~P+D zXPmgabCj8QZC@PkCoZoz{8c_mO&ZMZClcr)1-rLs#p2BH2OL~giZZo|G`qKKu`kWY zkPCSLm7)YCdm?6IO}#YqYw!S!(@%?)A})D^Rh7>#<@5W<^q<2Pj#+T+B+2-xaClcN5in(2rsWHy09ls|!bU~PD37sgF{Vb4#AkYTbkWJ{(c zhAclQWaqBTyc@8?D+R%t@Ei<^=N@~goB9l&i1W#OH7ZmQn6*V(X^(bvwD7a0rktF$ z5{*McZpz+#p)+1~V87mqe@M!%@=t}EVGmYdjYh3ny<0;T-#ajJgv5Q_281lYNQ4~f zONaNQVL*1EoGD;&sN@|VR_0=K&gah9ZXCozoQ!N12*X${o^*w^Z16u$BOmiWN*@;6 zNY+R{q-(H7`pu|D`YHHV$!+Tz{e}bnq&i^*eJf51lydA5UEN{D9+^-(jeUw~LY4z4 zv*-a@EqQ)rD;ao?!O?Yip18o5^e@pdANeAOFx+KG14*W$NFHgfO?nDKZf5fj#cY0B z&&?qFR)0a%uckGPZhKERVQQa*J=Y>F8qTs|8ju=DPop*z*4m62{+Gq@zl4tgbl~sM zxc`LfSUT{ZYe3az)Y=^zlKSKP8d`bPUJL26kacIUI`rlj2SP#dbq>R$LCL`mzEB5; z&n_Rsi(}5~=oZ$hb3rkPt8QF+`dL@_&k1v%LeI76!N@OiYaCovIz_dj`sul^KaMQ9 zq}-~E47B^Ts0fadHNeKs=P{Sq$Wo!infhD{-cS63ZS)dyp%Z_Do+~K?J2IGXlvgpz znvgT#ms}~IM|(y=eQp{kEafI$c`T|Q(t5O{ilvO=CKw)-BFl~VX1d_1{JVsyR0=8e z!V2klS`?X%!t{0G$Ae@00_|!*o9L_Qh)1+JlgOC(WTGC?Sj;4vw!_$B@o>W^04*q> zhq~wBhCw0jQ3<Un39lH`51CsUQT`krs)gHA1zgQV{ezft z(99k5VXfVGjZn?o-$v&x`E1u@Djfohj`TW>)d6dn!QCeYH=Rt@_SVM}G^%^Jj?oa# z+=2u1h*z0mZ4xF1abzfz2rfQ{Fy$1oKE)n}reVvX7|`9NK_P~8XDZ!+N*-LfLTK%;GuUaw+(}{H) zswKwPwOMeid17`J3%As-Edo_a?r(4d0|(PyBZ2mm@Ez7)YTwSXeP^f)$5DBHCiGJ0%qV=;H)A^DOAmU0Y-m z5akAcjNKB;=+YO+)%Sx zija5ImCqC8!?ro4Lq|Mh>c@)7W*EMB4b59qx~67;wFfX0X*jTTh{EE)-Nz};q?}jk zl{xS>8#QKTBd_~FnQm^!qjP(imA!L>*)hMBj1t?EcRRuSh(M1CVwQI`Icb$W-g4%H zW|p+Bqbb0D z9FT$JAEOUT6O1=#DdPAOx(3I09Nu7?{%3ZP&R(*U_p!xl&lM&?a&+jobdD=z{4vq6B?&B_0IUoRoUw>U^gGiWPvg%LrcwC=s7KaD z=PwiD44mO*>oOj*uvalVN^}p+8VDJa+qNe%6t>VcCikT#3)53LK&3T}=H@|1(-Sk& zO`~RsD~-=q*i`JnE26T&R0_wmB=0#oX2;rXAI zK1F^0Cq+rkPyPFVY|Pd)eORkHS--nS*I@nb!H9kr{!elywJHnD!Pq%c4eC(A<{;VA zXlWU(rAaZz>LHXlHu=#A1xi4}vizy6_Gw;Y`ETjSe3E7tv>UV~%$|dYW``i13`O)< zRt0dbR8yt1J$=S&DCd=eavsohFo+&@n%0^kAuxAiOaCA2iuBKCqulXnHJ&BXf*h^K zP*xY~1$3mSjze*>%OZu0PCgWwb=7|s3eha8^Ck{HbrkKPgZL(Uh0b&*zR50+I%Tig z@S3#CBmN?#N?)@3v>LOfAQoK@gM8w2;S{>uLtV6FHkjW_N{n@R3)CqQ(2>vc>2dL5b698qw8ZDuuUbiiTEWX%v%6s@l4ZDcmgzwff=ON>v8P>hglI ziV&mWJloQ6#8&x?4VKn#63b~0bJUMZL|DKf>x4ng|Gz z+>WFl7m-$;P8B110QrjHDIgz#<5dGMGww~zPa)-T9kAfY2YP4eJuLtg+$W3SA>E(6fkGQTX{VddP@wQ>fRXZI(NisEO~6U(!gsIv{Lof1u|;hLN3 zgMoCM^tZaG+whK#S=368gX-5`4P+OI%&-gJi>axcJn~#}}5v;|jpnxW3Lu0ck#^Sr> zBm%fdcAhRb>+Sinx>fk3N>HI~z7!=j4*d(Xq{sZ%(MM{TNHGgbx&~W)pN?34XO1Ig z;ei5Td7*q0yWn*fT`IeCpGsnZi-R*rW5kIp5Mp5f zk)gw|4D_xcJY_;Ypj8=etd2TaDLQcEmAvv1DnW02JRDHrCn=(gRQc7lV$>2DYi|oQ za8c8Mu!+lubqbjgJ$s6q3`^V^Ab0`46K%v9kR%c4<{|2fCBjFa3glo089p`O?Khjh zsb>?r)fRcH86DB@%y4;5KbB%n=~iGpr`dI0F`B=H>)mo6JQ;xzXHESfNg2g7ZBNjd zpMzIwOj^SFlw}nlfhrt9l(K(X@g{`6E7s2`V8FmmSxSMiDWrh!+eK8Tpys0t5L}Zs zBki7uQ`#LVy`@inSfhBHA`U%GTRP}t#&CHD=K&-))qOa)Vx6Nbj^$ClM?IkvK4vV_ z&INLnp;dJOr+ud;>QlbiX_0RhJ62Y?^El{&Yuv@P#Ydv$P;ABjjyiYIZ?`++cj196 zu;L42YpZ7n24!UL-6hx4F9|`2)u%BbXuid4^p6wRXbRo-b5X8iSXFon={?YrCR;+E zl+nH>1lZPYRbgmpLiv=IwVtYE{gxC&tNY!$DlspeAkI}RG>jII9;4oF%G-t7%1S6* zHEQ)SETFUpV!eunA(uCrc1{4)m4iBPDKm0b7Q7Bp)0kIr%;tZdY$O z?|U}f8h9=8dm*FxwRGKSt5OZ7V9+9{wuWSRTVBncXOkd)XEq#}_iA*Pd%fAgmm+ps z;rCc*;LA4A4X${voyFIT{Mv3-@oh(|UdYY4g|qZ4y4wu6n#-N=x>CK~0&DlIA5RR0 zJLsBKT*sGNLfpne2X96ZXIp9HaMLQCy$jIfn0Vuf^esV-QXc2vZh_WJKktwg^o#9H zkDOOIK9bitu_4Tq-Kze&IlLBLK;R0wTiSstv^m^d^yb?0Xm3>B6N?hqWM06V5nMf3 z@Mus-D?eJPHQKElqQdKx>lZ2N+pW^%;mM$azi*2EnDd&=dNWss|EKCTfoB4>fPC~j z5z7~CWiz+Z3HNsW($$1NGKwVlqoQ2{gQ|T~^oOp>;Vv3O07R96qAJGJ33pW8+I-uc z_ki&tzHjhqo$whrtcVlbxuQq+4xpO~V|oh$tV zWGX>~{<%s}5hS`ZSF8k--5LXtP!6jFQNBIgj=_-YmlO7&(H*i_4mq_jxQ9F8Xv1rm zh<}0ww=Oh5uIQR*J9NseRwFoa;K1VI;#6Z9H>%dA>dpBBMep1Jlnf4Zz%x*TTBI7e zmIn_X7EUMJiuaSxyW<5w%V@Jy=<0^vm~L)T-L&d;tkR0tDseaE)@ojJOXq}I4XjWw>8~G{S^yu7jKR(<;uu< z#F>ve;ihVxD13XcfP0K{kF>FT1Jry5e-~eK?C%s9+*>F^AuM2)#InMS5&y}d_Stp= zz>I?Tv??v2M=bY?Ad-5aQY&Gq)%w4VI0E#xXt`Y;4hs~qB$qK;We;~cTnu*?s&)5l z4&K>HHHSpzwAIG&ZS-pAI=I+3+$uN$mL906f*UkI*R7mLH_CH zPHu$PMc$I>%&*Z}Nq?ccDk?>K&j&po?(k6$HwcHRi1=mP|2_n$|5x;Ipkw=c>GAg) z@pytB*KNRKCp~_f9`B>akLicMrpHe<;qfDSoWLD<{&9LNY{A2)$9?qmSLyLxYW_R) zxE6Wi{ZV@S13i99j}Oo(l=squkFD^bl;1{-uKzxIycoM<{$YB2oE{&cN1K{z(&N9- z;~RLi!x0)4pXI=a#kjIOrYw&q%VWv%II=v3EW@8=*s~0GmSN5^yjg}d%W!5H#w^44 zHlJY2GF(}PDa-I=8J29jjD3f3Mre6EW3yZlsC*7#mQndh`ioJyoAAk~{4o8+sQgF5 zETi%X!YrfmC!6sXqmpiB7pSCY2!Tqv4p5+yt}GC!q-@sWd=H&&5~$?A7?l)XE>KA^ za{`sL1J9^r3(UVjK%Sw;C+P9(^f*gE9;Zi#9*@xDXY}|MJ#Hbu|B3!8(O>t`_yIk>M30x#0B@tmXXx=LJr2=OchTc84RAL-{+u3<(_;$_kS^`? zUrm3}y>b4J=s{P4`1jDDDUZDWeR@zfP2a`IY0jGEf0zEE6bpWb5JBhf{2$VTPep_~ zY-YvlYDb|W@~9D86mLkNsB&VV+HXWTuxzj_+zM9J{Ev%X-}O?L9*ML#qI%^@*G1Zg zZqRIzGP1k7E&0neVFuz3r<_P6;S!oc9myNP+Q`ou4&Nu=KT6!;nGo0~ZVcYqd5}bm zi(KP5@RI-%S9GkUpZywHkw=4N+>N-P-WuI(GgNcBxkv9%$?to@7avDpK$8?NNANi3 zR?E8wO+yDRo diff --git a/docs/RefMan/_build/doctrees/OverloadedOperations.doctree b/docs/RefMan/_build/doctrees/OverloadedOperations.doctree index 93fd5978756fe3c64003dfe27ae2daf3ede0c019..dfd0f3dccdc313fab25625daaff5a0a7f5adf8ce 100644 GIT binary patch delta 2720 zcmbuBUuauZ7{GVaW^0?4rJbxzo3=@tTDLZdZWNhgb+FE{b-A0Cs+|q>=H@Kl&60c5 z+n?_ch(Xa7FuzUKa5ZseBxxAs!&LQ<2>EKv>X)?bUK{LlpbB`G?qle`{KZFu^!VJobm;pYpMRU= z4RWAAJ^fQ(qM9#u2XxN?G{%7Fsdlyab%Q)%bcAcJ@x-lC^BW|uIg)1oevHk-8;O_t z7>AqdI5zb=>U^*}xcd&cqdZ%`bi5-J|7nnJ0zKiX>*%^NT1t^|PG~ujm)Oj37N~t1 z&~o&T{hsaed6XlEyc4r~g*|(qFWt;Ob~9VjLREqXagwngTCvzfa+iPV>=(-4cRnK& zyYO0ru{eqT+1Bd9;Y~=oB8Rb64agEhksXPzoCWBc2RgP3#3T>IHwTW#qLn~|t5`c6 zvgyNB2_A@PUIgc!_{cSPym9szvfBn~?DRx;??&U!clY)_R@~LvrZ>A!&%RnAd%5c8 zPRVAf5}a(#nPPgQCr;n)Su7?ShkOkoZCf=+?B%pHk!?jd;h7BiT>=Q|x+ zsgM_|96Kdns!DM31kY)p_dlU{qjB6M;@Sr4ar2sq?*eMdiR;)y+~F;7r_n|Gf0};f z_it3k1Hb=;P1Vul7+9|DIM&5@iQ$rTLH)QFZ((eDChf=}9qNy(7# zjYqyh@)3m?m)VUdzDv=O;Ini!`0>FGB`c-SgeLLGl$z1v6^jlHMM9lAk=YPj&`IVp zTF3phQai~eNOFNo>DC&(Ftl9!9Fvy*l;!jiyaLzZ8r+4?U>$yjNANH`%1%RUxyY6n zTMBHs%9c;qat9Z))T&B2W(ql?voV)uT1B`d!gUeuim)!iBatf;xgwD(5mCWeyk|m? z$#5sy(TOlR5l1Ih(TRKT5bjqzU~{hG0qgpT2dp)?2kE7Uv`5zZ=jEn#P literal 9434 zcmeHNTaO$^6<%Lv?>Dcpc~~1J#Ie@#?hXi$z<3Rbu_feqj208(Bu=ZRyJo6qd%D}* z)q5c^gh-ZbRBvhWh{OvbiWCXKJ3k>p3W|jI0g?Czks|S(>h9|9-PzGhRy;tw(#%d* zojP^u)c2jL>Qisme)rLZG4&@GqJTTz?z(B)o^P`#k(0J>#XaVUE^t~$N9wlWQ9-3ns9{6N>%dA zooyDnzG*YNekWj|No}Kq8bJQ!UA9Yx947WCQ5K?$({em8VUtMsDSnKfkmH%fO?lFF zJeD-$mMN!AAws7W3yhRTcEYhE8pVX=no)#8{H}RsFa0%X$3gMXGOewUwMizH6T<9J zRl*neGM}X$`8j#B!Tla<*p4YIzU4Hc&}vxWULbsTt!GApg$=kXYHYIhZPRNMLoY_Y z9!40#`CG^17N1G|UpR0vFOZWr9>k{Wh`rQPXG;ZzPre1y8mVbbex4k_zlKrsI(+*L zd@kT~5uX)|h(E7JvYLwX%P^q^6Q<-Gdcm}~M$7fBt@6};dgH-#y}q)sajBmDU8%om zKBV6(Hy+f@OZAOwb+f*feZA-i5`Shi@r^<~X%?XUWfK`0 z5H`5e;VwSHFvAX!kr24S&ne_hpi_m!xWzPNtScuKPVi z4=2*0=d7%h75*@x*%*yeua`Kr2u@wgS^UZmj*X37?*)X>tC~dhltnA3IE+KrMiIWM z!9R@V5rlh=mlJ=GW)s8fnY+V^nysj>=xTk_@j4ZcWW0Rp#(j~NJU)sW3v?6PdxO}{ zZ}TR<^MwDj;4)-$B=n5fJ}FJfw<}ZfS7in5DK1{zAAeL;J}G)=up#Jf$Nf+f@{q$PRRv$ z^V)i)b^w$KGXtQ!_@Ws(R{e$05xmEQW91WcutE>MTf=siFLzJSKXo7;^3>TK(=F6) z{aP8%uY47iwDki>+o9k4i6>Zxg*lW;o5H+?4xEJO%LhPO5-!fAN_K4o+2@Cs^;pLg zEDelVSUg|@nfgXSC=y$(Gn{f$$YdA;doGJL3*3~O@1K3Fn7{Jccdc4Jpqnx09>$DTP>qNEX?y6?o zupGUlTPTj+s&MrCsLX95JU0$dB(Lqi_&hhF{1@a4OcTDc1OY^^M*U37gwVk8+BXq) z6o)ek_iOMPi^H=H)S}pS+4cX``IQPn~!aCu)c*o?ihVkI3`eph*t;3eQhF zv;-j__g{*2_0VfEacKbCCx7g0I}yE7S8v7fu2&c6L3e*a^jz-#T(fjoUT^9air4qb zyq2%tbeL-c)giN-Alu+)EKpSyIzw)yv976ns9bsN`mc7O-J>vJ9UT*|!Ns}5DwvqG z^EoPFez|NwtS65Tn*B{b_H68b^z7>bJ-qJQ>FobX&*iYQ|E6xCX1`UL{eP>TFsl}G zkVEN|W1y-k&wddx+ph0Zc%{D#0|TT*7<*PKJcM*e&Uj(R+#5=_lD_NT*e+u6VV30H z{Zfrt14!{h9-SXH_>n`Z$`3UagyIrEN@WB10Zf*X0B3xiFYF(FO9BG}@QKm^8p*c9 zQ)4=l$S+fl;+UMb;*c_phR!g~<|S#SQBFoo2n-hK)KfY?io*-m4bM*G_{*jnBgL2} zSouOzPIZ_^*-t-A@L=QA5DBvv;9(~1#(?fEJWgkiap>Y{PWYBVnMtZecQx1*?j>@m z?fb&>1uIqFIwt2RIqSteV;9+(UV@VO2no@^z#*MZ=n+&drzI>svq#1bwzEc_A4QK@ zgDhd%l(QiV{7@J!+h%TZ>$sfermG)o@)X;3;45K@ILd`;vSzbZ+(CEqJ7(y?SC9yq z*+a>c2$4*pK_!pnyyFG2FqmigDhSG{ShUx^w}$s=i9A=WG*}q=p}|ehc3B8Nlc|YWAtxjRSBr<+$a0Z4470acl#bwYIaH@NqeB#=B6-{asOIdr z7Z@6NaI7kzy-MhrE-744CGf5n(exKZLBwL)H;~AK)FRsr{D>LlmI@`7FlZl=LUh5f zoycst3idQsbSa5}cu!LD-gc zE<_MrX*70rcGiPE!F_Mt4?7K;Z8snpH4=G-T98I+VF-p7O&|`XAz85Y+&8}ix6Fra zYhO21Qgm}J??(7OZZSAav{g4;^jvf?CCnBmU<;nynv~}OsGgy@rOh|e{O1#SR$1eC zNP^Nu2H=)_WCO@ExJ02JLA=Fi&lBdZp%bAAE-Ls4ka9Nanc&ld81#+M^0azR9}Oho z&CG-6EpCD-nBSCEm@$e!23l{$0Wz<2H$z>x$msqAAn`36P%zaw|CcBtL~*Msx5#=e zW`mM@=!-KZpzVx>YZ_Yy>zR&g;Jyely>w&Zu{^=NZMt3|C(}p(>H$R#HZ8!lFa#33 z43Py_D^8&!phDon2z+DHWr~N0Rh828!Uc+Xtf22*! zJ^nI(hyR*?!2iTQ=6~m(^Ut~$srFg=xop zsHLYW8mIDJRimYfe#G%m(86(MzpkuiOim*-S=grmn2AJ!&vgLjsO4v diff --git a/docs/RefMan/_build/doctrees/RefMan.doctree b/docs/RefMan/_build/doctrees/RefMan.doctree index 812de7147fcb31660222ca0fe71cc2b640320223..1f47142dc4914b37a122d46ac04a9aee4009170d 100644 GIT binary patch delta 610 zcmZ9J&ui2`6vv5a+}-Z_qlc~qyIt1SR_ks;dl5W{NU37!B36$}m?Urag(j19W`ZnO z@Sulc5Xwx!gZ%?MFaAT`JX!GOL7c>u77vd%ym{a6=gpg6^Y3n0Z>^JY{n+}}$ZKwp z_*o28sN?SkgGDs4mG3#PI56&@7ZK_s2m#L4w2eDH8>b?PdVWHKP=pC3<(UgcLMphU z4Y~6IhP#ALlg+qLxFkOt51Z{nbq6~Gh08i_>sZrqSDqQC^+)&^w{RPu;xqZ_(nt4s zhWBt2TiC^=9Sd)wlX(O$8syhR;tK}Qd(B9i0#oGNbD#=+PwN_3zN_%*XC6!~(%w< zToh7pBcLOJZWP9$P`lUH@}#r+?=m2Q=mq=x z!0Zsju;?f@Eq_+-%a_&D=9MreBaKK%5Ymy#XEbqN$+N1xGRMI${>kMK4K-cYkMah@ z9t3Ww;_67YYHt<+J)YMni9w80;ObBz^f`8P_9kCz8^%gKq<)kI1!trNDxVF&PZ%lO LRlnF+=GlJ$x{%w* delta 472 zcmZ9Hy-EW?6ouKWn?D5`qlJlyMnn>`L$pvV6crOhj9_6SB9qg#do%GFF|Lh=k8sO)_kq^xUTkWhL$tYq zfK~{yOITQNUP7E%$YOOz&~m1NxgZSL)Z*xXobKW3z)Z%4f|z{O*2bqAY912D3T8ab zdYbbzFC)J8@H%Y37HmTvcI1oi?quJE6l5U^X^8C_FbSqx#PBzuIVz|n7$KP&!;V9k z!oQivs>d&Q+z9l?_i_qukqjc_lO8wvE99FV&-HhFGhvU>f0+38HeQ4TkC+T0*w6r`7B;|8pI*|Y&9KMQBtyVLgx&T@=DLX?pxkL_exa;i{`=eUEyS#2zA R6N@q|O0=p9y=UB_`30m$qp<)0 diff --git a/docs/RefMan/_build/doctrees/TypeDeclarations.doctree b/docs/RefMan/_build/doctrees/TypeDeclarations.doctree index c7a02e1cfb5c0e1c83fbaa511c3a00cb8fec3d81..6741795089dc697a76fe38fcc58caa1be8fcb04d 100644 GIT binary patch delta 1798 zcmbuA&rcIU6vx?81WKVoYUM{;KtMpCt;QdTF|7{+ z7)ka*W=*_kjNzh*@v!k?V#5DGylA3F6GJpHdeVclTMC2xD)F#s_sx5sdGmeq-aZd~ z8n7;uJz86~zPGEDk(exGl1ReZ^2a-u-B1c1b=p6nptRzLXo8mnKo}$c;D(#x7t+}j zmJ@w~EX71D$`Wt>S8$paC9Dw4wQ*kZm>cUq15FSBlNknYI1}ZeIj40&>$C=K^y#2a zCw;o7wG8xtgSz+S-Jut}q{DKnDYSPGd1|>{+XMaJF}z30^U?Zm%Nx!%wYe*KYYhgX zo395ZahqbM^yadkmia9RjY9jTKCzKRRpAJ1fLe{SDb%NAC0WWQ6^$<(KEKeyEHG-= zYADOj$nmUVXz(GmJt+P#hN6pGh!JNd3PI9c85`C1)|D0{3}Z091UJ<3jbdwXGiTPQ zpth?(ro>78L*)yLV};ENcrxxd8+gUq_OHGn{0dpOf7=aoe)W(bnwCq&WX^`kyPEsE zAp>iNMCvacb)}(gr!4MLG_qQeKXt2)b$06wseZAxgQZ&6JDg4~w2f3;Ivq?pL6SXo zZ@h*pDf!R)(9J+6^&wXaH{3$0&@}5ceu|y}g+}r*ydZgf{L*}H(MeiqpP?N$_VgBU zODDBLLU)bsWV@2JZ8qe557;PyX-K1+7*eg-&e1mjK@5k>B1aJ`$U9i3=cp3 zT9B{q3uMIe#8oXO`8eG|=3}B1*HkOraZV#&Jihi?1qp@*5d|e?=^XRn`YuM#C8k%<|Z#kFZowNc&Wd`+~lA#x__`wIYZY7qbc delta 1563 zcma)6&rj1}7^dBTF_{Zm0ogjL=z<%pG0~V98PiAglD3 z{eI)Kjs^QS8mNU|cX}zXfwy#q2YFWF;|WoX!R-XEWMX_QlTWMiO#iH?s8R;Kpn7cV zD2={2eCRvHhmV2>cqqdKV1?|o2);S37r3Yf2k|I%M6 zIeJ%BxEWA#srj_jujEs5DnF}eqR}#1bTD0}rkxnuYHIqEW9aN-y!WuyfhFJOHz-D# z>@*b`{U8$j>aS4j5tqZMC)Igiaw4w1FG;NWa zdv8_Us_LGunx3%|(9iDau6yg;bI*3qJ@?*oU$gG*t5&UEMgQC_^=i>B&yQQ>b9Sv# zp0&!2mOFg3X_pH31s=VvwfnWL3$0OijajX>Cf!V-l5f;3t6t54)>3)M!YG?uTF3wFbu70n-R}^@i-B>wi)oOMDm|SSN>*`jc$(^_6 z8&)baOX7SSwgHt8mN)-k|uyEqCpBt=?!&*4@mkS#MaiEaU(U3fTaT)_lIyELhYW zN+t2v3zCTD~|=)CP)MNPn_+SumP@ z)LYNGoB7>*y`J^n+sr)E9u4v%Cs1jy+?<7`XQwMrn+Dsj4Rs-b5Y|V;H{(XKGpN>t zw747Yw`a!r(Yl5?1=QXC)AW}gW%8ARH8xeM;$Q+B;!muIM?>8?L#mYV1iY-I6j zbaxF5YHRXMt>Sec;S9dGBa&KKUond}xNEuNRPoxPQ9Mgub`@{nH;OkFZxXMr10l?X zmVEARx@>(acU^ ztbxUs@CVOYRy8|k*2*A_YTX^FH>=f}1zqq;pyEu<9q6cCF2D-qE3>l|SO|0rmKWtD zSZ)U9HEUJvQe{RFkRL%X1CO>aWndy;*&EsEl8Lq@H8)p5G_$q;Nc*5o9$H!Pk7M#~E*LBRm56I-urvsO~5^q1{M)y|(?XkFw=o8|AUJyRw_ zenz~zO@9o|&A@KT!u3Mo75lbI{fExuTee_TF;1OaE$IJ5@kxRD5RK4TRG7k$1MyaG zkMMKrX%JCa5Gi(>)Em$yMVm~cRL^3_w5J!;qfPWE4{@qB>Z+HSCS0W~EI0ft1+5O6 zHlA)m4n0b52|UZ1EZ!LGpFRdt%H-Y_ESE-=jgPxgsW0n)pJT$R_On}s;T&{=3kT|B zuqAD7Sxo_NkS(k?(iN`}eB!6d4|wrC{p>TYa@W#x(sEZCd3IWgUo3u+o(W6OqiZ%G z^i)=SsCbR2w247W_X8%9-xOG=4zys@_^~kmXtHG2i&hN-TJU+moEqZ!5W|MsR&LnS zHePTyG|Okpl{t)~3{W&)hpUQFz4%S>u%F**+68*TL>8UPlM~q59egx{T9$ewv8!3$ z;3TRFEUFb!B01V|LGjVzW87l#rNxIuRnhN8B`+m(jd(23q{nbOr3!jg>*zO-e_OCI zD0>zPN^XHPVB5G;v!;BWowEz10;|MZ0(G`=P(&IA?J|w?l1!o)0*e6|Rs|?9^@bT{ zz!mUFC`#a%!h}pU;eL4~BmB->4HJO!3>jn$tQmNo_A{t#mPCWaJByb~lgLB45FzPY zDw|7ga74C*c@rRjDhjp>&~S*e&1wNYCI&nn z__-P3^VA`ZQzq0KV+%hPFJbJH6E5j1s^YB-Qy6jLt(|Af!>@`m8aDmO2Bsf!?xGBd z@Ymd}aH+{Vf)%dTvXv>Ggz)q!*sB1bXZd;Y%Hma`f^g%4BF0Ea&QwcwL(1MoQC}30 z%4db|0HNeJ#QcawSrpJLNfqwk{`$|oDaqRL28^J9AUaN{K(WfgEhU#LfDq}idROvU zAViIY3IsSt$hS}u*~o-ULj32Yiht{$hT(68sVXoEchfmPZ!$fzOdM6RO@$5OympYai?CeO7^+h zc-d-9l&iB7vhF@1=hgc~YLqOo6rnSXE)WSVSNO-XA@gL2=Kqj0C5 z+}*MS`rgY0yN+4*0*~B%Pd-7F&ZtTrAP5AxB9bBM-2?Cg1?Jepd2K9=Zl*>Wu3a`kwNDZ@wr{s}{vFI{Yr$nYs%`7N3 zvGe{%Pn|L*k34Xnarb=>96537o+HPOJ$&CIj~s4^mbd$_ikJz)5ER|mcIwFFiyuAm zV!U_i)IBA8yi%J{?+nQ4dU=M%JGZ}DfTs&avXfbSQSlxY(Tu1i3_Cv=7EcfbgHW;E zl&NhIYl6B51!6dN1NAn@!M{g4q z!uFc+kuU>ecwZTV5V3Eoc#Vt5+lC(tzkrI0hl+=}$_`N_Fiy%!HqGZxCvD z2<9?L9Btg@0vQ~^Ae;w#X`GVvq3`g*pvStCeu z1NFQHHv4eM)l{$U^dHx(r!j4BWQ&#w8{xe;608Al2IJ$&)!b~Lq+!n@+5ta4TrgLu zoh4u=*M&EQM~bzRHkYFGKyYLHRbyjhHks`VG&Q~OQ!%c*Yh zzT*A-&LBmIe5nvqsw?Q>ta%oLn2<4w6X06~Baf)DwGOc>Sz>%rUWIc|S=Hi8iYFQT z7N`n`lA?+*tcn7mFn(u;Du@+iFF55R?e?qrx#0MA1)z)&menxr5<+cFiTUNKFkh=+ za_mj$6|D(=L-jjfByY*xu;X57{lf$8W)-Gfb$z)d<%_&2;g<_Bxvf|2y^I72{p0ySr zWCbyy+klYpOxdIk@wdt}aG$DFN_apfy+nbeZg zA(jl=sHg)WPzoQQIRi{9XE8sz2(N;S9=#?CSdeHPL6z;qnuA@-XrQN3!H`_&{AH7j>l@As>1_N$3` zhX)|g&eX0DLqdHH(|Bb8ST$>w!e@Hc*?~Hiwr~>~j!*2)bbIKhQJ~2&P8_=+mt6?(OOO{WBfyI2o zT@P;z3zS$d^4Hfk%XzSj<-@=}B$wX2MMJe@S=>m0Znqzfi-^Hd#neG~t9WC5`fnDT88LitM-I4p$+F}GHLHax&_ z?t1G-&`odk4hs@$fpJ_6y!G*X>tvsMx$KJfu!t2$#LgQ;lgq+|Hm#1qGNDW@8GA2c zMfl`;FGQdovjR~4ogr9`dCnBeNQB1LP$|ug==t{0b77fVC)Y&Ur$s}&5Js!sDBy8% zJBro|Sgn(HHr;K~a8eu!j297-)kd>A_NRF-n^hOV0x=WC6 zJ`;;KJi~!s?CxL#VJ%gzt;7%jvxKj z>i_b_Hu@>b`=0z$Pvhm2_gsuI3!-ez@NYQh;VICsM>jtG##@>$*1>4%i6{?EN{Y9* zo8*cUW}~!_E`t4#Q<#l4q|I+@y`l9m1lB|JE&iH1zG~gV?_lTgGitE#Fx~*Y1NAn+bUAWCqsQ?1aP7rim?Zf~2k!_8#B*5xMt&kh=*T zqdHA@L&Jm{O1lbVCz?~v2hfP~S$v4@Fha!}oIk}A^x)6&M`xFgcyRb|{*pj_8y`U0 z`7-_jS?4SG3qW5LfBr`N`MUV?4gS+~zKOrix9|ac{xAC886QuoG+ex=0*`-ZaOv^* zrN!~s?vIH^U{KVsYEwtxIJjnMwEE!UI9{$C(1+D74dVf^r$a-teKmpUl}p6*mlwx$ zgcQTj{1gqvm~w&J?j_Xb8(?3^kj{{XmR=+%46E{kByK z6FXWgy87P|cePtmkL)rPMq`Lg5k?V0zb|p?5kkKwB?#<4@vM*_#k&N{+9^U>#tc15 ztKseV5-An9d@6CTx@F7oE?%7nK5e=3$;6FExbj=U}$I3!>RZA=c! z@zI&*9h=0}Ez6d(t=oa zjtrf^-l=)RAG0)uL`nreKAyNc-ST627xr7&^PLprV~HD&u;asNK`c8vI1p_dDdV_? zT=3HP5iJ%B`BLHzb<2>ET@3`uFyr+xiYUlmByK&zkv~fdV%a%zB?8VRJ8w5QjBcDL zV@VaO=3<>tV@}7Kf=_GL^~M#94BGBhyDW+47&8njBLO@kEL)uzkqFEF?UH5LmQ!>* ztV3Wou7Y6DXkxl_t4LdS@haa~A-F6a;meJQ+mG<&`m`XHU6qE8f&^!cBefZME>lyV zNU7k+sl?ssmLtQvcysj_w&+THBJ4PkxbX-(?oSJ1+1W90ui6-3VkeEp3%y7%qMEoP z-7;cum$yZMFo|$sHgU@lE;wmHEISuqrm(q;CMuJV!kV2I%e6+MVmu}e+iILyyt?34 zD{+Ur<<@n(3KHWn>;xr@dBmxYH7aBBcyNS+Z%vF%go8hv7DSkXDFO+8EJ93UQ-JWX zIF)wXl(7h2u3ouVgty2Y6hmjd7oGWZV!p%+8g*;2IK=NKZYv^2pJEUz7>C$-9A`7> z@V`wyiP*emO!6V^AVu8{^@K+MUEq{ngXCir42m(vf0G!E2oL@` zEeKzUzAV_-EbA zPa9(1eB7qJn?}5#hYAHJ9!=btZaFao14P)2wH5S-6Sp1V#e-=gWd9H=PvJ%h#DQ*a_U@SEFzq$rv(w_R0==MclCr}Oaa2jVv$iQweCJt zv(Mp(oWb+y@E{c`6teMiiAmb6Yz!fS&e({IK`|b~PbY3WA`w5C7DU&)NbfOB;$Wp! zkeVB2MyOCQ*hAqz~9gEsbHu?s>HjwYsXw>rFI7wrZ1aBFWdUz8Yyh@9NbAXd;~j+~$^#M4O16+bS;lnZ+26L+>- zdT+tXuEeQ5t#gT+kI?!|S`fZAyh5<6*GBVdF?x~JG|N~>)H$RF;1{VYnDwT_UG0`x z*T|_c&B@I2SeSFs5dG^DqY`1QcE)Y@d4(ktmC{#dSerV6QNNJ5Yuz$xM?kBv zh~nWUsq1fI`PsxML>Tn`v>=w9K{o_e%&h>;9UuR7Kgy!$_iyV))8uG(cPJR=4& zX5#g&#E3*#_Kmb4mYrqS1zF|^G}0%xS?lkjzF^;FNXFTV!#vU8`t=(70yuZt53nsU zIuRz0qy@3;OuRP0L|$;vH#>!NZ_(Oi6L+Iq`VV0Do{vX_1%H*e;Rp-`O=@b{Rm&yr3JC182hxIAcD@XY z{3J(^0lbKX4m+=FM6_7&WG-=sy5-5pE+l-zeqjt+3Zn=|8i`wvaOCN?O65Ew)# z|E0vOMkxOmX+eZ3pJI~k&-2B^Fa-!7i+88>!{t1m(}JzsJimR0xuAwS*Lzd_t1`WD z$*G@8W=P<&C)PazG~FRQEWHI`@JY&VBUpV){5iA1CSK z0es-1QCtosubodJ_B= zdGbVxW?VvN&iMr5pQ=&k5nv>k>2n9kd-)pCmitJru7H)d&GK!dE@kMokdaoH(gTD+ znv9vgIT6CQBy+NLDOezE$hieq&YZ+#gVgNEKF^N4GI7V^M=I*zVs>Ocaa$2P(qs^A z?MVCVerfkF4|3j3q_(7G-caZ&R3_y0M-z9lOM<$aMS6p}!bK9tk0Acn#7#%&+e!<< zA9>#@Sk&tXV*jKyN7({GJn$b2^8b3`4s=WYjk|CUiNGL2`Cm)iYJ~D1O$#DS`4o1} zHg!QV;TmXxKJdmz5eAXd;y4zy29tQUzc?%1S{={+N-JBS0{fvX%OWqjgp zP26&XxWj2dJmT?ZkU_M~#g=xg8WLlbx=bfzDI=wV7k4G@PM4zX4$JY%$0x#$I}$e@ zVaKg$K`c8vcB&)^{zgpW#Z5Dk9=Jn2!J?-Ucd=U*U9n50MesLdj?D-hBg}dtF&YtO zJ)RcCvNLP_DRY5tjtdR|u6iig@VdmvcguziyKtW*wH~4Qs}r{wq51i=AeNox{aA{` zeR1KV>;7Xw_n%JOfo|!(k(Pr61`*2tWa3sMl>hOxAeNo-n@)IFafe0;twhlO_Y-%c zTlx>|64!dsmEhj)DSxp3RN{ssEcj$v5X;VjYfs7x137Q}(WYH$U{7GXY?F)D7OZ+M zad*3Am9a}*aEL<|g)zEyn(&S0qV(DK^~A_T*!Q)xAeNndS9=^Ir)!LFQEJD$Md}LH zZ5dcDpZJM=a7R0hMZdiF`r|7QfNH(!(v0%^bi96J-W{r40 z81{t;j3haIRXUis^$17yr3De@h#wqSeA*_lnDk~oVrH5Ggpb8@Y3Ij;1>F=ggk^>- z{9fE}CRPRLA||@c>g0O9E9PW|FN!(2l{b6h7p)=NJ$Zc+1Q^7x5+|M=EMTmYH{>XYt}U4PgL*170z%m(fka|g3@=;dDj z#xc5tu`=b*1$o4UR}))THQkN4dsyDHNIlvhe+H}cBd4m!qDl-9FXBDK=>&0Jk4KZv8|V{P0+V0%VC}&wdb}C;2H~RlhQ+($ z>DJ2u^#n&%@Y{J4zxphHGEtn1_Whm8utMqy0&`!Az#DP>AiC*%o(Y9tL@`M= z{Q3(0`fFA8H}s3t$oX4*L-9B00f)Jt;|EHbaql2*T_&k((!FDa3X86^HtXmCOQf!# z#qI7!zFwEE57Sr9-K!qL-H5n?xNgj06PrQapK%Tw+UR0WTxBh8F&quw?&hvNO>JwJ z9EwN5;0WY{FAdu;2r1u4S9Nk?+Ll<#r#p7VZ_nD%U5@_MiF7|&@l1SS1S4^kL|2zC z25z0$3Cx@!`q)ArXK2(AV@Im>EX?F19`aR{l*5C6>*jE zxX$($Cx!W!uX$H2)S%=zw-Ei9lDngnTmp;SjXrId-Ofz}pGL-$YvWi4nr=sp_Mga%NB!>W3FO&uhj1{a`QQkapV?qnW8Z| zzjtA`_qz9TQNCO$TmH*?4VKrcY1fP#znIhI^FJ8wLGe)b^Ce(mGJE81oS!Y-Rp*=A z-F{MFs5jkOiz}e>bVYW*x?UNcSiZJUZNMjYHy7=hVhR5@vPdG%gA8AwiOZP9v{MR4 zSaCMSNm_HtpTdbNY~7LQeKDqfudP?b@UN6HotVpR-3`);wc?aEj37yQ_gehEuog$} zaS3wC;rgt^rKqkg!Bz#7*p31YDDeoocLFs6M(XkFSFc(%rYo(XG^trOYYRqhELL~N z+NgTRm!^%;u>-!!dM$bOfpk_SriZ$Z9mqj(VF4^S9{4nnfD8$0aT7&mEM#jIM;b5W zGGm7RUU#o)rsDfFlUBVwtBKUw`j;|M3yDpX^Ek=$%jx44__*jifluEUIcM+_Uaq*o zH%ryXI}1qtHlg{tYQ$Kb;mDOpVWT5!82+V6u{Osk5*F>;y8vdSkKLP_-wvCb$Sp;h zwc+ZFM2pZ_4(Ii)QNV%TT@zz%j>Fma1wd<5NV+vji zw#yd`bi?YhOF$%a5uxxX{GBi_O=C(9q{{c~giT!&~nks2dnPcL8|XEt~yh^Vg!MCDMEth4@7 zUh%nLJ zYvArVp0uhtPR0hV8J@_NjRkx`T-h?7QIsNJ2+6bo_)GxcT(MHJjGR54%RI4veEbEX z|4e{z|E-e6yIKs$ZjLLTp%KOYXbn(_gd>JYqp(%QzX~!uzH$v%_+X8gU_{pgER8_j53rk% zhe(SicD#`>$N`66W%K{{y*2-Sg!`LOz=5&$Sj|NrZ(*qPXx37J&K4oz=?SH1{uBzMK#wkGO8)j(&}lg z9VN<{&ApszxgJ7(4?r*O>h)a^C&+5In-~0M+RYck%Atql;v#TPoF{OFx`bMe-{}(mQxarWoN=&81brU=S2bS_Hfce!91+;g7=QDB!>-{4#VfY*b;)osQ8F>+y9m!pYO2 z(`PVAn=4v1i)L-KW#Tl(tvm5!Ud(F`As*=c!*nTkT1NY5os*V3%0@kpa5GUiM^j1y zn|tCkW}rM7qzPXcb1j|-9#D;;RuC}31w1%Y9yolVsbXLrn0azROigd$nI$6~180HZ z(8M$hi{lv-&R|^U_0`qylf@%TP=u8Yb|Jqj?14NHFV7Jhyd~!P?y%_xdyzR13;k zGGSo7a3StRHoX8YZ>rdv$x#GH7>trRJ5?})*4HRhIDk~P08*@=hCRcBDcaP1$5ar6 z7xOfhg_bkVo?1efqJ@bIW20;V#2N$>HvMIlW3C&QTd<^c;X z=P4ba{Xc3o44}rx$Mr$xQo}9Cb!F*4$0C$O3YY9{SK>JvmK%47cXS1=0SKFUQNc4w zOSSQ21-rNLb731lfTPd_UOx#Rym7cL8~AVc))e>#{<$dNfPtTnG4L-t4VzA8j09K6 zKYbzDhYc5JrknW&&-SsL#3KQ1wav^nOAWhNSMe&>r;ecZUeQiG{Cv8CS%+w`^6 zjBcdGBOwL<7R9^0)xEqOy1E_S7S|^Y1tt9(hI$zub9~E8-BOnMg-ao3P-opGL0X*N zVGT@axt|d&=@J=Zxff_w09Gv+H)7Ut=#a5bNa2A4!T=vUn8~!MvR@eL^Zf3?;Jd+s z+X4j#MFCs(J9Ke*9`OirSIMLSnOtGt`$9a&!t&q_z$*AAE^Lm&rAzU*$zXMFi{Bl# z#l|sfw$h+WIMj*A)0phSjjb4uQN&(981C@As{qlc6_60S?{g2oIpAE~ri1OAp${b!qxiZ(F)kX7yF?vdzTQCrC z!3LJYhN%l~$C^RLC=>QWD{sQy-lo@K6ISPQSW{;HEHdMt^~NbSEqrbZ7G}n*88`ug z5Qkw_X$gjpqmpf+K`saLgfr+*Df0yhV|}-Ut#%aq$yO>?HhJat!A^ZKx1d?zt1> zKJZEtb`8)n4O|NB4z}RX7L4gyWtJw#4QsxE4XIFcWF5fyUGc)4%^pa`Y&I%5U{5!j zz{AKFD|IL_=8e?~wj7}LUiiDXcnW1XzSaRm_g4C(b1}Q3XlSbDu5jCeF`w?B*b&3A z(W9GgIW|agYW-0{_qh%&BoRgF$or;)P*+%3~c5d-UH1qx5DMlucLV}Vp; z=i$7}w(w*#ZU(ojSuZu;qDa4w^x+Ny^lon-BzTiC=s9AL4Fw0rFS||J5 zOwlZPKi9b<*1QdJA*D;Rt}3l_*A)qvZ}E-J=d= z9YblkSBFYMAe>#p*fhCW!1ZxZZ(pSsgkE-ssSn6hQZIr;CG@F<^S@>pDL-c{P#hT~ z+&)|&;BLhpkxH$Q#XSTN5j0~nrPpI1LVhEnh+W8vvv)0IMA=N^Pu73ryp48t4i=iT zRisFgvIoNQ0~=yjE7Jl1lKAiw&W=Lt_a9a3R2<#aH?x3uhRd+MEJLntQ!I5g(76B#`zyi3w z3AZG8KOvWrMw5MgHKH$fIHtqdbj~{k{pKqXt;`^xcT^jNK zg+45@{!{ev!}Re(^zmW(_!av2JNoz=`Z!CAJ4O2V3Ho?1eSDohzD6In5vT+7@g4g3 zHa?KBidy91kQ2mEo0Ht$B)2um?M!kTlMH{7VNWvLNrpMe@FtrM<#3|}NsKcmHesAO zu>|96dpPrvHpZC_1G#JL!v2;+o9_ks-=uGhe%V8xSEd<#Ug;q89f~<3-WtkSFaeOII^>_x-r|`(?eQk>F$?Y{ znK%wAGea_)!H%6uO?O z7|{HVEV&zT8v$P={8Z{!)bDfhKtTDQ?vPoSt%x&za8Hp3$&@aszBkIxN5}cfq*oTm z#1uY9cUYhhK1XMEkzmc~1KzC-&?y_DtlwsBI*9QnGYTKj$%HL~j&x z8p-MI*PIT+xTv={hTGL;3m@@N_#l02Bi3CfpCo5i(EdYFz&*^{bd;`(#6>ZbMTyeR ziM&H=pf=qT>}uq@)d_YixIa%*Ag;>_^t;i1#jF>lAlUCj0Xv_hXPi=r60d|KIzx0Y zQyeB-z|Pla^vQChG}s|EY5pu42u_d|$9u7aIK`cQ>WQ{_aGc|0%-HDpU6jdhbUFkr zh(OLA2yLU(E(VE|Y8QnF%TYYjRzyP-?_QXWgoP<`14NMg4p(P+`c9PXy^*JHM*#q>|=*nR@V7^zjvZTntK< z^Hn_YlA6Rx(}>`)PK6k08Y170rjwYcG~xGR2+{?LD;QdZ)G|d>?_Q>?uuOHhydp?) zhhJprx(ZYm!+np<`_3rffOK7keun%P_X|gY`=7SWF@>Z43 zj^m&_t=KRO#1|;|D>jtW)jl&BM3Z}_2%paT%bt1u`l-hzpHD=D^6icaiD%m)LEm-E zCEd)d!S-#fQ_7kg=m6Od_bon}$zX4V=1QzEgffJe9jKQFc8m8|WPr`lNo zKQP-hwQi0XymyM0bh8jM#^e#ip)sZ`N0>6NCO=U=W70P06PVl0ShWmQny(w@jk4G= zhXv<-aw{}HJZxZZ9v<$8+e39n3$;oW2mbb7z-zm88CsDRgZxx7dXhyci8L;4#Jjo; z3&MtY?<9g!%Jk8hC;X?9#$nB>U{CXQl?Jbd>9kDtYLF<-8PZr*u_t<~yK&Me)8#HI zjb#YW&0UG(%_NV!J2V#~le9tlW z&{ps@Xjm@kEp(96$mq3RV5{JZ0c1UTfF!-KBiQRYKu=;bA|n`~twyljT~klP(M|B4 zU}z#*VPA+~Rft;RsfLM?)3>h#wXW_gIzjz$7pc2AReCh;?roz`;aI^yaD>$9t``M+ zsi^+}7O5msxwMgNqD`m5BiWtUR*ZwyWFW|SM2>CGeWy{4uH2?nQDO~SW{aYw@bGSo zj1NbXJ}kC+4M?N#>m39!VieXARywiU9m)Gt2e?THA2A1nurddGIb(RYGzvbOybSLI3zV_4|MR(5g1G%yF{!F?YNcb79f zYxIl69gY}g$*~*L8VZ z18Qi^D4qYC4v?25kc6@l$OAFs(;|G(kag1lNI|&`lKVRC){(!rPeVvi@4G8Oz2m(S zMy(5O@4%*@bPC^KXiHCHTz)JdD5;^1U(VOOh(RY6?2(*x1k^;&Ir>QlTB2G7SKr z(S8e=5P$}I+K}l74pr<yoX1+4i0D*w2Q?C^7sR|ER2Cd)o!d#8c>uk&w{m@ez=f7v4vCh=Q3R9B;)Eq{ zKCOdI8hVdl+T@z#gIH+{tdM#Iqv1=o-B0#TZh9#-$z;akUD*BnPt`j)BYwE|9Meaa zmiSdQV`gpA6c<&lK(vVf7`O7*$UXm|FC@Wv6Z*M3RK@U>&Y%Lj7y<>fM zABydl^L+Hnv8h$IaI*X1b0ceMFbMVFP<#*0FRce}|H*Hz;(yo+eH>N|_v?vk5_~5h z$Rabv2$j&*1jhn*1={l&vCInuFAy!gge5+O()f3hzL-Ho#+qZj9M~hPmq(WlU6<%y z01OI?^Anz0y>Dqs5!Qvc0Q=p7oA2%wHk6uYBok$hnaccPuTA zM?Hd$Gl(QON;9&TK!nheKG*KFXx;3gr7v&jd$+>Kx;v%MJLdbmB5)Di@t~>(J!#<{ zV{=66y$`e}p!>ZK7sGoW)}Jzwrd2;5?Qks~O1?l;;X@!j-stezDB!?GhkMYekX!h; zgZa~oYn5gd5yK7mPEK|I>jc|MntAWdKnEORWvV|hzy5Q){I@I0~ma; zo;JMV$ULK>HGzE+fg;|Dfn#yBQ9areZgG%JVTU;aX}n59=k85|Q4Es>r~dE7oDDZ9 zB0@)}YGvl0y@<3~c%U*y$g32Ci1;UGd1m!}+OI6_wE^g>o?-e*RA;<>A1Q|ZxB=*> z7=U!`gffQLJ?;$ckwnBmr5jz~y_0+R!iZ{peY8#wCP*SRpZGtZPqJN? zOIuGl(S}%I%QXbc#V5~&n({>;a}`bB_9DhYI*B_XabqQgy1m~sIVkcG9Fc|AW`t#! zvKn(1_GhTNIb2)G(epM2iRyWVErVY&Aqbl{9Hz(7D9ZE2NA4*^FN|NnF!Am$vKqM@ zvl)rQIB8o3mKfmF7BY@;5CHU!%^?S!4L)&#SQK)&QqOYFM9%H*?wUN>gv(9vp5WD* zt?kFN$Ygd6x~9u(o9z1o9iXOAOn;U{=&FhApe7bN9YSTP`Z^Qt>x|ZhQnG7TqOUvK zioAxC+o4`68g$9;11mv;b1mn~D})^7-+Vpv9(u zY1VtLl`LmJ&#pv2Uyypx(W$ZoI9<>%e7(d*Z^Y9_f^|F&YM3bt`KsPhv!6~P@?!IUO!Utoel7|)5WjgvG=Ag$ zo{BTbRqeX4V2Fl^E+|#!bIBq?LnlLJo_S<&;AhA^PbWqBT1$?TEb>0;vL6+QmWZP% z1Q4?qn$*yw3WL*8%vR2N;8Zp-L}DnqW7ei@9Gj`xrG@a`q65i0rYW4827nOVzm9Uj ziwMN!vL|xt%HKD!M?*##uy1yNoMKAj4`PI}n$m1$)_APd5OKqW>3SSIRxEZ2^zE6@ z8d5#(+tz++*s~sEY@#VJNt`EXF@mol=yv;3Iton$4qi(NO~g}Z`$|ygrM*|zV64bp z2KbB9Jv^kO9I&1gE$Oxw$`p>yO-<~-sCIY2FQOs!X;m4#f zetRY&Ky)jz5)B5qsC0H561kEQzg!yzydTGA!#sBT)yNh(`x-1s?K;pH+r8`XKf|uW zrW3T7U{BjtE#y6LRrVfE^j6`0@8SL^;DGmVHtIb*{zk-5)i{e44TU+x8Y>*wN`|4F zBBltSa^TTR{)0oMyftmwMm~d#_ZSCR<^D6I;lkM$>?ppkJcE6HMFUHqa25zs6YDKC zT!V#mozYw_o6GGMzyjH}J%DxPFGL_w!b5~ok=Cb#Ltry@V{ax381Y{q!3i|Ev71F> zk5p)RD$rfN0GaQjHcOdV3oBk&VZvT$c4K4?ER_{?fl-pV7D zT3g6)coye;ErfSZS_^Z?nFX_fQR-;ZE;YvR(t}kCYgd(8J(t}b_I}PkpIp($$>$dp zVHzHbN_KmXY#mFLZc0~YwN5EZm+b&|N!|$|to*Ul%OT)eciiP^VtHv_TM60^?bdC8 zPPRyCx*o%ZPs1KIqFdJtQ?qd9eQDGN)Ak8xS>)EOlrf@Q=pqqUdoE<|Udz4gK5;b@ZygDE4Z38straAS^P9wKb^?FBM@*M{w?0nbLVLFwqNR_a z2&4$lW?n+VLPx>r?|${=X8J;Vb&%kZ3Nn+j7X9VRP3gPpE@Oa2{=eRWkvsx z`;%mJUfO;Hjf`P=rCf&xyqSo*U7p<-6PK^e)v)*vu```x&>(D8)TSlKuPW{-$a3x0 zvyzt|AzreO=<>|`1r;d87Lr&-P}vj|&Tv#URHz{$+U+jU6wM;KpCA20cz(2~Z3=SS z;n$fG-y)hU$BwygL;(lpOc&7G(7qFQ_O!OoD?oH{p|YGu7;+xLn>?g9FTzx~ZwT3d z_?!;UA83DyKY_rk20Qx^8!bb#LOaG*x^0aa|L%$9zeZ{1dE-g+Qp$VWBEqYM0_faP z27QAJ0fY?oKM-R?27KCC}QzYl{7YIb_1Gju-1WOmH#JLr8~?qurIE zE6#9{59X?6T*;ilHlB0X42X?t`BJlBWpF1?vt(tE2UdRL#KSl@iP+19nQ%s=Fv*zpOwp!nw}3xw&zHoXn)pL)BX=;)aAlAo6v6|&K#@pe#ZOPS zqi2j) zyS9vIZENv#lbSY#{m4=BX%Dv8+*oQp_9d7K&x`#A3{mK8#p1rKK9p;|th*E04k-aU zrlsQUxk7eof#)BTESs8ht_FST?q#tR?E+OJ^C+spLWG^RH|tKD@Dk*_ux?2A3|T|G zsjpZsD_V99qjVh^>~YHAoZVOuOX%<}u!aK#xAGR^$gm~;iyRXdo*t#zM?H+>UOl=7 z-V64Mg~7LUgBvG9@f)E)GPHhqunWqk^B5U-_Q6lnx89lgIJfU-;zlz$xE9TJv-i(p zAPtOg?zRVI03*O4TwoAPM;>2A>v+-Y_;hbO&I>l7x%w}Nj_1*m?5?}M!5iCkUjpVr zbi<2TR7y1AXj3bJk3kD-C3#=OZs}$$cqBL{5PJrH0+jZ!N!iXwyLLEkvkn4o7TWcU ztE{P2=Gs({1d?~m#EVYEO!O?7XLeaTM_d7GWV?qXwzS$h3RY4pD~E;NxiNHryz87vV5j#Pu~vEk;mOt z^sRRk?Ldxy?G-teq&=S(6zzdnug~S44DQ1UNwpg;=foO)PsZ=lx}mph@CDld;GPNg zFAJHuIxS3Ju&-bcy%+3ziHI2u@>9v zEgO8nHq%l)&P07k$jnn|Vfupo1cT_kV85Q|$b$Vk`nJ4+Ey?lfUXkMx5$vnU5y9s2 zT<$vY=aBakzm@Mf8n+9ZDyj-{$8DQDJU`uA_V@z--b|O_=8Ke6W2urYz>~pn$*8o z-cF=Y);N>;VZpce0ohdkhi_8f!yvjhsYA5>>BrUdfU_GZ)g0sR5^Y)F{=eQ*xdVy* zsaGUQ!8w0g**nMhj$972Jy_Yh#V6DgKMvy$P6FM1gZL%>+~O4(pCMjzS$hMxBr|md03&)P+Sbi)z)VrCuI(?n1rn)lOVD@6>ioVAa95~X=zQ4v z!V^S>y-*L@rPw=qsdj-RQ)fco;dsk?dPTaB(ImiKjU20NkrK%ku_mBX(r3B*1`W0f ztIVuOzd9;SymTFocHwY*7ZxtbF2Fru6Q_&U8a#{T!w+4moj4q{&q9{g;8|=Zer$O= zkz$aG8+$)0bm}r7yF~Y78-rLG_vGV5TQ&y2+FL4jAkjy9MWPg(TMqXGmht@gfW;3D zYR;b%WrNY^zVqi}1^tV?Wr05<`m?kYkK^L633>T^TA02c{uu_*y`Xm+jQ%dsQTW{S zZFxf*k{tikD{@>SLJe2)sSYxI)#V|XUj0<8NMA$sddC1?q^|(rRCYE_q(32TcUqXf zNN-~h-HY_vk~JM#UJ;M9N#xx`MHcA0=v(jT*?|~$^okglh(NB!5$-$e{ZzjLbNFaz4|bkj&?m@!hvS2LU+gWLe8K-S z=E`EhJ*w4CN@8PUk?3CE-SOeQZ*_pYr0`z%9g7LTAbP>v)S0se&tlC|-_G{rd0snl z_uUajtiiL`PHekWJ8?J~3j-(OLohcjZzocip11+xw}tKfJnLQx0r3Zj&j|JHdedQd zZv1^jMIIjR?JYe!5aS-Slxm(7CPoS#El03rQ!aN4FZhi4HaaF`TPdU=PDp=8s6&oPl>#kaNY4mr z_gG`!NmOKweMfKU*?|~u>lHCl@Mt+S_F80XWR0aXjJX{AJA6*Shoc`IT{(z*Bv;|; z_*8|z+FSPc;{IXg#$sAbwUTIYaGR%C0FK|q`G+0grcjqO-HLJJz!z{aWLzXEzM(PQ}~ z2GRZezB~8rI-(*E2G{nMo*jsB6EF;ehoIR*o0-cy~{6^;;PgAuE~r{WhD?(HoL ze9QQvv=ooy;_nH0xjQXP-@kbQgXmtQyN$w{L`N3tEPY$vkd-9Ilf5FxB_h;U=5qJI zoq<1dkNkTbdpFnNj~ZiQ=P0PH%B6>KPwXiA1HEO9FYK>oPRPN-(D&20eRv>5gQ~R? zjkq`!kwNcR-#zg?dq)SzOB$Iv^~`xYwaP*-tA&>AU3fSF-bvnE7t5QUU5Orqwr24uP$%LQs{1+h5ZA;$MZmTiR0t~gXrGEcIPzwDN&I{?eo2*X9r?@ zrdPyB!K3AH8n%u$%Vuq1Hw-MoANYKgZ(iix+Wo4ErlYR^Sn%MVI`AN3$Y2Dzjkc`1 zvb}*^k{Kg}F#}sckmjgJt9Xq6_~}eJd5cPC>ZfJ_ zLidXoj`JUh!Wn_WhmdVP{OmL$?`ijG5O-2)n&2GlYA*@+X{1{kD_Q5P zlAjM;vm6e;%%WcGt*HBnPCTURllMFuly$0Za5_ZXlgTL*rx!T?dL6e9bL!Q)^>ouh zs-1c$ea`cXingn4j_Am&YDOvA>lBHf5iRMw1FNQ>oAK!&B6)HG!sn$H(q|dlVykGK ze%9;s8++U7xI8(Z7oGkAw1loU+jjMtHYF(&)eK0xx8T{mmcXFL?Tof-=SSN0rw3UQ z{OmTGjq)FB?EbLF?ho~r-EkxDp9yw96CBgyafiX`EoJ5i#WUr39EpXf#^(&yR;_^8tZ3CFx6xOg3kO*sEZTni4*Z5Fow zxwqW)gGS#;OU5{z`E#K&-%bnD*O})SMECRe{v(9~64oMvx<*a^v8FXUu2O^LHu|=_ zaZ*W?5wx^K7hVu$Nm}!DLD$|0c5p%+7VO)Ju$o}UZ*91_gMc1j4-;WEA&=kK^3mQhz!&llrKNYAkpHESmJg7)19%-hT}Fd+QPL_8)74{W+p03-)K|+wuywB+CEn6;Un`!KOVyopvVtBT+Ue z*?kl7I}`r7w=D2Q`#WhV9w*v=CFJGXX<_=J{TzenUbJ`JYuUJPbOsk83K6G^6=`o^ ztwMJq7K~duzvD_YdijjJF!xb5op3K6&B6Etp}cII8(0d9(^zt3etSgrUB zXfz3`ysH;2-q#db)typ)$zL>Pc4^F z98XK{I3E7Bke2(>!t{A~ltFZ_`Wqgg3u&66?B?Fnpny9L(UQlsB7IxlF-?-h>J>>Y z5wXUYc4Mb8?FWgnLAma`F@8*Qd&>gf+C7_=;&FogH6br=NDI>!?AI}f?gjfgH9+yr zC(XJsDwdBdqiQ0`RG#rhG_l^^MSV>fexB&h%J8%FZF!YJlJWh$BIBi_3>~+g{ytGw zQ-(HMPyevDEbx`#chgclP8t4I$jk4fh3PB9|6mZ^E5qjd=Bv2b1=n-OP0&MynwbAB zQI^I0YxHe-#at5TE4?DnB_ifHV_TXz(7~C>ToaP>HK?z-(`x(A0M+ar6MRAM2jEnJ z?KnaIJ0UUa(!%rwy^le3FX&e&t6!?jU^hXdIBSefnRUxJ5Hk0jDryR_hbYbpFiPKg zNBa(hyRlbXP3_Pm%S16yL)291_)*}prN^K?N@=C{SYpxGZczKZB# zu>(KC6E}Ath=>X*2p6m$R*x~%npRwYxzj?7VTx#+Ab+HqdKw&h=T& zZ@adqa_(>JJ`e>Q*x3D#=w5hZ_g^cVOA==T*VP+SmNAFvSi>qCcG;M+>G05Aqmpl! zrM$8##N@VPh3JaaOZk~E;XO!>+W&MvfZfD zjh(m&{VrTXux|=0Sksl7*Bl;IKx4AfnjzI{_#50zthvIFE4p0q!D63S|BFsKQW zhKCy}OW9vYXSlx=tsT|hr&glB6WrhKHATbJP5gFBngwSTygJ;sFMjgy^h(fdBx)#v zCfkiEU%cPp0kn%9)^X0;KZ}-hlMdnjC{9AfpZEBLUgB=MZ{D1(mc(%yW#4s)jjs}< zf%6t(1P@zp?k!6`4s=7_!O4FWE&U)`LRU`=YF%}oJ8;{r>fUciiq*;BTn)APt6orTP2s3)LY|#{fE(&SqAvg1;R0 z*&cuCYI-hQO{LZ`ei~e+J>!jbm4 zHNKaQ6M2_XHt8Y0@_8h%J~BVAmS_LRd8<++aZ$eXS1Z1JW9ZzTVH(@$sTR z>TNG8z{5vZ_40rGC(y#6)p!3hbjW8@yU12}TuJ9IKCof6Xi6VTARFB~jF+EMK>%r| z?V32Lt;=}(YC-Nf-yoUi;qB|amHrsV@qt0v`>zSD4|$G{4`ImMH?@D?{(!4TP8fW& zyNoApJ+l|z_ZxfUxI{yt7?(2pD*F!{3^|?RrTqu!t%I>I&9{B&c6#a7xR)|v+&uhV zX zHi`^H{V1?Vo7c@iLB^U#K(9{6HP{nGkdSjga6rjO znMS@;sf&l_59e~@nK;MIMNxKJ;@%2dGIjPr8J@vqb1BXK7oU zVCjU6uhK=&Lua~N1V>3=HH+)^-5r02-B@pX?>of7-VcS8NAGx~G+m!bA47dUe^_ft zS=D=1qR+3p1Z+caNO3O(gcj#)c+5%Zo?f`urjbzgh;d1L;mr*1cHp+C2ZKL^C0{rI!rIDc5VsCU3`^freH zPZqJujDR3tJxH(eJGxUS{MFk+5Xc$Uweu3dC&(*h92}-z62reVmrLhbSp3Q5y7T#P zxqb~U*S#WgDZH$Dvs$gx5IdWesS5mfG)1?_ClV{S#;9B^6>D_6_hxvNDEJslS-ZWJ zU1Jmrt>P6tBrhu%NA!VJu$Z$uBPL4lfR4lpf;YD~^a0GehJK&vGK||?osUmG%Ppo%k!btjI(YkSfyFk%J4+6q}vu5oq9hGD{ zQDJ>ycB)bWhE?(+)sjLyZ3CbP2{<@dcS(eHgpRaYlV^4HT*jm(8U;Ph4E zCjcK@393ybG+jE;62F~-X6x8m>Lgn|uHm7^$WN{W#eR$p>7{D8HM+Q$IIiiW0V7jL z8md~al{9>QC8Xir9t@Hi_HIugrlTyz>JViu4L3#Ezg-E+ZVI{$L66wgN*3>F*mq4i zb-TU?Q@8u0KB`Xet#LJiop<`LQ&YF~^sPK*WCh zfORl9*}_zd9wNTKf8SFFvDf3^zVZE`3bbT!J5Aa4Pwc;4R;dP-7yx5btFs#~9C+$h zonFri20?x(mDt70cx!wH+c9#vhk2i^S<2=7X-6)1Kek3RXkUgoYnM1JGi{8h z?+$N%wO0&N&4juu*sd^*dpnqk$aDq=-F&j@s@AUxwEighzpXrP|FE@4IUpWrHz1Dc8x|km zx_Z^BM`()_YobtKUOMu~F8jIL$eU$spvUGcS_s3@e@dbrXHPOH&)apYw15!FBTejU z@?ssdMXF{wR=$D2Mx8d}=P9;Ai@#+pAf&ePXWDEL1LT+a?}YdF^M)|hD($3_X{Rzc zwn_mIT9C64_3^r5PL&WaIR_+!B?}v*?Xe`%gwJhLN3h)NAd(S9Pa*P72lz`;aY9_F z_&SxNhsxaJlaw9|79R$C*3>oV;uZ+FB3bf5#Qw@6*7^}R zwx*|HfpFmi8H0>`7nenpn%D!{Y^d`^>h1@7wpzo!PFM@GU``>gU4snUaoVmz_KY`} zViz^JRsL*mr6q2{dsz1E{X%}i zYn40qO=b7tA3pZ)!=yEPKmOt4z9V{1I@AmHO{u|$xwRw$zqHAt-pjC9xNGeK7Dc@S zr^~jbKhp59w6$Z(*7`_@69ulSp&YL|YTUnO)v7ZsC;9D0I0+g-VE`*xc7CkBP;MZf zgGU3|yeP#YnJn$l^aqC{(V4&@)HTV{7P;%|m1Zq(wHSn)BMsA0jSXmK(&^{Vjnw1- zKIFkDIuSeR3~|{oe~$3y7XI9dPlwO8Z^yTjtDPO<&t+VCIe+ft&nu{)&$*KRtaGjs zf3D`DYxwh8d_L#>c<=liH&R0o`Zw@}*O+SXG z%>3DU$*dRQF_%p0>n(U*yuum7pGjw&KPTwX4bDFNao&dRIs5tX0scJ5pSSYoZTxvV zf8N2Lcj8lU;065qE__04?#7>IokREp2@d1W1H(5vFT&qR=N^1I@1jEm8H#d8mR{4ITal|D?|_~6i$WzIL~kT^BvOkn4zvzI>pguwqXKAKK0(Cj2P zImyjUa#NGs%p^B4$>1j$^dy6QmO-KpAWb%%dteMMv_=K;e7PAT|2xzJM*iFMjgj9; zePQH3OMPMFKZm|h@N9p}c|TR;e%w!85dENU+>e_n_W<{U5BgI-9Nu&OMXK^K`gjRd z;d+k~A?VIH=SJ!|Wf*XNk-pIhKW7s~(`m=HbDqA@HW}w8f=5wT=XdFYha;!JWOAm( zpCbN%bB_2^5`W6#PgVS>i9Zeefvh#@&no8}{y6jafb@_Goy^qV(0aJ#oW~=;dzJX} zCn#|@*B9yyYc@NJO{wOL)p}bi?#N~MWES)@m_20tIO1TvCyyOtssEqCpS z$@?E{>Bbn!j+6YYlRqX~+#uU|4d^)OyjD>22l&Sj8SD?@D|Gn`ooZ8O+fsDQ&vw9a zO5g&+%QRXDMPZzuLBo@oIC zgy#V3#bd24F5qpxd3_jbe*{usLcO#5JHCr$nCjHukq!n3tz7W5gQ{(?XbIkwH literal 114200 zcmeIb3!EHRc_(U(UNf!t%Wvbd2iuaYnbE@-V=Q6WlCT+hY-|ArTkfvuu9@yqKgM0% zni)TME?|)gkI)3TTow~xVV%GQmdm{tLP7}P2kZtm2?P=duMKQ&*xcM?2?=Z<`~SZ0 z)ZaC8u`L=eYS~?m^dUI#jD>{#NcDgIgnVHUnn=3Vnt)^v_D$S02aID;@S!1P&*(#P# zRmPlVaje*!pJ_F!BQ?`$S9}j~0s|UJ1qd$|8}+Hm zbjRJGTH*a(bGu~tXb&|`Tg_&rgz6sexT_tj)#hecb1kdxR2p@sa}urFrrEHqBIv*NcA;L!9V#|v=9`u2GEy(xzjyz> zJ;sT$WvG1Pgk{!12D9BNH^7L^@w~NYH?^kZCV97Ld*WKMLSxu{SqyoG_?Rz`! zs?ny?>P$FpPI#XOqfwzSA2?cb#cI1`QFV|EMff!$6lm~?a=SL^jFu+xee}qE`TJUp zCXsRD%=|P-r;~SD^Hm~dj)^H`E??|!=ATZ>Y*mVWTh^j9C7>Z&D8Fn~XY!LELEQv% z+)ET8fgD;bbNbo(#@S!wRa*HKM*A`?e`bQCy&0cGBxidt)rwO#HrbGyjJGg4%ISEZjcAf0Zm&E zw;_iO5eZu#to85TTz2o#0`C`shVr z+FKo~E$}w5z4ZI7@)g1-PW3wY=iWNVF5Lz0DoQ6?0sG6zL^Rtx_X~6~ZmY~jN4!TJFTBS}Mw?=o!EP7ZN7NEfF*vv3PeLE2> zlmn*|R%Egb*UHb?!tcyBE7S#&O-4_dgI8I31clA2R9Jpy`C?@ixo;LJQjVi!Yz<|E z#7iuk4H^5eC`$&7fV|8LxxGQUKipU~+JYSv2-0vu1&UP{Ka+f@5JIHK-n)v=f)G^} z$q;aiP+*}HvcBNWdVQwK5UC*rBKz#IOWM|Gw`SVt!hLsXHM>g+dr=H@{qSJmlEBxb z?u2m{VUTW+dO2^bH85(Zmlg5YwGP}F)k4(}$&BipR4c^F!z4AyJP&jKp@>cnW=X6P z&>6xd-NE3Of((}&d%^MJ z#>C;fjvBWdz3cFu$8SA+#rETeC!YI)!_UR5$B*Ay zt&BFB)1lYat08xNnz}f5aHa(R7KCBfvizL#tt_@VDJ8a?Q#MNqLQ@blHkHcZyi794 zWXQJ~hA6Q2)po6}{8%-nry>|jmpu3O5-Hzm%v7z@RyD6inKTL#?|Hivh?;1|N5Kqr z+XHpDx&zgq;8scTZ@VFTcJ6;DN6`^(5UNCw>S#w?5mB0rTTM&16)8$)Ffl=2+^OM>L4 z^)QCjt$f)sVH5lpw}eZ;IYDA#{%~J$ye04O(tQX-uz|wNY z#X&79BWR;L@X%EqlZ#y*6l+5MVB>1&=DgaUdu#L4>}gZk^3n1!erE$kZ~~6YAn8&{ zteL0KCrNCA2J-mUXnJzC&4EZ&E$RL|C&Aw5S<&+I%Hs@vE7X8PJ#iu5>}7>QRs7C{ zUPhvj`oW_BX?M^Yaf>MI@Bq{iVzOFhrHZguTPY5`-}2g3ER%ENuHAibaJ?nG2RsevyJn}i}CwCe|SapGH5mG)A~amVCCj0j@pFT^oMhsiup<@ zkDwxZwy4fCWm_p6h%P88Z*wt^s^HO`vgRQ~B^iRPMRaz$Zc>BzTVo2iPc|A=B#?=& zQebb0{P;>8<84?f8UnZ4O$^*NNWd`LyxmA+lOLg?_>*do8+ZW*(vGdY;T{yZ$g@t2Ev# zw;+k@Q!o4I3QLCPX?1J(~!8 z`3F9b5RMXO?1VBm1vN+v*j?|9;O+p|0-9YG6eKs1qyw5sLwzV~fJ}%3elZDWoeW@I z7{KC|!#U>Brn_mZ?KHFh7Bz zSqqwvPC6hH1WTVtfRrM#$cY>yes=j5(H{2OxopD7B*>)x#`F3;AM#=J*x|_vgl1%* zqcS*N%F$5u#(I^(Jv}78j&bE_Z~PF>i~7Um6KWi?k%RS&Oru^!7o|LTPPV8I^n;p` z)oxF^8^p)ui56(s_zIW|_Ig!{7+8!S+%@o|FoA=qn_#MIqZ+oVSUL>sJ!%%rpS$y> z2g^egnsx`_ut==<4RG6od8HFDDMu{0GU&3Q@?^a4;>a?-bN|8$7$M(CS>eU9^ zkJ8;3_rIT<48wrazH}2?1}OZ&W%~XSCQEA8;>LP4N@U znD|4qyG1m)D4JQJc_~;X(CD0Tw`%Da*C0rI z25Qov*fjZl?jUGG(I)xU!wlnUIBKUMFZ{d|{9=-zc2P}NTT|a}^ zI}J_QQo4pWSe%`m9hHXB&|(ZaIfjzX7z{JL;m;$G5Uy`d6+V^FTZsRbJ^XG*9Ag@WQp=4MKY5AGqroWZnyCx7|Vb8Z-eU zY|sS%xre|0i66e>eLo!0G)Pk4zwzs?rZXz}zwhXxVUqt_+kWONtxBugd$@ zdb^39oqzr0eSh%jwu_l28s;I&LW6|zZg-uU)4|A(=Ab2<4!MG=uO#hzbLZ8adpkSr z8Nhi%$9`Bo9QkO;M_WEl^9M+xCM-)G`~66=pTdKHxEm0~AaBmB&YJU1=MAW>2FDmt zKT{R`0E)V+6fXSE8sUy?PhB8yH?(pmOXQ_;y<*t$0w~qZ8WVRC|_^nC$*!scJcC!8br{E)$B$LBW|#%D*+OBtbVO2e#68Nu-DrfXL&j=S$&7}G5zXNKk;XecJ+3vN3Wi5nTO1tiaRQ#6eHRKa6d z$0M`4iduY{WuxupstpVgsKW}(6I%$;U{X8L9TIq(rIy6XX4xRN*-U#P5}Rq8(ZuAX z>P^_*iOpI!*~Ypd34HsOE@BwixD8QgJden5txK_BnHD?(WkI)iadntEbGm8Hl)Jnv z$PD=%dADM0qjVb@W{>@cLSr04!Yx&?k}I z4a24Iph5K;528M)*-l-v0#WoqOlJgv#R9%62r?yxwB*d##MbdXFO1{BVG4N?v0TCB z*HX8tUzThhZoyj9DkBLiVL6tVt$-_UNL_i1D{fX0zk(N+l^tu2oAVUr*0|s$O3fcn zjeNhvUptJ+E~-67^Z$^#&KS)+3k7!#8Wnxe(Cg*|ra2KCFHEyI{`C5%R}u1heAsnT@n z+G89kWd#xCh?P1b(N|Z0e`nUwmlk3R%bfj} z{e^$3{#I5Hfpz+Z@M@`JIGbKT z%bmM1B$g}u7+k$HZeh%Mf);<2(b9X z@(9JyeYC(2TPY*PFqAG$xG6Ou`&G=`u;b$p)5vF}t~MqD`?G>re&Qcfo9&{+57LGB z52kKH|HSt;{3V#f7pJZ^M*J6M1ra5F2IUF#PrQu`AObAjk=3p%myzc*ySY2d;4+41 zLBnp2{rA4h_?FbXNtP;V+CnblucfXlCQ5H$5NC1HW6SMWYQg+dl}WksfOMk<``4X#JtAAOeN?O<~tkdoi2u!3R*zx16AeNmSyf(`?T*pp)wN_H&M?6~?VysyjM?cmXxLag?&?HT ztiRn`K^~h8(X)gRA5Ptnei^X=)A4F8J7E&z!Ut2=9OJ@MSwSp27htBa3yB6Q-UJm* zEILN3VZ2aIMbfln;o`!rucU5pzudYCi?{^i5pM#EdK_n@)fiFdIK?>lN2#%iaqvr7 zK}0#2A&?NnB4ikw0Yrd>o7MSLu?SundiG)wUDiE^h0?wNGjbw!8`dt3BT9{2C@PUl zT~|z~)-s5*7?l`2%KI|0IWJ5=H%JyT?n&LWWbKWS(H$B_xE4D@fk8}5ccrd1M$l`s zf(Z0uSa`D3p@(%?bcO}X6^FK~X~frZg#P!WZbrZKUr$TVd^}<-xGQzVF%~>8D~M%h z!B$%JYL$$xoJcAl3~8lqRKE<_HcV?@tf zgz~1|7+?OM)b+>s^6{)7mYpw~Wq;pc9F$bXK0};itMwA`Y~jgwQa7kyo@^P$rduoz zL#O3o6ywNWq^>>2kw4E0V%a&e?M`gn!3Lx5s*+ej__7KoG%m$1mbeSG9WiRbtEaN8 zNR2>@H9tRZSu=Q~a=OB2U294bBnuOErlvu^$}u!t@-T=g#WksGjZyyUtRR+MDF*Lt z;3O8r3v}}oBn#z_r*1(1ly7<%#3+Af>RMxzKb93ll=2w{>A^T(28J0x1X!%fs=R8P z&-*^l-Z;Pe#^JDr+Z+9%{;N|nDp|s)oeK^1UzxhDm|VS#L3ADJ+egqa?5~%L61weF z?SD^va0mdmZ!NYv@j+`RJ3A-z15aLq<1w_e9Vj7uhzk8qK1YRe;-@)Ks=uT8H8{?H zy*gpRJKAoi{aYZ0{ULgMm>wUc$H(aLaXfI10*=U4hwrY&Aq6HM*WGcui-@~wy4sk; z5gcpEl@hiX;oAmPsh=>2Xdw>V#8DgL;J0jqmXmLA8n-zc5Qu+zmD;}zjD(p1cW@>O zUzE^sZ%TEGg}N1kFHLY)VI_uz6G6mYzJsdCa_T`~Gep7`WiuXI3>G+hfp>_XJ)4oR zlV39ym;1)zFH<)x*;r5m7cv&#OcxuRj$QEp?c1aKf79>5PbbB2=B?%bty4A>VtR*gE)%@ z@{&8SSC}rl;n0~JHfK!mH6~$-x;@HC<6oA#@qH57y>z%7!f^!0`s1pV5!#03&uIrd zcq}yBnx^ZQ#kQgsTyGi_ zds#s&J1;JNzIWuY(aZdFFDCq1pVK|-CF_aZONRYJnZ4ejE2oB1V-e%jnyetAoC^H3 zg=wL%xY_Sw#4u(65n!=EFO^w$?`c*}@kTgd#1)J^S|%v;EFV2rx=ST9XodyLSJW(5&Q{haV>slA6C zIKh+dHJJ7~tb_qgmombe_oZ%Hzr49{xTbLPx~eV%ncql_LX1K0$_gUNpbWiC&{2s# zW&jaju|P+a**NaF2PbV}O#)7fd8C_->{3SLRKP!kp8~#SvwbVxQ z3hBMbYMOQI$I>~ZkAxQ}E6lod-EuknPg6r<8k3oI9Gj+aRh)~Dl`l$-N{n&avw~Q5 z#_b4rg`Fq3&IWfAL_-%{$_S$lrEXfkT6JMatFRZv$4yZ;h!j0LH3~5X-INu?vNP!E zq0Nn?T}D#3qbpc{uL%1lQ#ZU{_FV(^`P&^y*G7^$rMSA~Q)3k4=7U*5EIT(ZJIs@b zxKTc4BqPJCo+X8MuSwm^etCEKu<79$Gmr@buUDl;B*wCrX9cnBEW0YqGGCw@^=?}x z`zSB$dn$F4`(@wN8v8;x$G24mR`mU;(TOqfy;(slI}@)AF_9-6^gZJd-CMAXA5$X}W8deqf>?I;U3CwxWFhDBL>cQGr_0{Z-0uq`4D6%4 zu<-9wH@ROHUOhY`IFI1|L&Dh`virSY0u%o>H99dS{SjdEU1`q)jFUmTzLRhpX+wLZ;Ud&^a9qzP}#fEf!58Z+^KE#Kfj<4YhM#gh| zy9hpLY2x?_UNttpk}nk*-_~|(Uo~}-8^$)me_hh+a1D9vFcVlYSCKt zlNjX{8N|URa+C=%KvMCZN@PZF@P5&aY?RV=SK^*h=Gb%BV@=6psLs9v-*kf5$B{H) z-$hSc;7SM2-`%`>1})x*`(|*>cgtd%%GbkrDL5MfzwNvE)qD8KM6sWb?`Q0L@x-c_ z6a0boj&vJUs5PtQ+P+Xz{B^gKMyi0f=`>4x&{;S5p#2^AAXUHztuMp}t)jtwTWxm$ z7o5|pFGP(H`n9r>K%??1zVt6tXhYd_^0doVu154~KEoBC;d;+-wP(22GhFEzuJcUW z=gh#&e5hvoQAWVeT}k%_26YDMba5ck-F3L+aXPr4-fO^`syS)lj0Gw(IBnI1VD=jU z9k-utP}dg9<#!!-Oa6qqj2!#Ha98BqJQhapwBLl%?k3#w{m8t3Te*cC|EfZ|QN2z_ zTH~IwJ8^y7T&IOgPVBefJ^R<`@m6}g4UgA$UelSx&9{Rftl$F7=c)gaU%1HZ%_z1r z@~*pH=8521b%Xw72>KewqNPI}``;n48_0F{aUl$Pr>#VM-yedgAsI#4-F6S(#Ot{Z zf+V%lJ4;{PKotCT2fb?nIw-dz$cA4Zq+cKM@;*YpNU7|P;v2I6PfFm0bsy&hPnvOC9qz~# z+kyM4N(~lWWo=edf@qm2XnBV_#J8Z*eN*~Me0SRsT<1qOcNm4j*zVoN?y*9lqwc!f z8NK_!u>9QyF=v2CET=S|0k+YZu;9PSN#q71kwXFp>)CZ+uU4%zgC?2dpiAdCoj6Ww}Q+qNBnyz`<*D=*ahwdh` zRBO~LWW#Z?3B<_c-Ugk+*SK@AM+S1|eE%tUKCRb?>AuIVdvfl%0p&Yr5EsRTF zH@965_*}nzA$=nyQU1;%b?%Zl;1I`GLWTNoS}RIs{dzQw)LfQHy(f;r(ll*X9B`;< zYd!0*L1}NEkF$#C@TMta&Nztw*BkTr|A=l4W4YlbdK&#~pplMA?$BJVdb7h9X1jxQ z)3eotPwcM7MZHD3nRw8Rs3(|aU>V_7JL;M?$wnGGE@Vj z8Z{&urBf?Gzj2wZ?{_=CqARVYt8TSiP0N*9ucZryVGue}V{g$T{`4<;Z;y&z>?XJ{ zYiusg(swd0BugWGFNp&VN#7>4?q-w-SqAs=sXf!i&BmkVp2^3Jom05g$lPTdJY+mz zo-`(P!RuW#+*D5r?bK3e-$^Za9zDkKIAb5jGmtlX0zWaDk?Zd6p<-l}LT%h4Y}N^p zAXuAdyGHm5J+Bk-WQz+Jp*!|Wy%SM5yqIucruLRBqJ968^{J?2dAHkzscds8uKU%5 z1@#n5ZK+=w2OJ{y#c0&G&{Ky5>VA6#Zlgv-YsN7eQ$|=p4cu^U;MQ@o&MP8tPy*IP zAW%-D23#XgN;;Z564Gd67KbPpt+Hh}SgjB)XJ9~tn_20=H9vcrDjm%o#|}ZRx`jKS zk!!ZNUa15X)*8S9$#s5n(!x?6jHspwSu+|vR_;V0(ALswMv#HC&ppYYRy_!-7j01F7&iX1k<-|Is5{|6P^LY zYU6sb0@GlaGgyNu2Tqca2%7|$Nw#c-0&}_mcyxkm4)zV;*mM=kcmrKM0YK~6B69f1 z;PrxgjKaLMtnf%-)RP1?R^8P%d9;zHo8mp;)rWg%k&J*h@qToQa6+PSp-RMyUWw*< z$jcCT#gvAVCy$>@Esx5zj3E$U4qfDHoHu9^qE+uk@`9JU_2l*^fN7|&byq^1B2Cnf z81b6;<%~_Vzd&4I7lZiWwd#_ta;~?qN4WrKiq`hY(C;m6YgaQ5^_Ho$Os(jXXaBIY zt+=A6-O*dOK-o;K?vrI-#$WARSvMWZlT3q~InAFjr zw~BTrhPIV4Od2!nmYSkthA4Cw(~W$;eKa5vq$h;g?0(}Q6f(#Wd-@NCtfpK2!oh3p z-t+JX!{(x_`mY1yy6Lc)`c_;!m@j&59B?QiayyzA9aOvqg9>l(9=b!_phe5reogTJ z8bV-1!Jar~{F`PGVFO25`l$*gj&pvpQETI+Nz1Sh9kH5lPK=}VX>8;!8&#`?_XrY> zn*#vcZfY4j3x#~4uuFjDf_Q=t&@pP}JOPYB+Jl${#uk;DSv5+P=}K!)E)Ez2A|PR4 zaDo^OD!Wc9yRShZo8antqimi=AZG^P%xbP?Aqs?`h8nDRq2)b>!x5c%MhO?{5L#`D z6QLl@j$_*j?q9}*95j3><#@be>~t*4D0q{x?5+7Xe#?QaxbwV_-xVFpJa#U*q8oy9 zi;7r=x5g#gk6YN$4t+ICmEM`J$ZL)AZ0M6&ZD`Pu6KdYzoU-_RG29CicQ`)?O#%}S4H4_ETaMP<3fXfPd zT7R?OpO$xbs7Zf04`XDui8wU`t;;H$$P$4k6i@Qe411VoP0G$QIbgseWvql*R3(*Hs5aD8mF1>F=rTL zCXL!(Bs!pT$1~<@asLS|tkg}p`wzsJmN|)uBAQE@HHsM7VIU<7eCfoN$$6vMmU-_& zvD}y$EjtAaLJ=ay+!vh*c5@CZj;$P~(5+@YSDDJGlWs7<$~y;gvc5Ivv?tX!f1`9x zorQ^4%;}nmj|PlDYo4aF>p5C>k&`({j8=0vOazC`L zowjoR=9nA}o@F;OHUZ4mbCZ!N%U@6$gay^>H12_vX6-cmepU%uk~Bv9-j*kxYg$+n zW<{lQ!|14y_ngE)t@}Tw+x~0x>b!heVdvE&3r5?$aRhQd!TTW}H{|;KT+a!u@YVuQ z!NTt_z3qp6!_Y`ga%qaafj~qi`)8#=RfZY$W$r(Y=n|%>wLei?Nm2^y{eV96*%^eM{kr}%b)Q`oiy8Z4zMQ+{dm6l4X|Z!s`_ zrf&@-g{=yi0KWjfh*^;ohSgNL$~Jjrl~wb8l5x@;x?fV4Z1z%8H>@z8fqFc(wj?hI zS%obU;NOC41T}?t2Fups`3bSjkYzPtNlY1bZ%Q-mzfA_(if9f0px^M{#J6<*gX+w9(j?NEy-J$+0fs3di8U==7pXh3 zq4ueGM59WR2VF{~n9*?ui;e1RrPL~S#&-q&jX)RdKB=(7N0OhAv9c|SEMEjzy&mk= zz;>&$WtO@%k7=;7iA|~9q<~AT#$cdH8~zf}jt<}kJwefhBS_W+;s-w3f63%oq5;lp zgcRS+2-8(f7AW6jDE4>o(H8|a91a^doeYsYjTS#g1ybWbXT;l1(tkyZpJavkPd-{g zh-lyDb!W5%H@YcGX#&fbH0^5{(eOlBpm@3@GCtWTbra8>_BT*r65Dq6&(O7n!oh=w zLemP7c`N(+&EQ;kGI=G+Yr$I2D;Yt_OlB{bw%U~yM3QhkA@sa9E6hMRh8aZvL|xsa z4L-Vds5DJ0#sOE5yfZ73JsN&2E6ixa(`$u&q2Drtu~-UGT~jDL7}^ONn_-RS^Lo;O z2geeHwU(7Qfv{Gxf=J@o>qHKwvce2_RuqEwZPNP{Ru^yu$=78?vPZ*Tn-ylX;pdOA zjy>4jthx|ZEnkFn?7>7~{ZLlo1j71MRuD-%b43o`pA}}nv-dKHrMIkq2)Kgef6R(x zkA{CfE6ixa&l6$2f}8+sd?*yIl8=M_PyF`!v7Jd4mkN3XWOzDo@L-}4|7}*H1w#Bo z2BG#Q7+Njv3PVj8t3nY!h7^t(7s2(aWLyWfEZUXnfvdd&;6*ySAj@7^3|n|!$>?rB z_vl^~7lf5a(|F`Liq|d`x*60bNvmHky!flE0vc%b_eDVa?t3@UY+evA(qpM^ELU?L zkNQG%dsce(AjYj(VMd9Ofk(^XJU+8fz$gb6?iP7Mx$xraFKM)ou37+G}IY%+8)Sc$Ym+J5ESqkAZ9*+ddnA}tZ!A1oER89IWb z{^^a}sSxv#%j)hGUWgk3E(syw_zVOwjQTX9bbOuQ!YE8d+fm{JMfc^e?>qMtP0` zt{{1PRwR2g{MM{6qYXb#1Qm|eLp|iwB4UQ+bj3r7Vmh6bEP z+C(vZe^$Z-V)~w}Ad>j?R*``xv%(Dc^-c!SznJ!GP5%IJ1yA7Xv5DF zL4`FP?jfh&Ct`->bj5I@nEuzSWC_IdzhniG#I3iB1bine%z#^e!624iOjmF7#B?RT zEtz+!8h$}mn9+uxCt`XH2B#{PB*COZ{!j0BXzUsf9MRx57C9O?lpH#`E-Uc@VIF1> z3x$qUsfephVe?yJv7>=ol7mOjI>*RjB+k5ujKq2>lQ~P>A6%^g9DE4UfnXE9Q&CbA$ z

e1D-^Ehp#4bTF~m(RJPMT3&B2Q66UFtzSqT&v+TUUj3mIBfDr#tfYN#m+$Veip zpIItYGw?D=#NH`l`|q=&6^Pis6AJb{f7YL7eHTy##cyXtu}8DNnH6TV*%`R89GZ1y zp|G1Z3u~<~MFwvN&oOv3^rNR^0};lX5pCO@D8ehZXY?}zZTlCI6`6PII>DeyC1_iC zDVYFCUMaTY+@lH}M5uaAB2}+D$EdDr7S# zd6MmUm)Ns^UcBx3iKx*Mn_L_85){i>Dc7UfR#upS$(3ej;Kp*8T*6Inqd@$20p1Fy~sGvL=N8ASg+cfS$3rvO)w{6JPDdo=ugSz$&S zex3;GWrf16a0K89+^RmWV!z-je0Wwr(F;duFJHN~waJJ z013iwRV?ZlKozNJI|Y}d`^{4SU=47u@qX`t}x)b>HIh$iK3kSx@`l_?Wj7Y()ScPxKr zR@w#zPa(0uK&U&aq1G!4@=~qU-lDJv`bG6E7yQlz{D&=ba)FrI$Qi{sgFGaO>HCBk z2m8e@idG<|Hw!=ec82@)G9Ce3L2@oDl06#U&I&Wy@C^Kj>SuZo*!{?x9ECoz`!Nj^ zcNMlLJDu?XwIS2n9WC%=-*gln9a(ULe+*ZTgMon@9Sfv7BNY)rTaG@v77vNha#wPWy9~H*_EUT~tz3WefGkv=iYwwcNzI74zQ?~Zs@OW03 z0ky+ltJ__xPwP>t+Vgzqk(HZdGu-?KJL$60xOgpJ;g% zZs5kfQzfH4v&%ESY64EZ zR!vvW3ge$a8+tJPWY!i%nVtcyAVj{T-upGdq*ZhR%KmjUSJTlI$qUBbmX$04qdQqa zBysC^L;~KF6=uM#*E5LzRdnrLjZ(YXjvV{yr-p^r{y1O@q94nOXphE!BrD8l(e3wf0Pwwz^^Yci2jB3Dz9_kliu5o zu~VijEMvw*#H2p$_a-u-+edj#z<&&Uq;WsW+PEGB`@5_#qXavD1ia_!y$dgn3V4^* zdl#eNBK`aASwST6>oXz)Te89o__dKi^e^BWkIv2DX!?4Kj!|#aJ>N*AIhv`7?v1EP z(7qun+C50IFDuL_Db5qo#fG`+^!^@>#0!a>VdK0Kpe(Zg9` zMoDy@2sK@uPN&uP5bIwjf`-L)|FBktTjj@QV&) z*N3b0YLu>F5Y~xt(JJvc`KhcV3plAzlEL#Xtrm9$nlH;=xSkB!(1YC{$%=cF-5JnY zjsYxso|-w=Lq-1@4c1h2CCY0A_t^U1vXUlX>tAIBk;Jjjixhl6E6jjn-(wK{E9lz0 z%(+UfUDK7qPYqi)J9mlKrwrm-CbzRk<5y>e8EyP|B(9Zu4{_a1}=kL}dA_{iF{|R9bwKDA`wE3Bnlvs!66bPX4- zGrSomGw+?mED2q6>s5!OhDuU3*VQsyxTEqOmCyP3(7m~M39bgi3E}21&sE;)YtNHb zYXah)H&}^*d3{`%{Pn`oX$U$zh#085BLjOUwHA7A+*`BS;Gkb5@Myt_{ z3SKyQKhF zOCP+dDU9^;cA9$}d{u!{X+d!T*|C){<|n zU0ZC<&$JrVJ}$1+Br>YRg)ghsHCnr@Htt^C|9sp)9rHEfE)~3< zkhkJ{QbyBquxt-LSZ)&WIDfYhZD%qK_)YMms#blPqI8u}Yjh9oPMSB$=4sq<4{sXY z&;#|8;tu7UMhyw|!Y=X8)O#_fjCMe=??&E~+72~oHFK!4RGB814d_$4(v#7sR^xu$ zCN8}_Z8fV6_=Y99@78J1OMJyWIfA%&+G;j|{#3J3!!E3P3-@vpA zgr4WN<*54>vDB(_!x??F>JuBZjUMhw2)W*(70Kb5%d)oT3#c(b%xlkQ{uj`!urYW4 zS7=bcrfymh?JF`meBYLu^zI>*!*}s<6*dSi7?(Y$x-fSy7G|FPEC{!t^vtYcp5*v_ zUtr$AFr$v&{hQF;?Va4WcVEa;BOeMb*3HHPH=Nvq@B571w8a*E3Uy=Br{wlF_U%6q z@fqc%ef#OH1Boxqb$#hZdg+FwmvT|ueEc3YA0IV#Dkc~xX6`Z$9x}`vm5BZUIny|3 z+=-5Bnp)B{U^UTuS?K%f#-W31@@(H;jd{N$Py&I%V(WD^M^nq}q8&(0vZF?U9LQ&$ z3kUL|BnOg0bO=L}*;j!uH5Ciq(cAiH{vB6h?DNZdZUpf)k6#Uc`wNCp3rk zKSr$q&B4xmaV|^Nbkl+tImNDE0Cm*p>IN2L_$)n{bU)>+)F}4$Bw6!rZe82~nu|I> z$?=$})LN!?hzAZ3A?7(i+ml2{Cs}flKH3;v8Gv{riKb><-GN(@?*^LB+Rngn4YzYs zL?QGh#&WZ@j&v;2y2lP_HF>tuUE0>Y@;uP&aF^ho4+t&H!)T9@(T)6Dsc8{z9DAN%EF zA3pXOj~(({$!Eg9^VcPb$B7VOP9UgP574Xpj_$mPU-^s(1aew+eLD~E2{Xl0_m8LM z$f8{%jc-vwC)envbKx3&60Xth5+4+A$Z5~aG@6J|O{u-vLEx8SNaVZ7+@i5lO&`jn z)vi4`o?;0nW5#EfKh4i?vrU70>#0@eS3vY8XSw@bc^CWXOXPb zx<+@=(8N-GiR@rEw=2OV>3<6JYpJzZxn6-wLdbcp*Or(J>-0#-&)CAgr$YaFX*kwlu9xn0T# z%RiV#c{2$2#}_Z$grcXm|L}{+bWMMML20nCye^T6+R&$oa(|tAcz6wbe!6c;{CU`l z9Lx?!B2ONKto18n<{IHuYibI%#=yKZ)IO))#rf^kHr6AyTi&)5c3of_Dz%v=))>Mr zm?d)(M{c#qgxx{QFUWH7Vn;0Ma`h7{5^5rx}1c4FIL+>3|%Q@OfPv{M0ZJ?H`kr@s6?| zWtEGhQRs!L6@Mp^a&u&T8?509gVb)0*Y3%9}(?SaeF#{3pN zqSG51l>v8ErGz;_e+S~#I0fHKyg+1;tHxs$Z&oIB#517*5?>v-;DVDK*DK+9P7X?F z3)z*c|6+fo>Lv6|ACu@?17ldM$4pM8IO5FLTiA~8lR;r1xtJtUxxH(@uxITn)9p!j z*Eo%Kvxuu&z6lpuTIvp#8bx$G^;XB-SZrf$dA*fa#U|YKUJ8z8v^o>+pkuXKm=AP1 z?iPBlRjE3oSc;C-eDzYtUGqZfcAU=n ztdpAZ0DlTUv8b8w%eR|V{MyiJ6!Vj2@f77^DxNkHyIZFkjTU@#E0i<7!rkDY69o73 zb66W)>mX&L(`r^`@;LR28s`AsWs+i5El$bPKt5lrnhqRgs!qM&C#;9>jA_w4-{^wN zb6m_VR{fu=-7VH!1+;>T-*&u0tKHQlYqC8JcpGQUCM^a-33RqKqzuv7*A}&?^Mt#x zQpXJ{dEA21pyS9o?ohimHFDF4Q^EJk^~^lh{5P6;Eb=N~1vMtwugbatA69stu)fZ6@yv z9tg_`706r@Q@+HyO`HPi)*WJhkTm01?NTE@S0j1aOtZF*l@GtkQc`T?>C91)&rSJK z#i79x8ltdV>nQ~5jk_N0ai9fq?iK_`mCR37uee;QS^p=rWV6_ze7Q1RuHrvrYE`vC;<(U9YszQc=${U}~d? zy)0mjr>|Q{gB_d?ua(h1Rny2zs&8$@OILwdMWfF?zY3!4C z2Ssb4Cg6CbUaCL_TltpRoVH*Ez??0p1ng_Uc!4w}Ys%?7-f_2Tsdcjkh)4#sDgVcU z*HY1~X>^^Hz&{_C+ydu@C3u3VAvB3_X&nM!SE*9_MVj&TtGk=f9@q2|6M-*FQIRQzx_)3 z_A7)&j=rs+#}^4x#{RWbgt6z#!-!sXm72xa^T7y&z0H9hgED?fZ@huNak=+U^XV2d z`(bJ?9m-(;guc->OZ!EbFScpjz5RK5&>||kNe&=Q7TDVfGCOSU2ES_o^O*Y^iWS+K zPdX?mWTL!sB2M8HDF-2gUeO|uyjFC3B+)NDq!k z3}_LDCPN)N<=yVu+tv3slQ2Gj=8or_S9k6uD`hrekRa&}?6y?q+t6^b{kx>)8=ZLv zM#{?wI{D8c7tW|U*(DNv3o>|z^XMH2oHwaMH$)|kt4~?;v*;w8t0{^l(KqaIquaqs z$&=h4MjO&OKFX=%{l@I}e=s!&ceQc@R=BH3fnX=^oH%wj^~E8d3dWNhrSZ0MuA(#p z+U`1^#%!bL7={L%BN(I3MBr#*r1`l)(!$TvGgEVeJKKrB0?qaCSDXp5W;cboQKv(LBwahv6b5NxIcZvw19$}1%Qk-|A-h83;;b|xSQJIbdC`rHIurHwM>Dgvjl?3-w%y4$ zI{eMjw(VM(tyxGI^)~nWQZ`zQ#c45?Op6Py$Y}YJ`TYE)SGI6~!d(XV3sX2c9M3kp zG=78Bq+3oXNHnN3Ikp??OVM-TpJ`}D(%3zg!|H$_H!O5H?LGXM5Yx4LECxi^le1A_ zn2TPR>5|m4x7aY#_)T4SK(1qq&E#H2VlC{)E-t=9eWP!(sTY0{&JMi!cgx2YfJx}C zJooZ@OdS5ytUJLf0lrF=hF|_>f}M8s^3GK!8l{HLW=Tq7#4}PeLK*wOAJ_*F>|VGB z$I6%)9V_7w>0Yfar{*2j+eyWpJBrqk-McQSq` z?m*ZFsEY7mf4xZ)Zm7J=e%g_&ZDm)F94PyCLWG>C@#ly*QRCzH5YsZ0eL=8pC59-; zF-vz7SSC* zBqWT1=iNUVe~)HqXsioyTHbC0sIrAPwYY3w{` zoUR~NgKmz`)i_$z!Re(&XPPlT$;_$;-J$=8mz z(sv8Z6gS^0aZHl@RZ^2qPmr&F!T99rh+u5F9jh8>XUMU3ov9rWP=0~i_nM_`Utq;v z6$cy=kF{uDw6p%;6!vh0|Ij_t>I|bWRS=7fAu&Zrurs}|zmS{8KB)OndB6CyD&CsK z{ub{Q=VpVp1Je$Y!h9izvt{P?%)1QtPx!W>5L23!8RS1 zX%t2hHF2bi;`V%L%Gf!wKTtrwCSTi00}&YJ=`Sen$bKxYAeFS>z|m?5ESA6okXdi# zMk1DDVWjawAva>^@AdbZ<_Z3iW(&#(ky>+3JcIMevu|*=i^0)VBf;QomT9jZC-$lm zbfyH)oi038-P_!dKK5^JRz@AtO?P58Y_3~(&&Ao={At`MERD7KlQ`gzwRu{CwYdY< zhW0^+*Zg}Lh-=8z7%kd`?^j*;fkIAR-fcWXb>b;r#wLJg6mmPS-vz@J)Sm)CAxEa; zdSlvuec_i$5ybz%TV#C*z(@)Juz>RZ2)`~Ej1UgGP5LEemyohauF`)w`E zC0MRan76IW^>CD=z>>L1q}lhA?)PuJ#-qmTG7MvJg)@%P;bHZibj&PKbj`hK@KQlP;Q7!cJ_oPIZY_7zc zTG!}uim-a!(?C@Y9mEIju?Yz*wgdv28E{ujX|TO+cRS#w^YdfV5ri5D!E=T@F(`*I zb!~N+hi*SFEKGq|gz--#<|pg85?75SjlGXaO*+%#os|nu@n+*u>`}Of#*@b5-Zyju z2aQLpW+XniaPcrnJkE@y=FFl;V0UzBe^kbAm~XUc{{{9aU=bP3{jtF9fj^F8w-9K6 z@|wJbBN#MCrF}~bh9;kGLcU;kaG5mWSZaF5G=Wg_G~sCrP$SH8ccH=yw|t2-;I1wb z5RJ}kgOLjq;GnVZfPobY;h<<@iEyJmInSr2`=aIi?&MZRY3N>tcq4a3a&HF~X@$C? zXw1PcEP@{`yqM?%^)vnVsEufky7f3M0i!dFtFTuTZjA&0`3>$!AL*f783LR^{9!f@ zIMk882n~!HncDz_0+@ zXQ)j~w%5j6w;2B;sc(9*)TGlf-Z$O9S`DP;=rqz3CvmVRAJ~acS_)&FKo4~je$2@* z=^%z3{vQS{g%fH}LBUaqs?-gqh*2$3w?KY0fh_=TA(yL6;THm-b(~sdRp~-VuQH^E z0TW!nqls4!9KKKpb++8VPPam33g8}`H%1QO&FhW%9&qLv4lO;3!ouo6tQMuY1j03P zI^ZwK;*%vT!k!I&3*1K`CL{afz&sl7ok7yp{PrtKkla< zp>IC0aB$I^V4&$iFT4g&qobpd(e!zSTbS#fP5*XkDO|KoZzOXzDmU&XUVAm-Q#)qR zrGRgI78_0{d)L1;|G%QveEsbW>`froB6i;$mt|A_(;ntzQJ(WZ#sP;+`CNi2f6)n8 zZ!%aUxFY}bg=8Pr8e3(sC8>>l$TWfvpOliT;Ubm_u46JLu|20)wwzJp7*0G;dyJ#j zdlglqn`225DOh`Diip+4-O$x7?)IcMX()KozZtcs^Jro=m>S^O;Aby}Y+>zm7X@iy z%0_i9qm6zs5NKxTXz5ZCwph-sbn&5+CVdcot=e561zAEb$ZFEU}#LfQ=(q zx`uOZX$Prz)7~KxJTRvNBw&oqVv)AUh0dtWO*N|3#w@+%Eim*gu{elq@0X(%jllO& z>zTmMkJG{ToHGzODcbQmsY$1Jg8dmNU}0-G>_`b=v^|Z?1Lt)8!J;+tSG%+!8tD22 zpXgC&6%41`Xje-t2DtgGj;nGcXcNS=WFFiToKx5{iTyRy4@0)7^R7>aZ@-wWARq>z zqR^OsWC?9ZWw749AjD;y_S6)n+_3o?rypSqJ&jw;Fy1TD7NQ1i0_Opth!}vurDh1e z9I6dFtGOi_{auwNv}p8@9Qzacnpk%wNTM@$MKW*aQu9{z^sf$)dXE-h^v}lsgd_1@=3DFR_ElHQko+ZPK@odqX zQp@Y2ZP8o0v^r{w99}?8M+V?5v{QbEL$O;~a1B#2Z8rHdc8ng(8JZvADFrezunV~Y zj1%s?Dj+mpskJJntvxuXh%JUWNrxG!e$Kmk+jOEvDA!Ju|jD1qZ@X>ZW;dVahC#+P=Mu07un!Sc%`Gt;hRR-@e`m z6UgJ&@2BS1qSg3+??Q#B8qeNIJwE%D806Dz3A}*B`$)0H5-N?Y^K|4Ozo49k9PMSV zLA7bY@4Qhg<2Vl7r!|F(wlK$!(tB`1Vw>{{>V~+2KjEhQf!bL`LsKgEEY~fJ`I9sz zV#uePZX?zza%%1IgzlTEg)U|!2uaUKM9!wS=jgNs_K12lWr=k9$z*AcLU%E-BO}2P z<@oY+yfe~jjIc{e;X!S|PwA z2j9k5*tg2ZVa~mcpSSb#2xSb|N9kj=eM~-{%UO5u^G-aUu%CygJx-6~^q>Qe>Jxa(b;5oWPhj*oKCtTMW%BU~ z`FOQ_Ji#A3?G*;#|D4Ry2WTnd`{?nX>G6m3_$PY&10L>Xw*A~!s1+iTG!jm-TNI0a zm>y5j+^!PCzZQBhYGQmhpFai@?IZn|4f)fmQf`LvjzzGI6 z!GJ>N*Kk94=9U}6TZOnGyoR3|V)L5V9n@-GhPDPA>Mg~MN{8ph<47mO zs<7rFWc+C1o9wLS^BZzlsNv1@z>;%ZgO(uq&Vr1(m$|O6180wrcyKRwJ$=(@vecoh z5vfV1K8PLhT<`xL7VgmMn%l5=()+_Cr89%mtEc8Mg2MSKw2X$%l4W)jP?B~Y=r6@y zL4nvywAYCj2;Fp&tBSqE1;VdAa1)mN&;pMk^#DE+0vK9s^uWH+(Pv3RxFyl{ zd*=?)BBKHqK1r>@@Kq?!)Bx#sDk35*0D98(eLS%oZ5{1zRw|*ndcWlPF9y%U#>aEy zp9Ra4&XZg8=y7isOGMpc)Sb1d3yrwd+*dDjMn~^;Rn*J)=9ZfO8?sRUJ@WBh`DpS- zyWMuzRBC+Q8BQO?7K-}ZC>>*pBioMQC`LLT?*;YB!$;_NO+Lo-4V_7MZK*0}JK87E z0(Zla#%vvD5SHi-b=s-Bwb86h<50+Ip26cx#|j-FI7H_<<`M2T>DM}J*`?DWTh?3) JzuS|e{}XntS=Imm diff --git a/docs/RefMan/_build/html/.buildinfo b/docs/RefMan/_build/html/.buildinfo index 7a9e1b227..bb39e3d43 100644 --- a/docs/RefMan/_build/html/.buildinfo +++ b/docs/RefMan/_build/html/.buildinfo @@ -1,4 +1,4 @@ # Sphinx build info version 1 # This file hashes the configuration used when building these files. When it is not found, a full rebuild will be done. -config: a4ccf7f1b3589b784c5cab7c48946aab +config: 12febdda05646d6655d93ce350355f10 tags: 645f666f9bcd5a90fca523b33c5a78b7 diff --git a/docs/RefMan/_build/html/BasicSyntax.html b/docs/RefMan/_build/html/BasicSyntax.html index b919ea8ef..87614545e 100644 --- a/docs/RefMan/_build/html/BasicSyntax.html +++ b/docs/RefMan/_build/html/BasicSyntax.html @@ -1,7 +1,8 @@ - + + Basic Syntax — Cryptol 2.11.0 documentation @@ -13,6 +14,7 @@ + @@ -41,6 +43,7 @@

  • Basic Syntax
    • Declarations
    • Type Signatures
    • +
    • Numeric Constraint Guards
    • Layout
    • Comments
    • Identifiers
    • @@ -80,58 +83,92 @@
      -
      -

      Basic Syntax

      -
      -

      Declarations

      -
      f x = x + y + z
      +  
      +

      Basic Syntax

      +
      +

      Declarations

      +
      f x = x + y + z
       
      +
      +
      +

      Type Signatures

      +
      f,g : {a,b} (fin a) => [a] b
      +
      -
      -

      Type Signatures

      -
      f,g : {a,b} (fin a) => [a] b
      +
      +
      +

      Numeric Constraint Guards

      +

      A declaration with a signature can use numeric constraint guards, which are like +normal guards (such as in a multi-branch if` expression) except that the +guarding conditions can be numeric constraints. For example:

      +
      len : {n} (fin n) => [n]a -> Integer
      +len xs | n == 0 => 0
      +       | n >  0 => 1 + len (drop `{1} xs)
       
      +

      Note that this is importantly different from

      +
      len' : {n} (fin n) => [n]a -> Integer
      +len' xs = if `n == 0 => 0
      +           | `n >  0 => 1 + len (drop `{1} xs)
      +
      -
      -

      Layout

      +

      In len’, the type-checker cannot determine that n >= 1 which is +required to use the

      +
      drop `{1} xs
      +
      +
      +

      since the if’s condition is only on values, not types.

      +

      However, in len, the type-checker locally-assumes the constraint n > 0 in +that constraint-guarded branch and so it can in fact determine that n >= 1.

      +
      +
      Requirements:
        +
      • Numeric constraint guards only support constraints over numeric literals, +such as fin, <=, ==, etc. Type constraint aliases can also be used as +long as they only constraint numeric literals.

      • +
      • The numeric constraint guards of a declaration must be exhaustive.

      • +
      +
      +
      +
      +
      +

      Layout

      Groups of declarations are organized based on indentation. Declarations with the same indentation belong to the same group. Lines of text that are indented more than the beginning of a declaration belong to that declaration, while lines of text that are indented less terminate a group of declarations. Consider, for example, the following Cryptol declarations:

      -
      f x = x + y + z
      -  where
      -  y = x * x
      -  z = x + y
      +
      f x = x + y + z
      +  where
      +  y = x * x
      +  z = x + y
       
      -g y = y
      +g y = y
       

      This group has two declarations, one for f and one for g. All the lines between f and g that are indented more than f belong to f. The same principle applies to the declarations in the where block of f, which defines two more local names, y and z.

      -
      -
      -

      Comments

      +
      +
      +

      Comments

      Cryptol supports block comments, which start with /* and end with */, and line comments, which start with // and terminate at the end of the line. Block comments may be nested arbitrarily.

      -
      /* This is a block comment */
      -// This is a line comment
      -/* This is a /* Nested */ block comment */
      +
      /* This is a block comment */
      +// This is a line comment
      +/* This is a /* Nested */ block comment */
       

      Todo

      Document /** */

      -
      -
      -

      Identifiers

      +
      +
      +

      Identifiers

      Cryptol identifiers consist of one or more characters. The first character must be either an English letter or underscore (_). The following characters may be an English letter, a decimal digit, @@ -140,14 +177,14 @@

      IdentifiersKeywords and Built-in Operators).

      Examples of identifiers
      -
      name    name1    name'    longer_name
      -Name    Name2    Name''   longerName
      +
      name    name1    name'    longer_name
      +Name    Name2    Name''   longerName
       
      -
      -
      -

      Keywords and Built-in Operators

      +

      +
      +

      Keywords and Built-in Operators

      The following identifiers have special meanings in Cryptol, and may not be used for programmer defined names:

      @@ -222,9 +259,9 @@

      Keywords and Built-in Operators -

      Built-in Type-level Operators

      +

      +
      +

      Built-in Type-level Operators

      Cryptol includes a variety of operators that allow computations on the numeric types used to specify the sizes of sequences.

      @@ -277,21 +314,21 @@

      Built-in Type-level Operators -

      Numeric Literals

      + +
      +

      Numeric Literals

      Numeric literals may be written in binary, octal, decimal, or hexadecimal notation. The base of a literal is determined by its prefix: 0b for binary, 0o for octal, no special prefix for decimal, and 0x for hexadecimal.

      Examples of literals
      -
      254                 // Decimal literal
      -0254                // Decimal literal
      -0b11111110          // Binary literal
      -0o376               // Octal literal
      -0xFE                // Hexadecimal literal
      -0xfe                // Hexadecimal literal
      +
      254                 // Decimal literal
      +0254                // Decimal literal
      +0b11111110          // Binary literal
      +0o376               // Octal literal
      +0xFE                // Hexadecimal literal
      +0xfe                // Hexadecimal literal
       
      @@ -302,12 +339,12 @@

      Numeric Literals -
      0b1010              // : [4],   1 * number of digits
      -0o1234              // : [12],  3 * number of digits
      -0x1234              // : [16],  4 * number of digits
      +
      0b1010              // : [4],   1 * number of digits
      +0o1234              // : [12],  3 * number of digits
      +0x1234              // : [16],  4 * number of digits
       
      -10                  // : {a}. (Literal 10 a) => a
      -                    // a = Integer or [n] where n >= width 10
      +10                  // : {a}. (Literal 10 a) => a
      +                    // a = Integer or [n] where n >= width 10
       
      @@ -317,8 +354,8 @@

      Numeric Literals -
      <| x^^6 + x^^4 + x^^2 + x^^1 + 1 |>  // : [7], equal to 0b1010111
      -<| x^^4 + x^^3 + x |>                // : [5], equal to 0b11010
      +
      <| x^^6 + x^^4 + x^^2 + x^^1 + 1 |>  // : [7], equal to 0b1010111
      +<| x^^4 + x^^3 + x |>                // : [5], equal to 0b11010
       
      @@ -331,10 +368,10 @@

      Numeric Literals -
      10.2
      -10.2e3            // 10.2 * 10^3
      -0x30.1            // 3 * 64 + 1/16
      -0x30.1p4          // (3 * 64 + 1/16) * 2^4
      +
      10.2
      +10.2e3            // 10.2 * 10^3
      +0x30.1            // 3 * 64 + 1/16
      +0x30.1p4          // (3 * 64 + 1/16) * 2^4
       
      @@ -348,13 +385,13 @@

      Numeric Literals -
      0b_0000_0010
      -0x_FFFF_FFEA
      +
      0b_0000_0010
      +0x_FFFF_FFEA
       
      -
      -

      +

      + diff --git a/docs/RefMan/_build/html/BasicTypes.html b/docs/RefMan/_build/html/BasicTypes.html index 373526e8a..c5ad54b88 100644 --- a/docs/RefMan/_build/html/BasicTypes.html +++ b/docs/RefMan/_build/html/BasicTypes.html @@ -1,7 +1,8 @@ - + + Basic Types — Cryptol 2.11.0 documentation @@ -13,6 +14,7 @@ + @@ -79,79 +81,79 @@
      -
      -

      Basic Types

      -
      -

      Tuples and Records

      +
      +

      Basic Types

      +
      +

      Tuples and Records

      Tuples and records are used for packaging multiple values together. Tuples are enclosed in parentheses, while records are enclosed in curly braces. The components of both tuples and records are separated by commas. The components of tuples are expressions, while the components of records are a label and a value separated by an equal sign. Examples:

      -
      (1,2,3)           // A tuple with 3 component
      -()                // A tuple with no components
      +
      (1,2,3)           // A tuple with 3 component
      +()                // A tuple with no components
       
      -{ x = 1, y = 2 }  // A record with two fields, `x` and `y`
      -{}                // A record with no fields
      +{ x = 1, y = 2 }  // A record with two fields, `x` and `y`
      +{}                // A record with no fields
       

      The components of tuples are identified by position, while the components of records are identified by their label, and so the ordering of record components is not important for most purposes. Examples:

      -
                 (1,2) == (1,2)               // True
      -           (1,2) == (2,1)               // False
      +
                 (1,2) == (1,2)               // True
      +           (1,2) == (2,1)               // False
       
      -{ x = 1, y = 2 } == { x = 1, y = 2 }    // True
      -{ x = 1, y = 2 } == { y = 2, x = 1 }    // True
      +{ x = 1, y = 2 } == { x = 1, y = 2 }    // True
      +{ x = 1, y = 2 } == { y = 2, x = 1 }    // True
       

      Ordering on tuples and records is defined lexicographically. Tuple components are compared in the order they appear, whereas record fields are compared in alphabetical order of field names.

      -
      -

      Accessing Fields

      +
      +

      Accessing Fields

      The components of a record or a tuple may be accessed in two ways: via pattern matching or by using explicit component selectors. Explicit component selectors are written as follows:

      -
      (15, 20).0           == 15
      -(15, 20).1           == 20
      +
      (15, 20).0           == 15
      +(15, 20).1           == 20
       
      -{ x = 15, y = 20 }.x == 15
      +{ x = 15, y = 20 }.x == 15
       

      Explicit record selectors may be used only if the program contains sufficient type information to determine the shape of the tuple or record. For example:

      -
      type T = { sign : Bit, number : [15] }
      +
      type T = { sign : Bit, number : [15] }
       
      -// Valid definition:
      -// the type of the record is known.
      -isPositive : T -> Bit
      -isPositive x = x.sign
      +// Valid definition:
      +// the type of the record is known.
      +isPositive : T -> Bit
      +isPositive x = x.sign
       
      -// Invalid definition:
      -// insufficient type information.
      -badDef x = x.f
      +// Invalid definition:
      +// insufficient type information.
      +badDef x = x.f
       

      The components of a tuple or a record may also be accessed using pattern matching. Patterns for tuples and records mirror the syntax for constructing values: tuple patterns use parentheses, while record patterns use braces. Examples:

      -
      getFst (x,_) = x
      +
      getFst (x,_) = x
       
      -distance2 { x = xPos, y = yPos } = xPos ^^ 2 + yPos ^^ 2
      +distance2 { x = xPos, y = yPos } = xPos ^^ 2 + yPos ^^ 2
       
      -f p = x + y where
      -    (x, y) = p
      +f p = x + y where
      +    (x, y) = p
       

      Selectors are also lifted through sequence and function types, point-wise, so that the following equations should hold:

      -
      xs.l == [ x.l | x <- xs ]     // sequences
      -f.l  == \x -> (f x).l         // functions
      +
      xs.l == [ x.l | x <- xs ]     // sequences
      +f.l  == \x -> (f x).l         // functions
       

      Thus, if we have a sequence of tuples, xs, then we can quickly obtain a @@ -160,57 +162,57 @@

      Accessing Fieldsf.0 to get a function that computes only the first entry in the tuple.

      This behavior is quite handy when examining complex data at the REPL.

      -

      -
      +
      +

      Updating Fields

      The components of a record or a tuple may be updated using the following notation:

      -
      // Example values
      -r = { x = 15, y = 20 }      // a record
      -t = (True,True)             // a tuple
      -n = { pt = r, size = 100 }  // nested record
      +
      // Example values
      +r = { x = 15, y = 20 }      // a record
      +t = (True,True)             // a tuple
      +n = { pt = r, size = 100 }  // nested record
       
      -// Setting fields
      -{ r | x = 30 }          == { x = 30, y = 20 }
      -{ t | 0 = False }       == (False,True)
      +// Setting fields
      +{ r | x = 30 }          == { x = 30, y = 20 }
      +{ t | 0 = False }       == (False,True)
       
      -// Update relative to the old value
      -{ r | x -> x + 5 }      == { x = 20, y = 20 }
      +// Update relative to the old value
      +{ r | x -> x + 5 }      == { x = 20, y = 20 }
       
      -// Update a nested field
      -{ n | pt.x = 10 }       == { pt = { x = 10, y = 20 }, size = 100 }
      -{ n | pt.x -> x + 10 }  == { pt = { x = 25, y = 20 }, size = 100 }
      +// Update a nested field
      +{ n | pt.x = 10 }       == { pt = { x = 10, y = 20 }, size = 100 }
      +{ n | pt.x -> x + 10 }  == { pt = { x = 25, y = 20 }, size = 100 }
       
      -
      -
      -
      -

      Sequences

      +
      +
      +
      +

      Sequences

      A sequence is a fixed-length collection of elements of the same type. The type of a finite sequence of length n, with elements of type a is [n] a. Often, a finite sequence of bits, [n] Bit, is called a word. We may abbreviate the type [n] Bit as [n]. An infinite sequence with elements of type a has type [inf] a, and [inf] is an infinite stream of bits.

      -
      [e1,e2,e3]            // A sequence with three elements
      +
      [e1,e2,e3]            // A sequence with three elements
       
      -[t1 .. t2]            // Enumeration
      -[t1 .. <t2]           // Enumeration (exclusive bound)
      -[t1 .. t2 by n]       // Enumeration (stride)
      -[t1 .. <t2 by n]      // Enumeration (stride, ex. bound)
      -[t1 .. t2 down by n]  // Enumeration (downward stride)
      -[t1 .. >t2 down by n] // Enumeration (downward stride, ex. bound)
      -[t1, t2 .. t3]        // Enumeration (step by t2 - t1)
      +[t1 .. t2]            // Enumeration
      +[t1 .. <t2]           // Enumeration (exclusive bound)
      +[t1 .. t2 by n]       // Enumeration (stride)
      +[t1 .. <t2 by n]      // Enumeration (stride, ex. bound)
      +[t1 .. t2 down by n]  // Enumeration (downward stride)
      +[t1 .. >t2 down by n] // Enumeration (downward stride, ex. bound)
      +[t1, t2 .. t3]        // Enumeration (step by t2 - t1)
       
      -[e1 ...]              // Infinite sequence starting at e1
      -[e1, e2 ...]          // Infinite sequence stepping by e2-e1
      +[e1 ...]              // Infinite sequence starting at e1
      +[e1, e2 ...]          // Infinite sequence stepping by e2-e1
       
      -[ e | p11 <- e11, p12 <- e12    // Sequence comprehensions
      -    | p21 <- e21, p22 <- e22 ]
      +[ e | p11 <- e11, p12 <- e12    // Sequence comprehensions
      +    | p21 <- e21, p22 <- e22 ]
       
      -x = generate (\i -> e)    // Sequence from generating function
      -x @ i = e                 // Sequence with index binding
      -arr @ i @ j = e           // Two-dimensional sequence
      +x = generate (\i -> e)    // Sequence from generating function
      +x @ i = e                 // Sequence with index binding
      +arr @ i @ j = e           // Two-dimensional sequence
       

      Note: the bounds in finite sequences (those with ..) are type @@ -258,19 +260,19 @@

      Sequences
      [p1, p2, p3, p4]          // Sequence pattern
      -p1 # p2                   // Split sequence pattern
      +
      [p1, p2, p3, p4]          // Sequence pattern
      +p1 # p2                   // Split sequence pattern
       
      -
      -
      -

      Functions

      -
      \p1 p2 -> e              // Lambda expression
      -f p1 p2 = e              // Function definition
      +

      +
      +

      Functions

      +
      \p1 p2 -> e              // Lambda expression
      +f p1 p2 = e              // Function definition
       
      -
      -
      + +
      diff --git a/docs/RefMan/_build/html/Expressions.html b/docs/RefMan/_build/html/Expressions.html index d00e28191..35c450b07 100644 --- a/docs/RefMan/_build/html/Expressions.html +++ b/docs/RefMan/_build/html/Expressions.html @@ -1,7 +1,8 @@ - + + Expressions — Cryptol 2.11.0 documentation @@ -13,6 +14,7 @@ + @@ -81,134 +83,134 @@
      -
      -

      Expressions

      +
      +

      Expressions

      This section provides an overview of the Cryptol’s expression syntax.

      -
      -

      Calling Functions

      -
      f 2             // call `f` with parameter `2`
      -g x y           // call `g` with two parameters: `x` and `y`
      -h (x,y)         // call `h` with one parameter,  the pair `(x,y)`
      +
      +

      Calling Functions

      +
      f 2             // call `f` with parameter `2`
      +g x y           // call `g` with two parameters: `x` and `y`
      +h (x,y)         // call `h` with one parameter,  the pair `(x,y)`
       
      -
      -
      -

      Prefix Operators

      -
      -2              // call unary `-` with parameter `2`
      -- 2             // call unary `-` with parameter `2`
      -f (-2)          // call `f` with one argument: `-2`,  parens are important
      --f 2            // call unary `-` with parameter `f 2`
      -- f 2           // call unary `-` with parameter `f 2`
      +
      +
      +

      Prefix Operators

      +
      -2              // call unary `-` with parameter `2`
      +- 2             // call unary `-` with parameter `2`
      +f (-2)          // call `f` with one argument: `-2`,  parens are important
      +-f 2            // call unary `-` with parameter `f 2`
      +- f 2           // call unary `-` with parameter `f 2`
       
      -
      -
      -

      Infix Functions

      -
      2 + 3           // call `+` with two parameters: `2` and `3`
      -2 + 3 * 5       // call `+` with two parameters: `2` and `3 * 5`
      -(+) 2 3         // call `+` with two parameters: `2` and `3`
      -f 2 + g 3       // call `+` with two parameters: `f 2` and `g 3`
      -- 2 + - 3       // call `+` with two parameters: `-2` and `-3`
      -- f 2 + - g 3
      +
      +
      +

      Infix Functions

      +
      2 + 3           // call `+` with two parameters: `2` and `3`
      +2 + 3 * 5       // call `+` with two parameters: `2` and `3 * 5`
      +(+) 2 3         // call `+` with two parameters: `2` and `3`
      +f 2 + g 3       // call `+` with two parameters: `f 2` and `g 3`
      +- 2 + - 3       // call `+` with two parameters: `-2` and `-3`
      +- f 2 + - g 3
       
      -
      -
      -

      Type Annotations

      + +
      +

      Type Annotations

      Explicit type annotations may be added on expressions, patterns, and in argument definitions.

      -
      x : Bit         // specify that `x` has type `Bit`
      -f x : Bit       // specify that `f x` has type `Bit`
      -- f x : [8]     // specify that `- f x` has type `[8]`
      -2 + 3 : [8]     // specify that `2 + 3` has type `[8]`
      -\x -> x : [8]   // type annotation is on `x`, not the function
      -if x
      -  then y
      -  else z : Bit  // the type annotation is on `z`, not the whole `if`
      -[1..9 : [8]]    // specify that elements in `[1..9]` have type `[8]`
      -
      -f (x : [8]) = x + 1   // type annotation on patterns
      +
      x : Bit         // specify that `x` has type `Bit`
      +f x : Bit       // specify that `f x` has type `Bit`
      +- f x : [8]     // specify that `- f x` has type `[8]`
      +2 + 3 : [8]     // specify that `2 + 3` has type `[8]`
      +\x -> x : [8]   // type annotation is on `x`, not the function
      +if x
      +  then y
      +  else z : Bit  // the type annotation is on `z`, not the whole `if`
      +[1..9 : [8]]    // specify that elements in `[1..9]` have type `[8]`
      +
      +f (x : [8]) = x + 1   // type annotation on patterns
       

      Todo

      Patterns with type variables

      -
      -
      -

      Explicit Type Instantiation

      +
      +
      +

      Explicit Type Instantiation

      If f is a polymorphic value with type:

      -
      f : { tyParam } tyParam
      -f = zero
      +
      f : { tyParam } tyParam
      +f = zero
       

      you can evaluate f, passing it a type parameter:

      -
      f `{ tyParam = 13 }
      +
      f `{ tyParam = 13 }
       
      -
      -
      -

      Local Declarations

      +
      +
      +

      Local Declarations

      Local declarations have the weakest precedence of all expressions.

      -
      2 + x : [T]
      -  where
      -  type T = 8
      -  x      = 2          // `T` and `x` are in scope of `2 + x : `[T]`
      +
      2 + x : [T]
      +  where
      +  type T = 8
      +  x      = 2          // `T` and `x` are in scope of `2 + x : `[T]`
       
      -if x then 1 else 2
      -  where x = 2         // `x` is in scope in the whole `if`
      +if x then 1 else 2
      +  where x = 2         // `x` is in scope in the whole `if`
       
      -\y -> x + y
      -  where x = 2         // `y` is not in scope in the defintion of `x`
      +\y -> x + y
      +  where x = 2         // `y` is not in scope in the defintion of `x`
       
      -
      -
      -

      Block Arguments

      +
      +
      +

      Block Arguments

      When used as the last argument to a function call, if and lambda expressions do not need parens:

      -
      f \x -> x       // call `f` with one argument `x -> x`
      -2 + if x
      -      then y
      -      else z    // call `+` with two arguments: `2` and `if ...`
      +
      f \x -> x       // call `f` with one argument `x -> x`
      +2 + if x
      +      then y
      +      else z    // call `+` with two arguments: `2` and `if ...`
       
      -
      -
      -

      Conditionals

      +
      +
      +

      Conditionals

      The if ... then ... else construct can be used with multiple branches. For example:

      -
      x = if y % 2 == 0 then 22 else 33
      +
      x = if y % 2 == 0 then 22 else 33
       
      -x = if y % 2 == 0 then 1
      -     | y % 3 == 0 then 2
      -     | y % 5 == 0 then 3
      -     else 7
      +x = if y % 2 == 0 then 1
      +     | y % 3 == 0 then 2
      +     | y % 5 == 0 then 3
      +     else 7
       
      -
      -
      -

      Demoting Numeric Types to Values

      +
      +
      +

      Demoting Numeric Types to Values

      The value corresponding to a numeric type may be accessed using the following notation:

      -
      `t
      +
      `t
       

      Here t should be a finite type expression with numeric kind. The resulting expression will be of a numeric base type, which is sufficiently large to accommodate the value of the type:

      -
      `t : {a} (Literal t a) => a
      +
      `t : {a} (Literal t a) => a
       

      This backtick notation is syntax sugar for an application of the number primtive, so the above may be written as:

      -
      number`{t} : {a} (Literal t a) => a
      +
      number`{t} : {a} (Literal t a) => a
       

      If a type cannot be inferred from context, a suitable type will be automatically chosen if possible, usually Integer.

      -
      -
      +
      +
      diff --git a/docs/RefMan/_build/html/Modules.html b/docs/RefMan/_build/html/Modules.html index b7b58d915..0be50b526 100644 --- a/docs/RefMan/_build/html/Modules.html +++ b/docs/RefMan/_build/html/Modules.html @@ -1,7 +1,8 @@ - + + Modules — Cryptol 2.11.0 documentation @@ -13,6 +14,7 @@ + @@ -95,26 +97,26 @@
      -
      -

      Modules

      +
      +

      Modules

      A module is used to group some related definitions. Each file may contain at most one top-level module.

      -
      module M where
      +
      module M where
       
      -type T = [8]
      +type T = [8]
       
      -f : [8]
      -f = 10
      +f : [8]
      +f = 10
       
      -
      -

      Hierarchical Module Names

      +
      +

      Hierarchical Module Names

      Module may have either simple or hierarchical names. Hierarchical names are constructed by gluing together ordinary identifiers using the symbol ::.

      -
      module Hash::SHA256 where
      +
      module Hash::SHA256 where
       
      -sha256 = ...
      +sha256 = ...
       

      The structure in the name may be used to group together related @@ -123,104 +125,104 @@

      Hierarchical Module NamesHash::SHA256, Cryptol will look for a file named SHA256.cry in a directory called Hash, contained in one of the directories specified by CRYPTOLPATH.

      -

      -
      +
      +

      Module Imports

      To use the definitions from one module in another module, we use import declarations:

      module M
      -
      // Provide some definitions
      -module M where
      +
      // Provide some definitions
      +module M where
       
      -f : [8]
      -f = 2
      +f : [8]
      +f = 2
       
      module N
      -
      // Uses definitions from `M`
      -module N where
      +
      // Uses definitions from `M`
      +module N where
       
      -import M  // import all definitions from `M`
      +import M  // import all definitions from `M`
       
      -g = f   // `f` was imported from `M`
      +g = f   // `f` was imported from `M`
       
      -
      -

      Import Lists

      +
      +

      Import Lists

      Sometimes, we may want to import only some of the definitions from a module. To do so, we use an import declaration with an import list.

      -
      module M where
      +
      module M where
       
      -f = 0x02
      -g = 0x03
      -h = 0x04
      +f = 0x02
      +g = 0x03
      +h = 0x04
       
      -
      module N where
      +
      module N where
       
      -import M(f,g)  // Imports only `f` and `g`, but not `h`
      +import M(f,g)  // Imports only `f` and `g`, but not `h`
       
      -x = f + g
      +x = f + g
       

      Using explicit import lists helps reduce name collisions. It also tends to make code easier to understand, because it makes it easy to see the source of definitions.

      -
      -
      -

      Hiding Imports

      +
      +
      +

      Hiding Imports

      Sometimes a module may provide many definitions, and we want to use most of them but with a few exceptions (e.g., because those would result to a name clash). In such situations it is convenient to use a hiding import:

      module M
      -
      module M where
      +
      module M where
       
      -f = 0x02
      -g = 0x03
      -h = 0x04
      +f = 0x02
      +g = 0x03
      +h = 0x04
       
      module N
      -
      module N where
      +
      module N where
       
      -import M hiding (h) // Import everything but `h`
      +import M hiding (h) // Import everything but `h`
       
      -x = f + g
      +x = f + g
       
      -
      -
      -

      Qualified Module Imports

      +
      +
      +

      Qualified Module Imports

      Another way to avoid name collisions is by using a qualified import.

      module M
      -
      module M where
      +
      module M where
       
      -f : [8]
      -f = 2
      +f : [8]
      +f = 2
       
      module N
      -
      module N where
      +
      module N where
       
      -import M as P
      +import M as P
       
      -g = P::f
      -// `f` was imported from `M`
      -// but when used it needs to be prefixed by the qualifier `P`
      +g = P::f
      +// `f` was imported from `M`
      +// but when used it needs to be prefixed by the qualifier `P`
       
      @@ -229,9 +231,9 @@

      Qualified Module Imports -
      import A as B (f)         // introduces B::f
      -import X as Y hiding (f)  // introduces everything but `f` from X
      -                          // using the prefix `X`
      +
      import A as B (f)         // introduces B::f
      +import X as Y hiding (f)  // introduces everything but `f` from X
      +                          // using the prefix `X`
       
      @@ -239,34 +241,34 @@

      Qualified Module Imports -
      import A as B
      -import X as B
      +
      import A as B
      +import X as B
       

      Such declarations will introduces all definitions from A and X but to use them, you would have to qualify using the prefix B::.

      -
      -

      -
      -

      Private Blocks

      +

      +
      +
      +

      Private Blocks

      In some cases, definitions in a module might use helper functions that are not intended to be used outside the module. It is good practice to place such declarations in private blocks:

      Private blocks
      -
      module M where
      +
      module M where
       
      -f : [8]
      -f = 0x01 + helper1 + helper2
      +f : [8]
      +f = 0x01 + helper1 + helper2
       
      -private
      +private
       
      -  helper1 : [8]
      -  helper1 = 2
      +  helper1 : [8]
      +  helper1 = 2
       
      -  helper2 : [8]
      -  helper2 = 3
      +  helper2 : [8]
      +  helper2 = 3
       
      @@ -276,18 +278,18 @@

      Private Blocks -
      module M where
      +
      module M where
       
      -f : [8]
      -f = 0x01 + helper1 + helper2
      +f : [8]
      +f = 0x01 + helper1 + helper2
       
      -private
      +private
       
      -helper1 : [8]
      -helper1 = 2
      +helper1 : [8]
      +helper1 = 2
       
      -helper2 : [8]
      -helper2 = 3
      +helper2 : [8]
      +helper2 = 3
       
      @@ -297,33 +299,33 @@

      Private Blocks -
      module M where
      +
      module M where
       
      -f : [8]
      -f = 0x01 + helper1 + helper2
      +f : [8]
      +f = 0x01 + helper1 + helper2
       
      -private
      -  helper1 : [8]
      -  helper1 = 2
      +private
      +  helper1 : [8]
      +  helper1 = 2
       
      -private
      -  helper2 : [8]
      -  helper2 = 3
      +private
      +  helper2 : [8]
      +  helper2 = 3
       
      -
      -
      -

      Nested Modules

      +

      +
      +

      Nested Modules

      Module may be declared withing other modules, using the submodule keword.

      Declaring a nested module called N
      -
      module M where
      +
      module M where
       
      -  x = 0x02
      +  x = 0x02
       
      -  submodule N where
      -    y = x + 2
      +  submodule N where
      +    y = x + 2
       
      @@ -334,44 +336,44 @@

      Nested Modules -
      module M where
      +
      module M where
       
      -  x = 0x02
      +  x = 0x02
       
      -  submodule N where
      -    y = x + 2
      +  submodule N where
      +    y = x + 2
       
      -  import submodule N as P
      +  import submodule N as P
       
      -  z = 2 * P::y
      +  z = 2 * P::y
       

      Note that recursive definitions across modules are not allowed. So, in the previous example, it would be an error if y was to try to use z in its definition.

      -
      -

      Implicit Imports

      +
      +

      Implicit Imports

      For convenience, we add an implicit qualified submodule import for each locally defined submodules.

      Making use of the implicit import for a submodule.
      -
      module M where
      +
      module M where
       
      -  x = 0x02
      +  x = 0x02
       
      -  submodule N where
      -    y = x + 2
      +  submodule N where
      +    y = x + 2
       
      -  z = 2 * N::y
      +  z = 2 * N::y
       

      N::y works in the previous example because Cryptol added an implicit import import submoulde N as N.

      -
      -
      -

      Managing Module Names

      +
      +
      +

      Managing Module Names

      The names of nested modules are managed by the module system just like the name of any other declaration in Cryptol. Thus, nested modules may declared in the public or private sections of their @@ -386,43 +388,43 @@

      Managing Module Names
      -
      module A where
      +
      module A where
       
      -  x = 0x02
      +  x = 0x02
       
      -  submodule N where
      -    y = x + 2
      +  submodule N where
      +    y = x + 2
       
      -module B where
      -  import A            // Brings `N` in scope
      -  import submodule N  // Brings `y` in scope
      -  z = 2 * y
      +module B where
      +  import A            // Brings `N` in scope
      +  import submodule N  // Brings `y` in scope
      +  z = 2 * y
       
      -
      -
      -
      -

      Parameterized Modules

      +

      +

      +
      +

      Parameterized Modules

      Warning

      The documentation in this section is for the upcoming variant of the feature, which is not yet part of main line Cryptol.

      -
      -

      Interface Modules

      +
      +

      Interface Modules

      An interface module describes the content of a module without providing a concrete implementation.

      An interface module.
      -
      interface module I where
      +
      interface module I where
       
      -  type n : #      // `n` is a numeric type
      +  type n : #      // `n` is a numeric type
       
      -  type constraint (fin n, n >= 1)
      -                  // Assumptions about the declared numeric type
      +  type constraint (fin n, n >= 1)
      +                  // Assumptions about the declared numeric type
       
      -  x : [n]         // A declarations of a constant
      +  x : [n]         // A declarations of a constant
       
      @@ -430,39 +432,39 @@

      Interface Modules -
      module M where
      +
      module M where
       
      -  interface submodule I where
      +  interface submodule I where
       
      -    type n : #      // `n` is a numeric type
      +    type n : #      // `n` is a numeric type
       
      -    type constraint (fin n, n >= 1)
      -                    // Assumptions about the declared numeric type
      +    type constraint (fin n, n >= 1)
      +                    // Assumptions about the declared numeric type
       
      -    x : [n]         // A declarations of a constant
      +    x : [n]         // A declarations of a constant
       
      -
      -
      -

      Importing an Interface Module

      +

      +
      +

      Importing an Interface Module

      A module may be parameterized by importing an interface, instead of a concrete module

      A parameterized module
      -
      // The interface desribes the parmaeters
      -interface module I where
      -  type n : #
      -  type constraint (fin n, n >= 1)
      -  x : [n]
      +
      // The interface desribes the parmaeters
      +interface module I where
      +  type n : #
      +  type constraint (fin n, n >= 1)
      +  x : [n]
       
       
      -// This module is parameterized
      -module F where
      -  import interface I
      +// This module is parameterized
      +module F where
      +  import interface I
       
      -  y : [n]
      -  y = x + 1
      +  y : [n]
      +  y = x + 1
       
      @@ -474,46 +476,46 @@

      Importing an Interface ModuleInstantiating a Parameterized Module.

      Multiple interface parameters
      -
      interface module I where
      -  type n : #
      -  type constraint (fin n, n >= 1)
      -  x : [n]
      +
      interface module I where
      +  type n : #
      +  type constraint (fin n, n >= 1)
      +  x : [n]
       
       
      -module F where
      -  import interface I as I
      -  import interface I as J
      +module F where
      +  import interface I as I
      +  import interface I as J
       
      -  y : [I::n]
      -  y = I::x + 1
      +  y : [I::n]
      +  y = I::x + 1
       
      -  z : [J::n]
      -  z = J::x + 1
      +  z : [J::n]
      +  z = J::x + 1
       
      -
      -
      -

      Interface Constraints

      +

      +
      +

      Interface Constraints

      When working with multiple interfaces, it is to useful to be able to impose additional constraints on the types imported from the interface.

      Adding constraints to interface parameters
      -
      interface module I where
      -  type n : #
      -  type constraint (fin n, n >= 1)
      -  x : [n]
      +
      interface module I where
      +  type n : #
      +  type constraint (fin n, n >= 1)
      +  x : [n]
       
       
      -module F where
      -  import interface I as I
      -  import interface I as J
      +module F where
      +  import interface I as I
      +  import interface I as J
       
      -  interface constraint (I::n == J::n)
      +  interface constraint (I::n == J::n)
       
      -  y : [I::n]
      -  y = I::x + J::x
      +  y : [I::n]
      +  y = I::x + J::x
       
      @@ -521,30 +523,30 @@

      Interface Constraintsx) in both interfaces must be the same. Note that, of course, the two instantiations may provide different values for x.

      -

      -
      +
      +

      Instantiating a Parameterized Module

      To use a parameterized module we need to provide concrete implementations for the interfaces that it uses, and provide a name for the resulting module. This is done as follows:

      Instantiating a parameterized module using a single interface.
      -
      interface module I where
      -  type n : #
      -  type constraint (fin n, n >= 1)
      -  x : [n]
      +
      interface module I where
      +  type n : #
      +  type constraint (fin n, n >= 1)
      +  x : [n]
       
      -module F where
      -  import interface I
      +module F where
      +  import interface I
       
      -  y : [n]
      -  y = x + 1
      +  y : [n]
      +  y = x + 1
       
      -module Impl where
      -  type n = 8
      -  x = 26
      +module Impl where
      +  type n = 8
      +  x = 26
       
      -module MyF = F { Impl }
      +module MyF = F { Impl }
       
      @@ -556,26 +558,26 @@

      Interface Constraints
      -
      // I is defined as above
      +
      // I is defined as above
       
      -module F where
      -  import interface I as I
      -  import interface I as J
      +module F where
      +  import interface I as I
      +  import interface I as J
       
      -  interface constraint (I::n == J::n)
      +  interface constraint (I::n == J::n)
       
      -  y : [I::n]
      -  y = I::x + J::x
      +  y : [I::n]
      +  y = I::x + J::x
       
      -module Impl1 where
      -  type n = 8
      -  x = 26
      +module Impl1 where
      +  type n = 8
      +  x = 26
       
      -module Impl2 where
      -  type n = 8
      -  x = 30
      +module Impl2 where
      +  type n = 8
      +  x = 30
       
      -module MyF = F { I = Impl1, J = Impl 2 }
      +module MyF = F { I = Impl1, J = Impl 2 }
       
      @@ -590,11 +592,11 @@

      Interface Constraints
      -
      module M where
      +
      module M where
       
      -  import Somewhere // defines G
      +  import Somewhere // defines G
       
      -  submodule F = submodule G { I }
      +  submodule F = submodule G { I }
       
      @@ -608,82 +610,82 @@

      Interface Constraintssubmodule I like this:

      -
      module M where
      +
      module M where
       
      -  import Somewhere // defines G and I
      +  import Somewhere // defines G and I
       
      -  submodule F = submodule G { submodule I }
      +  submodule F = submodule G { submodule I }
       
      -
      -
      -

      Anonymous Interface Modules

      +

      +
      +

      Anonymous Interface Modules

      If we need to just parameterize a module by a couple of types/values, it is quite cumbersome to have to define a whole separate interface module. To make this more convenient we provide the following notation for defining an anonymous interface and using it straight away:

      Simple parameterized module.
      -
      module M where
      +
      module M where
       
      -  parameter
      -    type n : #
      -    type constraint (fin n, n >= 1)
      -    x : [n]
      +  parameter
      +    type n : #
      +    type constraint (fin n, n >= 1)
      +    x : [n]
       
      -  f : [n]
      -  f = 1 + x
      +  f : [n]
      +  f = 1 + x
       

      The parameter block defines an interface module and uses it. Note that the parameters may not use things defined in M as the interface is declared outside of M.

      -
      -
      -

      Anonymous Instantiation Arguments

      +
      +
      +

      Anonymous Instantiation Arguments

      Sometimes it is also a bit cumbersome to have to define a whole separate module just to pass it as an argument to some parameterized module. To make this more convenient we support the following notion for instantiation a module:

      -
      // A parameterized module
      -module M where
      +
      // A parameterized module
      +module M where
       
      -  parameter
      -    type n : #
      -    x      : [n]
      -    y      : [n]
      +  parameter
      +    type n : #
      +    x      : [n]
      +    y      : [n]
       
      -  f : [n]
      -  f = x + y
      +  f : [n]
      +  f = x + y
       
       
      -// A module instantiation
      -module N = M
      -  where
      -  type n = 32
      -  x      = 11
      -  y      = helper
      +// A module instantiation
      +module N = M
      +  where
      +  type n = 32
      +  x      = 11
      +  y      = helper
       
      -  helper = 12
      +  helper = 12
       

      The declarations in the where block are treated as the definition of an anonymous module which is passed as the argument to parameterized module M.

      -
      -
      -

      Anonymous Import Instantiations

      +
      +
      +

      Anonymous Import Instantiations

      We provide syntactic sugar for importing and instantiating a functor at the same time:

      -
      +
      +

      Passing Through Module Parameters

      Occasionally it is useful to define a functor that instantiates another functor using the same parameters as the functor being defined (i.e., a functor parameter is passed on to another functor). This can be done by using the keyword interface followed by the name of a parameter in an instantiation. Here is an example:

      -
      interface submodule S where
      -  x : [8]
      +
      interface submodule S where
      +  x : [8]
       
      -// A functor, parameterized on S
      -submodule G where
      -  import interface submodule S
      -  y = x + 1
      +// A functor, parameterized on S
      +submodule G where
      +  import interface submodule S
      +  y = x + 1
       
      -// Another functor, also parameterize on S
      -submodule F where
      -  import interface submodule S as A
      +// Another functor, also parameterize on S
      +submodule F where
      +  import interface submodule S as A
       
      -  // Instantiate `G` using parameter `A` of `F`
      -  import submodule G { interface A }    // Brings `y` in scope
      +  // Instantiate `G` using parameter `A` of `F`
      +  import submodule G { interface A }    // Brings `y` in scope
       
      -  z = A::x + y
      +  z = A::x + y
       
      -// Brings `z` into scope: z = A::x + y
      -//                          = 5    + (5 + 1)
      -//                          = 11
      -import submodule F where
      -  x = 5
      +// Brings `z` into scope: z = A::x + y
      +//                          = 5    + (5 + 1)
      +//                          = 11
      +import submodule F where
      +  x = 5
       
      -
      -
      -
      +
      +
      +
      diff --git a/docs/RefMan/_build/html/OverloadedOperations.html b/docs/RefMan/_build/html/OverloadedOperations.html index 5c1d42e44..c43fd8fb0 100644 --- a/docs/RefMan/_build/html/OverloadedOperations.html +++ b/docs/RefMan/_build/html/OverloadedOperations.html @@ -1,7 +1,8 @@ - + + Overloaded Operations — Cryptol 2.11.0 documentation @@ -13,6 +14,7 @@ + @@ -81,102 +83,102 @@
      -
      -

      Overloaded Operations

      -
      -

      Equality

      -
      Eq
      -  (==)        : {a}    (Eq a) => a -> a -> Bit
      -  (!=)        : {a}    (Eq a) => a -> a -> Bit
      -  (===)       : {a, b} (Eq b) => (a -> b) -> (a -> b) -> (a -> Bit)
      -  (!==)       : {a, b} (Eq b) => (a -> b) -> (a -> b) -> (a -> Bit)
      +  
      +

      Overloaded Operations

      +
      +

      Equality

      +
      Eq
      +  (==)        : {a}    (Eq a) => a -> a -> Bit
      +  (!=)        : {a}    (Eq a) => a -> a -> Bit
      +  (===)       : {a, b} (Eq b) => (a -> b) -> (a -> b) -> (a -> Bit)
      +  (!==)       : {a, b} (Eq b) => (a -> b) -> (a -> b) -> (a -> Bit)
       
      -
      -
      -

      Comparisons

      -
      Cmp
      -  (<)         : {a} (Cmp a) => a -> a -> Bit
      -  (>)         : {a} (Cmp a) => a -> a -> Bit
      -  (<=)        : {a} (Cmp a) => a -> a -> Bit
      -  (>=)        : {a} (Cmp a) => a -> a -> Bit
      -  min         : {a} (Cmp a) => a -> a -> a
      -  max         : {a} (Cmp a) => a -> a -> a
      -  abs         : {a} (Cmp a, Ring a) => a -> a
      +
      +
      +

      Comparisons

      +
      Cmp
      +  (<)         : {a} (Cmp a) => a -> a -> Bit
      +  (>)         : {a} (Cmp a) => a -> a -> Bit
      +  (<=)        : {a} (Cmp a) => a -> a -> Bit
      +  (>=)        : {a} (Cmp a) => a -> a -> Bit
      +  min         : {a} (Cmp a) => a -> a -> a
      +  max         : {a} (Cmp a) => a -> a -> a
      +  abs         : {a} (Cmp a, Ring a) => a -> a
       
      -
      -
      -

      Signed Comparisons

      -
      SignedCmp
      -  (<$)        : {a} (SignedCmp a) => a -> a -> Bit
      -  (>$)        : {a} (SignedCmp a) => a -> a -> Bit
      -  (<=$)       : {a} (SignedCmp a) => a -> a -> Bit
      -  (>=$)       : {a} (SignedCmp a) => a -> a -> Bit
      +
      +
      +

      Signed Comparisons

      +
      SignedCmp
      +  (<$)        : {a} (SignedCmp a) => a -> a -> Bit
      +  (>$)        : {a} (SignedCmp a) => a -> a -> Bit
      +  (<=$)       : {a} (SignedCmp a) => a -> a -> Bit
      +  (>=$)       : {a} (SignedCmp a) => a -> a -> Bit
       
      -
      -
      -

      Zero

      -
      Zero
      -  zero        : {a} (Zero a) => a
      +
      +
      +

      Zero

      +
      Zero
      +  zero        : {a} (Zero a) => a
       
      -
      -
      -

      Logical Operations

      -
      Logic
      -  (&&)        : {a} (Logic a) => a -> a -> a
      -  (||)        : {a} (Logic a) => a -> a -> a
      -  (^)         : {a} (Logic a) => a -> a -> a
      -  complement  : {a} (Logic a) => a -> a
      +
      +
      +

      Logical Operations

      +
      Logic
      +  (&&)        : {a} (Logic a) => a -> a -> a
      +  (||)        : {a} (Logic a) => a -> a -> a
      +  (^)         : {a} (Logic a) => a -> a -> a
      +  complement  : {a} (Logic a) => a -> a
       
      -
      -
      -

      Basic Arithmetic

      -
      Ring
      -  fromInteger : {a} (Ring a) => Integer -> a
      -  (+)         : {a} (Ring a) => a -> a -> a
      -  (-)         : {a} (Ring a) => a -> a -> a
      -  (*)         : {a} (Ring a) => a -> a -> a
      -  negate      : {a} (Ring a) => a -> a
      -  (^^)        : {a, e} (Ring a, Integral e) => a -> e -> a
      +
      +
      +

      Basic Arithmetic

      +
      Ring
      +  fromInteger : {a} (Ring a) => Integer -> a
      +  (+)         : {a} (Ring a) => a -> a -> a
      +  (-)         : {a} (Ring a) => a -> a -> a
      +  (*)         : {a} (Ring a) => a -> a -> a
      +  negate      : {a} (Ring a) => a -> a
      +  (^^)        : {a, e} (Ring a, Integral e) => a -> e -> a
       
      -
      -
      -

      Integral Operations

      -
      Integral
      -  (/)         : {a} (Integral a) => a -> a -> a
      -  (%)         : {a} (Integral a) => a -> a -> a
      -  (^^)        : {a, e} (Ring a, Integral e) => a -> e -> a
      -  toInteger   : {a} (Integral a) => a -> Integer
      -  infFrom     : {a} (Integral a) => a -> [inf]a
      -  infFromThen : {a} (Integral a) => a -> a -> [inf]a
      +
      +
      +

      Integral Operations

      +
      Integral
      +  (/)         : {a} (Integral a) => a -> a -> a
      +  (%)         : {a} (Integral a) => a -> a -> a
      +  (^^)        : {a, e} (Ring a, Integral e) => a -> e -> a
      +  toInteger   : {a} (Integral a) => a -> Integer
      +  infFrom     : {a} (Integral a) => a -> [inf]a
      +  infFromThen : {a} (Integral a) => a -> a -> [inf]a
       
      -
      -
      -

      Division

      -
      Field
      -  recip       : {a} (Field a) => a -> a
      -  (/.)        : {a} (Field a) => a -> a -> a
      +
      +
      +

      Division

      +
      Field
      +  recip       : {a} (Field a) => a -> a
      +  (/.)        : {a} (Field a) => a -> a -> a
       
      -
      -
      -

      Rounding

      -
      Round
      -  ceiling     : {a} (Round a) => a -> Integer
      -  floor       : {a} (Round a) => a -> Integer
      -  trunc       : {a} (Round a) => a -> Integer
      -  roundAway   : {a} (Round a) => a -> Integer
      -  roundToEven : {a} (Round a) => a -> Integer
      +
      +
      +

      Rounding

      +
      Round
      +  ceiling     : {a} (Round a) => a -> Integer
      +  floor       : {a} (Round a) => a -> Integer
      +  trunc       : {a} (Round a) => a -> Integer
      +  roundAway   : {a} (Round a) => a -> Integer
      +  roundToEven : {a} (Round a) => a -> Integer
       
      -
      -
      + +
      diff --git a/docs/RefMan/_build/html/RefMan.html b/docs/RefMan/_build/html/RefMan.html index 1bc5da77f..8fa591a1a 100644 --- a/docs/RefMan/_build/html/RefMan.html +++ b/docs/RefMan/_build/html/RefMan.html @@ -1,7 +1,8 @@ - + + Cryptol Reference Manual — Cryptol 2.11.0 documentation @@ -13,6 +14,7 @@ + @@ -69,14 +71,15 @@
      -
      -

      Cryptol Reference Manual

      +
      +

      Cryptol Reference Manual

      Cryptol Reference Manual

      • Basic Syntax
        • Declarations
        • Type Signatures
        • +
        • Numeric Constraint Guards
        • Layout
        • Comments
        • Identifiers
        • @@ -153,7 +156,7 @@

          Cryptol Reference Manual - + + Type Declarations — Cryptol 2.11.0 documentation @@ -13,6 +14,7 @@ + @@ -74,11 +76,11 @@
          -
          -

          Type Declarations

          -
          -

          Type Synonyms

          -
          type T a b = [a] b
          +  
          +

          Type Declarations

          +
          +

          Type Synonyms

          +
          type T a b = [a] b
           

          A type declaration creates a synonym for a @@ -88,10 +90,10 @@

          Type Synonyms -

          Newtypes

          -
          newtype NewT a b = { seq : [a]b }
          +

          +
          +

          Newtypes

          +
          newtype NewT a b = { seq : [a]b }
           

          A newtype declaration declares a new named type which is defined by @@ -107,8 +109,8 @@

          Newtypesnewtype declaration brings into scope a new function with the same name as the type which can be used to create values of the newtype.

          -
          x : NewT 3 Integer
          -x = NewT { seq = [1,2,3] }
          +
          x : NewT 3 Integer
          +x = NewT { seq = [1,2,3] }
           

          Just as with records, field projections can be used directly on values @@ -117,8 +119,8 @@

          Newtypes :last-child, aside.sidebar > :last-child, div.topic > :last-child, +aside.topic > :last-child, div.admonition > :last-child { margin-bottom: 0; } @@ -387,6 +388,7 @@ div.admonition > :last-child { div.sidebar::after, aside.sidebar::after, div.topic::after, +aside.topic::after, div.admonition::after, blockquote::after { display: block; @@ -428,10 +430,6 @@ table.docutils td, table.docutils th { border-bottom: 1px solid #aaa; } -table.footnote td, table.footnote th { - border: 0 !important; -} - th { text-align: left; padding-right: 5px; @@ -615,6 +613,7 @@ ul.simple p { margin-bottom: 0; } +/* Docutils 0.17 and older (footnotes & citations) */ dl.footnote > dt, dl.citation > dt { float: left; @@ -632,6 +631,33 @@ dl.citation > dd:after { clear: both; } +/* Docutils 0.18+ (footnotes & citations) */ +aside.footnote > span, +div.citation > span { + float: left; +} +aside.footnote > span:last-of-type, +div.citation > span:last-of-type { + padding-right: 0.5em; +} +aside.footnote > p { + margin-left: 2em; +} +div.citation > p { + margin-left: 4em; +} +aside.footnote > p:last-of-type, +div.citation > p:last-of-type { + margin-bottom: 0em; +} +aside.footnote > p:last-of-type:after, +div.citation > p:last-of-type:after { + content: ""; + clear: both; +} + +/* Footnotes & citations ends */ + dl.field-list { display: grid; grid-template-columns: fit-content(30%) auto; @@ -731,8 +757,9 @@ dl.glossary dt { .classifier:before { font-style: normal; - margin: 0.5em; + margin: 0 0.5em; content: ":"; + display: inline-block; } abbr, acronym { @@ -756,6 +783,7 @@ span.pre { -ms-hyphens: none; -webkit-hyphens: none; hyphens: none; + white-space: nowrap; } div[class*="highlight-"] { diff --git a/docs/RefMan/_build/html/_static/doctools.js b/docs/RefMan/_build/html/_static/doctools.js index 8cbf1b161..c3db08d1c 100644 --- a/docs/RefMan/_build/html/_static/doctools.js +++ b/docs/RefMan/_build/html/_static/doctools.js @@ -2,322 +2,263 @@ * doctools.js * ~~~~~~~~~~~ * - * Sphinx JavaScript utilities for all documentation. + * Base JavaScript utilities for all Sphinx HTML documentation. * - * :copyright: Copyright 2007-2021 by the Sphinx team, see AUTHORS. + * :copyright: Copyright 2007-2022 by the Sphinx team, see AUTHORS. * :license: BSD, see LICENSE for details. * */ +"use strict"; -/** - * select a different prefix for underscore - */ -$u = _.noConflict(); - -/** - * make the code below compatible with browsers without - * an installed firebug like debugger -if (!window.console || !console.firebug) { - var names = ["log", "debug", "info", "warn", "error", "assert", "dir", - "dirxml", "group", "groupEnd", "time", "timeEnd", "count", "trace", - "profile", "profileEnd"]; - window.console = {}; - for (var i = 0; i < names.length; ++i) - window.console[names[i]] = function() {}; -} - */ - -/** - * small helper function to urldecode strings - * - * See https://developer.mozilla.org/en-US/docs/Web/JavaScript/Reference/Global_Objects/decodeURIComponent#Decoding_query_parameters_from_a_URL - */ -jQuery.urldecode = function(x) { - if (!x) { - return x +const _ready = (callback) => { + if (document.readyState !== "loading") { + callback(); + } else { + document.addEventListener("DOMContentLoaded", callback); } - return decodeURIComponent(x.replace(/\+/g, ' ')); }; /** - * small helper function to urlencode strings + * highlight a given string on a node by wrapping it in + * span elements with the given class name. */ -jQuery.urlencode = encodeURIComponent; +const _highlight = (node, addItems, text, className) => { + if (node.nodeType === Node.TEXT_NODE) { + const val = node.nodeValue; + const parent = node.parentNode; + const pos = val.toLowerCase().indexOf(text); + if ( + pos >= 0 && + !parent.classList.contains(className) && + !parent.classList.contains("nohighlight") + ) { + let span; -/** - * This function returns the parsed url parameters of the - * current request. Multiple values per key are supported, - * it will always return arrays of strings for the value parts. - */ -jQuery.getQueryParameters = function(s) { - if (typeof s === 'undefined') - s = document.location.search; - var parts = s.substr(s.indexOf('?') + 1).split('&'); - var result = {}; - for (var i = 0; i < parts.length; i++) { - var tmp = parts[i].split('=', 2); - var key = jQuery.urldecode(tmp[0]); - var value = jQuery.urldecode(tmp[1]); - if (key in result) - result[key].push(value); - else - result[key] = [value]; - } - return result; -}; + const closestNode = parent.closest("body, svg, foreignObject"); + const isInSVG = closestNode && closestNode.matches("svg"); + if (isInSVG) { + span = document.createElementNS("http://www.w3.org/2000/svg", "tspan"); + } else { + span = document.createElement("span"); + span.classList.add(className); + } -/** - * highlight a given string on a jquery object by wrapping it in - * span elements with the given class name. - */ -jQuery.fn.highlightText = function(text, className) { - function highlight(node, addItems) { - if (node.nodeType === 3) { - var val = node.nodeValue; - var pos = val.toLowerCase().indexOf(text); - if (pos >= 0 && - !jQuery(node.parentNode).hasClass(className) && - !jQuery(node.parentNode).hasClass("nohighlight")) { - var span; - var isInSVG = jQuery(node).closest("body, svg, foreignObject").is("svg"); - if (isInSVG) { - span = document.createElementNS("http://www.w3.org/2000/svg", "tspan"); - } else { - span = document.createElement("span"); - span.className = className; - } - span.appendChild(document.createTextNode(val.substr(pos, text.length))); - node.parentNode.insertBefore(span, node.parentNode.insertBefore( + span.appendChild(document.createTextNode(val.substr(pos, text.length))); + parent.insertBefore( + span, + parent.insertBefore( document.createTextNode(val.substr(pos + text.length)), - node.nextSibling)); - node.nodeValue = val.substr(0, pos); - if (isInSVG) { - var rect = document.createElementNS("http://www.w3.org/2000/svg", "rect"); - var bbox = node.parentElement.getBBox(); - rect.x.baseVal.value = bbox.x; - rect.y.baseVal.value = bbox.y; - rect.width.baseVal.value = bbox.width; - rect.height.baseVal.value = bbox.height; - rect.setAttribute('class', className); - addItems.push({ - "parent": node.parentNode, - "target": rect}); - } + node.nextSibling + ) + ); + node.nodeValue = val.substr(0, pos); + + if (isInSVG) { + const rect = document.createElementNS( + "http://www.w3.org/2000/svg", + "rect" + ); + const bbox = parent.getBBox(); + rect.x.baseVal.value = bbox.x; + rect.y.baseVal.value = bbox.y; + rect.width.baseVal.value = bbox.width; + rect.height.baseVal.value = bbox.height; + rect.setAttribute("class", className); + addItems.push({ parent: parent, target: rect }); } } - else if (!jQuery(node).is("button, select, textarea")) { - jQuery.each(node.childNodes, function() { - highlight(this, addItems); - }); - } + } else if (node.matches && !node.matches("button, select, textarea")) { + node.childNodes.forEach((el) => _highlight(el, addItems, text, className)); } - var addItems = []; - var result = this.each(function() { - highlight(this, addItems); - }); - for (var i = 0; i < addItems.length; ++i) { - jQuery(addItems[i].parent).before(addItems[i].target); - } - return result; }; - -/* - * backward compatibility for jQuery.browser - * This will be supported until firefox bug is fixed. - */ -if (!jQuery.browser) { - jQuery.uaMatch = function(ua) { - ua = ua.toLowerCase(); - - var match = /(chrome)[ \/]([\w.]+)/.exec(ua) || - /(webkit)[ \/]([\w.]+)/.exec(ua) || - /(opera)(?:.*version|)[ \/]([\w.]+)/.exec(ua) || - /(msie) ([\w.]+)/.exec(ua) || - ua.indexOf("compatible") < 0 && /(mozilla)(?:.*? rv:([\w.]+)|)/.exec(ua) || - []; - - return { - browser: match[ 1 ] || "", - version: match[ 2 ] || "0" - }; - }; - jQuery.browser = {}; - jQuery.browser[jQuery.uaMatch(navigator.userAgent).browser] = true; -} +const _highlightText = (thisNode, text, className) => { + let addItems = []; + _highlight(thisNode, addItems, text, className); + addItems.forEach((obj) => + obj.parent.insertAdjacentElement("beforebegin", obj.target) + ); +}; /** * Small JavaScript module for the documentation. */ -var Documentation = { - - init : function() { - this.fixFirefoxAnchorBug(); - this.highlightSearchWords(); - this.initIndexTable(); - if (DOCUMENTATION_OPTIONS.NAVIGATION_WITH_KEYS) { - this.initOnKeyListeners(); - } +const Documentation = { + init: () => { + Documentation.highlightSearchWords(); + Documentation.initDomainIndexTable(); + Documentation.initOnKeyListeners(); }, /** * i18n support */ - TRANSLATIONS : {}, - PLURAL_EXPR : function(n) { return n === 1 ? 0 : 1; }, - LOCALE : 'unknown', + TRANSLATIONS: {}, + PLURAL_EXPR: (n) => (n === 1 ? 0 : 1), + LOCALE: "unknown", // gettext and ngettext don't access this so that the functions // can safely bound to a different name (_ = Documentation.gettext) - gettext : function(string) { - var translated = Documentation.TRANSLATIONS[string]; - if (typeof translated === 'undefined') - return string; - return (typeof translated === 'string') ? translated : translated[0]; - }, - - ngettext : function(singular, plural, n) { - var translated = Documentation.TRANSLATIONS[singular]; - if (typeof translated === 'undefined') - return (n == 1) ? singular : plural; - return translated[Documentation.PLURALEXPR(n)]; - }, - - addTranslations : function(catalog) { - for (var key in catalog.messages) - this.TRANSLATIONS[key] = catalog.messages[key]; - this.PLURAL_EXPR = new Function('n', 'return +(' + catalog.plural_expr + ')'); - this.LOCALE = catalog.locale; + gettext: (string) => { + const translated = Documentation.TRANSLATIONS[string]; + switch (typeof translated) { + case "undefined": + return string; // no translation + case "string": + return translated; // translation exists + default: + return translated[0]; // (singular, plural) translation tuple exists + } }, - /** - * add context elements like header anchor links - */ - addContextElements : function() { - $('div[id] > :header:first').each(function() { - $('\u00B6'). - attr('href', '#' + this.id). - attr('title', _('Permalink to this headline')). - appendTo(this); - }); - $('dt[id]').each(function() { - $('\u00B6'). - attr('href', '#' + this.id). - attr('title', _('Permalink to this definition')). - appendTo(this); - }); + ngettext: (singular, plural, n) => { + const translated = Documentation.TRANSLATIONS[singular]; + if (typeof translated !== "undefined") + return translated[Documentation.PLURAL_EXPR(n)]; + return n === 1 ? singular : plural; }, - /** - * workaround a firefox stupidity - * see: https://bugzilla.mozilla.org/show_bug.cgi?id=645075 - */ - fixFirefoxAnchorBug : function() { - if (document.location.hash && $.browser.mozilla) - window.setTimeout(function() { - document.location.href += ''; - }, 10); + addTranslations: (catalog) => { + Object.assign(Documentation.TRANSLATIONS, catalog.messages); + Documentation.PLURAL_EXPR = new Function( + "n", + `return (${catalog.plural_expr})` + ); + Documentation.LOCALE = catalog.locale; }, /** * highlight the search words provided in the url in the text */ - highlightSearchWords : function() { - var params = $.getQueryParameters(); - var terms = (params.highlight) ? params.highlight[0].split(/\s+/) : []; - if (terms.length) { - var body = $('div.body'); - if (!body.length) { - body = $('body'); - } - window.setTimeout(function() { - $.each(terms, function() { - body.highlightText(this.toLowerCase(), 'highlighted'); - }); - }, 10); - $('') - .appendTo($('#searchbox')); - } - }, + highlightSearchWords: () => { + const highlight = + new URLSearchParams(window.location.search).get("highlight") || ""; + const terms = highlight.toLowerCase().split(/\s+/).filter(x => x); + if (terms.length === 0) return; // nothing to do - /** - * init the domain index toggle buttons - */ - initIndexTable : function() { - var togglers = $('img.toggler').click(function() { - var src = $(this).attr('src'); - var idnum = $(this).attr('id').substr(7); - $('tr.cg-' + idnum).toggle(); - if (src.substr(-9) === 'minus.png') - $(this).attr('src', src.substr(0, src.length-9) + 'plus.png'); - else - $(this).attr('src', src.substr(0, src.length-8) + 'minus.png'); - }).css('display', ''); - if (DOCUMENTATION_OPTIONS.COLLAPSE_INDEX) { - togglers.click(); - } + // There should never be more than one element matching "div.body" + const divBody = document.querySelectorAll("div.body"); + const body = divBody.length ? divBody[0] : document.querySelector("body"); + window.setTimeout(() => { + terms.forEach((term) => _highlightText(body, term, "highlighted")); + }, 10); + + const searchBox = document.getElementById("searchbox"); + if (searchBox === null) return; + searchBox.appendChild( + document + .createRange() + .createContextualFragment( + '" + ) + ); }, /** * helper function to hide the search marks again */ - hideSearchWords : function() { - $('#searchbox .highlight-link').fadeOut(300); - $('span.highlighted').removeClass('highlighted'); + hideSearchWords: () => { + document + .querySelectorAll("#searchbox .highlight-link") + .forEach((el) => el.remove()); + document + .querySelectorAll("span.highlighted") + .forEach((el) => el.classList.remove("highlighted")); + const url = new URL(window.location); + url.searchParams.delete("highlight"); + window.history.replaceState({}, "", url); }, /** - * make the url absolute + * helper function to focus on search bar */ - makeURL : function(relativeURL) { - return DOCUMENTATION_OPTIONS.URL_ROOT + '/' + relativeURL; + focusSearchBar: () => { + document.querySelectorAll("input[name=q]")[0]?.focus(); }, /** - * get the current relative url + * Initialise the domain index toggle buttons */ - getCurrentURL : function() { - var path = document.location.pathname; - var parts = path.split(/\//); - $.each(DOCUMENTATION_OPTIONS.URL_ROOT.split(/\//), function() { - if (this === '..') - parts.pop(); - }); - var url = parts.join('/'); - return path.substring(url.lastIndexOf('/') + 1, path.length - 1); + initDomainIndexTable: () => { + const toggler = (el) => { + const idNumber = el.id.substr(7); + const toggledRows = document.querySelectorAll(`tr.cg-${idNumber}`); + if (el.src.substr(-9) === "minus.png") { + el.src = `${el.src.substr(0, el.src.length - 9)}plus.png`; + toggledRows.forEach((el) => (el.style.display = "none")); + } else { + el.src = `${el.src.substr(0, el.src.length - 8)}minus.png`; + toggledRows.forEach((el) => (el.style.display = "")); + } + }; + + const togglerElements = document.querySelectorAll("img.toggler"); + togglerElements.forEach((el) => + el.addEventListener("click", (event) => toggler(event.currentTarget)) + ); + togglerElements.forEach((el) => (el.style.display = "")); + if (DOCUMENTATION_OPTIONS.COLLAPSE_INDEX) togglerElements.forEach(toggler); }, - initOnKeyListeners: function() { - $(document).keydown(function(event) { - var activeElementType = document.activeElement.tagName; - // don't navigate when in search box, textarea, dropdown or button - if (activeElementType !== 'TEXTAREA' && activeElementType !== 'INPUT' && activeElementType !== 'SELECT' - && activeElementType !== 'BUTTON' && !event.altKey && !event.ctrlKey && !event.metaKey - && !event.shiftKey) { - switch (event.keyCode) { - case 37: // left - var prevHref = $('link[rel="prev"]').prop('href'); - if (prevHref) { - window.location.href = prevHref; - return false; + initOnKeyListeners: () => { + // only install a listener if it is really needed + if ( + !DOCUMENTATION_OPTIONS.NAVIGATION_WITH_KEYS && + !DOCUMENTATION_OPTIONS.ENABLE_SEARCH_SHORTCUTS + ) + return; + + const blacklistedElements = new Set([ + "TEXTAREA", + "INPUT", + "SELECT", + "BUTTON", + ]); + document.addEventListener("keydown", (event) => { + if (blacklistedElements.has(document.activeElement.tagName)) return; // bail for input elements + if (event.altKey || event.ctrlKey || event.metaKey) return; // bail with special keys + + if (!event.shiftKey) { + switch (event.key) { + case "ArrowLeft": + if (!DOCUMENTATION_OPTIONS.NAVIGATION_WITH_KEYS) break; + + const prevLink = document.querySelector('link[rel="prev"]'); + if (prevLink && prevLink.href) { + window.location.href = prevLink.href; + event.preventDefault(); } break; - case 39: // right - var nextHref = $('link[rel="next"]').prop('href'); - if (nextHref) { - window.location.href = nextHref; - return false; + case "ArrowRight": + if (!DOCUMENTATION_OPTIONS.NAVIGATION_WITH_KEYS) break; + + const nextLink = document.querySelector('link[rel="next"]'); + if (nextLink && nextLink.href) { + window.location.href = nextLink.href; + event.preventDefault(); } break; + case "Escape": + if (!DOCUMENTATION_OPTIONS.ENABLE_SEARCH_SHORTCUTS) break; + Documentation.hideSearchWords(); + event.preventDefault(); } } + + // some keyboard layouts may need Shift to get / + switch (event.key) { + case "/": + if (!DOCUMENTATION_OPTIONS.ENABLE_SEARCH_SHORTCUTS) break; + Documentation.focusSearchBar(); + event.preventDefault(); + } }); - } + }, }; // quick alias for translations -_ = Documentation.gettext; +const _ = Documentation.gettext; -$(document).ready(function() { - Documentation.init(); -}); +_ready(Documentation.init); diff --git a/docs/RefMan/_build/html/_static/documentation_options.js b/docs/RefMan/_build/html/_static/documentation_options.js index b6ad65f53..1d9c2211c 100644 --- a/docs/RefMan/_build/html/_static/documentation_options.js +++ b/docs/RefMan/_build/html/_static/documentation_options.js @@ -1,12 +1,14 @@ var DOCUMENTATION_OPTIONS = { URL_ROOT: document.getElementById("documentation_options").getAttribute('data-url_root'), VERSION: '2.11.0', - LANGUAGE: 'None', + LANGUAGE: 'en', COLLAPSE_INDEX: false, BUILDER: 'html', FILE_SUFFIX: '.html', LINK_SUFFIX: '.html', HAS_SOURCE: true, SOURCELINK_SUFFIX: '.txt', - NAVIGATION_WITH_KEYS: false + NAVIGATION_WITH_KEYS: false, + SHOW_SEARCH_SUMMARY: true, + ENABLE_SEARCH_SHORTCUTS: false, }; \ No newline at end of file diff --git a/docs/RefMan/_build/html/_static/jquery-3.6.0.js b/docs/RefMan/_build/html/_static/jquery-3.6.0.js new file mode 100644 index 000000000..fc6c299b7 --- /dev/null +++ b/docs/RefMan/_build/html/_static/jquery-3.6.0.js @@ -0,0 +1,10881 @@ +/*! + * jQuery JavaScript Library v3.6.0 + * https://jquery.com/ + * + * Includes Sizzle.js + * https://sizzlejs.com/ + * + * Copyright OpenJS Foundation and other contributors + * Released under the MIT license + * https://jquery.org/license + * + * Date: 2021-03-02T17:08Z + */ +( function( global, factory ) { + + "use strict"; + + if ( typeof module === "object" && typeof module.exports === "object" ) { + + // For CommonJS and CommonJS-like environments where a proper `window` + // is present, execute the factory and get jQuery. + // For environments that do not have a `window` with a `document` + // (such as Node.js), expose a factory as module.exports. + // This accentuates the need for the creation of a real `window`. + // e.g. var jQuery = require("jquery")(window); + // See ticket #14549 for more info. + module.exports = global.document ? + factory( global, true ) : + function( w ) { + if ( !w.document ) { + throw new Error( "jQuery requires a window with a document" ); + } + return factory( w ); + }; + } else { + factory( global ); + } + +// Pass this if window is not defined yet +} )( typeof window !== "undefined" ? window : this, function( window, noGlobal ) { + +// Edge <= 12 - 13+, Firefox <=18 - 45+, IE 10 - 11, Safari 5.1 - 9+, iOS 6 - 9.1 +// throw exceptions when non-strict code (e.g., ASP.NET 4.5) accesses strict mode +// arguments.callee.caller (trac-13335). But as of jQuery 3.0 (2016), strict mode should be common +// enough that all such attempts are guarded in a try block. +"use strict"; + +var arr = []; + +var getProto = Object.getPrototypeOf; + +var slice = arr.slice; + +var flat = arr.flat ? function( array ) { + return arr.flat.call( array ); +} : function( array ) { + return arr.concat.apply( [], array ); +}; + + +var push = arr.push; + +var indexOf = arr.indexOf; + +var class2type = {}; + +var toString = class2type.toString; + +var hasOwn = class2type.hasOwnProperty; + +var fnToString = hasOwn.toString; + +var ObjectFunctionString = fnToString.call( Object ); + +var support = {}; + +var isFunction = function isFunction( obj ) { + + // Support: Chrome <=57, Firefox <=52 + // In some browsers, typeof returns "function" for HTML elements + // (i.e., `typeof document.createElement( "object" ) === "function"`). + // We don't want to classify *any* DOM node as a function. + // Support: QtWeb <=3.8.5, WebKit <=534.34, wkhtmltopdf tool <=0.12.5 + // Plus for old WebKit, typeof returns "function" for HTML collections + // (e.g., `typeof document.getElementsByTagName("div") === "function"`). (gh-4756) + return typeof obj === "function" && typeof obj.nodeType !== "number" && + typeof obj.item !== "function"; + }; + + +var isWindow = function isWindow( obj ) { + return obj != null && obj === obj.window; + }; + + +var document = window.document; + + + + var preservedScriptAttributes = { + type: true, + src: true, + nonce: true, + noModule: true + }; + + function DOMEval( code, node, doc ) { + doc = doc || document; + + var i, val, + script = doc.createElement( "script" ); + + script.text = code; + if ( node ) { + for ( i in preservedScriptAttributes ) { + + // Support: Firefox 64+, Edge 18+ + // Some browsers don't support the "nonce" property on scripts. + // On the other hand, just using `getAttribute` is not enough as + // the `nonce` attribute is reset to an empty string whenever it + // becomes browsing-context connected. + // See https://github.com/whatwg/html/issues/2369 + // See https://html.spec.whatwg.org/#nonce-attributes + // The `node.getAttribute` check was added for the sake of + // `jQuery.globalEval` so that it can fake a nonce-containing node + // via an object. + val = node[ i ] || node.getAttribute && node.getAttribute( i ); + if ( val ) { + script.setAttribute( i, val ); + } + } + } + doc.head.appendChild( script ).parentNode.removeChild( script ); + } + + +function toType( obj ) { + if ( obj == null ) { + return obj + ""; + } + + // Support: Android <=2.3 only (functionish RegExp) + return typeof obj === "object" || typeof obj === "function" ? + class2type[ toString.call( obj ) ] || "object" : + typeof obj; +} +/* global Symbol */ +// Defining this global in .eslintrc.json would create a danger of using the global +// unguarded in another place, it seems safer to define global only for this module + + + +var + version = "3.6.0", + + // Define a local copy of jQuery + jQuery = function( selector, context ) { + + // The jQuery object is actually just the init constructor 'enhanced' + // Need init if jQuery is called (just allow error to be thrown if not included) + return new jQuery.fn.init( selector, context ); + }; + +jQuery.fn = jQuery.prototype = { + + // The current version of jQuery being used + jquery: version, + + constructor: jQuery, + + // The default length of a jQuery object is 0 + length: 0, + + toArray: function() { + return slice.call( this ); + }, + + // Get the Nth element in the matched element set OR + // Get the whole matched element set as a clean array + get: function( num ) { + + // Return all the elements in a clean array + if ( num == null ) { + return slice.call( this ); + } + + // Return just the one element from the set + return num < 0 ? this[ num + this.length ] : this[ num ]; + }, + + // Take an array of elements and push it onto the stack + // (returning the new matched element set) + pushStack: function( elems ) { + + // Build a new jQuery matched element set + var ret = jQuery.merge( this.constructor(), elems ); + + // Add the old object onto the stack (as a reference) + ret.prevObject = this; + + // Return the newly-formed element set + return ret; + }, + + // Execute a callback for every element in the matched set. + each: function( callback ) { + return jQuery.each( this, callback ); + }, + + map: function( callback ) { + return this.pushStack( jQuery.map( this, function( elem, i ) { + return callback.call( elem, i, elem ); + } ) ); + }, + + slice: function() { + return this.pushStack( slice.apply( this, arguments ) ); + }, + + first: function() { + return this.eq( 0 ); + }, + + last: function() { + return this.eq( -1 ); + }, + + even: function() { + return this.pushStack( jQuery.grep( this, function( _elem, i ) { + return ( i + 1 ) % 2; + } ) ); + }, + + odd: function() { + return this.pushStack( jQuery.grep( this, function( _elem, i ) { + return i % 2; + } ) ); + }, + + eq: function( i ) { + var len = this.length, + j = +i + ( i < 0 ? len : 0 ); + return this.pushStack( j >= 0 && j < len ? [ this[ j ] ] : [] ); + }, + + end: function() { + return this.prevObject || this.constructor(); + }, + + // For internal use only. + // Behaves like an Array's method, not like a jQuery method. + push: push, + sort: arr.sort, + splice: arr.splice +}; + +jQuery.extend = jQuery.fn.extend = function() { + var options, name, src, copy, copyIsArray, clone, + target = arguments[ 0 ] || {}, + i = 1, + length = arguments.length, + deep = false; + + // Handle a deep copy situation + if ( typeof target === "boolean" ) { + deep = target; + + // Skip the boolean and the target + target = arguments[ i ] || {}; + i++; + } + + // Handle case when target is a string or something (possible in deep copy) + if ( typeof target !== "object" && !isFunction( target ) ) { + target = {}; + } + + // Extend jQuery itself if only one argument is passed + if ( i === length ) { + target = this; + i--; + } + + for ( ; i < length; i++ ) { + + // Only deal with non-null/undefined values + if ( ( options = arguments[ i ] ) != null ) { + + // Extend the base object + for ( name in options ) { + copy = options[ name ]; + + // Prevent Object.prototype pollution + // Prevent never-ending loop + if ( name === "__proto__" || target === copy ) { + continue; + } + + // Recurse if we're merging plain objects or arrays + if ( deep && copy && ( jQuery.isPlainObject( copy ) || + ( copyIsArray = Array.isArray( copy ) ) ) ) { + src = target[ name ]; + + // Ensure proper type for the source value + if ( copyIsArray && !Array.isArray( src ) ) { + clone = []; + } else if ( !copyIsArray && !jQuery.isPlainObject( src ) ) { + clone = {}; + } else { + clone = src; + } + copyIsArray = false; + + // Never move original objects, clone them + target[ name ] = jQuery.extend( deep, clone, copy ); + + // Don't bring in undefined values + } else if ( copy !== undefined ) { + target[ name ] = copy; + } + } + } + } + + // Return the modified object + return target; +}; + +jQuery.extend( { + + // Unique for each copy of jQuery on the page + expando: "jQuery" + ( version + Math.random() ).replace( /\D/g, "" ), + + // Assume jQuery is ready without the ready module + isReady: true, + + error: function( msg ) { + throw new Error( msg ); + }, + + noop: function() {}, + + isPlainObject: function( obj ) { + var proto, Ctor; + + // Detect obvious negatives + // Use toString instead of jQuery.type to catch host objects + if ( !obj || toString.call( obj ) !== "[object Object]" ) { + return false; + } + + proto = getProto( obj ); + + // Objects with no prototype (e.g., `Object.create( null )`) are plain + if ( !proto ) { + return true; + } + + // Objects with prototype are plain iff they were constructed by a global Object function + Ctor = hasOwn.call( proto, "constructor" ) && proto.constructor; + return typeof Ctor === "function" && fnToString.call( Ctor ) === ObjectFunctionString; + }, + + isEmptyObject: function( obj ) { + var name; + + for ( name in obj ) { + return false; + } + return true; + }, + + // Evaluates a script in a provided context; falls back to the global one + // if not specified. + globalEval: function( code, options, doc ) { + DOMEval( code, { nonce: options && options.nonce }, doc ); + }, + + each: function( obj, callback ) { + var length, i = 0; + + if ( isArrayLike( obj ) ) { + length = obj.length; + for ( ; i < length; i++ ) { + if ( callback.call( obj[ i ], i, obj[ i ] ) === false ) { + break; + } + } + } else { + for ( i in obj ) { + if ( callback.call( obj[ i ], i, obj[ i ] ) === false ) { + break; + } + } + } + + return obj; + }, + + // results is for internal usage only + makeArray: function( arr, results ) { + var ret = results || []; + + if ( arr != null ) { + if ( isArrayLike( Object( arr ) ) ) { + jQuery.merge( ret, + typeof arr === "string" ? + [ arr ] : arr + ); + } else { + push.call( ret, arr ); + } + } + + return ret; + }, + + inArray: function( elem, arr, i ) { + return arr == null ? -1 : indexOf.call( arr, elem, i ); + }, + + // Support: Android <=4.0 only, PhantomJS 1 only + // push.apply(_, arraylike) throws on ancient WebKit + merge: function( first, second ) { + var len = +second.length, + j = 0, + i = first.length; + + for ( ; j < len; j++ ) { + first[ i++ ] = second[ j ]; + } + + first.length = i; + + return first; + }, + + grep: function( elems, callback, invert ) { + var callbackInverse, + matches = [], + i = 0, + length = elems.length, + callbackExpect = !invert; + + // Go through the array, only saving the items + // that pass the validator function + for ( ; i < length; i++ ) { + callbackInverse = !callback( elems[ i ], i ); + if ( callbackInverse !== callbackExpect ) { + matches.push( elems[ i ] ); + } + } + + return matches; + }, + + // arg is for internal usage only + map: function( elems, callback, arg ) { + var length, value, + i = 0, + ret = []; + + // Go through the array, translating each of the items to their new values + if ( isArrayLike( elems ) ) { + length = elems.length; + for ( ; i < length; i++ ) { + value = callback( elems[ i ], i, arg ); + + if ( value != null ) { + ret.push( value ); + } + } + + // Go through every key on the object, + } else { + for ( i in elems ) { + value = callback( elems[ i ], i, arg ); + + if ( value != null ) { + ret.push( value ); + } + } + } + + // Flatten any nested arrays + return flat( ret ); + }, + + // A global GUID counter for objects + guid: 1, + + // jQuery.support is not used in Core but other projects attach their + // properties to it so it needs to exist. + support: support +} ); + +if ( typeof Symbol === "function" ) { + jQuery.fn[ Symbol.iterator ] = arr[ Symbol.iterator ]; +} + +// Populate the class2type map +jQuery.each( "Boolean Number String Function Array Date RegExp Object Error Symbol".split( " " ), + function( _i, name ) { + class2type[ "[object " + name + "]" ] = name.toLowerCase(); + } ); + +function isArrayLike( obj ) { + + // Support: real iOS 8.2 only (not reproducible in simulator) + // `in` check used to prevent JIT error (gh-2145) + // hasOwn isn't used here due to false negatives + // regarding Nodelist length in IE + var length = !!obj && "length" in obj && obj.length, + type = toType( obj ); + + if ( isFunction( obj ) || isWindow( obj ) ) { + return false; + } + + return type === "array" || length === 0 || + typeof length === "number" && length > 0 && ( length - 1 ) in obj; +} +var Sizzle = +/*! + * Sizzle CSS Selector Engine v2.3.6 + * https://sizzlejs.com/ + * + * Copyright JS Foundation and other contributors + * Released under the MIT license + * https://js.foundation/ + * + * Date: 2021-02-16 + */ +( function( window ) { +var i, + support, + Expr, + getText, + isXML, + tokenize, + compile, + select, + outermostContext, + sortInput, + hasDuplicate, + + // Local document vars + setDocument, + document, + docElem, + documentIsHTML, + rbuggyQSA, + rbuggyMatches, + matches, + contains, + + // Instance-specific data + expando = "sizzle" + 1 * new Date(), + preferredDoc = window.document, + dirruns = 0, + done = 0, + classCache = createCache(), + tokenCache = createCache(), + compilerCache = createCache(), + nonnativeSelectorCache = createCache(), + sortOrder = function( a, b ) { + if ( a === b ) { + hasDuplicate = true; + } + return 0; + }, + + // Instance methods + hasOwn = ( {} ).hasOwnProperty, + arr = [], + pop = arr.pop, + pushNative = arr.push, + push = arr.push, + slice = arr.slice, + + // Use a stripped-down indexOf as it's faster than native + // https://jsperf.com/thor-indexof-vs-for/5 + indexOf = function( list, elem ) { + var i = 0, + len = list.length; + for ( ; i < len; i++ ) { + if ( list[ i ] === elem ) { + return i; + } + } + return -1; + }, + + booleans = "checked|selected|async|autofocus|autoplay|controls|defer|disabled|hidden|" + + "ismap|loop|multiple|open|readonly|required|scoped", + + // Regular expressions + + // http://www.w3.org/TR/css3-selectors/#whitespace + whitespace = "[\\x20\\t\\r\\n\\f]", + + // https://www.w3.org/TR/css-syntax-3/#ident-token-diagram + identifier = "(?:\\\\[\\da-fA-F]{1,6}" + whitespace + + "?|\\\\[^\\r\\n\\f]|[\\w-]|[^\0-\\x7f])+", + + // Attribute selectors: http://www.w3.org/TR/selectors/#attribute-selectors + attributes = "\\[" + whitespace + "*(" + identifier + ")(?:" + whitespace + + + // Operator (capture 2) + "*([*^$|!~]?=)" + whitespace + + + // "Attribute values must be CSS identifiers [capture 5] + // or strings [capture 3 or capture 4]" + "*(?:'((?:\\\\.|[^\\\\'])*)'|\"((?:\\\\.|[^\\\\\"])*)\"|(" + identifier + "))|)" + + whitespace + "*\\]", + + pseudos = ":(" + identifier + ")(?:\\((" + + + // To reduce the number of selectors needing tokenize in the preFilter, prefer arguments: + // 1. quoted (capture 3; capture 4 or capture 5) + "('((?:\\\\.|[^\\\\'])*)'|\"((?:\\\\.|[^\\\\\"])*)\")|" + + + // 2. simple (capture 6) + "((?:\\\\.|[^\\\\()[\\]]|" + attributes + ")*)|" + + + // 3. anything else (capture 2) + ".*" + + ")\\)|)", + + // Leading and non-escaped trailing whitespace, capturing some non-whitespace characters preceding the latter + rwhitespace = new RegExp( whitespace + "+", "g" ), + rtrim = new RegExp( "^" + whitespace + "+|((?:^|[^\\\\])(?:\\\\.)*)" + + whitespace + "+$", "g" ), + + rcomma = new RegExp( "^" + whitespace + "*," + whitespace + "*" ), + rcombinators = new RegExp( "^" + whitespace + "*([>+~]|" + whitespace + ")" + whitespace + + "*" ), + rdescend = new RegExp( whitespace + "|>" ), + + rpseudo = new RegExp( pseudos ), + ridentifier = new RegExp( "^" + identifier + "$" ), + + matchExpr = { + "ID": new RegExp( "^#(" + identifier + ")" ), + "CLASS": new RegExp( "^\\.(" + identifier + ")" ), + "TAG": new RegExp( "^(" + identifier + "|[*])" ), + "ATTR": new RegExp( "^" + attributes ), + "PSEUDO": new RegExp( "^" + pseudos ), + "CHILD": new RegExp( "^:(only|first|last|nth|nth-last)-(child|of-type)(?:\\(" + + whitespace + "*(even|odd|(([+-]|)(\\d*)n|)" + whitespace + "*(?:([+-]|)" + + whitespace + "*(\\d+)|))" + whitespace + "*\\)|)", "i" ), + "bool": new RegExp( "^(?:" + booleans + ")$", "i" ), + + // For use in libraries implementing .is() + // We use this for POS matching in `select` + "needsContext": new RegExp( "^" + whitespace + + "*[>+~]|:(even|odd|eq|gt|lt|nth|first|last)(?:\\(" + whitespace + + "*((?:-\\d)?\\d*)" + whitespace + "*\\)|)(?=[^-]|$)", "i" ) + }, + + rhtml = /HTML$/i, + rinputs = /^(?:input|select|textarea|button)$/i, + rheader = /^h\d$/i, + + rnative = /^[^{]+\{\s*\[native \w/, + + // Easily-parseable/retrievable ID or TAG or CLASS selectors + rquickExpr = /^(?:#([\w-]+)|(\w+)|\.([\w-]+))$/, + + rsibling = /[+~]/, + + // CSS escapes + // http://www.w3.org/TR/CSS21/syndata.html#escaped-characters + runescape = new RegExp( "\\\\[\\da-fA-F]{1,6}" + whitespace + "?|\\\\([^\\r\\n\\f])", "g" ), + funescape = function( escape, nonHex ) { + var high = "0x" + escape.slice( 1 ) - 0x10000; + + return nonHex ? + + // Strip the backslash prefix from a non-hex escape sequence + nonHex : + + // Replace a hexadecimal escape sequence with the encoded Unicode code point + // Support: IE <=11+ + // For values outside the Basic Multilingual Plane (BMP), manually construct a + // surrogate pair + high < 0 ? + String.fromCharCode( high + 0x10000 ) : + String.fromCharCode( high >> 10 | 0xD800, high & 0x3FF | 0xDC00 ); + }, + + // CSS string/identifier serialization + // https://drafts.csswg.org/cssom/#common-serializing-idioms + rcssescape = /([\0-\x1f\x7f]|^-?\d)|^-$|[^\0-\x1f\x7f-\uFFFF\w-]/g, + fcssescape = function( ch, asCodePoint ) { + if ( asCodePoint ) { + + // U+0000 NULL becomes U+FFFD REPLACEMENT CHARACTER + if ( ch === "\0" ) { + return "\uFFFD"; + } + + // Control characters and (dependent upon position) numbers get escaped as code points + return ch.slice( 0, -1 ) + "\\" + + ch.charCodeAt( ch.length - 1 ).toString( 16 ) + " "; + } + + // Other potentially-special ASCII characters get backslash-escaped + return "\\" + ch; + }, + + // Used for iframes + // See setDocument() + // Removing the function wrapper causes a "Permission Denied" + // error in IE + unloadHandler = function() { + setDocument(); + }, + + inDisabledFieldset = addCombinator( + function( elem ) { + return elem.disabled === true && elem.nodeName.toLowerCase() === "fieldset"; + }, + { dir: "parentNode", next: "legend" } + ); + +// Optimize for push.apply( _, NodeList ) +try { + push.apply( + ( arr = slice.call( preferredDoc.childNodes ) ), + preferredDoc.childNodes + ); + + // Support: Android<4.0 + // Detect silently failing push.apply + // eslint-disable-next-line no-unused-expressions + arr[ preferredDoc.childNodes.length ].nodeType; +} catch ( e ) { + push = { apply: arr.length ? + + // Leverage slice if possible + function( target, els ) { + pushNative.apply( target, slice.call( els ) ); + } : + + // Support: IE<9 + // Otherwise append directly + function( target, els ) { + var j = target.length, + i = 0; + + // Can't trust NodeList.length + while ( ( target[ j++ ] = els[ i++ ] ) ) {} + target.length = j - 1; + } + }; +} + +function Sizzle( selector, context, results, seed ) { + var m, i, elem, nid, match, groups, newSelector, + newContext = context && context.ownerDocument, + + // nodeType defaults to 9, since context defaults to document + nodeType = context ? context.nodeType : 9; + + results = results || []; + + // Return early from calls with invalid selector or context + if ( typeof selector !== "string" || !selector || + nodeType !== 1 && nodeType !== 9 && nodeType !== 11 ) { + + return results; + } + + // Try to shortcut find operations (as opposed to filters) in HTML documents + if ( !seed ) { + setDocument( context ); + context = context || document; + + if ( documentIsHTML ) { + + // If the selector is sufficiently simple, try using a "get*By*" DOM method + // (excepting DocumentFragment context, where the methods don't exist) + if ( nodeType !== 11 && ( match = rquickExpr.exec( selector ) ) ) { + + // ID selector + if ( ( m = match[ 1 ] ) ) { + + // Document context + if ( nodeType === 9 ) { + if ( ( elem = context.getElementById( m ) ) ) { + + // Support: IE, Opera, Webkit + // TODO: identify versions + // getElementById can match elements by name instead of ID + if ( elem.id === m ) { + results.push( elem ); + return results; + } + } else { + return results; + } + + // Element context + } else { + + // Support: IE, Opera, Webkit + // TODO: identify versions + // getElementById can match elements by name instead of ID + if ( newContext && ( elem = newContext.getElementById( m ) ) && + contains( context, elem ) && + elem.id === m ) { + + results.push( elem ); + return results; + } + } + + // Type selector + } else if ( match[ 2 ] ) { + push.apply( results, context.getElementsByTagName( selector ) ); + return results; + + // Class selector + } else if ( ( m = match[ 3 ] ) && support.getElementsByClassName && + context.getElementsByClassName ) { + + push.apply( results, context.getElementsByClassName( m ) ); + return results; + } + } + + // Take advantage of querySelectorAll + if ( support.qsa && + !nonnativeSelectorCache[ selector + " " ] && + ( !rbuggyQSA || !rbuggyQSA.test( selector ) ) && + + // Support: IE 8 only + // Exclude object elements + ( nodeType !== 1 || context.nodeName.toLowerCase() !== "object" ) ) { + + newSelector = selector; + newContext = context; + + // qSA considers elements outside a scoping root when evaluating child or + // descendant combinators, which is not what we want. + // In such cases, we work around the behavior by prefixing every selector in the + // list with an ID selector referencing the scope context. + // The technique has to be used as well when a leading combinator is used + // as such selectors are not recognized by querySelectorAll. + // Thanks to Andrew Dupont for this technique. + if ( nodeType === 1 && + ( rdescend.test( selector ) || rcombinators.test( selector ) ) ) { + + // Expand context for sibling selectors + newContext = rsibling.test( selector ) && testContext( context.parentNode ) || + context; + + // We can use :scope instead of the ID hack if the browser + // supports it & if we're not changing the context. + if ( newContext !== context || !support.scope ) { + + // Capture the context ID, setting it first if necessary + if ( ( nid = context.getAttribute( "id" ) ) ) { + nid = nid.replace( rcssescape, fcssescape ); + } else { + context.setAttribute( "id", ( nid = expando ) ); + } + } + + // Prefix every selector in the list + groups = tokenize( selector ); + i = groups.length; + while ( i-- ) { + groups[ i ] = ( nid ? "#" + nid : ":scope" ) + " " + + toSelector( groups[ i ] ); + } + newSelector = groups.join( "," ); + } + + try { + push.apply( results, + newContext.querySelectorAll( newSelector ) + ); + return results; + } catch ( qsaError ) { + nonnativeSelectorCache( selector, true ); + } finally { + if ( nid === expando ) { + context.removeAttribute( "id" ); + } + } + } + } + } + + // All others + return select( selector.replace( rtrim, "$1" ), context, results, seed ); +} + +/** + * Create key-value caches of limited size + * @returns {function(string, object)} Returns the Object data after storing it on itself with + * property name the (space-suffixed) string and (if the cache is larger than Expr.cacheLength) + * deleting the oldest entry + */ +function createCache() { + var keys = []; + + function cache( key, value ) { + + // Use (key + " ") to avoid collision with native prototype properties (see Issue #157) + if ( keys.push( key + " " ) > Expr.cacheLength ) { + + // Only keep the most recent entries + delete cache[ keys.shift() ]; + } + return ( cache[ key + " " ] = value ); + } + return cache; +} + +/** + * Mark a function for special use by Sizzle + * @param {Function} fn The function to mark + */ +function markFunction( fn ) { + fn[ expando ] = true; + return fn; +} + +/** + * Support testing using an element + * @param {Function} fn Passed the created element and returns a boolean result + */ +function assert( fn ) { + var el = document.createElement( "fieldset" ); + + try { + return !!fn( el ); + } catch ( e ) { + return false; + } finally { + + // Remove from its parent by default + if ( el.parentNode ) { + el.parentNode.removeChild( el ); + } + + // release memory in IE + el = null; + } +} + +/** + * Adds the same handler for all of the specified attrs + * @param {String} attrs Pipe-separated list of attributes + * @param {Function} handler The method that will be applied + */ +function addHandle( attrs, handler ) { + var arr = attrs.split( "|" ), + i = arr.length; + + while ( i-- ) { + Expr.attrHandle[ arr[ i ] ] = handler; + } +} + +/** + * Checks document order of two siblings + * @param {Element} a + * @param {Element} b + * @returns {Number} Returns less than 0 if a precedes b, greater than 0 if a follows b + */ +function siblingCheck( a, b ) { + var cur = b && a, + diff = cur && a.nodeType === 1 && b.nodeType === 1 && + a.sourceIndex - b.sourceIndex; + + // Use IE sourceIndex if available on both nodes + if ( diff ) { + return diff; + } + + // Check if b follows a + if ( cur ) { + while ( ( cur = cur.nextSibling ) ) { + if ( cur === b ) { + return -1; + } + } + } + + return a ? 1 : -1; +} + +/** + * Returns a function to use in pseudos for input types + * @param {String} type + */ +function createInputPseudo( type ) { + return function( elem ) { + var name = elem.nodeName.toLowerCase(); + return name === "input" && elem.type === type; + }; +} + +/** + * Returns a function to use in pseudos for buttons + * @param {String} type + */ +function createButtonPseudo( type ) { + return function( elem ) { + var name = elem.nodeName.toLowerCase(); + return ( name === "input" || name === "button" ) && elem.type === type; + }; +} + +/** + * Returns a function to use in pseudos for :enabled/:disabled + * @param {Boolean} disabled true for :disabled; false for :enabled + */ +function createDisabledPseudo( disabled ) { + + // Known :disabled false positives: fieldset[disabled] > legend:nth-of-type(n+2) :can-disable + return function( elem ) { + + // Only certain elements can match :enabled or :disabled + // https://html.spec.whatwg.org/multipage/scripting.html#selector-enabled + // https://html.spec.whatwg.org/multipage/scripting.html#selector-disabled + if ( "form" in elem ) { + + // Check for inherited disabledness on relevant non-disabled elements: + // * listed form-associated elements in a disabled fieldset + // https://html.spec.whatwg.org/multipage/forms.html#category-listed + // https://html.spec.whatwg.org/multipage/forms.html#concept-fe-disabled + // * option elements in a disabled optgroup + // https://html.spec.whatwg.org/multipage/forms.html#concept-option-disabled + // All such elements have a "form" property. + if ( elem.parentNode && elem.disabled === false ) { + + // Option elements defer to a parent optgroup if present + if ( "label" in elem ) { + if ( "label" in elem.parentNode ) { + return elem.parentNode.disabled === disabled; + } else { + return elem.disabled === disabled; + } + } + + // Support: IE 6 - 11 + // Use the isDisabled shortcut property to check for disabled fieldset ancestors + return elem.isDisabled === disabled || + + // Where there is no isDisabled, check manually + /* jshint -W018 */ + elem.isDisabled !== !disabled && + inDisabledFieldset( elem ) === disabled; + } + + return elem.disabled === disabled; + + // Try to winnow out elements that can't be disabled before trusting the disabled property. + // Some victims get caught in our net (label, legend, menu, track), but it shouldn't + // even exist on them, let alone have a boolean value. + } else if ( "label" in elem ) { + return elem.disabled === disabled; + } + + // Remaining elements are neither :enabled nor :disabled + return false; + }; +} + +/** + * Returns a function to use in pseudos for positionals + * @param {Function} fn + */ +function createPositionalPseudo( fn ) { + return markFunction( function( argument ) { + argument = +argument; + return markFunction( function( seed, matches ) { + var j, + matchIndexes = fn( [], seed.length, argument ), + i = matchIndexes.length; + + // Match elements found at the specified indexes + while ( i-- ) { + if ( seed[ ( j = matchIndexes[ i ] ) ] ) { + seed[ j ] = !( matches[ j ] = seed[ j ] ); + } + } + } ); + } ); +} + +/** + * Checks a node for validity as a Sizzle context + * @param {Element|Object=} context + * @returns {Element|Object|Boolean} The input node if acceptable, otherwise a falsy value + */ +function testContext( context ) { + return context && typeof context.getElementsByTagName !== "undefined" && context; +} + +// Expose support vars for convenience +support = Sizzle.support = {}; + +/** + * Detects XML nodes + * @param {Element|Object} elem An element or a document + * @returns {Boolean} True iff elem is a non-HTML XML node + */ +isXML = Sizzle.isXML = function( elem ) { + var namespace = elem && elem.namespaceURI, + docElem = elem && ( elem.ownerDocument || elem ).documentElement; + + // Support: IE <=8 + // Assume HTML when documentElement doesn't yet exist, such as inside loading iframes + // https://bugs.jquery.com/ticket/4833 + return !rhtml.test( namespace || docElem && docElem.nodeName || "HTML" ); +}; + +/** + * Sets document-related variables once based on the current document + * @param {Element|Object} [doc] An element or document object to use to set the document + * @returns {Object} Returns the current document + */ +setDocument = Sizzle.setDocument = function( node ) { + var hasCompare, subWindow, + doc = node ? node.ownerDocument || node : preferredDoc; + + // Return early if doc is invalid or already selected + // Support: IE 11+, Edge 17 - 18+ + // IE/Edge sometimes throw a "Permission denied" error when strict-comparing + // two documents; shallow comparisons work. + // eslint-disable-next-line eqeqeq + if ( doc == document || doc.nodeType !== 9 || !doc.documentElement ) { + return document; + } + + // Update global variables + document = doc; + docElem = document.documentElement; + documentIsHTML = !isXML( document ); + + // Support: IE 9 - 11+, Edge 12 - 18+ + // Accessing iframe documents after unload throws "permission denied" errors (jQuery #13936) + // Support: IE 11+, Edge 17 - 18+ + // IE/Edge sometimes throw a "Permission denied" error when strict-comparing + // two documents; shallow comparisons work. + // eslint-disable-next-line eqeqeq + if ( preferredDoc != document && + ( subWindow = document.defaultView ) && subWindow.top !== subWindow ) { + + // Support: IE 11, Edge + if ( subWindow.addEventListener ) { + subWindow.addEventListener( "unload", unloadHandler, false ); + + // Support: IE 9 - 10 only + } else if ( subWindow.attachEvent ) { + subWindow.attachEvent( "onunload", unloadHandler ); + } + } + + // Support: IE 8 - 11+, Edge 12 - 18+, Chrome <=16 - 25 only, Firefox <=3.6 - 31 only, + // Safari 4 - 5 only, Opera <=11.6 - 12.x only + // IE/Edge & older browsers don't support the :scope pseudo-class. + // Support: Safari 6.0 only + // Safari 6.0 supports :scope but it's an alias of :root there. + support.scope = assert( function( el ) { + docElem.appendChild( el ).appendChild( document.createElement( "div" ) ); + return typeof el.querySelectorAll !== "undefined" && + !el.querySelectorAll( ":scope fieldset div" ).length; + } ); + + /* Attributes + ---------------------------------------------------------------------- */ + + // Support: IE<8 + // Verify that getAttribute really returns attributes and not properties + // (excepting IE8 booleans) + support.attributes = assert( function( el ) { + el.className = "i"; + return !el.getAttribute( "className" ); + } ); + + /* getElement(s)By* + ---------------------------------------------------------------------- */ + + // Check if getElementsByTagName("*") returns only elements + support.getElementsByTagName = assert( function( el ) { + el.appendChild( document.createComment( "" ) ); + return !el.getElementsByTagName( "*" ).length; + } ); + + // Support: IE<9 + support.getElementsByClassName = rnative.test( document.getElementsByClassName ); + + // Support: IE<10 + // Check if getElementById returns elements by name + // The broken getElementById methods don't pick up programmatically-set names, + // so use a roundabout getElementsByName test + support.getById = assert( function( el ) { + docElem.appendChild( el ).id = expando; + return !document.getElementsByName || !document.getElementsByName( expando ).length; + } ); + + // ID filter and find + if ( support.getById ) { + Expr.filter[ "ID" ] = function( id ) { + var attrId = id.replace( runescape, funescape ); + return function( elem ) { + return elem.getAttribute( "id" ) === attrId; + }; + }; + Expr.find[ "ID" ] = function( id, context ) { + if ( typeof context.getElementById !== "undefined" && documentIsHTML ) { + var elem = context.getElementById( id ); + return elem ? [ elem ] : []; + } + }; + } else { + Expr.filter[ "ID" ] = function( id ) { + var attrId = id.replace( runescape, funescape ); + return function( elem ) { + var node = typeof elem.getAttributeNode !== "undefined" && + elem.getAttributeNode( "id" ); + return node && node.value === attrId; + }; + }; + + // Support: IE 6 - 7 only + // getElementById is not reliable as a find shortcut + Expr.find[ "ID" ] = function( id, context ) { + if ( typeof context.getElementById !== "undefined" && documentIsHTML ) { + var node, i, elems, + elem = context.getElementById( id ); + + if ( elem ) { + + // Verify the id attribute + node = elem.getAttributeNode( "id" ); + if ( node && node.value === id ) { + return [ elem ]; + } + + // Fall back on getElementsByName + elems = context.getElementsByName( id ); + i = 0; + while ( ( elem = elems[ i++ ] ) ) { + node = elem.getAttributeNode( "id" ); + if ( node && node.value === id ) { + return [ elem ]; + } + } + } + + return []; + } + }; + } + + // Tag + Expr.find[ "TAG" ] = support.getElementsByTagName ? + function( tag, context ) { + if ( typeof context.getElementsByTagName !== "undefined" ) { + return context.getElementsByTagName( tag ); + + // DocumentFragment nodes don't have gEBTN + } else if ( support.qsa ) { + return context.querySelectorAll( tag ); + } + } : + + function( tag, context ) { + var elem, + tmp = [], + i = 0, + + // By happy coincidence, a (broken) gEBTN appears on DocumentFragment nodes too + results = context.getElementsByTagName( tag ); + + // Filter out possible comments + if ( tag === "*" ) { + while ( ( elem = results[ i++ ] ) ) { + if ( elem.nodeType === 1 ) { + tmp.push( elem ); + } + } + + return tmp; + } + return results; + }; + + // Class + Expr.find[ "CLASS" ] = support.getElementsByClassName && function( className, context ) { + if ( typeof context.getElementsByClassName !== "undefined" && documentIsHTML ) { + return context.getElementsByClassName( className ); + } + }; + + /* QSA/matchesSelector + ---------------------------------------------------------------------- */ + + // QSA and matchesSelector support + + // matchesSelector(:active) reports false when true (IE9/Opera 11.5) + rbuggyMatches = []; + + // qSa(:focus) reports false when true (Chrome 21) + // We allow this because of a bug in IE8/9 that throws an error + // whenever `document.activeElement` is accessed on an iframe + // So, we allow :focus to pass through QSA all the time to avoid the IE error + // See https://bugs.jquery.com/ticket/13378 + rbuggyQSA = []; + + if ( ( support.qsa = rnative.test( document.querySelectorAll ) ) ) { + + // Build QSA regex + // Regex strategy adopted from Diego Perini + assert( function( el ) { + + var input; + + // Select is set to empty string on purpose + // This is to test IE's treatment of not explicitly + // setting a boolean content attribute, + // since its presence should be enough + // https://bugs.jquery.com/ticket/12359 + docElem.appendChild( el ).innerHTML = "" + + ""; + + // Support: IE8, Opera 11-12.16 + // Nothing should be selected when empty strings follow ^= or $= or *= + // The test attribute must be unknown in Opera but "safe" for WinRT + // https://msdn.microsoft.com/en-us/library/ie/hh465388.aspx#attribute_section + if ( el.querySelectorAll( "[msallowcapture^='']" ).length ) { + rbuggyQSA.push( "[*^$]=" + whitespace + "*(?:''|\"\")" ); + } + + // Support: IE8 + // Boolean attributes and "value" are not treated correctly + if ( !el.querySelectorAll( "[selected]" ).length ) { + rbuggyQSA.push( "\\[" + whitespace + "*(?:value|" + booleans + ")" ); + } + + // Support: Chrome<29, Android<4.4, Safari<7.0+, iOS<7.0+, PhantomJS<1.9.8+ + if ( !el.querySelectorAll( "[id~=" + expando + "-]" ).length ) { + rbuggyQSA.push( "~=" ); + } + + // Support: IE 11+, Edge 15 - 18+ + // IE 11/Edge don't find elements on a `[name='']` query in some cases. + // Adding a temporary attribute to the document before the selection works + // around the issue. + // Interestingly, IE 10 & older don't seem to have the issue. + input = document.createElement( "input" ); + input.setAttribute( "name", "" ); + el.appendChild( input ); + if ( !el.querySelectorAll( "[name='']" ).length ) { + rbuggyQSA.push( "\\[" + whitespace + "*name" + whitespace + "*=" + + whitespace + "*(?:''|\"\")" ); + } + + // Webkit/Opera - :checked should return selected option elements + // http://www.w3.org/TR/2011/REC-css3-selectors-20110929/#checked + // IE8 throws error here and will not see later tests + if ( !el.querySelectorAll( ":checked" ).length ) { + rbuggyQSA.push( ":checked" ); + } + + // Support: Safari 8+, iOS 8+ + // https://bugs.webkit.org/show_bug.cgi?id=136851 + // In-page `selector#id sibling-combinator selector` fails + if ( !el.querySelectorAll( "a#" + expando + "+*" ).length ) { + rbuggyQSA.push( ".#.+[+~]" ); + } + + // Support: Firefox <=3.6 - 5 only + // Old Firefox doesn't throw on a badly-escaped identifier. + el.querySelectorAll( "\\\f" ); + rbuggyQSA.push( "[\\r\\n\\f]" ); + } ); + + assert( function( el ) { + el.innerHTML = "" + + ""; + + // Support: Windows 8 Native Apps + // The type and name attributes are restricted during .innerHTML assignment + var input = document.createElement( "input" ); + input.setAttribute( "type", "hidden" ); + el.appendChild( input ).setAttribute( "name", "D" ); + + // Support: IE8 + // Enforce case-sensitivity of name attribute + if ( el.querySelectorAll( "[name=d]" ).length ) { + rbuggyQSA.push( "name" + whitespace + "*[*^$|!~]?=" ); + } + + // FF 3.5 - :enabled/:disabled and hidden elements (hidden elements are still enabled) + // IE8 throws error here and will not see later tests + if ( el.querySelectorAll( ":enabled" ).length !== 2 ) { + rbuggyQSA.push( ":enabled", ":disabled" ); + } + + // Support: IE9-11+ + // IE's :disabled selector does not pick up the children of disabled fieldsets + docElem.appendChild( el ).disabled = true; + if ( el.querySelectorAll( ":disabled" ).length !== 2 ) { + rbuggyQSA.push( ":enabled", ":disabled" ); + } + + // Support: Opera 10 - 11 only + // Opera 10-11 does not throw on post-comma invalid pseudos + el.querySelectorAll( "*,:x" ); + rbuggyQSA.push( ",.*:" ); + } ); + } + + if ( ( support.matchesSelector = rnative.test( ( matches = docElem.matches || + docElem.webkitMatchesSelector || + docElem.mozMatchesSelector || + docElem.oMatchesSelector || + docElem.msMatchesSelector ) ) ) ) { + + assert( function( el ) { + + // Check to see if it's possible to do matchesSelector + // on a disconnected node (IE 9) + support.disconnectedMatch = matches.call( el, "*" ); + + // This should fail with an exception + // Gecko does not error, returns false instead + matches.call( el, "[s!='']:x" ); + rbuggyMatches.push( "!=", pseudos ); + } ); + } + + rbuggyQSA = rbuggyQSA.length && new RegExp( rbuggyQSA.join( "|" ) ); + rbuggyMatches = rbuggyMatches.length && new RegExp( rbuggyMatches.join( "|" ) ); + + /* Contains + ---------------------------------------------------------------------- */ + hasCompare = rnative.test( docElem.compareDocumentPosition ); + + // Element contains another + // Purposefully self-exclusive + // As in, an element does not contain itself + contains = hasCompare || rnative.test( docElem.contains ) ? + function( a, b ) { + var adown = a.nodeType === 9 ? a.documentElement : a, + bup = b && b.parentNode; + return a === bup || !!( bup && bup.nodeType === 1 && ( + adown.contains ? + adown.contains( bup ) : + a.compareDocumentPosition && a.compareDocumentPosition( bup ) & 16 + ) ); + } : + function( a, b ) { + if ( b ) { + while ( ( b = b.parentNode ) ) { + if ( b === a ) { + return true; + } + } + } + return false; + }; + + /* Sorting + ---------------------------------------------------------------------- */ + + // Document order sorting + sortOrder = hasCompare ? + function( a, b ) { + + // Flag for duplicate removal + if ( a === b ) { + hasDuplicate = true; + return 0; + } + + // Sort on method existence if only one input has compareDocumentPosition + var compare = !a.compareDocumentPosition - !b.compareDocumentPosition; + if ( compare ) { + return compare; + } + + // Calculate position if both inputs belong to the same document + // Support: IE 11+, Edge 17 - 18+ + // IE/Edge sometimes throw a "Permission denied" error when strict-comparing + // two documents; shallow comparisons work. + // eslint-disable-next-line eqeqeq + compare = ( a.ownerDocument || a ) == ( b.ownerDocument || b ) ? + a.compareDocumentPosition( b ) : + + // Otherwise we know they are disconnected + 1; + + // Disconnected nodes + if ( compare & 1 || + ( !support.sortDetached && b.compareDocumentPosition( a ) === compare ) ) { + + // Choose the first element that is related to our preferred document + // Support: IE 11+, Edge 17 - 18+ + // IE/Edge sometimes throw a "Permission denied" error when strict-comparing + // two documents; shallow comparisons work. + // eslint-disable-next-line eqeqeq + if ( a == document || a.ownerDocument == preferredDoc && + contains( preferredDoc, a ) ) { + return -1; + } + + // Support: IE 11+, Edge 17 - 18+ + // IE/Edge sometimes throw a "Permission denied" error when strict-comparing + // two documents; shallow comparisons work. + // eslint-disable-next-line eqeqeq + if ( b == document || b.ownerDocument == preferredDoc && + contains( preferredDoc, b ) ) { + return 1; + } + + // Maintain original order + return sortInput ? + ( indexOf( sortInput, a ) - indexOf( sortInput, b ) ) : + 0; + } + + return compare & 4 ? -1 : 1; + } : + function( a, b ) { + + // Exit early if the nodes are identical + if ( a === b ) { + hasDuplicate = true; + return 0; + } + + var cur, + i = 0, + aup = a.parentNode, + bup = b.parentNode, + ap = [ a ], + bp = [ b ]; + + // Parentless nodes are either documents or disconnected + if ( !aup || !bup ) { + + // Support: IE 11+, Edge 17 - 18+ + // IE/Edge sometimes throw a "Permission denied" error when strict-comparing + // two documents; shallow comparisons work. + /* eslint-disable eqeqeq */ + return a == document ? -1 : + b == document ? 1 : + /* eslint-enable eqeqeq */ + aup ? -1 : + bup ? 1 : + sortInput ? + ( indexOf( sortInput, a ) - indexOf( sortInput, b ) ) : + 0; + + // If the nodes are siblings, we can do a quick check + } else if ( aup === bup ) { + return siblingCheck( a, b ); + } + + // Otherwise we need full lists of their ancestors for comparison + cur = a; + while ( ( cur = cur.parentNode ) ) { + ap.unshift( cur ); + } + cur = b; + while ( ( cur = cur.parentNode ) ) { + bp.unshift( cur ); + } + + // Walk down the tree looking for a discrepancy + while ( ap[ i ] === bp[ i ] ) { + i++; + } + + return i ? + + // Do a sibling check if the nodes have a common ancestor + siblingCheck( ap[ i ], bp[ i ] ) : + + // Otherwise nodes in our document sort first + // Support: IE 11+, Edge 17 - 18+ + // IE/Edge sometimes throw a "Permission denied" error when strict-comparing + // two documents; shallow comparisons work. + /* eslint-disable eqeqeq */ + ap[ i ] == preferredDoc ? -1 : + bp[ i ] == preferredDoc ? 1 : + /* eslint-enable eqeqeq */ + 0; + }; + + return document; +}; + +Sizzle.matches = function( expr, elements ) { + return Sizzle( expr, null, null, elements ); +}; + +Sizzle.matchesSelector = function( elem, expr ) { + setDocument( elem ); + + if ( support.matchesSelector && documentIsHTML && + !nonnativeSelectorCache[ expr + " " ] && + ( !rbuggyMatches || !rbuggyMatches.test( expr ) ) && + ( !rbuggyQSA || !rbuggyQSA.test( expr ) ) ) { + + try { + var ret = matches.call( elem, expr ); + + // IE 9's matchesSelector returns false on disconnected nodes + if ( ret || support.disconnectedMatch || + + // As well, disconnected nodes are said to be in a document + // fragment in IE 9 + elem.document && elem.document.nodeType !== 11 ) { + return ret; + } + } catch ( e ) { + nonnativeSelectorCache( expr, true ); + } + } + + return Sizzle( expr, document, null, [ elem ] ).length > 0; +}; + +Sizzle.contains = function( context, elem ) { + + // Set document vars if needed + // Support: IE 11+, Edge 17 - 18+ + // IE/Edge sometimes throw a "Permission denied" error when strict-comparing + // two documents; shallow comparisons work. + // eslint-disable-next-line eqeqeq + if ( ( context.ownerDocument || context ) != document ) { + setDocument( context ); + } + return contains( context, elem ); +}; + +Sizzle.attr = function( elem, name ) { + + // Set document vars if needed + // Support: IE 11+, Edge 17 - 18+ + // IE/Edge sometimes throw a "Permission denied" error when strict-comparing + // two documents; shallow comparisons work. + // eslint-disable-next-line eqeqeq + if ( ( elem.ownerDocument || elem ) != document ) { + setDocument( elem ); + } + + var fn = Expr.attrHandle[ name.toLowerCase() ], + + // Don't get fooled by Object.prototype properties (jQuery #13807) + val = fn && hasOwn.call( Expr.attrHandle, name.toLowerCase() ) ? + fn( elem, name, !documentIsHTML ) : + undefined; + + return val !== undefined ? + val : + support.attributes || !documentIsHTML ? + elem.getAttribute( name ) : + ( val = elem.getAttributeNode( name ) ) && val.specified ? + val.value : + null; +}; + +Sizzle.escape = function( sel ) { + return ( sel + "" ).replace( rcssescape, fcssescape ); +}; + +Sizzle.error = function( msg ) { + throw new Error( "Syntax error, unrecognized expression: " + msg ); +}; + +/** + * Document sorting and removing duplicates + * @param {ArrayLike} results + */ +Sizzle.uniqueSort = function( results ) { + var elem, + duplicates = [], + j = 0, + i = 0; + + // Unless we *know* we can detect duplicates, assume their presence + hasDuplicate = !support.detectDuplicates; + sortInput = !support.sortStable && results.slice( 0 ); + results.sort( sortOrder ); + + if ( hasDuplicate ) { + while ( ( elem = results[ i++ ] ) ) { + if ( elem === results[ i ] ) { + j = duplicates.push( i ); + } + } + while ( j-- ) { + results.splice( duplicates[ j ], 1 ); + } + } + + // Clear input after sorting to release objects + // See https://github.com/jquery/sizzle/pull/225 + sortInput = null; + + return results; +}; + +/** + * Utility function for retrieving the text value of an array of DOM nodes + * @param {Array|Element} elem + */ +getText = Sizzle.getText = function( elem ) { + var node, + ret = "", + i = 0, + nodeType = elem.nodeType; + + if ( !nodeType ) { + + // If no nodeType, this is expected to be an array + while ( ( node = elem[ i++ ] ) ) { + + // Do not traverse comment nodes + ret += getText( node ); + } + } else if ( nodeType === 1 || nodeType === 9 || nodeType === 11 ) { + + // Use textContent for elements + // innerText usage removed for consistency of new lines (jQuery #11153) + if ( typeof elem.textContent === "string" ) { + return elem.textContent; + } else { + + // Traverse its children + for ( elem = elem.firstChild; elem; elem = elem.nextSibling ) { + ret += getText( elem ); + } + } + } else if ( nodeType === 3 || nodeType === 4 ) { + return elem.nodeValue; + } + + // Do not include comment or processing instruction nodes + + return ret; +}; + +Expr = Sizzle.selectors = { + + // Can be adjusted by the user + cacheLength: 50, + + createPseudo: markFunction, + + match: matchExpr, + + attrHandle: {}, + + find: {}, + + relative: { + ">": { dir: "parentNode", first: true }, + " ": { dir: "parentNode" }, + "+": { dir: "previousSibling", first: true }, + "~": { dir: "previousSibling" } + }, + + preFilter: { + "ATTR": function( match ) { + match[ 1 ] = match[ 1 ].replace( runescape, funescape ); + + // Move the given value to match[3] whether quoted or unquoted + match[ 3 ] = ( match[ 3 ] || match[ 4 ] || + match[ 5 ] || "" ).replace( runescape, funescape ); + + if ( match[ 2 ] === "~=" ) { + match[ 3 ] = " " + match[ 3 ] + " "; + } + + return match.slice( 0, 4 ); + }, + + "CHILD": function( match ) { + + /* matches from matchExpr["CHILD"] + 1 type (only|nth|...) + 2 what (child|of-type) + 3 argument (even|odd|\d*|\d*n([+-]\d+)?|...) + 4 xn-component of xn+y argument ([+-]?\d*n|) + 5 sign of xn-component + 6 x of xn-component + 7 sign of y-component + 8 y of y-component + */ + match[ 1 ] = match[ 1 ].toLowerCase(); + + if ( match[ 1 ].slice( 0, 3 ) === "nth" ) { + + // nth-* requires argument + if ( !match[ 3 ] ) { + Sizzle.error( match[ 0 ] ); + } + + // numeric x and y parameters for Expr.filter.CHILD + // remember that false/true cast respectively to 0/1 + match[ 4 ] = +( match[ 4 ] ? + match[ 5 ] + ( match[ 6 ] || 1 ) : + 2 * ( match[ 3 ] === "even" || match[ 3 ] === "odd" ) ); + match[ 5 ] = +( ( match[ 7 ] + match[ 8 ] ) || match[ 3 ] === "odd" ); + + // other types prohibit arguments + } else if ( match[ 3 ] ) { + Sizzle.error( match[ 0 ] ); + } + + return match; + }, + + "PSEUDO": function( match ) { + var excess, + unquoted = !match[ 6 ] && match[ 2 ]; + + if ( matchExpr[ "CHILD" ].test( match[ 0 ] ) ) { + return null; + } + + // Accept quoted arguments as-is + if ( match[ 3 ] ) { + match[ 2 ] = match[ 4 ] || match[ 5 ] || ""; + + // Strip excess characters from unquoted arguments + } else if ( unquoted && rpseudo.test( unquoted ) && + + // Get excess from tokenize (recursively) + ( excess = tokenize( unquoted, true ) ) && + + // advance to the next closing parenthesis + ( excess = unquoted.indexOf( ")", unquoted.length - excess ) - unquoted.length ) ) { + + // excess is a negative index + match[ 0 ] = match[ 0 ].slice( 0, excess ); + match[ 2 ] = unquoted.slice( 0, excess ); + } + + // Return only captures needed by the pseudo filter method (type and argument) + return match.slice( 0, 3 ); + } + }, + + filter: { + + "TAG": function( nodeNameSelector ) { + var nodeName = nodeNameSelector.replace( runescape, funescape ).toLowerCase(); + return nodeNameSelector === "*" ? + function() { + return true; + } : + function( elem ) { + return elem.nodeName && elem.nodeName.toLowerCase() === nodeName; + }; + }, + + "CLASS": function( className ) { + var pattern = classCache[ className + " " ]; + + return pattern || + ( pattern = new RegExp( "(^|" + whitespace + + ")" + className + "(" + whitespace + "|$)" ) ) && classCache( + className, function( elem ) { + return pattern.test( + typeof elem.className === "string" && elem.className || + typeof elem.getAttribute !== "undefined" && + elem.getAttribute( "class" ) || + "" + ); + } ); + }, + + "ATTR": function( name, operator, check ) { + return function( elem ) { + var result = Sizzle.attr( elem, name ); + + if ( result == null ) { + return operator === "!="; + } + if ( !operator ) { + return true; + } + + result += ""; + + /* eslint-disable max-len */ + + return operator === "=" ? result === check : + operator === "!=" ? result !== check : + operator === "^=" ? check && result.indexOf( check ) === 0 : + operator === "*=" ? check && result.indexOf( check ) > -1 : + operator === "$=" ? check && result.slice( -check.length ) === check : + operator === "~=" ? ( " " + result.replace( rwhitespace, " " ) + " " ).indexOf( check ) > -1 : + operator === "|=" ? result === check || result.slice( 0, check.length + 1 ) === check + "-" : + false; + /* eslint-enable max-len */ + + }; + }, + + "CHILD": function( type, what, _argument, first, last ) { + var simple = type.slice( 0, 3 ) !== "nth", + forward = type.slice( -4 ) !== "last", + ofType = what === "of-type"; + + return first === 1 && last === 0 ? + + // Shortcut for :nth-*(n) + function( elem ) { + return !!elem.parentNode; + } : + + function( elem, _context, xml ) { + var cache, uniqueCache, outerCache, node, nodeIndex, start, + dir = simple !== forward ? "nextSibling" : "previousSibling", + parent = elem.parentNode, + name = ofType && elem.nodeName.toLowerCase(), + useCache = !xml && !ofType, + diff = false; + + if ( parent ) { + + // :(first|last|only)-(child|of-type) + if ( simple ) { + while ( dir ) { + node = elem; + while ( ( node = node[ dir ] ) ) { + if ( ofType ? + node.nodeName.toLowerCase() === name : + node.nodeType === 1 ) { + + return false; + } + } + + // Reverse direction for :only-* (if we haven't yet done so) + start = dir = type === "only" && !start && "nextSibling"; + } + return true; + } + + start = [ forward ? parent.firstChild : parent.lastChild ]; + + // non-xml :nth-child(...) stores cache data on `parent` + if ( forward && useCache ) { + + // Seek `elem` from a previously-cached index + + // ...in a gzip-friendly way + node = parent; + outerCache = node[ expando ] || ( node[ expando ] = {} ); + + // Support: IE <9 only + // Defend against cloned attroperties (jQuery gh-1709) + uniqueCache = outerCache[ node.uniqueID ] || + ( outerCache[ node.uniqueID ] = {} ); + + cache = uniqueCache[ type ] || []; + nodeIndex = cache[ 0 ] === dirruns && cache[ 1 ]; + diff = nodeIndex && cache[ 2 ]; + node = nodeIndex && parent.childNodes[ nodeIndex ]; + + while ( ( node = ++nodeIndex && node && node[ dir ] || + + // Fallback to seeking `elem` from the start + ( diff = nodeIndex = 0 ) || start.pop() ) ) { + + // When found, cache indexes on `parent` and break + if ( node.nodeType === 1 && ++diff && node === elem ) { + uniqueCache[ type ] = [ dirruns, nodeIndex, diff ]; + break; + } + } + + } else { + + // Use previously-cached element index if available + if ( useCache ) { + + // ...in a gzip-friendly way + node = elem; + outerCache = node[ expando ] || ( node[ expando ] = {} ); + + // Support: IE <9 only + // Defend against cloned attroperties (jQuery gh-1709) + uniqueCache = outerCache[ node.uniqueID ] || + ( outerCache[ node.uniqueID ] = {} ); + + cache = uniqueCache[ type ] || []; + nodeIndex = cache[ 0 ] === dirruns && cache[ 1 ]; + diff = nodeIndex; + } + + // xml :nth-child(...) + // or :nth-last-child(...) or :nth(-last)?-of-type(...) + if ( diff === false ) { + + // Use the same loop as above to seek `elem` from the start + while ( ( node = ++nodeIndex && node && node[ dir ] || + ( diff = nodeIndex = 0 ) || start.pop() ) ) { + + if ( ( ofType ? + node.nodeName.toLowerCase() === name : + node.nodeType === 1 ) && + ++diff ) { + + // Cache the index of each encountered element + if ( useCache ) { + outerCache = node[ expando ] || + ( node[ expando ] = {} ); + + // Support: IE <9 only + // Defend against cloned attroperties (jQuery gh-1709) + uniqueCache = outerCache[ node.uniqueID ] || + ( outerCache[ node.uniqueID ] = {} ); + + uniqueCache[ type ] = [ dirruns, diff ]; + } + + if ( node === elem ) { + break; + } + } + } + } + } + + // Incorporate the offset, then check against cycle size + diff -= last; + return diff === first || ( diff % first === 0 && diff / first >= 0 ); + } + }; + }, + + "PSEUDO": function( pseudo, argument ) { + + // pseudo-class names are case-insensitive + // http://www.w3.org/TR/selectors/#pseudo-classes + // Prioritize by case sensitivity in case custom pseudos are added with uppercase letters + // Remember that setFilters inherits from pseudos + var args, + fn = Expr.pseudos[ pseudo ] || Expr.setFilters[ pseudo.toLowerCase() ] || + Sizzle.error( "unsupported pseudo: " + pseudo ); + + // The user may use createPseudo to indicate that + // arguments are needed to create the filter function + // just as Sizzle does + if ( fn[ expando ] ) { + return fn( argument ); + } + + // But maintain support for old signatures + if ( fn.length > 1 ) { + args = [ pseudo, pseudo, "", argument ]; + return Expr.setFilters.hasOwnProperty( pseudo.toLowerCase() ) ? + markFunction( function( seed, matches ) { + var idx, + matched = fn( seed, argument ), + i = matched.length; + while ( i-- ) { + idx = indexOf( seed, matched[ i ] ); + seed[ idx ] = !( matches[ idx ] = matched[ i ] ); + } + } ) : + function( elem ) { + return fn( elem, 0, args ); + }; + } + + return fn; + } + }, + + pseudos: { + + // Potentially complex pseudos + "not": markFunction( function( selector ) { + + // Trim the selector passed to compile + // to avoid treating leading and trailing + // spaces as combinators + var input = [], + results = [], + matcher = compile( selector.replace( rtrim, "$1" ) ); + + return matcher[ expando ] ? + markFunction( function( seed, matches, _context, xml ) { + var elem, + unmatched = matcher( seed, null, xml, [] ), + i = seed.length; + + // Match elements unmatched by `matcher` + while ( i-- ) { + if ( ( elem = unmatched[ i ] ) ) { + seed[ i ] = !( matches[ i ] = elem ); + } + } + } ) : + function( elem, _context, xml ) { + input[ 0 ] = elem; + matcher( input, null, xml, results ); + + // Don't keep the element (issue #299) + input[ 0 ] = null; + return !results.pop(); + }; + } ), + + "has": markFunction( function( selector ) { + return function( elem ) { + return Sizzle( selector, elem ).length > 0; + }; + } ), + + "contains": markFunction( function( text ) { + text = text.replace( runescape, funescape ); + return function( elem ) { + return ( elem.textContent || getText( elem ) ).indexOf( text ) > -1; + }; + } ), + + // "Whether an element is represented by a :lang() selector + // is based solely on the element's language value + // being equal to the identifier C, + // or beginning with the identifier C immediately followed by "-". + // The matching of C against the element's language value is performed case-insensitively. + // The identifier C does not have to be a valid language name." + // http://www.w3.org/TR/selectors/#lang-pseudo + "lang": markFunction( function( lang ) { + + // lang value must be a valid identifier + if ( !ridentifier.test( lang || "" ) ) { + Sizzle.error( "unsupported lang: " + lang ); + } + lang = lang.replace( runescape, funescape ).toLowerCase(); + return function( elem ) { + var elemLang; + do { + if ( ( elemLang = documentIsHTML ? + elem.lang : + elem.getAttribute( "xml:lang" ) || elem.getAttribute( "lang" ) ) ) { + + elemLang = elemLang.toLowerCase(); + return elemLang === lang || elemLang.indexOf( lang + "-" ) === 0; + } + } while ( ( elem = elem.parentNode ) && elem.nodeType === 1 ); + return false; + }; + } ), + + // Miscellaneous + "target": function( elem ) { + var hash = window.location && window.location.hash; + return hash && hash.slice( 1 ) === elem.id; + }, + + "root": function( elem ) { + return elem === docElem; + }, + + "focus": function( elem ) { + return elem === document.activeElement && + ( !document.hasFocus || document.hasFocus() ) && + !!( elem.type || elem.href || ~elem.tabIndex ); + }, + + // Boolean properties + "enabled": createDisabledPseudo( false ), + "disabled": createDisabledPseudo( true ), + + "checked": function( elem ) { + + // In CSS3, :checked should return both checked and selected elements + // http://www.w3.org/TR/2011/REC-css3-selectors-20110929/#checked + var nodeName = elem.nodeName.toLowerCase(); + return ( nodeName === "input" && !!elem.checked ) || + ( nodeName === "option" && !!elem.selected ); + }, + + "selected": function( elem ) { + + // Accessing this property makes selected-by-default + // options in Safari work properly + if ( elem.parentNode ) { + // eslint-disable-next-line no-unused-expressions + elem.parentNode.selectedIndex; + } + + return elem.selected === true; + }, + + // Contents + "empty": function( elem ) { + + // http://www.w3.org/TR/selectors/#empty-pseudo + // :empty is negated by element (1) or content nodes (text: 3; cdata: 4; entity ref: 5), + // but not by others (comment: 8; processing instruction: 7; etc.) + // nodeType < 6 works because attributes (2) do not appear as children + for ( elem = elem.firstChild; elem; elem = elem.nextSibling ) { + if ( elem.nodeType < 6 ) { + return false; + } + } + return true; + }, + + "parent": function( elem ) { + return !Expr.pseudos[ "empty" ]( elem ); + }, + + // Element/input types + "header": function( elem ) { + return rheader.test( elem.nodeName ); + }, + + "input": function( elem ) { + return rinputs.test( elem.nodeName ); + }, + + "button": function( elem ) { + var name = elem.nodeName.toLowerCase(); + return name === "input" && elem.type === "button" || name === "button"; + }, + + "text": function( elem ) { + var attr; + return elem.nodeName.toLowerCase() === "input" && + elem.type === "text" && + + // Support: IE<8 + // New HTML5 attribute values (e.g., "search") appear with elem.type === "text" + ( ( attr = elem.getAttribute( "type" ) ) == null || + attr.toLowerCase() === "text" ); + }, + + // Position-in-collection + "first": createPositionalPseudo( function() { + return [ 0 ]; + } ), + + "last": createPositionalPseudo( function( _matchIndexes, length ) { + return [ length - 1 ]; + } ), + + "eq": createPositionalPseudo( function( _matchIndexes, length, argument ) { + return [ argument < 0 ? argument + length : argument ]; + } ), + + "even": createPositionalPseudo( function( matchIndexes, length ) { + var i = 0; + for ( ; i < length; i += 2 ) { + matchIndexes.push( i ); + } + return matchIndexes; + } ), + + "odd": createPositionalPseudo( function( matchIndexes, length ) { + var i = 1; + for ( ; i < length; i += 2 ) { + matchIndexes.push( i ); + } + return matchIndexes; + } ), + + "lt": createPositionalPseudo( function( matchIndexes, length, argument ) { + var i = argument < 0 ? + argument + length : + argument > length ? + length : + argument; + for ( ; --i >= 0; ) { + matchIndexes.push( i ); + } + return matchIndexes; + } ), + + "gt": createPositionalPseudo( function( matchIndexes, length, argument ) { + var i = argument < 0 ? argument + length : argument; + for ( ; ++i < length; ) { + matchIndexes.push( i ); + } + return matchIndexes; + } ) + } +}; + +Expr.pseudos[ "nth" ] = Expr.pseudos[ "eq" ]; + +// Add button/input type pseudos +for ( i in { radio: true, checkbox: true, file: true, password: true, image: true } ) { + Expr.pseudos[ i ] = createInputPseudo( i ); +} +for ( i in { submit: true, reset: true } ) { + Expr.pseudos[ i ] = createButtonPseudo( i ); +} + +// Easy API for creating new setFilters +function setFilters() {} +setFilters.prototype = Expr.filters = Expr.pseudos; +Expr.setFilters = new setFilters(); + +tokenize = Sizzle.tokenize = function( selector, parseOnly ) { + var matched, match, tokens, type, + soFar, groups, preFilters, + cached = tokenCache[ selector + " " ]; + + if ( cached ) { + return parseOnly ? 0 : cached.slice( 0 ); + } + + soFar = selector; + groups = []; + preFilters = Expr.preFilter; + + while ( soFar ) { + + // Comma and first run + if ( !matched || ( match = rcomma.exec( soFar ) ) ) { + if ( match ) { + + // Don't consume trailing commas as valid + soFar = soFar.slice( match[ 0 ].length ) || soFar; + } + groups.push( ( tokens = [] ) ); + } + + matched = false; + + // Combinators + if ( ( match = rcombinators.exec( soFar ) ) ) { + matched = match.shift(); + tokens.push( { + value: matched, + + // Cast descendant combinators to space + type: match[ 0 ].replace( rtrim, " " ) + } ); + soFar = soFar.slice( matched.length ); + } + + // Filters + for ( type in Expr.filter ) { + if ( ( match = matchExpr[ type ].exec( soFar ) ) && ( !preFilters[ type ] || + ( match = preFilters[ type ]( match ) ) ) ) { + matched = match.shift(); + tokens.push( { + value: matched, + type: type, + matches: match + } ); + soFar = soFar.slice( matched.length ); + } + } + + if ( !matched ) { + break; + } + } + + // Return the length of the invalid excess + // if we're just parsing + // Otherwise, throw an error or return tokens + return parseOnly ? + soFar.length : + soFar ? + Sizzle.error( selector ) : + + // Cache the tokens + tokenCache( selector, groups ).slice( 0 ); +}; + +function toSelector( tokens ) { + var i = 0, + len = tokens.length, + selector = ""; + for ( ; i < len; i++ ) { + selector += tokens[ i ].value; + } + return selector; +} + +function addCombinator( matcher, combinator, base ) { + var dir = combinator.dir, + skip = combinator.next, + key = skip || dir, + checkNonElements = base && key === "parentNode", + doneName = done++; + + return combinator.first ? + + // Check against closest ancestor/preceding element + function( elem, context, xml ) { + while ( ( elem = elem[ dir ] ) ) { + if ( elem.nodeType === 1 || checkNonElements ) { + return matcher( elem, context, xml ); + } + } + return false; + } : + + // Check against all ancestor/preceding elements + function( elem, context, xml ) { + var oldCache, uniqueCache, outerCache, + newCache = [ dirruns, doneName ]; + + // We can't set arbitrary data on XML nodes, so they don't benefit from combinator caching + if ( xml ) { + while ( ( elem = elem[ dir ] ) ) { + if ( elem.nodeType === 1 || checkNonElements ) { + if ( matcher( elem, context, xml ) ) { + return true; + } + } + } + } else { + while ( ( elem = elem[ dir ] ) ) { + if ( elem.nodeType === 1 || checkNonElements ) { + outerCache = elem[ expando ] || ( elem[ expando ] = {} ); + + // Support: IE <9 only + // Defend against cloned attroperties (jQuery gh-1709) + uniqueCache = outerCache[ elem.uniqueID ] || + ( outerCache[ elem.uniqueID ] = {} ); + + if ( skip && skip === elem.nodeName.toLowerCase() ) { + elem = elem[ dir ] || elem; + } else if ( ( oldCache = uniqueCache[ key ] ) && + oldCache[ 0 ] === dirruns && oldCache[ 1 ] === doneName ) { + + // Assign to newCache so results back-propagate to previous elements + return ( newCache[ 2 ] = oldCache[ 2 ] ); + } else { + + // Reuse newcache so results back-propagate to previous elements + uniqueCache[ key ] = newCache; + + // A match means we're done; a fail means we have to keep checking + if ( ( newCache[ 2 ] = matcher( elem, context, xml ) ) ) { + return true; + } + } + } + } + } + return false; + }; +} + +function elementMatcher( matchers ) { + return matchers.length > 1 ? + function( elem, context, xml ) { + var i = matchers.length; + while ( i-- ) { + if ( !matchers[ i ]( elem, context, xml ) ) { + return false; + } + } + return true; + } : + matchers[ 0 ]; +} + +function multipleContexts( selector, contexts, results ) { + var i = 0, + len = contexts.length; + for ( ; i < len; i++ ) { + Sizzle( selector, contexts[ i ], results ); + } + return results; +} + +function condense( unmatched, map, filter, context, xml ) { + var elem, + newUnmatched = [], + i = 0, + len = unmatched.length, + mapped = map != null; + + for ( ; i < len; i++ ) { + if ( ( elem = unmatched[ i ] ) ) { + if ( !filter || filter( elem, context, xml ) ) { + newUnmatched.push( elem ); + if ( mapped ) { + map.push( i ); + } + } + } + } + + return newUnmatched; +} + +function setMatcher( preFilter, selector, matcher, postFilter, postFinder, postSelector ) { + if ( postFilter && !postFilter[ expando ] ) { + postFilter = setMatcher( postFilter ); + } + if ( postFinder && !postFinder[ expando ] ) { + postFinder = setMatcher( postFinder, postSelector ); + } + return markFunction( function( seed, results, context, xml ) { + var temp, i, elem, + preMap = [], + postMap = [], + preexisting = results.length, + + // Get initial elements from seed or context + elems = seed || multipleContexts( + selector || "*", + context.nodeType ? [ context ] : context, + [] + ), + + // Prefilter to get matcher input, preserving a map for seed-results synchronization + matcherIn = preFilter && ( seed || !selector ) ? + condense( elems, preMap, preFilter, context, xml ) : + elems, + + matcherOut = matcher ? + + // If we have a postFinder, or filtered seed, or non-seed postFilter or preexisting results, + postFinder || ( seed ? preFilter : preexisting || postFilter ) ? + + // ...intermediate processing is necessary + [] : + + // ...otherwise use results directly + results : + matcherIn; + + // Find primary matches + if ( matcher ) { + matcher( matcherIn, matcherOut, context, xml ); + } + + // Apply postFilter + if ( postFilter ) { + temp = condense( matcherOut, postMap ); + postFilter( temp, [], context, xml ); + + // Un-match failing elements by moving them back to matcherIn + i = temp.length; + while ( i-- ) { + if ( ( elem = temp[ i ] ) ) { + matcherOut[ postMap[ i ] ] = !( matcherIn[ postMap[ i ] ] = elem ); + } + } + } + + if ( seed ) { + if ( postFinder || preFilter ) { + if ( postFinder ) { + + // Get the final matcherOut by condensing this intermediate into postFinder contexts + temp = []; + i = matcherOut.length; + while ( i-- ) { + if ( ( elem = matcherOut[ i ] ) ) { + + // Restore matcherIn since elem is not yet a final match + temp.push( ( matcherIn[ i ] = elem ) ); + } + } + postFinder( null, ( matcherOut = [] ), temp, xml ); + } + + // Move matched elements from seed to results to keep them synchronized + i = matcherOut.length; + while ( i-- ) { + if ( ( elem = matcherOut[ i ] ) && + ( temp = postFinder ? indexOf( seed, elem ) : preMap[ i ] ) > -1 ) { + + seed[ temp ] = !( results[ temp ] = elem ); + } + } + } + + // Add elements to results, through postFinder if defined + } else { + matcherOut = condense( + matcherOut === results ? + matcherOut.splice( preexisting, matcherOut.length ) : + matcherOut + ); + if ( postFinder ) { + postFinder( null, results, matcherOut, xml ); + } else { + push.apply( results, matcherOut ); + } + } + } ); +} + +function matcherFromTokens( tokens ) { + var checkContext, matcher, j, + len = tokens.length, + leadingRelative = Expr.relative[ tokens[ 0 ].type ], + implicitRelative = leadingRelative || Expr.relative[ " " ], + i = leadingRelative ? 1 : 0, + + // The foundational matcher ensures that elements are reachable from top-level context(s) + matchContext = addCombinator( function( elem ) { + return elem === checkContext; + }, implicitRelative, true ), + matchAnyContext = addCombinator( function( elem ) { + return indexOf( checkContext, elem ) > -1; + }, implicitRelative, true ), + matchers = [ function( elem, context, xml ) { + var ret = ( !leadingRelative && ( xml || context !== outermostContext ) ) || ( + ( checkContext = context ).nodeType ? + matchContext( elem, context, xml ) : + matchAnyContext( elem, context, xml ) ); + + // Avoid hanging onto element (issue #299) + checkContext = null; + return ret; + } ]; + + for ( ; i < len; i++ ) { + if ( ( matcher = Expr.relative[ tokens[ i ].type ] ) ) { + matchers = [ addCombinator( elementMatcher( matchers ), matcher ) ]; + } else { + matcher = Expr.filter[ tokens[ i ].type ].apply( null, tokens[ i ].matches ); + + // Return special upon seeing a positional matcher + if ( matcher[ expando ] ) { + + // Find the next relative operator (if any) for proper handling + j = ++i; + for ( ; j < len; j++ ) { + if ( Expr.relative[ tokens[ j ].type ] ) { + break; + } + } + return setMatcher( + i > 1 && elementMatcher( matchers ), + i > 1 && toSelector( + + // If the preceding token was a descendant combinator, insert an implicit any-element `*` + tokens + .slice( 0, i - 1 ) + .concat( { value: tokens[ i - 2 ].type === " " ? "*" : "" } ) + ).replace( rtrim, "$1" ), + matcher, + i < j && matcherFromTokens( tokens.slice( i, j ) ), + j < len && matcherFromTokens( ( tokens = tokens.slice( j ) ) ), + j < len && toSelector( tokens ) + ); + } + matchers.push( matcher ); + } + } + + return elementMatcher( matchers ); +} + +function matcherFromGroupMatchers( elementMatchers, setMatchers ) { + var bySet = setMatchers.length > 0, + byElement = elementMatchers.length > 0, + superMatcher = function( seed, context, xml, results, outermost ) { + var elem, j, matcher, + matchedCount = 0, + i = "0", + unmatched = seed && [], + setMatched = [], + contextBackup = outermostContext, + + // We must always have either seed elements or outermost context + elems = seed || byElement && Expr.find[ "TAG" ]( "*", outermost ), + + // Use integer dirruns iff this is the outermost matcher + dirrunsUnique = ( dirruns += contextBackup == null ? 1 : Math.random() || 0.1 ), + len = elems.length; + + if ( outermost ) { + + // Support: IE 11+, Edge 17 - 18+ + // IE/Edge sometimes throw a "Permission denied" error when strict-comparing + // two documents; shallow comparisons work. + // eslint-disable-next-line eqeqeq + outermostContext = context == document || context || outermost; + } + + // Add elements passing elementMatchers directly to results + // Support: IE<9, Safari + // Tolerate NodeList properties (IE: "length"; Safari: ) matching elements by id + for ( ; i !== len && ( elem = elems[ i ] ) != null; i++ ) { + if ( byElement && elem ) { + j = 0; + + // Support: IE 11+, Edge 17 - 18+ + // IE/Edge sometimes throw a "Permission denied" error when strict-comparing + // two documents; shallow comparisons work. + // eslint-disable-next-line eqeqeq + if ( !context && elem.ownerDocument != document ) { + setDocument( elem ); + xml = !documentIsHTML; + } + while ( ( matcher = elementMatchers[ j++ ] ) ) { + if ( matcher( elem, context || document, xml ) ) { + results.push( elem ); + break; + } + } + if ( outermost ) { + dirruns = dirrunsUnique; + } + } + + // Track unmatched elements for set filters + if ( bySet ) { + + // They will have gone through all possible matchers + if ( ( elem = !matcher && elem ) ) { + matchedCount--; + } + + // Lengthen the array for every element, matched or not + if ( seed ) { + unmatched.push( elem ); + } + } + } + + // `i` is now the count of elements visited above, and adding it to `matchedCount` + // makes the latter nonnegative. + matchedCount += i; + + // Apply set filters to unmatched elements + // NOTE: This can be skipped if there are no unmatched elements (i.e., `matchedCount` + // equals `i`), unless we didn't visit _any_ elements in the above loop because we have + // no element matchers and no seed. + // Incrementing an initially-string "0" `i` allows `i` to remain a string only in that + // case, which will result in a "00" `matchedCount` that differs from `i` but is also + // numerically zero. + if ( bySet && i !== matchedCount ) { + j = 0; + while ( ( matcher = setMatchers[ j++ ] ) ) { + matcher( unmatched, setMatched, context, xml ); + } + + if ( seed ) { + + // Reintegrate element matches to eliminate the need for sorting + if ( matchedCount > 0 ) { + while ( i-- ) { + if ( !( unmatched[ i ] || setMatched[ i ] ) ) { + setMatched[ i ] = pop.call( results ); + } + } + } + + // Discard index placeholder values to get only actual matches + setMatched = condense( setMatched ); + } + + // Add matches to results + push.apply( results, setMatched ); + + // Seedless set matches succeeding multiple successful matchers stipulate sorting + if ( outermost && !seed && setMatched.length > 0 && + ( matchedCount + setMatchers.length ) > 1 ) { + + Sizzle.uniqueSort( results ); + } + } + + // Override manipulation of globals by nested matchers + if ( outermost ) { + dirruns = dirrunsUnique; + outermostContext = contextBackup; + } + + return unmatched; + }; + + return bySet ? + markFunction( superMatcher ) : + superMatcher; +} + +compile = Sizzle.compile = function( selector, match /* Internal Use Only */ ) { + var i, + setMatchers = [], + elementMatchers = [], + cached = compilerCache[ selector + " " ]; + + if ( !cached ) { + + // Generate a function of recursive functions that can be used to check each element + if ( !match ) { + match = tokenize( selector ); + } + i = match.length; + while ( i-- ) { + cached = matcherFromTokens( match[ i ] ); + if ( cached[ expando ] ) { + setMatchers.push( cached ); + } else { + elementMatchers.push( cached ); + } + } + + // Cache the compiled function + cached = compilerCache( + selector, + matcherFromGroupMatchers( elementMatchers, setMatchers ) + ); + + // Save selector and tokenization + cached.selector = selector; + } + return cached; +}; + +/** + * A low-level selection function that works with Sizzle's compiled + * selector functions + * @param {String|Function} selector A selector or a pre-compiled + * selector function built with Sizzle.compile + * @param {Element} context + * @param {Array} [results] + * @param {Array} [seed] A set of elements to match against + */ +select = Sizzle.select = function( selector, context, results, seed ) { + var i, tokens, token, type, find, + compiled = typeof selector === "function" && selector, + match = !seed && tokenize( ( selector = compiled.selector || selector ) ); + + results = results || []; + + // Try to minimize operations if there is only one selector in the list and no seed + // (the latter of which guarantees us context) + if ( match.length === 1 ) { + + // Reduce context if the leading compound selector is an ID + tokens = match[ 0 ] = match[ 0 ].slice( 0 ); + if ( tokens.length > 2 && ( token = tokens[ 0 ] ).type === "ID" && + context.nodeType === 9 && documentIsHTML && Expr.relative[ tokens[ 1 ].type ] ) { + + context = ( Expr.find[ "ID" ]( token.matches[ 0 ] + .replace( runescape, funescape ), context ) || [] )[ 0 ]; + if ( !context ) { + return results; + + // Precompiled matchers will still verify ancestry, so step up a level + } else if ( compiled ) { + context = context.parentNode; + } + + selector = selector.slice( tokens.shift().value.length ); + } + + // Fetch a seed set for right-to-left matching + i = matchExpr[ "needsContext" ].test( selector ) ? 0 : tokens.length; + while ( i-- ) { + token = tokens[ i ]; + + // Abort if we hit a combinator + if ( Expr.relative[ ( type = token.type ) ] ) { + break; + } + if ( ( find = Expr.find[ type ] ) ) { + + // Search, expanding context for leading sibling combinators + if ( ( seed = find( + token.matches[ 0 ].replace( runescape, funescape ), + rsibling.test( tokens[ 0 ].type ) && testContext( context.parentNode ) || + context + ) ) ) { + + // If seed is empty or no tokens remain, we can return early + tokens.splice( i, 1 ); + selector = seed.length && toSelector( tokens ); + if ( !selector ) { + push.apply( results, seed ); + return results; + } + + break; + } + } + } + } + + // Compile and execute a filtering function if one is not provided + // Provide `match` to avoid retokenization if we modified the selector above + ( compiled || compile( selector, match ) )( + seed, + context, + !documentIsHTML, + results, + !context || rsibling.test( selector ) && testContext( context.parentNode ) || context + ); + return results; +}; + +// One-time assignments + +// Sort stability +support.sortStable = expando.split( "" ).sort( sortOrder ).join( "" ) === expando; + +// Support: Chrome 14-35+ +// Always assume duplicates if they aren't passed to the comparison function +support.detectDuplicates = !!hasDuplicate; + +// Initialize against the default document +setDocument(); + +// Support: Webkit<537.32 - Safari 6.0.3/Chrome 25 (fixed in Chrome 27) +// Detached nodes confoundingly follow *each other* +support.sortDetached = assert( function( el ) { + + // Should return 1, but returns 4 (following) + return el.compareDocumentPosition( document.createElement( "fieldset" ) ) & 1; +} ); + +// Support: IE<8 +// Prevent attribute/property "interpolation" +// https://msdn.microsoft.com/en-us/library/ms536429%28VS.85%29.aspx +if ( !assert( function( el ) { + el.innerHTML = ""; + return el.firstChild.getAttribute( "href" ) === "#"; +} ) ) { + addHandle( "type|href|height|width", function( elem, name, isXML ) { + if ( !isXML ) { + return elem.getAttribute( name, name.toLowerCase() === "type" ? 1 : 2 ); + } + } ); +} + +// Support: IE<9 +// Use defaultValue in place of getAttribute("value") +if ( !support.attributes || !assert( function( el ) { + el.innerHTML = ""; + el.firstChild.setAttribute( "value", "" ); + return el.firstChild.getAttribute( "value" ) === ""; +} ) ) { + addHandle( "value", function( elem, _name, isXML ) { + if ( !isXML && elem.nodeName.toLowerCase() === "input" ) { + return elem.defaultValue; + } + } ); +} + +// Support: IE<9 +// Use getAttributeNode to fetch booleans when getAttribute lies +if ( !assert( function( el ) { + return el.getAttribute( "disabled" ) == null; +} ) ) { + addHandle( booleans, function( elem, name, isXML ) { + var val; + if ( !isXML ) { + return elem[ name ] === true ? name.toLowerCase() : + ( val = elem.getAttributeNode( name ) ) && val.specified ? + val.value : + null; + } + } ); +} + +return Sizzle; + +} )( window ); + + + +jQuery.find = Sizzle; +jQuery.expr = Sizzle.selectors; + +// Deprecated +jQuery.expr[ ":" ] = jQuery.expr.pseudos; +jQuery.uniqueSort = jQuery.unique = Sizzle.uniqueSort; +jQuery.text = Sizzle.getText; +jQuery.isXMLDoc = Sizzle.isXML; +jQuery.contains = Sizzle.contains; +jQuery.escapeSelector = Sizzle.escape; + + + + +var dir = function( elem, dir, until ) { + var matched = [], + truncate = until !== undefined; + + while ( ( elem = elem[ dir ] ) && elem.nodeType !== 9 ) { + if ( elem.nodeType === 1 ) { + if ( truncate && jQuery( elem ).is( until ) ) { + break; + } + matched.push( elem ); + } + } + return matched; +}; + + +var siblings = function( n, elem ) { + var matched = []; + + for ( ; n; n = n.nextSibling ) { + if ( n.nodeType === 1 && n !== elem ) { + matched.push( n ); + } + } + + return matched; +}; + + +var rneedsContext = jQuery.expr.match.needsContext; + + + +function nodeName( elem, name ) { + + return elem.nodeName && elem.nodeName.toLowerCase() === name.toLowerCase(); + +} +var rsingleTag = ( /^<([a-z][^\/\0>:\x20\t\r\n\f]*)[\x20\t\r\n\f]*\/?>(?:<\/\1>|)$/i ); + + + +// Implement the identical functionality for filter and not +function winnow( elements, qualifier, not ) { + if ( isFunction( qualifier ) ) { + return jQuery.grep( elements, function( elem, i ) { + return !!qualifier.call( elem, i, elem ) !== not; + } ); + } + + // Single element + if ( qualifier.nodeType ) { + return jQuery.grep( elements, function( elem ) { + return ( elem === qualifier ) !== not; + } ); + } + + // Arraylike of elements (jQuery, arguments, Array) + if ( typeof qualifier !== "string" ) { + return jQuery.grep( elements, function( elem ) { + return ( indexOf.call( qualifier, elem ) > -1 ) !== not; + } ); + } + + // Filtered directly for both simple and complex selectors + return jQuery.filter( qualifier, elements, not ); +} + +jQuery.filter = function( expr, elems, not ) { + var elem = elems[ 0 ]; + + if ( not ) { + expr = ":not(" + expr + ")"; + } + + if ( elems.length === 1 && elem.nodeType === 1 ) { + return jQuery.find.matchesSelector( elem, expr ) ? [ elem ] : []; + } + + return jQuery.find.matches( expr, jQuery.grep( elems, function( elem ) { + return elem.nodeType === 1; + } ) ); +}; + +jQuery.fn.extend( { + find: function( selector ) { + var i, ret, + len = this.length, + self = this; + + if ( typeof selector !== "string" ) { + return this.pushStack( jQuery( selector ).filter( function() { + for ( i = 0; i < len; i++ ) { + if ( jQuery.contains( self[ i ], this ) ) { + return true; + } + } + } ) ); + } + + ret = this.pushStack( [] ); + + for ( i = 0; i < len; i++ ) { + jQuery.find( selector, self[ i ], ret ); + } + + return len > 1 ? jQuery.uniqueSort( ret ) : ret; + }, + filter: function( selector ) { + return this.pushStack( winnow( this, selector || [], false ) ); + }, + not: function( selector ) { + return this.pushStack( winnow( this, selector || [], true ) ); + }, + is: function( selector ) { + return !!winnow( + this, + + // If this is a positional/relative selector, check membership in the returned set + // so $("p:first").is("p:last") won't return true for a doc with two "p". + typeof selector === "string" && rneedsContext.test( selector ) ? + jQuery( selector ) : + selector || [], + false + ).length; + } +} ); + + +// Initialize a jQuery object + + +// A central reference to the root jQuery(document) +var rootjQuery, + + // A simple way to check for HTML strings + // Prioritize #id over to avoid XSS via location.hash (#9521) + // Strict HTML recognition (#11290: must start with <) + // Shortcut simple #id case for speed + rquickExpr = /^(?:\s*(<[\w\W]+>)[^>]*|#([\w-]+))$/, + + init = jQuery.fn.init = function( selector, context, root ) { + var match, elem; + + // HANDLE: $(""), $(null), $(undefined), $(false) + if ( !selector ) { + return this; + } + + // Method init() accepts an alternate rootjQuery + // so migrate can support jQuery.sub (gh-2101) + root = root || rootjQuery; + + // Handle HTML strings + if ( typeof selector === "string" ) { + if ( selector[ 0 ] === "<" && + selector[ selector.length - 1 ] === ">" && + selector.length >= 3 ) { + + // Assume that strings that start and end with <> are HTML and skip the regex check + match = [ null, selector, null ]; + + } else { + match = rquickExpr.exec( selector ); + } + + // Match html or make sure no context is specified for #id + if ( match && ( match[ 1 ] || !context ) ) { + + // HANDLE: $(html) -> $(array) + if ( match[ 1 ] ) { + context = context instanceof jQuery ? context[ 0 ] : context; + + // Option to run scripts is true for back-compat + // Intentionally let the error be thrown if parseHTML is not present + jQuery.merge( this, jQuery.parseHTML( + match[ 1 ], + context && context.nodeType ? context.ownerDocument || context : document, + true + ) ); + + // HANDLE: $(html, props) + if ( rsingleTag.test( match[ 1 ] ) && jQuery.isPlainObject( context ) ) { + for ( match in context ) { + + // Properties of context are called as methods if possible + if ( isFunction( this[ match ] ) ) { + this[ match ]( context[ match ] ); + + // ...and otherwise set as attributes + } else { + this.attr( match, context[ match ] ); + } + } + } + + return this; + + // HANDLE: $(#id) + } else { + elem = document.getElementById( match[ 2 ] ); + + if ( elem ) { + + // Inject the element directly into the jQuery object + this[ 0 ] = elem; + this.length = 1; + } + return this; + } + + // HANDLE: $(expr, $(...)) + } else if ( !context || context.jquery ) { + return ( context || root ).find( selector ); + + // HANDLE: $(expr, context) + // (which is just equivalent to: $(context).find(expr) + } else { + return this.constructor( context ).find( selector ); + } + + // HANDLE: $(DOMElement) + } else if ( selector.nodeType ) { + this[ 0 ] = selector; + this.length = 1; + return this; + + // HANDLE: $(function) + // Shortcut for document ready + } else if ( isFunction( selector ) ) { + return root.ready !== undefined ? + root.ready( selector ) : + + // Execute immediately if ready is not present + selector( jQuery ); + } + + return jQuery.makeArray( selector, this ); + }; + +// Give the init function the jQuery prototype for later instantiation +init.prototype = jQuery.fn; + +// Initialize central reference +rootjQuery = jQuery( document ); + + +var rparentsprev = /^(?:parents|prev(?:Until|All))/, + + // Methods guaranteed to produce a unique set when starting from a unique set + guaranteedUnique = { + children: true, + contents: true, + next: true, + prev: true + }; + +jQuery.fn.extend( { + has: function( target ) { + var targets = jQuery( target, this ), + l = targets.length; + + return this.filter( function() { + var i = 0; + for ( ; i < l; i++ ) { + if ( jQuery.contains( this, targets[ i ] ) ) { + return true; + } + } + } ); + }, + + closest: function( selectors, context ) { + var cur, + i = 0, + l = this.length, + matched = [], + targets = typeof selectors !== "string" && jQuery( selectors ); + + // Positional selectors never match, since there's no _selection_ context + if ( !rneedsContext.test( selectors ) ) { + for ( ; i < l; i++ ) { + for ( cur = this[ i ]; cur && cur !== context; cur = cur.parentNode ) { + + // Always skip document fragments + if ( cur.nodeType < 11 && ( targets ? + targets.index( cur ) > -1 : + + // Don't pass non-elements to Sizzle + cur.nodeType === 1 && + jQuery.find.matchesSelector( cur, selectors ) ) ) { + + matched.push( cur ); + break; + } + } + } + } + + return this.pushStack( matched.length > 1 ? jQuery.uniqueSort( matched ) : matched ); + }, + + // Determine the position of an element within the set + index: function( elem ) { + + // No argument, return index in parent + if ( !elem ) { + return ( this[ 0 ] && this[ 0 ].parentNode ) ? this.first().prevAll().length : -1; + } + + // Index in selector + if ( typeof elem === "string" ) { + return indexOf.call( jQuery( elem ), this[ 0 ] ); + } + + // Locate the position of the desired element + return indexOf.call( this, + + // If it receives a jQuery object, the first element is used + elem.jquery ? elem[ 0 ] : elem + ); + }, + + add: function( selector, context ) { + return this.pushStack( + jQuery.uniqueSort( + jQuery.merge( this.get(), jQuery( selector, context ) ) + ) + ); + }, + + addBack: function( selector ) { + return this.add( selector == null ? + this.prevObject : this.prevObject.filter( selector ) + ); + } +} ); + +function sibling( cur, dir ) { + while ( ( cur = cur[ dir ] ) && cur.nodeType !== 1 ) {} + return cur; +} + +jQuery.each( { + parent: function( elem ) { + var parent = elem.parentNode; + return parent && parent.nodeType !== 11 ? parent : null; + }, + parents: function( elem ) { + return dir( elem, "parentNode" ); + }, + parentsUntil: function( elem, _i, until ) { + return dir( elem, "parentNode", until ); + }, + next: function( elem ) { + return sibling( elem, "nextSibling" ); + }, + prev: function( elem ) { + return sibling( elem, "previousSibling" ); + }, + nextAll: function( elem ) { + return dir( elem, "nextSibling" ); + }, + prevAll: function( elem ) { + return dir( elem, "previousSibling" ); + }, + nextUntil: function( elem, _i, until ) { + return dir( elem, "nextSibling", until ); + }, + prevUntil: function( elem, _i, until ) { + return dir( elem, "previousSibling", until ); + }, + siblings: function( elem ) { + return siblings( ( elem.parentNode || {} ).firstChild, elem ); + }, + children: function( elem ) { + return siblings( elem.firstChild ); + }, + contents: function( elem ) { + if ( elem.contentDocument != null && + + // Support: IE 11+ + // elements with no `data` attribute has an object + // `contentDocument` with a `null` prototype. + getProto( elem.contentDocument ) ) { + + return elem.contentDocument; + } + + // Support: IE 9 - 11 only, iOS 7 only, Android Browser <=4.3 only + // Treat the template element as a regular one in browsers that + // don't support it. + if ( nodeName( elem, "template" ) ) { + elem = elem.content || elem; + } + + return jQuery.merge( [], elem.childNodes ); + } +}, function( name, fn ) { + jQuery.fn[ name ] = function( until, selector ) { + var matched = jQuery.map( this, fn, until ); + + if ( name.slice( -5 ) !== "Until" ) { + selector = until; + } + + if ( selector && typeof selector === "string" ) { + matched = jQuery.filter( selector, matched ); + } + + if ( this.length > 1 ) { + + // Remove duplicates + if ( !guaranteedUnique[ name ] ) { + jQuery.uniqueSort( matched ); + } + + // Reverse order for parents* and prev-derivatives + if ( rparentsprev.test( name ) ) { + matched.reverse(); + } + } + + return this.pushStack( matched ); + }; +} ); +var rnothtmlwhite = ( /[^\x20\t\r\n\f]+/g ); + + + +// Convert String-formatted options into Object-formatted ones +function createOptions( options ) { + var object = {}; + jQuery.each( options.match( rnothtmlwhite ) || [], function( _, flag ) { + object[ flag ] = true; + } ); + return object; +} + +/* + * Create a callback list using the following parameters: + * + * options: an optional list of space-separated options that will change how + * the callback list behaves or a more traditional option object + * + * By default a callback list will act like an event callback list and can be + * "fired" multiple times. + * + * Possible options: + * + * once: will ensure the callback list can only be fired once (like a Deferred) + * + * memory: will keep track of previous values and will call any callback added + * after the list has been fired right away with the latest "memorized" + * values (like a Deferred) + * + * unique: will ensure a callback can only be added once (no duplicate in the list) + * + * stopOnFalse: interrupt callings when a callback returns false + * + */ +jQuery.Callbacks = function( options ) { + + // Convert options from String-formatted to Object-formatted if needed + // (we check in cache first) + options = typeof options === "string" ? + createOptions( options ) : + jQuery.extend( {}, options ); + + var // Flag to know if list is currently firing + firing, + + // Last fire value for non-forgettable lists + memory, + + // Flag to know if list was already fired + fired, + + // Flag to prevent firing + locked, + + // Actual callback list + list = [], + + // Queue of execution data for repeatable lists + queue = [], + + // Index of currently firing callback (modified by add/remove as needed) + firingIndex = -1, + + // Fire callbacks + fire = function() { + + // Enforce single-firing + locked = locked || options.once; + + // Execute callbacks for all pending executions, + // respecting firingIndex overrides and runtime changes + fired = firing = true; + for ( ; queue.length; firingIndex = -1 ) { + memory = queue.shift(); + while ( ++firingIndex < list.length ) { + + // Run callback and check for early termination + if ( list[ firingIndex ].apply( memory[ 0 ], memory[ 1 ] ) === false && + options.stopOnFalse ) { + + // Jump to end and forget the data so .add doesn't re-fire + firingIndex = list.length; + memory = false; + } + } + } + + // Forget the data if we're done with it + if ( !options.memory ) { + memory = false; + } + + firing = false; + + // Clean up if we're done firing for good + if ( locked ) { + + // Keep an empty list if we have data for future add calls + if ( memory ) { + list = []; + + // Otherwise, this object is spent + } else { + list = ""; + } + } + }, + + // Actual Callbacks object + self = { + + // Add a callback or a collection of callbacks to the list + add: function() { + if ( list ) { + + // If we have memory from a past run, we should fire after adding + if ( memory && !firing ) { + firingIndex = list.length - 1; + queue.push( memory ); + } + + ( function add( args ) { + jQuery.each( args, function( _, arg ) { + if ( isFunction( arg ) ) { + if ( !options.unique || !self.has( arg ) ) { + list.push( arg ); + } + } else if ( arg && arg.length && toType( arg ) !== "string" ) { + + // Inspect recursively + add( arg ); + } + } ); + } )( arguments ); + + if ( memory && !firing ) { + fire(); + } + } + return this; + }, + + // Remove a callback from the list + remove: function() { + jQuery.each( arguments, function( _, arg ) { + var index; + while ( ( index = jQuery.inArray( arg, list, index ) ) > -1 ) { + list.splice( index, 1 ); + + // Handle firing indexes + if ( index <= firingIndex ) { + firingIndex--; + } + } + } ); + return this; + }, + + // Check if a given callback is in the list. + // If no argument is given, return whether or not list has callbacks attached. + has: function( fn ) { + return fn ? + jQuery.inArray( fn, list ) > -1 : + list.length > 0; + }, + + // Remove all callbacks from the list + empty: function() { + if ( list ) { + list = []; + } + return this; + }, + + // Disable .fire and .add + // Abort any current/pending executions + // Clear all callbacks and values + disable: function() { + locked = queue = []; + list = memory = ""; + return this; + }, + disabled: function() { + return !list; + }, + + // Disable .fire + // Also disable .add unless we have memory (since it would have no effect) + // Abort any pending executions + lock: function() { + locked = queue = []; + if ( !memory && !firing ) { + list = memory = ""; + } + return this; + }, + locked: function() { + return !!locked; + }, + + // Call all callbacks with the given context and arguments + fireWith: function( context, args ) { + if ( !locked ) { + args = args || []; + args = [ context, args.slice ? args.slice() : args ]; + queue.push( args ); + if ( !firing ) { + fire(); + } + } + return this; + }, + + // Call all the callbacks with the given arguments + fire: function() { + self.fireWith( this, arguments ); + return this; + }, + + // To know if the callbacks have already been called at least once + fired: function() { + return !!fired; + } + }; + + return self; +}; + + +function Identity( v ) { + return v; +} +function Thrower( ex ) { + throw ex; +} + +function adoptValue( value, resolve, reject, noValue ) { + var method; + + try { + + // Check for promise aspect first to privilege synchronous behavior + if ( value && isFunction( ( method = value.promise ) ) ) { + method.call( value ).done( resolve ).fail( reject ); + + // Other thenables + } else if ( value && isFunction( ( method = value.then ) ) ) { + method.call( value, resolve, reject ); + + // Other non-thenables + } else { + + // Control `resolve` arguments by letting Array#slice cast boolean `noValue` to integer: + // * false: [ value ].slice( 0 ) => resolve( value ) + // * true: [ value ].slice( 1 ) => resolve() + resolve.apply( undefined, [ value ].slice( noValue ) ); + } + + // For Promises/A+, convert exceptions into rejections + // Since jQuery.when doesn't unwrap thenables, we can skip the extra checks appearing in + // Deferred#then to conditionally suppress rejection. + } catch ( value ) { + + // Support: Android 4.0 only + // Strict mode functions invoked without .call/.apply get global-object context + reject.apply( undefined, [ value ] ); + } +} + +jQuery.extend( { + + Deferred: function( func ) { + var tuples = [ + + // action, add listener, callbacks, + // ... .then handlers, argument index, [final state] + [ "notify", "progress", jQuery.Callbacks( "memory" ), + jQuery.Callbacks( "memory" ), 2 ], + [ "resolve", "done", jQuery.Callbacks( "once memory" ), + jQuery.Callbacks( "once memory" ), 0, "resolved" ], + [ "reject", "fail", jQuery.Callbacks( "once memory" ), + jQuery.Callbacks( "once memory" ), 1, "rejected" ] + ], + state = "pending", + promise = { + state: function() { + return state; + }, + always: function() { + deferred.done( arguments ).fail( arguments ); + return this; + }, + "catch": function( fn ) { + return promise.then( null, fn ); + }, + + // Keep pipe for back-compat + pipe: function( /* fnDone, fnFail, fnProgress */ ) { + var fns = arguments; + + return jQuery.Deferred( function( newDefer ) { + jQuery.each( tuples, function( _i, tuple ) { + + // Map tuples (progress, done, fail) to arguments (done, fail, progress) + var fn = isFunction( fns[ tuple[ 4 ] ] ) && fns[ tuple[ 4 ] ]; + + // deferred.progress(function() { bind to newDefer or newDefer.notify }) + // deferred.done(function() { bind to newDefer or newDefer.resolve }) + // deferred.fail(function() { bind to newDefer or newDefer.reject }) + deferred[ tuple[ 1 ] ]( function() { + var returned = fn && fn.apply( this, arguments ); + if ( returned && isFunction( returned.promise ) ) { + returned.promise() + .progress( newDefer.notify ) + .done( newDefer.resolve ) + .fail( newDefer.reject ); + } else { + newDefer[ tuple[ 0 ] + "With" ]( + this, + fn ? [ returned ] : arguments + ); + } + } ); + } ); + fns = null; + } ).promise(); + }, + then: function( onFulfilled, onRejected, onProgress ) { + var maxDepth = 0; + function resolve( depth, deferred, handler, special ) { + return function() { + var that = this, + args = arguments, + mightThrow = function() { + var returned, then; + + // Support: Promises/A+ section 2.3.3.3.3 + // https://promisesaplus.com/#point-59 + // Ignore double-resolution attempts + if ( depth < maxDepth ) { + return; + } + + returned = handler.apply( that, args ); + + // Support: Promises/A+ section 2.3.1 + // https://promisesaplus.com/#point-48 + if ( returned === deferred.promise() ) { + throw new TypeError( "Thenable self-resolution" ); + } + + // Support: Promises/A+ sections 2.3.3.1, 3.5 + // https://promisesaplus.com/#point-54 + // https://promisesaplus.com/#point-75 + // Retrieve `then` only once + then = returned && + + // Support: Promises/A+ section 2.3.4 + // https://promisesaplus.com/#point-64 + // Only check objects and functions for thenability + ( typeof returned === "object" || + typeof returned === "function" ) && + returned.then; + + // Handle a returned thenable + if ( isFunction( then ) ) { + + // Special processors (notify) just wait for resolution + if ( special ) { + then.call( + returned, + resolve( maxDepth, deferred, Identity, special ), + resolve( maxDepth, deferred, Thrower, special ) + ); + + // Normal processors (resolve) also hook into progress + } else { + + // ...and disregard older resolution values + maxDepth++; + + then.call( + returned, + resolve( maxDepth, deferred, Identity, special ), + resolve( maxDepth, deferred, Thrower, special ), + resolve( maxDepth, deferred, Identity, + deferred.notifyWith ) + ); + } + + // Handle all other returned values + } else { + + // Only substitute handlers pass on context + // and multiple values (non-spec behavior) + if ( handler !== Identity ) { + that = undefined; + args = [ returned ]; + } + + // Process the value(s) + // Default process is resolve + ( special || deferred.resolveWith )( that, args ); + } + }, + + // Only normal processors (resolve) catch and reject exceptions + process = special ? + mightThrow : + function() { + try { + mightThrow(); + } catch ( e ) { + + if ( jQuery.Deferred.exceptionHook ) { + jQuery.Deferred.exceptionHook( e, + process.stackTrace ); + } + + // Support: Promises/A+ section 2.3.3.3.4.1 + // https://promisesaplus.com/#point-61 + // Ignore post-resolution exceptions + if ( depth + 1 >= maxDepth ) { + + // Only substitute handlers pass on context + // and multiple values (non-spec behavior) + if ( handler !== Thrower ) { + that = undefined; + args = [ e ]; + } + + deferred.rejectWith( that, args ); + } + } + }; + + // Support: Promises/A+ section 2.3.3.3.1 + // https://promisesaplus.com/#point-57 + // Re-resolve promises immediately to dodge false rejection from + // subsequent errors + if ( depth ) { + process(); + } else { + + // Call an optional hook to record the stack, in case of exception + // since it's otherwise lost when execution goes async + if ( jQuery.Deferred.getStackHook ) { + process.stackTrace = jQuery.Deferred.getStackHook(); + } + window.setTimeout( process ); + } + }; + } + + return jQuery.Deferred( function( newDefer ) { + + // progress_handlers.add( ... ) + tuples[ 0 ][ 3 ].add( + resolve( + 0, + newDefer, + isFunction( onProgress ) ? + onProgress : + Identity, + newDefer.notifyWith + ) + ); + + // fulfilled_handlers.add( ... ) + tuples[ 1 ][ 3 ].add( + resolve( + 0, + newDefer, + isFunction( onFulfilled ) ? + onFulfilled : + Identity + ) + ); + + // rejected_handlers.add( ... ) + tuples[ 2 ][ 3 ].add( + resolve( + 0, + newDefer, + isFunction( onRejected ) ? + onRejected : + Thrower + ) + ); + } ).promise(); + }, + + // Get a promise for this deferred + // If obj is provided, the promise aspect is added to the object + promise: function( obj ) { + return obj != null ? jQuery.extend( obj, promise ) : promise; + } + }, + deferred = {}; + + // Add list-specific methods + jQuery.each( tuples, function( i, tuple ) { + var list = tuple[ 2 ], + stateString = tuple[ 5 ]; + + // promise.progress = list.add + // promise.done = list.add + // promise.fail = list.add + promise[ tuple[ 1 ] ] = list.add; + + // Handle state + if ( stateString ) { + list.add( + function() { + + // state = "resolved" (i.e., fulfilled) + // state = "rejected" + state = stateString; + }, + + // rejected_callbacks.disable + // fulfilled_callbacks.disable + tuples[ 3 - i ][ 2 ].disable, + + // rejected_handlers.disable + // fulfilled_handlers.disable + tuples[ 3 - i ][ 3 ].disable, + + // progress_callbacks.lock + tuples[ 0 ][ 2 ].lock, + + // progress_handlers.lock + tuples[ 0 ][ 3 ].lock + ); + } + + // progress_handlers.fire + // fulfilled_handlers.fire + // rejected_handlers.fire + list.add( tuple[ 3 ].fire ); + + // deferred.notify = function() { deferred.notifyWith(...) } + // deferred.resolve = function() { deferred.resolveWith(...) } + // deferred.reject = function() { deferred.rejectWith(...) } + deferred[ tuple[ 0 ] ] = function() { + deferred[ tuple[ 0 ] + "With" ]( this === deferred ? undefined : this, arguments ); + return this; + }; + + // deferred.notifyWith = list.fireWith + // deferred.resolveWith = list.fireWith + // deferred.rejectWith = list.fireWith + deferred[ tuple[ 0 ] + "With" ] = list.fireWith; + } ); + + // Make the deferred a promise + promise.promise( deferred ); + + // Call given func if any + if ( func ) { + func.call( deferred, deferred ); + } + + // All done! + return deferred; + }, + + // Deferred helper + when: function( singleValue ) { + var + + // count of uncompleted subordinates + remaining = arguments.length, + + // count of unprocessed arguments + i = remaining, + + // subordinate fulfillment data + resolveContexts = Array( i ), + resolveValues = slice.call( arguments ), + + // the primary Deferred + primary = jQuery.Deferred(), + + // subordinate callback factory + updateFunc = function( i ) { + return function( value ) { + resolveContexts[ i ] = this; + resolveValues[ i ] = arguments.length > 1 ? slice.call( arguments ) : value; + if ( !( --remaining ) ) { + primary.resolveWith( resolveContexts, resolveValues ); + } + }; + }; + + // Single- and empty arguments are adopted like Promise.resolve + if ( remaining <= 1 ) { + adoptValue( singleValue, primary.done( updateFunc( i ) ).resolve, primary.reject, + !remaining ); + + // Use .then() to unwrap secondary thenables (cf. gh-3000) + if ( primary.state() === "pending" || + isFunction( resolveValues[ i ] && resolveValues[ i ].then ) ) { + + return primary.then(); + } + } + + // Multiple arguments are aggregated like Promise.all array elements + while ( i-- ) { + adoptValue( resolveValues[ i ], updateFunc( i ), primary.reject ); + } + + return primary.promise(); + } +} ); + + +// These usually indicate a programmer mistake during development, +// warn about them ASAP rather than swallowing them by default. +var rerrorNames = /^(Eval|Internal|Range|Reference|Syntax|Type|URI)Error$/; + +jQuery.Deferred.exceptionHook = function( error, stack ) { + + // Support: IE 8 - 9 only + // Console exists when dev tools are open, which can happen at any time + if ( window.console && window.console.warn && error && rerrorNames.test( error.name ) ) { + window.console.warn( "jQuery.Deferred exception: " + error.message, error.stack, stack ); + } +}; + + + + +jQuery.readyException = function( error ) { + window.setTimeout( function() { + throw error; + } ); +}; + + + + +// The deferred used on DOM ready +var readyList = jQuery.Deferred(); + +jQuery.fn.ready = function( fn ) { + + readyList + .then( fn ) + + // Wrap jQuery.readyException in a function so that the lookup + // happens at the time of error handling instead of callback + // registration. + .catch( function( error ) { + jQuery.readyException( error ); + } ); + + return this; +}; + +jQuery.extend( { + + // Is the DOM ready to be used? Set to true once it occurs. + isReady: false, + + // A counter to track how many items to wait for before + // the ready event fires. See #6781 + readyWait: 1, + + // Handle when the DOM is ready + ready: function( wait ) { + + // Abort if there are pending holds or we're already ready + if ( wait === true ? --jQuery.readyWait : jQuery.isReady ) { + return; + } + + // Remember that the DOM is ready + jQuery.isReady = true; + + // If a normal DOM Ready event fired, decrement, and wait if need be + if ( wait !== true && --jQuery.readyWait > 0 ) { + return; + } + + // If there are functions bound, to execute + readyList.resolveWith( document, [ jQuery ] ); + } +} ); + +jQuery.ready.then = readyList.then; + +// The ready event handler and self cleanup method +function completed() { + document.removeEventListener( "DOMContentLoaded", completed ); + window.removeEventListener( "load", completed ); + jQuery.ready(); +} + +// Catch cases where $(document).ready() is called +// after the browser event has already occurred. +// Support: IE <=9 - 10 only +// Older IE sometimes signals "interactive" too soon +if ( document.readyState === "complete" || + ( document.readyState !== "loading" && !document.documentElement.doScroll ) ) { + + // Handle it asynchronously to allow scripts the opportunity to delay ready + window.setTimeout( jQuery.ready ); + +} else { + + // Use the handy event callback + document.addEventListener( "DOMContentLoaded", completed ); + + // A fallback to window.onload, that will always work + window.addEventListener( "load", completed ); +} + + + + +// Multifunctional method to get and set values of a collection +// The value/s can optionally be executed if it's a function +var access = function( elems, fn, key, value, chainable, emptyGet, raw ) { + var i = 0, + len = elems.length, + bulk = key == null; + + // Sets many values + if ( toType( key ) === "object" ) { + chainable = true; + for ( i in key ) { + access( elems, fn, i, key[ i ], true, emptyGet, raw ); + } + + // Sets one value + } else if ( value !== undefined ) { + chainable = true; + + if ( !isFunction( value ) ) { + raw = true; + } + + if ( bulk ) { + + // Bulk operations run against the entire set + if ( raw ) { + fn.call( elems, value ); + fn = null; + + // ...except when executing function values + } else { + bulk = fn; + fn = function( elem, _key, value ) { + return bulk.call( jQuery( elem ), value ); + }; + } + } + + if ( fn ) { + for ( ; i < len; i++ ) { + fn( + elems[ i ], key, raw ? + value : + value.call( elems[ i ], i, fn( elems[ i ], key ) ) + ); + } + } + } + + if ( chainable ) { + return elems; + } + + // Gets + if ( bulk ) { + return fn.call( elems ); + } + + return len ? fn( elems[ 0 ], key ) : emptyGet; +}; + + +// Matches dashed string for camelizing +var rmsPrefix = /^-ms-/, + rdashAlpha = /-([a-z])/g; + +// Used by camelCase as callback to replace() +function fcamelCase( _all, letter ) { + return letter.toUpperCase(); +} + +// Convert dashed to camelCase; used by the css and data modules +// Support: IE <=9 - 11, Edge 12 - 15 +// Microsoft forgot to hump their vendor prefix (#9572) +function camelCase( string ) { + return string.replace( rmsPrefix, "ms-" ).replace( rdashAlpha, fcamelCase ); +} +var acceptData = function( owner ) { + + // Accepts only: + // - Node + // - Node.ELEMENT_NODE + // - Node.DOCUMENT_NODE + // - Object + // - Any + return owner.nodeType === 1 || owner.nodeType === 9 || !( +owner.nodeType ); +}; + + + + +function Data() { + this.expando = jQuery.expando + Data.uid++; +} + +Data.uid = 1; + +Data.prototype = { + + cache: function( owner ) { + + // Check if the owner object already has a cache + var value = owner[ this.expando ]; + + // If not, create one + if ( !value ) { + value = {}; + + // We can accept data for non-element nodes in modern browsers, + // but we should not, see #8335. + // Always return an empty object. + if ( acceptData( owner ) ) { + + // If it is a node unlikely to be stringify-ed or looped over + // use plain assignment + if ( owner.nodeType ) { + owner[ this.expando ] = value; + + // Otherwise secure it in a non-enumerable property + // configurable must be true to allow the property to be + // deleted when data is removed + } else { + Object.defineProperty( owner, this.expando, { + value: value, + configurable: true + } ); + } + } + } + + return value; + }, + set: function( owner, data, value ) { + var prop, + cache = this.cache( owner ); + + // Handle: [ owner, key, value ] args + // Always use camelCase key (gh-2257) + if ( typeof data === "string" ) { + cache[ camelCase( data ) ] = value; + + // Handle: [ owner, { properties } ] args + } else { + + // Copy the properties one-by-one to the cache object + for ( prop in data ) { + cache[ camelCase( prop ) ] = data[ prop ]; + } + } + return cache; + }, + get: function( owner, key ) { + return key === undefined ? + this.cache( owner ) : + + // Always use camelCase key (gh-2257) + owner[ this.expando ] && owner[ this.expando ][ camelCase( key ) ]; + }, + access: function( owner, key, value ) { + + // In cases where either: + // + // 1. No key was specified + // 2. A string key was specified, but no value provided + // + // Take the "read" path and allow the get method to determine + // which value to return, respectively either: + // + // 1. The entire cache object + // 2. The data stored at the key + // + if ( key === undefined || + ( ( key && typeof key === "string" ) && value === undefined ) ) { + + return this.get( owner, key ); + } + + // When the key is not a string, or both a key and value + // are specified, set or extend (existing objects) with either: + // + // 1. An object of properties + // 2. A key and value + // + this.set( owner, key, value ); + + // Since the "set" path can have two possible entry points + // return the expected data based on which path was taken[*] + return value !== undefined ? value : key; + }, + remove: function( owner, key ) { + var i, + cache = owner[ this.expando ]; + + if ( cache === undefined ) { + return; + } + + if ( key !== undefined ) { + + // Support array or space separated string of keys + if ( Array.isArray( key ) ) { + + // If key is an array of keys... + // We always set camelCase keys, so remove that. + key = key.map( camelCase ); + } else { + key = camelCase( key ); + + // If a key with the spaces exists, use it. + // Otherwise, create an array by matching non-whitespace + key = key in cache ? + [ key ] : + ( key.match( rnothtmlwhite ) || [] ); + } + + i = key.length; + + while ( i-- ) { + delete cache[ key[ i ] ]; + } + } + + // Remove the expando if there's no more data + if ( key === undefined || jQuery.isEmptyObject( cache ) ) { + + // Support: Chrome <=35 - 45 + // Webkit & Blink performance suffers when deleting properties + // from DOM nodes, so set to undefined instead + // https://bugs.chromium.org/p/chromium/issues/detail?id=378607 (bug restricted) + if ( owner.nodeType ) { + owner[ this.expando ] = undefined; + } else { + delete owner[ this.expando ]; + } + } + }, + hasData: function( owner ) { + var cache = owner[ this.expando ]; + return cache !== undefined && !jQuery.isEmptyObject( cache ); + } +}; +var dataPriv = new Data(); + +var dataUser = new Data(); + + + +// Implementation Summary +// +// 1. Enforce API surface and semantic compatibility with 1.9.x branch +// 2. Improve the module's maintainability by reducing the storage +// paths to a single mechanism. +// 3. Use the same single mechanism to support "private" and "user" data. +// 4. _Never_ expose "private" data to user code (TODO: Drop _data, _removeData) +// 5. Avoid exposing implementation details on user objects (eg. expando properties) +// 6. Provide a clear path for implementation upgrade to WeakMap in 2014 + +var rbrace = /^(?:\{[\w\W]*\}|\[[\w\W]*\])$/, + rmultiDash = /[A-Z]/g; + +function getData( data ) { + if ( data === "true" ) { + return true; + } + + if ( data === "false" ) { + return false; + } + + if ( data === "null" ) { + return null; + } + + // Only convert to a number if it doesn't change the string + if ( data === +data + "" ) { + return +data; + } + + if ( rbrace.test( data ) ) { + return JSON.parse( data ); + } + + return data; +} + +function dataAttr( elem, key, data ) { + var name; + + // If nothing was found internally, try to fetch any + // data from the HTML5 data-* attribute + if ( data === undefined && elem.nodeType === 1 ) { + name = "data-" + key.replace( rmultiDash, "-$&" ).toLowerCase(); + data = elem.getAttribute( name ); + + if ( typeof data === "string" ) { + try { + data = getData( data ); + } catch ( e ) {} + + // Make sure we set the data so it isn't changed later + dataUser.set( elem, key, data ); + } else { + data = undefined; + } + } + return data; +} + +jQuery.extend( { + hasData: function( elem ) { + return dataUser.hasData( elem ) || dataPriv.hasData( elem ); + }, + + data: function( elem, name, data ) { + return dataUser.access( elem, name, data ); + }, + + removeData: function( elem, name ) { + dataUser.remove( elem, name ); + }, + + // TODO: Now that all calls to _data and _removeData have been replaced + // with direct calls to dataPriv methods, these can be deprecated. + _data: function( elem, name, data ) { + return dataPriv.access( elem, name, data ); + }, + + _removeData: function( elem, name ) { + dataPriv.remove( elem, name ); + } +} ); + +jQuery.fn.extend( { + data: function( key, value ) { + var i, name, data, + elem = this[ 0 ], + attrs = elem && elem.attributes; + + // Gets all values + if ( key === undefined ) { + if ( this.length ) { + data = dataUser.get( elem ); + + if ( elem.nodeType === 1 && !dataPriv.get( elem, "hasDataAttrs" ) ) { + i = attrs.length; + while ( i-- ) { + + // Support: IE 11 only + // The attrs elements can be null (#14894) + if ( attrs[ i ] ) { + name = attrs[ i ].name; + if ( name.indexOf( "data-" ) === 0 ) { + name = camelCase( name.slice( 5 ) ); + dataAttr( elem, name, data[ name ] ); + } + } + } + dataPriv.set( elem, "hasDataAttrs", true ); + } + } + + return data; + } + + // Sets multiple values + if ( typeof key === "object" ) { + return this.each( function() { + dataUser.set( this, key ); + } ); + } + + return access( this, function( value ) { + var data; + + // The calling jQuery object (element matches) is not empty + // (and therefore has an element appears at this[ 0 ]) and the + // `value` parameter was not undefined. An empty jQuery object + // will result in `undefined` for elem = this[ 0 ] which will + // throw an exception if an attempt to read a data cache is made. + if ( elem && value === undefined ) { + + // Attempt to get data from the cache + // The key will always be camelCased in Data + data = dataUser.get( elem, key ); + if ( data !== undefined ) { + return data; + } + + // Attempt to "discover" the data in + // HTML5 custom data-* attrs + data = dataAttr( elem, key ); + if ( data !== undefined ) { + return data; + } + + // We tried really hard, but the data doesn't exist. + return; + } + + // Set the data... + this.each( function() { + + // We always store the camelCased key + dataUser.set( this, key, value ); + } ); + }, null, value, arguments.length > 1, null, true ); + }, + + removeData: function( key ) { + return this.each( function() { + dataUser.remove( this, key ); + } ); + } +} ); + + +jQuery.extend( { + queue: function( elem, type, data ) { + var queue; + + if ( elem ) { + type = ( type || "fx" ) + "queue"; + queue = dataPriv.get( elem, type ); + + // Speed up dequeue by getting out quickly if this is just a lookup + if ( data ) { + if ( !queue || Array.isArray( data ) ) { + queue = dataPriv.access( elem, type, jQuery.makeArray( data ) ); + } else { + queue.push( data ); + } + } + return queue || []; + } + }, + + dequeue: function( elem, type ) { + type = type || "fx"; + + var queue = jQuery.queue( elem, type ), + startLength = queue.length, + fn = queue.shift(), + hooks = jQuery._queueHooks( elem, type ), + next = function() { + jQuery.dequeue( elem, type ); + }; + + // If the fx queue is dequeued, always remove the progress sentinel + if ( fn === "inprogress" ) { + fn = queue.shift(); + startLength--; + } + + if ( fn ) { + + // Add a progress sentinel to prevent the fx queue from being + // automatically dequeued + if ( type === "fx" ) { + queue.unshift( "inprogress" ); + } + + // Clear up the last queue stop function + delete hooks.stop; + fn.call( elem, next, hooks ); + } + + if ( !startLength && hooks ) { + hooks.empty.fire(); + } + }, + + // Not public - generate a queueHooks object, or return the current one + _queueHooks: function( elem, type ) { + var key = type + "queueHooks"; + return dataPriv.get( elem, key ) || dataPriv.access( elem, key, { + empty: jQuery.Callbacks( "once memory" ).add( function() { + dataPriv.remove( elem, [ type + "queue", key ] ); + } ) + } ); + } +} ); + +jQuery.fn.extend( { + queue: function( type, data ) { + var setter = 2; + + if ( typeof type !== "string" ) { + data = type; + type = "fx"; + setter--; + } + + if ( arguments.length < setter ) { + return jQuery.queue( this[ 0 ], type ); + } + + return data === undefined ? + this : + this.each( function() { + var queue = jQuery.queue( this, type, data ); + + // Ensure a hooks for this queue + jQuery._queueHooks( this, type ); + + if ( type === "fx" && queue[ 0 ] !== "inprogress" ) { + jQuery.dequeue( this, type ); + } + } ); + }, + dequeue: function( type ) { + return this.each( function() { + jQuery.dequeue( this, type ); + } ); + }, + clearQueue: function( type ) { + return this.queue( type || "fx", [] ); + }, + + // Get a promise resolved when queues of a certain type + // are emptied (fx is the type by default) + promise: function( type, obj ) { + var tmp, + count = 1, + defer = jQuery.Deferred(), + elements = this, + i = this.length, + resolve = function() { + if ( !( --count ) ) { + defer.resolveWith( elements, [ elements ] ); + } + }; + + if ( typeof type !== "string" ) { + obj = type; + type = undefined; + } + type = type || "fx"; + + while ( i-- ) { + tmp = dataPriv.get( elements[ i ], type + "queueHooks" ); + if ( tmp && tmp.empty ) { + count++; + tmp.empty.add( resolve ); + } + } + resolve(); + return defer.promise( obj ); + } +} ); +var pnum = ( /[+-]?(?:\d*\.|)\d+(?:[eE][+-]?\d+|)/ ).source; + +var rcssNum = new RegExp( "^(?:([+-])=|)(" + pnum + ")([a-z%]*)$", "i" ); + + +var cssExpand = [ "Top", "Right", "Bottom", "Left" ]; + +var documentElement = document.documentElement; + + + + var isAttached = function( elem ) { + return jQuery.contains( elem.ownerDocument, elem ); + }, + composed = { composed: true }; + + // Support: IE 9 - 11+, Edge 12 - 18+, iOS 10.0 - 10.2 only + // Check attachment across shadow DOM boundaries when possible (gh-3504) + // Support: iOS 10.0-10.2 only + // Early iOS 10 versions support `attachShadow` but not `getRootNode`, + // leading to errors. We need to check for `getRootNode`. + if ( documentElement.getRootNode ) { + isAttached = function( elem ) { + return jQuery.contains( elem.ownerDocument, elem ) || + elem.getRootNode( composed ) === elem.ownerDocument; + }; + } +var isHiddenWithinTree = function( elem, el ) { + + // isHiddenWithinTree might be called from jQuery#filter function; + // in that case, element will be second argument + elem = el || elem; + + // Inline style trumps all + return elem.style.display === "none" || + elem.style.display === "" && + + // Otherwise, check computed style + // Support: Firefox <=43 - 45 + // Disconnected elements can have computed display: none, so first confirm that elem is + // in the document. + isAttached( elem ) && + + jQuery.css( elem, "display" ) === "none"; + }; + + + +function adjustCSS( elem, prop, valueParts, tween ) { + var adjusted, scale, + maxIterations = 20, + currentValue = tween ? + function() { + return tween.cur(); + } : + function() { + return jQuery.css( elem, prop, "" ); + }, + initial = currentValue(), + unit = valueParts && valueParts[ 3 ] || ( jQuery.cssNumber[ prop ] ? "" : "px" ), + + // Starting value computation is required for potential unit mismatches + initialInUnit = elem.nodeType && + ( jQuery.cssNumber[ prop ] || unit !== "px" && +initial ) && + rcssNum.exec( jQuery.css( elem, prop ) ); + + if ( initialInUnit && initialInUnit[ 3 ] !== unit ) { + + // Support: Firefox <=54 + // Halve the iteration target value to prevent interference from CSS upper bounds (gh-2144) + initial = initial / 2; + + // Trust units reported by jQuery.css + unit = unit || initialInUnit[ 3 ]; + + // Iteratively approximate from a nonzero starting point + initialInUnit = +initial || 1; + + while ( maxIterations-- ) { + + // Evaluate and update our best guess (doubling guesses that zero out). + // Finish if the scale equals or crosses 1 (making the old*new product non-positive). + jQuery.style( elem, prop, initialInUnit + unit ); + if ( ( 1 - scale ) * ( 1 - ( scale = currentValue() / initial || 0.5 ) ) <= 0 ) { + maxIterations = 0; + } + initialInUnit = initialInUnit / scale; + + } + + initialInUnit = initialInUnit * 2; + jQuery.style( elem, prop, initialInUnit + unit ); + + // Make sure we update the tween properties later on + valueParts = valueParts || []; + } + + if ( valueParts ) { + initialInUnit = +initialInUnit || +initial || 0; + + // Apply relative offset (+=/-=) if specified + adjusted = valueParts[ 1 ] ? + initialInUnit + ( valueParts[ 1 ] + 1 ) * valueParts[ 2 ] : + +valueParts[ 2 ]; + if ( tween ) { + tween.unit = unit; + tween.start = initialInUnit; + tween.end = adjusted; + } + } + return adjusted; +} + + +var defaultDisplayMap = {}; + +function getDefaultDisplay( elem ) { + var temp, + doc = elem.ownerDocument, + nodeName = elem.nodeName, + display = defaultDisplayMap[ nodeName ]; + + if ( display ) { + return display; + } + + temp = doc.body.appendChild( doc.createElement( nodeName ) ); + display = jQuery.css( temp, "display" ); + + temp.parentNode.removeChild( temp ); + + if ( display === "none" ) { + display = "block"; + } + defaultDisplayMap[ nodeName ] = display; + + return display; +} + +function showHide( elements, show ) { + var display, elem, + values = [], + index = 0, + length = elements.length; + + // Determine new display value for elements that need to change + for ( ; index < length; index++ ) { + elem = elements[ index ]; + if ( !elem.style ) { + continue; + } + + display = elem.style.display; + if ( show ) { + + // Since we force visibility upon cascade-hidden elements, an immediate (and slow) + // check is required in this first loop unless we have a nonempty display value (either + // inline or about-to-be-restored) + if ( display === "none" ) { + values[ index ] = dataPriv.get( elem, "display" ) || null; + if ( !values[ index ] ) { + elem.style.display = ""; + } + } + if ( elem.style.display === "" && isHiddenWithinTree( elem ) ) { + values[ index ] = getDefaultDisplay( elem ); + } + } else { + if ( display !== "none" ) { + values[ index ] = "none"; + + // Remember what we're overwriting + dataPriv.set( elem, "display", display ); + } + } + } + + // Set the display of the elements in a second loop to avoid constant reflow + for ( index = 0; index < length; index++ ) { + if ( values[ index ] != null ) { + elements[ index ].style.display = values[ index ]; + } + } + + return elements; +} + +jQuery.fn.extend( { + show: function() { + return showHide( this, true ); + }, + hide: function() { + return showHide( this ); + }, + toggle: function( state ) { + if ( typeof state === "boolean" ) { + return state ? this.show() : this.hide(); + } + + return this.each( function() { + if ( isHiddenWithinTree( this ) ) { + jQuery( this ).show(); + } else { + jQuery( this ).hide(); + } + } ); + } +} ); +var rcheckableType = ( /^(?:checkbox|radio)$/i ); + +var rtagName = ( /<([a-z][^\/\0>\x20\t\r\n\f]*)/i ); + +var rscriptType = ( /^$|^module$|\/(?:java|ecma)script/i ); + + + +( function() { + var fragment = document.createDocumentFragment(), + div = fragment.appendChild( document.createElement( "div" ) ), + input = document.createElement( "input" ); + + // Support: Android 4.0 - 4.3 only + // Check state lost if the name is set (#11217) + // Support: Windows Web Apps (WWA) + // `name` and `type` must use .setAttribute for WWA (#14901) + input.setAttribute( "type", "radio" ); + input.setAttribute( "checked", "checked" ); + input.setAttribute( "name", "t" ); + + div.appendChild( input ); + + // Support: Android <=4.1 only + // Older WebKit doesn't clone checked state correctly in fragments + support.checkClone = div.cloneNode( true ).cloneNode( true ).lastChild.checked; + + // Support: IE <=11 only + // Make sure textarea (and checkbox) defaultValue is properly cloned + div.innerHTML = ""; + support.noCloneChecked = !!div.cloneNode( true ).lastChild.defaultValue; + + // Support: IE <=9 only + // IE <=9 replaces "; + support.option = !!div.lastChild; +} )(); + + +// We have to close these tags to support XHTML (#13200) +var wrapMap = { + + // XHTML parsers do not magically insert elements in the + // same way that tag soup parsers do. So we cannot shorten + // this by omitting

      or other required elements. + thead: [ 1, "
      ", "
      " ], + col: [ 2, "", "
      " ], + tr: [ 2, "", "
      " ], + td: [ 3, "", "
      " ], + + _default: [ 0, "", "" ] +}; + +wrapMap.tbody = wrapMap.tfoot = wrapMap.colgroup = wrapMap.caption = wrapMap.thead; +wrapMap.th = wrapMap.td; + +// Support: IE <=9 only +if ( !support.option ) { + wrapMap.optgroup = wrapMap.option = [ 1, "" ]; +} + + +function getAll( context, tag ) { + + // Support: IE <=9 - 11 only + // Use typeof to avoid zero-argument method invocation on host objects (#15151) + var ret; + + if ( typeof context.getElementsByTagName !== "undefined" ) { + ret = context.getElementsByTagName( tag || "*" ); + + } else if ( typeof context.querySelectorAll !== "undefined" ) { + ret = context.querySelectorAll( tag || "*" ); + + } else { + ret = []; + } + + if ( tag === undefined || tag && nodeName( context, tag ) ) { + return jQuery.merge( [ context ], ret ); + } + + return ret; +} + + +// Mark scripts as having already been evaluated +function setGlobalEval( elems, refElements ) { + var i = 0, + l = elems.length; + + for ( ; i < l; i++ ) { + dataPriv.set( + elems[ i ], + "globalEval", + !refElements || dataPriv.get( refElements[ i ], "globalEval" ) + ); + } +} + + +var rhtml = /<|&#?\w+;/; + +function buildFragment( elems, context, scripts, selection, ignored ) { + var elem, tmp, tag, wrap, attached, j, + fragment = context.createDocumentFragment(), + nodes = [], + i = 0, + l = elems.length; + + for ( ; i < l; i++ ) { + elem = elems[ i ]; + + if ( elem || elem === 0 ) { + + // Add nodes directly + if ( toType( elem ) === "object" ) { + + // Support: Android <=4.0 only, PhantomJS 1 only + // push.apply(_, arraylike) throws on ancient WebKit + jQuery.merge( nodes, elem.nodeType ? [ elem ] : elem ); + + // Convert non-html into a text node + } else if ( !rhtml.test( elem ) ) { + nodes.push( context.createTextNode( elem ) ); + + // Convert html into DOM nodes + } else { + tmp = tmp || fragment.appendChild( context.createElement( "div" ) ); + + // Deserialize a standard representation + tag = ( rtagName.exec( elem ) || [ "", "" ] )[ 1 ].toLowerCase(); + wrap = wrapMap[ tag ] || wrapMap._default; + tmp.innerHTML = wrap[ 1 ] + jQuery.htmlPrefilter( elem ) + wrap[ 2 ]; + + // Descend through wrappers to the right content + j = wrap[ 0 ]; + while ( j-- ) { + tmp = tmp.lastChild; + } + + // Support: Android <=4.0 only, PhantomJS 1 only + // push.apply(_, arraylike) throws on ancient WebKit + jQuery.merge( nodes, tmp.childNodes ); + + // Remember the top-level container + tmp = fragment.firstChild; + + // Ensure the created nodes are orphaned (#12392) + tmp.textContent = ""; + } + } + } + + // Remove wrapper from fragment + fragment.textContent = ""; + + i = 0; + while ( ( elem = nodes[ i++ ] ) ) { + + // Skip elements already in the context collection (trac-4087) + if ( selection && jQuery.inArray( elem, selection ) > -1 ) { + if ( ignored ) { + ignored.push( elem ); + } + continue; + } + + attached = isAttached( elem ); + + // Append to fragment + tmp = getAll( fragment.appendChild( elem ), "script" ); + + // Preserve script evaluation history + if ( attached ) { + setGlobalEval( tmp ); + } + + // Capture executables + if ( scripts ) { + j = 0; + while ( ( elem = tmp[ j++ ] ) ) { + if ( rscriptType.test( elem.type || "" ) ) { + scripts.push( elem ); + } + } + } + } + + return fragment; +} + + +var rtypenamespace = /^([^.]*)(?:\.(.+)|)/; + +function returnTrue() { + return true; +} + +function returnFalse() { + return false; +} + +// Support: IE <=9 - 11+ +// focus() and blur() are asynchronous, except when they are no-op. +// So expect focus to be synchronous when the element is already active, +// and blur to be synchronous when the element is not already active. +// (focus and blur are always synchronous in other supported browsers, +// this just defines when we can count on it). +function expectSync( elem, type ) { + return ( elem === safeActiveElement() ) === ( type === "focus" ); +} + +// Support: IE <=9 only +// Accessing document.activeElement can throw unexpectedly +// https://bugs.jquery.com/ticket/13393 +function safeActiveElement() { + try { + return document.activeElement; + } catch ( err ) { } +} + +function on( elem, types, selector, data, fn, one ) { + var origFn, type; + + // Types can be a map of types/handlers + if ( typeof types === "object" ) { + + // ( types-Object, selector, data ) + if ( typeof selector !== "string" ) { + + // ( types-Object, data ) + data = data || selector; + selector = undefined; + } + for ( type in types ) { + on( elem, type, selector, data, types[ type ], one ); + } + return elem; + } + + if ( data == null && fn == null ) { + + // ( types, fn ) + fn = selector; + data = selector = undefined; + } else if ( fn == null ) { + if ( typeof selector === "string" ) { + + // ( types, selector, fn ) + fn = data; + data = undefined; + } else { + + // ( types, data, fn ) + fn = data; + data = selector; + selector = undefined; + } + } + if ( fn === false ) { + fn = returnFalse; + } else if ( !fn ) { + return elem; + } + + if ( one === 1 ) { + origFn = fn; + fn = function( event ) { + + // Can use an empty set, since event contains the info + jQuery().off( event ); + return origFn.apply( this, arguments ); + }; + + // Use same guid so caller can remove using origFn + fn.guid = origFn.guid || ( origFn.guid = jQuery.guid++ ); + } + return elem.each( function() { + jQuery.event.add( this, types, fn, data, selector ); + } ); +} + +/* + * Helper functions for managing events -- not part of the public interface. + * Props to Dean Edwards' addEvent library for many of the ideas. + */ +jQuery.event = { + + global: {}, + + add: function( elem, types, handler, data, selector ) { + + var handleObjIn, eventHandle, tmp, + events, t, handleObj, + special, handlers, type, namespaces, origType, + elemData = dataPriv.get( elem ); + + // Only attach events to objects that accept data + if ( !acceptData( elem ) ) { + return; + } + + // Caller can pass in an object of custom data in lieu of the handler + if ( handler.handler ) { + handleObjIn = handler; + handler = handleObjIn.handler; + selector = handleObjIn.selector; + } + + // Ensure that invalid selectors throw exceptions at attach time + // Evaluate against documentElement in case elem is a non-element node (e.g., document) + if ( selector ) { + jQuery.find.matchesSelector( documentElement, selector ); + } + + // Make sure that the handler has a unique ID, used to find/remove it later + if ( !handler.guid ) { + handler.guid = jQuery.guid++; + } + + // Init the element's event structure and main handler, if this is the first + if ( !( events = elemData.events ) ) { + events = elemData.events = Object.create( null ); + } + if ( !( eventHandle = elemData.handle ) ) { + eventHandle = elemData.handle = function( e ) { + + // Discard the second event of a jQuery.event.trigger() and + // when an event is called after a page has unloaded + return typeof jQuery !== "undefined" && jQuery.event.triggered !== e.type ? + jQuery.event.dispatch.apply( elem, arguments ) : undefined; + }; + } + + // Handle multiple events separated by a space + types = ( types || "" ).match( rnothtmlwhite ) || [ "" ]; + t = types.length; + while ( t-- ) { + tmp = rtypenamespace.exec( types[ t ] ) || []; + type = origType = tmp[ 1 ]; + namespaces = ( tmp[ 2 ] || "" ).split( "." ).sort(); + + // There *must* be a type, no attaching namespace-only handlers + if ( !type ) { + continue; + } + + // If event changes its type, use the special event handlers for the changed type + special = jQuery.event.special[ type ] || {}; + + // If selector defined, determine special event api type, otherwise given type + type = ( selector ? special.delegateType : special.bindType ) || type; + + // Update special based on newly reset type + special = jQuery.event.special[ type ] || {}; + + // handleObj is passed to all event handlers + handleObj = jQuery.extend( { + type: type, + origType: origType, + data: data, + handler: handler, + guid: handler.guid, + selector: selector, + needsContext: selector && jQuery.expr.match.needsContext.test( selector ), + namespace: namespaces.join( "." ) + }, handleObjIn ); + + // Init the event handler queue if we're the first + if ( !( handlers = events[ type ] ) ) { + handlers = events[ type ] = []; + handlers.delegateCount = 0; + + // Only use addEventListener if the special events handler returns false + if ( !special.setup || + special.setup.call( elem, data, namespaces, eventHandle ) === false ) { + + if ( elem.addEventListener ) { + elem.addEventListener( type, eventHandle ); + } + } + } + + if ( special.add ) { + special.add.call( elem, handleObj ); + + if ( !handleObj.handler.guid ) { + handleObj.handler.guid = handler.guid; + } + } + + // Add to the element's handler list, delegates in front + if ( selector ) { + handlers.splice( handlers.delegateCount++, 0, handleObj ); + } else { + handlers.push( handleObj ); + } + + // Keep track of which events have ever been used, for event optimization + jQuery.event.global[ type ] = true; + } + + }, + + // Detach an event or set of events from an element + remove: function( elem, types, handler, selector, mappedTypes ) { + + var j, origCount, tmp, + events, t, handleObj, + special, handlers, type, namespaces, origType, + elemData = dataPriv.hasData( elem ) && dataPriv.get( elem ); + + if ( !elemData || !( events = elemData.events ) ) { + return; + } + + // Once for each type.namespace in types; type may be omitted + types = ( types || "" ).match( rnothtmlwhite ) || [ "" ]; + t = types.length; + while ( t-- ) { + tmp = rtypenamespace.exec( types[ t ] ) || []; + type = origType = tmp[ 1 ]; + namespaces = ( tmp[ 2 ] || "" ).split( "." ).sort(); + + // Unbind all events (on this namespace, if provided) for the element + if ( !type ) { + for ( type in events ) { + jQuery.event.remove( elem, type + types[ t ], handler, selector, true ); + } + continue; + } + + special = jQuery.event.special[ type ] || {}; + type = ( selector ? special.delegateType : special.bindType ) || type; + handlers = events[ type ] || []; + tmp = tmp[ 2 ] && + new RegExp( "(^|\\.)" + namespaces.join( "\\.(?:.*\\.|)" ) + "(\\.|$)" ); + + // Remove matching events + origCount = j = handlers.length; + while ( j-- ) { + handleObj = handlers[ j ]; + + if ( ( mappedTypes || origType === handleObj.origType ) && + ( !handler || handler.guid === handleObj.guid ) && + ( !tmp || tmp.test( handleObj.namespace ) ) && + ( !selector || selector === handleObj.selector || + selector === "**" && handleObj.selector ) ) { + handlers.splice( j, 1 ); + + if ( handleObj.selector ) { + handlers.delegateCount--; + } + if ( special.remove ) { + special.remove.call( elem, handleObj ); + } + } + } + + // Remove generic event handler if we removed something and no more handlers exist + // (avoids potential for endless recursion during removal of special event handlers) + if ( origCount && !handlers.length ) { + if ( !special.teardown || + special.teardown.call( elem, namespaces, elemData.handle ) === false ) { + + jQuery.removeEvent( elem, type, elemData.handle ); + } + + delete events[ type ]; + } + } + + // Remove data and the expando if it's no longer used + if ( jQuery.isEmptyObject( events ) ) { + dataPriv.remove( elem, "handle events" ); + } + }, + + dispatch: function( nativeEvent ) { + + var i, j, ret, matched, handleObj, handlerQueue, + args = new Array( arguments.length ), + + // Make a writable jQuery.Event from the native event object + event = jQuery.event.fix( nativeEvent ), + + handlers = ( + dataPriv.get( this, "events" ) || Object.create( null ) + )[ event.type ] || [], + special = jQuery.event.special[ event.type ] || {}; + + // Use the fix-ed jQuery.Event rather than the (read-only) native event + args[ 0 ] = event; + + for ( i = 1; i < arguments.length; i++ ) { + args[ i ] = arguments[ i ]; + } + + event.delegateTarget = this; + + // Call the preDispatch hook for the mapped type, and let it bail if desired + if ( special.preDispatch && special.preDispatch.call( this, event ) === false ) { + return; + } + + // Determine handlers + handlerQueue = jQuery.event.handlers.call( this, event, handlers ); + + // Run delegates first; they may want to stop propagation beneath us + i = 0; + while ( ( matched = handlerQueue[ i++ ] ) && !event.isPropagationStopped() ) { + event.currentTarget = matched.elem; + + j = 0; + while ( ( handleObj = matched.handlers[ j++ ] ) && + !event.isImmediatePropagationStopped() ) { + + // If the event is namespaced, then each handler is only invoked if it is + // specially universal or its namespaces are a superset of the event's. + if ( !event.rnamespace || handleObj.namespace === false || + event.rnamespace.test( handleObj.namespace ) ) { + + event.handleObj = handleObj; + event.data = handleObj.data; + + ret = ( ( jQuery.event.special[ handleObj.origType ] || {} ).handle || + handleObj.handler ).apply( matched.elem, args ); + + if ( ret !== undefined ) { + if ( ( event.result = ret ) === false ) { + event.preventDefault(); + event.stopPropagation(); + } + } + } + } + } + + // Call the postDispatch hook for the mapped type + if ( special.postDispatch ) { + special.postDispatch.call( this, event ); + } + + return event.result; + }, + + handlers: function( event, handlers ) { + var i, handleObj, sel, matchedHandlers, matchedSelectors, + handlerQueue = [], + delegateCount = handlers.delegateCount, + cur = event.target; + + // Find delegate handlers + if ( delegateCount && + + // Support: IE <=9 + // Black-hole SVG instance trees (trac-13180) + cur.nodeType && + + // Support: Firefox <=42 + // Suppress spec-violating clicks indicating a non-primary pointer button (trac-3861) + // https://www.w3.org/TR/DOM-Level-3-Events/#event-type-click + // Support: IE 11 only + // ...but not arrow key "clicks" of radio inputs, which can have `button` -1 (gh-2343) + !( event.type === "click" && event.button >= 1 ) ) { + + for ( ; cur !== this; cur = cur.parentNode || this ) { + + // Don't check non-elements (#13208) + // Don't process clicks on disabled elements (#6911, #8165, #11382, #11764) + if ( cur.nodeType === 1 && !( event.type === "click" && cur.disabled === true ) ) { + matchedHandlers = []; + matchedSelectors = {}; + for ( i = 0; i < delegateCount; i++ ) { + handleObj = handlers[ i ]; + + // Don't conflict with Object.prototype properties (#13203) + sel = handleObj.selector + " "; + + if ( matchedSelectors[ sel ] === undefined ) { + matchedSelectors[ sel ] = handleObj.needsContext ? + jQuery( sel, this ).index( cur ) > -1 : + jQuery.find( sel, this, null, [ cur ] ).length; + } + if ( matchedSelectors[ sel ] ) { + matchedHandlers.push( handleObj ); + } + } + if ( matchedHandlers.length ) { + handlerQueue.push( { elem: cur, handlers: matchedHandlers } ); + } + } + } + } + + // Add the remaining (directly-bound) handlers + cur = this; + if ( delegateCount < handlers.length ) { + handlerQueue.push( { elem: cur, handlers: handlers.slice( delegateCount ) } ); + } + + return handlerQueue; + }, + + addProp: function( name, hook ) { + Object.defineProperty( jQuery.Event.prototype, name, { + enumerable: true, + configurable: true, + + get: isFunction( hook ) ? + function() { + if ( this.originalEvent ) { + return hook( this.originalEvent ); + } + } : + function() { + if ( this.originalEvent ) { + return this.originalEvent[ name ]; + } + }, + + set: function( value ) { + Object.defineProperty( this, name, { + enumerable: true, + configurable: true, + writable: true, + value: value + } ); + } + } ); + }, + + fix: function( originalEvent ) { + return originalEvent[ jQuery.expando ] ? + originalEvent : + new jQuery.Event( originalEvent ); + }, + + special: { + load: { + + // Prevent triggered image.load events from bubbling to window.load + noBubble: true + }, + click: { + + // Utilize native event to ensure correct state for checkable inputs + setup: function( data ) { + + // For mutual compressibility with _default, replace `this` access with a local var. + // `|| data` is dead code meant only to preserve the variable through minification. + var el = this || data; + + // Claim the first handler + if ( rcheckableType.test( el.type ) && + el.click && nodeName( el, "input" ) ) { + + // dataPriv.set( el, "click", ... ) + leverageNative( el, "click", returnTrue ); + } + + // Return false to allow normal processing in the caller + return false; + }, + trigger: function( data ) { + + // For mutual compressibility with _default, replace `this` access with a local var. + // `|| data` is dead code meant only to preserve the variable through minification. + var el = this || data; + + // Force setup before triggering a click + if ( rcheckableType.test( el.type ) && + el.click && nodeName( el, "input" ) ) { + + leverageNative( el, "click" ); + } + + // Return non-false to allow normal event-path propagation + return true; + }, + + // For cross-browser consistency, suppress native .click() on links + // Also prevent it if we're currently inside a leveraged native-event stack + _default: function( event ) { + var target = event.target; + return rcheckableType.test( target.type ) && + target.click && nodeName( target, "input" ) && + dataPriv.get( target, "click" ) || + nodeName( target, "a" ); + } + }, + + beforeunload: { + postDispatch: function( event ) { + + // Support: Firefox 20+ + // Firefox doesn't alert if the returnValue field is not set. + if ( event.result !== undefined && event.originalEvent ) { + event.originalEvent.returnValue = event.result; + } + } + } + } +}; + +// Ensure the presence of an event listener that handles manually-triggered +// synthetic events by interrupting progress until reinvoked in response to +// *native* events that it fires directly, ensuring that state changes have +// already occurred before other listeners are invoked. +function leverageNative( el, type, expectSync ) { + + // Missing expectSync indicates a trigger call, which must force setup through jQuery.event.add + if ( !expectSync ) { + if ( dataPriv.get( el, type ) === undefined ) { + jQuery.event.add( el, type, returnTrue ); + } + return; + } + + // Register the controller as a special universal handler for all event namespaces + dataPriv.set( el, type, false ); + jQuery.event.add( el, type, { + namespace: false, + handler: function( event ) { + var notAsync, result, + saved = dataPriv.get( this, type ); + + if ( ( event.isTrigger & 1 ) && this[ type ] ) { + + // Interrupt processing of the outer synthetic .trigger()ed event + // Saved data should be false in such cases, but might be a leftover capture object + // from an async native handler (gh-4350) + if ( !saved.length ) { + + // Store arguments for use when handling the inner native event + // There will always be at least one argument (an event object), so this array + // will not be confused with a leftover capture object. + saved = slice.call( arguments ); + dataPriv.set( this, type, saved ); + + // Trigger the native event and capture its result + // Support: IE <=9 - 11+ + // focus() and blur() are asynchronous + notAsync = expectSync( this, type ); + this[ type ](); + result = dataPriv.get( this, type ); + if ( saved !== result || notAsync ) { + dataPriv.set( this, type, false ); + } else { + result = {}; + } + if ( saved !== result ) { + + // Cancel the outer synthetic event + event.stopImmediatePropagation(); + event.preventDefault(); + + // Support: Chrome 86+ + // In Chrome, if an element having a focusout handler is blurred by + // clicking outside of it, it invokes the handler synchronously. If + // that handler calls `.remove()` on the element, the data is cleared, + // leaving `result` undefined. We need to guard against this. + return result && result.value; + } + + // If this is an inner synthetic event for an event with a bubbling surrogate + // (focus or blur), assume that the surrogate already propagated from triggering the + // native event and prevent that from happening again here. + // This technically gets the ordering wrong w.r.t. to `.trigger()` (in which the + // bubbling surrogate propagates *after* the non-bubbling base), but that seems + // less bad than duplication. + } else if ( ( jQuery.event.special[ type ] || {} ).delegateType ) { + event.stopPropagation(); + } + + // If this is a native event triggered above, everything is now in order + // Fire an inner synthetic event with the original arguments + } else if ( saved.length ) { + + // ...and capture the result + dataPriv.set( this, type, { + value: jQuery.event.trigger( + + // Support: IE <=9 - 11+ + // Extend with the prototype to reset the above stopImmediatePropagation() + jQuery.extend( saved[ 0 ], jQuery.Event.prototype ), + saved.slice( 1 ), + this + ) + } ); + + // Abort handling of the native event + event.stopImmediatePropagation(); + } + } + } ); +} + +jQuery.removeEvent = function( elem, type, handle ) { + + // This "if" is needed for plain objects + if ( elem.removeEventListener ) { + elem.removeEventListener( type, handle ); + } +}; + +jQuery.Event = function( src, props ) { + + // Allow instantiation without the 'new' keyword + if ( !( this instanceof jQuery.Event ) ) { + return new jQuery.Event( src, props ); + } + + // Event object + if ( src && src.type ) { + this.originalEvent = src; + this.type = src.type; + + // Events bubbling up the document may have been marked as prevented + // by a handler lower down the tree; reflect the correct value. + this.isDefaultPrevented = src.defaultPrevented || + src.defaultPrevented === undefined && + + // Support: Android <=2.3 only + src.returnValue === false ? + returnTrue : + returnFalse; + + // Create target properties + // Support: Safari <=6 - 7 only + // Target should not be a text node (#504, #13143) + this.target = ( src.target && src.target.nodeType === 3 ) ? + src.target.parentNode : + src.target; + + this.currentTarget = src.currentTarget; + this.relatedTarget = src.relatedTarget; + + // Event type + } else { + this.type = src; + } + + // Put explicitly provided properties onto the event object + if ( props ) { + jQuery.extend( this, props ); + } + + // Create a timestamp if incoming event doesn't have one + this.timeStamp = src && src.timeStamp || Date.now(); + + // Mark it as fixed + this[ jQuery.expando ] = true; +}; + +// jQuery.Event is based on DOM3 Events as specified by the ECMAScript Language Binding +// https://www.w3.org/TR/2003/WD-DOM-Level-3-Events-20030331/ecma-script-binding.html +jQuery.Event.prototype = { + constructor: jQuery.Event, + isDefaultPrevented: returnFalse, + isPropagationStopped: returnFalse, + isImmediatePropagationStopped: returnFalse, + isSimulated: false, + + preventDefault: function() { + var e = this.originalEvent; + + this.isDefaultPrevented = returnTrue; + + if ( e && !this.isSimulated ) { + e.preventDefault(); + } + }, + stopPropagation: function() { + var e = this.originalEvent; + + this.isPropagationStopped = returnTrue; + + if ( e && !this.isSimulated ) { + e.stopPropagation(); + } + }, + stopImmediatePropagation: function() { + var e = this.originalEvent; + + this.isImmediatePropagationStopped = returnTrue; + + if ( e && !this.isSimulated ) { + e.stopImmediatePropagation(); + } + + this.stopPropagation(); + } +}; + +// Includes all common event props including KeyEvent and MouseEvent specific props +jQuery.each( { + altKey: true, + bubbles: true, + cancelable: true, + changedTouches: true, + ctrlKey: true, + detail: true, + eventPhase: true, + metaKey: true, + pageX: true, + pageY: true, + shiftKey: true, + view: true, + "char": true, + code: true, + charCode: true, + key: true, + keyCode: true, + button: true, + buttons: true, + clientX: true, + clientY: true, + offsetX: true, + offsetY: true, + pointerId: true, + pointerType: true, + screenX: true, + screenY: true, + targetTouches: true, + toElement: true, + touches: true, + which: true +}, jQuery.event.addProp ); + +jQuery.each( { focus: "focusin", blur: "focusout" }, function( type, delegateType ) { + jQuery.event.special[ type ] = { + + // Utilize native event if possible so blur/focus sequence is correct + setup: function() { + + // Claim the first handler + // dataPriv.set( this, "focus", ... ) + // dataPriv.set( this, "blur", ... ) + leverageNative( this, type, expectSync ); + + // Return false to allow normal processing in the caller + return false; + }, + trigger: function() { + + // Force setup before trigger + leverageNative( this, type ); + + // Return non-false to allow normal event-path propagation + return true; + }, + + // Suppress native focus or blur as it's already being fired + // in leverageNative. + _default: function() { + return true; + }, + + delegateType: delegateType + }; +} ); + +// Create mouseenter/leave events using mouseover/out and event-time checks +// so that event delegation works in jQuery. +// Do the same for pointerenter/pointerleave and pointerover/pointerout +// +// Support: Safari 7 only +// Safari sends mouseenter too often; see: +// https://bugs.chromium.org/p/chromium/issues/detail?id=470258 +// for the description of the bug (it existed in older Chrome versions as well). +jQuery.each( { + mouseenter: "mouseover", + mouseleave: "mouseout", + pointerenter: "pointerover", + pointerleave: "pointerout" +}, function( orig, fix ) { + jQuery.event.special[ orig ] = { + delegateType: fix, + bindType: fix, + + handle: function( event ) { + var ret, + target = this, + related = event.relatedTarget, + handleObj = event.handleObj; + + // For mouseenter/leave call the handler if related is outside the target. + // NB: No relatedTarget if the mouse left/entered the browser window + if ( !related || ( related !== target && !jQuery.contains( target, related ) ) ) { + event.type = handleObj.origType; + ret = handleObj.handler.apply( this, arguments ); + event.type = fix; + } + return ret; + } + }; +} ); + +jQuery.fn.extend( { + + on: function( types, selector, data, fn ) { + return on( this, types, selector, data, fn ); + }, + one: function( types, selector, data, fn ) { + return on( this, types, selector, data, fn, 1 ); + }, + off: function( types, selector, fn ) { + var handleObj, type; + if ( types && types.preventDefault && types.handleObj ) { + + // ( event ) dispatched jQuery.Event + handleObj = types.handleObj; + jQuery( types.delegateTarget ).off( + handleObj.namespace ? + handleObj.origType + "." + handleObj.namespace : + handleObj.origType, + handleObj.selector, + handleObj.handler + ); + return this; + } + if ( typeof types === "object" ) { + + // ( types-object [, selector] ) + for ( type in types ) { + this.off( type, selector, types[ type ] ); + } + return this; + } + if ( selector === false || typeof selector === "function" ) { + + // ( types [, fn] ) + fn = selector; + selector = undefined; + } + if ( fn === false ) { + fn = returnFalse; + } + return this.each( function() { + jQuery.event.remove( this, types, fn, selector ); + } ); + } +} ); + + +var + + // Support: IE <=10 - 11, Edge 12 - 13 only + // In IE/Edge using regex groups here causes severe slowdowns. + // See https://connect.microsoft.com/IE/feedback/details/1736512/ + rnoInnerhtml = /\s*$/g; + +// Prefer a tbody over its parent table for containing new rows +function manipulationTarget( elem, content ) { + if ( nodeName( elem, "table" ) && + nodeName( content.nodeType !== 11 ? content : content.firstChild, "tr" ) ) { + + return jQuery( elem ).children( "tbody" )[ 0 ] || elem; + } + + return elem; +} + +// Replace/restore the type attribute of script elements for safe DOM manipulation +function disableScript( elem ) { + elem.type = ( elem.getAttribute( "type" ) !== null ) + "/" + elem.type; + return elem; +} +function restoreScript( elem ) { + if ( ( elem.type || "" ).slice( 0, 5 ) === "true/" ) { + elem.type = elem.type.slice( 5 ); + } else { + elem.removeAttribute( "type" ); + } + + return elem; +} + +function cloneCopyEvent( src, dest ) { + var i, l, type, pdataOld, udataOld, udataCur, events; + + if ( dest.nodeType !== 1 ) { + return; + } + + // 1. Copy private data: events, handlers, etc. + if ( dataPriv.hasData( src ) ) { + pdataOld = dataPriv.get( src ); + events = pdataOld.events; + + if ( events ) { + dataPriv.remove( dest, "handle events" ); + + for ( type in events ) { + for ( i = 0, l = events[ type ].length; i < l; i++ ) { + jQuery.event.add( dest, type, events[ type ][ i ] ); + } + } + } + } + + // 2. Copy user data + if ( dataUser.hasData( src ) ) { + udataOld = dataUser.access( src ); + udataCur = jQuery.extend( {}, udataOld ); + + dataUser.set( dest, udataCur ); + } +} + +// Fix IE bugs, see support tests +function fixInput( src, dest ) { + var nodeName = dest.nodeName.toLowerCase(); + + // Fails to persist the checked state of a cloned checkbox or radio button. + if ( nodeName === "input" && rcheckableType.test( src.type ) ) { + dest.checked = src.checked; + + // Fails to return the selected option to the default selected state when cloning options + } else if ( nodeName === "input" || nodeName === "textarea" ) { + dest.defaultValue = src.defaultValue; + } +} + +function domManip( collection, args, callback, ignored ) { + + // Flatten any nested arrays + args = flat( args ); + + var fragment, first, scripts, hasScripts, node, doc, + i = 0, + l = collection.length, + iNoClone = l - 1, + value = args[ 0 ], + valueIsFunction = isFunction( value ); + + // We can't cloneNode fragments that contain checked, in WebKit + if ( valueIsFunction || + ( l > 1 && typeof value === "string" && + !support.checkClone && rchecked.test( value ) ) ) { + return collection.each( function( index ) { + var self = collection.eq( index ); + if ( valueIsFunction ) { + args[ 0 ] = value.call( this, index, self.html() ); + } + domManip( self, args, callback, ignored ); + } ); + } + + if ( l ) { + fragment = buildFragment( args, collection[ 0 ].ownerDocument, false, collection, ignored ); + first = fragment.firstChild; + + if ( fragment.childNodes.length === 1 ) { + fragment = first; + } + + // Require either new content or an interest in ignored elements to invoke the callback + if ( first || ignored ) { + scripts = jQuery.map( getAll( fragment, "script" ), disableScript ); + hasScripts = scripts.length; + + // Use the original fragment for the last item + // instead of the first because it can end up + // being emptied incorrectly in certain situations (#8070). + for ( ; i < l; i++ ) { + node = fragment; + + if ( i !== iNoClone ) { + node = jQuery.clone( node, true, true ); + + // Keep references to cloned scripts for later restoration + if ( hasScripts ) { + + // Support: Android <=4.0 only, PhantomJS 1 only + // push.apply(_, arraylike) throws on ancient WebKit + jQuery.merge( scripts, getAll( node, "script" ) ); + } + } + + callback.call( collection[ i ], node, i ); + } + + if ( hasScripts ) { + doc = scripts[ scripts.length - 1 ].ownerDocument; + + // Reenable scripts + jQuery.map( scripts, restoreScript ); + + // Evaluate executable scripts on first document insertion + for ( i = 0; i < hasScripts; i++ ) { + node = scripts[ i ]; + if ( rscriptType.test( node.type || "" ) && + !dataPriv.access( node, "globalEval" ) && + jQuery.contains( doc, node ) ) { + + if ( node.src && ( node.type || "" ).toLowerCase() !== "module" ) { + + // Optional AJAX dependency, but won't run scripts if not present + if ( jQuery._evalUrl && !node.noModule ) { + jQuery._evalUrl( node.src, { + nonce: node.nonce || node.getAttribute( "nonce" ) + }, doc ); + } + } else { + DOMEval( node.textContent.replace( rcleanScript, "" ), node, doc ); + } + } + } + } + } + } + + return collection; +} + +function remove( elem, selector, keepData ) { + var node, + nodes = selector ? jQuery.filter( selector, elem ) : elem, + i = 0; + + for ( ; ( node = nodes[ i ] ) != null; i++ ) { + if ( !keepData && node.nodeType === 1 ) { + jQuery.cleanData( getAll( node ) ); + } + + if ( node.parentNode ) { + if ( keepData && isAttached( node ) ) { + setGlobalEval( getAll( node, "script" ) ); + } + node.parentNode.removeChild( node ); + } + } + + return elem; +} + +jQuery.extend( { + htmlPrefilter: function( html ) { + return html; + }, + + clone: function( elem, dataAndEvents, deepDataAndEvents ) { + var i, l, srcElements, destElements, + clone = elem.cloneNode( true ), + inPage = isAttached( elem ); + + // Fix IE cloning issues + if ( !support.noCloneChecked && ( elem.nodeType === 1 || elem.nodeType === 11 ) && + !jQuery.isXMLDoc( elem ) ) { + + // We eschew Sizzle here for performance reasons: https://jsperf.com/getall-vs-sizzle/2 + destElements = getAll( clone ); + srcElements = getAll( elem ); + + for ( i = 0, l = srcElements.length; i < l; i++ ) { + fixInput( srcElements[ i ], destElements[ i ] ); + } + } + + // Copy the events from the original to the clone + if ( dataAndEvents ) { + if ( deepDataAndEvents ) { + srcElements = srcElements || getAll( elem ); + destElements = destElements || getAll( clone ); + + for ( i = 0, l = srcElements.length; i < l; i++ ) { + cloneCopyEvent( srcElements[ i ], destElements[ i ] ); + } + } else { + cloneCopyEvent( elem, clone ); + } + } + + // Preserve script evaluation history + destElements = getAll( clone, "script" ); + if ( destElements.length > 0 ) { + setGlobalEval( destElements, !inPage && getAll( elem, "script" ) ); + } + + // Return the cloned set + return clone; + }, + + cleanData: function( elems ) { + var data, elem, type, + special = jQuery.event.special, + i = 0; + + for ( ; ( elem = elems[ i ] ) !== undefined; i++ ) { + if ( acceptData( elem ) ) { + if ( ( data = elem[ dataPriv.expando ] ) ) { + if ( data.events ) { + for ( type in data.events ) { + if ( special[ type ] ) { + jQuery.event.remove( elem, type ); + + // This is a shortcut to avoid jQuery.event.remove's overhead + } else { + jQuery.removeEvent( elem, type, data.handle ); + } + } + } + + // Support: Chrome <=35 - 45+ + // Assign undefined instead of using delete, see Data#remove + elem[ dataPriv.expando ] = undefined; + } + if ( elem[ dataUser.expando ] ) { + + // Support: Chrome <=35 - 45+ + // Assign undefined instead of using delete, see Data#remove + elem[ dataUser.expando ] = undefined; + } + } + } + } +} ); + +jQuery.fn.extend( { + detach: function( selector ) { + return remove( this, selector, true ); + }, + + remove: function( selector ) { + return remove( this, selector ); + }, + + text: function( value ) { + return access( this, function( value ) { + return value === undefined ? + jQuery.text( this ) : + this.empty().each( function() { + if ( this.nodeType === 1 || this.nodeType === 11 || this.nodeType === 9 ) { + this.textContent = value; + } + } ); + }, null, value, arguments.length ); + }, + + append: function() { + return domManip( this, arguments, function( elem ) { + if ( this.nodeType === 1 || this.nodeType === 11 || this.nodeType === 9 ) { + var target = manipulationTarget( this, elem ); + target.appendChild( elem ); + } + } ); + }, + + prepend: function() { + return domManip( this, arguments, function( elem ) { + if ( this.nodeType === 1 || this.nodeType === 11 || this.nodeType === 9 ) { + var target = manipulationTarget( this, elem ); + target.insertBefore( elem, target.firstChild ); + } + } ); + }, + + before: function() { + return domManip( this, arguments, function( elem ) { + if ( this.parentNode ) { + this.parentNode.insertBefore( elem, this ); + } + } ); + }, + + after: function() { + return domManip( this, arguments, function( elem ) { + if ( this.parentNode ) { + this.parentNode.insertBefore( elem, this.nextSibling ); + } + } ); + }, + + empty: function() { + var elem, + i = 0; + + for ( ; ( elem = this[ i ] ) != null; i++ ) { + if ( elem.nodeType === 1 ) { + + // Prevent memory leaks + jQuery.cleanData( getAll( elem, false ) ); + + // Remove any remaining nodes + elem.textContent = ""; + } + } + + return this; + }, + + clone: function( dataAndEvents, deepDataAndEvents ) { + dataAndEvents = dataAndEvents == null ? false : dataAndEvents; + deepDataAndEvents = deepDataAndEvents == null ? dataAndEvents : deepDataAndEvents; + + return this.map( function() { + return jQuery.clone( this, dataAndEvents, deepDataAndEvents ); + } ); + }, + + html: function( value ) { + return access( this, function( value ) { + var elem = this[ 0 ] || {}, + i = 0, + l = this.length; + + if ( value === undefined && elem.nodeType === 1 ) { + return elem.innerHTML; + } + + // See if we can take a shortcut and just use innerHTML + if ( typeof value === "string" && !rnoInnerhtml.test( value ) && + !wrapMap[ ( rtagName.exec( value ) || [ "", "" ] )[ 1 ].toLowerCase() ] ) { + + value = jQuery.htmlPrefilter( value ); + + try { + for ( ; i < l; i++ ) { + elem = this[ i ] || {}; + + // Remove element nodes and prevent memory leaks + if ( elem.nodeType === 1 ) { + jQuery.cleanData( getAll( elem, false ) ); + elem.innerHTML = value; + } + } + + elem = 0; + + // If using innerHTML throws an exception, use the fallback method + } catch ( e ) {} + } + + if ( elem ) { + this.empty().append( value ); + } + }, null, value, arguments.length ); + }, + + replaceWith: function() { + var ignored = []; + + // Make the changes, replacing each non-ignored context element with the new content + return domManip( this, arguments, function( elem ) { + var parent = this.parentNode; + + if ( jQuery.inArray( this, ignored ) < 0 ) { + jQuery.cleanData( getAll( this ) ); + if ( parent ) { + parent.replaceChild( elem, this ); + } + } + + // Force callback invocation + }, ignored ); + } +} ); + +jQuery.each( { + appendTo: "append", + prependTo: "prepend", + insertBefore: "before", + insertAfter: "after", + replaceAll: "replaceWith" +}, function( name, original ) { + jQuery.fn[ name ] = function( selector ) { + var elems, + ret = [], + insert = jQuery( selector ), + last = insert.length - 1, + i = 0; + + for ( ; i <= last; i++ ) { + elems = i === last ? this : this.clone( true ); + jQuery( insert[ i ] )[ original ]( elems ); + + // Support: Android <=4.0 only, PhantomJS 1 only + // .get() because push.apply(_, arraylike) throws on ancient WebKit + push.apply( ret, elems.get() ); + } + + return this.pushStack( ret ); + }; +} ); +var rnumnonpx = new RegExp( "^(" + pnum + ")(?!px)[a-z%]+$", "i" ); + +var getStyles = function( elem ) { + + // Support: IE <=11 only, Firefox <=30 (#15098, #14150) + // IE throws on elements created in popups + // FF meanwhile throws on frame elements through "defaultView.getComputedStyle" + var view = elem.ownerDocument.defaultView; + + if ( !view || !view.opener ) { + view = window; + } + + return view.getComputedStyle( elem ); + }; + +var swap = function( elem, options, callback ) { + var ret, name, + old = {}; + + // Remember the old values, and insert the new ones + for ( name in options ) { + old[ name ] = elem.style[ name ]; + elem.style[ name ] = options[ name ]; + } + + ret = callback.call( elem ); + + // Revert the old values + for ( name in options ) { + elem.style[ name ] = old[ name ]; + } + + return ret; +}; + + +var rboxStyle = new RegExp( cssExpand.join( "|" ), "i" ); + + + +( function() { + + // Executing both pixelPosition & boxSizingReliable tests require only one layout + // so they're executed at the same time to save the second computation. + function computeStyleTests() { + + // This is a singleton, we need to execute it only once + if ( !div ) { + return; + } + + container.style.cssText = "position:absolute;left:-11111px;width:60px;" + + "margin-top:1px;padding:0;border:0"; + div.style.cssText = + "position:relative;display:block;box-sizing:border-box;overflow:scroll;" + + "margin:auto;border:1px;padding:1px;" + + "width:60%;top:1%"; + documentElement.appendChild( container ).appendChild( div ); + + var divStyle = window.getComputedStyle( div ); + pixelPositionVal = divStyle.top !== "1%"; + + // Support: Android 4.0 - 4.3 only, Firefox <=3 - 44 + reliableMarginLeftVal = roundPixelMeasures( divStyle.marginLeft ) === 12; + + // Support: Android 4.0 - 4.3 only, Safari <=9.1 - 10.1, iOS <=7.0 - 9.3 + // Some styles come back with percentage values, even though they shouldn't + div.style.right = "60%"; + pixelBoxStylesVal = roundPixelMeasures( divStyle.right ) === 36; + + // Support: IE 9 - 11 only + // Detect misreporting of content dimensions for box-sizing:border-box elements + boxSizingReliableVal = roundPixelMeasures( divStyle.width ) === 36; + + // Support: IE 9 only + // Detect overflow:scroll screwiness (gh-3699) + // Support: Chrome <=64 + // Don't get tricked when zoom affects offsetWidth (gh-4029) + div.style.position = "absolute"; + scrollboxSizeVal = roundPixelMeasures( div.offsetWidth / 3 ) === 12; + + documentElement.removeChild( container ); + + // Nullify the div so it wouldn't be stored in the memory and + // it will also be a sign that checks already performed + div = null; + } + + function roundPixelMeasures( measure ) { + return Math.round( parseFloat( measure ) ); + } + + var pixelPositionVal, boxSizingReliableVal, scrollboxSizeVal, pixelBoxStylesVal, + reliableTrDimensionsVal, reliableMarginLeftVal, + container = document.createElement( "div" ), + div = document.createElement( "div" ); + + // Finish early in limited (non-browser) environments + if ( !div.style ) { + return; + } + + // Support: IE <=9 - 11 only + // Style of cloned element affects source element cloned (#8908) + div.style.backgroundClip = "content-box"; + div.cloneNode( true ).style.backgroundClip = ""; + support.clearCloneStyle = div.style.backgroundClip === "content-box"; + + jQuery.extend( support, { + boxSizingReliable: function() { + computeStyleTests(); + return boxSizingReliableVal; + }, + pixelBoxStyles: function() { + computeStyleTests(); + return pixelBoxStylesVal; + }, + pixelPosition: function() { + computeStyleTests(); + return pixelPositionVal; + }, + reliableMarginLeft: function() { + computeStyleTests(); + return reliableMarginLeftVal; + }, + scrollboxSize: function() { + computeStyleTests(); + return scrollboxSizeVal; + }, + + // Support: IE 9 - 11+, Edge 15 - 18+ + // IE/Edge misreport `getComputedStyle` of table rows with width/height + // set in CSS while `offset*` properties report correct values. + // Behavior in IE 9 is more subtle than in newer versions & it passes + // some versions of this test; make sure not to make it pass there! + // + // Support: Firefox 70+ + // Only Firefox includes border widths + // in computed dimensions. (gh-4529) + reliableTrDimensions: function() { + var table, tr, trChild, trStyle; + if ( reliableTrDimensionsVal == null ) { + table = document.createElement( "table" ); + tr = document.createElement( "tr" ); + trChild = document.createElement( "div" ); + + table.style.cssText = "position:absolute;left:-11111px;border-collapse:separate"; + tr.style.cssText = "border:1px solid"; + + // Support: Chrome 86+ + // Height set through cssText does not get applied. + // Computed height then comes back as 0. + tr.style.height = "1px"; + trChild.style.height = "9px"; + + // Support: Android 8 Chrome 86+ + // In our bodyBackground.html iframe, + // display for all div elements is set to "inline", + // which causes a problem only in Android 8 Chrome 86. + // Ensuring the div is display: block + // gets around this issue. + trChild.style.display = "block"; + + documentElement + .appendChild( table ) + .appendChild( tr ) + .appendChild( trChild ); + + trStyle = window.getComputedStyle( tr ); + reliableTrDimensionsVal = ( parseInt( trStyle.height, 10 ) + + parseInt( trStyle.borderTopWidth, 10 ) + + parseInt( trStyle.borderBottomWidth, 10 ) ) === tr.offsetHeight; + + documentElement.removeChild( table ); + } + return reliableTrDimensionsVal; + } + } ); +} )(); + + +function curCSS( elem, name, computed ) { + var width, minWidth, maxWidth, ret, + + // Support: Firefox 51+ + // Retrieving style before computed somehow + // fixes an issue with getting wrong values + // on detached elements + style = elem.style; + + computed = computed || getStyles( elem ); + + // getPropertyValue is needed for: + // .css('filter') (IE 9 only, #12537) + // .css('--customProperty) (#3144) + if ( computed ) { + ret = computed.getPropertyValue( name ) || computed[ name ]; + + if ( ret === "" && !isAttached( elem ) ) { + ret = jQuery.style( elem, name ); + } + + // A tribute to the "awesome hack by Dean Edwards" + // Android Browser returns percentage for some values, + // but width seems to be reliably pixels. + // This is against the CSSOM draft spec: + // https://drafts.csswg.org/cssom/#resolved-values + if ( !support.pixelBoxStyles() && rnumnonpx.test( ret ) && rboxStyle.test( name ) ) { + + // Remember the original values + width = style.width; + minWidth = style.minWidth; + maxWidth = style.maxWidth; + + // Put in the new values to get a computed value out + style.minWidth = style.maxWidth = style.width = ret; + ret = computed.width; + + // Revert the changed values + style.width = width; + style.minWidth = minWidth; + style.maxWidth = maxWidth; + } + } + + return ret !== undefined ? + + // Support: IE <=9 - 11 only + // IE returns zIndex value as an integer. + ret + "" : + ret; +} + + +function addGetHookIf( conditionFn, hookFn ) { + + // Define the hook, we'll check on the first run if it's really needed. + return { + get: function() { + if ( conditionFn() ) { + + // Hook not needed (or it's not possible to use it due + // to missing dependency), remove it. + delete this.get; + return; + } + + // Hook needed; redefine it so that the support test is not executed again. + return ( this.get = hookFn ).apply( this, arguments ); + } + }; +} + + +var cssPrefixes = [ "Webkit", "Moz", "ms" ], + emptyStyle = document.createElement( "div" ).style, + vendorProps = {}; + +// Return a vendor-prefixed property or undefined +function vendorPropName( name ) { + + // Check for vendor prefixed names + var capName = name[ 0 ].toUpperCase() + name.slice( 1 ), + i = cssPrefixes.length; + + while ( i-- ) { + name = cssPrefixes[ i ] + capName; + if ( name in emptyStyle ) { + return name; + } + } +} + +// Return a potentially-mapped jQuery.cssProps or vendor prefixed property +function finalPropName( name ) { + var final = jQuery.cssProps[ name ] || vendorProps[ name ]; + + if ( final ) { + return final; + } + if ( name in emptyStyle ) { + return name; + } + return vendorProps[ name ] = vendorPropName( name ) || name; +} + + +var + + // Swappable if display is none or starts with table + // except "table", "table-cell", or "table-caption" + // See here for display values: https://developer.mozilla.org/en-US/docs/CSS/display + rdisplayswap = /^(none|table(?!-c[ea]).+)/, + rcustomProp = /^--/, + cssShow = { position: "absolute", visibility: "hidden", display: "block" }, + cssNormalTransform = { + letterSpacing: "0", + fontWeight: "400" + }; + +function setPositiveNumber( _elem, value, subtract ) { + + // Any relative (+/-) values have already been + // normalized at this point + var matches = rcssNum.exec( value ); + return matches ? + + // Guard against undefined "subtract", e.g., when used as in cssHooks + Math.max( 0, matches[ 2 ] - ( subtract || 0 ) ) + ( matches[ 3 ] || "px" ) : + value; +} + +function boxModelAdjustment( elem, dimension, box, isBorderBox, styles, computedVal ) { + var i = dimension === "width" ? 1 : 0, + extra = 0, + delta = 0; + + // Adjustment may not be necessary + if ( box === ( isBorderBox ? "border" : "content" ) ) { + return 0; + } + + for ( ; i < 4; i += 2 ) { + + // Both box models exclude margin + if ( box === "margin" ) { + delta += jQuery.css( elem, box + cssExpand[ i ], true, styles ); + } + + // If we get here with a content-box, we're seeking "padding" or "border" or "margin" + if ( !isBorderBox ) { + + // Add padding + delta += jQuery.css( elem, "padding" + cssExpand[ i ], true, styles ); + + // For "border" or "margin", add border + if ( box !== "padding" ) { + delta += jQuery.css( elem, "border" + cssExpand[ i ] + "Width", true, styles ); + + // But still keep track of it otherwise + } else { + extra += jQuery.css( elem, "border" + cssExpand[ i ] + "Width", true, styles ); + } + + // If we get here with a border-box (content + padding + border), we're seeking "content" or + // "padding" or "margin" + } else { + + // For "content", subtract padding + if ( box === "content" ) { + delta -= jQuery.css( elem, "padding" + cssExpand[ i ], true, styles ); + } + + // For "content" or "padding", subtract border + if ( box !== "margin" ) { + delta -= jQuery.css( elem, "border" + cssExpand[ i ] + "Width", true, styles ); + } + } + } + + // Account for positive content-box scroll gutter when requested by providing computedVal + if ( !isBorderBox && computedVal >= 0 ) { + + // offsetWidth/offsetHeight is a rounded sum of content, padding, scroll gutter, and border + // Assuming integer scroll gutter, subtract the rest and round down + delta += Math.max( 0, Math.ceil( + elem[ "offset" + dimension[ 0 ].toUpperCase() + dimension.slice( 1 ) ] - + computedVal - + delta - + extra - + 0.5 + + // If offsetWidth/offsetHeight is unknown, then we can't determine content-box scroll gutter + // Use an explicit zero to avoid NaN (gh-3964) + ) ) || 0; + } + + return delta; +} + +function getWidthOrHeight( elem, dimension, extra ) { + + // Start with computed style + var styles = getStyles( elem ), + + // To avoid forcing a reflow, only fetch boxSizing if we need it (gh-4322). + // Fake content-box until we know it's needed to know the true value. + boxSizingNeeded = !support.boxSizingReliable() || extra, + isBorderBox = boxSizingNeeded && + jQuery.css( elem, "boxSizing", false, styles ) === "border-box", + valueIsBorderBox = isBorderBox, + + val = curCSS( elem, dimension, styles ), + offsetProp = "offset" + dimension[ 0 ].toUpperCase() + dimension.slice( 1 ); + + // Support: Firefox <=54 + // Return a confounding non-pixel value or feign ignorance, as appropriate. + if ( rnumnonpx.test( val ) ) { + if ( !extra ) { + return val; + } + val = "auto"; + } + + + // Support: IE 9 - 11 only + // Use offsetWidth/offsetHeight for when box sizing is unreliable. + // In those cases, the computed value can be trusted to be border-box. + if ( ( !support.boxSizingReliable() && isBorderBox || + + // Support: IE 10 - 11+, Edge 15 - 18+ + // IE/Edge misreport `getComputedStyle` of table rows with width/height + // set in CSS while `offset*` properties report correct values. + // Interestingly, in some cases IE 9 doesn't suffer from this issue. + !support.reliableTrDimensions() && nodeName( elem, "tr" ) || + + // Fall back to offsetWidth/offsetHeight when value is "auto" + // This happens for inline elements with no explicit setting (gh-3571) + val === "auto" || + + // Support: Android <=4.1 - 4.3 only + // Also use offsetWidth/offsetHeight for misreported inline dimensions (gh-3602) + !parseFloat( val ) && jQuery.css( elem, "display", false, styles ) === "inline" ) && + + // Make sure the element is visible & connected + elem.getClientRects().length ) { + + isBorderBox = jQuery.css( elem, "boxSizing", false, styles ) === "border-box"; + + // Where available, offsetWidth/offsetHeight approximate border box dimensions. + // Where not available (e.g., SVG), assume unreliable box-sizing and interpret the + // retrieved value as a content box dimension. + valueIsBorderBox = offsetProp in elem; + if ( valueIsBorderBox ) { + val = elem[ offsetProp ]; + } + } + + // Normalize "" and auto + val = parseFloat( val ) || 0; + + // Adjust for the element's box model + return ( val + + boxModelAdjustment( + elem, + dimension, + extra || ( isBorderBox ? "border" : "content" ), + valueIsBorderBox, + styles, + + // Provide the current computed size to request scroll gutter calculation (gh-3589) + val + ) + ) + "px"; +} + +jQuery.extend( { + + // Add in style property hooks for overriding the default + // behavior of getting and setting a style property + cssHooks: { + opacity: { + get: function( elem, computed ) { + if ( computed ) { + + // We should always get a number back from opacity + var ret = curCSS( elem, "opacity" ); + return ret === "" ? "1" : ret; + } + } + } + }, + + // Don't automatically add "px" to these possibly-unitless properties + cssNumber: { + "animationIterationCount": true, + "columnCount": true, + "fillOpacity": true, + "flexGrow": true, + "flexShrink": true, + "fontWeight": true, + "gridArea": true, + "gridColumn": true, + "gridColumnEnd": true, + "gridColumnStart": true, + "gridRow": true, + "gridRowEnd": true, + "gridRowStart": true, + "lineHeight": true, + "opacity": true, + "order": true, + "orphans": true, + "widows": true, + "zIndex": true, + "zoom": true + }, + + // Add in properties whose names you wish to fix before + // setting or getting the value + cssProps: {}, + + // Get and set the style property on a DOM Node + style: function( elem, name, value, extra ) { + + // Don't set styles on text and comment nodes + if ( !elem || elem.nodeType === 3 || elem.nodeType === 8 || !elem.style ) { + return; + } + + // Make sure that we're working with the right name + var ret, type, hooks, + origName = camelCase( name ), + isCustomProp = rcustomProp.test( name ), + style = elem.style; + + // Make sure that we're working with the right name. We don't + // want to query the value if it is a CSS custom property + // since they are user-defined. + if ( !isCustomProp ) { + name = finalPropName( origName ); + } + + // Gets hook for the prefixed version, then unprefixed version + hooks = jQuery.cssHooks[ name ] || jQuery.cssHooks[ origName ]; + + // Check if we're setting a value + if ( value !== undefined ) { + type = typeof value; + + // Convert "+=" or "-=" to relative numbers (#7345) + if ( type === "string" && ( ret = rcssNum.exec( value ) ) && ret[ 1 ] ) { + value = adjustCSS( elem, name, ret ); + + // Fixes bug #9237 + type = "number"; + } + + // Make sure that null and NaN values aren't set (#7116) + if ( value == null || value !== value ) { + return; + } + + // If a number was passed in, add the unit (except for certain CSS properties) + // The isCustomProp check can be removed in jQuery 4.0 when we only auto-append + // "px" to a few hardcoded values. + if ( type === "number" && !isCustomProp ) { + value += ret && ret[ 3 ] || ( jQuery.cssNumber[ origName ] ? "" : "px" ); + } + + // background-* props affect original clone's values + if ( !support.clearCloneStyle && value === "" && name.indexOf( "background" ) === 0 ) { + style[ name ] = "inherit"; + } + + // If a hook was provided, use that value, otherwise just set the specified value + if ( !hooks || !( "set" in hooks ) || + ( value = hooks.set( elem, value, extra ) ) !== undefined ) { + + if ( isCustomProp ) { + style.setProperty( name, value ); + } else { + style[ name ] = value; + } + } + + } else { + + // If a hook was provided get the non-computed value from there + if ( hooks && "get" in hooks && + ( ret = hooks.get( elem, false, extra ) ) !== undefined ) { + + return ret; + } + + // Otherwise just get the value from the style object + return style[ name ]; + } + }, + + css: function( elem, name, extra, styles ) { + var val, num, hooks, + origName = camelCase( name ), + isCustomProp = rcustomProp.test( name ); + + // Make sure that we're working with the right name. We don't + // want to modify the value if it is a CSS custom property + // since they are user-defined. + if ( !isCustomProp ) { + name = finalPropName( origName ); + } + + // Try prefixed name followed by the unprefixed name + hooks = jQuery.cssHooks[ name ] || jQuery.cssHooks[ origName ]; + + // If a hook was provided get the computed value from there + if ( hooks && "get" in hooks ) { + val = hooks.get( elem, true, extra ); + } + + // Otherwise, if a way to get the computed value exists, use that + if ( val === undefined ) { + val = curCSS( elem, name, styles ); + } + + // Convert "normal" to computed value + if ( val === "normal" && name in cssNormalTransform ) { + val = cssNormalTransform[ name ]; + } + + // Make numeric if forced or a qualifier was provided and val looks numeric + if ( extra === "" || extra ) { + num = parseFloat( val ); + return extra === true || isFinite( num ) ? num || 0 : val; + } + + return val; + } +} ); + +jQuery.each( [ "height", "width" ], function( _i, dimension ) { + jQuery.cssHooks[ dimension ] = { + get: function( elem, computed, extra ) { + if ( computed ) { + + // Certain elements can have dimension info if we invisibly show them + // but it must have a current display style that would benefit + return rdisplayswap.test( jQuery.css( elem, "display" ) ) && + + // Support: Safari 8+ + // Table columns in Safari have non-zero offsetWidth & zero + // getBoundingClientRect().width unless display is changed. + // Support: IE <=11 only + // Running getBoundingClientRect on a disconnected node + // in IE throws an error. + ( !elem.getClientRects().length || !elem.getBoundingClientRect().width ) ? + swap( elem, cssShow, function() { + return getWidthOrHeight( elem, dimension, extra ); + } ) : + getWidthOrHeight( elem, dimension, extra ); + } + }, + + set: function( elem, value, extra ) { + var matches, + styles = getStyles( elem ), + + // Only read styles.position if the test has a chance to fail + // to avoid forcing a reflow. + scrollboxSizeBuggy = !support.scrollboxSize() && + styles.position === "absolute", + + // To avoid forcing a reflow, only fetch boxSizing if we need it (gh-3991) + boxSizingNeeded = scrollboxSizeBuggy || extra, + isBorderBox = boxSizingNeeded && + jQuery.css( elem, "boxSizing", false, styles ) === "border-box", + subtract = extra ? + boxModelAdjustment( + elem, + dimension, + extra, + isBorderBox, + styles + ) : + 0; + + // Account for unreliable border-box dimensions by comparing offset* to computed and + // faking a content-box to get border and padding (gh-3699) + if ( isBorderBox && scrollboxSizeBuggy ) { + subtract -= Math.ceil( + elem[ "offset" + dimension[ 0 ].toUpperCase() + dimension.slice( 1 ) ] - + parseFloat( styles[ dimension ] ) - + boxModelAdjustment( elem, dimension, "border", false, styles ) - + 0.5 + ); + } + + // Convert to pixels if value adjustment is needed + if ( subtract && ( matches = rcssNum.exec( value ) ) && + ( matches[ 3 ] || "px" ) !== "px" ) { + + elem.style[ dimension ] = value; + value = jQuery.css( elem, dimension ); + } + + return setPositiveNumber( elem, value, subtract ); + } + }; +} ); + +jQuery.cssHooks.marginLeft = addGetHookIf( support.reliableMarginLeft, + function( elem, computed ) { + if ( computed ) { + return ( parseFloat( curCSS( elem, "marginLeft" ) ) || + elem.getBoundingClientRect().left - + swap( elem, { marginLeft: 0 }, function() { + return elem.getBoundingClientRect().left; + } ) + ) + "px"; + } + } +); + +// These hooks are used by animate to expand properties +jQuery.each( { + margin: "", + padding: "", + border: "Width" +}, function( prefix, suffix ) { + jQuery.cssHooks[ prefix + suffix ] = { + expand: function( value ) { + var i = 0, + expanded = {}, + + // Assumes a single number if not a string + parts = typeof value === "string" ? value.split( " " ) : [ value ]; + + for ( ; i < 4; i++ ) { + expanded[ prefix + cssExpand[ i ] + suffix ] = + parts[ i ] || parts[ i - 2 ] || parts[ 0 ]; + } + + return expanded; + } + }; + + if ( prefix !== "margin" ) { + jQuery.cssHooks[ prefix + suffix ].set = setPositiveNumber; + } +} ); + +jQuery.fn.extend( { + css: function( name, value ) { + return access( this, function( elem, name, value ) { + var styles, len, + map = {}, + i = 0; + + if ( Array.isArray( name ) ) { + styles = getStyles( elem ); + len = name.length; + + for ( ; i < len; i++ ) { + map[ name[ i ] ] = jQuery.css( elem, name[ i ], false, styles ); + } + + return map; + } + + return value !== undefined ? + jQuery.style( elem, name, value ) : + jQuery.css( elem, name ); + }, name, value, arguments.length > 1 ); + } +} ); + + +function Tween( elem, options, prop, end, easing ) { + return new Tween.prototype.init( elem, options, prop, end, easing ); +} +jQuery.Tween = Tween; + +Tween.prototype = { + constructor: Tween, + init: function( elem, options, prop, end, easing, unit ) { + this.elem = elem; + this.prop = prop; + this.easing = easing || jQuery.easing._default; + this.options = options; + this.start = this.now = this.cur(); + this.end = end; + this.unit = unit || ( jQuery.cssNumber[ prop ] ? "" : "px" ); + }, + cur: function() { + var hooks = Tween.propHooks[ this.prop ]; + + return hooks && hooks.get ? + hooks.get( this ) : + Tween.propHooks._default.get( this ); + }, + run: function( percent ) { + var eased, + hooks = Tween.propHooks[ this.prop ]; + + if ( this.options.duration ) { + this.pos = eased = jQuery.easing[ this.easing ]( + percent, this.options.duration * percent, 0, 1, this.options.duration + ); + } else { + this.pos = eased = percent; + } + this.now = ( this.end - this.start ) * eased + this.start; + + if ( this.options.step ) { + this.options.step.call( this.elem, this.now, this ); + } + + if ( hooks && hooks.set ) { + hooks.set( this ); + } else { + Tween.propHooks._default.set( this ); + } + return this; + } +}; + +Tween.prototype.init.prototype = Tween.prototype; + +Tween.propHooks = { + _default: { + get: function( tween ) { + var result; + + // Use a property on the element directly when it is not a DOM element, + // or when there is no matching style property that exists. + if ( tween.elem.nodeType !== 1 || + tween.elem[ tween.prop ] != null && tween.elem.style[ tween.prop ] == null ) { + return tween.elem[ tween.prop ]; + } + + // Passing an empty string as a 3rd parameter to .css will automatically + // attempt a parseFloat and fallback to a string if the parse fails. + // Simple values such as "10px" are parsed to Float; + // complex values such as "rotate(1rad)" are returned as-is. + result = jQuery.css( tween.elem, tween.prop, "" ); + + // Empty strings, null, undefined and "auto" are converted to 0. + return !result || result === "auto" ? 0 : result; + }, + set: function( tween ) { + + // Use step hook for back compat. + // Use cssHook if its there. + // Use .style if available and use plain properties where available. + if ( jQuery.fx.step[ tween.prop ] ) { + jQuery.fx.step[ tween.prop ]( tween ); + } else if ( tween.elem.nodeType === 1 && ( + jQuery.cssHooks[ tween.prop ] || + tween.elem.style[ finalPropName( tween.prop ) ] != null ) ) { + jQuery.style( tween.elem, tween.prop, tween.now + tween.unit ); + } else { + tween.elem[ tween.prop ] = tween.now; + } + } + } +}; + +// Support: IE <=9 only +// Panic based approach to setting things on disconnected nodes +Tween.propHooks.scrollTop = Tween.propHooks.scrollLeft = { + set: function( tween ) { + if ( tween.elem.nodeType && tween.elem.parentNode ) { + tween.elem[ tween.prop ] = tween.now; + } + } +}; + +jQuery.easing = { + linear: function( p ) { + return p; + }, + swing: function( p ) { + return 0.5 - Math.cos( p * Math.PI ) / 2; + }, + _default: "swing" +}; + +jQuery.fx = Tween.prototype.init; + +// Back compat <1.8 extension point +jQuery.fx.step = {}; + + + + +var + fxNow, inProgress, + rfxtypes = /^(?:toggle|show|hide)$/, + rrun = /queueHooks$/; + +function schedule() { + if ( inProgress ) { + if ( document.hidden === false && window.requestAnimationFrame ) { + window.requestAnimationFrame( schedule ); + } else { + window.setTimeout( schedule, jQuery.fx.interval ); + } + + jQuery.fx.tick(); + } +} + +// Animations created synchronously will run synchronously +function createFxNow() { + window.setTimeout( function() { + fxNow = undefined; + } ); + return ( fxNow = Date.now() ); +} + +// Generate parameters to create a standard animation +function genFx( type, includeWidth ) { + var which, + i = 0, + attrs = { height: type }; + + // If we include width, step value is 1 to do all cssExpand values, + // otherwise step value is 2 to skip over Left and Right + includeWidth = includeWidth ? 1 : 0; + for ( ; i < 4; i += 2 - includeWidth ) { + which = cssExpand[ i ]; + attrs[ "margin" + which ] = attrs[ "padding" + which ] = type; + } + + if ( includeWidth ) { + attrs.opacity = attrs.width = type; + } + + return attrs; +} + +function createTween( value, prop, animation ) { + var tween, + collection = ( Animation.tweeners[ prop ] || [] ).concat( Animation.tweeners[ "*" ] ), + index = 0, + length = collection.length; + for ( ; index < length; index++ ) { + if ( ( tween = collection[ index ].call( animation, prop, value ) ) ) { + + // We're done with this property + return tween; + } + } +} + +function defaultPrefilter( elem, props, opts ) { + var prop, value, toggle, hooks, oldfire, propTween, restoreDisplay, display, + isBox = "width" in props || "height" in props, + anim = this, + orig = {}, + style = elem.style, + hidden = elem.nodeType && isHiddenWithinTree( elem ), + dataShow = dataPriv.get( elem, "fxshow" ); + + // Queue-skipping animations hijack the fx hooks + if ( !opts.queue ) { + hooks = jQuery._queueHooks( elem, "fx" ); + if ( hooks.unqueued == null ) { + hooks.unqueued = 0; + oldfire = hooks.empty.fire; + hooks.empty.fire = function() { + if ( !hooks.unqueued ) { + oldfire(); + } + }; + } + hooks.unqueued++; + + anim.always( function() { + + // Ensure the complete handler is called before this completes + anim.always( function() { + hooks.unqueued--; + if ( !jQuery.queue( elem, "fx" ).length ) { + hooks.empty.fire(); + } + } ); + } ); + } + + // Detect show/hide animations + for ( prop in props ) { + value = props[ prop ]; + if ( rfxtypes.test( value ) ) { + delete props[ prop ]; + toggle = toggle || value === "toggle"; + if ( value === ( hidden ? "hide" : "show" ) ) { + + // Pretend to be hidden if this is a "show" and + // there is still data from a stopped show/hide + if ( value === "show" && dataShow && dataShow[ prop ] !== undefined ) { + hidden = true; + + // Ignore all other no-op show/hide data + } else { + continue; + } + } + orig[ prop ] = dataShow && dataShow[ prop ] || jQuery.style( elem, prop ); + } + } + + // Bail out if this is a no-op like .hide().hide() + propTween = !jQuery.isEmptyObject( props ); + if ( !propTween && jQuery.isEmptyObject( orig ) ) { + return; + } + + // Restrict "overflow" and "display" styles during box animations + if ( isBox && elem.nodeType === 1 ) { + + // Support: IE <=9 - 11, Edge 12 - 15 + // Record all 3 overflow attributes because IE does not infer the shorthand + // from identically-valued overflowX and overflowY and Edge just mirrors + // the overflowX value there. + opts.overflow = [ style.overflow, style.overflowX, style.overflowY ]; + + // Identify a display type, preferring old show/hide data over the CSS cascade + restoreDisplay = dataShow && dataShow.display; + if ( restoreDisplay == null ) { + restoreDisplay = dataPriv.get( elem, "display" ); + } + display = jQuery.css( elem, "display" ); + if ( display === "none" ) { + if ( restoreDisplay ) { + display = restoreDisplay; + } else { + + // Get nonempty value(s) by temporarily forcing visibility + showHide( [ elem ], true ); + restoreDisplay = elem.style.display || restoreDisplay; + display = jQuery.css( elem, "display" ); + showHide( [ elem ] ); + } + } + + // Animate inline elements as inline-block + if ( display === "inline" || display === "inline-block" && restoreDisplay != null ) { + if ( jQuery.css( elem, "float" ) === "none" ) { + + // Restore the original display value at the end of pure show/hide animations + if ( !propTween ) { + anim.done( function() { + style.display = restoreDisplay; + } ); + if ( restoreDisplay == null ) { + display = style.display; + restoreDisplay = display === "none" ? "" : display; + } + } + style.display = "inline-block"; + } + } + } + + if ( opts.overflow ) { + style.overflow = "hidden"; + anim.always( function() { + style.overflow = opts.overflow[ 0 ]; + style.overflowX = opts.overflow[ 1 ]; + style.overflowY = opts.overflow[ 2 ]; + } ); + } + + // Implement show/hide animations + propTween = false; + for ( prop in orig ) { + + // General show/hide setup for this element animation + if ( !propTween ) { + if ( dataShow ) { + if ( "hidden" in dataShow ) { + hidden = dataShow.hidden; + } + } else { + dataShow = dataPriv.access( elem, "fxshow", { display: restoreDisplay } ); + } + + // Store hidden/visible for toggle so `.stop().toggle()` "reverses" + if ( toggle ) { + dataShow.hidden = !hidden; + } + + // Show elements before animating them + if ( hidden ) { + showHide( [ elem ], true ); + } + + /* eslint-disable no-loop-func */ + + anim.done( function() { + + /* eslint-enable no-loop-func */ + + // The final step of a "hide" animation is actually hiding the element + if ( !hidden ) { + showHide( [ elem ] ); + } + dataPriv.remove( elem, "fxshow" ); + for ( prop in orig ) { + jQuery.style( elem, prop, orig[ prop ] ); + } + } ); + } + + // Per-property setup + propTween = createTween( hidden ? dataShow[ prop ] : 0, prop, anim ); + if ( !( prop in dataShow ) ) { + dataShow[ prop ] = propTween.start; + if ( hidden ) { + propTween.end = propTween.start; + propTween.start = 0; + } + } + } +} + +function propFilter( props, specialEasing ) { + var index, name, easing, value, hooks; + + // camelCase, specialEasing and expand cssHook pass + for ( index in props ) { + name = camelCase( index ); + easing = specialEasing[ name ]; + value = props[ index ]; + if ( Array.isArray( value ) ) { + easing = value[ 1 ]; + value = props[ index ] = value[ 0 ]; + } + + if ( index !== name ) { + props[ name ] = value; + delete props[ index ]; + } + + hooks = jQuery.cssHooks[ name ]; + if ( hooks && "expand" in hooks ) { + value = hooks.expand( value ); + delete props[ name ]; + + // Not quite $.extend, this won't overwrite existing keys. + // Reusing 'index' because we have the correct "name" + for ( index in value ) { + if ( !( index in props ) ) { + props[ index ] = value[ index ]; + specialEasing[ index ] = easing; + } + } + } else { + specialEasing[ name ] = easing; + } + } +} + +function Animation( elem, properties, options ) { + var result, + stopped, + index = 0, + length = Animation.prefilters.length, + deferred = jQuery.Deferred().always( function() { + + // Don't match elem in the :animated selector + delete tick.elem; + } ), + tick = function() { + if ( stopped ) { + return false; + } + var currentTime = fxNow || createFxNow(), + remaining = Math.max( 0, animation.startTime + animation.duration - currentTime ), + + // Support: Android 2.3 only + // Archaic crash bug won't allow us to use `1 - ( 0.5 || 0 )` (#12497) + temp = remaining / animation.duration || 0, + percent = 1 - temp, + index = 0, + length = animation.tweens.length; + + for ( ; index < length; index++ ) { + animation.tweens[ index ].run( percent ); + } + + deferred.notifyWith( elem, [ animation, percent, remaining ] ); + + // If there's more to do, yield + if ( percent < 1 && length ) { + return remaining; + } + + // If this was an empty animation, synthesize a final progress notification + if ( !length ) { + deferred.notifyWith( elem, [ animation, 1, 0 ] ); + } + + // Resolve the animation and report its conclusion + deferred.resolveWith( elem, [ animation ] ); + return false; + }, + animation = deferred.promise( { + elem: elem, + props: jQuery.extend( {}, properties ), + opts: jQuery.extend( true, { + specialEasing: {}, + easing: jQuery.easing._default + }, options ), + originalProperties: properties, + originalOptions: options, + startTime: fxNow || createFxNow(), + duration: options.duration, + tweens: [], + createTween: function( prop, end ) { + var tween = jQuery.Tween( elem, animation.opts, prop, end, + animation.opts.specialEasing[ prop ] || animation.opts.easing ); + animation.tweens.push( tween ); + return tween; + }, + stop: function( gotoEnd ) { + var index = 0, + + // If we are going to the end, we want to run all the tweens + // otherwise we skip this part + length = gotoEnd ? animation.tweens.length : 0; + if ( stopped ) { + return this; + } + stopped = true; + for ( ; index < length; index++ ) { + animation.tweens[ index ].run( 1 ); + } + + // Resolve when we played the last frame; otherwise, reject + if ( gotoEnd ) { + deferred.notifyWith( elem, [ animation, 1, 0 ] ); + deferred.resolveWith( elem, [ animation, gotoEnd ] ); + } else { + deferred.rejectWith( elem, [ animation, gotoEnd ] ); + } + return this; + } + } ), + props = animation.props; + + propFilter( props, animation.opts.specialEasing ); + + for ( ; index < length; index++ ) { + result = Animation.prefilters[ index ].call( animation, elem, props, animation.opts ); + if ( result ) { + if ( isFunction( result.stop ) ) { + jQuery._queueHooks( animation.elem, animation.opts.queue ).stop = + result.stop.bind( result ); + } + return result; + } + } + + jQuery.map( props, createTween, animation ); + + if ( isFunction( animation.opts.start ) ) { + animation.opts.start.call( elem, animation ); + } + + // Attach callbacks from options + animation + .progress( animation.opts.progress ) + .done( animation.opts.done, animation.opts.complete ) + .fail( animation.opts.fail ) + .always( animation.opts.always ); + + jQuery.fx.timer( + jQuery.extend( tick, { + elem: elem, + anim: animation, + queue: animation.opts.queue + } ) + ); + + return animation; +} + +jQuery.Animation = jQuery.extend( Animation, { + + tweeners: { + "*": [ function( prop, value ) { + var tween = this.createTween( prop, value ); + adjustCSS( tween.elem, prop, rcssNum.exec( value ), tween ); + return tween; + } ] + }, + + tweener: function( props, callback ) { + if ( isFunction( props ) ) { + callback = props; + props = [ "*" ]; + } else { + props = props.match( rnothtmlwhite ); + } + + var prop, + index = 0, + length = props.length; + + for ( ; index < length; index++ ) { + prop = props[ index ]; + Animation.tweeners[ prop ] = Animation.tweeners[ prop ] || []; + Animation.tweeners[ prop ].unshift( callback ); + } + }, + + prefilters: [ defaultPrefilter ], + + prefilter: function( callback, prepend ) { + if ( prepend ) { + Animation.prefilters.unshift( callback ); + } else { + Animation.prefilters.push( callback ); + } + } +} ); + +jQuery.speed = function( speed, easing, fn ) { + var opt = speed && typeof speed === "object" ? jQuery.extend( {}, speed ) : { + complete: fn || !fn && easing || + isFunction( speed ) && speed, + duration: speed, + easing: fn && easing || easing && !isFunction( easing ) && easing + }; + + // Go to the end state if fx are off + if ( jQuery.fx.off ) { + opt.duration = 0; + + } else { + if ( typeof opt.duration !== "number" ) { + if ( opt.duration in jQuery.fx.speeds ) { + opt.duration = jQuery.fx.speeds[ opt.duration ]; + + } else { + opt.duration = jQuery.fx.speeds._default; + } + } + } + + // Normalize opt.queue - true/undefined/null -> "fx" + if ( opt.queue == null || opt.queue === true ) { + opt.queue = "fx"; + } + + // Queueing + opt.old = opt.complete; + + opt.complete = function() { + if ( isFunction( opt.old ) ) { + opt.old.call( this ); + } + + if ( opt.queue ) { + jQuery.dequeue( this, opt.queue ); + } + }; + + return opt; +}; + +jQuery.fn.extend( { + fadeTo: function( speed, to, easing, callback ) { + + // Show any hidden elements after setting opacity to 0 + return this.filter( isHiddenWithinTree ).css( "opacity", 0 ).show() + + // Animate to the value specified + .end().animate( { opacity: to }, speed, easing, callback ); + }, + animate: function( prop, speed, easing, callback ) { + var empty = jQuery.isEmptyObject( prop ), + optall = jQuery.speed( speed, easing, callback ), + doAnimation = function() { + + // Operate on a copy of prop so per-property easing won't be lost + var anim = Animation( this, jQuery.extend( {}, prop ), optall ); + + // Empty animations, or finishing resolves immediately + if ( empty || dataPriv.get( this, "finish" ) ) { + anim.stop( true ); + } + }; + + doAnimation.finish = doAnimation; + + return empty || optall.queue === false ? + this.each( doAnimation ) : + this.queue( optall.queue, doAnimation ); + }, + stop: function( type, clearQueue, gotoEnd ) { + var stopQueue = function( hooks ) { + var stop = hooks.stop; + delete hooks.stop; + stop( gotoEnd ); + }; + + if ( typeof type !== "string" ) { + gotoEnd = clearQueue; + clearQueue = type; + type = undefined; + } + if ( clearQueue ) { + this.queue( type || "fx", [] ); + } + + return this.each( function() { + var dequeue = true, + index = type != null && type + "queueHooks", + timers = jQuery.timers, + data = dataPriv.get( this ); + + if ( index ) { + if ( data[ index ] && data[ index ].stop ) { + stopQueue( data[ index ] ); + } + } else { + for ( index in data ) { + if ( data[ index ] && data[ index ].stop && rrun.test( index ) ) { + stopQueue( data[ index ] ); + } + } + } + + for ( index = timers.length; index--; ) { + if ( timers[ index ].elem === this && + ( type == null || timers[ index ].queue === type ) ) { + + timers[ index ].anim.stop( gotoEnd ); + dequeue = false; + timers.splice( index, 1 ); + } + } + + // Start the next in the queue if the last step wasn't forced. + // Timers currently will call their complete callbacks, which + // will dequeue but only if they were gotoEnd. + if ( dequeue || !gotoEnd ) { + jQuery.dequeue( this, type ); + } + } ); + }, + finish: function( type ) { + if ( type !== false ) { + type = type || "fx"; + } + return this.each( function() { + var index, + data = dataPriv.get( this ), + queue = data[ type + "queue" ], + hooks = data[ type + "queueHooks" ], + timers = jQuery.timers, + length = queue ? queue.length : 0; + + // Enable finishing flag on private data + data.finish = true; + + // Empty the queue first + jQuery.queue( this, type, [] ); + + if ( hooks && hooks.stop ) { + hooks.stop.call( this, true ); + } + + // Look for any active animations, and finish them + for ( index = timers.length; index--; ) { + if ( timers[ index ].elem === this && timers[ index ].queue === type ) { + timers[ index ].anim.stop( true ); + timers.splice( index, 1 ); + } + } + + // Look for any animations in the old queue and finish them + for ( index = 0; index < length; index++ ) { + if ( queue[ index ] && queue[ index ].finish ) { + queue[ index ].finish.call( this ); + } + } + + // Turn off finishing flag + delete data.finish; + } ); + } +} ); + +jQuery.each( [ "toggle", "show", "hide" ], function( _i, name ) { + var cssFn = jQuery.fn[ name ]; + jQuery.fn[ name ] = function( speed, easing, callback ) { + return speed == null || typeof speed === "boolean" ? + cssFn.apply( this, arguments ) : + this.animate( genFx( name, true ), speed, easing, callback ); + }; +} ); + +// Generate shortcuts for custom animations +jQuery.each( { + slideDown: genFx( "show" ), + slideUp: genFx( "hide" ), + slideToggle: genFx( "toggle" ), + fadeIn: { opacity: "show" }, + fadeOut: { opacity: "hide" }, + fadeToggle: { opacity: "toggle" } +}, function( name, props ) { + jQuery.fn[ name ] = function( speed, easing, callback ) { + return this.animate( props, speed, easing, callback ); + }; +} ); + +jQuery.timers = []; +jQuery.fx.tick = function() { + var timer, + i = 0, + timers = jQuery.timers; + + fxNow = Date.now(); + + for ( ; i < timers.length; i++ ) { + timer = timers[ i ]; + + // Run the timer and safely remove it when done (allowing for external removal) + if ( !timer() && timers[ i ] === timer ) { + timers.splice( i--, 1 ); + } + } + + if ( !timers.length ) { + jQuery.fx.stop(); + } + fxNow = undefined; +}; + +jQuery.fx.timer = function( timer ) { + jQuery.timers.push( timer ); + jQuery.fx.start(); +}; + +jQuery.fx.interval = 13; +jQuery.fx.start = function() { + if ( inProgress ) { + return; + } + + inProgress = true; + schedule(); +}; + +jQuery.fx.stop = function() { + inProgress = null; +}; + +jQuery.fx.speeds = { + slow: 600, + fast: 200, + + // Default speed + _default: 400 +}; + + +// Based off of the plugin by Clint Helfers, with permission. +// https://web.archive.org/web/20100324014747/http://blindsignals.com/index.php/2009/07/jquery-delay/ +jQuery.fn.delay = function( time, type ) { + time = jQuery.fx ? jQuery.fx.speeds[ time ] || time : time; + type = type || "fx"; + + return this.queue( type, function( next, hooks ) { + var timeout = window.setTimeout( next, time ); + hooks.stop = function() { + window.clearTimeout( timeout ); + }; + } ); +}; + + +( function() { + var input = document.createElement( "input" ), + select = document.createElement( "select" ), + opt = select.appendChild( document.createElement( "option" ) ); + + input.type = "checkbox"; + + // Support: Android <=4.3 only + // Default value for a checkbox should be "on" + support.checkOn = input.value !== ""; + + // Support: IE <=11 only + // Must access selectedIndex to make default options select + support.optSelected = opt.selected; + + // Support: IE <=11 only + // An input loses its value after becoming a radio + input = document.createElement( "input" ); + input.value = "t"; + input.type = "radio"; + support.radioValue = input.value === "t"; +} )(); + + +var boolHook, + attrHandle = jQuery.expr.attrHandle; + +jQuery.fn.extend( { + attr: function( name, value ) { + return access( this, jQuery.attr, name, value, arguments.length > 1 ); + }, + + removeAttr: function( name ) { + return this.each( function() { + jQuery.removeAttr( this, name ); + } ); + } +} ); + +jQuery.extend( { + attr: function( elem, name, value ) { + var ret, hooks, + nType = elem.nodeType; + + // Don't get/set attributes on text, comment and attribute nodes + if ( nType === 3 || nType === 8 || nType === 2 ) { + return; + } + + // Fallback to prop when attributes are not supported + if ( typeof elem.getAttribute === "undefined" ) { + return jQuery.prop( elem, name, value ); + } + + // Attribute hooks are determined by the lowercase version + // Grab necessary hook if one is defined + if ( nType !== 1 || !jQuery.isXMLDoc( elem ) ) { + hooks = jQuery.attrHooks[ name.toLowerCase() ] || + ( jQuery.expr.match.bool.test( name ) ? boolHook : undefined ); + } + + if ( value !== undefined ) { + if ( value === null ) { + jQuery.removeAttr( elem, name ); + return; + } + + if ( hooks && "set" in hooks && + ( ret = hooks.set( elem, value, name ) ) !== undefined ) { + return ret; + } + + elem.setAttribute( name, value + "" ); + return value; + } + + if ( hooks && "get" in hooks && ( ret = hooks.get( elem, name ) ) !== null ) { + return ret; + } + + ret = jQuery.find.attr( elem, name ); + + // Non-existent attributes return null, we normalize to undefined + return ret == null ? undefined : ret; + }, + + attrHooks: { + type: { + set: function( elem, value ) { + if ( !support.radioValue && value === "radio" && + nodeName( elem, "input" ) ) { + var val = elem.value; + elem.setAttribute( "type", value ); + if ( val ) { + elem.value = val; + } + return value; + } + } + } + }, + + removeAttr: function( elem, value ) { + var name, + i = 0, + + // Attribute names can contain non-HTML whitespace characters + // https://html.spec.whatwg.org/multipage/syntax.html#attributes-2 + attrNames = value && value.match( rnothtmlwhite ); + + if ( attrNames && elem.nodeType === 1 ) { + while ( ( name = attrNames[ i++ ] ) ) { + elem.removeAttribute( name ); + } + } + } +} ); + +// Hooks for boolean attributes +boolHook = { + set: function( elem, value, name ) { + if ( value === false ) { + + // Remove boolean attributes when set to false + jQuery.removeAttr( elem, name ); + } else { + elem.setAttribute( name, name ); + } + return name; + } +}; + +jQuery.each( jQuery.expr.match.bool.source.match( /\w+/g ), function( _i, name ) { + var getter = attrHandle[ name ] || jQuery.find.attr; + + attrHandle[ name ] = function( elem, name, isXML ) { + var ret, handle, + lowercaseName = name.toLowerCase(); + + if ( !isXML ) { + + // Avoid an infinite loop by temporarily removing this function from the getter + handle = attrHandle[ lowercaseName ]; + attrHandle[ lowercaseName ] = ret; + ret = getter( elem, name, isXML ) != null ? + lowercaseName : + null; + attrHandle[ lowercaseName ] = handle; + } + return ret; + }; +} ); + + + + +var rfocusable = /^(?:input|select|textarea|button)$/i, + rclickable = /^(?:a|area)$/i; + +jQuery.fn.extend( { + prop: function( name, value ) { + return access( this, jQuery.prop, name, value, arguments.length > 1 ); + }, + + removeProp: function( name ) { + return this.each( function() { + delete this[ jQuery.propFix[ name ] || name ]; + } ); + } +} ); + +jQuery.extend( { + prop: function( elem, name, value ) { + var ret, hooks, + nType = elem.nodeType; + + // Don't get/set properties on text, comment and attribute nodes + if ( nType === 3 || nType === 8 || nType === 2 ) { + return; + } + + if ( nType !== 1 || !jQuery.isXMLDoc( elem ) ) { + + // Fix name and attach hooks + name = jQuery.propFix[ name ] || name; + hooks = jQuery.propHooks[ name ]; + } + + if ( value !== undefined ) { + if ( hooks && "set" in hooks && + ( ret = hooks.set( elem, value, name ) ) !== undefined ) { + return ret; + } + + return ( elem[ name ] = value ); + } + + if ( hooks && "get" in hooks && ( ret = hooks.get( elem, name ) ) !== null ) { + return ret; + } + + return elem[ name ]; + }, + + propHooks: { + tabIndex: { + get: function( elem ) { + + // Support: IE <=9 - 11 only + // elem.tabIndex doesn't always return the + // correct value when it hasn't been explicitly set + // https://web.archive.org/web/20141116233347/http://fluidproject.org/blog/2008/01/09/getting-setting-and-removing-tabindex-values-with-javascript/ + // Use proper attribute retrieval(#12072) + var tabindex = jQuery.find.attr( elem, "tabindex" ); + + if ( tabindex ) { + return parseInt( tabindex, 10 ); + } + + if ( + rfocusable.test( elem.nodeName ) || + rclickable.test( elem.nodeName ) && + elem.href + ) { + return 0; + } + + return -1; + } + } + }, + + propFix: { + "for": "htmlFor", + "class": "className" + } +} ); + +// Support: IE <=11 only +// Accessing the selectedIndex property +// forces the browser to respect setting selected +// on the option +// The getter ensures a default option is selected +// when in an optgroup +// eslint rule "no-unused-expressions" is disabled for this code +// since it considers such accessions noop +if ( !support.optSelected ) { + jQuery.propHooks.selected = { + get: function( elem ) { + + /* eslint no-unused-expressions: "off" */ + + var parent = elem.parentNode; + if ( parent && parent.parentNode ) { + parent.parentNode.selectedIndex; + } + return null; + }, + set: function( elem ) { + + /* eslint no-unused-expressions: "off" */ + + var parent = elem.parentNode; + if ( parent ) { + parent.selectedIndex; + + if ( parent.parentNode ) { + parent.parentNode.selectedIndex; + } + } + } + }; +} + +jQuery.each( [ + "tabIndex", + "readOnly", + "maxLength", + "cellSpacing", + "cellPadding", + "rowSpan", + "colSpan", + "useMap", + "frameBorder", + "contentEditable" +], function() { + jQuery.propFix[ this.toLowerCase() ] = this; +} ); + + + + + // Strip and collapse whitespace according to HTML spec + // https://infra.spec.whatwg.org/#strip-and-collapse-ascii-whitespace + function stripAndCollapse( value ) { + var tokens = value.match( rnothtmlwhite ) || []; + return tokens.join( " " ); + } + + +function getClass( elem ) { + return elem.getAttribute && elem.getAttribute( "class" ) || ""; +} + +function classesToArray( value ) { + if ( Array.isArray( value ) ) { + return value; + } + if ( typeof value === "string" ) { + return value.match( rnothtmlwhite ) || []; + } + return []; +} + +jQuery.fn.extend( { + addClass: function( value ) { + var classes, elem, cur, curValue, clazz, j, finalValue, + i = 0; + + if ( isFunction( value ) ) { + return this.each( function( j ) { + jQuery( this ).addClass( value.call( this, j, getClass( this ) ) ); + } ); + } + + classes = classesToArray( value ); + + if ( classes.length ) { + while ( ( elem = this[ i++ ] ) ) { + curValue = getClass( elem ); + cur = elem.nodeType === 1 && ( " " + stripAndCollapse( curValue ) + " " ); + + if ( cur ) { + j = 0; + while ( ( clazz = classes[ j++ ] ) ) { + if ( cur.indexOf( " " + clazz + " " ) < 0 ) { + cur += clazz + " "; + } + } + + // Only assign if different to avoid unneeded rendering. + finalValue = stripAndCollapse( cur ); + if ( curValue !== finalValue ) { + elem.setAttribute( "class", finalValue ); + } + } + } + } + + return this; + }, + + removeClass: function( value ) { + var classes, elem, cur, curValue, clazz, j, finalValue, + i = 0; + + if ( isFunction( value ) ) { + return this.each( function( j ) { + jQuery( this ).removeClass( value.call( this, j, getClass( this ) ) ); + } ); + } + + if ( !arguments.length ) { + return this.attr( "class", "" ); + } + + classes = classesToArray( value ); + + if ( classes.length ) { + while ( ( elem = this[ i++ ] ) ) { + curValue = getClass( elem ); + + // This expression is here for better compressibility (see addClass) + cur = elem.nodeType === 1 && ( " " + stripAndCollapse( curValue ) + " " ); + + if ( cur ) { + j = 0; + while ( ( clazz = classes[ j++ ] ) ) { + + // Remove *all* instances + while ( cur.indexOf( " " + clazz + " " ) > -1 ) { + cur = cur.replace( " " + clazz + " ", " " ); + } + } + + // Only assign if different to avoid unneeded rendering. + finalValue = stripAndCollapse( cur ); + if ( curValue !== finalValue ) { + elem.setAttribute( "class", finalValue ); + } + } + } + } + + return this; + }, + + toggleClass: function( value, stateVal ) { + var type = typeof value, + isValidValue = type === "string" || Array.isArray( value ); + + if ( typeof stateVal === "boolean" && isValidValue ) { + return stateVal ? this.addClass( value ) : this.removeClass( value ); + } + + if ( isFunction( value ) ) { + return this.each( function( i ) { + jQuery( this ).toggleClass( + value.call( this, i, getClass( this ), stateVal ), + stateVal + ); + } ); + } + + return this.each( function() { + var className, i, self, classNames; + + if ( isValidValue ) { + + // Toggle individual class names + i = 0; + self = jQuery( this ); + classNames = classesToArray( value ); + + while ( ( className = classNames[ i++ ] ) ) { + + // Check each className given, space separated list + if ( self.hasClass( className ) ) { + self.removeClass( className ); + } else { + self.addClass( className ); + } + } + + // Toggle whole class name + } else if ( value === undefined || type === "boolean" ) { + className = getClass( this ); + if ( className ) { + + // Store className if set + dataPriv.set( this, "__className__", className ); + } + + // If the element has a class name or if we're passed `false`, + // then remove the whole classname (if there was one, the above saved it). + // Otherwise bring back whatever was previously saved (if anything), + // falling back to the empty string if nothing was stored. + if ( this.setAttribute ) { + this.setAttribute( "class", + className || value === false ? + "" : + dataPriv.get( this, "__className__" ) || "" + ); + } + } + } ); + }, + + hasClass: function( selector ) { + var className, elem, + i = 0; + + className = " " + selector + " "; + while ( ( elem = this[ i++ ] ) ) { + if ( elem.nodeType === 1 && + ( " " + stripAndCollapse( getClass( elem ) ) + " " ).indexOf( className ) > -1 ) { + return true; + } + } + + return false; + } +} ); + + + + +var rreturn = /\r/g; + +jQuery.fn.extend( { + val: function( value ) { + var hooks, ret, valueIsFunction, + elem = this[ 0 ]; + + if ( !arguments.length ) { + if ( elem ) { + hooks = jQuery.valHooks[ elem.type ] || + jQuery.valHooks[ elem.nodeName.toLowerCase() ]; + + if ( hooks && + "get" in hooks && + ( ret = hooks.get( elem, "value" ) ) !== undefined + ) { + return ret; + } + + ret = elem.value; + + // Handle most common string cases + if ( typeof ret === "string" ) { + return ret.replace( rreturn, "" ); + } + + // Handle cases where value is null/undef or number + return ret == null ? "" : ret; + } + + return; + } + + valueIsFunction = isFunction( value ); + + return this.each( function( i ) { + var val; + + if ( this.nodeType !== 1 ) { + return; + } + + if ( valueIsFunction ) { + val = value.call( this, i, jQuery( this ).val() ); + } else { + val = value; + } + + // Treat null/undefined as ""; convert numbers to string + if ( val == null ) { + val = ""; + + } else if ( typeof val === "number" ) { + val += ""; + + } else if ( Array.isArray( val ) ) { + val = jQuery.map( val, function( value ) { + return value == null ? "" : value + ""; + } ); + } + + hooks = jQuery.valHooks[ this.type ] || jQuery.valHooks[ this.nodeName.toLowerCase() ]; + + // If set returns undefined, fall back to normal setting + if ( !hooks || !( "set" in hooks ) || hooks.set( this, val, "value" ) === undefined ) { + this.value = val; + } + } ); + } +} ); + +jQuery.extend( { + valHooks: { + option: { + get: function( elem ) { + + var val = jQuery.find.attr( elem, "value" ); + return val != null ? + val : + + // Support: IE <=10 - 11 only + // option.text throws exceptions (#14686, #14858) + // Strip and collapse whitespace + // https://html.spec.whatwg.org/#strip-and-collapse-whitespace + stripAndCollapse( jQuery.text( elem ) ); + } + }, + select: { + get: function( elem ) { + var value, option, i, + options = elem.options, + index = elem.selectedIndex, + one = elem.type === "select-one", + values = one ? null : [], + max = one ? index + 1 : options.length; + + if ( index < 0 ) { + i = max; + + } else { + i = one ? index : 0; + } + + // Loop through all the selected options + for ( ; i < max; i++ ) { + option = options[ i ]; + + // Support: IE <=9 only + // IE8-9 doesn't update selected after form reset (#2551) + if ( ( option.selected || i === index ) && + + // Don't return options that are disabled or in a disabled optgroup + !option.disabled && + ( !option.parentNode.disabled || + !nodeName( option.parentNode, "optgroup" ) ) ) { + + // Get the specific value for the option + value = jQuery( option ).val(); + + // We don't need an array for one selects + if ( one ) { + return value; + } + + // Multi-Selects return an array + values.push( value ); + } + } + + return values; + }, + + set: function( elem, value ) { + var optionSet, option, + options = elem.options, + values = jQuery.makeArray( value ), + i = options.length; + + while ( i-- ) { + option = options[ i ]; + + /* eslint-disable no-cond-assign */ + + if ( option.selected = + jQuery.inArray( jQuery.valHooks.option.get( option ), values ) > -1 + ) { + optionSet = true; + } + + /* eslint-enable no-cond-assign */ + } + + // Force browsers to behave consistently when non-matching value is set + if ( !optionSet ) { + elem.selectedIndex = -1; + } + return values; + } + } + } +} ); + +// Radios and checkboxes getter/setter +jQuery.each( [ "radio", "checkbox" ], function() { + jQuery.valHooks[ this ] = { + set: function( elem, value ) { + if ( Array.isArray( value ) ) { + return ( elem.checked = jQuery.inArray( jQuery( elem ).val(), value ) > -1 ); + } + } + }; + if ( !support.checkOn ) { + jQuery.valHooks[ this ].get = function( elem ) { + return elem.getAttribute( "value" ) === null ? "on" : elem.value; + }; + } +} ); + + + + +// Return jQuery for attributes-only inclusion + + +support.focusin = "onfocusin" in window; + + +var rfocusMorph = /^(?:focusinfocus|focusoutblur)$/, + stopPropagationCallback = function( e ) { + e.stopPropagation(); + }; + +jQuery.extend( jQuery.event, { + + trigger: function( event, data, elem, onlyHandlers ) { + + var i, cur, tmp, bubbleType, ontype, handle, special, lastElement, + eventPath = [ elem || document ], + type = hasOwn.call( event, "type" ) ? event.type : event, + namespaces = hasOwn.call( event, "namespace" ) ? event.namespace.split( "." ) : []; + + cur = lastElement = tmp = elem = elem || document; + + // Don't do events on text and comment nodes + if ( elem.nodeType === 3 || elem.nodeType === 8 ) { + return; + } + + // focus/blur morphs to focusin/out; ensure we're not firing them right now + if ( rfocusMorph.test( type + jQuery.event.triggered ) ) { + return; + } + + if ( type.indexOf( "." ) > -1 ) { + + // Namespaced trigger; create a regexp to match event type in handle() + namespaces = type.split( "." ); + type = namespaces.shift(); + namespaces.sort(); + } + ontype = type.indexOf( ":" ) < 0 && "on" + type; + + // Caller can pass in a jQuery.Event object, Object, or just an event type string + event = event[ jQuery.expando ] ? + event : + new jQuery.Event( type, typeof event === "object" && event ); + + // Trigger bitmask: & 1 for native handlers; & 2 for jQuery (always true) + event.isTrigger = onlyHandlers ? 2 : 3; + event.namespace = namespaces.join( "." ); + event.rnamespace = event.namespace ? + new RegExp( "(^|\\.)" + namespaces.join( "\\.(?:.*\\.|)" ) + "(\\.|$)" ) : + null; + + // Clean up the event in case it is being reused + event.result = undefined; + if ( !event.target ) { + event.target = elem; + } + + // Clone any incoming data and prepend the event, creating the handler arg list + data = data == null ? + [ event ] : + jQuery.makeArray( data, [ event ] ); + + // Allow special events to draw outside the lines + special = jQuery.event.special[ type ] || {}; + if ( !onlyHandlers && special.trigger && special.trigger.apply( elem, data ) === false ) { + return; + } + + // Determine event propagation path in advance, per W3C events spec (#9951) + // Bubble up to document, then to window; watch for a global ownerDocument var (#9724) + if ( !onlyHandlers && !special.noBubble && !isWindow( elem ) ) { + + bubbleType = special.delegateType || type; + if ( !rfocusMorph.test( bubbleType + type ) ) { + cur = cur.parentNode; + } + for ( ; cur; cur = cur.parentNode ) { + eventPath.push( cur ); + tmp = cur; + } + + // Only add window if we got to document (e.g., not plain obj or detached DOM) + if ( tmp === ( elem.ownerDocument || document ) ) { + eventPath.push( tmp.defaultView || tmp.parentWindow || window ); + } + } + + // Fire handlers on the event path + i = 0; + while ( ( cur = eventPath[ i++ ] ) && !event.isPropagationStopped() ) { + lastElement = cur; + event.type = i > 1 ? + bubbleType : + special.bindType || type; + + // jQuery handler + handle = ( dataPriv.get( cur, "events" ) || Object.create( null ) )[ event.type ] && + dataPriv.get( cur, "handle" ); + if ( handle ) { + handle.apply( cur, data ); + } + + // Native handler + handle = ontype && cur[ ontype ]; + if ( handle && handle.apply && acceptData( cur ) ) { + event.result = handle.apply( cur, data ); + if ( event.result === false ) { + event.preventDefault(); + } + } + } + event.type = type; + + // If nobody prevented the default action, do it now + if ( !onlyHandlers && !event.isDefaultPrevented() ) { + + if ( ( !special._default || + special._default.apply( eventPath.pop(), data ) === false ) && + acceptData( elem ) ) { + + // Call a native DOM method on the target with the same name as the event. + // Don't do default actions on window, that's where global variables be (#6170) + if ( ontype && isFunction( elem[ type ] ) && !isWindow( elem ) ) { + + // Don't re-trigger an onFOO event when we call its FOO() method + tmp = elem[ ontype ]; + + if ( tmp ) { + elem[ ontype ] = null; + } + + // Prevent re-triggering of the same event, since we already bubbled it above + jQuery.event.triggered = type; + + if ( event.isPropagationStopped() ) { + lastElement.addEventListener( type, stopPropagationCallback ); + } + + elem[ type ](); + + if ( event.isPropagationStopped() ) { + lastElement.removeEventListener( type, stopPropagationCallback ); + } + + jQuery.event.triggered = undefined; + + if ( tmp ) { + elem[ ontype ] = tmp; + } + } + } + } + + return event.result; + }, + + // Piggyback on a donor event to simulate a different one + // Used only for `focus(in | out)` events + simulate: function( type, elem, event ) { + var e = jQuery.extend( + new jQuery.Event(), + event, + { + type: type, + isSimulated: true + } + ); + + jQuery.event.trigger( e, null, elem ); + } + +} ); + +jQuery.fn.extend( { + + trigger: function( type, data ) { + return this.each( function() { + jQuery.event.trigger( type, data, this ); + } ); + }, + triggerHandler: function( type, data ) { + var elem = this[ 0 ]; + if ( elem ) { + return jQuery.event.trigger( type, data, elem, true ); + } + } +} ); + + +// Support: Firefox <=44 +// Firefox doesn't have focus(in | out) events +// Related ticket - https://bugzilla.mozilla.org/show_bug.cgi?id=687787 +// +// Support: Chrome <=48 - 49, Safari <=9.0 - 9.1 +// focus(in | out) events fire after focus & blur events, +// which is spec violation - http://www.w3.org/TR/DOM-Level-3-Events/#events-focusevent-event-order +// Related ticket - https://bugs.chromium.org/p/chromium/issues/detail?id=449857 +if ( !support.focusin ) { + jQuery.each( { focus: "focusin", blur: "focusout" }, function( orig, fix ) { + + // Attach a single capturing handler on the document while someone wants focusin/focusout + var handler = function( event ) { + jQuery.event.simulate( fix, event.target, jQuery.event.fix( event ) ); + }; + + jQuery.event.special[ fix ] = { + setup: function() { + + // Handle: regular nodes (via `this.ownerDocument`), window + // (via `this.document`) & document (via `this`). + var doc = this.ownerDocument || this.document || this, + attaches = dataPriv.access( doc, fix ); + + if ( !attaches ) { + doc.addEventListener( orig, handler, true ); + } + dataPriv.access( doc, fix, ( attaches || 0 ) + 1 ); + }, + teardown: function() { + var doc = this.ownerDocument || this.document || this, + attaches = dataPriv.access( doc, fix ) - 1; + + if ( !attaches ) { + doc.removeEventListener( orig, handler, true ); + dataPriv.remove( doc, fix ); + + } else { + dataPriv.access( doc, fix, attaches ); + } + } + }; + } ); +} +var location = window.location; + +var nonce = { guid: Date.now() }; + +var rquery = ( /\?/ ); + + + +// Cross-browser xml parsing +jQuery.parseXML = function( data ) { + var xml, parserErrorElem; + if ( !data || typeof data !== "string" ) { + return null; + } + + // Support: IE 9 - 11 only + // IE throws on parseFromString with invalid input. + try { + xml = ( new window.DOMParser() ).parseFromString( data, "text/xml" ); + } catch ( e ) {} + + parserErrorElem = xml && xml.getElementsByTagName( "parsererror" )[ 0 ]; + if ( !xml || parserErrorElem ) { + jQuery.error( "Invalid XML: " + ( + parserErrorElem ? + jQuery.map( parserErrorElem.childNodes, function( el ) { + return el.textContent; + } ).join( "\n" ) : + data + ) ); + } + return xml; +}; + + +var + rbracket = /\[\]$/, + rCRLF = /\r?\n/g, + rsubmitterTypes = /^(?:submit|button|image|reset|file)$/i, + rsubmittable = /^(?:input|select|textarea|keygen)/i; + +function buildParams( prefix, obj, traditional, add ) { + var name; + + if ( Array.isArray( obj ) ) { + + // Serialize array item. + jQuery.each( obj, function( i, v ) { + if ( traditional || rbracket.test( prefix ) ) { + + // Treat each array item as a scalar. + add( prefix, v ); + + } else { + + // Item is non-scalar (array or object), encode its numeric index. + buildParams( + prefix + "[" + ( typeof v === "object" && v != null ? i : "" ) + "]", + v, + traditional, + add + ); + } + } ); + + } else if ( !traditional && toType( obj ) === "object" ) { + + // Serialize object item. + for ( name in obj ) { + buildParams( prefix + "[" + name + "]", obj[ name ], traditional, add ); + } + + } else { + + // Serialize scalar item. + add( prefix, obj ); + } +} + +// Serialize an array of form elements or a set of +// key/values into a query string +jQuery.param = function( a, traditional ) { + var prefix, + s = [], + add = function( key, valueOrFunction ) { + + // If value is a function, invoke it and use its return value + var value = isFunction( valueOrFunction ) ? + valueOrFunction() : + valueOrFunction; + + s[ s.length ] = encodeURIComponent( key ) + "=" + + encodeURIComponent( value == null ? "" : value ); + }; + + if ( a == null ) { + return ""; + } + + // If an array was passed in, assume that it is an array of form elements. + if ( Array.isArray( a ) || ( a.jquery && !jQuery.isPlainObject( a ) ) ) { + + // Serialize the form elements + jQuery.each( a, function() { + add( this.name, this.value ); + } ); + + } else { + + // If traditional, encode the "old" way (the way 1.3.2 or older + // did it), otherwise encode params recursively. + for ( prefix in a ) { + buildParams( prefix, a[ prefix ], traditional, add ); + } + } + + // Return the resulting serialization + return s.join( "&" ); +}; + +jQuery.fn.extend( { + serialize: function() { + return jQuery.param( this.serializeArray() ); + }, + serializeArray: function() { + return this.map( function() { + + // Can add propHook for "elements" to filter or add form elements + var elements = jQuery.prop( this, "elements" ); + return elements ? jQuery.makeArray( elements ) : this; + } ).filter( function() { + var type = this.type; + + // Use .is( ":disabled" ) so that fieldset[disabled] works + return this.name && !jQuery( this ).is( ":disabled" ) && + rsubmittable.test( this.nodeName ) && !rsubmitterTypes.test( type ) && + ( this.checked || !rcheckableType.test( type ) ); + } ).map( function( _i, elem ) { + var val = jQuery( this ).val(); + + if ( val == null ) { + return null; + } + + if ( Array.isArray( val ) ) { + return jQuery.map( val, function( val ) { + return { name: elem.name, value: val.replace( rCRLF, "\r\n" ) }; + } ); + } + + return { name: elem.name, value: val.replace( rCRLF, "\r\n" ) }; + } ).get(); + } +} ); + + +var + r20 = /%20/g, + rhash = /#.*$/, + rantiCache = /([?&])_=[^&]*/, + rheaders = /^(.*?):[ \t]*([^\r\n]*)$/mg, + + // #7653, #8125, #8152: local protocol detection + rlocalProtocol = /^(?:about|app|app-storage|.+-extension|file|res|widget):$/, + rnoContent = /^(?:GET|HEAD)$/, + rprotocol = /^\/\//, + + /* Prefilters + * 1) They are useful to introduce custom dataTypes (see ajax/jsonp.js for an example) + * 2) These are called: + * - BEFORE asking for a transport + * - AFTER param serialization (s.data is a string if s.processData is true) + * 3) key is the dataType + * 4) the catchall symbol "*" can be used + * 5) execution will start with transport dataType and THEN continue down to "*" if needed + */ + prefilters = {}, + + /* Transports bindings + * 1) key is the dataType + * 2) the catchall symbol "*" can be used + * 3) selection will start with transport dataType and THEN go to "*" if needed + */ + transports = {}, + + // Avoid comment-prolog char sequence (#10098); must appease lint and evade compression + allTypes = "*/".concat( "*" ), + + // Anchor tag for parsing the document origin + originAnchor = document.createElement( "a" ); + +originAnchor.href = location.href; + +// Base "constructor" for jQuery.ajaxPrefilter and jQuery.ajaxTransport +function addToPrefiltersOrTransports( structure ) { + + // dataTypeExpression is optional and defaults to "*" + return function( dataTypeExpression, func ) { + + if ( typeof dataTypeExpression !== "string" ) { + func = dataTypeExpression; + dataTypeExpression = "*"; + } + + var dataType, + i = 0, + dataTypes = dataTypeExpression.toLowerCase().match( rnothtmlwhite ) || []; + + if ( isFunction( func ) ) { + + // For each dataType in the dataTypeExpression + while ( ( dataType = dataTypes[ i++ ] ) ) { + + // Prepend if requested + if ( dataType[ 0 ] === "+" ) { + dataType = dataType.slice( 1 ) || "*"; + ( structure[ dataType ] = structure[ dataType ] || [] ).unshift( func ); + + // Otherwise append + } else { + ( structure[ dataType ] = structure[ dataType ] || [] ).push( func ); + } + } + } + }; +} + +// Base inspection function for prefilters and transports +function inspectPrefiltersOrTransports( structure, options, originalOptions, jqXHR ) { + + var inspected = {}, + seekingTransport = ( structure === transports ); + + function inspect( dataType ) { + var selected; + inspected[ dataType ] = true; + jQuery.each( structure[ dataType ] || [], function( _, prefilterOrFactory ) { + var dataTypeOrTransport = prefilterOrFactory( options, originalOptions, jqXHR ); + if ( typeof dataTypeOrTransport === "string" && + !seekingTransport && !inspected[ dataTypeOrTransport ] ) { + + options.dataTypes.unshift( dataTypeOrTransport ); + inspect( dataTypeOrTransport ); + return false; + } else if ( seekingTransport ) { + return !( selected = dataTypeOrTransport ); + } + } ); + return selected; + } + + return inspect( options.dataTypes[ 0 ] ) || !inspected[ "*" ] && inspect( "*" ); +} + +// A special extend for ajax options +// that takes "flat" options (not to be deep extended) +// Fixes #9887 +function ajaxExtend( target, src ) { + var key, deep, + flatOptions = jQuery.ajaxSettings.flatOptions || {}; + + for ( key in src ) { + if ( src[ key ] !== undefined ) { + ( flatOptions[ key ] ? target : ( deep || ( deep = {} ) ) )[ key ] = src[ key ]; + } + } + if ( deep ) { + jQuery.extend( true, target, deep ); + } + + return target; +} + +/* Handles responses to an ajax request: + * - finds the right dataType (mediates between content-type and expected dataType) + * - returns the corresponding response + */ +function ajaxHandleResponses( s, jqXHR, responses ) { + + var ct, type, finalDataType, firstDataType, + contents = s.contents, + dataTypes = s.dataTypes; + + // Remove auto dataType and get content-type in the process + while ( dataTypes[ 0 ] === "*" ) { + dataTypes.shift(); + if ( ct === undefined ) { + ct = s.mimeType || jqXHR.getResponseHeader( "Content-Type" ); + } + } + + // Check if we're dealing with a known content-type + if ( ct ) { + for ( type in contents ) { + if ( contents[ type ] && contents[ type ].test( ct ) ) { + dataTypes.unshift( type ); + break; + } + } + } + + // Check to see if we have a response for the expected dataType + if ( dataTypes[ 0 ] in responses ) { + finalDataType = dataTypes[ 0 ]; + } else { + + // Try convertible dataTypes + for ( type in responses ) { + if ( !dataTypes[ 0 ] || s.converters[ type + " " + dataTypes[ 0 ] ] ) { + finalDataType = type; + break; + } + if ( !firstDataType ) { + firstDataType = type; + } + } + + // Or just use first one + finalDataType = finalDataType || firstDataType; + } + + // If we found a dataType + // We add the dataType to the list if needed + // and return the corresponding response + if ( finalDataType ) { + if ( finalDataType !== dataTypes[ 0 ] ) { + dataTypes.unshift( finalDataType ); + } + return responses[ finalDataType ]; + } +} + +/* Chain conversions given the request and the original response + * Also sets the responseXXX fields on the jqXHR instance + */ +function ajaxConvert( s, response, jqXHR, isSuccess ) { + var conv2, current, conv, tmp, prev, + converters = {}, + + // Work with a copy of dataTypes in case we need to modify it for conversion + dataTypes = s.dataTypes.slice(); + + // Create converters map with lowercased keys + if ( dataTypes[ 1 ] ) { + for ( conv in s.converters ) { + converters[ conv.toLowerCase() ] = s.converters[ conv ]; + } + } + + current = dataTypes.shift(); + + // Convert to each sequential dataType + while ( current ) { + + if ( s.responseFields[ current ] ) { + jqXHR[ s.responseFields[ current ] ] = response; + } + + // Apply the dataFilter if provided + if ( !prev && isSuccess && s.dataFilter ) { + response = s.dataFilter( response, s.dataType ); + } + + prev = current; + current = dataTypes.shift(); + + if ( current ) { + + // There's only work to do if current dataType is non-auto + if ( current === "*" ) { + + current = prev; + + // Convert response if prev dataType is non-auto and differs from current + } else if ( prev !== "*" && prev !== current ) { + + // Seek a direct converter + conv = converters[ prev + " " + current ] || converters[ "* " + current ]; + + // If none found, seek a pair + if ( !conv ) { + for ( conv2 in converters ) { + + // If conv2 outputs current + tmp = conv2.split( " " ); + if ( tmp[ 1 ] === current ) { + + // If prev can be converted to accepted input + conv = converters[ prev + " " + tmp[ 0 ] ] || + converters[ "* " + tmp[ 0 ] ]; + if ( conv ) { + + // Condense equivalence converters + if ( conv === true ) { + conv = converters[ conv2 ]; + + // Otherwise, insert the intermediate dataType + } else if ( converters[ conv2 ] !== true ) { + current = tmp[ 0 ]; + dataTypes.unshift( tmp[ 1 ] ); + } + break; + } + } + } + } + + // Apply converter (if not an equivalence) + if ( conv !== true ) { + + // Unless errors are allowed to bubble, catch and return them + if ( conv && s.throws ) { + response = conv( response ); + } else { + try { + response = conv( response ); + } catch ( e ) { + return { + state: "parsererror", + error: conv ? e : "No conversion from " + prev + " to " + current + }; + } + } + } + } + } + } + + return { state: "success", data: response }; +} + +jQuery.extend( { + + // Counter for holding the number of active queries + active: 0, + + // Last-Modified header cache for next request + lastModified: {}, + etag: {}, + + ajaxSettings: { + url: location.href, + type: "GET", + isLocal: rlocalProtocol.test( location.protocol ), + global: true, + processData: true, + async: true, + contentType: "application/x-www-form-urlencoded; charset=UTF-8", + + /* + timeout: 0, + data: null, + dataType: null, + username: null, + password: null, + cache: null, + throws: false, + traditional: false, + headers: {}, + */ + + accepts: { + "*": allTypes, + text: "text/plain", + html: "text/html", + xml: "application/xml, text/xml", + json: "application/json, text/javascript" + }, + + contents: { + xml: /\bxml\b/, + html: /\bhtml/, + json: /\bjson\b/ + }, + + responseFields: { + xml: "responseXML", + text: "responseText", + json: "responseJSON" + }, + + // Data converters + // Keys separate source (or catchall "*") and destination types with a single space + converters: { + + // Convert anything to text + "* text": String, + + // Text to html (true = no transformation) + "text html": true, + + // Evaluate text as a json expression + "text json": JSON.parse, + + // Parse text as xml + "text xml": jQuery.parseXML + }, + + // For options that shouldn't be deep extended: + // you can add your own custom options here if + // and when you create one that shouldn't be + // deep extended (see ajaxExtend) + flatOptions: { + url: true, + context: true + } + }, + + // Creates a full fledged settings object into target + // with both ajaxSettings and settings fields. + // If target is omitted, writes into ajaxSettings. + ajaxSetup: function( target, settings ) { + return settings ? + + // Building a settings object + ajaxExtend( ajaxExtend( target, jQuery.ajaxSettings ), settings ) : + + // Extending ajaxSettings + ajaxExtend( jQuery.ajaxSettings, target ); + }, + + ajaxPrefilter: addToPrefiltersOrTransports( prefilters ), + ajaxTransport: addToPrefiltersOrTransports( transports ), + + // Main method + ajax: function( url, options ) { + + // If url is an object, simulate pre-1.5 signature + if ( typeof url === "object" ) { + options = url; + url = undefined; + } + + // Force options to be an object + options = options || {}; + + var transport, + + // URL without anti-cache param + cacheURL, + + // Response headers + responseHeadersString, + responseHeaders, + + // timeout handle + timeoutTimer, + + // Url cleanup var + urlAnchor, + + // Request state (becomes false upon send and true upon completion) + completed, + + // To know if global events are to be dispatched + fireGlobals, + + // Loop variable + i, + + // uncached part of the url + uncached, + + // Create the final options object + s = jQuery.ajaxSetup( {}, options ), + + // Callbacks context + callbackContext = s.context || s, + + // Context for global events is callbackContext if it is a DOM node or jQuery collection + globalEventContext = s.context && + ( callbackContext.nodeType || callbackContext.jquery ) ? + jQuery( callbackContext ) : + jQuery.event, + + // Deferreds + deferred = jQuery.Deferred(), + completeDeferred = jQuery.Callbacks( "once memory" ), + + // Status-dependent callbacks + statusCode = s.statusCode || {}, + + // Headers (they are sent all at once) + requestHeaders = {}, + requestHeadersNames = {}, + + // Default abort message + strAbort = "canceled", + + // Fake xhr + jqXHR = { + readyState: 0, + + // Builds headers hashtable if needed + getResponseHeader: function( key ) { + var match; + if ( completed ) { + if ( !responseHeaders ) { + responseHeaders = {}; + while ( ( match = rheaders.exec( responseHeadersString ) ) ) { + responseHeaders[ match[ 1 ].toLowerCase() + " " ] = + ( responseHeaders[ match[ 1 ].toLowerCase() + " " ] || [] ) + .concat( match[ 2 ] ); + } + } + match = responseHeaders[ key.toLowerCase() + " " ]; + } + return match == null ? null : match.join( ", " ); + }, + + // Raw string + getAllResponseHeaders: function() { + return completed ? responseHeadersString : null; + }, + + // Caches the header + setRequestHeader: function( name, value ) { + if ( completed == null ) { + name = requestHeadersNames[ name.toLowerCase() ] = + requestHeadersNames[ name.toLowerCase() ] || name; + requestHeaders[ name ] = value; + } + return this; + }, + + // Overrides response content-type header + overrideMimeType: function( type ) { + if ( completed == null ) { + s.mimeType = type; + } + return this; + }, + + // Status-dependent callbacks + statusCode: function( map ) { + var code; + if ( map ) { + if ( completed ) { + + // Execute the appropriate callbacks + jqXHR.always( map[ jqXHR.status ] ); + } else { + + // Lazy-add the new callbacks in a way that preserves old ones + for ( code in map ) { + statusCode[ code ] = [ statusCode[ code ], map[ code ] ]; + } + } + } + return this; + }, + + // Cancel the request + abort: function( statusText ) { + var finalText = statusText || strAbort; + if ( transport ) { + transport.abort( finalText ); + } + done( 0, finalText ); + return this; + } + }; + + // Attach deferreds + deferred.promise( jqXHR ); + + // Add protocol if not provided (prefilters might expect it) + // Handle falsy url in the settings object (#10093: consistency with old signature) + // We also use the url parameter if available + s.url = ( ( url || s.url || location.href ) + "" ) + .replace( rprotocol, location.protocol + "//" ); + + // Alias method option to type as per ticket #12004 + s.type = options.method || options.type || s.method || s.type; + + // Extract dataTypes list + s.dataTypes = ( s.dataType || "*" ).toLowerCase().match( rnothtmlwhite ) || [ "" ]; + + // A cross-domain request is in order when the origin doesn't match the current origin. + if ( s.crossDomain == null ) { + urlAnchor = document.createElement( "a" ); + + // Support: IE <=8 - 11, Edge 12 - 15 + // IE throws exception on accessing the href property if url is malformed, + // e.g. http://example.com:80x/ + try { + urlAnchor.href = s.url; + + // Support: IE <=8 - 11 only + // Anchor's host property isn't correctly set when s.url is relative + urlAnchor.href = urlAnchor.href; + s.crossDomain = originAnchor.protocol + "//" + originAnchor.host !== + urlAnchor.protocol + "//" + urlAnchor.host; + } catch ( e ) { + + // If there is an error parsing the URL, assume it is crossDomain, + // it can be rejected by the transport if it is invalid + s.crossDomain = true; + } + } + + // Convert data if not already a string + if ( s.data && s.processData && typeof s.data !== "string" ) { + s.data = jQuery.param( s.data, s.traditional ); + } + + // Apply prefilters + inspectPrefiltersOrTransports( prefilters, s, options, jqXHR ); + + // If request was aborted inside a prefilter, stop there + if ( completed ) { + return jqXHR; + } + + // We can fire global events as of now if asked to + // Don't fire events if jQuery.event is undefined in an AMD-usage scenario (#15118) + fireGlobals = jQuery.event && s.global; + + // Watch for a new set of requests + if ( fireGlobals && jQuery.active++ === 0 ) { + jQuery.event.trigger( "ajaxStart" ); + } + + // Uppercase the type + s.type = s.type.toUpperCase(); + + // Determine if request has content + s.hasContent = !rnoContent.test( s.type ); + + // Save the URL in case we're toying with the If-Modified-Since + // and/or If-None-Match header later on + // Remove hash to simplify url manipulation + cacheURL = s.url.replace( rhash, "" ); + + // More options handling for requests with no content + if ( !s.hasContent ) { + + // Remember the hash so we can put it back + uncached = s.url.slice( cacheURL.length ); + + // If data is available and should be processed, append data to url + if ( s.data && ( s.processData || typeof s.data === "string" ) ) { + cacheURL += ( rquery.test( cacheURL ) ? "&" : "?" ) + s.data; + + // #9682: remove data so that it's not used in an eventual retry + delete s.data; + } + + // Add or update anti-cache param if needed + if ( s.cache === false ) { + cacheURL = cacheURL.replace( rantiCache, "$1" ); + uncached = ( rquery.test( cacheURL ) ? "&" : "?" ) + "_=" + ( nonce.guid++ ) + + uncached; + } + + // Put hash and anti-cache on the URL that will be requested (gh-1732) + s.url = cacheURL + uncached; + + // Change '%20' to '+' if this is encoded form body content (gh-2658) + } else if ( s.data && s.processData && + ( s.contentType || "" ).indexOf( "application/x-www-form-urlencoded" ) === 0 ) { + s.data = s.data.replace( r20, "+" ); + } + + // Set the If-Modified-Since and/or If-None-Match header, if in ifModified mode. + if ( s.ifModified ) { + if ( jQuery.lastModified[ cacheURL ] ) { + jqXHR.setRequestHeader( "If-Modified-Since", jQuery.lastModified[ cacheURL ] ); + } + if ( jQuery.etag[ cacheURL ] ) { + jqXHR.setRequestHeader( "If-None-Match", jQuery.etag[ cacheURL ] ); + } + } + + // Set the correct header, if data is being sent + if ( s.data && s.hasContent && s.contentType !== false || options.contentType ) { + jqXHR.setRequestHeader( "Content-Type", s.contentType ); + } + + // Set the Accepts header for the server, depending on the dataType + jqXHR.setRequestHeader( + "Accept", + s.dataTypes[ 0 ] && s.accepts[ s.dataTypes[ 0 ] ] ? + s.accepts[ s.dataTypes[ 0 ] ] + + ( s.dataTypes[ 0 ] !== "*" ? ", " + allTypes + "; q=0.01" : "" ) : + s.accepts[ "*" ] + ); + + // Check for headers option + for ( i in s.headers ) { + jqXHR.setRequestHeader( i, s.headers[ i ] ); + } + + // Allow custom headers/mimetypes and early abort + if ( s.beforeSend && + ( s.beforeSend.call( callbackContext, jqXHR, s ) === false || completed ) ) { + + // Abort if not done already and return + return jqXHR.abort(); + } + + // Aborting is no longer a cancellation + strAbort = "abort"; + + // Install callbacks on deferreds + completeDeferred.add( s.complete ); + jqXHR.done( s.success ); + jqXHR.fail( s.error ); + + // Get transport + transport = inspectPrefiltersOrTransports( transports, s, options, jqXHR ); + + // If no transport, we auto-abort + if ( !transport ) { + done( -1, "No Transport" ); + } else { + jqXHR.readyState = 1; + + // Send global event + if ( fireGlobals ) { + globalEventContext.trigger( "ajaxSend", [ jqXHR, s ] ); + } + + // If request was aborted inside ajaxSend, stop there + if ( completed ) { + return jqXHR; + } + + // Timeout + if ( s.async && s.timeout > 0 ) { + timeoutTimer = window.setTimeout( function() { + jqXHR.abort( "timeout" ); + }, s.timeout ); + } + + try { + completed = false; + transport.send( requestHeaders, done ); + } catch ( e ) { + + // Rethrow post-completion exceptions + if ( completed ) { + throw e; + } + + // Propagate others as results + done( -1, e ); + } + } + + // Callback for when everything is done + function done( status, nativeStatusText, responses, headers ) { + var isSuccess, success, error, response, modified, + statusText = nativeStatusText; + + // Ignore repeat invocations + if ( completed ) { + return; + } + + completed = true; + + // Clear timeout if it exists + if ( timeoutTimer ) { + window.clearTimeout( timeoutTimer ); + } + + // Dereference transport for early garbage collection + // (no matter how long the jqXHR object will be used) + transport = undefined; + + // Cache response headers + responseHeadersString = headers || ""; + + // Set readyState + jqXHR.readyState = status > 0 ? 4 : 0; + + // Determine if successful + isSuccess = status >= 200 && status < 300 || status === 304; + + // Get response data + if ( responses ) { + response = ajaxHandleResponses( s, jqXHR, responses ); + } + + // Use a noop converter for missing script but not if jsonp + if ( !isSuccess && + jQuery.inArray( "script", s.dataTypes ) > -1 && + jQuery.inArray( "json", s.dataTypes ) < 0 ) { + s.converters[ "text script" ] = function() {}; + } + + // Convert no matter what (that way responseXXX fields are always set) + response = ajaxConvert( s, response, jqXHR, isSuccess ); + + // If successful, handle type chaining + if ( isSuccess ) { + + // Set the If-Modified-Since and/or If-None-Match header, if in ifModified mode. + if ( s.ifModified ) { + modified = jqXHR.getResponseHeader( "Last-Modified" ); + if ( modified ) { + jQuery.lastModified[ cacheURL ] = modified; + } + modified = jqXHR.getResponseHeader( "etag" ); + if ( modified ) { + jQuery.etag[ cacheURL ] = modified; + } + } + + // if no content + if ( status === 204 || s.type === "HEAD" ) { + statusText = "nocontent"; + + // if not modified + } else if ( status === 304 ) { + statusText = "notmodified"; + + // If we have data, let's convert it + } else { + statusText = response.state; + success = response.data; + error = response.error; + isSuccess = !error; + } + } else { + + // Extract error from statusText and normalize for non-aborts + error = statusText; + if ( status || !statusText ) { + statusText = "error"; + if ( status < 0 ) { + status = 0; + } + } + } + + // Set data for the fake xhr object + jqXHR.status = status; + jqXHR.statusText = ( nativeStatusText || statusText ) + ""; + + // Success/Error + if ( isSuccess ) { + deferred.resolveWith( callbackContext, [ success, statusText, jqXHR ] ); + } else { + deferred.rejectWith( callbackContext, [ jqXHR, statusText, error ] ); + } + + // Status-dependent callbacks + jqXHR.statusCode( statusCode ); + statusCode = undefined; + + if ( fireGlobals ) { + globalEventContext.trigger( isSuccess ? "ajaxSuccess" : "ajaxError", + [ jqXHR, s, isSuccess ? success : error ] ); + } + + // Complete + completeDeferred.fireWith( callbackContext, [ jqXHR, statusText ] ); + + if ( fireGlobals ) { + globalEventContext.trigger( "ajaxComplete", [ jqXHR, s ] ); + + // Handle the global AJAX counter + if ( !( --jQuery.active ) ) { + jQuery.event.trigger( "ajaxStop" ); + } + } + } + + return jqXHR; + }, + + getJSON: function( url, data, callback ) { + return jQuery.get( url, data, callback, "json" ); + }, + + getScript: function( url, callback ) { + return jQuery.get( url, undefined, callback, "script" ); + } +} ); + +jQuery.each( [ "get", "post" ], function( _i, method ) { + jQuery[ method ] = function( url, data, callback, type ) { + + // Shift arguments if data argument was omitted + if ( isFunction( data ) ) { + type = type || callback; + callback = data; + data = undefined; + } + + // The url can be an options object (which then must have .url) + return jQuery.ajax( jQuery.extend( { + url: url, + type: method, + dataType: type, + data: data, + success: callback + }, jQuery.isPlainObject( url ) && url ) ); + }; +} ); + +jQuery.ajaxPrefilter( function( s ) { + var i; + for ( i in s.headers ) { + if ( i.toLowerCase() === "content-type" ) { + s.contentType = s.headers[ i ] || ""; + } + } +} ); + + +jQuery._evalUrl = function( url, options, doc ) { + return jQuery.ajax( { + url: url, + + // Make this explicit, since user can override this through ajaxSetup (#11264) + type: "GET", + dataType: "script", + cache: true, + async: false, + global: false, + + // Only evaluate the response if it is successful (gh-4126) + // dataFilter is not invoked for failure responses, so using it instead + // of the default converter is kludgy but it works. + converters: { + "text script": function() {} + }, + dataFilter: function( response ) { + jQuery.globalEval( response, options, doc ); + } + } ); +}; + + +jQuery.fn.extend( { + wrapAll: function( html ) { + var wrap; + + if ( this[ 0 ] ) { + if ( isFunction( html ) ) { + html = html.call( this[ 0 ] ); + } + + // The elements to wrap the target around + wrap = jQuery( html, this[ 0 ].ownerDocument ).eq( 0 ).clone( true ); + + if ( this[ 0 ].parentNode ) { + wrap.insertBefore( this[ 0 ] ); + } + + wrap.map( function() { + var elem = this; + + while ( elem.firstElementChild ) { + elem = elem.firstElementChild; + } + + return elem; + } ).append( this ); + } + + return this; + }, + + wrapInner: function( html ) { + if ( isFunction( html ) ) { + return this.each( function( i ) { + jQuery( this ).wrapInner( html.call( this, i ) ); + } ); + } + + return this.each( function() { + var self = jQuery( this ), + contents = self.contents(); + + if ( contents.length ) { + contents.wrapAll( html ); + + } else { + self.append( html ); + } + } ); + }, + + wrap: function( html ) { + var htmlIsFunction = isFunction( html ); + + return this.each( function( i ) { + jQuery( this ).wrapAll( htmlIsFunction ? html.call( this, i ) : html ); + } ); + }, + + unwrap: function( selector ) { + this.parent( selector ).not( "body" ).each( function() { + jQuery( this ).replaceWith( this.childNodes ); + } ); + return this; + } +} ); + + +jQuery.expr.pseudos.hidden = function( elem ) { + return !jQuery.expr.pseudos.visible( elem ); +}; +jQuery.expr.pseudos.visible = function( elem ) { + return !!( elem.offsetWidth || elem.offsetHeight || elem.getClientRects().length ); +}; + + + + +jQuery.ajaxSettings.xhr = function() { + try { + return new window.XMLHttpRequest(); + } catch ( e ) {} +}; + +var xhrSuccessStatus = { + + // File protocol always yields status code 0, assume 200 + 0: 200, + + // Support: IE <=9 only + // #1450: sometimes IE returns 1223 when it should be 204 + 1223: 204 + }, + xhrSupported = jQuery.ajaxSettings.xhr(); + +support.cors = !!xhrSupported && ( "withCredentials" in xhrSupported ); +support.ajax = xhrSupported = !!xhrSupported; + +jQuery.ajaxTransport( function( options ) { + var callback, errorCallback; + + // Cross domain only allowed if supported through XMLHttpRequest + if ( support.cors || xhrSupported && !options.crossDomain ) { + return { + send: function( headers, complete ) { + var i, + xhr = options.xhr(); + + xhr.open( + options.type, + options.url, + options.async, + options.username, + options.password + ); + + // Apply custom fields if provided + if ( options.xhrFields ) { + for ( i in options.xhrFields ) { + xhr[ i ] = options.xhrFields[ i ]; + } + } + + // Override mime type if needed + if ( options.mimeType && xhr.overrideMimeType ) { + xhr.overrideMimeType( options.mimeType ); + } + + // X-Requested-With header + // For cross-domain requests, seeing as conditions for a preflight are + // akin to a jigsaw puzzle, we simply never set it to be sure. + // (it can always be set on a per-request basis or even using ajaxSetup) + // For same-domain requests, won't change header if already provided. + if ( !options.crossDomain && !headers[ "X-Requested-With" ] ) { + headers[ "X-Requested-With" ] = "XMLHttpRequest"; + } + + // Set headers + for ( i in headers ) { + xhr.setRequestHeader( i, headers[ i ] ); + } + + // Callback + callback = function( type ) { + return function() { + if ( callback ) { + callback = errorCallback = xhr.onload = + xhr.onerror = xhr.onabort = xhr.ontimeout = + xhr.onreadystatechange = null; + + if ( type === "abort" ) { + xhr.abort(); + } else if ( type === "error" ) { + + // Support: IE <=9 only + // On a manual native abort, IE9 throws + // errors on any property access that is not readyState + if ( typeof xhr.status !== "number" ) { + complete( 0, "error" ); + } else { + complete( + + // File: protocol always yields status 0; see #8605, #14207 + xhr.status, + xhr.statusText + ); + } + } else { + complete( + xhrSuccessStatus[ xhr.status ] || xhr.status, + xhr.statusText, + + // Support: IE <=9 only + // IE9 has no XHR2 but throws on binary (trac-11426) + // For XHR2 non-text, let the caller handle it (gh-2498) + ( xhr.responseType || "text" ) !== "text" || + typeof xhr.responseText !== "string" ? + { binary: xhr.response } : + { text: xhr.responseText }, + xhr.getAllResponseHeaders() + ); + } + } + }; + }; + + // Listen to events + xhr.onload = callback(); + errorCallback = xhr.onerror = xhr.ontimeout = callback( "error" ); + + // Support: IE 9 only + // Use onreadystatechange to replace onabort + // to handle uncaught aborts + if ( xhr.onabort !== undefined ) { + xhr.onabort = errorCallback; + } else { + xhr.onreadystatechange = function() { + + // Check readyState before timeout as it changes + if ( xhr.readyState === 4 ) { + + // Allow onerror to be called first, + // but that will not handle a native abort + // Also, save errorCallback to a variable + // as xhr.onerror cannot be accessed + window.setTimeout( function() { + if ( callback ) { + errorCallback(); + } + } ); + } + }; + } + + // Create the abort callback + callback = callback( "abort" ); + + try { + + // Do send the request (this may raise an exception) + xhr.send( options.hasContent && options.data || null ); + } catch ( e ) { + + // #14683: Only rethrow if this hasn't been notified as an error yet + if ( callback ) { + throw e; + } + } + }, + + abort: function() { + if ( callback ) { + callback(); + } + } + }; + } +} ); + + + + +// Prevent auto-execution of scripts when no explicit dataType was provided (See gh-2432) +jQuery.ajaxPrefilter( function( s ) { + if ( s.crossDomain ) { + s.contents.script = false; + } +} ); + +// Install script dataType +jQuery.ajaxSetup( { + accepts: { + script: "text/javascript, application/javascript, " + + "application/ecmascript, application/x-ecmascript" + }, + contents: { + script: /\b(?:java|ecma)script\b/ + }, + converters: { + "text script": function( text ) { + jQuery.globalEval( text ); + return text; + } + } +} ); + +// Handle cache's special case and crossDomain +jQuery.ajaxPrefilter( "script", function( s ) { + if ( s.cache === undefined ) { + s.cache = false; + } + if ( s.crossDomain ) { + s.type = "GET"; + } +} ); + +// Bind script tag hack transport +jQuery.ajaxTransport( "script", function( s ) { + + // This transport only deals with cross domain or forced-by-attrs requests + if ( s.crossDomain || s.scriptAttrs ) { + var script, callback; + return { + send: function( _, complete ) { + script = jQuery( " + diff --git a/docs/RefMan/_build/html/search.html b/docs/RefMan/_build/html/search.html index 7e61ed64b..dc89fa01c 100644 --- a/docs/RefMan/_build/html/search.html +++ b/docs/RefMan/_build/html/search.html @@ -14,6 +14,7 @@ + diff --git a/docs/RefMan/_build/html/searchindex.js b/docs/RefMan/_build/html/searchindex.js index 1d5f1b10c..2249ca005 100644 --- a/docs/RefMan/_build/html/searchindex.js +++ b/docs/RefMan/_build/html/searchindex.js @@ -1 +1 @@ -Search.setIndex({docnames:["BasicSyntax","BasicTypes","Expressions","Modules","OverloadedOperations","RefMan","TypeDeclarations"],envversion:{"sphinx.domains.c":2,"sphinx.domains.changeset":1,"sphinx.domains.citation":1,"sphinx.domains.cpp":4,"sphinx.domains.index":1,"sphinx.domains.javascript":2,"sphinx.domains.math":2,"sphinx.domains.python":3,"sphinx.domains.rst":2,"sphinx.domains.std":2,"sphinx.ext.todo":2,sphinx:56},filenames:["BasicSyntax.rst","BasicTypes.rst","Expressions.rst","Modules.rst","OverloadedOperations.rst","RefMan.rst","TypeDeclarations.rst"],objects:{},objnames:{},objtypes:{},terms:{"0":[1,2],"0254":0,"0b":0,"0b1010":0,"0b1010111":0,"0b11010":0,"0b11111110":0,"0b_0000_0010":0,"0o":0,"0o1234":0,"0o376":0,"0x":0,"0x01":3,"0x02":3,"0x03":3,"0x04":3,"0x1234":0,"0x30":0,"0x_ffff_ffea":0,"0xfe":0,"1":[0,1,2,3,6],"10":[0,1,3],"100":1,"11":3,"12":[0,3],"13":2,"15":1,"16":0,"1p4":0,"2":[0,1,2,3,6],"20":1,"22":2,"25":1,"254":0,"26":3,"2e3":0,"3":[0,1,2,3,6],"30":[1,3],"32":3,"33":2,"4":0,"5":[0,1,2,3],"6":[0,6],"64":0,"7":[0,2,3],"8":[2,3],"9":2,"case":3,"do":[2,3,6],"float":0,"function":[3,5,6],"import":[0,1,2,5],"new":[3,6],"public":3,"static":0,"true":1,"try":3,"while":[0,1],A:[0,1,3,6],For:[1,2,3,6],If:[2,3],In:3,It:3,Such:[0,3],The:[0,1,2,3],Then:3,There:1,To:3,_:[0,1],ab:4,abbrevi:1,abl:3,about:3,abov:[2,3],access:[2,5],accommod:2,across:3,ad:[2,3],add:3,addit:[0,3],all:[0,2,3,6],allow:[0,3,6],alphabet:1,also:[0,1,3],an:[0,1,2,5],ani:[3,6],annot:5,anonym:5,anoth:3,appear:[1,6],appli:0,applic:2,ar:[0,1,2,3,6],arbitrarili:0,argument:[5,6],arithmet:[1,5],arr:1,associ:0,assumpt:3,automat:2,avoid:3,awai:3,b:[0,3,4,6],back:1,backtick:2,baddef:1,base:[0,2],basic:5,becaus:3,befor:3,begin:0,behavior:1,being:3,belong:0,between:0,binari:0,bind:1,bit:[0,1,2,3,4],bitvector:1,block:[0,5],bodi:6,both:[1,3],bound:1,brace:1,branch:2,bring:[3,6],built:5,call:[1,3,5],can:[1,2,3,6],cannot:[0,2],ceil:[0,4],charact:0,checker:6,chosen:2,clash:3,claus:3,close:0,closest:0,cmp:4,code:3,collect:[1,6],collis:3,combin:3,comma:1,comment:5,compar:1,comparison:5,complement:4,complex:1,compon:1,comprehens:1,comput:[0,1],concaten:1,concret:3,condit:5,consid:[0,3,6],consist:0,constant:3,constraint:[0,5],construct:[1,2,3],contain:[0,1,3],content:3,context:[0,2],conveni:3,correspond:2,coupl:3,cours:3,creat:6,cry:3,cryptol:[0,2,3],cryptolpath:3,cumbersom:3,curli:1,data:1,decim:0,declar:[3,5],defin:[0,1,3,6],definit:[1,2,3],defint:2,degre:0,demot:5,deriv:3,describ:3,descript:1,desrib:3,determin:[0,1],differ:3,digit:0,dimension:1,directli:6,directori:3,distance2:1,distinct:6,divis:[0,5],document:[0,3],done:3,down:[0,1],downward:1,e11:1,e12:1,e1:1,e21:1,e22:1,e2:1,e3:1,e:[0,1,3,4],each:[3,6],easi:3,easier:3,effect:0,either:[0,3],element:[1,2],els:[0,2,3],enclos:[1,3],end:[0,3],english:0,entri:1,enumer:1,eq:4,equal:[0,1,5,6],equat:1,equival:3,error:3,evalu:2,even:[0,6],everi:6,everyth:3,ex:1,examin:1,exampl:[0,1,2,3],except:3,exclus:1,exist:[3,6],explicit:[1,3,5],expon:0,exponenti:0,express:[0,1,3,5,6],extend:3,extern:0,extract:6,f:[0,1,2,3],fals:1,famili:0,featur:3,few:3,field:[4,5,6],file:3,fill:3,fin:[0,3],finit:[1,2],first:[0,1,3],fix:[0,1],floor:4,follow:[0,1,2,3],form:6,fraction:0,from:[0,1,2,3],frominteg:4,front:1,functor:3,g:[0,2,3],gener:1,get:1,getfst:1,glu:3,good:3,group:[0,3,6],h:[2,3],ha:[0,1,2],had:6,handi:1,happen:3,hash:3,have:[0,1,2,3,6],help:3,helper1:3,helper2:3,helper:3,here:[0,2,3],hexadecim:0,hide:[0,5],hierarch:5,highest:0,hold:1,i:[0,1,3],identifi:[1,3,5],impl1:3,impl2:3,impl:3,implement:3,implicit:5,impos:3,improv:0,includ:0,indent:[0,3],index:1,inf:[1,4],infer:[0,2],inffrom:4,inffromthen:4,infinit:1,infix:[0,5],infixl:0,infixr:0,inform:1,instanti:5,instead:[3,6],insuffici:1,integ:[0,2,4,6],integr:5,intend:3,interfac:[0,5],introduc:3,invalid:1,irrelev:6,isposit:1,its:[0,3],itself:3,j:[1,3],just:[3,6],keword:3,keyword:[3,5],kind:2,known:1,l:1,label:1,lambda:[1,2],languag:0,larg:2,last:[0,2],layout:[3,5],left:[0,1],length:[0,1],less:0,let:0,letter:0,level:[3,5],lexicograph:1,lg2:0,lift:1,like:[3,6],line:[0,3,6],link:3,list:5,liter:[2,5],local:[0,3,5],locat:[1,3],logarithm:0,logic:5,longer_nam:0,longernam:0,look:3,lowest:0,m:3,mai:[0,1,2,3,6],main:3,make:3,manag:5,mani:3,mark:0,match:1,max:[0,4],maximum:0,mayb:3,mean:0,member:6,mention:6,might:3,min:[0,4],minimum:0,mirror:1,modul:[0,5],modulu:0,more:[0,3],moreov:6,most:[1,3],multipl:[0,1,2,3],must:[0,3],my:3,myf:3,n:[0,1,3],name1:0,name2:0,name:[0,1,5,6],need:[2,3],negat:4,nest:[0,1,5],newt:6,newtyp:[0,3,5],notat:[0,1,2,3],note:[1,3],noth:3,notion:3,number:[0,1,2],numer:[3,5],obtain:[1,3],occasion:3,octal:0,often:1,old:1,onc:3,one:[0,2,3],onli:[1,3,6],open:0,oper:5,option:[0,6],order:[1,3],ordinari:3,organ:0,other:[3,6],otherwis:6,outer:3,outsid:3,overload:[0,5],overview:2,ox:0,p11:1,p12:1,p1:1,p21:1,p22:1,p2:1,p3:1,p4:1,p:[0,1,3],packag:1,pad:0,pair:2,paramet:[0,2,5],parameter:5,paren:2,parenthes:1,parmaet:3,part:3,pass:[2,5],pattern:[1,2],place:3,point:1,pointwis:1,polymorph:2,polynomi:0,posit:1,possibl:[2,3],practic:3,pragma:0,pre:6,preced:[2,3],precis:0,prefix:[0,3,5],presum:3,previou:3,prime:0,primit:0,primtiv:2,principl:0,privat:[0,5],program:1,programm:0,project:6,properti:0,provid:[2,3],pt:1,purpos:[1,6],qualifi:5,quickli:1,quit:[1,3],r:1,ration:0,readabl:0,recip:4,record:[5,6],recurs:[3,6],reduc:3,refer:3,reject:0,rel:1,relat:3,remain:3,repl:1,repres:0,represent:0,requir:3,result:[0,1,2,3],right:[0,1],ring:4,rotat:1,round:[0,5],roundawai:4,roundtoeven:4,s:[0,2,3],same:[0,1,3,6],scope:[2,3,6],search:3,section:[2,3],see:[0,3],selector:1,semant:3,separ:[1,3],seq:6,sequenc:[0,5],set:1,sha256:3,shadow:3,shape:1,shift:1,should:[1,2],sign:[1,5],signatur:5,signedcmp:4,similarli:1,simpl:3,sinc:3,singl:3,site:6,situat:3,size:[0,1],slight:3,so:[0,1,2,3],some:[0,3],sometim:3,somewher:3,sourc:3,special:0,specifi:[0,2,3],split:1,start:[0,1],step:[1,3],straight:3,stream:1,stride:1,structur:3,sub:[1,3],submdul:3,submodul:[0,3],submould:3,subtract:0,suffici:[1,2],sugar:[2,3],suitabl:2,sum:6,sumbodul:3,support:[0,3],sure:3,symbol:[0,3],synonym:[3,5],syntact:3,syntax:[1,2,5],system:3,t1:1,t2:1,t3:1,t:[1,2,3,6],tabl:0,tend:3,term:0,termin:0,text:0,than:[0,3],thei:[0,1,3,6],them:3,thi:[0,1,2,3],thing:3,those:[1,3],though:6,three:1,through:[1,5],thu:[1,3],time:3,togeth:[1,3],tointeg:4,top:3,transpar:6,treat:[3,6],trunc:4,tupl:5,two:[0,1,2,3,6],typaram:2,type:[3,5],typecheck:6,typeclass:6,unari:[0,2],underscor:0,understand:3,unfold:6,unlik:6,up:0,upcom:3,updat:5,updateend:1,updatesend:1,us:[0,1,2,3,6],user:6,usual:2,valid:1,valu:[0,1,3,5,6],variabl:2,variant:3,variat:3,varieti:0,via:1,wa:3,wai:[1,3],want:3,we:[1,3],weakest:2,when:[0,1,2,3],where:[0,1,2,3],wherea:1,which:[0,2,3,6],whole:[2,3],width:[0,3],wise:1,withing:3,without:3,word:1,work:3,would:[3,6],write:[0,1],written:[0,1,2,6],x:[0,1,2,3,6],xpo:1,xs:1,y:[0,1,2,3],yet:3,you:[2,3],ypo:1,z:[0,2,3],zero:[2,5]},titles:["Basic Syntax","Basic Types","Expressions","Modules","Overloaded Operations","Cryptol Reference Manual","Type Declarations"],titleterms:{"function":[1,2],"import":3,access:1,an:3,annot:2,anonym:3,argument:[2,3],arithmet:4,basic:[0,1,4],block:[2,3],built:0,call:2,comment:0,comparison:4,condit:2,constraint:3,cryptol:5,declar:[0,2,6],demot:2,divis:4,equal:4,explicit:2,express:2,field:1,hide:3,hierarch:3,identifi:0,implicit:3,infix:2,instanti:[2,3],integr:4,interfac:3,keyword:0,layout:0,level:0,list:3,liter:0,local:2,logic:4,manag:3,manual:5,modul:3,name:3,nest:3,newtyp:6,numer:[0,2],oper:[0,1,2,4],overload:4,paramet:3,parameter:3,pass:3,preced:0,prefix:2,privat:3,qualifi:3,record:1,refer:5,round:4,sequenc:1,sign:4,signatur:0,synonym:6,syntax:0,through:3,todo:[0,2],tupl:1,type:[0,1,2,6],updat:1,valu:2,zero:4}}) \ No newline at end of file +Search.setIndex({"docnames": ["BasicSyntax", "BasicTypes", "Expressions", "Modules", "OverloadedOperations", "RefMan", "TypeDeclarations"], "filenames": ["BasicSyntax.rst", "BasicTypes.rst", "Expressions.rst", "Modules.rst", "OverloadedOperations.rst", "RefMan.rst", "TypeDeclarations.rst"], "titles": ["Basic Syntax", "Basic Types", "Expressions", "Modules", "Overloaded Operations", "Cryptol Reference Manual", "Type Declarations"], "terms": {"f": [0, 1, 2, 3], "x": [0, 1, 2, 3, 6], "y": [0, 1, 2, 3], "z": [0, 2, 3], "g": [0, 2, 3], "b": [0, 3, 4, 6], "fin": [0, 3], "A": [0, 1, 3, 6], "can": [0, 1, 2, 3, 6], "us": [0, 1, 2, 3, 6], "which": [0, 2, 3, 6], "ar": [0, 1, 2, 3, 6], "like": [0, 3, 6], "normal": 0, "multi": 0, "branch": [0, 2], "express": [0, 1, 3, 5, 6], "except": [0, 3], "condit": [0, 5], "For": [0, 1, 2, 3, 6], "exampl": [0, 1, 2, 3], "len": 0, "n": [0, 1, 3], "integ": [0, 2, 4, 6], "xs": [0, 1], "0": [0, 1, 2], "1": [0, 1, 2, 3, 6], "drop": 0, "note": [0, 1, 3], "thi": [0, 1, 2, 3], "importantli": 0, "differ": [0, 3], "from": [0, 1, 2, 3], "In": [0, 3], "checker": [0, 6], "cannot": [0, 2], "determin": [0, 1], "requir": [0, 3], "sinc": [0, 3], "s": [0, 2, 3], "onli": [0, 1, 3, 6], "valu": [0, 1, 3, 5, 6], "howev": 0, "local": [0, 3, 5], "assum": 0, "so": [0, 1, 2, 3], "fact": 0, "support": [0, 3], "over": 0, "etc": 0, "alias": 0, "also": [0, 1, 3], "long": 0, "thei": [0, 1, 3, 6], "group": [0, 3, 6], "organ": 0, "base": [0, 2], "indent": [0, 3], "same": [0, 1, 3, 6], "belong": 0, "line": [0, 3, 6], "text": 0, "more": [0, 3], "than": [0, 3], "begin": 0, "while": [0, 1], "less": 0, "termin": 0, "consid": [0, 3, 6], "follow": [0, 1, 2, 3], "cryptol": [0, 2, 3], "where": [0, 1, 2, 3], "ha": [0, 1, 2], "two": [0, 1, 2, 3, 6], "one": [0, 2, 3], "all": [0, 2, 3, 6], "between": 0, "The": [0, 1, 2, 3], "principl": 0, "appli": 0, "block": [0, 5], "defin": [0, 1, 3, 6], "name": [0, 1, 5, 6], "start": [0, 1], "end": [0, 3], "mai": [0, 1, 2, 3, 6], "nest": [0, 1, 5], "arbitrarili": 0, "document": [0, 3], "consist": 0, "charact": 0, "first": [0, 1, 3], "must": [0, 3], "either": [0, 3], "an": [0, 1, 2, 5], "english": 0, "letter": 0, "underscor": 0, "_": [0, 1], "decim": 0, "digit": 0, "prime": 0, "some": [0, 3], "have": [0, 1, 2, 3, 6], "special": 0, "mean": 0, "languag": 0, "programm": 0, "see": [0, 3], "name1": 0, "longer_nam": 0, "name2": 0, "longernam": 0, "extern": 0, "includ": 0, "interfac": [0, 5], "paramet": [0, 2, 5], "properti": 0, "hide": [0, 5], "infix": [0, 5], "let": 0, "pragma": 0, "submodul": [0, 3], "els": [0, 2, 3], "infixl": 0, "modul": [0, 5], "primit": 0, "down": [0, 1], "import": [0, 1, 2, 5], "infixr": 0, "newtyp": [0, 3, 5], "privat": [0, 5], "tabl": 0, "contain": [0, 1, 3], "associ": 0, "lowest": 0, "highest": 0, "last": [0, 2], "right": [0, 1], "left": [0, 1], "unari": [0, 2], "varieti": 0, "allow": [0, 3, 6], "comput": [0, 1], "specifi": [0, 2, 3], "size": [0, 1], "sequenc": [0, 5], "addit": [0, 3], "subtract": 0, "multipl": [0, 1, 2, 3], "divis": [0, 5], "ceil": [0, 4], "round": [0, 5], "up": 0, "modulu": 0, "pad": 0, "exponenti": 0, "lg2": 0, "logarithm": 0, "2": [0, 1, 2, 3, 6], "width": [0, 3], "bit": [0, 1, 2, 3, 4], "equal": [0, 1, 5, 6], "max": [0, 4], "maximum": 0, "min": [0, 4], "minimum": 0, "written": [0, 1, 2, 6], "binari": 0, "octal": 0, "hexadecim": 0, "notat": [0, 1, 2, 3], "its": [0, 3], "prefix": [0, 3, 5], "0b": 0, "0o": 0, "0x": 0, "254": 0, "0254": 0, "0b11111110": 0, "0o376": 0, "0xfe": 0, "result": [0, 1, 2, 3], "fix": [0, 1], "length": [0, 1], "i": [0, 1, 3], "e": [0, 1, 3, 4], "number": [0, 1, 2], "overload": [0, 5], "infer": [0, 2], "context": [0, 2], "0b1010": 0, "4": 0, "0o1234": 0, "12": [0, 3], "3": [0, 1, 2, 3, 6], "0x1234": 0, "16": 0, "10": [0, 1, 3], "polynomi": 0, "write": [0, 1], "term": 0, "open": 0, "close": 0, "degre": 0, "6": [0, 6], "7": [0, 2, 3], "0b1010111": 0, "5": [0, 1, 2, 3], "0b11010": 0, "fraction": 0, "ox": 0, "option": [0, 6], "expon": 0, "mark": 0, "symbol": [0, 3], "p": [0, 1, 3], "2e3": 0, "0x30": 0, "64": 0, "1p4": 0, "ration": 0, "float": 0, "famili": 0, "repres": 0, "precis": 0, "Such": [0, 3], "reject": 0, "static": 0, "when": [0, 1, 2, 3], "closest": 0, "represent": 0, "even": [0, 6], "effect": 0, "improv": 0, "readabl": 0, "here": [0, 2, 3], "0b_0000_0010": 0, "0x_ffff_ffea": 0, "packag": 1, "togeth": [1, 3], "enclos": [1, 3], "parenthes": 1, "curli": 1, "brace": 1, "compon": 1, "both": [1, 3], "separ": [1, 3], "comma": 1, "label": 1, "sign": [1, 5], "identifi": [1, 3, 5], "posit": 1, "order": [1, 3], "most": [1, 3], "purpos": [1, 6], "true": 1, "fals": 1, "lexicograph": 1, "compar": 1, "appear": [1, 6], "wherea": 1, "alphabet": 1, "wai": [1, 3], "via": 1, "pattern": [1, 2], "match": 1, "explicit": [1, 3, 5], "selector": 1, "15": 1, "20": 1, "program": 1, "suffici": [1, 2], "inform": 1, "shape": 1, "t": [1, 2, 3, 6], "valid": 1, "definit": [1, 2, 3], "known": 1, "isposit": 1, "invalid": 1, "insuffici": 1, "baddef": 1, "mirror": 1, "syntax": [1, 2, 5], "construct": [1, 2, 3], "getfst": 1, "distance2": 1, "xpo": 1, "ypo": 1, "lift": 1, "through": [1, 5], "point": 1, "wise": 1, "equat": 1, "should": [1, 2], "hold": 1, "l": 1, "thu": [1, 3], "we": [1, 3], "quickli": 1, "obtain": [1, 3], "similarli": 1, "get": 1, "entri": 1, "behavior": 1, "quit": [1, 3], "handi": 1, "examin": 1, "complex": 1, "data": 1, "repl": 1, "r": 1, "pt": 1, "100": 1, "set": 1, "30": [1, 3], "rel": 1, "old": 1, "25": 1, "collect": [1, 6], "element": [1, 2], "finit": [1, 2], "often": 1, "call": [1, 3, 5], "word": 1, "abbrevi": 1, "infinit": 1, "inf": [1, 4], "stream": 1, "e1": 1, "e2": 1, "e3": 1, "three": 1, "t1": 1, "t2": 1, "enumer": 1, "exclus": 1, "bound": 1, "stride": 1, "ex": 1, "downward": 1, "t3": 1, "step": [1, 3], "p11": 1, "e11": 1, "p12": 1, "e12": 1, "comprehens": 1, "p21": 1, "e21": 1, "p22": 1, "e22": 1, "gener": 1, "index": 1, "bind": 1, "arr": 1, "j": [1, 3], "dimension": 1, "those": [1, 3], "descript": 1, "concaten": 1, "shift": 1, "rotat": 1, "arithmet": [1, 5], "bitvector": 1, "front": 1, "back": 1, "sub": [1, 3], "updateend": 1, "locat": [1, 3], "updatesend": 1, "There": 1, "pointwis": 1, "p1": 1, "p2": 1, "p3": 1, "p4": 1, "split": 1, "lambda": [1, 2], "section": [2, 3], "provid": [2, 3], "overview": 2, "h": [2, 3], "pair": 2, "paren": 2, "ad": [2, 3], "8": [2, 3], "whole": [2, 3], "9": 2, "variabl": 2, "If": [2, 3], "polymorph": 2, "typaram": 2, "zero": [2, 5], "you": [2, 3], "evalu": 2, "pass": [2, 5], "13": 2, "weakest": 2, "preced": [2, 3], "scope": [2, 3, 6], "defint": 2, "do": [2, 3, 6], "need": [2, 3], "22": 2, "33": 2, "correspond": 2, "access": [2, 5], "kind": 2, "larg": 2, "accommod": 2, "liter": [2, 5], "backtick": 2, "sugar": [2, 3], "applic": 2, "primtiv": 2, "abov": [2, 3], "suitabl": 2, "automat": 2, "chosen": 2, "possibl": [2, 3], "usual": 2, "relat": 3, "each": [3, 6], "file": 3, "top": 3, "level": [3, 5], "m": 3, "type": [3, 5], "simpl": 3, "glu": 3, "ordinari": 3, "hash": 3, "sha256": 3, "structur": 3, "implement": 3, "search": 3, "look": 3, "cry": 3, "directori": 3, "cryptolpath": 3, "To": 3, "anoth": 3, "declar": [3, 5], "wa": 3, "sometim": 3, "want": 3, "0x02": 3, "0x03": 3, "0x04": 3, "help": 3, "reduc": 3, "collis": 3, "It": 3, "tend": 3, "make": 3, "code": 3, "easier": 3, "understand": 3, "becaus": 3, "easi": 3, "sourc": 3, "mani": 3, "them": 3, "few": 3, "would": [3, 6], "clash": 3, "situat": 3, "conveni": 3, "everyth": 3, "avoid": 3, "work": 3, "happen": 3, "combin": 3, "claus": 3, "introduc": 3, "case": 3, "might": 3, "helper": 3, "function": [3, 5, 6], "intend": 3, "outsid": 3, "good": 3, "practic": 3, "place": 3, "0x01": 3, "helper1": 3, "helper2": 3, "public": 3, "remain": 3, "extend": 3, "keyword": [3, 5], "new": [3, 6], "layout": [3, 5], "singl": 3, "equival": 3, "previou": 3, "withing": 3, "other": [3, 6], "keword": 3, "refer": 3, "shadow": 3, "outer": 3, "submdul": 3, "just": [3, 6], "recurs": [3, 6], "across": 3, "error": 3, "try": 3, "add": 3, "submould": 3, "system": 3, "ani": [3, 6], "befor": 3, "bring": [3, 6], "Then": 3, "upcom": 3, "variant": 3, "featur": 3, "yet": 3, "part": 3, "main": 3, "describ": 3, "content": 3, "without": 3, "concret": 3, "numer": [3, 5], "assumpt": 3, "about": 3, "constant": 3, "instead": [3, 6], "desrib": 3, "parmaet": 3, "sumbodul": 3, "sure": 3, "onc": 3, "mayb": 3, "link": 3, "abl": 3, "impos": 3, "cours": 3, "done": 3, "impl": 3, "26": 3, "myf": 3, "fill": 3, "my": 3, "slight": 3, "variat": 3, "impl1": 3, "impl2": 3, "deriv": 3, "itself": 3, "somewher": 3, "presum": 3, "coupl": 3, "cumbersom": 3, "straight": 3, "awai": 3, "thing": 3, "notion": 3, "32": 3, "11": 3, "treat": [3, 6], "syntact": 3, "functor": 3, "time": 3, "synonym": [3, 5], "noth": 3, "exist": [3, 6], "semant": 3, "occasion": 3, "being": 3, "eq": 4, "cmp": 4, "ab": 4, "ring": 4, "signedcmp": 4, "complement": 4, "frominteg": 4, "negat": 4, "tointeg": 4, "inffrom": 4, "inffromthen": 4, "field": [4, 5, 6], "recip": 4, "floor": 4, "trunc": 4, "roundawai": 4, "roundtoeven": 4, "basic": 5, "signatur": 5, "constraint": 5, "guard": 5, "comment": 5, "built": 5, "oper": 5, "annot": 5, "instanti": 5, "argument": [5, 6], "demot": 5, "tupl": 5, "record": [5, 6], "updat": 5, "comparison": 5, "logic": 5, "integr": 5, "hierarch": 5, "list": 5, "qualifi": 5, "implicit": 5, "manag": 5, "parameter": 5, "anonym": 5, "creat": 6, "pre": 6, "transpar": 6, "unfold": 6, "site": 6, "though": 6, "user": 6, "had": 6, "bodi": 6, "mention": 6, "newt": 6, "seq": 6, "unlik": 6, "distinct": 6, "moreov": 6, "member": 6, "typeclass": 6, "typecheck": 6, "otherwis": 6, "irrelev": 6, "form": 6, "everi": 6, "project": 6, "directli": 6, "extract": 6, "sum": 6, "exhaust": 0}, "objects": {}, "objtypes": {}, "objnames": {}, "titleterms": {"basic": [0, 1, 4], "syntax": 0, "declar": [0, 2, 6], "type": [0, 1, 2, 6], "signatur": 0, "numer": [0, 2], "constraint": [0, 3], "guard": 0, "layout": 0, "comment": 0, "todo": [0, 2], "identifi": 0, "keyword": 0, "built": 0, "oper": [0, 1, 2, 4], "preced": 0, "level": 0, "liter": 0, "tupl": 1, "record": 1, "access": 1, "field": 1, "updat": 1, "sequenc": 1, "function": [1, 2], "express": 2, "call": 2, "prefix": 2, "infix": 2, "annot": 2, "explicit": 2, "instanti": [2, 3], "local": 2, "block": [2, 3], "argument": [2, 3], "condit": 2, "demot": 2, "valu": 2, "modul": 3, "hierarch": 3, "name": 3, "import": 3, "list": 3, "hide": 3, "qualifi": 3, "privat": 3, "nest": 3, "implicit": 3, "manag": 3, "parameter": 3, "interfac": 3, "an": 3, "anonym": 3, "pass": 3, "through": 3, "paramet": 3, "overload": 4, "equal": 4, "comparison": 4, "sign": 4, "zero": 4, "logic": 4, "arithmet": 4, "integr": 4, "divis": 4, "round": 4, "cryptol": 5, "refer": 5, "manual": 5, "synonym": 6, "newtyp": 6}, "envversion": {"sphinx.domains.c": 2, "sphinx.domains.changeset": 1, "sphinx.domains.citation": 1, "sphinx.domains.cpp": 6, "sphinx.domains.index": 1, "sphinx.domains.javascript": 2, "sphinx.domains.math": 2, "sphinx.domains.python": 3, "sphinx.domains.rst": 2, "sphinx.domains.std": 2, "sphinx.ext.todo": 2, "sphinx": 56}}) \ No newline at end of file From 369ebfbd56986ddbc8563903b3577c54200041a2 Mon Sep 17 00:00:00 2001 From: Henry Blanchette Date: Thu, 11 Aug 2022 14:20:30 -0700 Subject: [PATCH 046/125] tryProveImplication --- src/Cryptol/TypeCheck/Solve.hs | 25 +++++++++++++++++++++++++ 1 file changed, 25 insertions(+) diff --git a/src/Cryptol/TypeCheck/Solve.hs b/src/Cryptol/TypeCheck/Solve.hs index d79764546..6c0b717d9 100644 --- a/src/Cryptol/TypeCheck/Solve.hs +++ b/src/Cryptol/TypeCheck/Solve.hs @@ -11,6 +11,7 @@ module Cryptol.TypeCheck.Solve ( simplifyAllConstraints , proveImplication + , tryProveImplication , proveModuleTopLevel , defaultAndSimplify , defaultReplExpr @@ -285,6 +286,30 @@ proveImplication lnam as ps gs = Left errs -> mapM_ recordError errs return su +-- | Tries to prove an implication. If proved, then returns `Right (m_su :: +-- InferM Subst)` where `m_su` is an `InferM` computation that results in the +-- solution substitution, and records any warning invoked during proving. If not +-- proved, then returns `Left (m_err :: InferM ())`, which records all errors +-- invoked during proving. +tryProveImplication :: + Maybe Name -> [TParam] -> [Prop] -> [Goal] -> + InferM (Either (InferM ()) (InferM Subst)) +tryProveImplication lnam as ps gs = + do evars <- varsWithAsmps + solver <- getSolver + + extraAs <- (map mtpParam . Map.elems) <$> getParamTypes + extra <- map thing <$> getParamConstraints + + (mbErr,su) <- io (proveImplicationIO solver lnam evars + (extraAs ++ as) (extra ++ ps) gs) + case mbErr of + Left errs -> pure . Left $ do + mapM_ recordError errs + Right ws -> pure . Right $ do + mapM_ recordWarning ws + return su + proveImplicationIO :: Solver -> Maybe Name -- ^ Checking this function -> Set TVar -- ^ These appear in the env., and we should From 795eb2865206f17b1c2c9b1ca238e8ba9f765cc0 Mon Sep 17 00:00:00 2001 From: Henry Blanchette Date: Thu, 11 Aug 2022 15:35:42 -0700 Subject: [PATCH 047/125] warnings for non-exhaustive constraint guards --- src/Cryptol/REPL/Monad.hs | 2 + src/Cryptol/TypeCheck/Error.hs | 7 ++ src/Cryptol/TypeCheck/Infer.hs | 123 +++++++++++++++++----------- src/Cryptol/TypeCheck/InferTypes.hs | 3 + tests/constraint-guards/Len.cry | 2 + 5 files changed, 89 insertions(+), 48 deletions(-) diff --git a/src/Cryptol/REPL/Monad.hs b/src/Cryptol/REPL/Monad.hs index f77cc6d70..12cb99e13 100644 --- a/src/Cryptol/REPL/Monad.hs +++ b/src/Cryptol/REPL/Monad.hs @@ -902,6 +902,8 @@ userOptions = mkOptionMap "Choose whether to display warnings when expression association has changed due to new prefix operator fixities." , simpleOpt "warnUninterp" ["warn-uninterp"] (EnvBool True) noCheck "Choose whether to issue a warning when uninterpreted functions are used to implement primitives in the symbolic simulator." + , simpleOpt "warnNonExhaustiveConstraintGuards" ["warn-nonexhaustive-constraintguards"] (EnvBool True) noCheck + "Choose whether to issue a warning when a use of constraint guards is not determined to be exhaustive." , simpleOpt "smtFile" ["smt-file"] (EnvString "-") noCheck "The file to use for SMT-Lib scripts (for debugging or offline proving).\nUse \"-\" for stdout." , OptionDescr "path" [] (EnvString "") noCheck diff --git a/src/Cryptol/TypeCheck/Error.hs b/src/Cryptol/TypeCheck/Error.hs index cdb542596..71e8e4903 100644 --- a/src/Cryptol/TypeCheck/Error.hs +++ b/src/Cryptol/TypeCheck/Error.hs @@ -65,6 +65,7 @@ subsumes _ _ = False data Warning = DefaultingKind (P.TParam Name) P.Kind | DefaultingWildType P.Kind | DefaultingTo !TVarInfo Type + | NonExhaustivePropGuards Name deriving (Show, Generic, NFData) -- | Various errors that might happen during type checking/inference @@ -208,6 +209,7 @@ instance TVars Warning where DefaultingKind {} -> warn DefaultingWildType {} -> warn DefaultingTo d ty -> DefaultingTo d $! (apSubst su ty) + NonExhaustivePropGuards {} -> warn instance FVS Warning where fvs warn = @@ -215,6 +217,7 @@ instance FVS Warning where DefaultingKind {} -> Set.empty DefaultingWildType {} -> Set.empty DefaultingTo _ ty -> fvs ty + NonExhaustivePropGuards {} -> Set.empty instance TVars Error where apSubst su err = @@ -307,6 +310,10 @@ instance PP (WithNames Warning) where text "Defaulting" <+> pp (tvarDesc d) <+> text "to" <+> ppWithNames names ty + NonExhaustivePropGuards n -> + text "Could not prove that the constraint guards used in defining" <+> + pp n <+> text "were exhaustive." + instance PP (WithNames Error) where ppPrec _ (WithNames err names) = case err of diff --git a/src/Cryptol/TypeCheck/Infer.hs b/src/Cryptol/TypeCheck/Infer.hs index f54f0797c..4d994e215 100644 --- a/src/Cryptol/TypeCheck/Infer.hs +++ b/src/Cryptol/TypeCheck/Infer.hs @@ -18,6 +18,8 @@ -- See Note [-Wincomplete-uni-patterns and irrefutable patterns] in Cryptol.TypeCheck.TypePat {-# OPTIONS_GHC -Wno-incomplete-uni-patterns #-} {-# LANGUAGE LambdaCase #-} +{-# OPTIONS_GHC -Wno-unrecognised-pragmas #-} +{-# HLINT ignore "Redundant <$>" #-} module Cryptol.TypeCheck.Infer ( checkE , checkSigB @@ -57,15 +59,14 @@ import Cryptol.Utils.PP (pp) import qualified Data.Map as Map import Data.Map (Map) import qualified Data.Set as Set -import Data.List(foldl',sortBy,groupBy) -import Data.Either(partitionEithers) +import Data.List(foldl', sortBy, groupBy, partition) +import Data.Either(partitionEithers, isRight) import Data.Maybe(isJust, fromMaybe, mapMaybe) -import Data.List(partition) import Data.Ratio(numerator,denominator) import Data.Traversable(forM) import Data.Function(on) import Control.Monad(zipWithM,unless,foldM,forM_,mplus) -import Data.Bifunctor (Bifunctor(second)) +import Data.Bifunctor (Bifunctor(second)) @@ -976,12 +977,13 @@ checkMonoB b t = -- XXX: Do we really need to do the defaulting business in two different places? checkSigB :: P.Bind Name -> (Schema,[Goal]) -> InferM Decl checkSigB b (Forall as asmps0 t0, validSchema) = + let name = thing (P.bName b) in case thing (P.bDef b) of -- XXX what should we do with validSchema in this case? P.DPrim -> do return Decl - { dName = thing (P.bName b) + { dName = name , dSignature = Forall as asmps0 t0 , dDefinition = DPrim , dPragmas = P.bPragmas b @@ -996,7 +998,7 @@ checkSigB b (Forall as asmps0 t0, validSchema) = (t, asmps, e2) <- checkBindDefExpr [] asmps0 e0 return Decl - { dName = thing (P.bName b) + { dName = name , dSignature = Forall as asmps t , dDefinition = DExpr (foldr ETAbs (foldr EProofAbs e2 asmps) as) , dPragmas = P.bPragmas b @@ -1005,50 +1007,75 @@ checkSigB b (Forall as asmps0 t0, validSchema) = , dDoc = P.bDoc b } - P.DPropGuards cases0 -> + P.DPropGuards cases0 -> do inRangeMb (getLoc b) $ - withTParams as $ do - asmps1 <- applySubstPreds asmps0 - t1 <- applySubst t0 - - -- Checking each guarded case is the same as checking a DExpr, except - -- that the guarding assumptions are added first. - let checkPropGuardCase :: ([P.Prop Name], P.Expr Name) -> InferM ([Prop], Expr) - checkPropGuardCase (guards0, e0) = do - mb_rng <- case P.bSignature b of - Just (P.Forall _ _ _ mb_rng) -> pure mb_rng - _ -> panic "checkSigB" - [ "Used constraint guards without a signature, dumbwit, at " - , show . pp $ P.bName b ] - -- check guards - (guards1, goals) <- - second concat . unzip <$> - checkPropGuard mb_rng `traverse` guards0 - -- try to prove all goals - su <- proveImplication (Just . thing $ P.bName b) as (asmps1 <> guards1) goals - extendSubst su - -- preprends the goals to the constraints, because these must be - -- checked first before the rest of the constraints (during - -- evaluation) to ensure well-definedness, since some constraints - -- make use of partial functions e.g. `a - b` requires `a >= b`. - let guards2 = (goal <$> goals) <> concatMap pSplitAnd (apSubst su guards1) - (_t, guards3, e1) <- checkBindDefExpr asmps1 guards2 e0 - e2 <- applySubst e1 - pure (guards3, e2) - - cases1 <- mapM checkPropGuardCase cases0 + withTParams as $ do + asmps1 <- applySubstPreds asmps0 + t1 <- applySubst t0 + + -- Checking each guarded case is the same as checking a DExpr, except + -- that the guarding assumptions are added first. + let checkPropGuardCase :: ([P.Prop Name], P.Expr Name) -> InferM ([Prop], Expr) + checkPropGuardCase (guards0, e0) = do + mb_rng <- case P.bSignature b of + Just (P.Forall _ _ _ mb_rng) -> pure mb_rng + _ -> panic "checkSigB" + [ "Used constraint guards without a signature, dumbwit, at " + , show . pp $ P.bName b ] + -- check guards + (guards1, goals) <- + second concat . unzip <$> + checkPropGuard mb_rng `traverse` guards0 + -- try to prove all goals + su <- proveImplication (Just name) as (asmps1 <> guards1) goals + extendSubst su + -- Preprends the goals to the constraints, because these must be + -- checked first before the rest of the constraints (during + -- evaluation) to ensure well-definedness, since some constraints + -- make use of partial functions e.g. `a - b` requires `a >= b`. + let guards2 = (goal <$> goals) <> concatMap pSplitAnd (apSubst su guards1) + (_t, guards3, e1) <- checkBindDefExpr asmps1 guards2 e0 + e2 <- applySubst e1 + pure (guards3, e2) + + cases1 <- mapM checkPropGuardCase cases0 + + -- Try to prove that at leats one guard will be satisfied. We do this + -- instead of directly check exhaustive because that requires either + -- negation or disjunction, which are not currently provided for Cryptol + -- constraints. + or <$> mapM + (\(props, _e) -> + isRight <$> tryProveImplication (Just name) as asmps1 + ((\goal -> + Goal + { goalSource = CtPropGuardsExhaustion name + , goalRange = srcRange $ P.bName b + , goal = goal} + ) + <$> props) + ) + cases1 >>= \case + True -> + -- proved exhaustive + pure () + False -> + -- didn't prove exhaustive i.e. none of the guarding props + -- necessarily hold + recordWarning (NonExhaustivePropGuards name) + + return Decl + { dName = name + , dSignature = Forall as asmps1 t1 + , dDefinition = DExpr + (foldr ETAbs + (foldr EProofAbs (EPropGuards cases1) asmps1) as) + , dPragmas = P.bPragmas b + , dInfix = P.bInfix b + , dFixity = P.bFixity b + , dDoc = P.bDoc b + } - return Decl - { dName = thing (P.bName b) - , dSignature = Forall as asmps1 t1 - , dDefinition = DExpr - (foldr ETAbs - (foldr EProofAbs (EPropGuards cases1) asmps1) as) - , dPragmas = P.bPragmas b - , dInfix = P.bInfix b - , dFixity = P.bFixity b - , dDoc = P.bDoc b - } where diff --git a/src/Cryptol/TypeCheck/InferTypes.hs b/src/Cryptol/TypeCheck/InferTypes.hs index 217a9c0dc..a220bacfc 100644 --- a/src/Cryptol/TypeCheck/InferTypes.hs +++ b/src/Cryptol/TypeCheck/InferTypes.hs @@ -220,6 +220,7 @@ data ConstraintSource | CtImprovement | CtPattern TypeSource -- ^ Constraints arising from type-checking patterns | CtModuleInstance ModName -- ^ Instantiating a parametrized module + | CtPropGuardsExhaustion Name -- ^ Checking that a use of prop guards is exhastive deriving (Show, Generic, NFData) selSrc :: Selector -> TypeSource @@ -247,6 +248,7 @@ instance TVars ConstraintSource where CtImprovement -> src CtPattern _ -> src CtModuleInstance _ -> src + CtPropGuardsExhaustion _ -> src instance FVS Goal where @@ -353,6 +355,7 @@ instance PP ConstraintSource where CtImprovement -> "examination of collected goals" CtPattern ad -> "checking a pattern:" <+> pp ad CtModuleInstance n -> "module instantiation" <+> pp n + CtPropGuardsExhaustion n -> "exhaustion check for prop guards used in defining" <+> pp n ppUse :: Expr -> Doc ppUse expr = diff --git a/tests/constraint-guards/Len.cry b/tests/constraint-guards/Len.cry index fcb655d0c..5cdb79ef3 100644 --- a/tests/constraint-guards/Len.cry +++ b/tests/constraint-guards/Len.cry @@ -1,3 +1,5 @@ +// Yields non-exhaustive constraint guards warning if +// warnNonExhaustiveConstraintGuards is on. len : {n,a} (fin n) => [n] a -> Integer len x | (n == 0) => 0 From e08fc8ff0fcf8dcc80e7d073d19e3b03cf4c9670 Mon Sep 17 00:00:00 2001 From: Henry Blanchette Date: Thu, 11 Aug 2022 16:53:21 -0700 Subject: [PATCH 048/125] only check exhaustive constraint guards if user option is on --- src/Cryptol/TypeCheck/Infer.hs | 56 +++++++++++++++-------------- src/Cryptol/TypeCheck/InferTypes.hs | 6 ++-- src/Cryptol/TypeCheck/Monad.hs | 6 ++++ 3 files changed, 38 insertions(+), 30 deletions(-) diff --git a/src/Cryptol/TypeCheck/Infer.hs b/src/Cryptol/TypeCheck/Infer.hs index 4d994e215..76f7e4b09 100644 --- a/src/Cryptol/TypeCheck/Infer.hs +++ b/src/Cryptol/TypeCheck/Infer.hs @@ -65,7 +65,7 @@ import Data.Maybe(isJust, fromMaybe, mapMaybe) import Data.Ratio(numerator,denominator) import Data.Traversable(forM) import Data.Function(on) -import Control.Monad(zipWithM,unless,foldM,forM_,mplus) +import Control.Monad(zipWithM,unless,foldM,forM_,mplus, when) import Data.Bifunctor (Bifunctor(second)) @@ -1013,7 +1013,7 @@ checkSigB b (Forall as asmps0 t0, validSchema) = asmps1 <- applySubstPreds asmps0 t1 <- applySubst t0 - -- Checking each guarded case is the same as checking a DExpr, except + -- Checking each guarded case is the same as checking a DExpr, except -- that the guarding assumptions are added first. let checkPropGuardCase :: ([P.Prop Name], P.Expr Name) -> InferM ([Prop], Expr) checkPropGuardCase (guards0, e0) = do @@ -1031,8 +1031,9 @@ checkSigB b (Forall as asmps0 t0, validSchema) = extendSubst su -- Preprends the goals to the constraints, because these must be -- checked first before the rest of the constraints (during - -- evaluation) to ensure well-definedness, since some constraints - -- make use of partial functions e.g. `a - b` requires `a >= b`. + -- evaluation) to ensure well-definedness, since some + -- constraints make use of partial functions e.g. `a - b` + -- requires `a >= b`. let guards2 = (goal <$> goals) <> concatMap pSplitAnd (apSubst su guards1) (_t, guards3, e1) <- checkBindDefExpr asmps1 guards2 e0 e2 <- applySubst e1 @@ -1040,29 +1041,30 @@ checkSigB b (Forall as asmps0 t0, validSchema) = cases1 <- mapM checkPropGuardCase cases0 - -- Try to prove that at leats one guard will be satisfied. We do this - -- instead of directly check exhaustive because that requires either - -- negation or disjunction, which are not currently provided for Cryptol - -- constraints. - or <$> mapM - (\(props, _e) -> - isRight <$> tryProveImplication (Just name) as asmps1 - ((\goal -> - Goal - { goalSource = CtPropGuardsExhaustion name - , goalRange = srcRange $ P.bName b - , goal = goal} - ) - <$> props) - ) - cases1 >>= \case - True -> - -- proved exhaustive - pure () - False -> - -- didn't prove exhaustive i.e. none of the guarding props - -- necessarily hold - recordWarning (NonExhaustivePropGuards name) + askWarnNonExhaustiveConstraintGuards >>= \flag -> when flag $ + -- Try to prove that at leats one guard will be satisfied. We do + -- this instead of directly check exhaustive because that requires + -- either negation or disjunction, which are not currently provided + -- for Cryptol constraints. + or <$> mapM + (\(props, _e) -> + isRight <$> tryProveImplication (Just name) as asmps1 + ((\goal -> + Goal + { goalSource = CtPropGuardsExhaustive name + , goalRange = srcRange $ P.bName b + , goal = goal} + ) + <$> props) + ) + cases1 >>= \case + True -> + -- proved exhaustive + pure () + False -> + -- didn't prove exhaustive i.e. none of the guarding props + -- necessarily hold + recordWarning (NonExhaustivePropGuards name) return Decl { dName = name diff --git a/src/Cryptol/TypeCheck/InferTypes.hs b/src/Cryptol/TypeCheck/InferTypes.hs index a220bacfc..821a86d1c 100644 --- a/src/Cryptol/TypeCheck/InferTypes.hs +++ b/src/Cryptol/TypeCheck/InferTypes.hs @@ -220,7 +220,7 @@ data ConstraintSource | CtImprovement | CtPattern TypeSource -- ^ Constraints arising from type-checking patterns | CtModuleInstance ModName -- ^ Instantiating a parametrized module - | CtPropGuardsExhaustion Name -- ^ Checking that a use of prop guards is exhastive + | CtPropGuardsExhaustive Name -- ^ Checking that a use of prop guards is exhastive deriving (Show, Generic, NFData) selSrc :: Selector -> TypeSource @@ -248,7 +248,7 @@ instance TVars ConstraintSource where CtImprovement -> src CtPattern _ -> src CtModuleInstance _ -> src - CtPropGuardsExhaustion _ -> src + CtPropGuardsExhaustive _ -> src instance FVS Goal where @@ -355,7 +355,7 @@ instance PP ConstraintSource where CtImprovement -> "examination of collected goals" CtPattern ad -> "checking a pattern:" <+> pp ad CtModuleInstance n -> "module instantiation" <+> pp n - CtPropGuardsExhaustion n -> "exhaustion check for prop guards used in defining" <+> pp n + CtPropGuardsExhaustive n -> "exhaustion check for prop guards used in defining" <+> pp n ppUse :: Expr -> Doc ppUse expr = diff --git a/src/Cryptol/TypeCheck/Monad.hs b/src/Cryptol/TypeCheck/Monad.hs index 6f2951da1..1274aa399 100644 --- a/src/Cryptol/TypeCheck/Monad.hs +++ b/src/Cryptol/TypeCheck/Monad.hs @@ -245,6 +245,9 @@ data RO = RO , iPrimNames :: !PrimMap , iSolveCounter :: !(IORef Int) + + -- matches the user option `warnNonExhaustiveConstraintGuards` + , iWarnNonExhaustiveConstraintGuards :: Bool } -- | Read-write component of the monad. @@ -947,6 +950,9 @@ withMonoType (x,lt) = withVar x (Forall [] [] (thing lt)) withMonoTypes :: Map Name (Located Type) -> InferM a -> InferM a withMonoTypes xs m = foldr withMonoType m (Map.toList xs) +askWarnNonExhaustiveConstraintGuards :: InferM Bool +askWarnNonExhaustiveConstraintGuards = IM $ asks iWarnNonExhaustiveConstraintGuards + -------------------------------------------------------------------------------- -- Kind checking From 3cdb7034137f0925d1931d5160aacad2215d2aae Mon Sep 17 00:00:00 2001 From: Henry Blanchette Date: Fri, 12 Aug 2022 23:04:48 -0700 Subject: [PATCH 049/125] properly handle censoring warnings --- src/Cryptol/REPL/Command.hs | 33 ++++++++++++++++++++------------- src/Cryptol/TypeCheck/Monad.hs | 6 ------ 2 files changed, 20 insertions(+), 19 deletions(-) diff --git a/src/Cryptol/REPL/Command.hs b/src/Cryptol/REPL/Command.hs index 0f5404faa..f4ce8bb69 100644 --- a/src/Cryptol/REPL/Command.hs +++ b/src/Cryptol/REPL/Command.hs @@ -1492,23 +1492,16 @@ liftModuleCmd cmd = } moduleCmdResult =<< io (cmd minp) +-- TODO: add filter for my exhaustie prop guards warning here + moduleCmdResult :: M.ModuleRes a -> REPL a moduleCmdResult (res,ws0) = do warnDefaulting <- getKnownUser "warnDefaulting" warnShadowing <- getKnownUser "warnShadowing" warnPrefixAssoc <- getKnownUser "warnPrefixAssoc" + warnNonExhConGrds <- getKnownUser "warnNonExhaustiveConstraintGuards" -- XXX: let's generalize this pattern - let isDefaultWarn (T.DefaultingTo _ _) = True - isDefaultWarn _ = False - - filterDefaults w | warnDefaulting = Just w - filterDefaults (M.TypeCheckWarnings nameMap xs) = - case filter (not . isDefaultWarn . snd) xs of - [] -> Nothing - ys -> Just (M.TypeCheckWarnings nameMap ys) - filterDefaults w = Just w - - isShadowWarn (M.SymbolShadowed {}) = True + let isShadowWarn (M.SymbolShadowed {}) = True isShadowWarn _ = False isPrefixAssocWarn (M.PrefixAssocChanged {}) = True @@ -1521,9 +1514,23 @@ moduleCmdResult (res,ws0) = do ys -> Just (M.RenamerWarnings ys) filterRenamer _ _ w = Just w - let ws = mapMaybe filterDefaults - . mapMaybe (filterRenamer warnShadowing isShadowWarn) + -- ignore certain warnings during typechecking + filterTypecheck :: M.ModuleWarning -> Maybe M.ModuleWarning + filterTypecheck (M.TypeCheckWarnings nameMap xs) = + case filter (allow . snd) xs of + [] -> Nothing + ys -> Just (M.TypeCheckWarnings nameMap ys) + where + allow :: T.Warning -> Bool + allow = \case + T.DefaultingTo _ _ | not warnDefaulting -> False + T.NonExhaustivePropGuards _ | not warnNonExhConGrds -> False + _ -> True + filterTypecheck w = Just w + + let ws = mapMaybe (filterRenamer warnShadowing isShadowWarn) . mapMaybe (filterRenamer warnPrefixAssoc isPrefixAssocWarn) + . mapMaybe filterTypecheck $ ws0 names <- M.mctxNameDisp <$> getFocusedEnv mapM_ (rPrint . runDoc names . pp) ws diff --git a/src/Cryptol/TypeCheck/Monad.hs b/src/Cryptol/TypeCheck/Monad.hs index 1274aa399..6f2951da1 100644 --- a/src/Cryptol/TypeCheck/Monad.hs +++ b/src/Cryptol/TypeCheck/Monad.hs @@ -245,9 +245,6 @@ data RO = RO , iPrimNames :: !PrimMap , iSolveCounter :: !(IORef Int) - - -- matches the user option `warnNonExhaustiveConstraintGuards` - , iWarnNonExhaustiveConstraintGuards :: Bool } -- | Read-write component of the monad. @@ -950,9 +947,6 @@ withMonoType (x,lt) = withVar x (Forall [] [] (thing lt)) withMonoTypes :: Map Name (Located Type) -> InferM a -> InferM a withMonoTypes xs m = foldr withMonoType m (Map.toList xs) -askWarnNonExhaustiveConstraintGuards :: InferM Bool -askWarnNonExhaustiveConstraintGuards = IM $ asks iWarnNonExhaustiveConstraintGuards - -------------------------------------------------------------------------------- -- Kind checking From 722ca3f174b16b013a61cc09cdefdf8d3489a8a0 Mon Sep 17 00:00:00 2001 From: Henry Blanchette Date: Fri, 12 Aug 2022 23:05:02 -0700 Subject: [PATCH 050/125] exhaustive constraints guards checking --- src/Cryptol/TypeCheck/Infer.hs | 114 +++++++++++++++++++++++++-------- 1 file changed, 87 insertions(+), 27 deletions(-) diff --git a/src/Cryptol/TypeCheck/Infer.hs b/src/Cryptol/TypeCheck/Infer.hs index 76f7e4b09..89bbf8d3d 100644 --- a/src/Cryptol/TypeCheck/Infer.hs +++ b/src/Cryptol/TypeCheck/Infer.hs @@ -20,6 +20,7 @@ {-# LANGUAGE LambdaCase #-} {-# OPTIONS_GHC -Wno-unrecognised-pragmas #-} {-# HLINT ignore "Redundant <$>" #-} +{-# HLINT ignore "Redundant <&>" #-} module Cryptol.TypeCheck.Infer ( checkE , checkSigB @@ -54,7 +55,7 @@ import Cryptol.TypeCheck.Unify(rootPath) import Cryptol.Utils.Ident import Cryptol.Utils.Panic(panic) import Cryptol.Utils.RecordMap -import Cryptol.Utils.PP (pp) +import Cryptol.Utils.PP (pp, pretty) import qualified Data.Map as Map import Data.Map (Map) @@ -65,7 +66,7 @@ import Data.Maybe(isJust, fromMaybe, mapMaybe) import Data.Ratio(numerator,denominator) import Data.Traversable(forM) import Data.Function(on) -import Control.Monad(zipWithM,unless,foldM,forM_,mplus, when) +import Control.Monad(zipWithM,unless,foldM,forM_,mplus, join) import Data.Bifunctor (Bifunctor(second)) @@ -1041,31 +1042,90 @@ checkSigB b (Forall as asmps0 t0, validSchema) = cases1 <- mapM checkPropGuardCase cases0 - askWarnNonExhaustiveConstraintGuards >>= \flag -> when flag $ - -- Try to prove that at leats one guard will be satisfied. We do - -- this instead of directly check exhaustive because that requires - -- either negation or disjunction, which are not currently provided - -- for Cryptol constraints. - or <$> mapM - (\(props, _e) -> - isRight <$> tryProveImplication (Just name) as asmps1 - ((\goal -> - Goal - { goalSource = CtPropGuardsExhaustive name - , goalRange = srcRange $ P.bName b - , goal = goal} - ) - <$> props) - ) - cases1 >>= \case - True -> - -- proved exhaustive - pure () - False -> - -- didn't prove exhaustive i.e. none of the guarding props - -- necessarily hold - recordWarning (NonExhaustivePropGuards name) - + -- Here, `props` is a conjunction of multiple constraints, and so the + -- negation is the disjunction of the negation of each conjunct i.e. + -- "not (A and B and C) <=> (not A) or (not B) or (not C)". This is + -- one of DeMorgan's laws of boolean logic. Since there are no + -- constraint disjunctions, we encode a disjunction of conjunctions as + -- `[[Prop]]`. For exhaustive checking, each disjunct will need to be + -- checked independently, and all must pass in order to be considered + -- exhaustive. + + let negateSimpleNumProp :: Prop -> Maybe [Prop] + negateSimpleNumProp prop = case prop of + TCon tcon tys -> case tcon of + PC pc -> case pc of + -- not x == y <=> x /= y + PEqual -> pure [TCon (PC PNeq) tys] + -- not x /= y <=> x == y + PNeq -> pure [TCon (PC PEqual) tys] + -- not x >= y <=> x /= y and y >= x + PGeq -> pure [TCon (PC PNeq) tys, TCon (PC PGeq) (reverse tys)] + -- not fin x <=> x == Inf + PFin | [ty] <- tys -> pure [TCon (PC PEqual) [ty, tInf]] + | otherwise -> panicInvalid + -- not True <=> 0 == 1 + PTrue -> pure [TCon (PC PEqual) [tZero, tOne]] + _ -> mempty + TC _tc -> panicInvalid + TF _tf -> panicInvalid + TError _ki -> panicInvalid -- TODO: where does this come from? + TUser _na _tys ty -> negateSimpleNumProp ty + _ -> panicInvalid + where + panicInvalid = tcPanic "checkSigB" + [ "This type shouldn't be a valid type constraint: " ++ + "`" ++ pretty prop ++ "`"] + + negateSimpleNumProps :: [Prop] -> [[Prop]] + negateSimpleNumProps props = do + prop <- props + maybe mempty pure (negateSimpleNumProp prop) + + toGoal :: Prop -> Goal + toGoal prop = + Goal + { goalSource = CtPropGuardsExhaustive name + , goalRange = srcRange $ P.bName b + , goal = prop } + + canProve :: [Prop] -> [Goal] -> InferM Bool + canProve asmps goals = isRight <$> + tryProveImplication (Just name) as asmps goals + + -- Try to prove that the first guard will be satisfied. If cannot, + -- then assume it is false (via `negateSimpleNumProps`) and try to + -- prove that the second guard will be satisfied. If cannot, then + -- assume it is false, and so on. If the last guard cannot be + -- proven in this way, then issue a `NonExhaustivePropGuards` + -- warning. Note that when assuming that a conjunction of multiple + -- constraints is false, this results in a disjunction, and so + -- must check exhaustive under assumption that each disjunct is + -- false independently. + -- + -- TODO: do I have to check all combinations of false/true + -- disjuncts? Or is it satisfactory to just check setting each one + -- to false seperately. + checkExhaustive :: [Prop] -> [[Prop]] -> InferM Bool + checkExhaustive _asmps [] = pure False -- empty GuardProps + checkExhaustive asmps [guard] = do + canProve asmps (toGoal <$> guard) + checkExhaustive asmps (guard : guards) = + canProve asmps (toGoal <$> guard) >>= \case + True -> pure True + False -> and <$> mapM + (\asmps' -> checkExhaustive (asmps <> asmps') guards) + (negateSimpleNumProps guard) + + checkExhaustive asmps1 (fst <$> cases1) >>= \case + True -> + -- proved exhaustive + pure () + False -> + -- didn't prove exhaustive i.e. none of the guarding props + -- necessarily hold + recordWarning (NonExhaustivePropGuards name) + return Decl { dName = name , dSignature = Forall as asmps1 t1 From fb39dc95decc793cdc1586124c683329c74af2bf Mon Sep 17 00:00:00 2001 From: Henry Blanchette Date: Fri, 12 Aug 2022 23:05:21 -0700 Subject: [PATCH 051/125] constraint guards example: inits --- tests/constraint-guards/Inits.cry | 34 +++++++++++++++++++++++++++++++ 1 file changed, 34 insertions(+) create mode 100644 tests/constraint-guards/Inits.cry diff --git a/tests/constraint-guards/Inits.cry b/tests/constraint-guards/Inits.cry new file mode 100644 index 000000000..02aa8d645 --- /dev/null +++ b/tests/constraint-guards/Inits.cry @@ -0,0 +1,34 @@ +// ys | zs | acc +// ––––––––+–-–––––––+––––––––––– +// [1,2,3] | [] | [] +// [2,3] | [1] | [1] +// [3] | [1,2] | [1,1,2] +// [] | [1,2,3] | [1,1,2,1,2,3] + +inits : {n, a} (fin n) => [n]a -> [(n * (n+1))/2]a +inits xs + | n == 0 => [] + | n > 0 => go xs' x [] + where + x = take `{1} xs + xs' = drop `{1} xs + + go : {l, m} (fin l, fin m, l + m == n, m >= 1) => + [l]a -> [m]a -> + [((m-1) * ((m-1)+1))/2]a -> + [(n * (n+1))/2]a + go ys zs acc + | l == 0 => acc # zs + | l > 0 => go ys' (zs # y) (acc # zs) + where + y = take `{1} ys + ys' = drop `{1} ys + + +property inits_correct = + (inits [] == []) && + (inits [1] == [1]) && + (inits [1,2] == [1,1,2]) && + (inits [1,2,3] == [1,1,2,1,2,3]) && + (inits [1,2,3,4] == [1,1,2,1,2,3,1,2,3,4]) && + (inits [1,2,3,4,5] == [1,1,2,1,2,3,1,2,3,4,1,2,3,4,5]) \ No newline at end of file From fcce470d1e1983b51175552a85007bca4b3a9651 Mon Sep 17 00:00:00 2001 From: Henry Blanchette Date: Fri, 12 Aug 2022 23:08:00 -0700 Subject: [PATCH 052/125] updated docs to reflect new warning --- docs/RefMan/BasicSyntax.rst | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) diff --git a/docs/RefMan/BasicSyntax.rst b/docs/RefMan/BasicSyntax.rst index 43acef714..992f9eb34 100644 --- a/docs/RefMan/BasicSyntax.rst +++ b/docs/RefMan/BasicSyntax.rst @@ -56,8 +56,12 @@ that constraint-guarded branch and so it can in fact determine that `n >= 1`. Requirements: - Numeric constraint guards only support constraints over numeric literals, such as `fin`, `<=`, `==`, etc. Type constraint aliases can also be used as - long as they only constraint numeric literals. - - The numeric constraint guards of a declaration must be exhaustive. + long as they only constrain numeric literals. + - The numeric constraint guards of a declaration should be exhaustive. The + type-checker will attempt to prove that the set of constraint guards is + exhaustive, but if it can't then it will issue a non-exhaustive constraint + guards warning. This warning is controlled by the environmental option + `warnNonExhaustiveConstraintGuards`. Layout From 0b28062396b41f2f383a0af3a0d6c60ac4beb7e2 Mon Sep 17 00:00:00 2001 From: Henry Blanchette Date: Fri, 12 Aug 2022 23:10:54 -0700 Subject: [PATCH 053/125] fastSchemaOf for EPropGuards --- src/Cryptol/TypeCheck/TypeOf.hs | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/src/Cryptol/TypeCheck/TypeOf.hs b/src/Cryptol/TypeCheck/TypeOf.hs index acb53f66f..75ae3354b 100644 --- a/src/Cryptol/TypeCheck/TypeOf.hs +++ b/src/Cryptol/TypeCheck/TypeOf.hs @@ -116,7 +116,9 @@ fastSchemaOf tyenv expr = EAbs {} -> monomorphic -- PropGuards - EPropGuards _guards -> undefined -- TODO + EPropGuards [] -> panic "Cryptol.TypeCheck.TypeOf.fastSchemaOf" + [ "EPropGuards with no guards" ] + EPropGuards ((_, e):_) -> fastSchemaOf tyenv e where monomorphic = Forall [] [] (fastTypeOf tyenv expr) From 3698ed08a3c107865e7f4039041458aea43722ac Mon Sep 17 00:00:00 2001 From: Henry Blanchette Date: Fri, 12 Aug 2022 23:12:48 -0700 Subject: [PATCH 054/125] Inst Expr case for EPropGuards --- src/Cryptol/Transform/AddModParams.hs | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/src/Cryptol/Transform/AddModParams.hs b/src/Cryptol/Transform/AddModParams.hs index caf2ae6cf..ac0ab35a8 100644 --- a/src/Cryptol/Transform/AddModParams.hs +++ b/src/Cryptol/Transform/AddModParams.hs @@ -17,6 +17,7 @@ import Cryptol.ModuleSystem.Name(toParamInstName,asParamName,nameIdent ,paramModRecParam) import Cryptol.Utils.Ident(paramInstModName) import Cryptol.Utils.RecordMap(recordFromFields) +import Data.Bifunctor (Bifunctor(second)) {- Note that we have to be careful when doing this transformation on @@ -257,7 +258,7 @@ instance Inst Expr where _ -> EProofApp (inst ps e1) EWhere e dgs -> EWhere (inst ps e) (inst ps dgs) - EPropGuards _guards -> error "undefined: inst ps (EPropGuards _guards)" + EPropGuards guards -> EPropGuards (second (inst ps) <$> guards) instance Inst Match where From 19d4724e852349d1694495a0ab7f4f684c538dd9 Mon Sep 17 00:00:00 2001 From: Henry Blanchette Date: Fri, 12 Aug 2022 23:17:32 -0700 Subject: [PATCH 055/125] showParseable EPropGuards --- src/Cryptol/TypeCheck/Parseable.hs | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/src/Cryptol/TypeCheck/Parseable.hs b/src/Cryptol/TypeCheck/Parseable.hs index 4237df017..377f16e1e 100644 --- a/src/Cryptol/TypeCheck/Parseable.hs +++ b/src/Cryptol/TypeCheck/Parseable.hs @@ -63,7 +63,8 @@ instance ShowParseable Expr where --NOTE: erase all "proofs" for now (change the following two lines to change that) showParseable (EProofAbs {-p-}_ e) = showParseable e --"(EProofAbs " ++ show p ++ showParseable e ++ ")" showParseable (EProofApp e) = showParseable e --"(EProofApp " ++ showParseable e ++ ")" - showParseable (EPropGuards _guards) = error "undefined: showParseable (EPropGuards _guards)" + + showParseable (EPropGuards guards) = parens (text "EPropGuards" $$ showParseable guards) instance (ShowParseable a, ShowParseable b) => ShowParseable (a,b) where showParseable (x,y) = parens (showParseable x <> comma <> showParseable y) From dbd7a662ca7e1b580e2c14abdc734e1887e862e2 Mon Sep 17 00:00:00 2001 From: Henry Blanchette Date: Fri, 12 Aug 2022 23:19:58 -0700 Subject: [PATCH 056/125] exprSchema EPropGuards shouldn't happen --- src/Cryptol/TypeCheck/Sanity.hs | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) diff --git a/src/Cryptol/TypeCheck/Sanity.hs b/src/Cryptol/TypeCheck/Sanity.hs index c93131e95..8a3954f90 100644 --- a/src/Cryptol/TypeCheck/Sanity.hs +++ b/src/Cryptol/TypeCheck/Sanity.hs @@ -29,6 +29,7 @@ import qualified Control.Applicative as A import Data.Map ( Map ) import qualified Data.Map as Map +import Cryptol.Utils.Panic (panic) tcExpr :: InferInput -> Expr -> Either (Range, Error) (Schema, [ ProofObligation ]) @@ -269,8 +270,10 @@ exprSchema expr = withVars xs (go ds) in go dgs - - EPropGuards _guards -> error "undefined: exprSchema (EPropGuards _guards)" + + EPropGuards _guards -> panic "exprSchema" + [ "Since `EPropGuards` should (currently) only appear at the top level, " ++ + "it should never be the argument to `exprSchema`." ] checkHas :: Type -> Selector -> TcM Type From 3de78ab125da837d38c564529482af7eee540488 Mon Sep 17 00:00:00 2001 From: Henry Blanchette Date: Fri, 12 Aug 2022 23:21:44 -0700 Subject: [PATCH 057/125] freeVars EPropGuards --- src/Cryptol/IR/FreeVars.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/Cryptol/IR/FreeVars.hs b/src/Cryptol/IR/FreeVars.hs index 17e0cab41..9541a735a 100644 --- a/src/Cryptol/IR/FreeVars.hs +++ b/src/Cryptol/IR/FreeVars.hs @@ -116,7 +116,7 @@ instance FreeVars Expr where EProofAbs p e -> freeVars p <> freeVars e EProofApp e -> freeVars e EWhere e ds -> foldFree ds <> rmVals (defs ds) (freeVars e) - EPropGuards _guards -> error "undefined: freeVars (EPropGuards _guards)" + EPropGuards guards -> mconcat $ freeVars <$> (snd <$> guards) where foldFree :: (FreeVars a, Defs a) => [a] -> Deps foldFree = foldr updateFree mempty From c33c3fd1c4f394e93efca8793a1df671ff0db1da Mon Sep 17 00:00:00 2001 From: Henry Blanchette Date: Sat, 13 Aug 2022 14:22:26 -0700 Subject: [PATCH 058/125] updated docs [ci skip] --- .../_build/doctrees/BasicSyntax.doctree | Bin 46803 -> 55003 bytes .../RefMan/_build/doctrees/BasicTypes.doctree | Bin 25202 -> 25225 bytes .../_build/doctrees/Expressions.doctree | Bin 15422 -> 15445 bytes docs/RefMan/_build/doctrees/FFI.doctree | Bin 70142 -> 70165 bytes docs/RefMan/_build/doctrees/Modules.doctree | Bin 62110 -> 62133 bytes .../doctrees/OverloadedOperations.doctree | Bin 9549 -> 9572 bytes docs/RefMan/_build/doctrees/RefMan.doctree | Bin 2936 -> 2959 bytes .../_build/doctrees/TypeDeclarations.doctree | Bin 8391 -> 8414 bytes .../RefMan/_build/doctrees/environment.pickle | Bin 125722 -> 135351 bytes docs/RefMan/_build/html/BasicSyntax.html | 39 +++++++++++++++++ .../_build/html/_sources/BasicSyntax.rst.txt | 8 +++- docs/RefMan/_build/html/_static/basic.css | 41 ++++++++++++++++-- .../html/_static/documentation_options.js | 2 +- .../RefMan/_build/html/_static/searchtools.js | 17 ++++---- docs/RefMan/_build/html/searchindex.js | 2 +- 15 files changed, 93 insertions(+), 16 deletions(-) diff --git a/docs/RefMan/_build/doctrees/BasicSyntax.doctree b/docs/RefMan/_build/doctrees/BasicSyntax.doctree index 921545827c7eb89828cd050367d240c61688fa03..e7863d45c651b4e6d286c4af197f953a72c9f6f7 100644 GIT binary patch literal 55003 zcmeHw3zQ^Rd7frwXJ@DPG1^^8AP8kDS zYPza-X2c2vvXDf|cFv*0+evsu2gTsTaY%wi1UMWWFp4lf;Sh72gE0n2Cd5gA<2X*p z_y4!&r4OP54SlwJ5I@uYk4hMt2?bocxr(oL+re~LpdzKr%xzwS2$hPT(wM6YFzCPMv zcu?W)U~|(11b(NwGZ-!^kgEg1<`B}^U{lR*Se@DSoEa2M-*4G-Z66pCMgw-mBj|_9 zHPiEuh`$FLW?lTXrP6NdmpQY1s%6bno^~+gn+x=*Qyr;}R<~7OQ5~r63GSVGgJ-q8 zsp?$KY?P~(?^{zhg=F-m%B|(5@75;DZlhuoX-xjx^IN9f@VzNO?@irp&EIJ@rkEOn z7?Ujz=)Lmxf%aT=tKftt<@qup*mjczBw8j_>*c(vy&MSx&iB}z$C5@bbsgg^x?1d2c@yc#*N z+_a2)Y>1HG1}2I=$#hMhIkZs9$FY+Uj*Wn0uTiq{iuv&c<2vK5=J?!0#@M{wFw6tS z(PPGa=1F5t0+XIeLq?oyq;ak~TfM9LD^FBkulZ8FC(ekSsDr_cF=E6AnI=3DwSwFJM=MLW?;oYMA$}JHZ{9dgYbtMGBS|7^ zvo6hev|oE)*biKcVyucWD_O2t4YHDr&_+V^$woF#n#RO2<9Nfj7OYl*GA((=8KYqw zJ!(u-mg#~a{!!vFLnO|iBc!}zm6qEyN^hNc2*nOa{+*My6bD#7KDSPry(dDn_p7dD zeAe|XX&Y=96#Q3jx-H*q__bxDV$ZWI`^J3BtxN3l71C%t4-lTqF6NTmuZ}>jJH-aL zvp*BR_Y=d98uq+V>cVtl{Tcd_jq~TaSxr4M65m><5L^}^r51uW9d8&VB4=rwdI*F2 zarndKQ&x+*hKB2-KZEmFhi5K?h3IwEm??$*lZ@%Y7RvQoY3h8qnr0 z;8#HMS5aB0eoP7FW&w;8x6J_UI}d+ASHSx4qiEsY_VTaTULMGdpl&V5Q78qeEs|sk zEkQ!v5TWG^^__R#S}@y_&Iu((L63|{46<3|@rYb$72OuKof7SMqJoQ&H-P*)C44FZ ziI(tdJRAKn3pe${`{D7(Q5~5)w*gz{HjL9|t!=^iB7r9*@FtZA7jzApV?i_(%$rUy zFCx>Ms9i~eetTY5!kAy1DA`k>xhNd=$ZhgL$a161QxEakwixK6IPAXq~oN ztkb<*UXF6>%8vl2!ojQG!5w!5q1)gjg zdu2ppF{G(jh&OQft5~xU+0sKA@Kc2SE=c4lBFOkIb=P^Q$ z1_QjR+pfVjSs1!i&9>*;r!9bpfw>WPycX?R%|HOus?+G*HJU9DKzLsO&G0OrDp#=i zl78^Tj7Z(%2I8mW{0jTGpMwAmdgBIcSXT=mHr&R91}IW3Dhs0yi)O2VxB&r+J~Moy z?h`QhEw@%9le^4z+G?D(TW*86ji`m&q$npUDp8?Xw{f$={6@v!TRHGink*E;J{R$1 zaycV{6l{-4ku)@kRMo>dpCok}b)L+lRn8|Uw}>}hkHR0pE6nY1P|#8y0ZA#r*10wa z;CELNilGma`Xp5&_=B^j2WL|Ya_NBJgLbxlW^kfF*WG8IK@mf}5w$~Tzm$;pm`6fJ zQmW1XUNkt|L;uG_+1?%rwZu_Y`(;`DES4Jj#Mdfo)HXsnzK5e$3w;f z?mdo|v)04L0vqe-Uv)>h?%wq*^{qL2)~d49_ul#o;%0GNvJjWe2s(^=_x-)1DPjk? z9m2CDvfA3;d+FaRn&o$)&lbgCPA|e(DjFY*bZ3`lkW<;)?d|D_Yxb~Pa7m)wRD)i{ z3>8DlZb5Wt>bwW6?t(_P{^STs?gAibF+waDi1#O}R~>8?PJ1Wlo1ldT&SwcY;rmn9 z^>6UntEqo2@Dam=)tjQ)|B0@hMiw8=Q2PhDb}`vi-6Ph1=thEz!*M6AQ3;31BKYNX z^xV756dBWnBRXVCnT4kb?vz>h&3Bl~ZW~KoC;?^* zISzm!q+0V6YXUR#kxxANU!#ftZcPd!1rWO)vHFuE!yiqK7iUQ(^`F?b2zo7a#rMgz4mQbRmQi&|B{0GYS6 zP)aoblusFw0^U&L35wj2wQ066BV}VvjbS#MHJj!)gt3Vj0$$%kT3RYGd$6#F*X|Wy z`B0r)B*cL!ssPxr`QcdrgO@@g4!SHbD?M1!a~lUT6GpoML5@P;$!{b?HsYuZ0C*`$ zeaV@y_a(~pb~LCZb~LufSQvpk@u3%V3mUowT?-5BQ)`Fr;#CDow-Kad>IHQQO+UAG zs0W#*5eUPCUeKh_@M~*_W>2cZMWF1Fu^03ywEXk6L%%g*4kEC|lGg#*Pu33EwQDv_ z5j@sWNjI#AgQ0MeClYTDhLtUp7G#iZqlSa^bn8HTn3QTooMFl>OcooGg0{1|-XNOV z4PYHuOf_(?%mW&aq?CcXESt%Xz?`*2FMO7@NnF;|GpT3Rj!)9KIM0&^D@H^K`k)5j z!2|#|t{s4GL(^o(rN>)oYZBiGu;sudwkmpaO^lQDfJ~>PjJ{~plQR0+a-&=4xm2kI zIzf3@PF0BYd@lOX2&}A1@CfVyz@q%B;LCEP5YEwhLRm1p6c9-n^?VZ(xV-kcRGK;n z=Y*33b_4BiP}LcAa~XEm zz*x%1_{?n0*;q5)vTMuQ9XgaBB`t%&T1tb+z9O>l>74=+WZXO0ENCX#+dp+sx5#Su zP@;Gy3rB6Th1(HlhORqEe#rtUaZ*8ga7x$4kp9DUK?)0&MMQL)LDmvkFq?{EHkHKe zW9!1~^=Dt8mF@={Pgl+K57| z9A0LHavz*pQHd1GbJ3KdK8yX+tZS>QWrneBB}O>4>kpBqN#CuwonV+AMcTp_^^tbV zO>71kk%J&*sGeh0y#a00392EC-ienu{C}KBxM|Os^E{Oh;ZrBtWjKFC9}p*`3H4zG zTtsCfiKyq#5-rCqBYKV)QWSg?3A#dNz<*6tvpOp%Iy+3cMcdK-JFU+@72+JtPkR(+ zMD#TnF)MXfES{QRewopodchEO5b~zPU~6RmAP1tKBVa;Gq7kh;TH&ytQ@Q}!wTPyr zI2Y8Rr#Kf|k5k0dp0}|%Qc6fHO$mx~!6v5KE_(2$$}I6Il9drvf?W(ZDlhlG3!xj? zB_nVtVc`fiR?$#@Pk|c5Z8+Xhu3{5b8J+=lD{+Kn-o_@(f=b2?DHNg=S8zPAh77^k zn;Q#Qk5e_UWC!J_rZ&RFEw4=B+p$uqSSlS5l@)Y|R8{Cnr(#7-=&UHhWYcD?ioIa_ zk8-tY2kcC)_YiYd8Oh3?IN9dG5MhtJ9u&7fZ!TRaJ#u}gDg5yY5Iy9ayCf^5`{CFBx(`raZzw$ zBSca|xIy)=mu5%SMY9p?-iT^j1l<*%vOo%5RovaLD`W27wJu0~;_kV&0UCqg#c96_ z&1tb@*FBW4>TR(kZ!YO!+ah@P%nA@InK>J55?y-FT7yC0XjeMHC8t6&Jb`h}#9U~G zCtPWU*&&!C0EF=gwqR?oTRUx4I=A<+UFe6MR$X#HZ(XRWJ%==x<}D~GyJpl4PSE0B z9C%>0A|58BoxM4P=*lK9?u~p5UUswCEzHxTk^W5bX4UTs2PY8dzB@D7$%A{Gato(v z31~cuSD>Ir8?PhI82Cre8TrS4`h#YBtyYmf6lTL*^gKi#>5u)CP2{3iiOSimQen@w zit88(Ss&}<~_NmheG%C!Z5r#!IMf8i`c~unZw7(aT3W>BOWJ0KSG4oasrxf z=2Iym&1{YGUHhkrH4(om zi1-ynk}Tr^IbZzVjn7ax#EDv$9}_`+a}G17G`YGc&n{T7V56`Og7+Y_+G5p3 zsa$oNlU1)o3qgF^wm_@!uPazJ&njRTZM7N&d%gfq{4|PUX+^o#u2_Y-TWQyCR!PTOn?dO1&_;x0A{b86!K=M;M-U~C)z1k%-O)d1P4Zwg_Q zA{F)x|CB{*GosTAR&+m8uzhmUC`!K}T>7%wF*{Bhbq8By*Uf$OUs7|gy!|5)DW)dd zbIz~fi;V1seW&w8BrVt?o0T1lPEe>je@pd`I)6ittOhFDDSixve~iMwUv-N2-hrVu zRz}4B3B?dep-RY?Pz}VZ64>xH)CKV-)ByW|V*i99h$Pkq`4##i|D>l-FO{M+kyBWE zwT_5f*x{u92|Wv6g$k>0O5a2Z>n$mn%78zF;))cms}+6?wO{59?S_0M^$!{N3%Zg$ zJezb?dcY=N^I&fiAPzCwgq>~RO5y|~tqa;|;q%1~cbp$VM=WxZo!`b^><&dVU9Fi+ zbB!VsBXGR_NV%L`uCH6w-z$VPC9Y%vex*W(_B z=o&+>-IL4uu-97+D8#fw)v{aYnmiZLC3HWwzbxkJ(4``n4h6Kz7GhD@HLnYDTurzo zbWj)aq5D$#a3-5C0!D~c{AL!Yc;~vVp5}R=j~fG*k{@Ru$PH6?DLt~<(W>-O{&~c@ zb4N1B1dn(qp@ENt+Ap{(9Lq(hssgLsKWb>N5ztw@9X_E>|UJ;x`3O4SM7jmEQ&NPcb!CAI1^7wrFIY zvpNnQ3Bu{o#P;i>3M(N`q-yXV6E#0dk2Qh+PKGH5_}ZE#<%KY<2zbm4wH8HIAx$g; zb8clNL&qEo8RPUCOQ+#b3ETdTg<-td)RObN)F>hwuwMhnqk}5k=lmXh%}Pc&pY$(K zD9u*|S(I)0JqXOFdgqq{^Au-IM|QA9hbc-y3E#AUe4S7lb-qTAteC~XeJ(G!nFQoX zfmv?WV$sC?a;`JRSz1n^zJR;^_a~?Ff0Ty=lDU7~8+%2q&w$SVt#^LO+!q81QmsJ` z=I-9i%-u$)`e1fhhpXXufexdiTAdBNRK=I$Y*j3r*B(q8d6s$TKV_G@f~MpG7P z+WJ>)-#(p(G?M8prV50pFS?Z-FQ6EGi_&@pJOsLeXK!*l`4fra>Ah;W9HA>b&f`>- z00_~A*t#+9-6C+HA4>xAp>qYu-YA0x@Rm@^Ppuu0RAE$V`B@OjMI#xFSdFu$tK|sA zV)d{|j`xEV>AI8sDxo>*d?gRIF%+K7i$W@Oq!+f|2KNLfsljkna4d#`V&%CQyUrCD#8XL({$ok)ef9dlC}`paeK_-H)Jf+Jkwr=o zb@E4Ett(*n{Oa|=6S4PEVd=u1V^J`UCBZm;PQZYfXXTRY8NgeD9`~IqK#nQx244p7 zmH?!_c0f`MnX-{jLwLTQ-9~CEmij`}L0g#Mcz zxm|4n_u0JQZYX2X$vx1OuRkCJ1z-CfNU-&Xd61WEeW5qrimhJ&oxa~YzhvuoIcqvw zH`T0p75We_+9}(%g_&BQM{cGPutO-BRa+U@4P`2{^|H&la&??A47K&L%Mxsz%!9sU z>%rcbE4KatD7C+Le#zEXbJldW_R!Wl2&GZyb@a&1SOWLfyx?vqW1+2=cI9i05Dc~T z(ga%@d61WEb$a8i*!m^VX`y$1$<_*IT^CyeLJ7SqJ#w>^zleGhqsvgQv zJPXZx5{+c+DL>9x(+x#xw|?O;n~B}@$ZaMF*z-{`7qF>xSg#YlwN$#C11b}t#wUyc zdIx-$BHwp;Le8$vLk4LI4l@N-F$MH7O4zt505}p*DnF3`=Xj!UCPN^=Nu{!qwl9N$ z(+qxk)!~fm1ZQ1`v{ebAQD;66UNKTmh+bCd zj=*x1Q4*NkrTp$Zq>&Q%E~d&V5=b9YB~VTPQu*X8--i>0)5Ro=!S@6w*%g5%pq--0 zzJwZl`kVlPZkbpoq3EAV+Wya!TgVM7?{D$aAf&FGGMTqK4$HKrQ(mEP!BdK zN<9Y}Z|j|34nc-FYdTwdj4WperBP>!9$7JqfjgcT+zn;yXsPsCn0DCq*M`r%Z0Yyn z!B%6XuYr8hp7gyoVb$)*Ll(*KyO<(m7mP^!o!>xd`WmHl+}VI&65tY`{?{fUnoktZ zWbC^`kK@TGza}_iNcvQhFZk>Qiy&;g{7?a1V`};u*c~tR0+G z4k_mU5eW7l82ofh!|}owIBUA3_UJ?Uwz91LG!JGmaQ`kZxT%zg%W8VoPtXdvQAe!E zTs>>BiIx&~ZttfBpErpzVhOS?L%R^K5W5hgn+>VNj3^OVK#v=&apScv?40IR`Qg3S zdiyLdYnR(+^`dn&vtM70oxJ(^9RV&b46kbq_tU2AI^3fUNjQP69uqa(VOG=UCCHwr zM=m`Fah(u`Yv_^Lp`gPvu2dy>$Kf|(`vLR`31T-J9j$X32VPlN;qT($47sluOYL#) zFs@jmJ#=op*%oIcW1|4wsHX2UqFpVXI8p*fl=5*D^Wv5t4+kytCSMPiJJD8w@V-3g z@{0?ECh={8#J4Dd<=Kz;%?PQ{>mPz>CRQ3p7x_m-LeW@?#06bHYB1j{zlz$y}rUm?u3Bo>_i?DL9 z$A1A~-^r+F>K@)MsFb>7cj!)WjEfWu^{!>%9}AE_yk?L;kQZcaTT>S8pUF^bxM)8V zmw&c`$!l1x506DgIAgAi^DNOPoc~J3J-?iXc5*E8rQQgtp7`64j4$@iFJ0VcIBUA& zu;uznh40yuqM;MCYpr1=Wyy|nJyua{Eek)7VjtYMxA|m zu#AEJs=T0YG>c_?IL_i*3Bgc*lTqX2d61VZzPUHvica4Jg>UGcU$Xc$oHbp4cih>o z`8d$sF7s6rlFP|t&FBR}a@4WtkyV^y2+ZY0V51o=BkyrWKSl_Kj84YmpU8u}Wb~uG z@m6&D9w_|I-uWe?-_BXn8NKBu?3VQ+imVefbDt!{Mx9U4BR6vi=#Sofxxoc%+9mDAQ6#)N5f+{g}3D74>J))RMQe%FYD4gz@hBH{y zB8O$UI2wJ>YZPT?QYJRF1AB=(wQ}FwXIyeD<(U?OlXZd*U}>^c8awG z@>O|3-cZ)UChhBPlkOu7Lz}cOX_HRoL0>ZW&Al;Kl==ZE^~T=$C3ElLtm(|%E6og_ zWzzPHF%huAH8Lhf4UGk1kzg+}%af%qXP_1@n3r9ixgv!)Bgj+>X7IMxIQji68~xVid~S$Nx{z>!RNIr6BC)tm%TV_Xe9T)BwuH z7$WXCVj2N?)`YRfq5}|J3ziRL6?}<6l{yOCWp9Npk@q!uAfPK zL!zp5pD=V)seLh$rKi+Wf3==>(3HR}92 zJ+i7~4CHs`1$o2SYd5;G_jd?I$zHpWVDG=oLjY-$KGhp{MXR5H%1`yqFWLJfXYIva zyAfw^_^#ReJfSt}JV%e*>?M%Dk{9G0>`l)a&UuRojn%VuoAVYka=Hx7d0&}2=N+Hb zjm>!nd*sCS1Wm_^ndit6(fWj4mC?`{^_*||WH`+ur_6qzKikGl0(RNB!^Sa?CMNkq zQC|5$Gk?nnGk-HZGBcm%xCc}Tp5y-8*c|uwBq-q##_B?bMfgWP?&!ol26HwoqrvI# zW#6og%Uc=fH26Z*S~BG=4LHw1+zre(N3dUoS#lEx#WIox&Wx?lp{#X2W*6sK+P+8U zxZxz%>k6gP^c+G%bSAHC4oPm96t>(5XU)-Hi*l5o?gFM;BE)HWD1`oi>xsZ74%4GJ z(_=3Ye6_)P>3{@Txj@NEw>udSC?GCLY3-k$(`X1^Fi||+PY4|qYLgw6?J@T2s)NLb zOmISUG@P!kjNzPK7o1ZJXLgy?jR(1lX2Ml^K#=eL>7=W3;kX0 z++8NcRge02C@C!!)?f5I==Xx?+4$0UNsf2_r~r3Nq6w}U%tab~D*l~)eJFiDN<(hd z3BbV*4_$eMJi%5yarM?s;WaiPl!fUo`MPDBn-Tw}Rb>XU-N4pZTGhg|d-&?BbO!zl zx$Yucturm%a&saNRdrj$dMn_T=J{y+cyz*%&eM<`yMgO6Ff|L8pn$6% z4YgK{7Q>kax^c|u)U3t=jjHWQYjRv%r^Ki8lMjUv_I-_$qIWKMbVpOEL6<|(0k>hf z6+Qy3pJP`dJkr)^wCi&?*d0ystx)P_?@)dxliG$wd$@?oJ#DpWE?kw0a1+E;PkhWg z`6W1-+G@1`{(Q@=)8$w`PVOexXR&IRtAvJBCCW{gLQNXd{)qF<$+vjxi%8l?AM>Ju z0lWBU!m7pt9~iQ;5J>AWfHw_1tJH5KDp*~)Xgyr$MNq5kMHHyV65^%n#g)T4wF``~ zJJlP?bLdMBEI*P5G`@0J!S%(T0ZCV;FZfx&ri&bC`W8pviIFpeHG%mU>|{sVBPanv{tK3T zx=38gjr05w455`QxN1^;z^yk3LU^=(i97`gZ158P(ozYP`HL2UC%DxTE7-7O`}|MJ*p2UgB>fCCJWsh2i;N^2Mj@ygaalVr~=*Q$ya$|PlCALvSKZ?a7QH+ zm)sa#EAGf!>B5v(Kyvm86zP@ENprAzf1a?JvF?6JclXJ$^A8f`R+n^mBHZ0mOYDYR z&`k&;sCWO~1=hIxgb)nLk@TMWk0g(c`)MAKrSqhq9!Usj1mG2)vcO8>tzbQKOjpO| zW7qjPVwo#oedkL+ZH19(%9$pnl*`232;t#enW%x>Cn@GH0Z0_FS<8+vtyVW(89M0*&9y*LCwzqi;4*YV=SB#5JBn#;{}e;Mw1Z}#wE6LzG4j138DxR zDZCJkdFaYqL{|?Kgwu;Y^ZG7;h-lCfDWjfJEZ@E6_)&OCX z{0`vPVFbv_$w4hV09*gQ(=}5e0olMj{MX>IwU@uN2tj&r}HGN*=WTN=$$`px6 zP@C)u>|7y>5$w8r%mi=h{6=$K@J{Ddk_bBa%VxorbWqyYemCi*J+dxrr*bNH1lin0 zd*X^U>o6S>)xOAW#B9pnyDm(Bi%rB!)g(pe`Vt2;3m0Kt6&ITtHRj?c*Tuyf&w|<3 z00n2Ix-1kyN1-TUX#kiaPp^w2TcaJ2@_m9>au*1-CzIwHUzXc7zGbDOA`#!+?VEzw z`4b|;sPoNS)QGsolLYI3Lg|=m?9EJ19zqOl@{n~n>deBGr9?#BW~LuFT$o-uJUz*m zdCN@5Kta5#$R(bcnz<^>(u@TCkYy~E=Ku;Edf*C)@Qc#6A}Gt&_n025_t+WS-w0i` z(2)Ck?OAqzgAZO`t95ZOlapA=kRxhEvr*#0Nt$Ex#9W9kW&{X}7Lax&_l@KF!gYb-TvrTyV7q^b#8ToWZEAL~srpg%16{ga*dlMXcS` zw3Cv)MJ8#WS^S1}t|7)j?X&Ax(5%t*2GP`>&|-0S$WsaGAiwMS7|vf>7o5Ag$cs|L zpxf6jaBJO4GssuP4RU05dpE|8_t3PmPy`lq4tgpIgis!!tIp~Ap_WANYttilUZT6@L8l$vmw^Kc@ufB7NBm#kH#$ir~G}gP}js&q;sr3BNW=u$%AsV2Q_X7D%cGVuf?O*-4JgmZxRJ;xGRl7Xl zEjN5@RnmJ9L^^`DVS1v%0kIK)m-P>%ZKn%1dv3c`#vO~}G*Q_X>?pUf-mT#m!}Qr; zn@qux4OVA1*y33}&3SvBU}wcGw|%?jO=5W*R!=l4onZ4D$>e$ZUht9GV0gi5U^|2F zworb!V*2n)VA}AqRWwsX-KX%1)ma2hvE8cSZM*N5i*siA6n*tNyk{oZHSfAUd>||G z<@UZ{y9etFE)7O@D?Z51(dU#VFw5Sc(N z`<-CKZTsH(dL?YyKq*$>%@|A%|2<4E}hU$2*4aj(qf3YhZQWIt?&fDm!J5czG=r1(lSuHw@ z3LK`|Dq#86mbs{2A)-4;r64)9G8QUOxBbqY=kE`8G_7V)ota68pCPwbn%0`%O`nlC4+rxacN zWwLr`s!1Yy%4$vGaLaja13Eud_3Je>Htd^o&?4-X?cBa4*aMlY7nOP{1d3jhB;<+U zd||GNRa}@}<4ev4` zHm_bTIb|&`Lh%qD!t|xw*cREOcCzDC=!{n{*i8GZDpZB@Bc$NN3*y5N)h51-IiG^H zaGt_X^;fHJsyzB z`exhJy;K8(yA9w@R3EOMWLT^35`Y#7ZU(eWaQ~Eko~IuMd4%AmBXAu$BUga@WBQ9h zragoVGB5OWo}v$r($C8YKh8HsS?EMw=O=_D?NfB#PB_!f5a&=qLAX7rrD#~$_h@o;7(M;62TLbYwd*kmSCX~@zdwGaELP-C-iDB9 zi&WeY3TM1Zs?4h>mLg(6^3>wwY}>J2G;UelIVD%>eQ=O}xktWWFmx^Yf=wj(onX`P z*<0?S{#|-yu#n_--To1Zd|WH)3$`jsu<_U$j!R*@7RYYU#zz8h^&;(fo%-x6JeZp+ytow{6M=(v=bHD%Q`DJAozvWk?amdvkPTvkzA zld`b9R;nvWnP0u4vUbUfj!nW#esoj(U^-PdR(OQA=pr4ugquV!?Uc;Y4*GSNg{IaR zbdhkkmS!dHAkscMZSNQ|c?caFIKYvTR4)+eBT56T^t>gCNT*RmcM{+q(MPQ*M(HCd zO7fE)&6A?@>Pnbxnn;vc>d9Fe6AwAtIcw@Sa9QOp@N-y;aUYKDc|K$ljpK(lRrwzsoeLAB_PmZ`H zT%(ubV(7(@ar#W&czfhBa-Vq!-|g zGLT>f6~96V?U+7<-U<};IZP?tKI+-<+bZ4M_)nwqgftdgIm;@JMcrn348bAAV*9wu z8e{aN<1bn764Mk{tD8gkISZMo;V^~JJJ}~62$np-DLEs&f|uu5$Vw0JTUT=g0tUVq z+d*2eFOj}Iu0VW^I{+Q}Cz7zg(U`6u4=z1U=%ObY#iP9c2-6mR81HzfrvRpt(6lFy zliw2BeRyoZWM|XJr)G!;xfm#k`F$jP|EY1plYBgmpCSH(_g!>F%xkH?wx-SKz* ze}qOFZ6Ag;M_&Nez9Eil6Jm*=r=26?%yp7g_V;7a_Ykk8lO~OSvIE4M4U5WFEL&1t zTGNK`0SJ$tT*q{|E!LIDhXAY$8%Zw(6t*SG9};?LQmSDnw-HaPGHv~3RRETOnjwCU ziO+mWU_f+^Orj%mBNBOQzkYQkWl{{z&mo|z*{{5Gc$+*JRFz3_g>CYm2(8OaRig9_ zp&#Vh0wzMY9N|a5&K(?pQ26gKR5xKp~k$qn>#{o2M=^l=8k3=u4sYe7(L2 z`ilH$R{jEG9q+4#AMkOhA3c!job%{oamB+ITdSY;oyy~?hU-5+K>Kg`rwFGxbqA?nCjjfO()L? zvSq*&RJ!HApd_S6ifH!B&K~2gf{-<{{8yl36J=+m`ZKfF5*n;q4}Dh^>xxrdpbEm` zbn0e7jNu-qb=Tz-%H3Av6sNlU(5ZN*QokTcfPw3#+C*k4_D zqWo#cMvMMcFg3`ZPMa00@Qd*G;3wul3&67dq1dD|i7Y0eFpB_HzB7xV(FF!SBo$U* zBgGn0g`89~SevaORnUu611I$}P6{PfYDg9IffSCeFJ~nX;N<_jjqG8ZMmW>?CNm9* z7Y4i2jyGTu`_yX-^r{Use5mp2O@G=jdw}sUXUz2>(mdNvKJy8=7m!yyk;-G^H6XH6 z6RquxvNFUL7Y`SI_<2IdE7|FX~~jPVIsI@c!TBXXph2Wr8r1*)?ah*|T->O0Ud-zQru zi)=!jPe?M)F0AtjxdD(n5a}u+5%kovv20b)0*p;M^$a!g2stYVq}Om1<7}3XfQk$~ z3OJa6!C4QDpe)Yk$}wowDtF~j)xbaL=!O!r@IM-lx^%3JP_TJfL-L}AB$l}!ImsUw zNfhYOki6(SNt~}wmj+ujCHfIP#DJG*VXiyptUyQ7Vb3Q!*UWMRttznUwg3SW?I?&- z>YfqgmAag1$V6>sc?3Q6LI%SQN32rujQYM*yl6UjL137M>?}PUwZJUQR`Ys}@!AGf zXQ+AQt9Y3y268#)wv=&0e2to0ejm6&AkDgY^Wwbbd%K>7OOe9sYK~hO#~omksyVjw z;&_yEJi<64-l68$(l?Iu^YUaYH+RczF#J@h?4tFv2P(y;3r(svdRRg>$~NJjy(E-U zgA%;d3|M3r?)iXw18_##I@dLr7=zyWhQ4SQViBh-^SjVvw#?VTu2#ORj^0I8^fC?O z0@%pQp^fu1^oSiDfRkStdKdc;x{ftb^!vsAF?3>u1?roMP*H%oP#2+5kJycR$pVE= zE22De-T+>67%ye|JP#V&)2EF)v6(r6;7uAQo)7SS{@`RUseBBb*idN^j;I;^Qscxg zy*Tmb4Hn^SZxJP9D8fg;?kWq6EtR)icW+>PH4Z5sfCm70&jYB$Z#RVGpeBCrspBU; zYG8xFY``U#4$+U$R>@U=-s?mBU@b^rs`aQp*#?^3Y9=`b)yo9=aat@{bsbXV+W?2Ce3pu+NI6D-WrDm65=v#L4m&Rds>y}zbJtLIqTzai!mf;~z2CLUzcn3DI z*K^G3mf6T=ro;YF9davofm>jeVwr{P)r4au6<%}|7jMR*mfOe?CZf#pmFPL29lHB z>FRMi^$Xy6OYPLRDyR6vDOqGA*9sbJZ2f{ViK4oMeaoB^T{{^ZE#f7<34*;@$Mk5r zb7zQH$y;Dkd16(PSjg{S&w6uJB-uk~(96#VGwE|LuQDv)CQH%eKnY*X6l05fW53^F z{#m48sO7k7g_`L-6%n>+70$(*H7)*g|c!kp;D>9fsXrOv%U1yFcOWkW+ z{J}v*n#o>i4iBU^R!0gMV8^|=85YQR9s!yKh6rxGr^K4~2QQ$QV&qaOX zNq4Ug4%aMl9iX4y*zkz(p@v~6XLt+@exPA^z{L==z5bO1!)4C!5@U!07c>kH^nqdV ztBF<(yB^fd_X{M&bHnhxhH*D%d>jbe&@jHPVZ3ldi77ltsXXo%uCN9nkwNO0FX2Hn zyE&D>54`r&q25s1+T?n?U+;ro7^?kMK}L9nxr>rKF^J}Gj3kqoRb}Hdo)$M*b)SH> zC(xQQcyoXs=Jl-8-8K#C@FNFE~XM*n0cQ-bwt7nAPRDb#;;w(d08{+nWZ(P|%UcW+L@HP6?pBWM~m zQNtR$k|iA-vd*geEodcl+B#R3?z;?Q2yW9!^#9gmGgvIb(DA&rJ{kuNG2*;=%gRe@ zC9k=e7)(>QMAPeQSrE+Yh6$h2+;y%XA+#B>}AqiJ=Wx+TXz)tA;$CSNJPO$Hl5?|YXzAY$OGYxhkE$3_7#l_3rM%i0| zHyAl3?mJlA&jOXL>bO&vuQ)r7ZjTjzg-Xrx$H8oNpa8sgS?8L(w2!3U+u=d_3pMHT z3J=m>YDiyYq|XC~E;Z@P8q(Wdj}`B5(ziKj6oB_IZqk<-X=O=vjV}kBOR`qHV@onp z=|{tA2hv~fG%M?|ViDG3gXrCz3xxgbq@{6JhL|40B9s;a5#py)DcIs(kX>-x-xWnn zV_mK8Vrk!PBa=eZ#d2&2ZQY&b72E~jIiBEA?MuCaPq*915>IeKM-~ACF!T~GLQoW* zP!At)Hgl}wX>lX>Zv#`NKAgG&D%OWMChhSjWJd^|PQ^{;Z8-4VCo_03Gor0nIg>f` ze!OxflLA~$4szVyyMUNFy@aQFpPd}jIMEqG|G3ZA-xCbS+ymbkNf&|`t@3~?-Z zXO}=g0Nwq{CwCX_&lj(AcmKbayWfC{{|#~6+dqYne>vUdZN1$c`7n2Xc>k`@KP*%k zBYZS~2mXhK!h!Os*OQq8VWD*Hp|K`U9PZva57`7O0Nraf01xOK;T2riiSL!QV8_YM zD1m?whUTVEp~-YiFw8;Da9DxbG^cdmL2E&%ofMZL&f?JMR;0dV?W<#i> z``C2BEBd+P7U7BqntpWrO|M|-gar=awW{g46LtcQVw&Jf1s^8tj87&Q^kFPbaLBPQ zxxf1?HJ1pWLI`vG^^;J6^bdnHjf-=(^-j~M2c*f-c(OwsS4kR~y2o-&TpjoN!S(X^ zdAs2qG-j6HM&0W0N1%$g!sxKy%_fIg^y8gP9?|zNFCCWpfbhdff0=N>vF7)Y0xW_Y z9iLAY$h|PfjSKhv>RaG^y||`XUtPAK91i1O=4at>BpLy`S?CC;C|+E~dlKcVz*6o) zsUzk-)cP$XyI?;(EAqiFQ;=hQKlq#i{xXvIwF3JT0KOi8e~cu)Ct)1fJd(Q*(utR+5W;ZJ zBBTg!W6>>q10o;5f9vrgLSceO09;Ke{Y2%fBL^i@6 cI^N$bFEql&J(^Z_Sp(|u-AI{{?&%u!ALQIrhX4Qo diff --git a/docs/RefMan/_build/doctrees/BasicTypes.doctree b/docs/RefMan/_build/doctrees/BasicTypes.doctree index 3dd801ff1d93233c1b6867805c6885f0f90fe074..faa49b9be86c82fe3d1c8262696b6337ffb89e27 100644 GIT binary patch delta 82 zcmex#gt7A|BTED8)Vhr?(%jU%l4AYjqRN7j f{2bln{JfORlFaL!q$n{HD8IRk@q`rs+XWwF delta 57 zcmcawv9E%qfpx0!Miw7NHAnr>;?$yI{iNiK)I5Ec{N&Qy)Vz{n{q)R|jM60icS*@{>z*Q}arS^^=P# l3rg~Hbd&S*QZh?2^YaqH?BbH5#7v-k^AyJIQy3Yu1ORwrAY}jm delta 63 zcmbQbgyr927M2FqsXQB5vKZAY^+StOi;DG=k~32C^j-3kOLJ56N{aQTbDCE(ZePvFm?Z!J(+C#W diff --git a/docs/RefMan/_build/doctrees/Modules.doctree b/docs/RefMan/_build/doctrees/Modules.doctree index 59d46a4a18d616f61c880557e4bcc131a8dd2eae..49bf0289b1b12bf3373a07308147ad92771ea3af 100644 GIT binary patch delta 82 zcmbRDlzHn@W|julsjD`!xG>s==!X`k78UDfB;_RLC1<3Tl%(prn9gg h7L?@Y=qBgqrDT?5=I14X*~KMAiJ3t8&3TLl9|0$DAa4Kw delta 59 zcmdn`lzHA$W|julsgpOdxG<{O>W3Dm78UC!C1<4O>AU17m*%GCl@#lzXO?7?Cg~>^ PRTh-w=WK3eH24Srn#C5& diff --git a/docs/RefMan/_build/doctrees/OverloadedOperations.doctree b/docs/RefMan/_build/doctrees/OverloadedOperations.doctree index 0eff732025c7ea6602da3411098a4e4fbe8ab878..dfd0f3dccdc313fab25625daaff5a0a7f5adf8ce 100644 GIT binary patch delta 80 zcmX@>^~8&%fpu!+MwSFd+eH1);?$yI{fwlX#JuE;)RK}^eV6>?(%jU%l4AYjqRN7j f{2bln{JfORlFaL!q$n{HD8IRj@vt%g)Lb7* delta 57 zcmaFjb=Hfefpx0WMwSFdH81_p;?$yI{iNiK)I5Ec{N&Qy)Vz{n{q)R|jM60iMBTE{iZLof5acWVqenwJGVqS7aYDr0|zDs^`X>Mv>NwI!%QDs3% fevWQ(eqKsuNoIatBA8uVQk0kpl;1po@dYOUvgID_ delta 57 zcmeAd{~^ZGz&bT|BTE{invH&FacWVqeo}HqYM#DJesXDUYFQb`WZ<%iFwHxsU;<;`Y!p&rManjCB^#5MU@35 f`8m4D`FSasC7JnoiC}hdNl{`ZP=0e0qpLgs=`0@* delta 57 zcmccTc-)btfpzMhjVuw2YHs?W#i>Qb`bo(dsd@S?`N^fZsd**E`stY^8Kp`3$wid~ NCHXmIScimg(o_qFt?)K`wrypIibP4@)HrUfevobqsRL+^TYNc#c z>P=_;T@ABTI2?HNw&sr4G%qx_JInRy>E^hTDOB_Inqd^oTGKf__6pmm*<;0tl3vLd zje6Y}yStii5HNczUz?k*S4$)LYNcS-&1yyG?{>YWn^X=+_Si{d@`PR)%T7?k^oW4l zO=qQD%X1s|cB>7*1SXT_RMS~2`|kc;c}Ns^on2KuXVhwD0hnB9I(@cLZ*b?0*}74& z(G|OS1~eITX*gRStyc@xrcYHoDeLv3rO!5<%L3J=%zCjgF|AKgC)bODY^`3%){92j zXd2D{NIBI&dDB^DRGQAFV!d3-P8+qdUNS3Z?W_r`o6hpDzwR|nr+>OuwTwJC*MCS* zyXmaTSEuJ{=2Q_+FWb9&@19-SsiL9Da_y9%mq7}>Q7=}(!u8Rze)OIC*mRZvZp|ne zx(#er?j7B;XLNVdSywm8(2YIWFTHeUojmb$9{a>B0mP){q z>E^7yuU0T>M&WJ~c!T06o6d^Snq6;>+fJse+jXOsg&d$kAsfKan9Y|O1%sMHsU-eN zAv5UksbZr%VUHFj@O|{|2eS{>t2H9!y6L$o7R9VxpDP(8y-Z9&>f#m7dj4tG^}3n& z`Z7chi$-ZWJAr;zba2JlBB=+AfO;iwKxP|yiP2m~q?pZuOxzX;%%FILVxbBoEX6&} zmGMwU@p{wQ>@w(X`4*4@4~o}0E6dzivkua(!gpXw(j#DAmKS`lxtPhy#kyMsY$ULg({se?YvQf z&>Gc-%{XR^>BdC1Zq`Ba;x*0&{^_!C(kwCV&T8AxYx&|RQ5z_3ApOaj6~SowVK<+2 z*73V}+s=CLtz(`kkJj=dD^O`|rBQ~aXD6#rn>yRCep^T&g!Mu3O}l~Y45~FCEl&Rt zb83_y_0{zWpzaKuqQCqoldl$xk%>|@e-`f_H|@GvnWB=0v+|r?YM@K7k;Sd(?s6E^ z=J*dai`ziLDSUB;B(<`>VivD=R&d9u;K*6tDJy5c*tGK6h5} z&+KFw$|7oRDPAdRt_E&;$;iTHl4v;n;n=+tuv-PZADphB)la2G|=dv*26&pg%8hz2}mvy+`yNi3on*#)vRarhM z?gYD;B!kjIK$WTmkP?d9s85dEHe#DoqTS-&;yzJ#O~IJd8>M=-RwW%453kS*1>jO) zqXLD1QbMb3@Zm{OVLeqSR|^f$gu3Y!Y^~SKG6bVquT<+s*3+A;J+0@B=0(}4T|{Sv zk+kK*;)}#_!9ow zvxYI9ozZI*kj8D@8L}JG(=`LS;FUndnVgrQqh_T5E0nL6%T-tibPJXjy|Rs3$wg(LV%De4{MotYMXt0?{?3|H6*A;!#Jii+ z$Kc!)?4~SSDHPsi-$tqb(0P2z7K~~5sbfn8{U0tqB2XVB51mDY3Ah}HxBK=GKQ|r& z5nT%+#cs9x2DHhgO{QM5vv8T_(`jX2ANW`m~n#~P4B zkJ1|g&$2p;H=O-rcf*u2xiHS zL%>_h7S{80#cKqg_^BHQ+;isu$Bavy74)36+>u6}gO=i76#s&r2}{r3H5(9mDl6V! zyhc=7&7fuY0Tan@3M||XG-1^Eu`vH=vSivtqXvf-d>$~Tns`3Quo1RZ>gJ@07o7e^ z?=m`^9bS_UpU~@%O7K;xQPl~Fd-}P!F6~PJ<3>8ptXvdh7qkosTuYfeln?_ z<2YSBEWWaMnoEnXDt@2%@{;21qW&P)hf3CTHv|<0n+0eD#M#Dl0Wl^V9y@++M#MZe z#BoB0dc(KyWAPGvpB!+>SkW!s$S{QwC*GQQwmkf*C?mJ&4>mCTkYg9ukcfEA*@%#u zq9a)0=~}ir!GjPUJ_UOf0Q4k3FJ4u=T2v5WTu{Uq3CWr1l3ACscTv5j#LA z`3*5XVo??aG)i&{FXR6D&%GhZiqSfZpnxDcPN+b!Dk3bUkSl-?>9PB+|p(L_b2z)5E5bfaIGC5WkVNWtqL3mX8rVuOAFtXk*KSk%Ojrw#04&Do<`Z$=9 z-P^!zA}~OFgMbCGD>)nPoRAjbB*_Q51GZ(OntWMOmqT?w*pVcVJr#ukgU_%xD5H0ELkHwl#+#*gvaSZ`<#~+>-A~-_OY>ip)zXO1*2r1tBqES`dDSU zJSOYjxo^y{Uo-|@jFijBY7lOyEQ!W(1xEfsC&)Be=Qbs+Eji_7k8DRc^~jEmiE7_7kfmm1}YjA&&(fT~~|UT_25EuwzCI$bi(86}tmj`wIhB;x2zqC(hSGd>b# zz=toZzzGriHj3A{h@x%8v4{((sJOp)fU8_4sstQ`8>(>eYKfVMlMV%;hFvh1N#ZDe zn+s%e1Wq^)_L85H^`Y;G!l1`$kbe~!0#V>*3|t3J62mVC>hPEpMg-|3vj*yU4XpFw zP^js?y2XE7GakdRy`C)^I&6gZ;!v;#q8a$dV@tW&KuO&!Bin&EK3p(Ut(_%c$NIu0 zlpn34;kADg=N%rvxHPzLt=h~TbQp^F*x=H^e(Ll ze%P*#w3|ML9ww20rL83_hF#1&%6u!)M= z5CWx$0UA@lw0aifql<_t$mr2)qJRa7<`LYoEtqpKr?W^dRdn>;KxQ|87Wpf?==Nya z^c?cxl`NU)M&&W&c4+`v$kykk-TaXpSZ#*jLr*wA+^7^}dWjO9tGp5(A#e14!Y6V? zxXf{D=dvYB2;WV9altr8*$hheI(^U++UgeNNMOWdT?fs#1_9w*{r}{ z*UH(FQJI2`_GuF!oel3O1ipBs2PA-_NOK}%;1v$~Er=Ynv&J0~-V3hzG`q^LNaF)kJdaj1TKF9~SooKSxo*r* z$1fy*DnDa4s{orH?57__TQKK>8tQ9da4P5KcuwzSMGB`?>PlSQRc*9wVXbcmS zh^n_b>*V-X=I~)y@0U|8wio$<~gVCY`PD6UaBHCDcpx)wENhb6U#7ode3gY zr7=+)#{7djpExS~tUa1<9$V&IA$#CGEMkHYsq#9J;PP;xNt0nPL@0A-h`kpv0eozw zml1Fuv%FLNEg@Kzeohy&Muf)3P$>^$CgLhr#V8r5JtI{H3l&zweaJ#dPM>X)+;2+Os zE`u3&)^fHDE=U*C7b{2@X{HjnWJC%yCPl^)G`{F;&ZE}ZtbxRNDT_FQ!~jft(pfW& zEI$o%*@`;I4Tym!9^0dW3^Z^VgR!QXfxu?mSyP+L2j0EWeHVEm9Yd%*qR>&(s82Eg z$mJLXb_9vuQy{G~D@yX9_=Cw@>|OCNgLn(==9)o=fbHRt{M z%6r~o&3eE7_tq8G%3Id7f!fBo3Q4F?ldG&V#UhDHs=o1N8iN(jS6 zn&}qVct{rMJ?Y=uny+tS_Ip6idKQ}2&jF(K^Z4L`wMbo1NT!!&^f|lv6sndH{SuF5 z)%T;SvqHk>cUCfsd@U0w_Jl}-o?U>RW*G^rqp2j2J%HL#6T1ZR#+cm z@TcHl2>mr|ax`huUf<-`t!Jr@TI8%06LL-KqbO`l=uRdO?vhe1H#veuluDyQUIx&u_fJ`2V2i~ zDyVr+1s*GwFN|uW_4DAd*>})dz(XrowWuR-+^|3#$rjCn;}ve;d(vGUqMZ?0ghg`3F2W*ivU{+ITI?Du#trkWL60PC>gtIGRz!(xyl06+wu_DLD$3Vqk*+Sc zsOB$1Luer_{E(aMhZ)wVYWj4s#mfSjRbD*Msv4V7)y4<8WBo1>gw5y4#OxsVC&n*` z304A?M$K%p^M=>pq#4`$;`P$b-cRJ^woW8&OM*D&fw+f3SO@VZ&VOvTjiju7{3S`dfvqUe8-L3Eu9gKTXc zbkjk$>gFP)0+*)~cc)WctRJq!`qA1ak)Fb`G7(ewvi`$~8;`K#sk9(^&W^Z z^V%USti|XB20^>0p;MMKXl9%?^#qH4HE|a^Wzm(xNbwSmw3=DsID%!mgkywRznmD2 z2($j*v>*JJ^LUsSKp!?Dlz48{Th7nQ-3?h{Ox3pyQ-SEGr1<`ZLuRiK6CJPxOr9{yGhMv)X z&9F#J)1tN*gL7Tth9km%ZCVgLXTi0{S*Hb zc50%uVRwpd1o)27x+%hU1Z#_s#U*?r8gwKvG7&l6{+9~U<8TPov0U6`kj&W9ER3eOr`b#gp@H>fl6E9pe8!%sb;kOdE6%nP6F^ClDh15jcaH@gT2{yaR zlLl5@hR0BG6@}atdb*8U7fqF!YouOgf#b^Y_QbZ`Pz)1zE(GDx#Dwfr5HiEIheJdoA5PqCL3mJbsF>m6fin=ym$oMOX+lq+NFENM|A!AyHIdllCX4qfK+5eE5#*_+i=zs5#pzPZBK_Ecv&@9qN=N zL&IYETf1z?zb0-y!jXST3!>*789a&&RkPj_nUIo1N(DczTiKmBKVo~F^~2bNVa~Qw zkZTh+9%0ATX+iXy9lT;zJ6ORP4svO1(EN)9wMwyI$dSYy>RdrMWvB-*lH~L!aStVK zJ;ISY(}L(ZN3Mb|E}40=&dcergbeGfv6Nn{CRUi!wx-~dmAIRo^6BbfL*hBY48v;7 z0G<(+O(jMo!m>hI5ItwvhU0W*Oq*3#aTNrE-ki8ooib?SFs}t3X}>(>jfvZj@a4(0 zAbQT1!Mi|$v)aMhlsv3SQJ+Yu;K&COcc)X1tRLnb*CW`sEAfe_$uA^sJi?Cmrv=e- zcC5j&6!$!Zkl$B}1S39^xFel1Vl8Ij1DHg(@JESTj&R`*(}L(Z7htBa?z|Mu zC)!%Qsy!r5;8L_?{_28T-%i}&PPw%WE9?ZuBktNE@;LTLy*eV#42y8^pA%yf;ov`} z1rg?8ibR5+ix9)u6d-&oK9F`SAafDC@_q4g5$zVo2PM<`u9uqF*WaDt0rhmg)Wq(@ zZABz&gh4D~YGVEUIEH|BAZc{;84l|S%|J(rg-V}H+|_uMj*u0zE7KCA5f`I~3g4Hw z^$4Mlrv>3F&r!jvZs#TB9BsqKsS+wPloG**bBVjrDIeAhW7{0oVhTJWEU*(d9AUw9 zS`a;F!FsF(#7TbS2oGtz6)tF9oM^FN#*ZcLP^ZioqP2knqY+vji_Livj{HdC)*~Eg zrUlV4M^aC^--rMayGl7YnK0@zhEeg3+od&YhctHls={>ol3?G56ZgJT_T5B5rNn+j zVn33XM>o?7wmc7%V`nRr5#8yK0CgO;7c`e$2#T9=HW?+*$89SiaVvm7(}>ZrUlV+?gW(L88P@k12+k1{)q+(D*V&m1OO7_<5#SRiOWleiO|(th=@;bRe@ ze?4)#5&A!t7DUhK-+y>krvqSBq4%B&%Kvy`^gE^e0G8Q^_9JBf(Zr2L$o_O%5Mi>X zuvWgo6Z2syK=@efOq&FfbDVr$*5b`^dZ%m!EvdEI+qC%U#C(aDC+gOG6Plk&+*U-4 zexE@sV)l8x)I{&!jsz7l;^u(4HEI`y>9I?14;Wtw{q4X?t5f-je6x)Vu86u=oA zmaH%(HW9nJDRJ8oW(+ZiMO272g0>pns23uzS|rGOTjDNuD)wuK1zktP{U{OQz9@0a z5#sJm3&NN5F~Of!lAd-8$hvz?I>lCt7xYk};KU<|JJTsA24R2*n~|1+{;I@nM|km2 zS`a5Iz?3c&XI7dwICV18D=wUOC6s8Mi zrd)>=GoWcvNAPCL>RtuSmkpOCZmz3pF_5_|F$xg|ZA=Ry%%Bur#&=XgA5(zvv6#nE zr8bV6?{^pYnCDyB$QE^koE%L|;ZAk9@VjfA1LPSmuF^EO9m_xM2gimvi z_e(M5g5Fl*&UQ-g4ZPBXacWKLsl?4kXkADP!q)~}u&difbF1)PWHt4Qf8M_2keale zr>=nVj z&m``6r|i1{?DO^_ldg@#Ii;w&{ZV3!BHaALv>{+qpSgqjf_>Ml>D4&lI)!}! zoZIbrzA7;~5hh-d7DUgPcx`}*JmH`o=n&Gqd20&>-j%q!o$8+!WFX@UH4N}EMh9P( z7?}wB?nn!w=j_{dKd#lH;PO<-yIFBrqbd}4GWOw6SP5oThFLAO6{7o)-yAbc#uxIG039}6)do&toA#qXw_&m}By z=rG^BwRkHUTHMeToQ=1(cao0K|qqAxlhiu~RW?&$x;g5QLD{-q4f_^M52wy*bQ}CqQ`GnQ9D_F0Y zHpYD_@s$!m|G!P#jZW#mhW7%yctlw6|0ixZ!h)})1<`XBY@qw3kl1X=iMR@aAsg0q zC$f#$6&$@yw@M+UNqe+g@?|h_`w_mZNeiOqd|B~*My;yqgm@%qe`{jIJ5`3h;q%mT zL<{yMZZSgb-DyGeoZ2`tY>HR6wYn2Cu7cpi_a*LBr<|ZO#TYAjd?jD89pTF>6Sp7X z%c-;=dd`>i;_}{uHM3sCE^9NdYDBbH@Z|dwcc@dI49PP*V3b^pA{==rQ;gij>yK&MPtHC%8ph$zK#iCc|O{-bF@^q%r3s|_4+SD6Y?-g_)4|JB4D=$!IM zJ_rmVl>c9eTa8fuuhN1DQ$EEY-5=+Rfnf>|J{Ipu8;8qrKHpxwc;o!mS6l~2s@6^3 zP=9z`cS3UN=X^tbEpb~Bx!TGgS`PKCm!o4&KW?I~*9@c8HP4;jdGD;mU;-CXHu=hH zrypNyCUyv%X>K2P#8F@m&QHskB9JKI0I#U zwqQ)xi_K$wPJdpXu9Mw&S__P`VyaY~XkK(yVxcl_hs3wFvSshV08V_IFlt7jc?{ea zw~JRRr8(5i)btsjT>R5*)OrLMN!H$hug*%l+NkA?rt{#~D{LH$Ggh1^(Vf^vy>5)% zUCoQ*SjXJcnlS0>o>PkPo;LwJR=@@1V<(MCEYy;JMr(Gx>8!vhVg|Y`Z0bv>@d;uFP>eAxtCrsC@=C1%Igw$EZ${N2j?>=uTI=n#GqVY5G@T# z_isiQ=M}(ev^>keE0ZB`;!bu*P-ot=4Bnl%=?Hz_nHGfag5M!n)a_K_z_>9JbM}q@ zSO&j|JJ2clR}EKO3?$k7B<^#GTa8fuqiI2eDWAg5`5~CluM{ABEY7FxhzP+N&LHA} zEId`#^+y-rGta@k9Lw*kfGnL@R!n-yF` zrxR+<(melJU8`2>S$nQLQ7tvC9{`@t$_K@-w>5XXhI{dQcslN^vCRoO;Pc=FP6kAT z?44U>yBUtC6vnq?-r= z*v9EocSTu8>=~%Bwy4`#n#Q6)RJ=>AU*yIwa@!ZV>5JU*MQ->aw|kMBz1U#B72oFr zwGMOZf}hJN`18x;L%Yt3JN@t!j_v!i@<1LD=8?5UbwvB4tr;r?26b`E2X?bi39wlkP5>F4LNbyi3z zh}BUFZqzyV8u2CzU*NYh;NFPdM7_;{g)Wt;EQo*&+qRI(P@!B=VK<%5Ry_U?G&Ms8 z!sk6RTyp&lO=}W;u%@^p_(g=0)WR?7pX?-l&C)NDV`~oI@Zbr0K&oS1;0G+UP9GK* zL!rq=tf*HDRgyQ>#y*%(0P!do$wL6hI9pExSr}1RS{{5g#mIWV`>h~?mqer1 zhwyIkOnhMkBkOmmCHW@fvqog^<(N8%m#E9A{R~m`UG(t`eHi2dgd<2btotw_!GPZz z1?-&e+K809CVIxhQbrj8#f0^fXg9zpkD5_}&C)PSA()agPzc6#xnI8$?N@gQ_DfN~ z)(7bsxuRqJ=o-m`vsT_?p5^;hLNYu!sm*Hp@&C=*9R5GA3TUJ>*hN=Xe+x|}W4*I# zwp_a1p4KVpFn}xHkaa)^;`HGZemuHZ+=3K|I2#(#UD2E>mhgW)i>qN+X|2zb(0rV_ zO5zvj^eQ1rDrFiI;Q-iK69`xArfz)-0O3x_Pa|Flm;SLR{Ve|xk$&+^OQ8**Lp? z1dmlJ#7NU14P-}X354WRSfIFqrc_8RQ$+R7W$L40nc6ZAk5V)9SU}>Y?zDRvdiVx+ zi(h2vTDKn5>xIEz9R(bauFGBfwF*gK9W$8I#gOg#+(9j%#@Y;Kcs1RpvX;l5r-p54 z7(Q{2{bZ#!#Xa7o&ESk2yi_x^l6lt1RB#Ijj?59I+IG7^g|IlOPAV=&_oFu1BJ6-whik-|?5iO~PBgPBm zOSl^YUZ^5{5cHFLQ00uSjU3=DK2t_5LzQN2?Fp@-?ccBMrYgHLn)pW#4`|}y9t1{I zcYC2$oz`-X@40~2cBnG6C@lv0>B{Iq7NsQ8xGpDwwTEU!T1+8n7wQ5U9IMSMjTH#bO&y8j zO(c)|HFHwS#mFQ{<`YzsL@*b-@gO@~8O<)TjNaIxjK1<{MavO$a=XZ9^I7~OnD@+| zHEQInaqTZ649XQ?22;o~QGdU-CnqBZ)6Ue8L^Cl5OIHL^v;jb_I7|P%9L*^H#o;Fc z$!Z%pwQfRTP^nf5Y+d-mfviLio`3Z_lonjd&$fY{#Ae7K+4o?Cw(G%mbWA-3M<>C1 zDQGp|vMNL^!9WEQms)RJ3~Fs{FFHZ}aptKzKUKQqcXzc=sPO1-P0&NCbXSXly>zMn zUKXh&Qn@fsHrAq3VNZ4&wz%b4uQ}|$330r;0)o66Ex5pkJd}NxMn;1tHb-3oNHdV} z;V9DQ1PcUCA8aFt5u>nzLRz;iVG@>^lS&gVi9gf^ZW6*r%mE?nnuA?1MxE0rC<)Ha zB*bMm-;PpU68?Q1%E^!4Tb(g*$JQpoY?nE0AAk19?FLNhrGlxi`i?&BF%;StkvE6qM_i+*fJWNAccn1tFJu-&hRl z-PM z63!R)*30k7c@BFQ2Jvp{E(f$>hjVxAr_cTLY1H$h8m$TqK+>?AQ@3G{$(ZUT7*^!z z5X~2m{sXj9mCkr!YfZi$4&TEu()uWRatcVYNG_pZXgv@)Ejo) zJZAt!WDzxWOfqBQPDvfhGRu@|tZJA@6sk3bsA*~ z?{O1nEa61z$f2SE6TZm+ikOle@evAu1u&T+ozZKUqn{#V5ems)6cqu7daYV2k;9r} zFK1NFnYC(#xQ!I6nED5x9KAGNtsM4xe#lEq-@{qj+-N4_n#AoQ$+v>WWU53txB!O- zVnUqU7eqW1DhtLO)(9y!#}YSpSH*V_xKIM?plIm^6u~>OYGr(FQG4WTRjY-jk>!!j zb8dD&Dg#M%sGAy;NPj%mg#+>bNS%{of|K3nm+C=!(SVTQ!)>%BCMYC3>~WS8-^=kx zLDmgx#@j$%P*6xHyFuZyU7?%|JxI~B735mfjxD=me{8?>7ouNQj#_2=Cc7U_Dy<;5 z80x|P_#W7c(StNDI+=k9+JC3_&H2=Cm5}aI2=@}v(m@vU6q@2M`aQrPtk9zG(?^#s zS<3hCMvdE() zj?B9x!HWMnJ^b&AY{`c+-6EPWzi)5jBqM>*a0gQC3b7c=Y@2t$q%hA7s@~lOs}!!n z&tFh?-JmLzzpyT+MmhFqN0cskzdJ-rKg{@~=u+7GB|*zsInlsi7rPyoj<_qzco$A+ z{3kv1OVi@`5|5x_2$=*&nY14!5FxbWuvANn)-@hlYWj%V@fPTWk#)An97$jssYr82 zmt?wC16c@}gTU&|nB^m#t!eKQ{j-pf(5?^M-EIQWi}biJ=whYty-JXD|}x51hQZS zn$Ds<4#?C{#&0weT;?p+*>SoFn}CA#kigpNaXRH zK3!;|Ym8!;ETbAPki>Q%%;#WPvb#2K7v^OQJSbt06d`y>EK?35VtecN*kGUj9_<&E z_QAoO_4l4(`g&AnJj0a2S;VaeIwBm9s-5H-RSVt538bR@ib4a_otWvQSg(TGQ$?RYl)+!CsM0 z*0kJY4i_De{gS_@a!}-h$Z11sGr}@V81)&$zznUdo14nDHAqy?Gi(|B0>o34Y$xl7 zi>NAj6BpoW`ZTWRp$T1K`~rrF*AJ7`$mN*LSUAi(F*2~k0Ou}3<}@$?K=0Tb@)V`U zSIJ=NVovldcRm-M%-zAc_fE*8I4UQ>dxBSMH?;O=k-&C2x~9tO()cwAm$iYKLNWco zl+bkp)3u6NsB{RGrRwWcxUcHTLavhSSd6}IX({q*zuVMHMS~9ceaB+ZppW^j_E$bj z)wd4$d*5R8ZEIU|rS^HAx~XWtSNodJNx0(mbEw zDhN8AzLbtaV}av8B!$M}DYR`dDD*)0)iszma(V!Ne!7QUN=k>76D_H>my{`#shb$v zDONTj|D>yC7N@;r#>N7rK~c;o@8QR|xUqZZSOkb_MHZvMAQxSoy&V#{nAyKV3kJLu z3<&es8E`#Y(}Xu=*%Xl$etyPEJ+Kjm1?tdU!>572b~?PDTL- zqK9fUdN}3wPxqCJHpY=6E7rJ6v1^~SX6{*n21Vt>xit6rAjrWOS4L+TuXPh z4crAqCxoyYkDcm;fGgc`decO2Y5)C;LHj{$D-PNKm28pHbUlVy2}#>cN;|H!y>&5q zTqkK;YzwD!*Lh)3c>3p;z?js}0HOH7vwx;{zZLJPWPMN1z?5pgLrta&*J3!NrH zfA_dwZlW)=fXAq1sUR~hYti4mR7hWLqH3ZR{ZuK@O~66ox#sk9+@Bd#MQY(g8K0EAe2#d@LZZqu^A}X$Lxy8c zpj#aj&Tx7)RG508M8k>B2TJ#c2TJqWrXa^Hew``t9imAumeGAH3OF!$dJTFTT8!e9 zPbrJP0z_8^6q+1R@X8Mv){A@pV>dd%D?TNFV>tYvbtsxc_ z=JLhr^k~t}(K^REZCs@-&9`T8@U)S^`b48v$(WNFj3Liqg&=%;n)S78z^oPz$^MxS;rr`)2u#6YXxzT1GXAx!~!o2i8JC9tPJ)Q;~p1`Ist#u zoGpnzHSveqE@QX#IU_@dAL1rG99QOV>BQ0RGnLFlXg%0}QW^vW)%6owAf;*3S<(_; z?uooAh+$9rj4PQdG2JqS72s+Fv37J+%es-Hzc94(JCLkjA}d9wSxdxjBEhcR52>-@r>9%;r&L?Xo|%se`+hFYn@Q(d)D^E9@MGay7B=07$V;ztSnU!X*Hi>|?Zj76I$rlWUh8hh zdFCcGR{sUj@hV!9-E~&hc{#TlO9Xl?7TV>jC7Qu#Q7gd>do;sVnlTG>JK+u)X1v}b z!D|I#Z@{0pSR!RRL#^83zV$)C^+Kzjah2sY+)~s^ECdkD%hl*gm{_#KW@5mV993HU z$BKl!-y_fa=v!}9;{!rMeuf#5#7{^X|CER9dl-cE)A-X7QPv&|8bFmYp)!R$&v`BW zCVg8J@_d;4)&=r}y1)%M z8ARu#?yJ!?CaM<6XNvZ$+YCCg-(5rBx<}DAT!boD?(=rpL5y9R{fe2Qa=W^S`pZ(rX{C2(O_PFKPRMD*;Yl3e-2V@r*_5Cb^=-i|Z z()_2NS5p(tPNY-`j0Y}r1#TsM>#doUBwCJ^x9OOqB`C4#ZpD z+@f?Lqey_W6lYVj3rr+i#F~Ik$(ZGi>lN5;TE$+JeyK4_NNM7w>p-*%2jaW%`b)A4 z2v69=sp7R9&tm!TBbRC?4g~G9kfr5#7Tbycr?;I*;pF1Nliv_JH4J1I=zBE=u{hz$ zCyBOf3_j6aDz_ogbKN3Q3eNQ+Jb`6=;)#I84>>jKD@55~HhS3;Ps9rPSG&ssKh*eg zT8hVU@gqWBzLXZGpW65$gXmn)J55FpTO8VB@m|K!#Ia*qv-V1VEB0`N&^3gUj zy`2afl(UFDv4fL(ILM_Shx^9u<5)o=x>ESjq{j)^apiD0vjuq+mb(aCY zNdI(NddG?M$Az@~WLlWMNI%0Mx-Zh7Bsz*{n!fc`q$N3?>lQgK5s|(DsX3YL6Y0JK z-cR>;U<@Bk?ZM8|3+e!Q*@5`v-dDTJCSUNs%v_l-xkt5HNl9#OERx+@c1L`A?>lWE zFDSj&dBORRe-1jKg`Uli)w@uI`d!uSV>itHZl>n=Up5aT#nTIjfxiIIXw zy-2pK&gE|A37-+)#z&n1;v&>i&CJr9WA)SSE-QQ&P-V)`=K`o!$1VWf3Uph79*OPN z>)XIhp&H?CrI3a=A^mNk4kad43bcHUH3hZ1tg-JUDze7Dr@QoQLyUKKix??*)C-Nh z7RNTS#?pC=xg6pXN2gF<~6|0xpL5azm^c`syXw0gMqy0M#BW8;g&9zH_N|A*eh;K$qPR z--UHsT8n2F#3+TKiL-ydD=h6tK<@=cEWg1ZIv?M67QT%T71c+ z;88D}0W|N?cJm4+h_bDOE(?6icq}c&ut(PlB3uya$F)peN`@ZC&C%TGk40r+c>(}hCi;4i5;V$wp%VEj5}k! z=u_QgjW6tPWKKxup{eU>oMm_*M1!ie5{Y8PlEn_g>LRL z&TD$xtrX%FC-t8ayj{YiNVxTfActV^2R6kczrMDduz-{}{gU z=wXM}FY|#k@^qR%TDD}#nZR+Te0Ym{oT+~_3lK_u?%`{k3=U1j1)VtTMV@=w`7wy~ z@G*#6z0<%?;kc!dl5x%``3Hk5mc!zgS=8&@6?Ojv`NyJwed-_k49sQtpbY!>8H>Vy84=yU427~l9UJ4 ztdVx_^`6~(Mqtq8cDA=_=bf$k(}hzK{L^ieJdyucVfV8hyFc1pcE`#1UkG-8h>4v- zZ~Q>y*95;hp3Uk%A?|}v)xmqJkmU0oNj|%1B>8l=ND_A4i4MB?A8E1h54w?x^n42e z@5=Eu7RT}@XqBYkMHQ8Be-KA?AqHIk|=rB`Lje= zMabh9wtTF+4Df~gqiN|KC*)ri((<9SFnuBaH3reSkPqCA^Ly=xc>9kP!G4~o$%6ew z`qo>)mPGmUZV}}Y5o}r$)NW2+1WF4Kj3ZjEr8*W6V zt`VRHja$2wc{|#`O)>QMxl9PVGd^n+ngmteQH$p9YYHukvxrh`wx$(D-y#aJNr9F> zxzN>-$qoLTVpuM$hltsVSBqcmc)C|YaVjmn<9PU0AuSK2h3WHfoI!N1`u!)Wg+{3n zI^EoR8WeEr9MO_}TAjXi&!Dy;$z$Cj$t5Dz@M$-+^J#A<$_C|n*$weN?MJ)I0^iy- z(^5Q+i(eD+^47F4eZhV+gXmnax490AZ$4?*+IBI0WN6bmvP_jJ&!dU?_73VR%J9oX ze^!PM(zo6!gCyfGc8iRcjxw}ediointfCApmY#mDyDadP;nQg;9;Xa{E9B)q8Z6xz|LSlx}!t@1w9fRmx(64l@eyKWz)dclo zS=&CL+lIC`WbWHlR21M=qBtwSE%dE>w2!k8l5l&vMYu~u0aoR5d@)QL6?lk<8#MKO z;wqUSFI*)!-CaibN^mMI-Q#%q4IwoTq=o4#!8n8HTnV<_W!7=c6mH_twqwnUUed56 zhHcRH%FTOrT))t! zl?4s&34M2XzjTMvwu9gE_c4W*wGo)d7@ZV73JXjMw0bd+hxaS%vu#xWeZ<(H>Muuq zg$=F@Uv-Y9>>Rj6cY1OX<_<&d=G=@T=Dx)=(A?IQC8K;dm6N**6$E4*{^+) zzV+6xNs@fLTO_%JMBA*i5$&%MX;slSE3u;eweB*(_i0~AOY=C<{-%(azfKF&7wzX6 zL=w?9D{-PNpDLoAxyBXk0s7Wk(Uv6XLrbaR=P*gSAlfNF_-nhxa;hXCTCeREt1QE? zXl?h4lC14kSE%}T6Sus`eyh85dxVw+i`CI1{sPtT)%IR>UPUYyQwOW3Ui3{XpF3aW z{iESk-s{I3Wus>1wc{qP9M-XbUXgRI&nEm}cjeq)*nJ=hIIyt$+vr|+VfU9^oJ$gC z4cFCc6NWZ};aJ_MXl6y5FlqD9F0Goc>!n?|us&~==}WbiDH^l7{H@`R2ToUvYNxP{ zn}=~&8m{A_b*6@fJJ$KVX5FSMRdEyg?YM?u_XK9JCUJ?U+Z-NMNy z3{*pzWxFSo9=d_yE89R$5lQ>rlTdcY25S{zQt)s>Whwg$=?wR`sQl3Z7l*&S0auG+*N@o%>WOhdK1*x&iUs{3Ai zt6zb?q1Jum4gE^9M-GST5U6_t{!wxuvwL>Z=&Y*BtN(1B4@#kHNq>grB8iW%{+RBG z{|tS679SUjTb%xUZEm_=Ej6vraWI3$!e+0#zI38R)llLd2%B0&V2R7rMcG_2Fuaac37 z>N%rUsv_hp?BY$Ic9mYr(71u(OS6J4n>C<6S*w<@0kKjyW~rarOwr62gYc<#!!`<| znrkF)cePE%h>yR31Xg|X3yO&l&yTb*{gGG@DMXeJm!KkDyd2Mzez`jR$u_W)Xu8xX zKN=*Y-DogFo?Zy6f`k(+=%BARtyewLa)`d#&!zDhqd)C#FK+}MKDur%pZyP@g+a6L z{72}J&!$$nt*~E77crh#ErTc3mq0c;4;imG?xq2xoi=M?ueK`Vt*ZsOXMKxgp55C& zcUSu3LdPN5`+t;L4{sg_9ZwI!W$vEXvwKe<)}ts4LE7!w!?&E-h3|W`ozgFnD-?by zv%9)y@4isfDPG#Mm)_bJ`_gR7mu{t(Zi#y-6UNQM?{WRYsJ315Mng4yhqnKKre~-| z_#cqdwf)*rIKL^QhAfQ+%L@;P!wj^Fc3{7pYuvM2;pz7X6hok(G`sGq@7koP&0rChR<1&CaIA$0PYcFW%|IMF$-$%#byRB^NaiE>be~LWOtUC03d6n? z+R)0aSfA)$$d+=wE_QU}dots!?dDGw{~ z6VjC3qL@fbrfS>ee5shF+p#Od^F+bNn9SPY&FyO2G1V$w!9$9&f_X$ASQXPbJ2GOR zgb3(h3?f>&Vb?hory~!iBXS#+fg43Z)oI#+u9r%48BQ-E%0eK>Yu^Fyl$$h^;g(yZ z%0$HiJQD?!>gh_mJ8B|!vQ;X@ zl&9=>$8*2$Ta141PO7>pS(3k=j%s8sREM*y8b1K|&|*++ETQRAiI({76g0zjYFJB^ zWJ^aCJX|07hl@e6cd;S8R1LR67v~bkHJvoTGlisKTIsbb4PROeX*kpcC#hiXbOmBM z%EDKNC~GLVxs?6pVo-K&x2?xX6R<`**&@!8T-+_#=hWS3qvh>i2VMZ-H-0WVvl{hNB4v( z(3HWgG-TT|w&zw^WjZj$02teqIy>;f-bZgy>GgtO5afre5*kw|Nf5WN;hD;ru!z&} z>?JS2@XYzKgQZf;04Th0!E>QlWJ@a$Fdc)17PNvvo}Mg6b(z4xLoAlSrg&p?3d=Ea zxs$xoRxjmp{;(sLJA$PVby}C9m(3C%%*?y@Y?Q$PKRhn}9dulQI zyCFu3gT}{+t1y56!`33DL%g+>Lkz92KfMt-n+Iu$lu&S1V4gbi$S(W2L(A(GETPBZ zESdg01&r@!NCVwkRLdadr zpJ}l~43J;xzY|{J&kMrbR%s=bJa{UDjjNOZp$RzySs$+}`a}r{lXE~qShBD|+8j$F zMfjW+bp*@HZA3Dn=qW`0TpRccQgK4uRq=oN&nXIuR{tlZ!TeI(CByZS4h@&{c8U?8 zt-PVhGcexFwJGj_Kq!)>7(}eEEMl%7iDP4O5*7$oK9DiU$aisFM5%!_ppCk_!-#_) zSPZi~UBkLgSPQ+NPvB&`IvKWmX}Jp7GhSedWz@WqJ-kTs#?G)*ElH;@38p;NM)f16 z1qmC_L-nLfvr6->7yZ#Ta2I4!2w~TxoLx-TD2lwOEzi%XE~(GUTB%RxOYHhz!4nQy zRY<(2K_XheOftfAl^^V`w8RZ~?~;A{MJYd_xymiOC$hWo4uC4Wvkk=i#HQd0< zMvc^4U9lH5g2EciWSRL9d#+N)i4GnOWb>jFlVq~AP1DcNP6{hHnI~v$I%`UT)&aI=fyor?WWk zu8hvufOnO6Vw4PilBEnmHeb?hMAg)se8GFL27xx_fwO$C6mIRZob*fdX+CMa6F`bT=v-}9aE((IS20!T z9KI|zSX66StcNRHB=G;VGV2}W(v4&GydCG zs|BH#o%MvR4N??Agc7g^`3dnWosAeKRcnQ8!N8)y0sxyty-d2Qp{Ze#nw|{u6OgH56aV~2)3(tlRI{^X5{UIQ&ukmn z;G4|md_7A?_6h+T%oa?WhDP9hWzr;;^t-am!tSgA@-~nW$H0N}vSxPD#J0ZXnWps< z!23yObxofEhX@v3R^|+m{Db4PhX*2CHtWq3>u<7t6qU!Vw^M(Ag!;RA+L&fgB*)ph zfe;HK-*g7>eB_4Rw-lPzkMk?$NEZx`kWg zhU~@!Xj+F!s8&GVNxONW>1HWC&tT8tOi9$vXD^OaVlRo}|KFYXWgzv|*W(febXT6lx+uueXUm);*Mo!jQMQw8)0(gnm z$GPQkZgren9Ou@?xutP#Wt>|WXXsBdWYht`@rLyWpgV!$KD^iK!!OY{?!%Yp8~0%~ zcZvG&1?m#_;d%U|bnTv|^;W9L-8o5pqU-)Fz9f*lvk$}*-QmL}s5=(#a`-CM`#60( zL{+$6f#^Z^6k2U7~8p1+c_2iEl|3H4|=oGvqb?5rRMQ9K6bOVE@XSUZDypRb5k@+7S-nhDar-B2lq20{=5aR26ja`SKqJWl$Tn?_Gh8^UQdc7 zyp^@vt?*5fD^3x*uGX`1i$`%Iy!U#1d$-!UZyq{7bm!~nhtlrq!`{Y`(0Mytl{NkY z9tQ8HZ{5?YUx)&BPLI99Hfr`*aiXMG@$+sD#Cu!$O2Xb3pcChOazVyQ+UJlIn$VN zcdW=ohd0@@6w=*rBSJVYDKGZx-jfvO^RIqKEYzS(SkDs0m?1@7Ocy4yeBnE!qhu;ur;AN>n2 zGyiXsSOOdThXn>SF{I@tb3*YE4Nz=|?Si?zxy%$6kw`;UZ zi(=y3TrPt{17>&Os(JUH_i|CbOq;5_m$4U;W{jqFY&6aBi=pi4zcbu}!Vde!lJFN` zShAQUO^VAGfmNbeRZgPL$QdFTfGm$pda~^LCh3U0Dq65go6L`@YQjnRh>>h|u6une zL%O&Aei~KHwz@c*>odW>71fZ1m=<64z8M7^P`#n3>YcuB>5?TQs`Am6W7fU~9jm70 zMq+hvq=m}1eQ8qLKC;(WJ+CEC&q?<%6y}HyYCEzQb2p@n1|k5OY{6U%5=nZco*4<* zjQNqq3%SgQroPwNYf32bJ(|rcA4KZd7H!p_jfvEW)n zSNCukvJCITZhNnE+xv1E@$ydXMbd94co~ZmUzE#izj+5tmfwB?0J#hqjhnS8@Adg# zCKV7d2i_vPLjXn+0D$ci?~m~70)r94LA6HTqih!`8y6mpF0#$qCTy0fV=*>s5Lsw* zwoPy(Ds(3_BAxEsVx0(Eto5hp1gwL!fQ&Oqp-~CfXOnd_YFWAy8XbuO4w$T)(Y;Wz z$vK1ZE$*Pj(F>GQgD!f=yDLO+^ApywVMObXRqb5}S47H!7er=gQ=trKaJ=j!4w$Af zupJuA_PDK}SX-xw5=`ueqBL0uvEzogBcdgh`Z50DdH9D}oODB1N4WoBWbJ7zC7hhY z7)-D8D2|r!FgtRnNp@L%De?*`a@)E^>^xDI>o#Cb;FL8z7YpCgZpf<0ui;BGV z$gDPUAkZFK3&|7ZmLWtKr0(JzGYvT1@l3`9t~f>q&nns+z8EE3KXcxt6aho+768u& z0L~PvSmT&8Cv%yH_l%CdMD(8t5bnP_uS*A=Xmo89#aFP-!6%WvwqM&+6~To z!NbT<#z(4z>bbth^Zyh)4;mjgs>rB>@1djylePpc(*9dxq z_Dfyb4+hBhbnaRo3%k~a_JP`#P@UnNu zc-fstC$UI#61zfR1;vR=IMHYt=V8hfncnu3@Y>4dcvBfDB%E1TZu8z2oeu|>x6D-= zw4(yM4zSV-t6GE-Q1pmH#*n{99Ha}s?&YGx3NRFbp@^&#Q!cRka2p|Bh;sZ^8@NeW zAm25e)MT(rx zfG)v!@rX{*J&WI9U;D4!RSMtN{!0{az}LPK9Sj?ty9Cx)(BWY%<9duCW(@r-ZHhuB zG;h#yL_S53X5j*(+t9GJ8vui%Yh{MrvFQMPh99$H+`1o`KJOofR=HC$k4JNmG=)*o>^#niq#5rV4H*e+ z?%`7yVe(*44E6Sif!1Z_ZMcq8i2 zMM|EXSjYf}Oi|~y_E*EUcJMB`lR!HtvuL5zAy;QZyQjMr!#A{}QNRI18?#Q$Dag&K z$PQBK32KQ2;0Wm4L?CvR;UWV$tIdz+1{7Zg(x%4F=9VZe1W&$M(%_Mo;W zdvktTh1E6X5UeCxQUy2a*_<~`YHoT`xGeY;p8AiSkcSIkeP5W#VaKN`tDTie?!TA{02;7xITQc!T^{;h3VPofQxaXxj+waG7C2r+}&>MRJ- z{PYg1UrL*OUbLi2WQ@(8qX-_Xn$vE;NMrwgZMTrZy?ce}-M253X;EblMicn=1i!m4 z_-?S^MS+5SqJVAsi&b%X0r3cO*OkflvFId`zJ=N13-Rm<3j?-%2JKroy%8==ozEas z)wva3+K<6?FsX!0M!CwD9*oN)6=*U6p=(u>J5hr)xA=Xw%pdQrDex`xvr)hS%lu?3 z%PdZDz=jp99mhGnv?G){p?gO~@Q|I3iGXp|^LgwqLPYJIv74E!mP*wbddr>d_bjsr z71{pxq7{X}pQhe3f&afK9Xv~)MB1gTjmv}l7txYR@fgdqEQdAzL8+k!L9|_6{338( z%(3sAT67@nyMK)j?a0-0nq90mO4uU_8Nh{dSd$^=(EU`GSdr!)Fme_=8!SQ@9)s;+d!2)m7Ti z&7(yjU-DFGg5U|E-1gMRJyD47$Y+8Uf7eEAV(z`Dhl1~=@r?ae8>lIS(ZBbC&?SkZ z!Pp1>9dakA1^+HP@bsIp_lf?^FFs)xmonaYYYU|f&xl-=tJ6H8e!;(B3Yipfzm#f@ z+SUwm$hA`&u3ua`^>m9ahwYTjTbt(F zA-7Rwaxh%DzA}ewzFDrD=U{@wRg{`OL1!6B2k2g+uG?V)b8x{ZsK%)a@C5O$1J7E` z3q%atfJ+BeP*w`+C>XjjadR8^3o>zpxNG8eCg4j@aGfMC&QGr{Y4ST-h;>+#how+H zUcbQQL9iQ_DgGT;|v zjFF)|_ho21CF(_6bd&dnGD_por}swckuipf5foSZaefq= zP+^;fd1hLjqYjKwu@O26MICV@s`n6My~>mo7m&Ud`xSsSRt+Q^@q z_;WLVUdEr7^XC=(xdoqs%vbX7tLXRD^udP>SzGZHUA+c>Vh$CuuBDn9eT2>qvbNES zbZC%u9TgAL$4`UafkT3<>+w*Y1Z3Sn^_M0({>Qoz?~GeF;S=J&1Anl(=VtL|MEuz! z{@lWUwp*_yyYd6{@eg=n{T+Q=bsavgppQfJaVLGu(Z@OZ_$T`K27TO2!?o@7(V&kS zeSCyIeuF;F6VMs5F4nDq#>Tm!ac*Rs8yIKc;|zG5fsQl4aRxTdfC7i@FtR*nz{v78 zUq<$uggYb4ds`S;+87{@*m;JE8E;-X$awSG491)1vKVj9kP_Y&Wh@%j?Tox7PQS7C z;}=N#GV$l2_;X17IV}E&!)vU2@eAxbN`IDEFUKG2I6lA-K8R*1A4Fr_k4J!aQv7)g zf5xqv_)+H{p8mr~ckko|CI+9O;V-N_fEGdlh4mibpyXuQpO_JhmBhR3J${a;>2+km z-H1yvy-auy>Q~etTW<#fo>%xW)Mr88pvqi7fTJuh(P|Y{$hEXuS?21Hw&opOv@RxjYgB3W2`icifvXacIz>;a>Av`N@KQB zEmT`Rosd%28%0ZBX*uTwiiyV7^d)M|q{ztD8-;A6Xq1hX;S87b%2E^gEoZ=}w47bV zM!A%&8TGPWGApO-tO=}J&X#Y#=?yJss8+99MjpHvx?|aY`?c&FzQC(P7`>8;t#Z( zt+REz(VDlNOj)-ZMm-CLqe3ABz|mOAmzo8Gsza_M{x%^TXz78dY*_Ra^h z4>qcGBIS5(b%{kRYd2O)2FW86Q;@oNfiuZJ?S|ek^Ilt~D6wdiYS{&}yP|_D&V`bC zzzC>U@&<&nsh1edaU#V^7G&bONMI&J60(Jeldu#IIv2%5nZ@fZXSd6sJLOwI3Op!Y z?rbY_WvvECJA&`Pl%z+%JTEW!UUxB*g^Ra8hIjSjo9V47)L>Q?t3+1?qx0f1Y87uU zUS2%mX!lkO4N_-l(1d*5tPx6Dby1UIHw#s|$F%cC2|{aBn>OQ^F>1|)Y{P7T4)8V&Kc)-^R}J!-WzA0DM@3TWCaS1 zRhngJdUml2wP~#Z&ZUx_AY@QM|Hvm3Va!gwR)8GTj;BpV`GSltq-huy~OuxgEIaB_j*t zNTT5kiQjfh7x@>6c4l4c!UPqlGV9&KiBz8IonV-3N*X#hb$fmQ`7%6!(GMOp*y{A)rdt0!RtPZ8jEX zZkVynB~fqjQ1P%RJLw8VK>MA6ef!*&jTVeWy;*8x>s8Wm@zMo)p#WSfY;>S7P+Dlc z4L&_5p;Cczwa^63hzwrFrH#5-hTv2im1@JtdU}<$YkJ;jofWT-+C>mU7*Sg$7GE*X zd~|jcVSP(vfjx4AArehV)+xVCmDP$Qh+!A6F76R_hMJWEtW>^QE>~ee&@5PH7@Gsr>4D6AJ-w`{Xsa#0zsn2nm5KegIA%Z0|}@2t60Aw&O|cz2hY49+dVuFA}9 z!XUWp+bQh>Yy!Sz3q}q7*zwJR{*M$N6{t^851vJV1$0RefA{SvPB)$a5nT%-#csR% z2DHtkO{P(@v*=RI#Z@>+`EGL(&(~raz9D%P>|dd~2c6)wf%@o-N!wdSQ^31aNM{yZ zeo?ng8=Y_oh!?9RbmE@ujj^5f`pe?WidQf@IoWk5UU}OvJCmE7t&~p2!jXLi`##05 z7r#zvqQl@$Ivdap$}8Rn&|GLcgO*+lEG;JrG~9N!U>iAE^dhLTWZFfej(#zi9cO0nPh93*(p!g3WahTs~ngvQ>UWmr!$(L;H4JIw2 zl;I{x?COTs$BCi>i&~X*O?H}`QGBTQDz343fAIlPRJ6NM%}YVvB9aA-C>h?X)Kssi zjdlb19}QLpn~;SblXoHQ+%9fZS(oYAWwStfwsX%Ll ztA?$uLiZW=D5osyr`g>XiN#kJALiWRYl^QGUv4bkB+5^4d1!83cRg8=v0H$KU!85% z3UF1?FS7r@)d<(ghBz+hP-k>OoGe~K7YTY-D>}v>EEI0`PKGILJ@MAevw`AQMIQC8 z{+I=$7&!!T?Tv8zoSpE@$;pDTuGO>E1s==rC@k2j0HEhMy?Al)5>Y^SgFz8vBqV2Q zC9@%A@2n^9PB+|p(L^w2z`OuM9;=L0mZY!Cy)%ueA&Zr#qSC**1bB1dLIK*Hi`=Z4kEZ)Ww%3f0gc<0=2P)`ZfFR=sUbH=&?5z5T577WC=u$8+mYh za2A;>sDXh(Jh+7!L0rnLgMQoZ=8OipI$efKm?$XEgCvI#W1T}WGYw$ zE)6H+WDlJS7w;+_6>p7E(8-sOvm*5(N-gWB(4z@~qu2w!RnZN} zB0FseVaX7^mFr_zH@Y^q_(R3x0@e;_4hN_dy%2emZeAe5CUVYmbHb7>vc0I6kGeDL z4(uh1cDo=d2#y&I-7F!9*L3l}z|GCqs~A^%u>ggEq(eMVA6Zx!J z$RbM0{xhm`t>X@gZ=xTI%bUz+h2MC}ScS+H#9(j;;pU}^P7UI3)kWaGP_34bKz6=F zLCX;uEtnPZJe*+~j5nHf3?av4NENDzAufjXjba_Tk>!{aIv+-VJTF5^XhQb%VbGkD zFUWKJB8w=6tCX^U>OctO!ZBzr0n_R!44Payrq@IU z%MwjSxOo@aAa*T_z*R*@>kUMW^QRCSvx{zvE~~8~)?Uey-ELN%K-`!{m4$3$wdTg2 zWZQQ`{Gl!!du~<=GBia&)DbU-hs`^^pXeyLAo|gH>%hRKO=Q@1`Pl{IG(|!vlb)!t7H#Pr!|6LKva!ue_55$Fjk+NAqCtfdSOGaf0R@ zn$3n;@?QxM%Y!T4neyIoGyJzSzan^zJT8M_z=R71fDLFq zdVh}+lMpO*k_1wU7$+xk9QX%{Hw!z=&Oeup8UOg1)HS(72iFmO0hI5Q$@{SJ!T9X)ysvut;*z);#^b`tY?ur7BRaF@{0bC}-A+>QWVp3*5&^8nAV zqON;52#%!fod4h|0xB@=yY7WCC{^Ln6z;_UTmpF~8tcsuV#>pv!kiUdusxe^9UpKm zkPY$@i+ zluN@VO5Yty7xuYzd`qN$nwG>1VYKW<0m;SP$l4}gwT|D=baqMeNg*n*Uj$EDXPq5N zItI`PT4T~gwg%3uGYr~LWJ^S9$9V*VjvV~t3Df~tcV~; z*%g|zBchR4X*Ujv$c&M>?fngkQ9Rdno? zNB;CzAG-b*?mMigrbzw8U%o`uXp#KUFI?znhM$oV72Y>!QU)OXn!A65s#D!=CQ@qC6E~m0Eex(_FF^d54g$>z4O8$K7 zEv*M&8sQeZ>x+00I?fm( zIOK%trDc89ZsE1zGCY0~Us?3?DC%sLt>SmKvGg(PtdCPJ$tiWU_H2c^b@VV?g4QvJ zg)bv@eOX2pVeN8@$D2pB;WV4UT~oM0!wk5BN5W=)eDiyi+J6m1#Od4IN%9EpU*{Xf9Zv zKqb~!@emDSjEYxSUqcGo@C|%OzG|W;Q7{)AmpRtA2-N?=14vtci%%eHeH)(u^j-1s zJ@N4m;^UwAqiOv!KCOSj1NeNBzOR8#u;)|p3FZiVMz*XEpHHogkJqItxOk}okMq}w z$EVlEW4GUhYk@vo!KzIef#a3y#PKt0<9LDVKR@6uVA1Xo%Uu*S+ZPj<9$qJ=pIsZ% zDUx?haj6s(WAX)VN7jiOnd3Dy;G&}#dt;2D9hFNSv}1_y*B5EUf`VkHf&$xnRcuom z7oo&|4&0jyO(#>TVjM|)tY3tPK=p^0^8VzR=s&>@4yMtOv$GqQ;0m)jKcm-@k*l9qqUoeP0^)|cvf zt=Q&efy{{K0<|l~wpF$LLEc$^LquYmx`M_hv#HcAijf@Lplv{j^ieZ znqN$ee7D3On#Ker)gGbwR}qiEE8eep6ZyeW(2PW8T`Xkl|5s1pW6VZbr9qKRPW!!nDRL#^79?xZ(&4u1E`_ z?<{!vaXHzf>6L;;8%Y{7W(V*jrk%_SH?zABK&b~`Mj!{28!?Cw^%v+quR=Cu>FcuB{cj-qJMY{8y)CvH%;?3tRz1UF$cgT;CRqlhX! zpSbo2N8XthM3^H+;z*XGj6(%I#o#A7EXzlynAWlRER#YEyxWbw+WPx@(vH5A&|pyJ ztN}DcP~{I3GbvumD29nBDX)=H#+#(upe|X#4HN?d_7b&dzD$TlO9udVEqaAmvUw>q^2?X zLS0`-+}JJ&>+G1umL0-rri0pkC2{o;TK`#E5Wd3viC|Z+JFLn3Fau|g7k z(n&$COk8<{9havC(SHTu*})?f9Kj$Lo(9doSQMrOvjsy=ByLc*44D%1gL(iXNlrha za4d1{5sn;93!?8Fxfm;{N@m_{@Zv5kFTql0tY#N0cNOMzEGhU@OWe$E`E<#&A@Q8y zU@sOW2JnoqtehB;2+ORrAo|X-9Vh5Wm<}tJ;tB``wGua~TL$f%=5@C-omW8oNaFe< ze0h6X5Pj#%#O)x#DeXvoNuI@|s81wUaOBg8o6{{vCZ~BP^bGdXN_-+}@`=QiN7(U8 zX+iXz9iw-+OZ6kOA!?Rj#D7oRkZu_T&FuMs-FW2^QhtzosR> zzp(3H(t-$cFhwB2k41=KYzh!Q7N1T#7Lc(BUL(43u?TPVc2Eqhmw9oB8+#;Z)U37Q z5Z5QJD`E%^Gl&h0LtJ<_7P-)Yen{kC2yx$=xaJ6Pe>5!!U(#EGKkXzvEf>b`HfcAd7BA?bOu>m?OWc@lIWYkP zMA*!<74*+1t~m5#YW@tbjXH|hcbn1?8XU{z1Y(c zbsi=VL1%2lDZw#zbVuU4BN8!@7DU&)NbfPs;{+t5AT>A4j8LXv#*K+v)2*UTOyj5> zU?a6Oh8fo2pqy*hF25kj9# z3&NNB`vtFh?LF+qR#iIxXvyucVg@vA$_U;(lelT!^5(qhvc%2ps@e=>o=S{Dgh4B5 zL4+BUqL=YIDxr@lK=@d!(NU!~j=S%}7Ev5FfMw24wzH9K$_P36NMZ_iFDJBp)x)j5 z#r%cDC`9Ds=NQBWTFfbL7j%5T6q7IL{RfE~+bz9!U}hI`Ks&SB)B1N4S0ADEm(zmq zwc$4eyLxRjFBQEPSxvp-?^Bl?Qb)pTloibSUgD;9%dD5lp)rlg^a}R-sGN(AmA{i1 zl?dbhHZ6$0Gj6x9O_(ylv3EG>KODMfQ${fA{E>cn-{%Fi3X>=vZj!qG9R04uC`1@E zl@>(b8FWQpR-Uv=i|ck&1?%n=!M-0z-0*Jo>`JiDo2MsTn~Cd`qUv@-VvHi(ye=(> zzH{^9BRITnwTxSJB1SSayy{p|@GhIUnced4l4;$=Gh!fP240UQMkKxH75DTz?nk1^eEVxXInJ?{bBG0h~Ln2Y7vAbRtYVlNLnZnfUSm6M4cxUF;On zy){b<2L5c~=61_KEyzH|7it*bV~h^|bYf&8?EA^IAo|X}%kIM&Xyja;EY_>drJ_4D z_xi#R1G^|MSok}Mo7^o6FQ2XnoM&)OGU4nF*}YychKawG7@Y_ce?2XTFcVV@y8Usx z7!{@f;bS4j?I}R`ScnPn6d-&o4y29O6Ban>j?cPkHv!rE-4$(4ehbb-TKm2A4U?JP z`0mumwbnO`C9W$X+8GA1fuV-syLfI0r#lA;==jOPh|DE!TD%d7kkJ{L#s)MTEe;GM zHT+S}{=~IL2)Z{d2wy+05K5iW^_ycQ94Y=!z03i z`w~|iVZl9VLG+ykJLnuQ1UB1pBCdd7$a3OFb<2>Q({!2_CV@KgrIEP)2w$E^3!?9Q z+4@?eUR8BMBnjHTFEQfX(tdFINvb)b1wWR!#t60Fl@>(bsg33IOT4|GgfkI7as*5;mfZiu0O(;&!h#>cfL%Dla`O*x~?K7I?TMP5z%bHldmOi zP`5mpn#K|AIPeCYmWxq@BQGSbJ;IT%qy^D;j_jmJGLB3wwLO+NwuIoz(DpugqRuXk zA`@O6m1S#U1R|{2oEAjiSu=d6dD`UL-xXKNPZmtLCUFD0RgRJAf{Q^!DfT3;HA49- z(}L(fmo45hpQy#$wfkA}wClc2hq5QG5Ai|VSF-Z5v`C?$0 z0)&snP+Gex$N7Ac^~R0!+aH}C)Nt!2Z>axVVn)SF7`1b)q5fME*A)cR5`y<$(C_$* zFDNH^^97}P`%vfyU;OiI%Wy{Jr5En)i+ik(f-2U>=<&<+_yj#ZMUT(W<8yczxc@?5 zkvB#U;_?Wc@1buw?FGi!x>Twz;BuC2Sg4F6RPk+0*6bw=V>c8ofyI3*$H9GZt+;7Z5J+?}|CgO9D9TY>}C zT$sz(S8I)GX^yU0nZrc_Se7L}X6XhWhpx&oa5apup#PDoN^>KHZ$*U6t;>qMZar8a zTF9s1Z=4m0x!pi9A9s7^a7H>YNfoqwMZzQfOVm`jcAljOb-f#REJRz^cqeIi)Y(t_|i-2YFosMmqR;dx`3w`_(S zE-zV-e}CczbW8pbEK`;kL@2*Eajg-`UzHX_nDQy?oNp?Hex(56WAQ>-Etd`#U!bya zrn1u=D~ip0m1i@J5UU!OtYFIKqOTN(-XzESRL} z7LyNmyF=sq2ZPqdiDnCC{BGg~b<2z?o&sZxX7ZSJ!HtL!j(jW7#k&ntQ<+-E(k<7UOVq`;uVacM`Y0TlQT|=Z{G2XC(GBa%hF+ z&zMN#GnKrxD88lp+r&6UnEKZYVgtLBDY_gF=MZXGER0*LadWq7#$xgX1E$7Qcf4nP zH4a9s3Y=zqoFWP|p1Ar5t+%HI;VaNEgJ`=bCGD0@aqm-L*^^??BDsPg*ClRFw;CaD zg$m#kVaK7wl}Feymlj0d*|FtzGvsM;iXi)I5~JNM*|$zFpxy|nUzNDR2&o@T3!?9& z9`~liVtR;hreMIC#Et2e0Tcd2n7}5&izgG;9pS}tS`dBb#jc~cKAZdSS`}Md;`;3P zB7!eJnYdxy@@4n*qQq>5F>BW!|Hs4_M7Z<5v>^J6~` z`_9mp5?31`{uk1M=sWR)_lvk!eJEUrDxlomw)8S#LDu|!3aM*ymfQ1b*M4km6& zw`wsyU1wZE#}WFBm`z-Dgb~-I1<`j#Ox)izamuQH>$1X%NUmVULy4QyEi)!@b`bEH z@$r$g^x5%1;>siJxHm0`FgyHs{o2D@iN&H9auj3v6d-&o`V_U?b`Q?%tcTX(YYgJIyn9ku8ilC_I=UX#b(ajp&y4+oug5iwOPy zQ{s9f^#5R55Phfr&|ND!j_C=7x4cwA`QJ;7ez%k##)<5r{s`HBJ8`8Evj1jU5Mi>X zuvWgo6Z2syK=@cZnl^+=STq-!&IDFCWwG`q>#ndl)7oQw9P@$4NBFA8eok?D?lxze#uw7|*# zMJt{BU$o@O`_**DXeATsm4m;%3Zjmq-F}$GS0ccrE@x==4{UM$M$-)+Q{0g z<%MdgWjzNxoox?_U)~C{Zy|Nw8MVy?nxi?gfZ#6HY`MR0H%irI{2t^xpz&pU;7EM@ z9KvEIIvt0FAuK8@!0#pW*4DGFg}1h_T(OGf(Zoq$zDj$f#joNORsqHKgx+;V@8J`iv3;N3iG%(` z0QxrDpyR1q)-n>?f!zKe7sA0RnDvf>xDtSuT_39Da&!CkY5V4Kxt8@cR@yz*SMj;`4Gf%1 zZ#_wM$!zNz1VAJO$BU2$vgX!L0A*NRm}Xvp+7gS4hrQnlB6vwuYJCOo79Wexj9_H_ z4b>#yWPC=&1|}>SZ0IY>ETt&RsC|s+`m^--d3yW~^%6hbTBx$`VEV#;hZ>wSYm~wv(9h{9zv6h9M*-4#no^Ci{?_Xg#V2!?uube zwf;G#fh>CgLW~GGQmNHk@ZIHa0|@+=(SUPfw{+{foXnkhOzuC3+<)Q^F)nb1;IWb@ zwAxB;04?HA_oDafVbK$l(X{bdr^N&6LSBoDv-Ev0DkQy;zVAc<2U<6Q*8L$$1Qg4; zWO4tJc9Zs$zJKA2wrA0-X!>65mRq$)^vARXRq#3&jg!JnlS!q}`YN^H1$z7i9%ro= z@$}`*`Z|81H((jFzCp#vs0G?MCD^PIB1W(#XcBXVc7sb+g=LEiXi9+?@v^>6IJC2g z0lbLz-AmRt!;-b_guYsBsuS-Pm*ToF2BG_6=r4!@4m9cl*PM;eatLgatQA#L_OP{i z)23Hq3t7$9s*74snKiv`Xw~|XUg7gkvHKN=1;FlKxtLPY)yO0Mvm3kDAEg>Sn= z$m*E@x=IxQ63E)GEn|3PXtbXsT2;oY3Z59QE`mQ}LgWlh*BHexS!Okym{74X2CDDZ zV0twfDcPT)rY%-W7$FjZ?h3L1BKA#+zJ8zf8%z730krm$-mq%!i)zq1Y`qiEw6N*B zNK~k*Y>dgjA>>|UG)ORZXW?^|-Hv_Q3cf$-x*(a%5@)O`;^m|V6Qq>uu-phTC39HT z-Bn!HhF*JtN}!8;cmg);WYM&x!eXqhHI}PE6JYO$>CXMayze=4M?<*dqo}-k7>qQmL{II9u?{N?FH4 z%x{TnGBbXctzhB=GyKgB@(N=YKNXgeMjHxlI_D>S+)mzUSXOtJLk_w~u{0p$&%x)i9tH7niw#$P$VT z?GrVH2S{P)4ko)e*b)v2`RQ>rb{h$zph@?UpfQ{StAw|QvBQrKx=`q7aXA))t9r{u zKj=Rl1ssS49YV80BPZv}Zj?gqhqZ+b!^T9>1XtN{GTDC_RJ*f*xqS*UuKwTL0dn#okM$>> zVIq{>Zfsm-t%8UX&P>eD6lI7`+oo^IC$dAn0`aQaTFF1!g}b zh34WZw6GBry1)188VoTxeSp6<-NU^~%0BB_QIl$Wp-kaa}gk_71@XigIsiV_9-?dN$k%&UzdO>S?=oAP$Bdi0#K{g2i0Kz2>0_N-oMi#JhW|_P!7Cd=zlNhqxo^Lp=N} zqOWdm%PYeK=IFFBOJX;uL#J3PLa!XM#KN_@o=4Yj%i-vvi6u`NFIg)$@e(?D1D=IZ zhvm`ksx0A}>!MaN8hDQ&;lx7#$kW`=o?I@Q%k34wGXDIF2heuCh6p6seG0;wWt?eR zFmWu|{!A1wBF8{NLlhTtTBz)5QQ3o4n&R>qr4{wlnE0vzoLuWgxC#=d+FORmyk&C&wpzwD7%I9qx7y0d1r&LC#+%tFg~xx4h0 zPn)6b0Ms$bv$)YQxod&^^9jkWIm1|eRV|&S6Gu0@Ms5IISkR+%C}C}uggv~Jj{IGs zCe;A~Y8;Rrfj85@mI9-$hNPjE?iy7QxOUG*RcAHNm)m)G`ANWQP$i>nsUT6Tu^nza zaXWqM+3HdMFxhZe?u4MsHdF_CgaxKT3SzB@x(?0R;JOuN%oC-U87HDN^ZfH9N-F*6xcP-wi<(sKxF&u`#syRZ z@B9NXrlBuj{SGbhS=RCxM`Cy?Ho`P8c3W80>P@jKF_$k^YqLc=M++qz6z##lwQ*Ah zJ97}-Ucux>UJ8BLQ2yvgOfJd6SO#K4EMbaS3I|23T6qr|5V3fY<5=5 zx(=nU*4;0Evi^}gN808iv2*JY`yra0aRhRMAV^?FBj6Ba)SSRhD0RNfMPKp#tTSW| z*f2ar-+JceSQiqw(8S}isA&aRXi~_-dH4h(Tv$`6{0U_iNm7m7A5wM2Pfy9@PpQA+ zmrz~U59LoNuSjAIc5|WQ?pOL0Cc#VbtOuvC#qsr8lrk5+(&#_PHpt(??0A`;jSwkp zYsfHo1@J`}8M~baEVrz*b?#3xS&EzYed>}W??GZ2ysx_z8w|m} zHFtR^3Ke#A_mHQ1xW!h-a7Syiz|iw;-w1o8cje()he@5;PN?0w;@UbF8Y>9RHvDC$ zh3vvA4@|JB(4y+BG631m`LP8t&_yw_lA;)lMA(6Qo9e&`k3o(aZFe`o)ffPx|JEBA z7>hZzqG8t2W7}24jnOOPCQvcW4o?H~JkW6?kNx9VCmVQ?Bj&>EqupI7hhE()SJLf< z7YY`WhwtbHw-;ako(;n;D5BQSdK~;2`qn#3ALjzTE>2ctA6wLw&Na}Lh4-KC61N4i zi|rB~+jxV!9OH{94gZYS@K5!&;XDutb#ZSJ4gWZ5lFfCtHF$@M>QV$+Eh8G$5>0Eg zDV1QQHO;)0mdygT)*s*N`$7V`!0tB%cE5vCI!=9PCmR9?9pFKm=ws0i+lpaVd{mL~lNB-fpB~!Zp>O@wk7ose{uVVQb8{s_ z2L&Mnl>fm{tZ(6?E4qvw2^vC`IH5d+LYbW|V~6S6hEQk_HKn1DwbesbkSE+bx*Z~& zhkRO zX?%#j^;d%=IUeX0Ig)FTb-CBx{ftE~#2Rb)9u2PB3Q0As^;7bBQ_;Yq@$0%)d&>r2 zu$yVA9w*p8EM%sh7N#%QRl$a?yNYfF`^SimEZFa+Z~YZ)Nsi}xMUHbvu;(6aZ?1U} zYcO93_S~bf7W=ckWrHu+pG-^jIKg&=%=~g%n7&~DX9m%Gi~V1Tjx5-JLf`r;*peK7 z+$(aNBZ7S?IU-n$p37Y(K5p@T;MT;I|MCD%4Im;@U-o2(|07_;!u&Y7aR{ph*tSx@wm-MwPPE%hrcGS@ta>ZGit6 z-w5qoZNz0!0o#H!h0CrJe5k*TNTIB8CiU%tZ-2jj8}eNt_+9%76ErXC$Jo^PvlGcx z9OL^vfxEZ2RPI2c6R2sOLrX!T6rAgaWBiI-4x>F-*_*`^>WLq>;sZN}ZoWeN5+66; zB7f4SYlor+7|Sz*<41NlHph<;?cTD@H&a#SQmpw6m?oxg`ZLavg_=GO$O2Z z&@bYNC^67TuHvUm?RFjG3HsLG;h-eZC~E2niBfQ`AASlf8&MWF*MI2 zk`ycbBSb|O=y%Y!{tC1thSMuzoFf7aD}B{f9VGf=MA@K34_tLstVsWIZ&~1r^heWD zJWiy4RLIMR)57#c`a=w&dy($eO8*hjk%jsX=v#kcZsk; znch4dE7ITVEdzX!{&re=$BFcNgtUAsElgjezsVqaFVa)zxgtG5-})=kk{qL`X`SA* zAjdf((pMrzC&PXs?su#A)BPP7!$)I$u=DhSIzS${H9pFBxVLQb1%HmYvR0IjO0|=c z*w|Pk%r|gze4OvD4v@V#Uz*rh_YI2)z#w|T+*Fyf1!=Kn>DA|IBW}Jq!iX(Mi*1B? zt~TPFg4g=YBx^IIFqSx-*X`&)`294g* zvjZ`n=oK+i@Tec10W|ONPV)-yCdvjQRs)a6Pb~acZ&~0Q{8n0u$8qr|g}nSoTA03n z^L7T&y-0T(h5aPak%ju>^sT=kD@l%z^@<$lh)`dg%iRWd2L8-#^7AtGZZ5-z+sDL? zQBc~=mmbD#vAyV@_Leoiu>Uc0LUtaS>fSg5ND!hy#oCERT%3x?pf+saw)mF)O$W&9 za&S7e%=&Apm4#jw3r*QO@NfdWlf1bsmN);p5iJO<(+(_kO3Ip`OiI3A7T>Um3)(Zi z2dqha>ZB`2Lij(@E5xhOdq)I_;-^n^EsNHoCsaq%OS)wBwfj9S-q8-Tb zhF*~)1((7`AUO!!5YOAm1=Ym43rV0jTXATF-8w!X&lhmdtPt?TX%=C4biB;9-a(47 z=OwzQ74R`F(m9GbKgK__Z$5fDqV-QWIxBoAqIVoBAMfHGhw2~R0<>aw^mlzr@k36= zyE#!Fo!b4miL2pr6EF475kE<@^J%&OmuQnc4+ zDt=hhr1B1|`sKFgL_`kL2?(FZF?H0jE4GNz=oh?3|9Nj49e0?{M@6Im8)`yRf1_H8 zU4w+Uql$WR?hVEv!O84UtiqZnt_4G;Z6>n(TvAkvAnWQ_A(KQ8EcEG^7{GtVHp z*O}oXg#u2vtyWZ}@sky;sSq_;1WNR+zlKB-#q1SP)}=Lf2)g#*K&Q|EJ1p35C&DU% z9lzA!oxNp%FW636ddCU&Cxx_}O$*Z(>}MH7_kz9s!R7*vY0gJwTgg$x`y)hC7Vi(! zxBiN^B+Z9IU;Wkokm-})=$l0e_=6@ktjArCHQ2@Co7MPVV2 zU+6MP<$A{eU&u!RIF<7qC*+?M(lU}3rZ42%7)19%K71z*`L!eB?I$aOJxkPN!QM~b zdPmm|MA_RbqMRdwO>2ZYtyGvN$_CB%z+C)Fh5LHT0$;RGq@{Qq7k@>_%dxaDebGM3 zAi5Xr={pP)H}2o<9PUaAuaDu3)AP}dl^Lcsy}p3wa_dzLr0){ zsX+m^zC^U-KJAP2t-pPmB+0M#iX`WVSffw7vQwY-B2hLd*8^9^_i116Eem{W_d;5V z#|icqg}i(vElgjq|BOL&FW8s49TeY?(zLZbV*1F?YC57!l_jr76Z7v~lvk8t;9^%9 zHqp2KDuX2BzxIlZ=Z-RTT#9-*QC3lgHcL^j=q(F;WzYb)XJeNy31zr6Elgh-E@BYf zE5rC*D>YpIg1gD%2I!$oMa*v}%CgPBjlT6)%q4+t=@o&_5i!S}+tSjZ4$jO1kv1sj zTTotcr`_d1h2Ap37xY|On#WoF|4T^BV`*Xfg8o_t(Y>Hw~^z(yQpwokG2PEUi6ZNB{6J+_EfGp zxHp&cbU_a0cg4M+*dHgph-l&$JMbesaC1h3h`2!o;erjr>M@2&)h^e++@Y2f!(N~3 zguXkx-@I3;+rjU(+n7SjIta|KGCC<*6c(5iX!Tg9on#b|+w}ixeH!Vz`kAKG?x>x+6d-N5v+$^hV<)sE~sde5ZZojsRzV)|X zlO&l!O{u);FiFlK(Kag`MEiOott#4PC04X==q(d`>vnBgn#YOuZwt{rm=>nb$5{rE zM6}IHoM_8bMYLZzK(teU_-StqrdUpu1Vm_|xAkEUmRMyO zhDD3Kuj^)!xAk!klDbGWbO~_G3UB99cLDbdtqc|mq-Xp!s^P`oUU6PXEZ0*9i?3(t zH?4o}ey#WW!)v`K=j9sb6DBSw*0H8uk#;W6(*CyIO1rGoAzl6(_xDLAlzd8|d;_vu!Lq^eAk zHCN<uvOO|d zK)9S3s5&$Q2NskTy6)izJ3vn1Py2l+q3n(j#uQ;v@NhzTDccL_47azc)Z@1IlN-_A zIc{(FnxbIpBz`+3&4S|#o+BPO5I=+;DM#$&fgun?ppVjd+&2@PPFu|p4Sl)>e+>Rv$*3$*T+*C1X7|(nyj88JpElU-hL`n7 zjE$r?y-)^Ti;1Dowi( zXEoPK-sI|=bP}I>2??xr&Mzq@LOi!$3PEi%K#w?sh$OOnxC9kZ<1I*2+U08Xt`4x1 z=(^M?-yI~RU3V};UA+)i1qmmZ(M4MyoK*XyEf9URotxtWM_2c@l?%YbN7rrTm;MjX z!l2=I{!eI-&!%=76z*42x{O~HHK|<*M5B9`@q!a>7(kk7vo3aQt0LaMSde+vT_p0{ zyWP=S;g542|5DU+o6z}?>-g{lI?MwL2M-(!_3VwU+PIf8Vcb0Yp3=|EYI`JWG!)bKYPZ~~ z=@}{!{sVHlc8hilUEdP5q^`m4qW?3{dsehtZ;=y@2M;JL{XT(W2ow}%x3jvR4fX^PC*;E*aw|CiYb+axMd}qgZ=yo4;%>jE;ee8r(zSf4YKz3DZ_VXqGjWca zk3x(ajF@A{4Hj-}25Ygjauu3`(=CL1S}>OC2K>-Pb|!tOvszn6G9SUG_heFinhmK@ z*juxMWw)Zv(n{D_ijV%(J3vjMd(tKJoh3rob(VI;36@I8_#$1jJhZvXL41@1RrICKYgoGlWSLhY$MwI#&f_n1UnVyTtH}T z&W8J(l49E)7r}8k6*7{Lm$_Qk3-_)AU+OiPv7dgsIP$E=&cbGo-Bfw8394QdYE42cT}fP z_^a22AdoYx>gG9sPmoovY4{RTFNxV-x67sQEiC@za^3J!xLluu%XNo{TnaDCZq{nm zI$~#w^2`E1Bu&vR@`=Q3s(s*u+SjFVUp$*E&E>qT7)uAEE5J zbW;(@R;d(|pR(OuPyYVnMzs4tQq@(-lKk~_R3metb~yvp_yNGk%i71AdnPS&2~C$u zw8U?xpc#(+fwfdgws}^;!|f$6*$9fgpAG4`YPc1;IOjO7>7)TYQ%D+WN~>LInA-?x zxT6Q1q=LQE6Nu?3i@rKUSwq3irR?n+LD}s=w;|{gJ4(*lEe-pwDTi+VB5GRC(Cui{ zMOEp&Gp>-5gXAc>NgQG2swI~q* z{(}b|KaABLhY!pi3>Ba`gX?L`c5v?C^|DAUFvkEGdz3PJ@xr0UuT|;wl3)igynmLf8s!Japttg5yRyBSJ*Torg*hgy;-Mr3e9=(~fPjL&EV2`8A5qSe^- zDaA%@@*t-wRk`i`z(%xpM~oB)?T-^zVD0vYtwp*n@t%zAA0mBXXo>y9I}x>ckQPa? zCJF`S$s>>KvYmUiyk5a7dMwYPsW6-ZfGAI_J;@+HZ`wv_6+w~*n^@W8MLTGbRNb(Q zd;_5kn^xrKDY`-vz!fDVv{@tu$glR_2`}>JC1Gx@w3bSqK$XD`Rtka8l$?RM zkJl7^p@fjhX&@miS=b=$jwO*Id`_D(g5{s-Ad(S9Pa*PO>HvRTDo%*ID*g}uK1D&% z>VKy+SX+vFWVpt;^1Th7f$`?9O>rRvT#+pKAYz4O5wraW9UF^_ut2!` zfs8>$zKeS!N=>W+Z8qFZM(#BbX1P|!%1&4dy`V4Ph`Rx4w}k6^*(kA|J+Igl8o^=|Gg@YT#$K&7aKM8{28n^l z#blYx?OglM)1C@dY6DwRwv^NaAjDwF87@@w=%gx*mNTAjV)cKek(I^f zol!Rh$EF&sd1u%*8V$^g+AU{_-fNg8dls7ouv)TGXgS+nMO~ELdcGz19sN0|KJSby z85Qj4ZB*+3F;dVQaBa~W;m3ASQx@P);U^ZD6Mordy@X$5jcPu-pyy9fE*2`#u6k$3 zVzt_Umv01ej&F9xY;>65es%@x)XOcTjN6U6Shs#hDvsY!lxvQ8TmHl~Ju{v52lv zGU}i+p_&KBCaTSb3T2R?w46&rIUx|%YhX2;aRJxI!F~G@H6!%0Gf8c*L8u}~R6?6t z*rB6WmYVvK0g4y!d%&o)oShhFRqKUp!N9u10;(~Y(%Z1JWD(5-Ma)80%#*i@S2*K( zvr*0ZN!EKIKF(O7S*~S0!2@AA!Gz4!G4)NXo8S~sw_+3f{iK?0Gz-=2N}1$ol4h@M zBO82^r6k|T(s{r_J}0sT)287T8X~bAautI0#u-I>Y-oWvV-A8NOJ)~M>=tan%A7~v zP>*fYX?`9|CV&NSeS2MB_I^T2r%16NJhWQ~T2M9{t$QY~cE)Q)E$iK*M(r7;6q+h$ z<*+_Ll-W&bTon{1+c4nZLAP4YFw$qPJa8>Ea=gBn4*{YSAJ7L0& zcr=|6s*$5Hz(&+L&-Kl7UGrSeJl8SL@aGx!Ji~pCVa_wW`KI;o7TQ3#N8tPs59cq? zH^%up^o?=8fSSNKPXkE`QXgzt@1tx+|9Qfk(dTOt8T}P%7o*PyYY_St2b}g(#x{Dq zj~-m^qtt%7uhBX~4W>gqtU+3RK-+1pJbk0x5!N5mgO;RO&(HvbCO9mOAhX-&jCmat zIL0g=%bVh82U0|lLWa&QCuAs?BFaIspoX-hCaV%@SafJ_t9Xqwbcg)@JV_wg<>MLqEv*M&VQP9ERte&5LnTFJo+S<@ zTVEk19k*9)SSmNecNJblE?io9iclyD=x6Y*_u0D*tr|p{y#}BrN zH#^jjf;#?UaY8*hI7k;QKmLP)97ORLm_LrH++l_@p%=>43STca)2J4z7=Vb8 zhdR!2hS1fLA#Yh9hvrF18=*I{74qQ1JGpNaD3I;-IYJ8b3A~Q(=#%2(y+AQ|=)fiS z={N|dUa_%pO3u>p1*qf@d5e$tSm7%-x1J=_U2DKfFOuR$z@wUr(}&dBeY4U1xkQub zk(7G3-{ozs2^~qqMcEQu@-zsWS*#Yu(FIRsx7?P{0J20~Z?^Qe6tgtH@k}iIM+jnDc+vi*G>!W}zzs*Bv zUpR*Ki;Gwd9Q?y#3z{L*a*H{k;cy4YJ;dJ0+@V}%2`lPX1LeKqOR{)l87rmTSL~ZK z+OS4zk#noL49-tj*}uBid)<4vC|{=iW!}r!7)n!TH65F7bNpf`jQnp5_n@%5vA&~V zSTd(2WvtJaf)OG4s;EReA!mxj0OCBe=!vu2C&>=TE20I9bdGro(4c6{KC*tbo1uF|_V-f~?gESIWgF_vorA#QV} zgQFx0^vq2n&F~aXrza{yLbkZ0a)UPB{u%()!q-+MMNujt!RdJTuSE#hwm=p5N-;n z*`eWWpX&+=xAjG$1QYx7QJSoW*l~m28Bvo;{g__jMf4IYI0%TY*Kq$}YV8_USuU<( zRHiq0Tt};$m>oHkBC1C`aP0}I0^~vqs{WX zRX&Uin&zs6+JAkY=l?Ev9yC5~5aM@Xc{Vr*aiEPQ8U`wn^*56w#4`btA6bLLC4!y8 znyY|14-BXW>b`?r4tKB@d!5xu>a31cFbn71VHf0p#jmpY|Eu1be?KJg^(f##Uwdav zU%T(vB37|3V%rRCp*WNZhd$MCWT;%S>P7y;i%+-UO=Z~WaEf5|-$xPgI=IN(50;Gr z0mVc)n->+>uK50I2e>Js#r}*BAq?{HWCc${u0e|+XPs_dSeq_kT}U+DbTtu%quobE zO{yqFJAMa!@lD!O=)vxz2(EU<{f7SK7VSx+9-6^fyLgZ!F2ByZY{SjX-EG<*_A;+s ztu|@b33g^+;TzW82t6P-5=XHiv=4_!7ahD8rVi`CR0M`1wN6aF!0sy0Ma;xS=bYA~ zA9Eexu1h}%VOKw1wg!!Yg5a!Gcx`(0NH6YbBNyRWlASP!zFOR(9XzaI)kN@uq}UR{ zM!V8~_r^>Az45IK)6lsXBPSkXiMwa8+%3>;g=7C-VWAG;!t0p@pgyVl-uHds-gn0d zTD3;!WtU*Zcz~y9pv7-+rAo5b44atARQ44+MoX}Z8*H#Cav1;C&HTXkv^ldTqQo!676uqbgu)z^rcR60g`tcM3T zi-0DNeoj7yF&Q82N`o|Vy-uRvx&c2{cx;IuftePJv~nk9aE~S_X?CNc*?B~liMlx& zK@!;9BPTK7%w?~}zNOHhPe8~hC9cY_B!kHpJ!#0Kx+CATv{GY}c=h%$8X zlxHf|Io=_I)V;<1LfGO?+zzZyX-8yeEfi1W;%qnG(_6dYo7;Cs0SC;j6=QA-ax*VN zh7^y2a$@y6oI5u7yv0IOv9ex z;S_Z$J(rUTf{?ub6eW>ovm@T+Hqlho#ThW;$6p`q069f(;E%ruWw4INU)S&?OqXO2 z>b#Ta&9!M2*4UIIvXZDt72Ih5=DclDb7PjG3q$XsuFnb1*rVg&UPZ)5Wwess^CFh? zLq;v}%>x#k`g3)F7Vo%|UjQ{bI~y90pJTWMx$au}-(nF;B8BT-UsH|eY*=ob3BLMf z#-nz`%!>k^Nm}n@H(9~%ZT#25Hh%PuDz-|H!x6d3k;}4y|5|TNfp6enhyo56_>~v~ z|LT*l>14)8aE1KS7m|J0aBKy_ma8WAWYcIrcHZPB(pm_$ku~kiO*bP$N;`iA;&w%*tLX0U4f^VPq zMF9uw^K=a|pMt<~k&z!3HK`Pju|ESjYzqiV4J8E8b~W;D z;Jm@3;kUJELpUh*Sw8b5*T`vhvDz#ZSPXC@AJ%Qid3HbkCDyLF=d+x`#!h)+He`#s z^vY83PL*X7!7~UI0zJO8(Joq!8@XqM(9VhG;v&|aV9Pm9jly_)3AgJ(Li4l_y-Hi( zdGIJiOdiWkLhH$)+#xl{Em7$2$TUHVhdW44%*7#%kT1SDp0|1js43*pzc_@@h0yWX z?3exxawn(=&cDS5tSvR+{w<}y^CN9^H9SXhajrp=hx!@+YA(c6#LZl)A?jE%$Qai` zJ-P7~>RoMG9kx(5Z-t`c6L7NJDX$x%=&#s11p~6A*ZG8gj5PEb&9LyK1eqQT%QHEc zEZnh{LvY_LH_X$_7=0-A+^#}Ip`E|!-<(QzyQ9qY(1NCzWB`}E6D zcnaFBYWX4#EWwR#i@53yD+*A0KTe@+a$Zi}QJC{4@}%!j-cU3YRdY7DZo!ye>7dvV z!!hE~O|=|DlAKC=T%r5*4mGUHbP(#U=?L9SVC|x<);vt;)W9BT`Um1=JPh5zG?Exg z&PdmpC;x41HJ@RpmcowT9pD||^1v(a4P}(ZqfhUR^$d-TXYp z&mY2*kH)f&_FCwdgSP#(_?`ic|7K=0zVBrp-GFB{$9w2wZzFqewzHW z_<4$-C4QFqS;14#yUM?7^!o{V)bV)EvhhTl8~DJvNmdh|^VVrR`Gh2EnZB*iW0iBB zq^}<&6rRF2KI_POn$phD;~6}jvtCDEKTKs_k8fwKH}La~c%q^=@sBs-$!88(Z{gq1 z;)#Q8`1^D8}Xj<=Q>?`1w%BQ57!8KPZqz+oypE=K=B%~?q2(sD zP$vF_5^F0pmyQ*YhH{X8hsh+mt?(8V-TD;X11mo*K0YHpJ}W++;g4ps>1>lnec>QN ztXHnA%+iU5ICtqN&Tpf`Q68$8Puxi-?eU3*?`SRH*p!ku=FQpm#4 x4?c8uRO{vv&W9^y#W7{gx=BZWjnD~gS;T;J`n4T<&*|W}hOyGX@8-hn{|^|Mot*#x diff --git a/docs/RefMan/_build/html/BasicSyntax.html b/docs/RefMan/_build/html/BasicSyntax.html index cd9d810c6..757732305 100644 --- a/docs/RefMan/_build/html/BasicSyntax.html +++ b/docs/RefMan/_build/html/BasicSyntax.html @@ -43,6 +43,7 @@
    • Basic Syntax
      • Declarations
      • Type Signatures
      • +
      • Numeric Constraint Guards
      • Layout
      • Comments
      • Identifiers
      • @@ -97,6 +98,44 @@

        Type Signatures +

        Numeric Constraint Guards

        +

        A declaration with a signature can use numeric constraint guards, which are like +normal guards (such as in a multi-branch if` expression) except that the +guarding conditions can be numeric constraints. For example:

        +
        len : {n} (fin n) => [n]a -> Integer
        +len xs | n == 0 => 0
        +       | n >  0 => 1 + len (drop `{1} xs)
        +
        +
        +

        Note that this is importantly different from

        +
        len' : {n} (fin n) => [n]a -> Integer
        +len' xs = if `n == 0 => 0
        +           | `n >  0 => 1 + len (drop `{1} xs)
        +
        +
        +

        In len’, the type-checker cannot determine that n >= 1 which is +required to use the

        +
        drop `{1} xs
        +
        +
        +

        since the if’s condition is only on values, not types.

        +

        However, in len, the type-checker locally-assumes the constraint n > 0 in +that constraint-guarded branch and so it can in fact determine that n >= 1.

        +
        +
        Requirements:
          +
        • Numeric constraint guards only support constraints over numeric literals, +such as fin, <=, ==, etc. Type constraint aliases can also be used as +long as they only constrain numeric literals.

        • +
        • The numeric constraint guards of a declaration should be exhaustive. The +type-checker will attempt to prove that the set of constraint guards is +exhaustive, but if it can’t then it will issue a non-exhaustive constraint +guards warning. This warning is controlled by the environmental option +warnNonExhaustiveConstraintGuards.

        • +
        +
        +
        +

    • Layout

      Groups of declarations are organized based on indentation. diff --git a/docs/RefMan/_build/html/_sources/BasicSyntax.rst.txt b/docs/RefMan/_build/html/_sources/BasicSyntax.rst.txt index 43acef714..992f9eb34 100644 --- a/docs/RefMan/_build/html/_sources/BasicSyntax.rst.txt +++ b/docs/RefMan/_build/html/_sources/BasicSyntax.rst.txt @@ -56,8 +56,12 @@ that constraint-guarded branch and so it can in fact determine that `n >= 1`. Requirements: - Numeric constraint guards only support constraints over numeric literals, such as `fin`, `<=`, `==`, etc. Type constraint aliases can also be used as - long as they only constraint numeric literals. - - The numeric constraint guards of a declaration must be exhaustive. + long as they only constrain numeric literals. + - The numeric constraint guards of a declaration should be exhaustive. The + type-checker will attempt to prove that the set of constraint guards is + exhaustive, but if it can't then it will issue a non-exhaustive constraint + guards warning. This warning is controlled by the environmental option + `warnNonExhaustiveConstraintGuards`. Layout diff --git a/docs/RefMan/_build/html/_static/basic.css b/docs/RefMan/_build/html/_static/basic.css index eeb0519a6..9039e027c 100644 --- a/docs/RefMan/_build/html/_static/basic.css +++ b/docs/RefMan/_build/html/_static/basic.css @@ -236,6 +236,7 @@ div.body p, div.body dd, div.body li, div.body blockquote { a.headerlink { visibility: hidden; } + a.brackets:before, span.brackets > a:before{ content: "["; @@ -246,7 +247,6 @@ span.brackets > a:after { content: "]"; } - h1:hover > a.headerlink, h2:hover > a.headerlink, h3:hover > a.headerlink, @@ -334,12 +334,14 @@ aside.sidebar { p.sidebar-title { font-weight: bold; } -div.admonition, div.topic, blockquote { + +div.admonition, div.topic, aside.topic, blockquote { clear: left; } /* -- topics ---------------------------------------------------------------- */ -div.topic { + +div.topic, aside.topic { border: 1px solid #ccc; padding: 7px; margin: 10px 0 10px 0; @@ -378,6 +380,7 @@ div.body p.centered { div.sidebar > :last-child, aside.sidebar > :last-child, div.topic > :last-child, +aside.topic > :last-child, div.admonition > :last-child { margin-bottom: 0; } @@ -385,6 +388,7 @@ div.admonition > :last-child { div.sidebar::after, aside.sidebar::after, div.topic::after, +aside.topic::after, div.admonition::after, blockquote::after { display: block; @@ -608,6 +612,8 @@ ol.simple p, ul.simple p { margin-bottom: 0; } + +/* Docutils 0.17 and older (footnotes & citations) */ dl.footnote > dt, dl.citation > dt { float: left; @@ -625,6 +631,33 @@ dl.citation > dd:after { clear: both; } +/* Docutils 0.18+ (footnotes & citations) */ +aside.footnote > span, +div.citation > span { + float: left; +} +aside.footnote > span:last-of-type, +div.citation > span:last-of-type { + padding-right: 0.5em; +} +aside.footnote > p { + margin-left: 2em; +} +div.citation > p { + margin-left: 4em; +} +aside.footnote > p:last-of-type, +div.citation > p:last-of-type { + margin-bottom: 0em; +} +aside.footnote > p:last-of-type:after, +div.citation > p:last-of-type:after { + content: ""; + clear: both; +} + +/* Footnotes & citations ends */ + dl.field-list { display: grid; grid-template-columns: fit-content(30%) auto; @@ -636,11 +669,11 @@ dl.field-list > dt { padding-left: 0.5em; padding-right: 5px; } + dl.field-list > dt:after { content: ":"; } - dl.field-list > dd { padding-left: 0.5em; margin-top: 0em; diff --git a/docs/RefMan/_build/html/_static/documentation_options.js b/docs/RefMan/_build/html/_static/documentation_options.js index b1c5979a4..1d9c2211c 100644 --- a/docs/RefMan/_build/html/_static/documentation_options.js +++ b/docs/RefMan/_build/html/_static/documentation_options.js @@ -10,5 +10,5 @@ var DOCUMENTATION_OPTIONS = { SOURCELINK_SUFFIX: '.txt', NAVIGATION_WITH_KEYS: false, SHOW_SEARCH_SUMMARY: true, - ENABLE_SEARCH_SHORTCUTS: true, + ENABLE_SEARCH_SHORTCUTS: false, }; \ No newline at end of file diff --git a/docs/RefMan/_build/html/_static/searchtools.js b/docs/RefMan/_build/html/_static/searchtools.js index f2fb7d5cf..ac4d5861f 100644 --- a/docs/RefMan/_build/html/_static/searchtools.js +++ b/docs/RefMan/_build/html/_static/searchtools.js @@ -88,7 +88,7 @@ const _displayItem = (item, highlightTerms, searchTerms) => { linkEl.href = linkUrl + "?" + params.toString() + anchor; linkEl.innerHTML = title; if (descr) - listItem.appendChild(document.createElement("span")).innerHTML = + listItem.appendChild(document.createElement("span")).innerText = " (" + descr + ")"; else if (showSearchSummary) fetch(requestUrl) @@ -155,8 +155,10 @@ const Search = { _pulse_status: -1, htmlToText: (htmlString) => { - const htmlElement = new DOMParser().parseFromString(htmlString, 'text/html'); - htmlElement.querySelectorAll(".headerlink").forEach((el) => { el.remove() }); + const htmlElement = document + .createRange() + .createContextualFragment(htmlString); + _removeChildren(htmlElement.querySelectorAll(".headerlink")); const docContent = htmlElement.querySelector('[role="main"]'); if (docContent !== undefined) return docContent.textContent; console.warn( @@ -502,12 +504,11 @@ const Search = { * latter for highlighting it. */ makeSearchSummary: (htmlText, keywords, highlightWords) => { - const text = Search.htmlToText(htmlText); + const text = Search.htmlToText(htmlText).toLowerCase(); if (text === "") return null; - const textLower = text.toLowerCase(); const actualStartPosition = [...keywords] - .map((k) => textLower.indexOf(k.toLowerCase())) + .map((k) => text.indexOf(k.toLowerCase())) .filter((i) => i > -1) .slice(-1)[0]; const startWithContext = Math.max(actualStartPosition - 120, 0); @@ -515,9 +516,9 @@ const Search = { const top = startWithContext === 0 ? "" : "..."; const tail = startWithContext + 240 < text.length ? "..." : ""; - let summary = document.createElement("p"); + let summary = document.createElement("div"); summary.classList.add("context"); - summary.textContent = top + text.substr(startWithContext, 240).trim() + tail; + summary.innerText = top + text.substr(startWithContext, 240).trim() + tail; highlightWords.forEach((highlightWord) => _highlightText(summary, highlightWord, "highlighted") diff --git a/docs/RefMan/_build/html/searchindex.js b/docs/RefMan/_build/html/searchindex.js index 5bf45ee7c..ddcd312ea 100644 --- a/docs/RefMan/_build/html/searchindex.js +++ b/docs/RefMan/_build/html/searchindex.js @@ -1 +1 @@ -Search.setIndex({"docnames": ["BasicSyntax", "BasicTypes", "Expressions", "FFI", "Modules", "OverloadedOperations", "RefMan", "TypeDeclarations"], "filenames": ["BasicSyntax.rst", "BasicTypes.rst", "Expressions.rst", "FFI.rst", "Modules.rst", "OverloadedOperations.rst", "RefMan.rst", "TypeDeclarations.rst"], "titles": ["Basic Syntax", "Basic Types", "Expressions", "Foreign Function Interface", "Modules", "Overloaded Operations", "Cryptol Reference Manual", "Type Declarations"], "terms": {"f": [0, 1, 2, 3, 4], "x": [0, 1, 2, 3, 4, 7], "y": [0, 1, 2, 3, 4], "z": [0, 2, 4], "g": [0, 2, 4], "b": [0, 3, 4, 5, 7], "fin": [0, 3, 4], "group": [0, 4, 7], "ar": [0, 1, 2, 3, 4, 7], "organ": 0, "base": [0, 2], "indent": [0, 4], "same": [0, 1, 3, 4, 7], "belong": 0, "line": [0, 4, 7], "text": 0, "more": [0, 4], "than": [0, 3, 4], "begin": 0, "while": [0, 1, 3], "less": 0, "termin": 0, "consid": [0, 4, 7], "exampl": [0, 1, 2, 4, 6], "follow": [0, 1, 2, 3, 4], "cryptol": [0, 2, 4], "where": [0, 1, 2, 3, 4], "thi": [0, 1, 2, 3, 4], "ha": [0, 1, 2, 3], "two": [0, 1, 2, 4, 7], "one": [0, 2, 3, 4], "all": [0, 2, 3, 4, 7], "between": [0, 6], "The": [0, 1, 2, 3, 4], "principl": 0, "appli": [0, 3], "block": [0, 6], "which": [0, 2, 3, 4, 7], "defin": [0, 1, 3, 4, 7], "local": [0, 4, 6], "name": [0, 1, 3, 6, 7], "support": [0, 4, 6], "start": [0, 1], "end": [0, 4], "mai": [0, 1, 2, 3, 4, 7], "nest": [0, 1, 3, 6], "arbitrarili": 0, "i": [0, 1, 2, 3, 4, 7], "document": [0, 4], "consist": 0, "charact": 0, "first": [0, 1, 3, 4], "must": [0, 3, 4], "either": [0, 3, 4], "an": [0, 1, 2, 3, 6], "english": 0, "letter": 0, "underscor": 0, "_": [0, 1], "decim": 0, "digit": 0, "prime": 0, "some": [0, 4], "have": [0, 1, 2, 3, 4, 7], "special": 0, "mean": [0, 3], "languag": [0, 3], "so": [0, 1, 2, 3, 4], "thei": [0, 1, 3, 4, 7], "us": [0, 1, 2, 3, 4, 7], "programm": 0, "see": [0, 4], "name1": 0, "longer_nam": 0, "name2": 0, "longernam": 0, "extern": 0, "includ": 0, "interfac": [0, 6], "paramet": [0, 2, 6], "properti": 0, "hide": [0, 6], "infix": [0, 6], "let": [0, 3], "pragma": 0, "submodul": [0, 4], "els": [0, 2, 4], "constraint": [0, 6], "infixl": 0, "modul": [0, 3, 6], "primit": 0, "down": [0, 1], "import": [0, 1, 2, 6], "infixr": 0, "newtyp": [0, 4, 6], "privat": [0, 6], "tabl": [0, 3], "contain": [0, 1, 3, 4], "": [0, 2, 3, 4], "associ": 0, "lowest": 0, "highest": 0, "last": [0, 2, 3], "right": [0, 1], "left": [0, 1], "unari": [0, 2], "varieti": 0, "allow": [0, 3, 4, 7], "comput": [0, 1], "specifi": [0, 2, 4], "size": [0, 1, 3], "sequenc": [0, 6], "addit": [0, 4], "subtract": 0, "multipl": [0, 1, 2, 3, 4], "divis": [0, 6], "ceil": [0, 5], "round": [0, 6], "up": [0, 3], "modulu": 0, "pad": [0, 3], "exponenti": 0, "lg2": 0, "logarithm": 0, "2": [0, 1, 2, 3, 4, 7], "width": [0, 4], "bit": [0, 1, 2, 4, 5, 6], "equal": [0, 1, 6, 7], "n": [0, 1, 3, 4], "1": [0, 1, 2, 3, 4, 7], "max": [0, 5], "maximum": 0, "min": [0, 5], "minimum": 0, "written": [0, 1, 2, 3, 7], "binari": [0, 3], "octal": 0, "hexadecim": 0, "notat": [0, 1, 2, 4], "determin": [0, 1], "its": [0, 3, 4], "prefix": [0, 4, 6], "0b": 0, "0o": 0, "0x": 0, "254": 0, "0254": 0, "0b11111110": 0, "0o376": 0, "0xfe": 0, "result": [0, 1, 2, 4], "fix": [0, 1, 3], "length": [0, 1, 3], "e": [0, 1, 4, 5], "number": [0, 1, 2, 3], "overload": [0, 6], "infer": [0, 2], "from": [0, 1, 2, 3, 4], "context": [0, 2], "0b1010": 0, "4": [0, 3], "0o1234": 0, "12": [0, 4], "3": [0, 1, 2, 4, 7], "0x1234": 0, "16": [0, 3], "10": [0, 1, 3, 4], "integ": [0, 2, 5, 7], "also": [0, 1, 3, 4], "polynomi": 0, "write": [0, 1, 3], "express": [0, 1, 4, 6, 7], "term": 0, "open": 0, "close": 0, "degre": 0, "6": [0, 7], "7": [0, 2, 4], "0b1010111": 0, "5": [0, 1, 2, 4], "0b11010": 0, "fraction": 0, "ox": 0, "A": [0, 1, 3, 4, 7], "option": [0, 7], "expon": 0, "mark": 0, "symbol": [0, 3, 4], "p": [0, 1, 4], "2e3": 0, "0x30": 0, "64": [0, 3], "1p4": 0, "ration": 0, "float": [0, 6], "famili": 0, "cannot": [0, 2], "repres": 0, "precis": 0, "Such": [0, 4], "reject": 0, "static": [0, 3], "when": [0, 1, 2, 3, 4], "closest": 0, "represent": 0, "even": [0, 7], "effect": 0, "valu": [0, 1, 4, 6, 7], "improv": [0, 3], "readabl": [0, 3], "here": [0, 2, 4], "0b_0000_0010": 0, "0x_ffff_ffea": 0, "packag": 1, "togeth": [1, 4], "enclos": [1, 4], "parenthes": 1, "curli": 1, "brace": 1, "compon": [1, 3], "both": [1, 4], "separ": [1, 4], "comma": 1, "label": 1, "sign": [1, 6], "identifi": [1, 4, 6], "posit": 1, "order": [1, 3, 4], "most": [1, 4], "purpos": [1, 7], "true": [1, 3], "fals": [1, 3], "lexicograph": 1, "compar": 1, "appear": [1, 7], "wherea": 1, "alphabet": 1, "wai": [1, 3, 4], "via": 1, "pattern": [1, 2], "match": [1, 3], "explicit": [1, 4, 6], "selector": 1, "15": 1, "20": [1, 3], "0": [1, 2, 3], "onli": [1, 3, 4, 7], "program": 1, "suffici": [1, 2], "inform": 1, "shape": 1, "For": [1, 2, 3, 4, 7], "t": [1, 2, 3, 4, 7], "valid": 1, "definit": [1, 2, 4], "known": 1, "isposit": 1, "invalid": 1, "insuffici": 1, "baddef": 1, "mirror": 1, "syntax": [1, 2, 6], "construct": [1, 2, 4], "getfst": 1, "distance2": 1, "xpo": 1, "ypo": 1, "lift": 1, "through": [1, 6], "point": [1, 6], "wise": 1, "equat": 1, "should": [1, 2, 3], "hold": [1, 3], "l": [1, 3], "thu": [1, 4], "we": [1, 3, 4], "can": [1, 2, 3, 4, 7], "quickli": 1, "obtain": [1, 3, 4], "similarli": 1, "get": 1, "entri": 1, "behavior": [1, 3], "quit": [1, 4], "handi": 1, "examin": 1, "complex": 1, "data": 1, "repl": 1, "r": 1, "pt": 1, "100": 1, "set": [1, 3], "30": [1, 4], "rel": 1, "old": 1, "25": 1, "collect": [1, 7], "element": [1, 2, 3], "finit": [1, 2], "often": 1, "call": [1, 3, 4, 6], "word": [1, 3], "abbrevi": 1, "infinit": 1, "inf": [1, 5], "stream": 1, "e1": 1, "e2": 1, "e3": 1, "three": 1, "t1": [1, 3], "t2": [1, 3], "enumer": 1, "exclus": 1, "bound": [1, 3], "stride": 1, "ex": 1, "downward": 1, "t3": 1, "step": [1, 4], "p11": 1, "e11": 1, "p12": 1, "e12": 1, "comprehens": 1, "p21": 1, "e21": 1, "p22": 1, "e22": 1, "gener": [1, 3], "index": 1, "bind": [1, 3], "arr": 1, "j": [1, 4], "dimension": 1, "note": [1, 3, 4], "those": [1, 4], "descript": 1, "concaten": 1, "shift": 1, "rotat": 1, "arithmet": [1, 6], "bitvector": 1, "front": 1, "back": 1, "sub": [1, 4], "updateend": 1, "locat": [1, 4], "updatesend": 1, "There": 1, "pointwis": 1, "p1": 1, "p2": 1, "p3": 1, "p4": 1, "split": [1, 3], "lambda": [1, 2], "section": [2, 3, 4], "provid": [2, 4], "overview": 2, "h": [2, 4], "pair": 2, "paren": 2, "ad": [2, 3, 4], "8": [2, 3, 4], "whole": [2, 3, 4], "9": 2, "variabl": [2, 3], "If": [2, 3, 4], "polymorph": [2, 3], "typaram": 2, "zero": [2, 3, 6], "you": [2, 3, 4], "evalu": [2, 6], "pass": [2, 3, 6], "13": 2, "weakest": 2, "preced": [2, 4], "scope": [2, 4, 7], "defint": 2, "do": [2, 3, 4, 7], "need": [2, 3, 4], "branch": 2, "22": 2, "33": 2, "correspond": [2, 3], "access": [2, 3, 6], "kind": [2, 3], "larg": [2, 3], "accommod": 2, "liter": [2, 6], "backtick": 2, "sugar": [2, 4], "applic": 2, "primtiv": 2, "abov": [2, 3, 4], "suitabl": 2, "automat": [2, 3], "chosen": 2, "possibl": [2, 4], "usual": 2, "ffi": 3, "other": [3, 4, 7], "convent": 3, "current": 3, "window": 3, "work": [3, 4], "unix": 3, "like": [3, 4, 7], "system": [3, 4], "maco": 3, "linux": 3, "suppos": 3, "want": [3, 4], "uint32_t": 3, "add": [3, 4], "In": [3, 4], "our": 3, "file": [3, 4], "declar": [3, 4, 6], "bodi": [3, 7], "32": [3, 4], "dynam": 3, "load": 3, "share": 3, "librari": 3, "look": [3, 4], "directori": [3, 4], "differ": [3, 4], "extens": 3, "exact": 3, "specif": 3, "On": 3, "dylib": 3, "your": 3, "foo": 3, "cry": [3, 4], "Then": [3, 4], "each": [3, 4, 7], "case": [3, 4], "onc": [3, 4], "ani": [3, 4, 7], "sinc": [3, 4], "sourc": [3, 4], "check": 3, "actual": 3, "It": [3, 4], "respons": 3, "make": [3, 4], "sure": [3, 4], "undefin": 3, "doe": 3, "handl": 3, "simpl": [3, 4], "manual": 3, "command": 3, "cc": 3, "fpic": 3, "o": 3, "dynamiclib": 3, "describ": [3, 4], "how": 3, "given": 3, "signatur": [3, 6], "map": 3, "prototyp": 3, "limit": 3, "clear": 3, "translat": 3, "These": 3, "curri": 3, "argument": [3, 6, 7], "certain": 3, "befor": [3, 4], "That": 3, "could": 3, "mani": [3, 4], "after": 3, "directli": [3, 7], "output": 3, "depend": 3, "pointer": 3, "modifi": 3, "store": 3, "list": [3, 6], "size_t": 3, "numer": [3, 4, 6], "furthermor": 3, "satisfi": 3, "explicitli": 3, "fit": 3, "runtim": 3, "error": [3, 4], "requir": [3, 4], "instead": [3, 4, 7], "just": [3, 4, 7], "practic": [3, 4], "would": [3, 4, 7], "too": 3, "cumbersom": [3, 4], "uint8_t": 3, "nonzero": 3, "k": 3, "uint16_t": 3, "uint64_t": 3, "smaller": 3, "extra": 3, "ignor": 3, "instanc": 3, "0xf": 3, "0x0f": 3, "0xaf": 3, "larger": 3, "standard": 3, "convers": 3, "arrai": 3, "float32": 3, "float64": 3, "doubl": 3, "built": [3, 6], "possibli": 3, "u": 3, "itself": [3, 4], "along": 3, "earlier": 3, "alwai": 3, "know": 3, "tn": 3, "mention": [3, 7], "themselv": 3, "u1": 3, "u2": 3, "un": 3, "respect": 3, "f1": 3, "f2": 3, "fn": 3, "arbitrari": 3, "field": [3, 5, 6, 7], "flatten": 3, "out": 3, "behav": 3, "individu": 3, "recurs": [3, 4, 7], "empti": 3, "don": 3, "void": 3, "treat": [3, 4, 7], "except": [3, 4], "input": 3, "version": 3, "becaus": [3, 4], "alreadi": 3, "involv": 3, "alloc": 3, "dealloc": 3, "manag": [3, 6], "non": 3, "piec": 3, "enough": 3, "try": [3, 4], "adjac": 3, "uniniti": 3, "read": 3, "relat": 4, "top": 4, "level": [4, 6], "m": 4, "type": [4, 6], "glu": 4, "ordinari": 4, "hash": 4, "sha256": 4, "structur": [4, 6], "implement": 4, "search": 4, "cryptolpath": 4, "To": 4, "anoth": 4, "wa": 4, "sometim": 4, "0x02": 4, "0x03": 4, "0x04": 4, "help": 4, "reduc": 4, "collis": 4, "tend": 4, "code": [4, 6], "easier": 4, "understand": 4, "easi": 4, "them": 4, "few": 4, "clash": 4, "situat": 4, "conveni": 4, "everyth": 4, "avoid": 4, "happen": 4, "combin": 4, "claus": 4, "introduc": 4, "might": 4, "helper": 4, "function": [4, 6, 7], "intend": 4, "outsid": 4, "good": 4, "place": 4, "0x01": 4, "helper1": 4, "helper2": 4, "public": 4, "remain": 4, "extend": 4, "keyword": [4, 6], "new": [4, 7], "layout": [4, 6], "singl": 4, "equival": 4, "previou": 4, "withing": 4, "keword": 4, "refer": 4, "shadow": 4, "outer": 4, "submdul": 4, "across": 4, "submould": 4, "bring": [4, 7], "upcom": 4, "variant": 4, "featur": 4, "yet": 4, "part": 4, "main": [3, 4], "content": 4, "without": 4, "concret": 4, "assumpt": 4, "about": 4, "constant": [3, 4], "desrib": 4, "parmaet": 4, "sumbodul": 4, "mayb": 4, "link": 4, "abl": 4, "impos": 4, "cours": 4, "done": 4, "impl": 4, "26": 4, "myf": 4, "fill": 4, "my": 4, "slight": 4, "variat": 4, "impl1": 4, "impl2": 4, "deriv": 4, "somewher": 4, "presum": 4, "coupl": 4, "straight": 4, "awai": 4, "thing": 4, "notion": 4, "11": 4, "syntact": 4, "functor": 4, "time": 4, "synonym": [4, 6], "noth": 4, "exist": [4, 7], "semant": 4, "occasion": 4, "being": 4, "eq": 5, "cmp": 5, "ab": 5, "ring": 5, "signedcmp": 5, "complement": 5, "frominteg": 5, "negat": 5, "tointeg": 5, "inffrom": 5, "inffromthen": 5, "recip": 5, "floor": 5, "trunc": 5, "roundawai": 5, "roundtoeven": 5, "basic": 6, "comment": 6, "oper": 6, "annot": 6, "instanti": 6, "condit": 6, "demot": 6, "tupl": 6, "record": [6, 7], "updat": 6, "comparison": 6, "logic": 6, "integr": 6, "hierarch": 6, "qualifi": 6, "implicit": 6, "parameter": 6, "anonym": 6, "foreign": 6, "platform": 6, "usag": 6, "compil": 6, "c": 6, "convert": 6, "overal": 6, "return": 6, "memori": 6, "creat": 7, "pre": 7, "transpar": 7, "unfold": 7, "site": 7, "though": 7, "user": 7, "had": 7, "newt": 7, "seq": 7, "unlik": 7, "distinct": 7, "checker": 7, "moreov": 7, "member": 7, "typeclass": 7, "typecheck": 7, "otherwis": 7, "irrelev": 7, "form": 7, "everi": 7, "project": 7, "extract": 7, "sum": 7, "someth": 3, "a1": 3, "ak": 3, "c1": 3, "cn": 3, "tm": 3, "tr": 3, "expand": 3, "rule": 3, "out0": 3, "out1": 3, "in0": 3, "in1": 3, "in2": 3, "fulli": 3, "process": 3, "0x00000003": 3, "v1": 3, "v2": 3, "vn": 3, "ti": 3, "ui": 3, "vi": 3, "quick": 6}, "objects": {}, "objtypes": {}, "objnames": {}, "titleterms": {"basic": [0, 1, 3, 5], "syntax": 0, "declar": [0, 2, 7], "type": [0, 1, 2, 3, 7], "signatur": 0, "layout": 0, "comment": 0, "todo": [0, 2], "identifi": 0, "keyword": 0, "built": 0, "oper": [0, 1, 2, 5], "preced": 0, "level": 0, "numer": [0, 2], "liter": 0, "tupl": [1, 3], "record": [1, 3], "access": 1, "field": 1, "updat": 1, "sequenc": [1, 3], "function": [1, 2, 3], "express": 2, "call": 2, "prefix": 2, "infix": 2, "annot": 2, "explicit": 2, "instanti": [2, 4], "local": 2, "block": [2, 4], "argument": [2, 4], "condit": 2, "demot": 2, "valu": [2, 3], "foreign": 3, "interfac": [3, 4], "platform": 3, "support": 3, "usag": 3, "compil": 3, "c": 3, "code": 3, "convert": 3, "between": 3, "cryptol": [3, 6], "overal": 3, "structur": 3, "paramet": [3, 4], "bit": 3, "integr": [3, 5], "float": 3, "point": 3, "return": 3, "memori": 3, "modul": 4, "hierarch": 4, "name": 4, "import": 4, "list": 4, "hide": 4, "qualifi": 4, "privat": 4, "nest": 4, "implicit": 4, "manag": 4, "parameter": 4, "an": 4, "constraint": 4, "anonym": 4, "pass": 4, "through": 4, "overload": 5, "equal": 5, "comparison": 5, "sign": 5, "zero": 5, "logic": 5, "arithmet": 5, "divis": 5, "round": 5, "refer": [3, 6], "manual": 6, "synonym": [3, 7], "newtyp": 7, "exampl": 3, "evalu": 3, "quick": 3}, "envversion": {"sphinx.domains.c": 2, "sphinx.domains.changeset": 1, "sphinx.domains.citation": 1, "sphinx.domains.cpp": 6, "sphinx.domains.index": 1, "sphinx.domains.javascript": 2, "sphinx.domains.math": 2, "sphinx.domains.python": 3, "sphinx.domains.rst": 2, "sphinx.domains.std": 2, "sphinx.ext.todo": 2, "sphinx": 56}}) \ No newline at end of file +Search.setIndex({"docnames": ["BasicSyntax", "BasicTypes", "Expressions", "FFI", "Modules", "OverloadedOperations", "RefMan", "TypeDeclarations"], "filenames": ["BasicSyntax.rst", "BasicTypes.rst", "Expressions.rst", "FFI.rst", "Modules.rst", "OverloadedOperations.rst", "RefMan.rst", "TypeDeclarations.rst"], "titles": ["Basic Syntax", "Basic Types", "Expressions", "Foreign Function Interface", "Modules", "Overloaded Operations", "Cryptol Reference Manual", "Type Declarations"], "terms": {"f": [0, 1, 2, 3, 4], "x": [0, 1, 2, 3, 4, 7], "y": [0, 1, 2, 3, 4], "z": [0, 2, 4], "g": [0, 2, 4], "b": [0, 3, 4, 5, 7], "fin": [0, 3, 4], "group": [0, 4, 7], "ar": [0, 1, 2, 3, 4, 7], "organ": 0, "base": [0, 2], "indent": [0, 4], "same": [0, 1, 3, 4, 7], "belong": 0, "line": [0, 4, 7], "text": 0, "more": [0, 4], "than": [0, 3, 4], "begin": 0, "while": [0, 1, 3], "less": 0, "termin": 0, "consid": [0, 4, 7], "exampl": [0, 1, 2, 4, 6], "follow": [0, 1, 2, 3, 4], "cryptol": [0, 2, 4], "where": [0, 1, 2, 3, 4], "thi": [0, 1, 2, 3, 4], "ha": [0, 1, 2, 3], "two": [0, 1, 2, 4, 7], "one": [0, 2, 3, 4], "all": [0, 2, 3, 4, 7], "between": [0, 6], "The": [0, 1, 2, 3, 4], "principl": 0, "appli": [0, 3], "block": [0, 6], "which": [0, 2, 3, 4, 7], "defin": [0, 1, 3, 4, 7], "local": [0, 4, 6], "name": [0, 1, 3, 6, 7], "support": [0, 4, 6], "start": [0, 1], "end": [0, 4], "mai": [0, 1, 2, 3, 4, 7], "nest": [0, 1, 3, 6], "arbitrarili": 0, "i": [0, 1, 4], "document": [0, 4], "consist": 0, "charact": 0, "first": [0, 1, 3, 4], "must": [0, 3, 4], "either": [0, 3, 4], "an": [0, 1, 2, 3, 6], "english": 0, "letter": 0, "underscor": 0, "_": [0, 1], "decim": 0, "digit": 0, "prime": 0, "some": [0, 4], "have": [0, 1, 2, 3, 4, 7], "special": 0, "mean": [0, 3], "languag": [0, 3], "so": [0, 1, 2, 3, 4], "thei": [0, 1, 3, 4, 7], "us": [0, 1, 2, 3, 4, 7], "programm": 0, "see": [0, 4], "name1": 0, "longer_nam": 0, "name2": 0, "longernam": 0, "extern": 0, "includ": 0, "interfac": [0, 6], "paramet": [0, 2, 6], "properti": 0, "hide": [0, 6], "infix": [0, 6], "let": [0, 3], "pragma": 0, "submodul": [0, 4], "els": [0, 2, 4], "constraint": 6, "infixl": 0, "modul": [0, 3, 6], "primit": 0, "down": [0, 1], "import": [0, 1, 2, 6], "infixr": 0, "newtyp": [0, 4, 6], "privat": [0, 6], "tabl": [0, 3], "contain": [0, 1, 3, 4], "": [], "associ": 0, "lowest": 0, "highest": 0, "last": [0, 2, 3], "right": [0, 1], "left": [0, 1], "unari": [0, 2], "varieti": 0, "allow": [0, 3, 4, 7], "comput": [0, 1], "specifi": [0, 2, 4], "size": [0, 1, 3], "sequenc": [0, 6], "addit": [0, 4], "subtract": 0, "multipl": [0, 1, 2, 3, 4], "divis": [0, 6], "ceil": [0, 5], "round": [0, 6], "up": [0, 3], "modulu": 0, "pad": [0, 3], "exponenti": 0, "lg2": 0, "logarithm": 0, "2": [0, 1, 2, 3, 4, 7], "width": [0, 4], "bit": [0, 1, 2, 4, 5, 6], "equal": [0, 1, 6, 7], "n": [0, 1, 3, 4], "1": [0, 1, 2, 3, 4, 7], "max": [0, 5], "maximum": 0, "min": [0, 5], "minimum": 0, "written": [0, 1, 2, 3, 7], "binari": [0, 3], "octal": 0, "hexadecim": 0, "notat": [0, 1, 2, 4], "determin": [0, 1], "its": [0, 3, 4], "prefix": [0, 4, 6], "0b": 0, "0o": 0, "0x": 0, "254": 0, "0254": 0, "0b11111110": 0, "0o376": 0, "0xfe": 0, "result": [0, 1, 2, 4], "fix": [0, 1, 3], "length": [0, 1, 3], "e": [0, 1, 4, 5], "number": [0, 1, 2, 3], "overload": [0, 6], "infer": [0, 2], "from": [0, 1, 2, 3, 4], "context": [0, 2], "0b1010": 0, "4": [0, 3], "0o1234": 0, "12": [0, 4], "3": [0, 1, 2, 4, 7], "0x1234": 0, "16": [0, 3], "10": [0, 1, 3, 4], "integ": [0, 2, 5, 7], "also": [0, 1, 3, 4], "polynomi": 0, "write": [0, 1, 3], "express": [0, 1, 4, 6, 7], "term": 0, "open": 0, "close": 0, "degre": 0, "6": [0, 7], "7": [0, 2, 4], "0b1010111": 0, "5": [0, 1, 2, 4], "0b11010": 0, "fraction": 0, "ox": 0, "A": [0, 1, 3, 4, 7], "option": [0, 7], "expon": 0, "mark": 0, "symbol": [0, 3, 4], "p": [0, 1, 4], "2e3": 0, "0x30": 0, "64": [0, 3], "1p4": 0, "ration": 0, "float": [0, 6], "famili": 0, "cannot": [0, 2], "repres": 0, "precis": 0, "Such": [0, 4], "reject": 0, "static": [0, 3], "when": [0, 1, 2, 3, 4], "closest": 0, "represent": 0, "even": [0, 7], "effect": 0, "valu": [0, 1, 4, 6, 7], "improv": [0, 3], "readabl": [0, 3], "here": [0, 2, 4], "0b_0000_0010": 0, "0x_ffff_ffea": 0, "packag": 1, "togeth": [1, 4], "enclos": [1, 4], "parenthes": 1, "curli": 1, "brace": 1, "compon": [1, 3], "both": [1, 4], "separ": [1, 4], "comma": 1, "label": 1, "sign": [1, 6], "identifi": [1, 4, 6], "posit": 1, "order": [1, 3, 4], "most": [1, 4], "purpos": [1, 7], "true": [1, 3], "fals": [1, 3], "lexicograph": 1, "compar": 1, "appear": [1, 7], "wherea": 1, "alphabet": 1, "wai": [1, 3, 4], "via": 1, "pattern": [1, 2], "match": [1, 3], "explicit": [1, 4, 6], "selector": 1, "15": 1, "20": [1, 3], "0": [0, 1, 2, 3], "onli": [0, 1, 3, 4, 7], "program": 1, "suffici": [1, 2], "inform": 1, "shape": 1, "For": [0, 1, 2, 3, 4, 7], "t": [0, 1, 2, 3, 4, 7], "valid": 1, "definit": [1, 2, 4], "known": 1, "isposit": 1, "invalid": 1, "insuffici": 1, "baddef": 1, "mirror": 1, "syntax": [1, 2, 6], "construct": [1, 2, 4], "getfst": 1, "distance2": 1, "xpo": 1, "ypo": 1, "lift": 1, "through": [1, 6], "point": [1, 6], "wise": 1, "equat": 1, "should": [0, 1, 2, 3], "hold": [1, 3], "l": [1, 3], "thu": [1, 4], "we": [1, 3, 4], "can": [0, 1, 2, 3, 4, 7], "quickli": 1, "obtain": [1, 3, 4], "similarli": 1, "get": 1, "entri": 1, "behavior": [1, 3], "quit": [1, 4], "handi": 1, "examin": 1, "complex": 1, "data": 1, "repl": 1, "r": 1, "pt": 1, "100": 1, "set": [0, 1, 3], "30": [1, 4], "rel": 1, "old": 1, "25": 1, "collect": [1, 7], "element": [1, 2, 3], "finit": [1, 2], "often": 1, "call": [1, 3, 4, 6], "word": [1, 3], "abbrevi": 1, "infinit": 1, "inf": [1, 5], "stream": 1, "e1": 1, "e2": 1, "e3": 1, "three": 1, "t1": [1, 3], "t2": [1, 3], "enumer": 1, "exclus": 1, "bound": [1, 3], "stride": 1, "ex": 1, "downward": 1, "t3": 1, "step": [1, 4], "p11": 1, "e11": 1, "p12": 1, "e12": 1, "comprehens": 1, "p21": 1, "e21": 1, "p22": 1, "e22": 1, "gener": [1, 3], "index": 1, "bind": [1, 3], "arr": 1, "j": [1, 4], "dimension": 1, "note": [0, 1, 3, 4], "those": [1, 4], "descript": 1, "concaten": 1, "shift": 1, "rotat": 1, "arithmet": [1, 6], "bitvector": 1, "front": 1, "back": 1, "sub": [1, 4], "updateend": 1, "locat": [1, 4], "updatesend": 1, "There": 1, "pointwis": 1, "p1": 1, "p2": 1, "p3": 1, "p4": 1, "split": [1, 3], "lambda": [1, 2], "section": [2, 3, 4], "provid": [2, 4], "overview": 2, "h": [2, 4], "pair": 2, "paren": 2, "ad": [2, 3, 4], "8": [2, 3, 4], "whole": [2, 3, 4], "9": 2, "variabl": [2, 3], "If": [2, 3, 4], "polymorph": [2, 3], "typaram": 2, "zero": [2, 3, 6], "you": [2, 3, 4], "evalu": [2, 6], "pass": [2, 3, 6], "13": 2, "weakest": 2, "preced": [2, 4], "scope": [2, 4, 7], "defint": 2, "do": [2, 3, 4, 7], "need": [2, 3, 4], "branch": [0, 2], "22": 2, "33": 2, "correspond": [2, 3], "access": [2, 3, 6], "kind": [2, 3], "larg": [2, 3], "accommod": 2, "liter": [2, 6], "backtick": 2, "sugar": [2, 4], "applic": 2, "primtiv": 2, "abov": [2, 3, 4], "suitabl": 2, "automat": [2, 3], "chosen": 2, "possibl": [2, 3, 4], "usual": 2, "ffi": 3, "other": [3, 4, 7], "convent": 3, "current": 3, "window": 3, "work": [3, 4], "unix": 3, "like": [0, 3, 4, 7], "system": [3, 4], "maco": 3, "linux": 3, "suppos": 3, "want": [3, 4], "uint32_t": 3, "add": [3, 4], "In": [0, 3, 4], "our": 3, "file": [3, 4], "declar": [3, 4, 6], "bodi": [3, 7], "32": [3, 4], "dynam": 3, "load": 3, "share": 3, "librari": 3, "look": [3, 4], "directori": [3, 4], "differ": [0, 3, 4], "extens": 3, "exact": 3, "specif": 3, "On": 3, "dylib": 3, "your": 3, "foo": 3, "cry": [3, 4], "Then": [3, 4], "each": [3, 4, 7], "case": [3, 4], "onc": [3, 4], "ani": [3, 4, 7], "sinc": [0, 3, 4], "sourc": [3, 4], "check": 3, "actual": 3, "It": [3, 4], "respons": 3, "make": [3, 4], "sure": [3, 4], "undefin": 3, "doe": 3, "handl": 3, "simpl": [3, 4], "manual": 3, "command": 3, "cc": 3, "fpic": 3, "o": 3, "dynamiclib": 3, "describ": [3, 4], "how": 3, "given": 3, "signatur": [3, 6], "map": 3, "prototyp": 3, "limit": 3, "clear": 3, "translat": 3, "These": 3, "curri": 3, "argument": [3, 6, 7], "certain": 3, "befor": [3, 4], "That": 3, "could": 3, "mani": [3, 4], "after": 3, "directli": [3, 7], "output": 3, "depend": 3, "pointer": 3, "modifi": 3, "store": 3, "list": [3, 6], "size_t": 3, "numer": [3, 4, 6], "furthermor": 3, "satisfi": 3, "explicitli": 3, "fit": 3, "runtim": 3, "error": [3, 4], "requir": [0, 3, 4], "instead": [3, 4, 7], "just": [3, 4, 7], "practic": [3, 4], "would": [3, 4, 7], "too": 3, "cumbersom": [3, 4], "uint8_t": 3, "nonzero": 3, "k": 3, "uint16_t": 3, "uint64_t": 3, "smaller": 3, "extra": 3, "ignor": 3, "instanc": 3, "0xf": 3, "0x0f": 3, "0xaf": 3, "larger": 3, "standard": 3, "convers": 3, "arrai": 3, "float32": 3, "float64": 3, "doubl": 3, "built": [3, 6], "possibli": [], "u": 3, "itself": [3, 4], "along": 3, "earlier": 3, "alwai": 3, "know": 3, "tn": 3, "mention": [3, 7], "themselv": 3, "u1": 3, "u2": 3, "un": 3, "respect": 3, "f1": 3, "f2": 3, "fn": 3, "arbitrari": 3, "field": [3, 5, 6, 7], "flatten": 3, "out": 3, "behav": 3, "individu": 3, "recurs": [3, 4, 7], "empti": 3, "don": 3, "void": 3, "treat": [3, 4, 7], "except": [0, 3, 4], "input": 3, "version": 3, "becaus": [3, 4], "alreadi": 3, "involv": 3, "alloc": 3, "dealloc": 3, "manag": [3, 6], "non": [0, 3], "piec": 3, "enough": 3, "try": [3, 4], "adjac": 3, "uniniti": 3, "read": 3, "relat": 4, "top": 4, "level": [4, 6], "m": 4, "type": [4, 6], "glu": 4, "ordinari": 4, "hash": 4, "sha256": 4, "structur": [4, 6], "implement": 4, "search": 4, "cryptolpath": 4, "To": 4, "anoth": 4, "wa": 4, "sometim": 4, "0x02": 4, "0x03": 4, "0x04": 4, "help": 4, "reduc": 4, "collis": 4, "tend": 4, "code": [4, 6], "easier": 4, "understand": 4, "easi": 4, "them": 4, "few": 4, "clash": 4, "situat": 4, "conveni": 4, "everyth": 4, "avoid": 4, "happen": 4, "combin": 4, "claus": 4, "introduc": 4, "might": 4, "helper": 4, "function": [4, 6, 7], "intend": 4, "outsid": 4, "good": 4, "place": 4, "0x01": 4, "helper1": 4, "helper2": 4, "public": 4, "remain": 4, "extend": 4, "keyword": [4, 6], "new": [4, 7], "layout": [4, 6], "singl": 4, "equival": 4, "previou": 4, "withing": 4, "keword": 4, "refer": 4, "shadow": 4, "outer": 4, "submdul": 4, "across": 4, "submould": 4, "bring": [4, 7], "upcom": 4, "variant": 4, "featur": 4, "yet": 4, "part": 4, "main": [3, 4], "content": 4, "without": 4, "concret": 4, "assumpt": 4, "about": 4, "constant": [3, 4], "desrib": 4, "parmaet": 4, "sumbodul": 4, "mayb": 4, "link": 4, "abl": 4, "impos": 4, "cours": 4, "done": 4, "impl": 4, "26": 4, "myf": 4, "fill": 4, "my": 4, "slight": 4, "variat": 4, "impl1": 4, "impl2": 4, "deriv": 4, "somewher": 4, "presum": 4, "coupl": 4, "straight": 4, "awai": 4, "thing": 4, "notion": 4, "11": 4, "syntact": 4, "functor": 4, "time": 4, "synonym": [4, 6], "noth": 4, "exist": [4, 7], "semant": 4, "occasion": 4, "being": 4, "eq": 5, "cmp": 5, "ab": 5, "ring": 5, "signedcmp": 5, "complement": 5, "frominteg": 5, "negat": 5, "tointeg": 5, "inffrom": 5, "inffromthen": 5, "recip": 5, "floor": 5, "trunc": 5, "roundawai": 5, "roundtoeven": 5, "basic": 6, "comment": 6, "oper": 6, "annot": 6, "instanti": 6, "condit": [0, 6], "demot": 6, "tupl": 6, "record": [6, 7], "updat": 6, "comparison": 6, "logic": 6, "integr": 6, "hierarch": 6, "qualifi": 6, "implicit": 6, "parameter": 6, "anonym": 6, "foreign": 6, "platform": 6, "usag": 6, "compil": 6, "c": 6, "convert": 6, "overal": 6, "return": 6, "memori": 6, "creat": 7, "pre": 7, "transpar": 7, "unfold": 7, "site": 7, "though": 7, "user": 7, "had": 7, "newt": 7, "seq": 7, "unlik": 7, "distinct": 7, "checker": [0, 7], "moreov": 7, "member": 7, "typeclass": 7, "typecheck": 7, "otherwis": 7, "irrelev": 7, "form": 7, "everi": 7, "project": 7, "extract": 7, "sum": 7, "someth": 3, "a1": 3, "ak": 3, "c1": 3, "cn": 3, "tm": 3, "tr": 3, "expand": 3, "rule": 3, "out0": 3, "out1": 3, "in0": 3, "in1": 3, "in2": 3, "fulli": 3, "process": 3, "0x00000003": 3, "v1": 3, "v2": 3, "vn": 3, "ti": 3, "ui": 3, "vi": 3, "quick": 6, "normal": 0, "multi": 0, "len": 0, "xs": [0, 1], "drop": 0, "importantli": 0, "s": [0, 2, 3, 4], "howev": 0, "assum": 0, "fact": 0, "over": 0, "etc": 0, "alias": 0, "long": 0, "constrain": 0, "exhaust": 0, "attempt": 0, "prove": 0, "issu": 0, "warn": 0, "control": 0, "environment": 0, "warnnonexhaustiveconstraintguard": 0, "guard": 6}, "objects": {}, "objtypes": {}, "objnames": {}, "titleterms": {"basic": [0, 1, 3, 5], "syntax": 0, "declar": [0, 2, 7], "type": [0, 1, 2, 3, 7], "signatur": 0, "layout": 0, "comment": 0, "todo": [0, 2], "identifi": 0, "keyword": 0, "built": 0, "oper": [0, 1, 2, 5], "preced": 0, "level": 0, "numer": [0, 2], "liter": 0, "tupl": [1, 3], "record": [1, 3], "access": 1, "field": 1, "updat": 1, "sequenc": [1, 3], "function": [1, 2, 3], "express": 2, "call": 2, "prefix": 2, "infix": 2, "annot": 2, "explicit": 2, "instanti": [2, 4], "local": 2, "block": [2, 4], "argument": [2, 4], "condit": 2, "demot": 2, "valu": [2, 3], "foreign": 3, "interfac": [3, 4], "platform": 3, "support": 3, "usag": 3, "compil": 3, "c": 3, "code": 3, "convert": 3, "between": 3, "cryptol": [3, 6], "overal": 3, "structur": 3, "paramet": [3, 4], "bit": 3, "integr": [3, 5], "float": 3, "point": 3, "return": 3, "memori": 3, "modul": 4, "hierarch": 4, "name": 4, "import": 4, "list": 4, "hide": 4, "qualifi": 4, "privat": 4, "nest": 4, "implicit": 4, "manag": 4, "parameter": 4, "an": 4, "constraint": [0, 4], "anonym": 4, "pass": 4, "through": 4, "overload": 5, "equal": 5, "comparison": 5, "sign": 5, "zero": 5, "logic": 5, "arithmet": 5, "divis": 5, "round": 5, "refer": [3, 6], "manual": 6, "synonym": [3, 7], "newtyp": 7, "exampl": 3, "evalu": 3, "quick": 3, "guard": 0}, "envversion": {"sphinx.domains.c": 2, "sphinx.domains.changeset": 1, "sphinx.domains.citation": 1, "sphinx.domains.cpp": 6, "sphinx.domains.index": 1, "sphinx.domains.javascript": 2, "sphinx.domains.math": 2, "sphinx.domains.python": 3, "sphinx.domains.rst": 2, "sphinx.domains.std": 2, "sphinx.ext.todo": 2, "sphinx": 56}}) \ No newline at end of file From 961cb004e335830ddff381217c8a7eb99e032402 Mon Sep 17 00:00:00 2001 From: Henry Blanchette Date: Sat, 13 Aug 2022 14:37:47 -0700 Subject: [PATCH 059/125] cryptolError for ExpandPropGuardsError --- cryptol-remote-api/src/CryptolServer/Exceptions.hs | 5 +++++ 1 file changed, 5 insertions(+) diff --git a/cryptol-remote-api/src/CryptolServer/Exceptions.hs b/cryptol-remote-api/src/CryptolServer/Exceptions.hs index 43bd915ad..ace98053b 100644 --- a/cryptol-remote-api/src/CryptolServer/Exceptions.hs +++ b/cryptol-remote-api/src/CryptolServer/Exceptions.hs @@ -79,6 +79,11 @@ cryptolError modErr warns = (20710, [ ("source", jsonPretty src) , ("errors", jsonList (map jsonPretty errs)) ]) + ExpandPropGuardsError src err -> + (20711, [ ("source", jsonPretty src) + , ("errors", jsonPretty err) + ]) + NoIncludeErrors src errs -> -- TODO: structured error here (20720, [ ("source", jsonPretty src) From 98e944e9fc3b7bd749b7688108218ea37c581a6c Mon Sep 17 00:00:00 2001 From: Henry Blanchette Date: Mon, 15 Aug 2022 10:19:11 -0700 Subject: [PATCH 060/125] added Mergesort, removed old tests --- tests/constraint-guards/Inits.cry | 26 +++++------ tests/constraint-guards/Len.cry | 3 +- tests/constraint-guards/Mergesory.cry | 28 ++++++++++++ tests/constraint-guards/Parsing.cry | 66 --------------------------- tests/constraint-guards/Test1.cry | 12 ----- tests/constraint-guards/Test3.cry | 4 -- tests/constraint-guards/Test4.cry | 16 ------- 7 files changed, 41 insertions(+), 114 deletions(-) create mode 100644 tests/constraint-guards/Mergesory.cry delete mode 100644 tests/constraint-guards/Parsing.cry delete mode 100644 tests/constraint-guards/Test1.cry delete mode 100644 tests/constraint-guards/Test3.cry delete mode 100644 tests/constraint-guards/Test4.cry diff --git a/tests/constraint-guards/Inits.cry b/tests/constraint-guards/Inits.cry index 02aa8d645..f19194219 100644 --- a/tests/constraint-guards/Inits.cry +++ b/tests/constraint-guards/Inits.cry @@ -9,20 +9,18 @@ inits : {n, a} (fin n) => [n]a -> [(n * (n+1))/2]a inits xs | n == 0 => [] | n > 0 => go xs' x [] - where - x = take `{1} xs - xs' = drop `{1} xs - - go : {l, m} (fin l, fin m, l + m == n, m >= 1) => - [l]a -> [m]a -> - [((m-1) * ((m-1)+1))/2]a -> - [(n * (n+1))/2]a - go ys zs acc - | l == 0 => acc # zs - | l > 0 => go ys' (zs # y) (acc # zs) - where - y = take `{1} ys - ys' = drop `{1} ys + where + (x : [1]_) # xs' = xs + + go : {l, m} (fin l, fin m, l + m == n, m >= 1) => + [l]a -> [m]a -> + [((m-1) * ((m-1)+1))/2]a -> + [(n * (n+1))/2]a + go ys zs acc + | l == 0 => acc # zs + | l > 0 => go ys' (zs # y) (acc # zs) + where + (y : [1]_) # ys' = ys property inits_correct = diff --git a/tests/constraint-guards/Len.cry b/tests/constraint-guards/Len.cry index 5cdb79ef3..f2868c2c8 100644 --- a/tests/constraint-guards/Len.cry +++ b/tests/constraint-guards/Len.cry @@ -1,10 +1,9 @@ -// Yields non-exhaustive constraint guards warning if -// warnNonExhaustiveConstraintGuards is on. len : {n,a} (fin n) => [n] a -> Integer len x | (n == 0) => 0 | (n > 0) => 1 + len (drop`{1} x) + property len_correct = and [ len l == length l where l = [] diff --git a/tests/constraint-guards/Mergesory.cry b/tests/constraint-guards/Mergesory.cry new file mode 100644 index 000000000..0a3b2e4db --- /dev/null +++ b/tests/constraint-guards/Mergesory.cry @@ -0,0 +1,28 @@ +sort : {n,a} Cmp a => (fin n) => [n]a -> [n]a +sort xs + | n <= 1 => xs + | () => merge (sort left) (sort right) + where (left : [n/2] _) # right = xs + +merge : {m,n,a} Cmp a => [m]a -> [n]a -> [m+n]a +merge xs ys + | m == 0 => ys + | n == 0 => xs + | (m > 0, n > 0) => if x <= y + then [x] # merge restX ys + else [y] # merge xs restY + where + [x] # restX = xs + [y] # restY = ys + + +property sort_correct = + (sort [] == []) && + (sort [0] == [0]) && + (sort [-6, 1, 9, -3, -9, 2, 4] == [-9, -6, -3, 1, 2, 4, 9]) && + (sort [4, -8, -1, -7, -5, 9, 8, 8] == [-8, -7, -5, -1, 4, 8, 8, 9]) && + (sort [1, -1, -2, -3, -2, 7, 5] == [-3, -2, -2, -1, 1, 5, 7]) && + (sort [9, 9, 8, -3, 1, 1, -6, -6, -8] == [-8, -6, -6, -3, 1, 1, 8, 9, 9]) && + (sort [9, 1, 5, 0] == [0, 1, 5, 9]) && + (sort [8, 3, 3] == [3, 3, 8]) && + (sort [-7, 8] == [-7, 8]) \ No newline at end of file diff --git a/tests/constraint-guards/Parsing.cry b/tests/constraint-guards/Parsing.cry deleted file mode 100644 index b597b3be0..000000000 --- a/tests/constraint-guards/Parsing.cry +++ /dev/null @@ -1,66 +0,0 @@ -module Parsing where - -// Constraints are parsed the same as types - -foo : {n} [n] -> [n] -foo x = x - -l : {n} fin n => [n] -> [n] -l _ = `n - -// f : {n} [n] -> [n] -// f .. x = x - -// f : {n} [n] -> [n] -// f .. (fin n) .. x = x - -// f : {n} [n] -> [n] -// f <| (fin n, n == 1) => |> x = x - -// f : {n} fin n -// f = undefined - -// f : {n} ([n], [n], [n]) -// f = undefined - -// f : {n} (n == 1) => [n] -> [n] -// f x = x - -// f : {n} fin n => fin n => [1] -> [1] -// f x = x - -// Tests - -// f : {n} [n] -> [n] -// f <| (n == 1) => |> x = x - -// f : {n} [n] -> [n] -// f x = x - -// g : {n} (fin n) => [n] -> [n] -// g <| (n == 0) |> _ = [] - -// g' : {n} [n] -> [n] -// g' <| (n == 1) |> x = x - -// FAILS when evaluated on [1,2] -f : {n} [n] -> [8] -f x - | n == 1 => g1 x // passes - | n == 2 => g2 x // passes - | n == 3 => g3 x // passes - // | n == n => g4 x // fails - -g1 : {n} (n == 1) => [n] -> [8] -g1 x = 1 - -g2 : {n} (n == 2) => [n] -> [8] -g2 x = 2 - -g3 : {n} (n == 3) => [n] -> [8] -g3 x = 3 - -g4 : {n} (n == 4) => [n] -> [8] -g4 x = 4 - - diff --git a/tests/constraint-guards/Test1.cry b/tests/constraint-guards/Test1.cry deleted file mode 100644 index 2199b2858..000000000 --- a/tests/constraint-guards/Test1.cry +++ /dev/null @@ -1,12 +0,0 @@ -// PASSES -// testA : {n} (fin n) => [n] -> [n] -// testA x = propguards -// | n - n == 0 => x - -// FAILS -// testB : {m, n, l} [n] -> [n] -// testB x = propguards -// | (m - n == l) => x - -test : {m, n, l} (fin n, m >= n, m - n == l) => [n] -> [n] -test x = x \ No newline at end of file diff --git a/tests/constraint-guards/Test3.cry b/tests/constraint-guards/Test3.cry deleted file mode 100644 index a71a23288..000000000 --- a/tests/constraint-guards/Test3.cry +++ /dev/null @@ -1,4 +0,0 @@ -test : {n, a} [n]a -> Integer -test x - | (n - 1 >= 0, n >= 1) => 0 - | n == n => 1 \ No newline at end of file diff --git a/tests/constraint-guards/Test4.cry b/tests/constraint-guards/Test4.cry deleted file mode 100644 index 3bc1cf3a2..000000000 --- a/tests/constraint-guards/Test4.cry +++ /dev/null @@ -1,16 +0,0 @@ -test : {n, a} [n]a -> Bit -test x - | (n - 5 >= 0, n >= 5) => True - | 0 == 0 => False - -property test_True = - (test [1..5] == True) && - (test [1..6] == True) && - (test [1..7] == True) && - (test [1..8] == True) - -property test_False = - (test [1..1] == False) && - (test [1..2] == False) && - (test [1..3] == False) && - (test [1..4] == False) From 38c72b2815181530b20a3932a34670266ac2f4f8 Mon Sep 17 00:00:00 2001 From: Henry Blanchette Date: Mon, 15 Aug 2022 13:18:16 -0700 Subject: [PATCH 061/125] type in filename [ci skip] --- tests/constraint-guards/{Mergesory.cry => Mergesort.cry} | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) rename tests/constraint-guards/{Mergesory.cry => Mergesort.cry} (97%) diff --git a/tests/constraint-guards/Mergesory.cry b/tests/constraint-guards/Mergesort.cry similarity index 97% rename from tests/constraint-guards/Mergesory.cry rename to tests/constraint-guards/Mergesort.cry index 0a3b2e4db..0bdf15bb5 100644 --- a/tests/constraint-guards/Mergesory.cry +++ b/tests/constraint-guards/Mergesort.cry @@ -25,4 +25,4 @@ property sort_correct = (sort [9, 9, 8, -3, 1, 1, -6, -6, -8] == [-8, -6, -6, -3, 1, 1, 8, 9, 9]) && (sort [9, 1, 5, 0] == [0, 1, 5, 9]) && (sort [8, 3, 3] == [3, 3, 8]) && - (sort [-7, 8] == [-7, 8]) \ No newline at end of file + sort [-7, 8] == [-7, 8] \ No newline at end of file From 29542472996fba2ebcafa465a292909e8643461c Mon Sep 17 00:00:00 2001 From: Henry Blanchette Date: Mon, 15 Aug 2022 14:46:25 -0700 Subject: [PATCH 062/125] new test: insert --- tests/constraint-guards/Insert.cry | 28 ++++++++++++++++++++++++++++ 1 file changed, 28 insertions(+) create mode 100644 tests/constraint-guards/Insert.cry diff --git a/tests/constraint-guards/Insert.cry b/tests/constraint-guards/Insert.cry new file mode 100644 index 000000000..f5ab79738 --- /dev/null +++ b/tests/constraint-guards/Insert.cry @@ -0,0 +1,28 @@ +// assumes that `xs` is sorted +insert : {n, a} (fin n, Cmp a) => a -> [n]a -> [n+1]a +insert x' xs + | n == 0 => [x'] + | n == 1 => if x' <= x then [x', x] else [x, x'] + where [x] = xs + | ( n % 2 == 0 + , n > 1 ) => if x' <= x + then insert x' (xs1 # [x]) # xs2 + else xs1 # [x] # insert x' xs2 + where (xs1 : [n/2 - 1]_) # [x] # (xs2 : [n/2]_) = xs + | ( n % 2 == 1 + , n > 1 ) => if x' <= x + then insert x' (xs1 # [x]) # xs2 + else xs1 # [x] # insert x' xs2 + where (xs1 : [n/2]_) # [x] # (xs2 : [n/2]_) = xs + +property insert_correct = + (insert 0 [ 1,2,3,4,5,6,7,8,9] == [0,1,2,3,4,5,6,7,8,9]) && + (insert 1 [0, 2,3,4,5,6,7,8,9] == [0,1,2,3,4,5,6,7,8,9]) && + (insert 2 [0,1, 3,4,5,6,7,8,9] == [0,1,2,3,4,5,6,7,8,9]) && + (insert 3 [0,1,2, 4,5,6,7,8,9] == [0,1,2,3,4,5,6,7,8,9]) && + (insert 4 [0,1,2,3, 5,6,7,8,9] == [0,1,2,3,4,5,6,7,8,9]) && + (insert 5 [0,1,2,3,4, 6,7,8,9] == [0,1,2,3,4,5,6,7,8,9]) && + (insert 6 [0,1,2,3,4,5, 7,8,9] == [0,1,2,3,4,5,6,7,8,9]) && + (insert 7 [0,1,2,3,4,5,6, 8,9] == [0,1,2,3,4,5,6,7,8,9]) && + (insert 8 [0,1,2,3,4,5,6,7, 9] == [0,1,2,3,4,5,6,7,8,9]) && + (insert 9 [0,1,2,3,4,5,6,7,8 ] == [0,1,2,3,4,5,6,7,8,9]) From 556e12f746644bb2e172fd2b9101ae698c0e8cc9 Mon Sep 17 00:00:00 2001 From: Henry Blanchette Date: Mon, 15 Aug 2022 14:48:13 -0700 Subject: [PATCH 063/125] [ci skip] From cc15341f5183cfa72fd1a63f04b24fcbfe7435c7 Mon Sep 17 00:00:00 2001 From: Henry Blanchette Date: Wed, 17 Aug 2022 10:32:00 -0700 Subject: [PATCH 064/125] removed comment --- src/Cryptol/Version.hs | 1 - 1 file changed, 1 deletion(-) diff --git a/src/Cryptol/Version.hs b/src/Cryptol/Version.hs index 38809b324..ad439e899 100644 --- a/src/Cryptol/Version.hs +++ b/src/Cryptol/Version.hs @@ -6,7 +6,6 @@ -- Stability : provisional -- Portability : portable --- {-# LANGUAGE Safe #-} {-# LANGUAGE CPP #-} {-# LANGUAGE Safe #-} From a78e6a33e25e227dfff0a2d8750a83494daf36b3 Mon Sep 17 00:00:00 2001 From: Henry Blanchette Date: Wed, 17 Aug 2022 10:48:17 -0700 Subject: [PATCH 065/125] added field Schema of EPropGuards --- src/Cryptol/Eval.hs | 2 +- src/Cryptol/Eval/Reference.lhs | 2 +- src/Cryptol/IR/FreeVars.hs | 2 +- src/Cryptol/ModuleSystem/InstantiateModule.hs | 2 +- src/Cryptol/Transform/AddModParams.hs | 2 +- src/Cryptol/Transform/MonoValues.hs | 2 +- src/Cryptol/Transform/Specialize.hs | 2 +- src/Cryptol/TypeCheck/AST.hs | 4 ++-- src/Cryptol/TypeCheck/Infer.hs | 6 ++++-- src/Cryptol/TypeCheck/Parseable.hs | 2 +- src/Cryptol/TypeCheck/Sanity.hs | 8 +++++--- src/Cryptol/TypeCheck/Subst.hs | 2 +- src/Cryptol/TypeCheck/TypeOf.hs | 11 +++++++---- 13 files changed, 27 insertions(+), 20 deletions(-) diff --git a/src/Cryptol/Eval.hs b/src/Cryptol/Eval.hs index f6ba37514..edcb627a2 100644 --- a/src/Cryptol/Eval.hs +++ b/src/Cryptol/Eval.hs @@ -218,7 +218,7 @@ evalExpr sym env expr = case expr of env' <- evalDecls sym ds env evalExpr sym env' e - EPropGuards guards -> {-# SCC "evalExpr->EPropGuards" #-} do + EPropGuards guards _ -> {-# SCC "evalExpr->EPropGuards" #-} do -- let -- evalPropGuard (props, e) = do -- if and $ checkProp . evalProp env <$> props diff --git a/src/Cryptol/Eval/Reference.lhs b/src/Cryptol/Eval/Reference.lhs index c56b2f6ec..39c6d24a3 100644 --- a/src/Cryptol/Eval/Reference.lhs +++ b/src/Cryptol/Eval/Reference.lhs @@ -333,7 +333,7 @@ assigns values to those variables. > EProofApp e -> evalExpr env e > EWhere e dgs -> evalExpr (foldl evalDeclGroup env dgs) e > -> EPropGuards _guards -> error "unimplemented: `evalExpr (EPropGuards _)`" -- TODO +> EPropGuards _guards _schema -> error "unimplemented: `evalExpr (EPropGuards _)`" -- TODO > appFun :: E Value -> E Value -> E Value > appFun f v = f >>= \f' -> fromVFun f' v diff --git a/src/Cryptol/IR/FreeVars.hs b/src/Cryptol/IR/FreeVars.hs index 70d6fcab0..1d44f2ff3 100644 --- a/src/Cryptol/IR/FreeVars.hs +++ b/src/Cryptol/IR/FreeVars.hs @@ -117,7 +117,7 @@ instance FreeVars Expr where EProofAbs p e -> freeVars p <> freeVars e EProofApp e -> freeVars e EWhere e ds -> foldFree ds <> rmVals (defs ds) (freeVars e) - EPropGuards guards -> mconcat $ freeVars <$> (snd <$> guards) + EPropGuards guards _ -> mconcat $ freeVars <$> (snd <$> guards) where foldFree :: (FreeVars a, Defs a) => [a] -> Deps foldFree = foldr updateFree mempty diff --git a/src/Cryptol/ModuleSystem/InstantiateModule.hs b/src/Cryptol/ModuleSystem/InstantiateModule.hs index 30d1e5f75..3c6bb49fb 100644 --- a/src/Cryptol/ModuleSystem/InstantiateModule.hs +++ b/src/Cryptol/ModuleSystem/InstantiateModule.hs @@ -219,7 +219,7 @@ instance Inst Expr where -- this doesn't exist in the new module system, so it will have to be -- implemented differently there anyway - EPropGuards _guards -> EPropGuards undefined + EPropGuards _guards _schema -> panic "inst" ["This is not implemented for EPropGuards yet."] instance Inst DeclGroup where diff --git a/src/Cryptol/Transform/AddModParams.hs b/src/Cryptol/Transform/AddModParams.hs index 163f16af4..ced5c25c7 100644 --- a/src/Cryptol/Transform/AddModParams.hs +++ b/src/Cryptol/Transform/AddModParams.hs @@ -259,7 +259,7 @@ instance Inst Expr where _ -> EProofApp (inst ps e1) EWhere e dgs -> EWhere (inst ps e) (inst ps dgs) - EPropGuards guards -> EPropGuards (second (inst ps) <$> guards) + EPropGuards guards schema -> EPropGuards (second (inst ps) <$> guards) schema instance Inst Match where diff --git a/src/Cryptol/Transform/MonoValues.hs b/src/Cryptol/Transform/MonoValues.hs index bfc7dbc0c..91b29f150 100644 --- a/src/Cryptol/Transform/MonoValues.hs +++ b/src/Cryptol/Transform/MonoValues.hs @@ -201,7 +201,7 @@ rewE rews = go EWhere e dgs -> EWhere <$> go e <*> inLocal (mapM (rewDeclGroup rews) dgs) - EPropGuards guards -> EPropGuards <$> (\(props, e) -> (,) <$> pure props <*> go e) `traverse` guards + EPropGuards guards schema -> EPropGuards <$> (\(props, e) -> (,) <$> pure props <*> go e) `traverse` guards <*> pure schema rewM :: RewMap -> Match -> M Match diff --git a/src/Cryptol/Transform/Specialize.hs b/src/Cryptol/Transform/Specialize.hs index 5ce0db3d6..4af0d71c9 100644 --- a/src/Cryptol/Transform/Specialize.hs +++ b/src/Cryptol/Transform/Specialize.hs @@ -102,7 +102,7 @@ specializeExpr expr = EProofAbs p e -> EProofAbs p <$> specializeExpr e EProofApp {} -> specializeConst expr EWhere e dgs -> specializeEWhere e dgs - EPropGuards guards -> EPropGuards <$> (\(props, e) -> (,) <$> pure props <*> specializeExpr e) `traverse` guards + EPropGuards guards schema -> EPropGuards <$> (\(props, e) -> (,) <$> pure props <*> specializeExpr e) `traverse` guards <*> pure schema specializeMatch :: Match -> SpecM Match specializeMatch (From qn l t e) = From qn l t <$> specializeExpr e diff --git a/src/Cryptol/TypeCheck/AST.hs b/src/Cryptol/TypeCheck/AST.hs index 3b28ffd4a..c58cf7683 100644 --- a/src/Cryptol/TypeCheck/AST.hs +++ b/src/Cryptol/TypeCheck/AST.hs @@ -150,7 +150,7 @@ data Expr = EList [Expr] Type -- ^ List value (with type of elements) | EWhere Expr [DeclGroup] - | EPropGuards [([Prop], Expr)] + | EPropGuards [([Prop], Expr)] Schema deriving (Show, Generic, NFData) @@ -270,7 +270,7 @@ instance PP (WithNames Expr) where , hang "where" 2 (vcat (map ppW ds)) ] - EPropGuards guards -> + EPropGuards guards _ -> parens (text "propguard" <+> hsep (ppGuard <$> guards)) where ppGuard (props, e) = pipe <+> commaSep (pp <$> props) <+> text "=>" <+> pp e diff --git a/src/Cryptol/TypeCheck/Infer.hs b/src/Cryptol/TypeCheck/Infer.hs index 643c8b2a1..73dd7f169 100644 --- a/src/Cryptol/TypeCheck/Infer.hs +++ b/src/Cryptol/TypeCheck/Infer.hs @@ -1167,12 +1167,14 @@ checkSigB b (Forall as asmps0 t0, validSchema) = -- necessarily hold recordWarning (NonExhaustivePropGuards name) + let schema = Forall as asmps1 t1 + return Decl { dName = name - , dSignature = Forall as asmps1 t1 + , dSignature = schema , dDefinition = DExpr (foldr ETAbs - (foldr EProofAbs (EPropGuards cases1) asmps1) as) + (foldr EProofAbs (EPropGuards cases1 schema) asmps1) as) , dPragmas = P.bPragmas b , dInfix = P.bInfix b , dFixity = P.bFixity b diff --git a/src/Cryptol/TypeCheck/Parseable.hs b/src/Cryptol/TypeCheck/Parseable.hs index 35580584a..3cf244784 100644 --- a/src/Cryptol/TypeCheck/Parseable.hs +++ b/src/Cryptol/TypeCheck/Parseable.hs @@ -64,7 +64,7 @@ instance ShowParseable Expr where showParseable (EProofAbs {-p-}_ e) = showParseable e --"(EProofAbs " ++ show p ++ showParseable e ++ ")" showParseable (EProofApp e) = showParseable e --"(EProofApp " ++ showParseable e ++ ")" - showParseable (EPropGuards guards) = parens (text "EPropGuards" $$ showParseable guards) + showParseable (EPropGuards guards _) = parens (text "EPropGuards" $$ showParseable guards) instance (ShowParseable a, ShowParseable b) => ShowParseable (a,b) where showParseable (x,y) = parens (showParseable x <> comma <> showParseable y) diff --git a/src/Cryptol/TypeCheck/Sanity.hs b/src/Cryptol/TypeCheck/Sanity.hs index a4c56e4e6..839416e0d 100644 --- a/src/Cryptol/TypeCheck/Sanity.hs +++ b/src/Cryptol/TypeCheck/Sanity.hs @@ -271,9 +271,11 @@ exprSchema expr = in go dgs - EPropGuards _guards -> panic "exprSchema" - [ "Since `EPropGuards` should (currently) only appear at the top level, " ++ - "it should never be the argument to `exprSchema`." ] + EPropGuards _guards schema -> pure schema + -- TODO: remove + -- panic "exprSchema" + -- [ "Since `EPropGuards` should (currently) only appear at the top level, " ++ + -- "it should never be the argument to `exprSchema`." ] checkHas :: Type -> Selector -> TcM Type diff --git a/src/Cryptol/TypeCheck/Subst.hs b/src/Cryptol/TypeCheck/Subst.hs index d2f5df13b..8cefc57c1 100644 --- a/src/Cryptol/TypeCheck/Subst.hs +++ b/src/Cryptol/TypeCheck/Subst.hs @@ -391,7 +391,7 @@ instance TVars Expr where EWhere e ds -> EWhere !$ (go e) !$ (apSubst su ds) - EPropGuards guards -> EPropGuards !$ (\(props, e) -> (apSubst su `fmap'` props, apSubst su e)) `fmap'` guards + EPropGuards guards schema -> EPropGuards !$ (\(props, e) -> (apSubst su `fmap'` props, apSubst su e)) `fmap'` guards .$ schema instance TVars Match where apSubst su (From x len t e) = From x !$ (apSubst su len) !$ (apSubst su t) !$ (apSubst su e) diff --git a/src/Cryptol/TypeCheck/TypeOf.hs b/src/Cryptol/TypeCheck/TypeOf.hs index 75ae3354b..54de3ab98 100644 --- a/src/Cryptol/TypeCheck/TypeOf.hs +++ b/src/Cryptol/TypeCheck/TypeOf.hs @@ -43,7 +43,7 @@ fastTypeOf tyenv expr = Just (_, t) -> t Nothing -> panic "Cryptol.TypeCheck.TypeOf.fastTypeOf" [ "EApp with non-function operator" ] - EPropGuards guards -> case guards of + EPropGuards guards _ -> case guards of ((_props, e):_) -> fastTypeOf tyenv e [] -> error "fastTypOf empty EPropGuards" -- Polymorphic fragment @@ -116,9 +116,12 @@ fastSchemaOf tyenv expr = EAbs {} -> monomorphic -- PropGuards - EPropGuards [] -> panic "Cryptol.TypeCheck.TypeOf.fastSchemaOf" - [ "EPropGuards with no guards" ] - EPropGuards ((_, e):_) -> fastSchemaOf tyenv e + EPropGuards [] schema -> schema + -- TODO: remove + -- panic "Cryptol.TypeCheck.TypeOf.fastSchemaOf" + -- [ "EPropGuards with no guards" ] + EPropGuards ((_, e):_) schema -> schema + -- TODO: remove -- fastSchemaOf tyenv e where monomorphic = Forall [] [] (fastTypeOf tyenv expr) From fd0df8bbf63fb2638d5f30c2969c358be2a310d5 Mon Sep 17 00:00:00 2001 From: Henry Blanchette Date: Wed, 17 Aug 2022 10:51:41 -0700 Subject: [PATCH 066/125] making use of EPropGuards' schema --- src/Cryptol/TypeCheck/TypeOf.hs | 13 ++++--------- 1 file changed, 4 insertions(+), 9 deletions(-) diff --git a/src/Cryptol/TypeCheck/TypeOf.hs b/src/Cryptol/TypeCheck/TypeOf.hs index 54de3ab98..e33e67f94 100644 --- a/src/Cryptol/TypeCheck/TypeOf.hs +++ b/src/Cryptol/TypeCheck/TypeOf.hs @@ -9,6 +9,7 @@ {-# LANGUAGE Safe #-} {-# LANGUAGE ViewPatterns #-} {-# LANGUAGE PatternGuards #-} +{-# LANGUAGE NamedFieldPuns #-} module Cryptol.TypeCheck.TypeOf ( fastTypeOf , fastSchemaOf @@ -43,9 +44,7 @@ fastTypeOf tyenv expr = Just (_, t) -> t Nothing -> panic "Cryptol.TypeCheck.TypeOf.fastTypeOf" [ "EApp with non-function operator" ] - EPropGuards guards _ -> case guards of - ((_props, e):_) -> fastTypeOf tyenv e - [] -> error "fastTypOf empty EPropGuards" + EPropGuards _guards Forall {sType} -> sType -- Polymorphic fragment EVar {} -> polymorphic ETAbs {} -> polymorphic @@ -114,14 +113,10 @@ fastSchemaOf tyenv expr = EComp {} -> monomorphic EApp {} -> monomorphic EAbs {} -> monomorphic - + -- PropGuards EPropGuards [] schema -> schema - -- TODO: remove - -- panic "Cryptol.TypeCheck.TypeOf.fastSchemaOf" - -- [ "EPropGuards with no guards" ] - EPropGuards ((_, e):_) schema -> schema - -- TODO: remove -- fastSchemaOf tyenv e + EPropGuards _ schema -> schema where monomorphic = Forall [] [] (fastTypeOf tyenv expr) From e4e242be1601ef2a7f98d9c08911e7161cd9a138 Mon Sep 17 00:00:00 2001 From: Henry Blanchette Date: Wed, 17 Aug 2022 10:52:03 -0700 Subject: [PATCH 067/125] dont need LambdaCase --- src/Cryptol/TypeCheck/TCon.hs | 1 - 1 file changed, 1 deletion(-) diff --git a/src/Cryptol/TypeCheck/TCon.hs b/src/Cryptol/TypeCheck/TCon.hs index ab3b5ee91..f4a8df4e9 100644 --- a/src/Cryptol/TypeCheck/TCon.hs +++ b/src/Cryptol/TypeCheck/TCon.hs @@ -1,5 +1,4 @@ {-# Language OverloadedStrings, DeriveGeneric, DeriveAnyClass, Safe #-} -{-# LANGUAGE LambdaCase #-} module Cryptol.TypeCheck.TCon where import qualified Data.Map as Map From 03f6b4c16fe04c531d747a778cc3a2c70a6fcc0d Mon Sep 17 00:00:00 2001 From: Henry Blanchette Date: Wed, 17 Aug 2022 10:52:31 -0700 Subject: [PATCH 068/125] no need to panic --- src/Cryptol/TypeCheck/Sanity.hs | 5 ----- 1 file changed, 5 deletions(-) diff --git a/src/Cryptol/TypeCheck/Sanity.hs b/src/Cryptol/TypeCheck/Sanity.hs index 839416e0d..f8dec80a4 100644 --- a/src/Cryptol/TypeCheck/Sanity.hs +++ b/src/Cryptol/TypeCheck/Sanity.hs @@ -272,11 +272,6 @@ exprSchema expr = EPropGuards _guards schema -> pure schema - -- TODO: remove - -- panic "exprSchema" - -- [ "Since `EPropGuards` should (currently) only appear at the top level, " ++ - -- "it should never be the argument to `exprSchema`." ] - checkHas :: Type -> Selector -> TcM Type checkHas t sel = From 11e943db4ec31099ed1d2cc8d37f41e8630d8559 Mon Sep 17 00:00:00 2001 From: Henry Blanchette Date: Wed, 17 Aug 2022 10:55:11 -0700 Subject: [PATCH 069/125] remove old comments --- src/Cryptol/Eval.hs | 10 ---------- 1 file changed, 10 deletions(-) diff --git a/src/Cryptol/Eval.hs b/src/Cryptol/Eval.hs index edcb627a2..d4ea296c7 100644 --- a/src/Cryptol/Eval.hs +++ b/src/Cryptol/Eval.hs @@ -219,22 +219,12 @@ evalExpr sym env expr = case expr of evalExpr sym env' e EPropGuards guards _ -> {-# SCC "evalExpr->EPropGuards" #-} do - -- let - -- evalPropGuard (props, e) = do - -- if and $ checkProp . evalProp env <$> props - -- then Just <$> evalExpr sym env e - -- else pure Nothing let checkedGuards = first (and . (checkProp . evalProp env <$>)) <$> guards case find fst checkedGuards of Nothing -> raiseError sym (NoMatchingPropGuardCase $ "Available prop guards: `" ++ show (fmap pp . fst <$> guards) ++ "`") Just (_, e) -> eval e - - -- (\case - -- Just val -> pure val - -- Nothing -> evalPanic "evalExpr" ["no guard case was satisfied"]) . - -- -- raiseError where From 311527059968ac073f4aecf8e1560ec63413aa0e Mon Sep 17 00:00:00 2001 From: Henry Blanchette Date: Wed, 17 Aug 2022 10:56:17 -0700 Subject: [PATCH 070/125] redundant import --- src/Cryptol/TypeCheck/Sanity.hs | 1 - 1 file changed, 1 deletion(-) diff --git a/src/Cryptol/TypeCheck/Sanity.hs b/src/Cryptol/TypeCheck/Sanity.hs index f8dec80a4..3e4c11a12 100644 --- a/src/Cryptol/TypeCheck/Sanity.hs +++ b/src/Cryptol/TypeCheck/Sanity.hs @@ -29,7 +29,6 @@ import qualified Control.Applicative as A import Data.Map ( Map ) import qualified Data.Map as Map -import Cryptol.Utils.Panic (panic) tcExpr :: InferInput -> Expr -> Either (Range, Error) (Schema, [ ProofObligation ]) From 70ca677079e30a17e9309635c8f0ffed933a17a6 Mon Sep 17 00:00:00 2001 From: Henry Blanchette Date: Wed, 17 Aug 2022 11:05:46 -0700 Subject: [PATCH 071/125] specializeExpr EPropGuards --- src/Cryptol/Eval.hs | 3 ++- src/Cryptol/Transform/Specialize.hs | 10 +++++++++- 2 files changed, 11 insertions(+), 2 deletions(-) diff --git a/src/Cryptol/Eval.hs b/src/Cryptol/Eval.hs index d4ea296c7..05b977bbd 100644 --- a/src/Cryptol/Eval.hs +++ b/src/Cryptol/Eval.hs @@ -36,6 +36,7 @@ module Cryptol.Eval ( , Unsupported(..) , WordTooWide(..) , forceValue + , checkProp ) where import Cryptol.Backend @@ -245,7 +246,7 @@ checkProp = \case -- TODO: instantiate UniqueFactorization for Nat'? -- PC PPrime | [n] <- ns -> isJust (isPrime n) PC PTrue -> True - pc -> evalPanic "evalProp" ["cannot use this as a guarding constraint: ", show . pp $ TCon tcon ts ] + _ -> evalPanic "evalProp" ["cannot use this as a guarding constraint: ", show . pp $ TCon tcon ts ] prop -> evalPanic "evalProp" ["cannot use this as a guarding constraint: ", show . pp $ prop ] where toNat' :: Prop -> Nat' diff --git a/src/Cryptol/Transform/Specialize.hs b/src/Cryptol/Transform/Specialize.hs index 4af0d71c9..7e0b6b4b7 100644 --- a/src/Cryptol/Transform/Specialize.hs +++ b/src/Cryptol/Transform/Specialize.hs @@ -19,10 +19,12 @@ import qualified Cryptol.ModuleSystem as M import qualified Cryptol.ModuleSystem.Env as M import qualified Cryptol.ModuleSystem.Monad as M import Cryptol.ModuleSystem.Name +import Cryptol.Eval (checkProp) import Data.Map (Map) import qualified Data.Map as Map import Data.Maybe (catMaybes) +import qualified Data.List as List import MonadLib hiding (mapM) @@ -102,7 +104,13 @@ specializeExpr expr = EProofAbs p e -> EProofAbs p <$> specializeExpr e EProofApp {} -> specializeConst expr EWhere e dgs -> specializeEWhere e dgs - EPropGuards guards schema -> EPropGuards <$> (\(props, e) -> (,) <$> pure props <*> specializeExpr e) `traverse` guards <*> pure schema + -- The type should be monomorphic, and the guarded expressions should + -- already be normalized, so we just need to choose the first expression + -- that's true. + EPropGuards guards _schema -> + case List.find (all checkProp . fst) guards of + Just (_, e) -> specializeExpr e + Nothing -> fail "no guard constraint was satisfied" specializeMatch :: Match -> SpecM Match specializeMatch (From qn l t e) = From qn l t <$> specializeExpr e From 929cf7f19cf946dc6813c2b24881fdb84f5d0e70 Mon Sep 17 00:00:00 2001 From: Henry Blanchette Date: Wed, 17 Aug 2022 11:09:01 -0700 Subject: [PATCH 072/125] added range --- src/Cryptol/Parser/ParserUtils.hs | 8 +++----- 1 file changed, 3 insertions(+), 5 deletions(-) diff --git a/src/Cryptol/Parser/ParserUtils.hs b/src/Cryptol/Parser/ParserUtils.hs index 9f6ad507e..062dc64cd 100644 --- a/src/Cryptol/Parser/ParserUtils.hs +++ b/src/Cryptol/Parser/ParserUtils.hs @@ -27,6 +27,7 @@ import Data.Text(Text) import qualified Data.Text as T import qualified Data.Map as Map import Text.Read(readMaybe) +import Data.Bifunctor(second) import GHC.Generics (Generic) import Control.DeepSeq @@ -615,8 +616,7 @@ mkIndexedPropGuardsDecl :: mkIndexedPropGuardsDecl f (ps, ixs) guards = DBind Bind { bName = f , bParams = reverse ps - -- TODO: add range properly - , bDef = Located emptyRange (DPropGuards guards') + , bDef = at f $ Located emptyRange (DPropGuards guards') , bSignature = Nothing , bPragmas = [] , bMono = False @@ -626,9 +626,7 @@ mkIndexedPropGuardsDecl f (ps, ixs) guards = , bExport = Public } where - -- TODO: need to do anything to `props`? - -- guards' :: [([Prop name], Expr name)] - guards' = (\(props, e) -> (props, mkGenerate (reverse ixs) e)) <$> guards + guards' = second (mkGenerate (reverse ixs)) <$> guards -- NOTE: The lists of patterns are reversed! mkIndexedExpr :: ([Pattern PName], [Pattern PName]) -> Expr PName -> Expr PName From 8a1af2b1570ae1577d85800f9b05c819eaa3702c Mon Sep 17 00:00:00 2001 From: Henry Blanchette Date: Wed, 17 Aug 2022 11:11:18 -0700 Subject: [PATCH 073/125] cleaned up syntax --- src/Cryptol/Parser/Names.hs | 2 +- src/Cryptol/TypeCheck/Infer.hs | 4 ++-- 2 files changed, 3 insertions(+), 3 deletions(-) diff --git a/src/Cryptol/Parser/Names.hs b/src/Cryptol/Parser/Names.hs index 72b35805d..886e88521 100644 --- a/src/Cryptol/Parser/Names.hs +++ b/src/Cryptol/Parser/Names.hs @@ -67,7 +67,7 @@ namesDef :: Ord name => BindDef name -> Set name namesDef DPrim = Set.empty namesDef DForeign = Set.empty namesDef (DExpr e) = namesE e -namesDef (DPropGuards guards) = mconcat . fmap (\(_props, e) -> namesE e) $ guards +namesDef (DPropGuards guards) = Set.unions [ namesE e | (_, e) <- guards ] -- | The names used by an expression. diff --git a/src/Cryptol/TypeCheck/Infer.hs b/src/Cryptol/TypeCheck/Infer.hs index 73dd7f169..b1b3d9c77 100644 --- a/src/Cryptol/TypeCheck/Infer.hs +++ b/src/Cryptol/TypeCheck/Infer.hs @@ -993,7 +993,7 @@ checkSigB b (Forall as asmps0 t0, validSchema) = case thing (P.bDef b) of -- XXX what should we do with validSchema in this case? - P.DPrim -> do + P.DPrim -> return Decl { dName = name , dSignature = Forall as asmps0 t0 @@ -1050,7 +1050,7 @@ checkSigB b (Forall as asmps0 t0, validSchema) = , dDoc = P.bDoc b } - P.DPropGuards cases0 -> do + P.DPropGuards cases0 -> inRangeMb (getLoc b) $ withTParams as $ do asmps1 <- applySubstPreds asmps0 From 26e54a9e9cab3c7bfd0a32655d5f41efab50ac34 Mon Sep 17 00:00:00 2001 From: Henry Blanchette Date: Wed, 17 Aug 2022 11:17:55 -0700 Subject: [PATCH 074/125] better parsing propguards --- src/Cryptol/Parser.y | 13 ++++--------- 1 file changed, 4 insertions(+), 9 deletions(-) diff --git a/src/Cryptol/Parser.y b/src/Cryptol/Parser.y index 375fcc97d..b632edf48 100644 --- a/src/Cryptol/Parser.y +++ b/src/Cryptol/Parser.y @@ -302,18 +302,13 @@ mbDoc :: { Maybe (Located Text) } : doc { Just $1 } | {- empty -} { Nothing } --- propguards :: { [([Prop PName], Expr PName)] } --- : 'propguards' '|' propguards_cases { $3 } - propguards_cases :: { [([Prop PName], Expr PName)] } - : propguards_case '|' propguards_cases { $1 ++ $3 } + : propguards_case propguards_cases { $1 ++ $2 } | propguards_case { $1 } propguards_case :: { [([Prop PName], Expr PName)] } - : propguards_quals '=>' expr { [($1, $3)] } + : '|' propguards_quals '=>' expr { [($2, $4)] } --- TODO: support multiple, or is that handles just as pairs or something? --- I think that mkProp handles parsing pairs propguards_quals :: { [Prop PName] } : type {% fmap thing (mkProp $1) } @@ -321,8 +316,8 @@ decl :: { Decl PName } : vars_comma ':' schema { at (head $1,$3) $ DSignature (reverse $1) $3 } | ipat '=' expr { at ($1,$3) $ DPatBind $1 $3 } | '(' op ')' '=' expr { at ($1,$5) $ DPatBind (PVar $2) $5 } - | var apats_indices '|' propguards_cases - { mkIndexedPropGuardsDecl $1 $2 $4 } + | var apats_indices propguards_cases + { mkIndexedPropGuardsDecl $1 $2 $3 } | var apats_indices '=' expr { at ($1,$4) $ mkIndexedDecl $1 $2 $4 } From cb9ce9c1ac5f51e5b37393a7030127176ed79014 Mon Sep 17 00:00:00 2001 From: Henry Blanchette Date: Wed, 17 Aug 2022 11:18:38 -0700 Subject: [PATCH 075/125] comment --- src/Cryptol/ModuleSystem/InstantiateModule.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/Cryptol/ModuleSystem/InstantiateModule.hs b/src/Cryptol/ModuleSystem/InstantiateModule.hs index 3c6bb49fb..c6e5e3f99 100644 --- a/src/Cryptol/ModuleSystem/InstantiateModule.hs +++ b/src/Cryptol/ModuleSystem/InstantiateModule.hs @@ -217,8 +217,8 @@ instance Inst Expr where EProofApp e -> EProofApp (go e) EWhere e ds -> EWhere (go e) (inst env ds) - -- this doesn't exist in the new module system, so it will have to be - -- implemented differently there anyway + -- TODO: this doesn't exist in the new module system, so it will have to + -- be implemented differently there anyway EPropGuards _guards _schema -> panic "inst" ["This is not implemented for EPropGuards yet."] From fb161526e0c35e7f296c07dc95084c75d990a276 Mon Sep 17 00:00:00 2001 From: Henry Blanchette Date: Wed, 17 Aug 2022 11:19:20 -0700 Subject: [PATCH 076/125] clean up syntax --- src/Cryptol/IR/FreeVars.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/Cryptol/IR/FreeVars.hs b/src/Cryptol/IR/FreeVars.hs index 1d44f2ff3..3082b167e 100644 --- a/src/Cryptol/IR/FreeVars.hs +++ b/src/Cryptol/IR/FreeVars.hs @@ -117,7 +117,7 @@ instance FreeVars Expr where EProofAbs p e -> freeVars p <> freeVars e EProofApp e -> freeVars e EWhere e ds -> foldFree ds <> rmVals (defs ds) (freeVars e) - EPropGuards guards _ -> mconcat $ freeVars <$> (snd <$> guards) + EPropGuards guards _ -> mconcat [ freeVars e | (_, e) <- guards ] where foldFree :: (FreeVars a, Defs a) => [a] -> Deps foldFree = foldr updateFree mempty From 0f3e8984c42e1c7164bf1dcff2102f6814118340 Mon Sep 17 00:00:00 2001 From: Henry Blanchette Date: Wed, 17 Aug 2022 11:37:18 -0700 Subject: [PATCH 077/125] evalExpr EPropGuards --- src/Cryptol/Eval/Reference.lhs | 22 +++++++++++++++++++++- src/Cryptol/Transform/Specialize.hs | 2 +- 2 files changed, 22 insertions(+), 2 deletions(-) diff --git a/src/Cryptol/Eval/Reference.lhs b/src/Cryptol/Eval/Reference.lhs index 39c6d24a3..b8183b5cc 100644 --- a/src/Cryptol/Eval/Reference.lhs +++ b/src/Cryptol/Eval/Reference.lhs @@ -10,6 +10,7 @@ > {-# LANGUAGE BlockArguments #-} > {-# LANGUAGE PatternGuards #-} > {-# LANGUAGE LambdaCase #-} +> {-# LANGUAGE NamedFieldPuns #-} > > module Cryptol.Eval.Reference > ( Value(..) @@ -32,6 +33,7 @@ > import LibBF (BigFloat) > import qualified LibBF as FP > import qualified GHC.Num.Compat as Integer +> import qualified Data.List as List > > import Cryptol.ModuleSystem.Name (asPrim) > import Cryptol.TypeCheck.Solver.InfNat (Nat'(..), nAdd, nMin, nMul) @@ -46,6 +48,8 @@ > import Cryptol.Utils.Panic (panic) > import Cryptol.Utils.PP > import Cryptol.Utils.RecordMap +> import Cryptol.Eval (checkProp) +> import Cryptol.Eval.Type (evalType, lookupTypeVar, tNumTy, tValTy) > > import qualified Cryptol.ModuleSystem as M > import qualified Cryptol.ModuleSystem.Env as M (loadedModules,loadedNewtypes) @@ -333,11 +337,27 @@ assigns values to those variables. > EProofApp e -> evalExpr env e > EWhere e dgs -> evalExpr (foldl evalDeclGroup env dgs) e > -> EPropGuards _guards _schema -> error "unimplemented: `evalExpr (EPropGuards _)`" -- TODO +> EPropGuards guards _schema -> +> case List.find (all (checkProp . evalProp env) . fst) guards of +> Just (_, e) -> evalExpr env e +> Nothing -> evalPanic "fromVBit" ["No guard constraint was satisfied"] > appFun :: E Value -> E Value -> E Value > appFun f v = f >>= \f' -> fromVFun f' v +> -- | Evaluates a `Prop` in an `EvalEnv` by substituting all variables +> -- according to `envTypes` and expanding all type synonyms via `tNoUser`. +> evalProp :: Env -> Prop -> Prop +> evalProp env@Env { envTypes } = \case +> TCon tc tys -> TCon tc (toType . evalType envTypes <$> tys) +> TVar tv -> case lookupTypeVar tv envTypes of +> Nothing -> panic "evalProp" ["Could not find type variable `" ++ pretty tv ++ "` in the type evaluation environment"] +> Just either_nat'_tval -> toType either_nat'_tval +> prop@TUser {} -> evalProp env (tNoUser prop) +> prop -> panic "evalProp" ["Cannot use the following as a type constraint: `" ++ pretty prop ++ "`"] +> where +> toType = either tNumTy tValTy + Selectors --------- diff --git a/src/Cryptol/Transform/Specialize.hs b/src/Cryptol/Transform/Specialize.hs index 7e0b6b4b7..e64973d24 100644 --- a/src/Cryptol/Transform/Specialize.hs +++ b/src/Cryptol/Transform/Specialize.hs @@ -110,7 +110,7 @@ specializeExpr expr = EPropGuards guards _schema -> case List.find (all checkProp . fst) guards of Just (_, e) -> specializeExpr e - Nothing -> fail "no guard constraint was satisfied" + Nothing -> fail "No guard constraint was satisfied" specializeMatch :: Match -> SpecM Match specializeMatch (From qn l t e) = From qn l t <$> specializeExpr e From cb87c4fb82636740a5eeb0eef42c7a40edf7ef05 Mon Sep 17 00:00:00 2001 From: Henry Blanchette Date: Wed, 17 Aug 2022 11:44:10 -0700 Subject: [PATCH 078/125] Prop ~~> Type --- src/Cryptol/Eval.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/Cryptol/Eval.hs b/src/Cryptol/Eval.hs index 05b977bbd..4230597a3 100644 --- a/src/Cryptol/Eval.hs +++ b/src/Cryptol/Eval.hs @@ -249,7 +249,7 @@ checkProp = \case _ -> evalPanic "evalProp" ["cannot use this as a guarding constraint: ", show . pp $ TCon tcon ts ] prop -> evalPanic "evalProp" ["cannot use this as a guarding constraint: ", show . pp $ prop ] where - toNat' :: Prop -> Nat' + toNat' :: Type -> Nat' toNat' = \case TCon (TC (TCNum n)) [] -> Nat n TCon (TC TCInf) [] -> Inf From 111684b6b2cff13973b632ddbdf9cfe965439d8a Mon Sep 17 00:00:00 2001 From: Henry Blanchette Date: Wed, 17 Aug 2022 11:44:31 -0700 Subject: [PATCH 079/125] made evalProp more readable --- src/Cryptol/Eval.hs | 7 +++---- 1 file changed, 3 insertions(+), 4 deletions(-) diff --git a/src/Cryptol/Eval.hs b/src/Cryptol/Eval.hs index 4230597a3..c93eb717b 100644 --- a/src/Cryptol/Eval.hs +++ b/src/Cryptol/Eval.hs @@ -261,12 +261,11 @@ checkProp = \case evalProp :: GenEvalEnv sym -> Prop -> Prop evalProp env@EvalEnv { envTypes } = \case TCon tc tys -> TCon tc (toType . evalType envTypes <$> tys) - TVar tv -> case lookupTypeVar tv envTypes of - Nothing -> panic "evalProp" ["Could not find type variable `" ++ pretty tv ++ "` in the type evaluation environment"] - Just either_nat'_tval -> toType either_nat'_tval + TVar tv | Just (toType -> ty) <- lookupTypeVar tv envTypes -> ty prop@TUser {} -> evalProp env (tNoUser prop) + TVar tv | Nothing <- lookupTypeVar tv envTypes -> panic "evalProp" ["Could not find type variable `" ++ pretty tv ++ "` in the type evaluation environment"] prop -> panic "evalProp" ["Cannot use the following as a type constraint: `" ++ pretty prop ++ "`"] - where + where toType = either tNumTy tValTy -- | Capure the current call stack from the evaluation monad and From f54225e1cfc0c6e9de6b7c64be6cf043ad206c63 Mon Sep 17 00:00:00 2001 From: Henry Blanchette Date: Wed, 17 Aug 2022 11:46:16 -0700 Subject: [PATCH 080/125] applied same simplification to Reference's evalProp --- src/Cryptol/Eval/Reference.lhs | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/src/Cryptol/Eval/Reference.lhs b/src/Cryptol/Eval/Reference.lhs index b8183b5cc..9657753f4 100644 --- a/src/Cryptol/Eval/Reference.lhs +++ b/src/Cryptol/Eval/Reference.lhs @@ -11,6 +11,7 @@ > {-# LANGUAGE PatternGuards #-} > {-# LANGUAGE LambdaCase #-} > {-# LANGUAGE NamedFieldPuns #-} +> {-# LANGUAGE ViewPatterns #-} > > module Cryptol.Eval.Reference > ( Value(..) @@ -350,12 +351,11 @@ assigns values to those variables. > evalProp :: Env -> Prop -> Prop > evalProp env@Env { envTypes } = \case > TCon tc tys -> TCon tc (toType . evalType envTypes <$> tys) -> TVar tv -> case lookupTypeVar tv envTypes of -> Nothing -> panic "evalProp" ["Could not find type variable `" ++ pretty tv ++ "` in the type evaluation environment"] -> Just either_nat'_tval -> toType either_nat'_tval +> TVar tv | Just (toType -> ty) <- lookupTypeVar tv envTypes -> ty > prop@TUser {} -> evalProp env (tNoUser prop) +> TVar tv | Nothing <- lookupTypeVar tv envTypes -> panic "evalProp" ["Could not find type variable `" ++ pretty tv ++ "` in the type evaluation environment"] > prop -> panic "evalProp" ["Cannot use the following as a type constraint: `" ++ pretty prop ++ "`"] -> where +> where > toType = either tNumTy tValTy From 17a29682e8b5c7fd4e58879b63d2e4c1aefed017 Mon Sep 17 00:00:00 2001 From: Henry Blanchette Date: Wed, 17 Aug 2022 11:48:34 -0700 Subject: [PATCH 081/125] cleaned up syntax --- src/Cryptol/Eval.hs | 13 +++++-------- 1 file changed, 5 insertions(+), 8 deletions(-) diff --git a/src/Cryptol/Eval.hs b/src/Cryptol/Eval.hs index c93eb717b..11e160812 100644 --- a/src/Cryptol/Eval.hs +++ b/src/Cryptol/Eval.hs @@ -69,7 +69,6 @@ import Control.Applicative import Prelude () import Prelude.Compat -import Data.Bifunctor (Bifunctor(first)) type EvalEnv = GenEvalEnv Concrete @@ -220,12 +219,10 @@ evalExpr sym env expr = case expr of evalExpr sym env' e EPropGuards guards _ -> {-# SCC "evalExpr->EPropGuards" #-} do - let checkedGuards = - first (and . (checkProp . evalProp env <$>)) - <$> guards - case find fst checkedGuards of - Nothing -> raiseError sym (NoMatchingPropGuardCase $ "Available prop guards: `" ++ show (fmap pp . fst <$> guards) ++ "`") - Just (_, e) -> eval e + let checkedGuards = [ e | (ps,e) <- guards, all (checkProp . evalProp env) ps ] + case checkedGuards of + (e:_) -> eval e + [] -> raiseError sym (NoMatchingPropGuardCase $ "Available prop guards: `" ++ show (fmap pp . fst <$> guards) ++ "`") where @@ -265,7 +262,7 @@ evalProp env@EvalEnv { envTypes } = \case prop@TUser {} -> evalProp env (tNoUser prop) TVar tv | Nothing <- lookupTypeVar tv envTypes -> panic "evalProp" ["Could not find type variable `" ++ pretty tv ++ "` in the type evaluation environment"] prop -> panic "evalProp" ["Cannot use the following as a type constraint: `" ++ pretty prop ++ "`"] - where + where toType = either tNumTy tValTy -- | Capure the current call stack from the evaluation monad and From d2d92eae7348597b34e49fae5c54f74305861b8a Mon Sep 17 00:00:00 2001 From: Henry Blanchette Date: Fri, 19 Aug 2022 13:43:41 -0700 Subject: [PATCH 082/125] Uncons --- tests/constraint-guards/Uncons.cry | 3 +++ 1 file changed, 3 insertions(+) create mode 100644 tests/constraint-guards/Uncons.cry diff --git a/tests/constraint-guards/Uncons.cry b/tests/constraint-guards/Uncons.cry new file mode 100644 index 000000000..d0e87e164 --- /dev/null +++ b/tests/constraint-guards/Uncons.cry @@ -0,0 +1,3 @@ +tail : {n, a} (fin n) => [n]a -> [(max n 1) - 1]a +tail xs | n == 0 => xs + | n >= 1 => drop `{1} xs \ No newline at end of file From 908ceac2ca4874ef36f455850c021cb49a697e41 Mon Sep 17 00:00:00 2001 From: Henry Blanchette Date: Fri, 19 Aug 2022 13:45:22 -0700 Subject: [PATCH 083/125] delete debug comments --- src/Cryptol/TypeCheck/Infer.hs | 8 -------- 1 file changed, 8 deletions(-) diff --git a/src/Cryptol/TypeCheck/Infer.hs b/src/Cryptol/TypeCheck/Infer.hs index b1b3d9c77..e6c30a895 100644 --- a/src/Cryptol/TypeCheck/Infer.hs +++ b/src/Cryptol/TypeCheck/Infer.hs @@ -1194,15 +1194,9 @@ checkSigB b (Forall as asmps0 t0, validSchema) = addGoals validSchema () <- simplifyAllConstraints -- XXX: using `asmps` also? return e1 - - -- pure $! unsafePerformIO $ putStrLn $ "[*] asmpsSign = " ++ show (pp <$> asmpsSign) -- DEBUG - -- pure $! unsafePerformIO $ putStrLn $ "[*] asmps1 = " ++ show (pp <$> asmps1) -- DEBUG - asmps2 <- applySubstPreds asmps1 cs <- applySubstGoals cs0 - -- pure $! unsafePerformIO $ putStrLn $ "[*] asmps2 = " ++ show (pp <$> asmps2) -- DEBUG - let findKeep vs keep todo = let stays (_,cvs) = not $ Set.null $ Set.intersection vs cvs (yes,perhaps) = partition stays todo @@ -1228,8 +1222,6 @@ checkSigB b (Forall as asmps0 t0, validSchema) = t <- applySubst t0 e2 <- applySubst e1 - -- pure $! unsafePerformIO $ putStrLn $ "[*] asmps = " ++ show (pp <$> asmps) -- DEBUG - pure (t, asmps, e2) -------------------------------------------------------------------------------- From f7dcfe7f579d5098d633a2e058c969d87fd3c1e6 Mon Sep 17 00:00:00 2001 From: Henry Blanchette Date: Fri, 19 Aug 2022 14:03:05 -0700 Subject: [PATCH 084/125] added proper Safe and Trustworthy pragmas --- src/Cryptol/Backend/FFI/Error.hs | 1 + src/Cryptol/TypeCheck/FFI.hs | 1 + src/Cryptol/TypeCheck/FFI/Error.hs | 1 + src/Cryptol/TypeCheck/FFI/FFIType.hs | 1 + src/Cryptol/Version.hs | 1 - 5 files changed, 4 insertions(+), 1 deletion(-) diff --git a/src/Cryptol/Backend/FFI/Error.hs b/src/Cryptol/Backend/FFI/Error.hs index d04a72385..766a48d80 100644 --- a/src/Cryptol/Backend/FFI/Error.hs +++ b/src/Cryptol/Backend/FFI/Error.hs @@ -1,5 +1,6 @@ {-# LANGUAGE DeriveAnyClass #-} {-# LANGUAGE DeriveGeneric #-} +{-# LANGUAGE Trustworthy #-} -- | Errors from dynamic loading of shared libraries for FFI. module Cryptol.Backend.FFI.Error where diff --git a/src/Cryptol/TypeCheck/FFI.hs b/src/Cryptol/TypeCheck/FFI.hs index b4c97b198..0ed11046a 100644 --- a/src/Cryptol/TypeCheck/FFI.hs +++ b/src/Cryptol/TypeCheck/FFI.hs @@ -1,6 +1,7 @@ {-# LANGUAGE BlockArguments #-} {-# LANGUAGE RecordWildCards #-} {-# LANGUAGE ViewPatterns #-} +{-# LANGUAGE Safe #-} -- | Checking and conversion of 'Type's to 'FFIType's. module Cryptol.TypeCheck.FFI diff --git a/src/Cryptol/TypeCheck/FFI/Error.hs b/src/Cryptol/TypeCheck/FFI/Error.hs index 23f942bb8..faa612339 100644 --- a/src/Cryptol/TypeCheck/FFI/Error.hs +++ b/src/Cryptol/TypeCheck/FFI/Error.hs @@ -2,6 +2,7 @@ {-# LANGUAGE DeriveGeneric #-} {-# LANGUAGE FlexibleInstances #-} {-# LANGUAGE OverloadedStrings #-} +{-# LANGUAGE Safe #-} -- | Errors from typechecking foreign functions. module Cryptol.TypeCheck.FFI.Error where diff --git a/src/Cryptol/TypeCheck/FFI/FFIType.hs b/src/Cryptol/TypeCheck/FFI/FFIType.hs index dfd8ef502..c457ec21c 100644 --- a/src/Cryptol/TypeCheck/FFI/FFIType.hs +++ b/src/Cryptol/TypeCheck/FFI/FFIType.hs @@ -1,5 +1,6 @@ {-# LANGUAGE DeriveAnyClass #-} {-# LANGUAGE DeriveGeneric #-} +{-# LANGUAGE Trustworthy #-} -- | This module defines a nicer intermediate representation of Cryptol types -- allowed for the FFI, which the typechecker generates then stores in the AST. diff --git a/src/Cryptol/Version.hs b/src/Cryptol/Version.hs index ad439e899..88c9da67e 100644 --- a/src/Cryptol/Version.hs +++ b/src/Cryptol/Version.hs @@ -7,7 +7,6 @@ -- Portability : portable {-# LANGUAGE CPP #-} -{-# LANGUAGE Safe #-} module Cryptol.Version ( commitHash From f08ddf786528f28d031535094fc1a67d16944c85 Mon Sep 17 00:00:00 2001 From: Henry Blanchette Date: Fri, 19 Aug 2022 14:56:39 -0700 Subject: [PATCH 085/125] refactored checkSigB case P.DPropGuards --- src/Cryptol/TypeCheck/Infer.hs | 166 +++++++++++++-------------------- src/Cryptol/TypeCheck/Type.hs | 53 +++++++++++ 2 files changed, 116 insertions(+), 103 deletions(-) diff --git a/src/Cryptol/TypeCheck/Infer.hs b/src/Cryptol/TypeCheck/Infer.hs index e6c30a895..748fb016c 100644 --- a/src/Cryptol/TypeCheck/Infer.hs +++ b/src/Cryptol/TypeCheck/Infer.hs @@ -1055,108 +1055,39 @@ checkSigB b (Forall as asmps0 t0, validSchema) = withTParams as $ do asmps1 <- applySubstPreds asmps0 t1 <- applySubst t0 - -- Checking each guarded case is the same as checking a DExpr, except - -- that the guarding assumptions are added first. - let checkPropGuardCase :: ([P.Prop Name], P.Expr Name) -> InferM ([Prop], Expr) - checkPropGuardCase (guards0, e0) = do - mb_rng <- case P.bSignature b of - Just (P.Forall _ _ _ mb_rng) -> pure mb_rng - _ -> panic "checkSigB" - [ "Used constraint guards without a signature, dumbwit, at " - , show . pp $ P.bName b ] - -- check guards - (guards1, goals) <- - second concat . unzip <$> - checkPropGuard mb_rng `traverse` guards0 - -- try to prove all goals - su <- proveImplication True (Just name) as (asmps1 <> guards1) goals - extendSubst su - -- Preprends the goals to the constraints, because these must be - -- checked first before the rest of the constraints (during - -- evaluation) to ensure well-definedness, since some - -- constraints make use of partial functions e.g. `a - b` - -- requires `a >= b`. - let guards2 = (goal <$> goals) <> concatMap pSplitAnd (apSubst su guards1) - (_t, guards3, e1) <- checkBindDefExpr asmps1 guards2 e0 - e2 <- applySubst e1 - pure (guards3, e2) - - cases1 <- mapM checkPropGuardCase cases0 - - -- Here, `props` is a conjunction of multiple constraints, and so the - -- negation is the disjunction of the negation of each conjunct i.e. - -- "not (A and B and C) <=> (not A) or (not B) or (not C)". This is - -- one of DeMorgan's laws of boolean logic. Since there are no - -- constraint disjunctions, we encode a disjunction of conjunctions as - -- `[[Prop]]`. For exhaustive checking, each disjunct will need to be - -- checked independently, and all must pass in order to be considered - -- exhaustive. - - let negateSimpleNumProp :: Prop -> Maybe [Prop] - negateSimpleNumProp prop = case prop of - TCon tcon tys -> case tcon of - PC pc -> case pc of - -- not x == y <=> x /= y - PEqual -> pure [TCon (PC PNeq) tys] - -- not x /= y <=> x == y - PNeq -> pure [TCon (PC PEqual) tys] - -- not x >= y <=> x /= y and y >= x - PGeq -> pure [TCon (PC PNeq) tys, TCon (PC PGeq) (reverse tys)] - -- not fin x <=> x == Inf - PFin | [ty] <- tys -> pure [TCon (PC PEqual) [ty, tInf]] - | otherwise -> panicInvalid - -- not True <=> 0 == 1 - PTrue -> pure [TCon (PC PEqual) [tZero, tOne]] - _ -> mempty - TC _tc -> panicInvalid - TF _tf -> panicInvalid - TError _ki -> panicInvalid -- TODO: where does this come from? - TUser _na _tys ty -> negateSimpleNumProp ty - _ -> panicInvalid - where - panicInvalid = tcPanic "checkSigB" - [ "This type shouldn't be a valid type constraint: " ++ - "`" ++ pretty prop ++ "`"] - - negateSimpleNumProps :: [Prop] -> [[Prop]] - negateSimpleNumProps props = do - prop <- props - maybe mempty pure (negateSimpleNumProp prop) - - toGoal :: Prop -> Goal - toGoal prop = - Goal - { goalSource = CtPropGuardsExhaustive name - , goalRange = srcRange $ P.bName b - , goal = prop } - - canProve :: [Prop] -> [Goal] -> InferM Bool - canProve asmps goals = isRight <$> - tryProveImplication (Just name) as asmps goals - - -- Try to prove that the first guard will be satisfied. If cannot, - -- then assume it is false (via `negateSimpleNumProps`) and try to - -- prove that the second guard will be satisfied. If cannot, then - -- assume it is false, and so on. If the last guard cannot be - -- proven in this way, then issue a `NonExhaustivePropGuards` - -- warning. Note that when assuming that a conjunction of multiple - -- constraints is false, this results in a disjunction, and so - -- must check exhaustive under assumption that each disjunct is - -- false independently. - -- - -- TODO: do I have to check all combinations of false/true - -- disjuncts? Or is it satisfactory to just check setting each one - -- to false seperately. - checkExhaustive :: [Prop] -> [[Prop]] -> InferM Bool - checkExhaustive _asmps [] = pure False -- empty GuardProps - checkExhaustive asmps [guard] = do - canProve asmps (toGoal <$> guard) - checkExhaustive asmps (guard : guards) = - canProve asmps (toGoal <$> guard) >>= \case - True -> pure True - False -> and <$> mapM - (\asmps' -> checkExhaustive (asmps <> asmps') guards) - (negateSimpleNumProps guard) + cases1 <- mapM (checkPropGuardCase name asmps1) cases0 + + let + toGoal :: Prop -> Goal + toGoal prop = + Goal + { goalSource = CtPropGuardsExhaustive name + , goalRange = srcRange $ P.bName b + , goal = prop } + + canProve :: [Prop] -> [Goal] -> InferM Bool + canProve asmps goals = isRight <$> + tryProveImplication (Just name) as asmps goals + + -- Try to prove that the first guard will be satisfied. If cannot, + -- then assume it is false (via `negateSimpleNumProps`) and try to + -- prove that the second guard will be satisfied. If cannot, then + -- assume it is false, and so on. If the last guard cannot be proven + -- in this way, then issue a `NonExhaustivePropGuards` warning. Note + -- that when assuming that a conjunction of constraints is false, + -- this results in a disjunction, and so must check exhaustive under + -- assumption that each disjunct is false independently i.e. + -- `checkExhaustive` branches on conjunctions. + checkExhaustive :: [Prop] -> [[Prop]] -> InferM Bool + checkExhaustive _asmps [] = pure False -- empty GuardProps + checkExhaustive asmps [guard] = do + canProve asmps (toGoal <$> guard) + checkExhaustive asmps (guard : guards) = + canProve asmps (toGoal <$> guard) >>= \case + True -> pure True + False -> and <$> mapM + (\asmps' -> checkExhaustive (asmps <> asmps') guards) + (negateSimpleNumProps guard) checkExhaustive asmps1 (fst <$> cases1) >>= \case True -> @@ -1174,7 +1105,10 @@ checkSigB b (Forall as asmps0 t0, validSchema) = , dSignature = schema , dDefinition = DExpr (foldr ETAbs - (foldr EProofAbs (EPropGuards cases1 schema) asmps1) as) + (foldr EProofAbs + (EPropGuards cases1 schema) + asmps1) + as) , dPragmas = P.bPragmas b , dInfix = P.bInfix b , dFixity = P.bFixity b @@ -1224,6 +1158,32 @@ checkSigB b (Forall as asmps0 t0, validSchema) = pure (t, asmps, e2) + -- Checking each guarded case is the same as checking a DExpr, except + -- that the guarding assumptions are added first. + checkPropGuardCase :: Name -> [Prop] -> ([P.Prop Name], P.Expr Name) -> InferM ([Prop], Expr) + checkPropGuardCase name asmps1 (guards0, e0) = do + mb_rng <- case P.bSignature b of + Just (P.Forall _ _ _ mb_rng) -> pure mb_rng + _ -> panic "checkSigB" + [ "Used constraint guards without a signature, dumbwit, at " + , show . pp $ P.bName b ] + -- check guards + (guards1, goals) <- + second concat . unzip <$> + checkPropGuard mb_rng `traverse` guards0 + -- try to prove all goals + su <- proveImplication True (Just name) as (asmps1 <> guards1) goals + extendSubst su + -- Preprends the goals to the constraints, because these must be + -- checked first before the rest of the constraints (during + -- evaluation) to ensure well-definedness, since some + -- constraints make use of partial functions e.g. `a - b` + -- requires `a >= b`. + let guards2 = (goal <$> goals) <> concatMap pSplitAnd (apSubst su guards1) + (_t, guards3, e1) <- checkBindDefExpr asmps1 guards2 e0 + e2 <- applySubst e1 + pure (guards3, e2) + -------------------------------------------------------------------------------- -------------------------------------------------------------------------------- diff --git a/src/Cryptol/TypeCheck/Type.hs b/src/Cryptol/TypeCheck/Type.hs index a0a79bdb5..41fd726f2 100644 --- a/src/Cryptol/TypeCheck/Type.hs +++ b/src/Cryptol/TypeCheck/Type.hs @@ -888,9 +888,62 @@ instance FVS Schema where Set.difference (Set.union (fvs ps) (fvs t)) bound where bound = Set.fromList (map tpVar as) +-- Negation -------------------------------------------------------------------- +{-| +`negateSimpleNumProps` negates a simple prop over numeric type vars. Results in +`Just _` if the input is simple and can be negated, otherwise `Nothing`. +The only simple props are: @(x == y), (x /= y), (x >= y), (fin x), True@, and +any type constraint synonym applications where the type constraint synonym is +defined in terms of only simple props. +The negation of a conjunction of props should result in a disjunction via +DeMorgan's laws. e.g. `(x == y, x == z) => (x /= y) or (x /= z)`. However, +Cryptol currently doesn't support disjunctions in type constraints, so instead +`negateSimpleNumProps` results in a list of lists of props that is understood to +be a disjunction of conjunctions. +-} +{-| +Examples: +@ + [(x == y)] => Just [[(x /= y)]] + [(fin x)] => Just [[(x == inf)]] + [(x <= y)] => Just [[(x >= y), (x /= y)]] + [(x == y, x == z)] => Just [[(x /= y)], [(x /= z)]] +@ +-} +negateSimpleNumProps :: [Prop] -> [[Prop]] +negateSimpleNumProps props = do + prop <- props + maybe mempty pure (negateSimpleNumProp prop) + +negateSimpleNumProp :: Prop -> Maybe [Prop] +negateSimpleNumProp prop = case prop of + TCon tcon tys -> case tcon of + PC pc -> case pc of + -- not x == y <=> x /= y + PEqual -> pure [TCon (PC PNeq) tys] + -- not x /= y <=> x == y + PNeq -> pure [TCon (PC PEqual) tys] + -- not x >= y <=> x /= y and y >= x + PGeq -> pure [TCon (PC PNeq) tys, TCon (PC PGeq) (reverse tys)] + -- not fin x <=> x == Inf + PFin | [ty] <- tys -> pure [TCon (PC PEqual) [ty, tInf]] + | otherwise -> panicInvalid + -- not True <=> 0 == 1 + PTrue -> pure [TCon (PC PEqual) [tZero, tOne]] + -- not simple enough + _ -> mempty + TC _tc -> panicInvalid + TF _tf -> panicInvalid + TError _ki -> Just [prop] -- propogates `TError` + TUser _na _tys ty -> negateSimpleNumProp ty + _ -> panicInvalid + where + panicInvalid = panic "negateSimpleNumProp" + [ "This type shouldn't be a valid type constraint: " ++ + "`" ++ pretty prop ++ "`"] -- Pretty Printing ------------------------------------------------------------- From 5b6cd2a21868c90c2f8d83da3126a60fecb8f2b1 Mon Sep 17 00:00:00 2001 From: Henry Blanchette Date: Fri, 19 Aug 2022 15:01:04 -0700 Subject: [PATCH 086/125] refactor --- src/Cryptol/TypeCheck/Infer.hs | 4 +- src/Cryptol/TypeCheck/Type.hs | 114 ++++++++++++++++----------------- 2 files changed, 59 insertions(+), 59 deletions(-) diff --git a/src/Cryptol/TypeCheck/Infer.hs b/src/Cryptol/TypeCheck/Infer.hs index 748fb016c..dc24efd2e 100644 --- a/src/Cryptol/TypeCheck/Infer.hs +++ b/src/Cryptol/TypeCheck/Infer.hs @@ -1070,7 +1070,7 @@ checkSigB b (Forall as asmps0 t0, validSchema) = tryProveImplication (Just name) as asmps goals -- Try to prove that the first guard will be satisfied. If cannot, - -- then assume it is false (via `negateSimpleNumProps`) and try to + -- then assume it is false (via `pNegNumeric`) and try to -- prove that the second guard will be satisfied. If cannot, then -- assume it is false, and so on. If the last guard cannot be proven -- in this way, then issue a `NonExhaustivePropGuards` warning. Note @@ -1087,7 +1087,7 @@ checkSigB b (Forall as asmps0 t0, validSchema) = True -> pure True False -> and <$> mapM (\asmps' -> checkExhaustive (asmps <> asmps') guards) - (negateSimpleNumProps guard) + (pNegNumeric guard) checkExhaustive asmps1 (fst <$> cases1) >>= \case True -> diff --git a/src/Cryptol/TypeCheck/Type.hs b/src/Cryptol/TypeCheck/Type.hs index 41fd726f2..a0493c48b 100644 --- a/src/Cryptol/TypeCheck/Type.hs +++ b/src/Cryptol/TypeCheck/Type.hs @@ -847,6 +847,63 @@ pPrime ty = where prop = TCon (PC PPrime) [ty] +-- Negation -------------------------------------------------------------------- + +{-| +`pNegNumeric` negates a simple prop over numeric type vars. Results in `Just _` +if the input is simple and can be negated, otherwise `Nothing`. The input list +is understood as a conjunction. + +The only simple props are: @(x == y), (x /= y), (x >= y), (fin x), True@, and +any type constraint synonym applications where the type constraint synonym is +defined in terms of only simple props. + +The negation of a conjunction of props should result in a disjunction via +DeMorgan's laws. e.g. `(x == y, x == z) => (x /= y) or (x /= z)`. However, +Cryptol currently doesn't support disjunctions in type constraints, so instead +`pNegNumeric` results in a list of lists of props that is understood to be a +disjunction of conjunctions. +-} +{-| +Examples: +@ + [(x == y)] => Just [[(x /= y)]] + [(fin x)] => Just [[(x == inf)]] + [(x <= y)] => Just [[(x >= y), (x /= y)]] + [(x == y), (x == z)] => Just [[(x /= y)], [(x /= z)]] +@ +-} +pNegNumeric :: [Prop] -> [[Prop]] +pNegNumeric props = do + prop <- props + maybe mempty pure (pNegNumeric' prop) + where + pNegNumeric' :: Prop -> Maybe [Prop] + pNegNumeric' prop = case prop of + TCon tcon tys -> case tcon of + PC pc -> case pc of + -- not x == y <=> x /= y + PEqual -> pure [TCon (PC PNeq) tys] + -- not x /= y <=> x == y + PNeq -> pure [TCon (PC PEqual) tys] + -- not x >= y <=> x /= y and y >= x + PGeq -> pure [TCon (PC PNeq) tys, TCon (PC PGeq) (reverse tys)] + -- not fin x <=> x == Inf + PFin | [ty] <- tys -> pure [TCon (PC PEqual) [ty, tInf]] + | otherwise -> panicInvalid + -- not True <=> 0 == 1 + PTrue -> pure [TCon (PC PEqual) [tZero, tOne]] + -- not simple enough + _ -> mempty + TC _tc -> panicInvalid + TF _tf -> panicInvalid + TError _ki -> Just [prop] -- propogates `TError` + TUser _na _tys ty -> pNegNumeric' ty + _ -> panicInvalid + where + panicInvalid = panic "pNegNumeric'" + [ "This type shouldn't be a valid type constraint: " ++ + "`" ++ pretty prop ++ "`"] -------------------------------------------------------------------------------- @@ -888,63 +945,6 @@ instance FVS Schema where Set.difference (Set.union (fvs ps) (fvs t)) bound where bound = Set.fromList (map tpVar as) --- Negation -------------------------------------------------------------------- - -{-| -`negateSimpleNumProps` negates a simple prop over numeric type vars. Results in -`Just _` if the input is simple and can be negated, otherwise `Nothing`. - -The only simple props are: @(x == y), (x /= y), (x >= y), (fin x), True@, and -any type constraint synonym applications where the type constraint synonym is -defined in terms of only simple props. - -The negation of a conjunction of props should result in a disjunction via -DeMorgan's laws. e.g. `(x == y, x == z) => (x /= y) or (x /= z)`. However, -Cryptol currently doesn't support disjunctions in type constraints, so instead -`negateSimpleNumProps` results in a list of lists of props that is understood to -be a disjunction of conjunctions. --} -{-| -Examples: -@ - [(x == y)] => Just [[(x /= y)]] - [(fin x)] => Just [[(x == inf)]] - [(x <= y)] => Just [[(x >= y), (x /= y)]] - [(x == y, x == z)] => Just [[(x /= y)], [(x /= z)]] -@ --} -negateSimpleNumProps :: [Prop] -> [[Prop]] -negateSimpleNumProps props = do - prop <- props - maybe mempty pure (negateSimpleNumProp prop) - -negateSimpleNumProp :: Prop -> Maybe [Prop] -negateSimpleNumProp prop = case prop of - TCon tcon tys -> case tcon of - PC pc -> case pc of - -- not x == y <=> x /= y - PEqual -> pure [TCon (PC PNeq) tys] - -- not x /= y <=> x == y - PNeq -> pure [TCon (PC PEqual) tys] - -- not x >= y <=> x /= y and y >= x - PGeq -> pure [TCon (PC PNeq) tys, TCon (PC PGeq) (reverse tys)] - -- not fin x <=> x == Inf - PFin | [ty] <- tys -> pure [TCon (PC PEqual) [ty, tInf]] - | otherwise -> panicInvalid - -- not True <=> 0 == 1 - PTrue -> pure [TCon (PC PEqual) [tZero, tOne]] - -- not simple enough - _ -> mempty - TC _tc -> panicInvalid - TF _tf -> panicInvalid - TError _ki -> Just [prop] -- propogates `TError` - TUser _na _tys ty -> negateSimpleNumProp ty - _ -> panicInvalid - where - panicInvalid = panic "negateSimpleNumProp" - [ "This type shouldn't be a valid type constraint: " ++ - "`" ++ pretty prop ++ "`"] - -- Pretty Printing ------------------------------------------------------------- instance PP TParam where From 537b3d91a28f6b06d468f82decbb6f34d5c3225e Mon Sep 17 00:00:00 2001 From: Henry Blanchette Date: Fri, 19 Aug 2022 15:05:15 -0700 Subject: [PATCH 087/125] safe --- src/Cryptol/Backend/FFI/Error.hs | 2 +- src/Cryptol/TypeCheck/FFI/FFIType.hs | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/src/Cryptol/Backend/FFI/Error.hs b/src/Cryptol/Backend/FFI/Error.hs index 766a48d80..2e4adda41 100644 --- a/src/Cryptol/Backend/FFI/Error.hs +++ b/src/Cryptol/Backend/FFI/Error.hs @@ -1,6 +1,6 @@ {-# LANGUAGE DeriveAnyClass #-} {-# LANGUAGE DeriveGeneric #-} -{-# LANGUAGE Trustworthy #-} +{-# LANGUAGE Safe #-} -- | Errors from dynamic loading of shared libraries for FFI. module Cryptol.Backend.FFI.Error where diff --git a/src/Cryptol/TypeCheck/FFI/FFIType.hs b/src/Cryptol/TypeCheck/FFI/FFIType.hs index c457ec21c..4923f89c0 100644 --- a/src/Cryptol/TypeCheck/FFI/FFIType.hs +++ b/src/Cryptol/TypeCheck/FFI/FFIType.hs @@ -1,6 +1,6 @@ {-# LANGUAGE DeriveAnyClass #-} {-# LANGUAGE DeriveGeneric #-} -{-# LANGUAGE Trustworthy #-} +{-# LANGUAGE Safe #-} -- | This module defines a nicer intermediate representation of Cryptol types -- allowed for the FFI, which the typechecker generates then stores in the AST. From d3b79ac80335c395cb797a73028b6affad560fb1 Mon Sep 17 00:00:00 2001 From: Henry Blanchette Date: Fri, 19 Aug 2022 15:17:38 -0700 Subject: [PATCH 088/125] EPropGuards has a Type instead of a Schema --- src/Cryptol/TypeCheck/AST.hs | 2 +- src/Cryptol/TypeCheck/Infer.hs | 4 ++-- src/Cryptol/TypeCheck/Sanity.hs | 3 ++- src/Cryptol/TypeCheck/TypeOf.hs | 7 +++---- 4 files changed, 8 insertions(+), 8 deletions(-) diff --git a/src/Cryptol/TypeCheck/AST.hs b/src/Cryptol/TypeCheck/AST.hs index c58cf7683..4caf12ff8 100644 --- a/src/Cryptol/TypeCheck/AST.hs +++ b/src/Cryptol/TypeCheck/AST.hs @@ -150,7 +150,7 @@ data Expr = EList [Expr] Type -- ^ List value (with type of elements) | EWhere Expr [DeclGroup] - | EPropGuards [([Prop], Expr)] Schema + | EPropGuards [([Prop], Expr)] Type deriving (Show, Generic, NFData) diff --git a/src/Cryptol/TypeCheck/Infer.hs b/src/Cryptol/TypeCheck/Infer.hs index dc24efd2e..1519d36ab 100644 --- a/src/Cryptol/TypeCheck/Infer.hs +++ b/src/Cryptol/TypeCheck/Infer.hs @@ -57,7 +57,7 @@ import Cryptol.TypeCheck.FFI.FFIType import Cryptol.Utils.Ident import Cryptol.Utils.Panic(panic) import Cryptol.Utils.RecordMap -import Cryptol.Utils.PP (pp, pretty) +import Cryptol.Utils.PP (pp) import qualified Data.Map as Map import Data.Map (Map) @@ -1106,7 +1106,7 @@ checkSigB b (Forall as asmps0 t0, validSchema) = , dDefinition = DExpr (foldr ETAbs (foldr EProofAbs - (EPropGuards cases1 schema) + (EPropGuards cases1 t1) asmps1) as) , dPragmas = P.bPragmas b diff --git a/src/Cryptol/TypeCheck/Sanity.hs b/src/Cryptol/TypeCheck/Sanity.hs index 3e4c11a12..8a89ce8c8 100644 --- a/src/Cryptol/TypeCheck/Sanity.hs +++ b/src/Cryptol/TypeCheck/Sanity.hs @@ -270,7 +270,8 @@ exprSchema expr = in go dgs - EPropGuards _guards schema -> pure schema + EPropGuards _guards typ -> + pure Forall {sVars = [], sProps = [], sType = typ} checkHas :: Type -> Selector -> TcM Type checkHas t sel = diff --git a/src/Cryptol/TypeCheck/TypeOf.hs b/src/Cryptol/TypeCheck/TypeOf.hs index e33e67f94..e0d67c405 100644 --- a/src/Cryptol/TypeCheck/TypeOf.hs +++ b/src/Cryptol/TypeCheck/TypeOf.hs @@ -44,7 +44,7 @@ fastTypeOf tyenv expr = Just (_, t) -> t Nothing -> panic "Cryptol.TypeCheck.TypeOf.fastTypeOf" [ "EApp with non-function operator" ] - EPropGuards _guards Forall {sType} -> sType + EPropGuards _guards sType -> sType -- Polymorphic fragment EVar {} -> polymorphic ETAbs {} -> polymorphic @@ -115,10 +115,9 @@ fastSchemaOf tyenv expr = EAbs {} -> monomorphic -- PropGuards - EPropGuards [] schema -> schema - EPropGuards _ schema -> schema + EPropGuards _ t -> Forall {sVars = [], sProps = [], sType = t} where - monomorphic = Forall [] [] (fastTypeOf tyenv expr) + monomorphic = Forall {sVars = [], sProps = [], sType = fastTypeOf tyenv expr} -- | Apply a substitution to a type *without* simplifying -- constraints like @Arith [n]a@ to @Arith a@. (This is in contrast to From 76ff13efad925eda80971cf89ac28db090aec33c Mon Sep 17 00:00:00 2001 From: Henry Blanchette Date: Fri, 19 Aug 2022 15:38:34 -0700 Subject: [PATCH 089/125] refactored out checkExhaustive --- src/Cryptol/TypeCheck/Infer.hs | 68 +++++++++++++++++----------------- 1 file changed, 35 insertions(+), 33 deletions(-) diff --git a/src/Cryptol/TypeCheck/Infer.hs b/src/Cryptol/TypeCheck/Infer.hs index 1519d36ab..0ca850cf6 100644 --- a/src/Cryptol/TypeCheck/Infer.hs +++ b/src/Cryptol/TypeCheck/Infer.hs @@ -1057,39 +1057,7 @@ checkSigB b (Forall as asmps0 t0, validSchema) = t1 <- applySubst t0 cases1 <- mapM (checkPropGuardCase name asmps1) cases0 - let - toGoal :: Prop -> Goal - toGoal prop = - Goal - { goalSource = CtPropGuardsExhaustive name - , goalRange = srcRange $ P.bName b - , goal = prop } - - canProve :: [Prop] -> [Goal] -> InferM Bool - canProve asmps goals = isRight <$> - tryProveImplication (Just name) as asmps goals - - -- Try to prove that the first guard will be satisfied. If cannot, - -- then assume it is false (via `pNegNumeric`) and try to - -- prove that the second guard will be satisfied. If cannot, then - -- assume it is false, and so on. If the last guard cannot be proven - -- in this way, then issue a `NonExhaustivePropGuards` warning. Note - -- that when assuming that a conjunction of constraints is false, - -- this results in a disjunction, and so must check exhaustive under - -- assumption that each disjunct is false independently i.e. - -- `checkExhaustive` branches on conjunctions. - checkExhaustive :: [Prop] -> [[Prop]] -> InferM Bool - checkExhaustive _asmps [] = pure False -- empty GuardProps - checkExhaustive asmps [guard] = do - canProve asmps (toGoal <$> guard) - checkExhaustive asmps (guard : guards) = - canProve asmps (toGoal <$> guard) >>= \case - True -> pure True - False -> and <$> mapM - (\asmps' -> checkExhaustive (asmps <> asmps') guards) - (pNegNumeric guard) - - checkExhaustive asmps1 (fst <$> cases1) >>= \case + checkExhaustive name asmps1 (fst <$> cases1) >>= \case True -> -- proved exhaustive pure () @@ -1184,6 +1152,40 @@ checkSigB b (Forall as asmps0 t0, validSchema) = e2 <- applySubst e1 pure (guards3, e2) + -- Try to prove that the first guard will be satisfied. If cannot, + -- then assume it is false (via `pNegNumeric`) and try to + -- prove that the second guard will be satisfied. If cannot, then + -- assume it is false, and so on. If the last guard cannot be proven + -- in this way, then issue a `NonExhaustivePropGuards` warning. Note + -- that when assuming that a conjunction of constraints is false, + -- this results in a disjunction, and so must check exhaustive under + -- assumption that each disjunct is false independently i.e. + -- `checkExhaustive` branches on conjunctions. + checkExhaustive :: Name -> [Prop] -> [[Prop]] -> InferM Bool + checkExhaustive _name _asmps [] = pure False -- empty GuardProps + -- checkExhaustive asmps [guard] = do + -- canProve asmps (toGoal <$> guard) + checkExhaustive name asmps (guard : guards) = + if null guards then + canProve asmps (toGoal <$> guard) + else + canProve asmps (toGoal <$> guard) >>= \case + True -> pure True + False -> and <$> mapM + (\asmps' -> checkExhaustive name (asmps <> asmps') guards) + (pNegNumeric guard) + where + toGoal :: Prop -> Goal + toGoal prop = + Goal + { goalSource = CtPropGuardsExhaustive name + , goalRange = srcRange $ P.bName b + , goal = prop } + + canProve :: [Prop] -> [Goal] -> InferM Bool + canProve asmps' goals = isRight <$> + tryProveImplication (Just name) as asmps' goals + -------------------------------------------------------------------------------- -------------------------------------------------------------------------------- From 5dcdbe002b1949f8e8df001bd9f3612c366022bb Mon Sep 17 00:00:00 2001 From: Henry Blanchette Date: Mon, 22 Aug 2022 11:23:58 -0700 Subject: [PATCH 090/125] readability --- src/Cryptol/TypeCheck/Infer.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/Cryptol/TypeCheck/Infer.hs b/src/Cryptol/TypeCheck/Infer.hs index 0ca850cf6..ad561cdc6 100644 --- a/src/Cryptol/TypeCheck/Infer.hs +++ b/src/Cryptol/TypeCheck/Infer.hs @@ -1057,7 +1057,7 @@ checkSigB b (Forall as asmps0 t0, validSchema) = t1 <- applySubst t0 cases1 <- mapM (checkPropGuardCase name asmps1) cases0 - checkExhaustive name asmps1 (fst <$> cases1) >>= \case + checkExhaustive name asmps1 [ props | (props, _) <- cases1 ] >>= \case True -> -- proved exhaustive pure () From 8b4381b4011bdb0b727baf309be159911558368a Mon Sep 17 00:00:00 2001 From: Henry Blanchette Date: Mon, 22 Aug 2022 11:51:36 -0700 Subject: [PATCH 091/125] rename --- src/Cryptol/TypeCheck/Type.hs | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/src/Cryptol/TypeCheck/Type.hs b/src/Cryptol/TypeCheck/Type.hs index a0493c48b..c928d50f6 100644 --- a/src/Cryptol/TypeCheck/Type.hs +++ b/src/Cryptol/TypeCheck/Type.hs @@ -876,10 +876,10 @@ Examples: pNegNumeric :: [Prop] -> [[Prop]] pNegNumeric props = do prop <- props - maybe mempty pure (pNegNumeric' prop) + maybe mempty pure (go prop) where - pNegNumeric' :: Prop -> Maybe [Prop] - pNegNumeric' prop = case prop of + go :: Prop -> Maybe [Prop] + go prop = case prop of TCon tcon tys -> case tcon of PC pc -> case pc of -- not x == y <=> x /= y @@ -898,10 +898,10 @@ pNegNumeric props = do TC _tc -> panicInvalid TF _tf -> panicInvalid TError _ki -> Just [prop] -- propogates `TError` - TUser _na _tys ty -> pNegNumeric' ty + TUser _na _tys ty -> go ty _ -> panicInvalid where - panicInvalid = panic "pNegNumeric'" + panicInvalid = panic "pNegNumeric" [ "This type shouldn't be a valid type constraint: " ++ "`" ++ pretty prop ++ "`"] From c1f5d0cb6d3d10a0dd45629bb28de340043b981a Mon Sep 17 00:00:00 2001 From: Henry Blanchette Date: Mon, 22 Aug 2022 11:52:28 -0700 Subject: [PATCH 092/125] comment --- src/Cryptol/TypeCheck/Type.hs | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/src/Cryptol/TypeCheck/Type.hs b/src/Cryptol/TypeCheck/Type.hs index c928d50f6..80cd207f0 100644 --- a/src/Cryptol/TypeCheck/Type.hs +++ b/src/Cryptol/TypeCheck/Type.hs @@ -867,9 +867,9 @@ disjunction of conjunctions. {-| Examples: @ - [(x == y)] => Just [[(x /= y)]] - [(fin x)] => Just [[(x == inf)]] - [(x <= y)] => Just [[(x >= y), (x /= y)]] + [(x == y)] => Just [[(x /= y)]] + [(fin x)] => Just [[(x == inf)]] + [(x <= y)] => Just [[(x >= y), (x /= y)]] [(x == y), (x == z)] => Just [[(x /= y)], [(x /= z)]] @ -} From b52ad960e306ef8973d052e777cc7f4b716f962c Mon Sep 17 00:00:00 2001 From: Henry Blanchette Date: Mon, 22 Aug 2022 12:08:04 -0700 Subject: [PATCH 093/125] more efficient checkExhaustive --- src/Cryptol/TypeCheck/Infer.hs | 77 ++++++++++++++++++++++++---------- 1 file changed, 56 insertions(+), 21 deletions(-) diff --git a/src/Cryptol/TypeCheck/Infer.hs b/src/Cryptol/TypeCheck/Infer.hs index ad561cdc6..077f48077 100644 --- a/src/Cryptol/TypeCheck/Infer.hs +++ b/src/Cryptol/TypeCheck/Infer.hs @@ -71,6 +71,7 @@ import Data.Function(on) import Control.Monad(zipWithM, unless, foldM, forM_, mplus, zipWithM, unless, foldM, forM_, mplus, when) import Data.Bifunctor (Bifunctor(second)) +import qualified Data.List as List @@ -1152,28 +1153,60 @@ checkSigB b (Forall as asmps0 t0, validSchema) = e2 <- applySubst e1 pure (guards3, e2) - -- Try to prove that the first guard will be satisfied. If cannot, - -- then assume it is false (via `pNegNumeric`) and try to - -- prove that the second guard will be satisfied. If cannot, then - -- assume it is false, and so on. If the last guard cannot be proven - -- in this way, then issue a `NonExhaustivePropGuards` warning. Note - -- that when assuming that a conjunction of constraints is false, - -- this results in a disjunction, and so must check exhaustive under - -- assumption that each disjunct is false independently i.e. - -- `checkExhaustive` branches on conjunctions. + {- + Given a DPropGuards of the form + + @ + f : {...} A + f | (B1, B2) => ... + | (C1, C2, C2) => ... + @ + + we check that it is exhaustive by trying to prove the following + implications: + + @ + A /\ ~B1 => C1 /\ C2 /\ C3 + A /\ ~B2 => C1 /\ C2 /\ C3 + @ + + The implications were derive by the following general algorithm: + - Find that @(C1, C2, C3)@ is the guard that has the most conjuncts, so we + will keep it on the RHS of the generated implications in order to minimize + the number of implications we need to check. + - Negate @(B1, B2)@ which yields @(~B1) \/ (~B2)@. This is a disjunction, so + we need to consider a branch for each disjunct --- one branch gets the + assumption @~B1@ and another branch gets the assumption @~B2@. Each + branch's implications need to be proven independently. + + -} checkExhaustive :: Name -> [Prop] -> [[Prop]] -> InferM Bool - checkExhaustive _name _asmps [] = pure False -- empty GuardProps - -- checkExhaustive asmps [guard] = do - -- canProve asmps (toGoal <$> guard) - checkExhaustive name asmps (guard : guards) = - if null guards then - canProve asmps (toGoal <$> guard) - else - canProve asmps (toGoal <$> guard) >>= \case - True -> pure True - False -> and <$> mapM - (\asmps' -> checkExhaustive name (asmps <> asmps') guards) - (pNegNumeric guard) + checkExhaustive name asmps guards = + -- sort in decreasing order of number of conjuncts + let c props1 props2 = + -- reversed, so that sorting is in decreasing order + compare (length props2) (length props1) + in + case sortBy c guards of + [] -> pure False -- empty PropGuards + -- singleton + [props] -> canProve asmps (toGoal <$> props) + (props : guards) -> + -- Keep `props` on the RHS of implication. Negate each of `guards` and + -- move to RHS. For each negation of a conjunction, a disjunction is + -- yielded, which multiplies the number of implications that we need + -- to check. So that's why we chose the guard with the largest + -- conjunction to stay on RHS. + let + goals = toGoal <$> props + impls = go asmps guards + where + go asmps [] = pure $ canProve asmps goals + go asmps (guard : guards) = do + neg_guard <- pNegNumeric guard + go (asmps <> neg_guard) guards + in + and <$> sequence impls where toGoal :: Prop -> Goal toGoal prop = @@ -1185,6 +1218,8 @@ checkSigB b (Forall as asmps0 t0, validSchema) = canProve :: [Prop] -> [Goal] -> InferM Bool canProve asmps' goals = isRight <$> tryProveImplication (Just name) as asmps' goals + + -------------------------------------------------------------------------------- -------------------------------------------------------------------------------- From ee2db7cb4b0b040f596d8c969e2768c53d00cf9a Mon Sep 17 00:00:00 2001 From: Henry Blanchette Date: Fri, 26 Aug 2022 12:39:28 -0700 Subject: [PATCH 094/125] properly set up test suite --- tests/constraint-guards/Mergesort.cry | 2 +- tests/constraint-guards/Uncons.cry | 3 --- tests/constraint-guards/inits.icry | 2 ++ tests/constraint-guards/inits.icry.stdout | 8 ++++++++ tests/constraint-guards/insert.icry | 2 ++ tests/constraint-guards/insert.icry.stdout | 8 ++++++++ tests/constraint-guards/len.icry | 2 ++ tests/constraint-guards/len.icry.stdout | 6 ++++++ tests/constraint-guards/mergesort.icry | 2 ++ tests/constraint-guards/mergesort.icry.stdout | 8 ++++++++ tests/constraint-guards/tail.cry | 10 ++++++++++ tests/constraint-guards/tail.icry | 2 ++ tests/constraint-guards/tail.icry.stdout | 8 ++++++++ 13 files changed, 59 insertions(+), 4 deletions(-) delete mode 100644 tests/constraint-guards/Uncons.cry create mode 100644 tests/constraint-guards/inits.icry create mode 100644 tests/constraint-guards/inits.icry.stdout create mode 100644 tests/constraint-guards/insert.icry create mode 100644 tests/constraint-guards/insert.icry.stdout create mode 100644 tests/constraint-guards/len.icry create mode 100644 tests/constraint-guards/len.icry.stdout create mode 100644 tests/constraint-guards/mergesort.icry create mode 100644 tests/constraint-guards/mergesort.icry.stdout create mode 100644 tests/constraint-guards/tail.cry create mode 100644 tests/constraint-guards/tail.icry create mode 100644 tests/constraint-guards/tail.icry.stdout diff --git a/tests/constraint-guards/Mergesort.cry b/tests/constraint-guards/Mergesort.cry index 0bdf15bb5..0a3b2e4db 100644 --- a/tests/constraint-guards/Mergesort.cry +++ b/tests/constraint-guards/Mergesort.cry @@ -25,4 +25,4 @@ property sort_correct = (sort [9, 9, 8, -3, 1, 1, -6, -6, -8] == [-8, -6, -6, -3, 1, 1, 8, 9, 9]) && (sort [9, 1, 5, 0] == [0, 1, 5, 9]) && (sort [8, 3, 3] == [3, 3, 8]) && - sort [-7, 8] == [-7, 8] \ No newline at end of file + (sort [-7, 8] == [-7, 8]) \ No newline at end of file diff --git a/tests/constraint-guards/Uncons.cry b/tests/constraint-guards/Uncons.cry deleted file mode 100644 index d0e87e164..000000000 --- a/tests/constraint-guards/Uncons.cry +++ /dev/null @@ -1,3 +0,0 @@ -tail : {n, a} (fin n) => [n]a -> [(max n 1) - 1]a -tail xs | n == 0 => xs - | n >= 1 => drop `{1} xs \ No newline at end of file diff --git a/tests/constraint-guards/inits.icry b/tests/constraint-guards/inits.icry new file mode 100644 index 000000000..b5695b458 --- /dev/null +++ b/tests/constraint-guards/inits.icry @@ -0,0 +1,2 @@ +:l inits.cry +:check inits_correct diff --git a/tests/constraint-guards/inits.icry.stdout b/tests/constraint-guards/inits.icry.stdout new file mode 100644 index 000000000..b5aac7865 --- /dev/null +++ b/tests/constraint-guards/inits.icry.stdout @@ -0,0 +1,8 @@ +Loading module Cryptol +Loading module Cryptol +Loading module Main +Showing a specific instance of polymorphic result: + * Using 'Integer' for type of sequence member +Using exhaustive testing. +Testing... Passed 1 tests. +Q.E.D. diff --git a/tests/constraint-guards/insert.icry b/tests/constraint-guards/insert.icry new file mode 100644 index 000000000..53fc0f95a --- /dev/null +++ b/tests/constraint-guards/insert.icry @@ -0,0 +1,2 @@ +:l insert.cry +:check insert_correct diff --git a/tests/constraint-guards/insert.icry.stdout b/tests/constraint-guards/insert.icry.stdout new file mode 100644 index 000000000..736b24325 --- /dev/null +++ b/tests/constraint-guards/insert.icry.stdout @@ -0,0 +1,8 @@ +Loading module Cryptol +Loading module Cryptol +Loading module Main +[warning] at insert.cry:3:1--3:7: + Could not prove that the constraint guards used in defining Main::insert were exhaustive. +Using exhaustive testing. +Testing... Passed 1 tests. +Q.E.D. diff --git a/tests/constraint-guards/len.icry b/tests/constraint-guards/len.icry new file mode 100644 index 000000000..71308c7fc --- /dev/null +++ b/tests/constraint-guards/len.icry @@ -0,0 +1,2 @@ +:l len.cry +:check len_correct \ No newline at end of file diff --git a/tests/constraint-guards/len.icry.stdout b/tests/constraint-guards/len.icry.stdout new file mode 100644 index 000000000..d80fdf123 --- /dev/null +++ b/tests/constraint-guards/len.icry.stdout @@ -0,0 +1,6 @@ +Loading module Cryptol +Loading module Cryptol +Loading module Main +Using exhaustive testing. +Testing... Passed 1 tests. +Q.E.D. diff --git a/tests/constraint-guards/mergesort.icry b/tests/constraint-guards/mergesort.icry new file mode 100644 index 000000000..91aa4f7a9 --- /dev/null +++ b/tests/constraint-guards/mergesort.icry @@ -0,0 +1,2 @@ +:l mergesort.cry +:check sort_correct \ No newline at end of file diff --git a/tests/constraint-guards/mergesort.icry.stdout b/tests/constraint-guards/mergesort.icry.stdout new file mode 100644 index 000000000..b5aac7865 --- /dev/null +++ b/tests/constraint-guards/mergesort.icry.stdout @@ -0,0 +1,8 @@ +Loading module Cryptol +Loading module Cryptol +Loading module Main +Showing a specific instance of polymorphic result: + * Using 'Integer' for type of sequence member +Using exhaustive testing. +Testing... Passed 1 tests. +Q.E.D. diff --git a/tests/constraint-guards/tail.cry b/tests/constraint-guards/tail.cry new file mode 100644 index 000000000..ca82cc54c --- /dev/null +++ b/tests/constraint-guards/tail.cry @@ -0,0 +1,10 @@ +tail : {n, a} (fin n) => [n]a -> [(max n 1) - 1]a +tail xs | n == 0 => xs + | n >= 1 => drop `{1} xs + +property tail_correct = + (tail [] == []) && + (tail [1] == []) && + (tail [1,2] == [2]) && + (tail [1,2,3] == [2,3]) && + (tail [1,2,3,4] == [2,3,4]) diff --git a/tests/constraint-guards/tail.icry b/tests/constraint-guards/tail.icry new file mode 100644 index 000000000..a12f0c409 --- /dev/null +++ b/tests/constraint-guards/tail.icry @@ -0,0 +1,2 @@ +:l tail.cry +:check tail_correct diff --git a/tests/constraint-guards/tail.icry.stdout b/tests/constraint-guards/tail.icry.stdout new file mode 100644 index 000000000..b5aac7865 --- /dev/null +++ b/tests/constraint-guards/tail.icry.stdout @@ -0,0 +1,8 @@ +Loading module Cryptol +Loading module Cryptol +Loading module Main +Showing a specific instance of polymorphic result: + * Using 'Integer' for type of sequence member +Using exhaustive testing. +Testing... Passed 1 tests. +Q.E.D. From 01ed76b71b348732506c68d78080564a55be1a2c Mon Sep 17 00:00:00 2001 From: Henry Blanchette Date: Mon, 29 Aug 2022 10:41:03 -0700 Subject: [PATCH 095/125] proper uncapitalized names --- tests/constraint-guards/{Inits.cry => inits.cry} | 0 tests/constraint-guards/{Insert.cry => insert.cry} | 0 tests/constraint-guards/{Len.cry => len.cry} | 0 tests/constraint-guards/{Mergesort.cry => mergesort.cry} | 0 4 files changed, 0 insertions(+), 0 deletions(-) rename tests/constraint-guards/{Inits.cry => inits.cry} (100%) rename tests/constraint-guards/{Insert.cry => insert.cry} (100%) rename tests/constraint-guards/{Len.cry => len.cry} (100%) rename tests/constraint-guards/{Mergesort.cry => mergesort.cry} (100%) diff --git a/tests/constraint-guards/Inits.cry b/tests/constraint-guards/inits.cry similarity index 100% rename from tests/constraint-guards/Inits.cry rename to tests/constraint-guards/inits.cry diff --git a/tests/constraint-guards/Insert.cry b/tests/constraint-guards/insert.cry similarity index 100% rename from tests/constraint-guards/Insert.cry rename to tests/constraint-guards/insert.cry diff --git a/tests/constraint-guards/Len.cry b/tests/constraint-guards/len.cry similarity index 100% rename from tests/constraint-guards/Len.cry rename to tests/constraint-guards/len.cry diff --git a/tests/constraint-guards/Mergesort.cry b/tests/constraint-guards/mergesort.cry similarity index 100% rename from tests/constraint-guards/Mergesort.cry rename to tests/constraint-guards/mergesort.cry From 28f34df25e6469e3c2c28634e683a1068361ed50 Mon Sep 17 00:00:00 2001 From: Henry Blanchette Date: Tue, 30 Aug 2022 08:55:46 -0700 Subject: [PATCH 096/125] can be -> are --- docs/RefMan/BasicSyntax.rst | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/docs/RefMan/BasicSyntax.rst b/docs/RefMan/BasicSyntax.rst index 992f9eb34..3c46e4c0e 100644 --- a/docs/RefMan/BasicSyntax.rst +++ b/docs/RefMan/BasicSyntax.rst @@ -24,7 +24,7 @@ Numeric Constraint Guards A declaration with a signature can use numeric constraint guards, which are like normal guards (such as in a multi-branch `if`` expression) except that the -guarding conditions can be numeric constraints. For example: +guarding conditions are numeric constraints. For example: .. code-block:: cryptol From 5a6819398c7e4e39009116af6594e0184d89c351 Mon Sep 17 00:00:00 2001 From: Henry Blanchette Date: Tue, 30 Aug 2022 09:03:53 -0700 Subject: [PATCH 097/125] redundant import --- src/Cryptol/TypeCheck/Infer.hs | 11 +++++------ 1 file changed, 5 insertions(+), 6 deletions(-) diff --git a/src/Cryptol/TypeCheck/Infer.hs b/src/Cryptol/TypeCheck/Infer.hs index 077f48077..7aafac3fe 100644 --- a/src/Cryptol/TypeCheck/Infer.hs +++ b/src/Cryptol/TypeCheck/Infer.hs @@ -71,7 +71,6 @@ import Data.Function(on) import Control.Monad(zipWithM, unless, foldM, forM_, mplus, zipWithM, unless, foldM, forM_, mplus, when) import Data.Bifunctor (Bifunctor(second)) -import qualified Data.List as List @@ -1191,7 +1190,7 @@ checkSigB b (Forall as asmps0 t0, validSchema) = [] -> pure False -- empty PropGuards -- singleton [props] -> canProve asmps (toGoal <$> props) - (props : guards) -> + (props : guards') -> -- Keep `props` on the RHS of implication. Negate each of `guards` and -- move to RHS. For each negation of a conjunction, a disjunction is -- yielded, which multiplies the number of implications that we need @@ -1199,12 +1198,12 @@ checkSigB b (Forall as asmps0 t0, validSchema) = -- conjunction to stay on RHS. let goals = toGoal <$> props - impls = go asmps guards + impls = go asmps guards' where - go asmps [] = pure $ canProve asmps goals - go asmps (guard : guards) = do + go asmps' [] = pure $ canProve asmps' goals + go asmps' (guard : guards'') = do neg_guard <- pNegNumeric guard - go (asmps <> neg_guard) guards + go (asmps' <> neg_guard) guards'' in and <$> sequence impls where From efa149d96788c4c64f17a153f4fcd0de608cd391 Mon Sep 17 00:00:00 2001 From: Henry Blanchette Date: Tue, 30 Aug 2022 09:06:24 -0700 Subject: [PATCH 098/125] removed obscenity --- src/Cryptol/TypeCheck/Infer.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/Cryptol/TypeCheck/Infer.hs b/src/Cryptol/TypeCheck/Infer.hs index 7aafac3fe..707e2ce61 100644 --- a/src/Cryptol/TypeCheck/Infer.hs +++ b/src/Cryptol/TypeCheck/Infer.hs @@ -983,7 +983,7 @@ checkMonoB b t = P.DPropGuards _ -> tcPanic "checkMonoB" - [ "Used constraint guards without a signature, dumbwit, at " + [ "Used constraint guards without a signature at " , show . pp $ P.bName b ] -- XXX: Do we really need to do the defaulting business in two different places? From 418e575364f129bdaef7eb3a5d2bab1f76239b72 Mon Sep 17 00:00:00 2001 From: Henry Blanchette Date: Tue, 30 Aug 2022 09:06:44 -0700 Subject: [PATCH 099/125] better error message --- src/Cryptol/Parser/ExpandPropGuards.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/Cryptol/Parser/ExpandPropGuards.hs b/src/Cryptol/Parser/ExpandPropGuards.hs index a27df0bd9..9cd18905b 100644 --- a/src/Cryptol/Parser/ExpandPropGuards.hs +++ b/src/Cryptol/Parser/ExpandPropGuards.hs @@ -50,7 +50,7 @@ instance PP Error where ppPrec _ err = case err of NoSignature x -> text "At" <+> pp (srcRange x) <.> colon <+> - text "No signature provided for declaration that uses PROPGUARDS." + text "Declarations using constraint guards currently require an explicit type signature." -- | Instances From e8e9fbfc40bea755fa454c1d474bbd66c2baf9a0 Mon Sep 17 00:00:00 2001 From: Henry Blanchette Date: Tue, 30 Aug 2022 09:07:39 -0700 Subject: [PATCH 100/125] TODO: emit expression `error` --- src/Cryptol/Transform/Specialize.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/Cryptol/Transform/Specialize.hs b/src/Cryptol/Transform/Specialize.hs index e64973d24..d450e74bd 100644 --- a/src/Cryptol/Transform/Specialize.hs +++ b/src/Cryptol/Transform/Specialize.hs @@ -110,7 +110,7 @@ specializeExpr expr = EPropGuards guards _schema -> case List.find (all checkProp . fst) guards of Just (_, e) -> specializeExpr e - Nothing -> fail "No guard constraint was satisfied" + Nothing -> undefined -- TODO: emit expression `error` specializeMatch :: Match -> SpecM Match specializeMatch (From qn l t e) = From qn l t <$> specializeExpr e From 79a2f6288dc144fa8af4fdc2115b419987131c04 Mon Sep 17 00:00:00 2001 From: Henry Blanchette Date: Tue, 30 Aug 2022 09:22:37 -0700 Subject: [PATCH 101/125] better local helper names --- src/Cryptol/Parser/ExpandPropGuards.hs | 124 ++++++++++++------------- 1 file changed, 61 insertions(+), 63 deletions(-) diff --git a/src/Cryptol/Parser/ExpandPropGuards.hs b/src/Cryptol/Parser/ExpandPropGuards.hs index 9cd18905b..90515c4a5 100644 --- a/src/Cryptol/Parser/ExpandPropGuards.hs +++ b/src/Cryptol/Parser/ExpandPropGuards.hs @@ -1,3 +1,9 @@ +{-# LANGUAGE BlockArguments #-} +{-# LANGUAGE DeriveAnyClass #-} +{-# LANGUAGE DeriveGeneric #-} +{-# LANGUAGE FlexibleContexts #-} +{-# LANGUAGE FlexibleInstances #-} + -- | -- Module : Cryptol.Parser.PropGuards -- Copyright : (c) 2022 Galois, Inc. @@ -9,30 +15,23 @@ -- Expands PropGuards into a top-level definition for each case, and rewrites -- the body of each case to be an appropriate call to the respectively generated -- function. --- - -{-# LANGUAGE FlexibleInstances #-} -{-# LANGUAGE FlexibleContexts #-} -{-# LANGUAGE DeriveGeneric #-} -{-# LANGUAGE DeriveAnyClass #-} - module Cryptol.Parser.ExpandPropGuards where -import Cryptol.Parser.AST -- import Cryptol.Parser.Position (Range(..), emptyRange, start, at) -- import Cryptol.Parser.Names (namesP) -import Cryptol.Utils.PP + -- import Cryptol.Utils.Ident (mkIdent) -import Cryptol.Utils.Panic (panic) --- import Cryptol.Utils.RecordMap -import Data.Text (pack) +-- import Cryptol.Utils.RecordMap -import GHC.Generics (Generic) import Control.DeepSeq +import Cryptol.Parser.AST +import Cryptol.Utils.PP +import Cryptol.Utils.Panic (panic) +import Data.Text (pack) +import GHC.Generics (Generic) -- | Monad - type ExpandPropGuardsM a = Either Error a runExpandPropGuardsM :: ExpandPropGuardsM a -> Either Error a @@ -44,68 +43,67 @@ class ExpandPropGuards a where -- | Error data Error = NoSignature (Located PName) - deriving (Show,Generic, NFData) + deriving (Show, Generic, NFData) instance PP Error where ppPrec _ err = case err of - NoSignature x -> - text "At" <+> pp (srcRange x) <.> colon <+> - text "Declarations using constraint guards currently require an explicit type signature." + NoSignature x -> + text "At" <+> pp (srcRange x) <.> colon + <+> text "Declarations using constraint guards currently require an explicit type signature." -- | Instances - instance ExpandPropGuards (Program PName) where expandPropGuards (Program decls) = Program <$> expandPropGuards decls instance ExpandPropGuards (Module PName) where expandPropGuards m = do mDecls' <- expandPropGuards (mDecls m) - pure m { mDecls = mDecls' } + pure m {mDecls = mDecls'} instance ExpandPropGuards [TopDecl PName] where - expandPropGuards topDecls = concat <$> traverse f topDecls - where - f :: TopDecl PName -> ExpandPropGuardsM [TopDecl PName] - f (Decl topLevelDecl) = fmap mu <$> expandPropGuards [tlValue topLevelDecl] - where mu decl = Decl $ topLevelDecl { tlValue = decl } - f topDecl = pure [topDecl] - -instance ExpandPropGuards [Decl PName] where - expandPropGuards decls = concat <$> traverse f decls - where - f (DBind bind) = fmap DBind <$> expandPropGuards [bind] - f decl = pure [decl] + expandPropGuards topDecls = concat <$> traverse goTopDecl topDecls + where + goTopDecl :: TopDecl PName -> ExpandPropGuardsM [TopDecl PName] + goTopDecl (Decl topLevelDecl) = fmap mu <$> expandPropGuards [tlValue topLevelDecl] + where + mu decl = Decl $ topLevelDecl {tlValue = decl} + goTopDecl topDecl = pure [topDecl] + +instance ExpandPropGuards [Decl PName] where + expandPropGuards decls = concat <$> traverse goDBind decls + where + goDBind (DBind bind) = fmap DBind <$> expandPropGuards [bind] + goDBind decl = pure [decl] instance ExpandPropGuards [Bind PName] where - expandPropGuards binds = concat <$> traverse f binds - where - f :: Bind PName -> Either Error [Bind PName] - f bind = case thing $ bDef bind of + expandPropGuards binds = concat <$> traverse goPName binds + where + goPName :: Bind PName -> Either Error [Bind PName] + goPName bind = case thing $ bDef bind of DPropGuards guards -> do Forall params props t rng <- case bSignature bind of - Just schema -> pure schema + Just schema -> pure schema Nothing -> Left . NoSignature $ bName bind - let - g :: ([Prop PName], Expr PName) -> ExpandPropGuardsM (([Prop PName], Expr PName), Bind PName) - g (props', e) = do - bName' <- newName (bName bind) props' - -- call to generated function - let e' = foldr EApp (EVar $ thing bName') (patternToExpr <$> bParams bind) - pure - ( (props', e') - , bind - { bName = bName' - -- include guarded props in signature - , bSignature = Just $ Forall params (props <> props') t rng - -- keeps same location at original bind - -- i.e. "on top of" original bind - , bDef = (bDef bind) {thing = DExpr e} - } - ) + let g :: ([Prop PName], Expr PName) -> ExpandPropGuardsM (([Prop PName], Expr PName), Bind PName) + g (props', e) = do + bName' <- newName (bName bind) props' + -- call to generated function + let e' = foldr EApp (EVar $ thing bName') (patternToExpr <$> bParams bind) + pure + ( (props', e'), + bind + { bName = bName', + -- include guarded props in signature + bSignature = Just $ Forall params (props <> props') t rng, + -- keeps same location at original bind + -- i.e. "on top of" original bind + bDef = (bDef bind) {thing = DExpr e} + } + ) (guards', binds') <- unzip <$> mapM g guards - pure $ - bind { bDef = const (DPropGuards guards') <$> bDef bind } : + pure $ + bind {bDef = DPropGuards guards' <$ bDef bind} : binds' _ -> pure [bind] @@ -115,13 +113,13 @@ patternToExpr _ = panic "patternToExpr" ["Unimplemented: patternToExpr of anythi newName :: Located PName -> [Prop PName] -> ExpandPropGuardsM (Located PName) newName locName props = - case thing locName of - Qual modName ident -> do - let txt = identText ident + pure case thing locName of + Qual modName ident -> + let txt = identText ident txt' = pack $ show $ pp props - pure $ const (Qual modName (mkIdent $ txt <> txt')) <$> locName - UnQual ident -> do - let txt = identText ident + in Qual modName (mkIdent $ txt <> txt') <$ locName + UnQual ident -> + let txt = identText ident txt' = pack $ show $ pp props - pure $ const (UnQual (mkIdent $ txt <> txt')) <$> locName + in UnQual (mkIdent $ txt <> txt') <$ locName NewName _ _ -> panic "mkName" ["During expanding prop guards, tried to make new name from NewName case of PName"] From d5b7c2f245dfae5f5af514644929c9457f3623e7 Mon Sep 17 00:00:00 2001 From: Henry Blanchette Date: Tue, 30 Aug 2022 09:25:44 -0700 Subject: [PATCH 102/125] better pp --- src/Cryptol/TypeCheck/AST.hs | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/src/Cryptol/TypeCheck/AST.hs b/src/Cryptol/TypeCheck/AST.hs index 4caf12ff8..962a013ac 100644 --- a/src/Cryptol/TypeCheck/AST.hs +++ b/src/Cryptol/TypeCheck/AST.hs @@ -271,9 +271,10 @@ instance PP (WithNames Expr) where ] EPropGuards guards _ -> - parens (text "propguard" <+> hsep (ppGuard <$> guards)) - where ppGuard (props, e) = - pipe <+> commaSep (pp <$> props) <+> text "=>" <+> pp e + parens (text "propguards" <+> vsep (ppGuard <$> guards)) + where ppGuard (props, e) = indent 1 + $ pipe <+> commaSep (pp <$> props) + <+> text "=>" <+> pp e where ppW x = ppWithNames nm x From 0a6fb8b08acca41e30baa2cadb9595a5931dd2fb Mon Sep 17 00:00:00 2001 From: Henry Blanchette Date: Tue, 30 Aug 2022 10:53:15 -0700 Subject: [PATCH 103/125] If no constraint guard is satisfied, specialization yields error term --- src/Cryptol/Transform/Specialize.hs | 7 ++++++- src/Cryptol/TypeCheck/AST.hs | 7 +++++++ 2 files changed, 13 insertions(+), 1 deletion(-) diff --git a/src/Cryptol/Transform/Specialize.hs b/src/Cryptol/Transform/Specialize.hs index d450e74bd..494e085bf 100644 --- a/src/Cryptol/Transform/Specialize.hs +++ b/src/Cryptol/Transform/Specialize.hs @@ -27,6 +27,8 @@ import Data.Maybe (catMaybes) import qualified Data.List as List import MonadLib hiding (mapM) +import Cryptol.ModuleSystem.Base (getPrimMap) + -- Specializer Monad ----------------------------------------------------------- @@ -110,7 +112,10 @@ specializeExpr expr = EPropGuards guards _schema -> case List.find (all checkProp . fst) guards of Just (_, e) -> specializeExpr e - Nothing -> undefined -- TODO: emit expression `error` + Nothing -> do + pm <- liftSpecT getPrimMap + pure $ eError' pm "no constraint guard was satisfied" + specializeMatch :: Match -> SpecM Match specializeMatch (From qn l t e) = From qn l t <$> specializeExpr e diff --git a/src/Cryptol/TypeCheck/AST.hs b/src/Cryptol/TypeCheck/AST.hs index 962a013ac..940e13814 100644 --- a/src/Cryptol/TypeCheck/AST.hs +++ b/src/Cryptol/TypeCheck/AST.hs @@ -198,6 +198,13 @@ eError prims t str = EApp (ETApp (ETApp (ePrim prims (prelPrim "error")) t) (tNum (length str))) (eString prims str) +-- | Make an expression that is @error@ pre-applied a message (but not a also +-- type, like @eError@). +eError' :: PrimMap -> String -> Expr +eError' prims str = + EApp (ETApp (ePrim prims (prelPrim "error")) + (tNum (length str))) (eString prims str) + eString :: PrimMap -> String -> Expr eString prims str = EList (map (eChar prims) str) tChar From 1ec956c5f105e94bbfe82e215774c9866284832a Mon Sep 17 00:00:00 2001 From: Henry Blanchette Date: Tue, 30 Aug 2022 11:01:43 -0700 Subject: [PATCH 104/125] rename --- src/Cryptol/Parser/ExpandPropGuards.hs | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) diff --git a/src/Cryptol/Parser/ExpandPropGuards.hs b/src/Cryptol/Parser/ExpandPropGuards.hs index 90515c4a5..3341ca7f2 100644 --- a/src/Cryptol/Parser/ExpandPropGuards.hs +++ b/src/Cryptol/Parser/ExpandPropGuards.hs @@ -76,17 +76,17 @@ instance ExpandPropGuards [Decl PName] where goDBind decl = pure [decl] instance ExpandPropGuards [Bind PName] where - expandPropGuards binds = concat <$> traverse goPName binds + expandPropGuards binds = concat <$> traverse goBind binds where - goPName :: Bind PName -> Either Error [Bind PName] - goPName bind = case thing $ bDef bind of + goBind :: Bind PName -> Either Error [Bind PName] + goBind bind = case thing $ bDef bind of DPropGuards guards -> do Forall params props t rng <- case bSignature bind of Just schema -> pure schema Nothing -> Left . NoSignature $ bName bind - let g :: ([Prop PName], Expr PName) -> ExpandPropGuardsM (([Prop PName], Expr PName), Bind PName) - g (props', e) = do + let goGuard :: ([Prop PName], Expr PName) -> ExpandPropGuardsM (([Prop PName], Expr PName), Bind PName) + goGuard (props', e) = do bName' <- newName (bName bind) props' -- call to generated function let e' = foldr EApp (EVar $ thing bName') (patternToExpr <$> bParams bind) @@ -101,7 +101,7 @@ instance ExpandPropGuards [Bind PName] where bDef = (bDef bind) {thing = DExpr e} } ) - (guards', binds') <- unzip <$> mapM g guards + (guards', binds') <- unzip <$> mapM goGuard guards pure $ bind {bDef = DPropGuards guards' <$ bDef bind} : binds' From 3c9bc24b501e42ec4f84bc38d643bc0d90571eaa Mon Sep 17 00:00:00 2001 From: Henry Blanchette Date: Tue, 30 Aug 2022 11:46:15 -0700 Subject: [PATCH 105/125] properly apply type args to funs gen'ed during ExpandPropGuards --- src/Cryptol/Parser/ExpandPropGuards.hs | 9 ++++++++- 1 file changed, 8 insertions(+), 1 deletion(-) diff --git a/src/Cryptol/Parser/ExpandPropGuards.hs b/src/Cryptol/Parser/ExpandPropGuards.hs index 3341ca7f2..90e135651 100644 --- a/src/Cryptol/Parser/ExpandPropGuards.hs +++ b/src/Cryptol/Parser/ExpandPropGuards.hs @@ -3,6 +3,7 @@ {-# LANGUAGE DeriveGeneric #-} {-# LANGUAGE FlexibleContexts #-} {-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE LambdaCase #-} -- | -- Module : Cryptol.Parser.PropGuards @@ -89,7 +90,13 @@ instance ExpandPropGuards [Bind PName] where goGuard (props', e) = do bName' <- newName (bName bind) props' -- call to generated function - let e' = foldr EApp (EVar $ thing bName') (patternToExpr <$> bParams bind) + tParams <- case bSignature bind of + Just (Forall tps _ _ _) -> pure tps + Nothing -> Left $ NoSignature (bName bind) + typeInsts <- + (\(TParam n _ _) -> Right . PosInst $ TUser n []) + `traverse` tParams + let e' = foldl EApp (EAppT (EVar $ thing bName') typeInsts) (patternToExpr <$> bParams bind) pure ( (props', e'), bind From 1514db5e8636ae9c74db15f756dcc6980b5d9063 Mon Sep 17 00:00:00 2001 From: Henry Blanchette Date: Tue, 30 Aug 2022 11:46:36 -0700 Subject: [PATCH 106/125] better error message on NoMatchingPropGuardCase --- src/Cryptol/Backend/Monad.hs | 2 +- src/Cryptol/Eval.hs | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/src/Cryptol/Backend/Monad.hs b/src/Cryptol/Backend/Monad.hs index 21f814d56..a4e8a1c79 100644 --- a/src/Cryptol/Backend/Monad.hs +++ b/src/Cryptol/Backend/Monad.hs @@ -444,7 +444,7 @@ instance PP EvalError where BadRoundingMode r -> "invalid rounding mode" <+> integer r BadValue x -> "invalid input for" <+> backticks (text x) NoPrim x -> text "unimplemented primitive:" <+> pp x - NoMatchingPropGuardCase msg -> text $ "No matching prop guard case; " ++ msg + NoMatchingPropGuardCase msg -> text $ "No matching constraint guard; " ++ msg FFINotSupported x -> vcat [ text "cannot call foreign function" <+> pp x , text "FFI calls are not supported in this context" diff --git a/src/Cryptol/Eval.hs b/src/Cryptol/Eval.hs index 11e160812..64d614dfa 100644 --- a/src/Cryptol/Eval.hs +++ b/src/Cryptol/Eval.hs @@ -222,7 +222,7 @@ evalExpr sym env expr = case expr of let checkedGuards = [ e | (ps,e) <- guards, all (checkProp . evalProp env) ps ] case checkedGuards of (e:_) -> eval e - [] -> raiseError sym (NoMatchingPropGuardCase $ "Available prop guards: `" ++ show (fmap pp . fst <$> guards) ++ "`") + [] -> raiseError sym (NoMatchingPropGuardCase $ "Among constraint guards: " ++ show (fmap pp . fst <$> guards)) where From f61f002b676016d0d24d81672b6452a103b71576 Mon Sep 17 00:00:00 2001 From: Henry Blanchette Date: Tue, 30 Aug 2022 11:47:08 -0700 Subject: [PATCH 107/125] allow constant declarations to use constraint guards --- src/Cryptol/Parser.y | 2 ++ src/Cryptol/Parser/ParserUtils.hs | 7 ++++++- tests/constraint-guards/constant.cry | 11 +++++++++++ 3 files changed, 19 insertions(+), 1 deletion(-) create mode 100644 tests/constraint-guards/constant.cry diff --git a/src/Cryptol/Parser.y b/src/Cryptol/Parser.y index b632edf48..8cf7a176b 100644 --- a/src/Cryptol/Parser.y +++ b/src/Cryptol/Parser.y @@ -318,6 +318,8 @@ decl :: { Decl PName } | '(' op ')' '=' expr { at ($1,$5) $ DPatBind (PVar $2) $5 } | var apats_indices propguards_cases { mkIndexedPropGuardsDecl $1 $2 $3 } + | var propguards_cases + { mkIndexedConstantPropGuardsDecl $1 $2 } | var apats_indices '=' expr { at ($1,$4) $ mkIndexedDecl $1 $2 $4 } diff --git a/src/Cryptol/Parser/ParserUtils.hs b/src/Cryptol/Parser/ParserUtils.hs index 062dc64cd..991e2f8d1 100644 --- a/src/Cryptol/Parser/ParserUtils.hs +++ b/src/Cryptol/Parser/ParserUtils.hs @@ -611,7 +611,7 @@ mkIndexedDecl f (ps, ixs) e = rhs = mkGenerate (reverse ixs) e -- NOTE: The lists of patterns are reversed! -mkIndexedPropGuardsDecl :: +mkIndexedPropGuardsDecl :: LPName -> ([Pattern PName], [Pattern PName]) -> [([Prop PName], Expr PName)] -> Decl PName mkIndexedPropGuardsDecl f (ps, ixs) guards = DBind Bind { bName = f @@ -628,6 +628,11 @@ mkIndexedPropGuardsDecl f (ps, ixs) guards = where guards' = second (mkGenerate (reverse ixs)) <$> guards +mkIndexedConstantPropGuardsDecl :: + LPName -> [([Prop PName], Expr PName)] -> Decl PName +mkIndexedConstantPropGuardsDecl f guards = + mkIndexedPropGuardsDecl f ([], []) guards + -- NOTE: The lists of patterns are reversed! mkIndexedExpr :: ([Pattern PName], [Pattern PName]) -> Expr PName -> Expr PName mkIndexedExpr (ps, ixs) body diff --git a/tests/constraint-guards/constant.cry b/tests/constraint-guards/constant.cry new file mode 100644 index 000000000..3bb3984e0 --- /dev/null +++ b/tests/constraint-guards/constant.cry @@ -0,0 +1,11 @@ +isZero : {n} Bit +isZero + | n == 0 => True + | () => False + +isFin : {n} Bit +isFin | fin n => True + | () => False + +idTypeNum : {n} Integer +idTypeNum | fin n => `n \ No newline at end of file From 5df322ee9f783d9cd96f1d8f3826c5cd61cd8baf Mon Sep 17 00:00:00 2001 From: Henry Blanchette Date: Tue, 30 Aug 2022 11:47:12 -0700 Subject: [PATCH 108/125] formatting --- tests/constraint-guards/inits.cry | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/tests/constraint-guards/inits.cry b/tests/constraint-guards/inits.cry index f19194219..c0ca485c6 100644 --- a/tests/constraint-guards/inits.cry +++ b/tests/constraint-guards/inits.cry @@ -29,4 +29,4 @@ property inits_correct = (inits [1,2] == [1,1,2]) && (inits [1,2,3] == [1,1,2,1,2,3]) && (inits [1,2,3,4] == [1,1,2,1,2,3,1,2,3,4]) && - (inits [1,2,3,4,5] == [1,1,2,1,2,3,1,2,3,4,1,2,3,4,5]) \ No newline at end of file + (inits [1,2,3,4,5] == [1,1,2,1,2,3,1,2,3,4,1,2,3,4,5]) From 9cd2aea93647303a6273b483f65afad4692b8b91 Mon Sep 17 00:00:00 2001 From: Henry Blanchette Date: Tue, 30 Aug 2022 11:47:30 -0700 Subject: [PATCH 109/125] formatting --- tests/constraint-guards/constant.cry | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/tests/constraint-guards/constant.cry b/tests/constraint-guards/constant.cry index 3bb3984e0..075e68419 100644 --- a/tests/constraint-guards/constant.cry +++ b/tests/constraint-guards/constant.cry @@ -8,4 +8,4 @@ isFin | fin n => True | () => False idTypeNum : {n} Integer -idTypeNum | fin n => `n \ No newline at end of file +idTypeNum | fin n => `n From 97e7c05e6e05b5d399b92fbb823e715964a1685d Mon Sep 17 00:00:00 2001 From: Henry Blanchette Date: Tue, 30 Aug 2022 11:47:55 -0700 Subject: [PATCH 110/125] formatting --- tests/constraint-guards/constant.cry | 7 +++---- 1 file changed, 3 insertions(+), 4 deletions(-) diff --git a/tests/constraint-guards/constant.cry b/tests/constraint-guards/constant.cry index 075e68419..0d16cb4b5 100644 --- a/tests/constraint-guards/constant.cry +++ b/tests/constraint-guards/constant.cry @@ -1,11 +1,10 @@ isZero : {n} Bit -isZero - | n == 0 => True - | () => False +isZero | n == 0 => True + | () => False isFin : {n} Bit isFin | fin n => True - | () => False + | () => False idTypeNum : {n} Integer idTypeNum | fin n => `n From 88b26ea7b157032daa441b2c5fb82d4591345b6b Mon Sep 17 00:00:00 2001 From: Henry Blanchette Date: Tue, 30 Aug 2022 11:56:45 -0700 Subject: [PATCH 111/125] constant tests for constraint guards --- tests/constraint-guards/constant.cry | 32 ++++++++++++++++++-- tests/constraint-guards/constant.icry | 3 ++ tests/constraint-guards/constant.icry.stdout | 18 +++++++++++ 3 files changed, 50 insertions(+), 3 deletions(-) create mode 100644 tests/constraint-guards/constant.icry create mode 100644 tests/constraint-guards/constant.icry.stdout diff --git a/tests/constraint-guards/constant.cry b/tests/constraint-guards/constant.cry index 0d16cb4b5..5cd95b398 100644 --- a/tests/constraint-guards/constant.cry +++ b/tests/constraint-guards/constant.cry @@ -1,10 +1,36 @@ -isZero : {n} Bit +isZero : {n : #} Bit isZero | n == 0 => True | () => False -isFin : {n} Bit +property isZero_correct = + ~isZero `{inf} && + isZero `{ 0} && + ~isZero `{ 1} && + ~isZero `{ 2} && + ~isZero `{ 4} && + ~isZero `{ 8} && + ~isZero `{ 16} + +isFin : {n : #} Bit isFin | fin n => True | () => False -idTypeNum : {n} Integer +property isFin_correct = + ~isFin `{inf} && + isFin `{ 0} && + isFin `{ 1} && + isFin `{ 2} && + isFin `{ 4} && + isFin `{ 8} && + isFin `{ 16} + +idTypeNum : {n : #} Integer idTypeNum | fin n => `n + +property idTypeNum_correct = + (idTypeNum `{ 0} == 0) && + (idTypeNum `{ 1} == 1) && + (idTypeNum `{ 2} == 2) && + (idTypeNum `{ 4} == 4) && + (idTypeNum `{ 8} == 8) && + (idTypeNum `{16} == 16) diff --git a/tests/constraint-guards/constant.icry b/tests/constraint-guards/constant.icry new file mode 100644 index 000000000..b7557b195 --- /dev/null +++ b/tests/constraint-guards/constant.icry @@ -0,0 +1,3 @@ +:l constant.cry + +:check \ No newline at end of file diff --git a/tests/constraint-guards/constant.icry.stdout b/tests/constraint-guards/constant.icry.stdout new file mode 100644 index 000000000..8f64c6d74 --- /dev/null +++ b/tests/constraint-guards/constant.icry.stdout @@ -0,0 +1,18 @@ +Loading module Cryptol +Loading module Cryptol +Loading module Main +[warning] at constant.cry:1:11--1:16 + Unused name: n +[warning] at constant.cry:14:10--14:15 + Unused name: n +[warning] at constant.cry:28:1--28:10: + Could not prove that the constraint guards used in defining Main::idTypeNum were exhaustive. +property isZero_correct Using exhaustive testing. +Testing... Passed 1 tests. +Q.E.D. +property isFin_correct Using exhaustive testing. +Testing... Passed 1 tests. +Q.E.D. +property idTypeNum_correct Using exhaustive testing. +Testing... Passed 1 tests. +Q.E.D. From 415c6dacd6523660d403dce9dbfc633e1a746120 Mon Sep 17 00:00:00 2001 From: Henry Blanchette Date: Wed, 31 Aug 2022 09:00:46 -0700 Subject: [PATCH 112/125] using `eError` properly --- src/Cryptol/Transform/Specialize.hs | 4 ++-- src/Cryptol/TypeCheck/AST.hs | 7 ------- 2 files changed, 2 insertions(+), 9 deletions(-) diff --git a/src/Cryptol/Transform/Specialize.hs b/src/Cryptol/Transform/Specialize.hs index 494e085bf..904f6a205 100644 --- a/src/Cryptol/Transform/Specialize.hs +++ b/src/Cryptol/Transform/Specialize.hs @@ -109,12 +109,12 @@ specializeExpr expr = -- The type should be monomorphic, and the guarded expressions should -- already be normalized, so we just need to choose the first expression -- that's true. - EPropGuards guards _schema -> + EPropGuards guards ty -> case List.find (all checkProp . fst) guards of Just (_, e) -> specializeExpr e Nothing -> do pm <- liftSpecT getPrimMap - pure $ eError' pm "no constraint guard was satisfied" + pure $ eError pm ty "no constraint guard was satisfied" specializeMatch :: Match -> SpecM Match diff --git a/src/Cryptol/TypeCheck/AST.hs b/src/Cryptol/TypeCheck/AST.hs index 940e13814..962a013ac 100644 --- a/src/Cryptol/TypeCheck/AST.hs +++ b/src/Cryptol/TypeCheck/AST.hs @@ -198,13 +198,6 @@ eError prims t str = EApp (ETApp (ETApp (ePrim prims (prelPrim "error")) t) (tNum (length str))) (eString prims str) --- | Make an expression that is @error@ pre-applied a message (but not a also --- type, like @eError@). -eError' :: PrimMap -> String -> Expr -eError' prims str = - EApp (ETApp (ePrim prims (prelPrim "error")) - (tNum (length str))) (eString prims str) - eString :: PrimMap -> String -> Expr eString prims str = EList (map (eChar prims) str) tChar From a40d19cdbae1af672e1e2b4bfa4a6ea53d9b3185 Mon Sep 17 00:00:00 2001 From: Henry Blanchette Date: Wed, 31 Aug 2022 09:02:31 -0700 Subject: [PATCH 113/125] EPropGuards ... schema ~~> EPropGuards ... ty --- src/Cryptol/Eval/Reference.lhs | 2 +- src/Cryptol/ModuleSystem/InstantiateModule.hs | 2 +- src/Cryptol/Transform/AddModParams.hs | 2 +- src/Cryptol/Transform/MonoValues.hs | 2 +- src/Cryptol/TypeCheck/Subst.hs | 2 +- 5 files changed, 5 insertions(+), 5 deletions(-) diff --git a/src/Cryptol/Eval/Reference.lhs b/src/Cryptol/Eval/Reference.lhs index 9657753f4..ad56b3d10 100644 --- a/src/Cryptol/Eval/Reference.lhs +++ b/src/Cryptol/Eval/Reference.lhs @@ -338,7 +338,7 @@ assigns values to those variables. > EProofApp e -> evalExpr env e > EWhere e dgs -> evalExpr (foldl evalDeclGroup env dgs) e > -> EPropGuards guards _schema -> +> EPropGuards guards _ty -> > case List.find (all (checkProp . evalProp env) . fst) guards of > Just (_, e) -> evalExpr env e > Nothing -> evalPanic "fromVBit" ["No guard constraint was satisfied"] diff --git a/src/Cryptol/ModuleSystem/InstantiateModule.hs b/src/Cryptol/ModuleSystem/InstantiateModule.hs index c6e5e3f99..8cf44a94c 100644 --- a/src/Cryptol/ModuleSystem/InstantiateModule.hs +++ b/src/Cryptol/ModuleSystem/InstantiateModule.hs @@ -219,7 +219,7 @@ instance Inst Expr where -- TODO: this doesn't exist in the new module system, so it will have to -- be implemented differently there anyway - EPropGuards _guards _schema -> panic "inst" ["This is not implemented for EPropGuards yet."] + EPropGuards _guards _ty -> panic "inst" ["This is not implemented for EPropGuards yet."] instance Inst DeclGroup where diff --git a/src/Cryptol/Transform/AddModParams.hs b/src/Cryptol/Transform/AddModParams.hs index ced5c25c7..4a625b86f 100644 --- a/src/Cryptol/Transform/AddModParams.hs +++ b/src/Cryptol/Transform/AddModParams.hs @@ -259,7 +259,7 @@ instance Inst Expr where _ -> EProofApp (inst ps e1) EWhere e dgs -> EWhere (inst ps e) (inst ps dgs) - EPropGuards guards schema -> EPropGuards (second (inst ps) <$> guards) schema + EPropGuards guards ty -> EPropGuards (second (inst ps) <$> guards) ty instance Inst Match where diff --git a/src/Cryptol/Transform/MonoValues.hs b/src/Cryptol/Transform/MonoValues.hs index 91b29f150..f49ac5561 100644 --- a/src/Cryptol/Transform/MonoValues.hs +++ b/src/Cryptol/Transform/MonoValues.hs @@ -201,7 +201,7 @@ rewE rews = go EWhere e dgs -> EWhere <$> go e <*> inLocal (mapM (rewDeclGroup rews) dgs) - EPropGuards guards schema -> EPropGuards <$> (\(props, e) -> (,) <$> pure props <*> go e) `traverse` guards <*> pure schema + EPropGuards guards ty -> EPropGuards <$> (\(props, e) -> (,) <$> pure props <*> go e) `traverse` guards <*> pure ty rewM :: RewMap -> Match -> M Match diff --git a/src/Cryptol/TypeCheck/Subst.hs b/src/Cryptol/TypeCheck/Subst.hs index 8cefc57c1..b50b9fec7 100644 --- a/src/Cryptol/TypeCheck/Subst.hs +++ b/src/Cryptol/TypeCheck/Subst.hs @@ -391,7 +391,7 @@ instance TVars Expr where EWhere e ds -> EWhere !$ (go e) !$ (apSubst su ds) - EPropGuards guards schema -> EPropGuards !$ (\(props, e) -> (apSubst su `fmap'` props, apSubst su e)) `fmap'` guards .$ schema + EPropGuards guards ty -> EPropGuards !$ (\(props, e) -> (apSubst su `fmap'` props, apSubst su e)) `fmap'` guards .$ ty instance TVars Match where apSubst su (From x len t e) = From x !$ (apSubst su len) !$ (apSubst su t) !$ (apSubst su e) From b86825b7c49c09cd47fb766ec143a5b8f6357f26 Mon Sep 17 00:00:00 2001 From: Iavor Diatchki Date: Sat, 3 Sep 2022 11:56:57 +0300 Subject: [PATCH 114/125] Update text in the "Numeric Constraint Guards" section --- docs/RefMan/BasicSyntax.rst | 42 +- .../_build/doctrees/BasicSyntax.doctree | Bin 55003 -> 57829 bytes .../RefMan/_build/doctrees/BasicTypes.doctree | Bin 25225 -> 25178 bytes .../_build/doctrees/Expressions.doctree | Bin 15445 -> 15398 bytes docs/RefMan/_build/doctrees/FFI.doctree | Bin 70992 -> 70968 bytes docs/RefMan/_build/doctrees/Modules.doctree | Bin 62133 -> 62086 bytes .../doctrees/OverloadedOperations.doctree | Bin 9572 -> 9525 bytes docs/RefMan/_build/doctrees/RefMan.doctree | Bin 2959 -> 2912 bytes .../_build/doctrees/TypeDeclarations.doctree | Bin 8414 -> 8367 bytes .../RefMan/_build/doctrees/environment.pickle | Bin 125702 -> 138808 bytes docs/RefMan/_build/html/.buildinfo | 2 +- docs/RefMan/_build/html/BasicSyntax.html | 59 +- docs/RefMan/_build/html/BasicTypes.html | 13 +- docs/RefMan/_build/html/Expressions.html | 21 +- docs/RefMan/_build/html/FFI.html | 37 +- docs/RefMan/_build/html/Modules.html | 39 +- .../_build/html/OverloadedOperations.html | 21 +- docs/RefMan/_build/html/RefMan.html | 3 +- docs/RefMan/_build/html/TypeDeclarations.html | 7 +- .../_build/html/_sources/BasicSyntax.rst.txt | 42 +- docs/RefMan/_build/html/_static/basic.css | 43 +- docs/RefMan/_build/html/_static/doctools.js | 449 +- .../html/_static/documentation_options.js | 6 +- docs/RefMan/_build/html/_static/jquery.js | 10881 +++++++++++++++- .../_build/html/_static/language_data.js | 102 +- .../RefMan/_build/html/_static/searchtools.js | 793 +- docs/RefMan/_build/html/_static/underscore.js | 2048 ++- docs/RefMan/_build/html/genindex.html | 1 - docs/RefMan/_build/html/search.html | 1 - docs/RefMan/_build/html/searchindex.js | 2 +- 30 files changed, 13830 insertions(+), 782 deletions(-) diff --git a/docs/RefMan/BasicSyntax.rst b/docs/RefMan/BasicSyntax.rst index 3c46e4c0e..cab60dc5b 100644 --- a/docs/RefMan/BasicSyntax.rst +++ b/docs/RefMan/BasicSyntax.rst @@ -22,9 +22,9 @@ Type Signatures Numeric Constraint Guards ------------------------- -A declaration with a signature can use numeric constraint guards, which are like -normal guards (such as in a multi-branch `if`` expression) except that the -guarding conditions are numeric constraints. For example: +A declaration with a signature can use *numeric constraint guards*, +which are used to change the behavior of a functoin depending on its +numeric type parameters. For example: .. code-block:: cryptol @@ -32,8 +32,14 @@ guarding conditions are numeric constraints. For example: len xs | n == 0 => 0 | n > 0 => 1 + len (drop `{1} xs) +Each behavior starts with ``|`` and lists some constraints on the numeric +parameters to a declaration. When applied, the function will use the first +definition that satisfies the provided numeric parameters. -Note that this is importantly different from +Numeric constraint guards are quite similar to an ``if`` expression, +except that decisions are based on *types* rather than values. There +is also an important difference to simply using demotion and an +actual ``if`` statement: .. code-block:: cryptol @@ -41,28 +47,26 @@ Note that this is importantly different from len' xs = if `n == 0 => 0 | `n > 0 => 1 + len (drop `{1} xs) -In `len'`, the type-checker cannot determine that `n >= 1` which is -required to use the - -.. code-block:: cryptol - - drop `{1} xs - -since the `if`'s condition is only on values, not types. - -However, in `len`, the type-checker locally-assumes the constraint `n > 0` in -that constraint-guarded branch and so it can in fact determine that `n >= 1`. +The definition of ``len'`` is rejected, because the *value based* ``if`` +expression does provide the *type based* fact ``n >= 1`` which is +required by ``drop `{1} xs``, while in ``len``, the type-checker +locally-assumes the constraint ``n > 0`` in that constraint-guarded branch +and so it can in fact determine that ``n >= 1``. Requirements: - Numeric constraint guards only support constraints over numeric literals, - such as `fin`, `<=`, `==`, etc. Type constraint aliases can also be used as - long as they only constrain numeric literals. + such as ``fin``, ``<=``, ``==``, etc. + Type constraint aliases can also be used as long as they only constrain + numeric literals. - The numeric constraint guards of a declaration should be exhaustive. The type-checker will attempt to prove that the set of constraint guards is exhaustive, but if it can't then it will issue a non-exhaustive constraint guards warning. This warning is controlled by the environmental option - `warnNonExhaustiveConstraintGuards`. - + ``warnNonExhaustiveConstraintGuards``. + - Each constraint guard is checked *independently* of the others, and there + are no implict assumptions that the previous behaviors do not match--- + instead the programmer needs to specify all constraints explicitly + in the guard. Layout ------ diff --git a/docs/RefMan/_build/doctrees/BasicSyntax.doctree b/docs/RefMan/_build/doctrees/BasicSyntax.doctree index e7863d45c651b4e6d286c4af197f953a72c9f6f7..3306ce73fe6ddc805defec80b37abfeb690d9dd3 100644 GIT binary patch literal 57829 zcmeHw3zQsJd8TJZBWYTXku6(}J(gX<$Qq63CD|C;NWzk_u`wQFTLCXd?yl*snXYno zSJPFknXv^pa3Gizhux(UmauTx<&|&_OE{d(VMCT>36BNV8**|M5(s$^P9W@t1eTW} z%kKC8x9+2>d#bzUA)ANJ(Nx#1`}p7YzyEzbHvF4k{+kQ;9EmXfL-YAF^#Z?JQIKiLbA1 zF+8YnZ?v^;1A?$szAzfeE0D`W(bgE!xoAtptvRi^=DZ!{>@aM&^UV+#5=KLADIn;# z6)ScSAQ8WZYj#!q+Fokb^~=0ne7NB(P@ZPAEwmTuQ>#2$9xLxGUr`<^?~hK+l>MqR zQ*!OFSbo@@2^z(jVq>Kq`jwe*rS42EHtj|!m;s!@%ze(n-F9t;@fK)LHv%AX~yvn%#;(DZCmz4YphNyAYPJ2}~4y zlIfa0^Jt-vjbmpFj*Wt2&sDN=#lqyGb+h%TJvsjhYka}2S@vP;_zCMl`;0X&fl1G# zAtTP!(l}S1E8kOo(c|TNHDAj2w=?2G)WP7kF=CXpBhX~hyx>n(+ou$E5cVnTxNHt4 ztpPi8D^w?J*lsPfp3gcdX_1mc6XG|3#N*jm^g4q@m$Figz;fA(4ZB`873za0Ekh`+ zB{wWvwnpD7+BK^gIMzfh#-yk*5!Pj5GPhKAizwD`C~L_IeXCf8$~ab7b}T4>eb)6G zmcM|S7n-$V=tC|_PTi@M+}fh$*DN;-ay~u_CnDsA9#bk&UXw7OEyJRPBsyO`Wjr ztcA{^)5uY#<-j^;)vV*ktywZ+vpGxrqr?-INIZgWi1Ln?8h+g>JbL66D0WzK|Gc!N zxWaPupVw(I_Zvj}H_EVo;Wis8u5>vF?M4^~b5SUqD-o!>m+q6GW_Lr1FOuJsMxK3%3%dyFT?}64T6*fjx+ky-4C0BCL$GGH~Agdi( z0lbu8!F2*IS#S7f-4ZO4)Ir_!v@#@@ua244&?qez2=;`jyf7ErVh_f&7Q;*^DH#Lj zbnVQyKQpUH*Z(h4i>&`2`q`tqlGf;F5cnjk`?Et=cU7ssom;I-<*xMQO*p~miK{N0 zZ`PEWRVcU%&^2e7ywm_vKbdoui%vZh(vP0prPP2cn764jhGtAqml{l1aN)}iszTpv zowX}XhdS5ONOE#6ic|ttMwyVOKH&jJElsNzod-WRzXLpii7TgZi{vC$7aFa zy7(Q|#o4TU(Tzsg%XXmmE`{EcC_?I5oDsa8+NT&&QXtmp2Q7#?1=mfb%_RZRRqSU`!SKwj@U(=1T_pnx34f` zcP7-&u=3j_JER@lLfp|+vV`21DBsiAbBk>6FJGO_x{)X?S2y^z8Q;|=EE0(wh6L$m z7#AlKE->jDmjO%H72%~DWEqU&awbS%6g4FKQ`NzMvPZ^l7--t=vyzT@}Ojj!dw%(RyEZ3!)o{R?CqN`<|o? zk{IkXO_Oeh@%Yf%@z`P5I9+ShmYfdpw%9aEK!;!|bWIH3C)W<&(d-siHy*8}bUL;p zEL&vHCBDPdpU>(>8RIXl9pgJTs-w^#MH^RVI(7Qiyl<_YJ_FMRVtDBSQGd=J&9_Kr zZzLMk{z#sJF-G_S92JvX7bo)MG0dzQ86UWE=z0kKk3lJ(aBNmEwMa@GBMJHWF}7 z?X27IYs7U7=KVU2@KI5rK&9sV+HDH;Th%Opn9e8^h^8D#OQOb2v71@4Cfu5c`=f=* z$^=n@+V%0L5lnI{i+&POX*Qt-HxfYy7hW$rrVJ1<86G5+gWHUmg=V1Qk^vlOlnSjX z&4^A-O`#$eGcS&fSqU!SV+N#(IT@?wI3-ktxJDgOlZ6$CSH+-TK!bU-jCtb~u7t}o zNvCscHECXX3purh?nJxV6h~UuM5-F2coz*~5I*MZp$AXt_AzJb?WWvfn(;Oi&fyjQ z=tyJ)Lk*CW-tU-ig4bbpyFkc{ki|$^gXpsxr~3UV{zj?2RBmZ{#6Y90#&ADxn9-!z zeH+g#qo3N0+9ANx3F$Y6aB$1GkC2Kqgf|TkJ1Ngjl93ib7)^!u=U!}-bD_P2b-NZD z?4Scq8JS7 ztH@Xy4zAIq9qda|Wsi5D=SV~|h~0zNCt6N5>Scn}bhJXGyKldoJRFmI+peL$Ytoz9fd3%3C z@XI>*J(?JXOXb?tHagcWvLbyrQD3Sgmnj5J5U?VBX!UXa2FT*q9&6<`S{60#SfsLQ zkYWRXrx3-41K)-F{n@EgDEZ#3c53yiqpc$3(2548XmzxAHOY{OT#%b>_0iOoR73_j zR&R=G->z$?xX5rHwGVOaB7j=nFM=<+k?6A6gP+nKe7vN-r56m#Oh)i14!t2$%FT`<^PnE6VQx9NNA1(9b=; z;Wz6%NHK;eVoj0XShQ>IBNQ@}tBc5JAYMqZ!s*=ej0Nsubs&Y^0<7gl98Tp!yp995 zh`y=Mi`3|J?uD2l=B7hz#lTlY`bf=0VKiIy@y08dsN}q}=+-E@$s;NRz|=;CwkA-C z@kve=(Ke0Frl5`lCz`5YiIpX0t+AX512zVcS~4o5B~%m)#WKUjq=g*=h#T@s<;ffY zxPbVozeE7uD)wcxl@-gQ;C}y->gSc}T8Xw{u7hj^J^EH6xxDxVhB85k^e%`S6T4Ip zKwgT&+AF+!Wx`rU+9Pr&OD?yF?JUQw6{+oOuRx*3o%UYfwa)b~_qHRcEyXAge=v_A z)B=m+t#HY2lkZ7P#gGm(tipm=A*|jP3s9Vs2)RQ`azYd5op8y)9EZ$XSS+L(0LrHf zNe*vfHKVXL^@dw3y4W!guO;SCKWU_?yJC{kp$QIR50EZPZ<2Bg0NB0T#q&0jvj#$m4_$!vrcjrRn*qi}4dbG&h(-D2 zx?sF)RcX`BL@Am2fIWr2r`HAhFw@t7GfwCOrWATEt_!C9shVlP+9P8hIHb_^k#*s) z!>}F(#BIszgYS*&g72m^+cN{3byU&?cO!0tH6*dolxAg^-*wxpw(rbB0*=3sVPm_J z)7Ds58kwnGAWT}66zTbJ7SKAZ-ZlMo4+iA@mgobk6>TS1bPG)IPp=EBq^QgYifLj6Yi!7~Mi|$qrAC)6%wpy%fO90Z-c&(5)3QzS09Zosu$YqtQ~zsBQbL zK2{fC(Tr3IouE83@Ba##{v->DXs5LIBUOS&Zu5Xe`D4*%z1nH|l71l(ZN|YbgyPk8Eil3m7&J)2~D@$=ku1 z3Ednk-$jYCsg4v|J8F%s-R^ca=!&D{m!2>Z0~L%DGrB5<@!;BFgazwIEOdiWza@I& zG-Kj4lf>!9wc~W}#*44g^k@?*??S2mEMW;Hr2&D&>Cx)^%!F7QhOwO8ZZxckncU2b z@s(6rT7+C%IlRmXRi2pXs6(wb=)aV#Ev^D0_kEKb3^$NZD~qGyx%22$GrDtqBBX!yHyEx zB?41Y9(Wx>JF@FVU{k`v5pJvzq<)=-`-tmsJOqb5G_W&C9M*7}qMp1rTP0gnte2&} z-fJ4g%kZ z68c}m2w<4vc>}kQK!3{l_ekN^KcJz zs_9n3DHOV=j-zivzY!GjhqWto?y2O5*6Qe~g#&{7AC=&W=^Dc<4YS-xYdVnEV6!p$ zSfXTaV?=F1G4@5LH$xaTc$-xJx~TOhYp2%e;dTu(5bgNX6GkYf;%IX7-q+U-WB62P zyg`Vkru}Zz#=`He5#wj{woj5VSM{)D2Hrih0>mf#W^1%Xbl^Q}jfR1vTWUpDJsca| zDU4*M=3}Ef^VB~i0EDTDw&SD)zjD?oweA{VTQCT#tUBO`-nvj#`w3|dOcNz# zM~u3`2~0GHI3>zy7@j1I7kh0uRitS176{{Gbm?tkzL94#jowT0X4UTs2k*czqk9!S z`ke&x_ET=*BAo*om*W*E=uyQBh%>ZVoSsMIk3;l>=6;<I%+wMN;)2ZKqj4f$^5DDI zlP~%!L})E1p!rrlSkGu?hsk&CjV6*)98z-sQXJBr>J<-QdgfD9_wE;1-Aj*tWsYND zbE*V8uCE2;ItEr{?^DgW8)UIeXU>Y9xq!U6*s&6!4FsifrV~eVm)eVqrvh=F5Tr7Y zv-i2gq@LuW$TZALqaZq7NCz`?F=IQq4myO4w5eHKNr(4tsr zmYiJGFEuMp4l)@3!YO%91E&T!xtg;?>)%ntUaZ=9kev=!XlX@_cWdM5Iod9UVMI=x zTa&YcT-l{_a62rAWnn!@F6uw&J+3MaSHZ8ts~%w(`<%h*fE|lR~{5>W;R{uABSlS5R|T z-t`_simA!wymuMC$T{V>@AR%T(xUCMS=q7Z1ckcyCaQnTdm}yiHBe@!_&yYV0}2Cw z)hRykLJX|2PNMCfPz;e2tAu=s)j+%|fsJ2dT@Y_V4RHEL+drWQB8jy@eucispY#;! zrBak8atdp&))A2l8&lOkp=a@{P+|2=>6=Jly(J}68Sq0Wu1Mj!8u8ay`(@tPZpc?M z3^49!K2{ImzBh{9<>= z&~&weGR-wIOb)q5(Ph}Wi?et1LYPv1eudploYL$49-8r9g+D=bY1fPxCLkNZC9<`7 z7;kL%FhtiFd+mYrB@V$Emjenhy-;@C2D+xeM=S~5j~lLt88~#Q2%19youY$48%|o& z1v!c)+!8u#82QkBseCv5O=H$0Tsz#Ad;i|>g^Z%|c*QM-TC&^{rc{d^{9N8`Tk!+`d`p=8|U@$#=Opwc+b zuTWgE%<`Gkz&sh!N;^NC6bYruF7A%l*naEEheCK}Sb(QUnH zr>x3HkpEQg{8Ch&%URRW9B$A_@KQwLH!T{AgwL4g&?B>C6S(tP!R<>ljtR^%GZpI~ zUM6QVjre<8^1f*BWyxv!$1~wiY<+ESycJvj0Qq0tJHKS>s|50?(%XZrzeD(7%M3j- zvz5SoS5|O0o2@f1>rmB*R=ucXuyy8T32pscCj5!5pYDyfV(T9w{~z_vFWLHW&blsb z{d>Y^%=-pCGP9My{d!h#HchHwC9N8oXs&XC|&d6vX@yB4RPF|lJ?7P=6- zx1j`_qJ4C-pf-w27!1cBO)|HGLLf`CI(Q&?+{ONl2L*7dUMk|=%YXn~RT6}m%?IIt z$&VqtX(DoOd2)>)q)MIAzmI`OTbP0AK1A$T4RF?U{Trnas~!!>VSLn)u7#yQIF5M_ zWkOYkIthgbv!akn9qC-HwFiB6p#Y}{I(SU{6$*I*53H>@_DoJZAs)w$$FKBcRWP*` zbKc6kf_^0(saI#B7wPINnNF+dDt%l0cq1zbW-VO z^SpQS0U-8C0t}u=YUxMT0YFYuGaA70V}ebqaDqr7MFo5uJoZdon(f8s*8xcv10FL< zTTK8!va3mv1mLTi3;@hFYmJ0p2yY1*{Nv_>a6&084RY|70AXNzyE65w5~+qsneC55 zNFD`}eU68hIqQa-ZHsUm^RCQowbu>~rU&WGjL9ZXxuM^1;PhCF+DPS#{}+!S;5^@mZIN! zsFS0Q5q5&30}mzi_SKm%=RUPJ#)_ez0)-y!onJC^nX{%d6z85VsMv&f(T>$S37awR z9rVb|P6GCAS%KYDc0xn1xu%n!A1Cx;4ZY@?1VcZO33p=X$9m(e82TCH|7h?0lA#~r ztmzExp`m|G_>6gfNsr7dC2+rz72Hi_DKzxzPL5tMqBuHmb%LRT^sR5qiJ?F3jj>|r zXOaIWz4J?k{)n@#i=h_bgI+WfTCx`&o1{fObu3H2)9rTb_O zb;zwW#yW#1l7pR7ndrkkEz@O{!On?9bw*qOpd2$sJA=oP!=2NKvb}vfYHigRN&HcH z92A&fqA3p-ZwVz>*nAL|{{20XQ1 zDPjMWv#vwJ{+X~D^M0HODJfwD><_a7n@WfEO4wD{&dd^q=_*9q(DUH$40;!O>DI}B z*~Sjvf#e3?D|78)lFAfj_T?zCs$Hj#t4p1lVuRErr_yEs5P*&qG~C_3t6{;!)s3$zlEbGT}}g%DZ~wtQh(y$p6mX z`K29yJ7-O2Xpd3grwAWRozkQ4v5;gbf&1~S;BG2Q#|nj8V76hmZ;77=*oq&(gUv+3 zcR(g-JqB(`Sg&tnq6xA3ZKH6x}Z8nz(wK^#jvxt%hlAv6Wu)**k6H-$D2-q7@vQPUjfK8>tdQIxy@n+3#tQ>{{!W+ilS1P^R z7j2gxwQw0}z~#XN6$}l5e5SeAr9{b8=CQ{`ZLR8Yr2`^yB1L(n#)W6i&aM%VRIVuL z{GTAw0}Oa7f>Jtvm9wTxXOI5jHwm9H@6DOelJZI5{>!Z3rc$C^KGU<_EEed9<%+9k zjkeG_+tyu!w8Zhx#S%xcK3A8aEqd3BEqdloJSy>NQNmbVKAG5f=j}iiz28plE#)=e za&M_#(T!#fVa4O&Gqi!FoWsp+JB6tfJJ}*!;~Jmb7;iRB*^;+kofkm&wM@o_$`Rm9V%`B8;Nm)3M<1xQ@lP!f zn#6x0Nc?3*uq>PP{=y(Nwm5yJa~ZC=0^Se_MPn%v7kB-r!TbjS=KsnBrd$F4R{-;y zC|I}=K8(|l-H5u`JdnU|@t#9p( zv104rA^&gn&M(>eX3m<<)*bgZ=W)1V(d2Afnr7}t3AZutKhYyIa|!g{&kFixGgpOk zHFLj0*u~6EMtHxP33FoZpZCUCG54Fu|Ha<;W4knqld<#t^sR5qiN%+pM31glvG`lazprP17HJ!!VpNB1@foYaif@bS;2&*ygCVKRZoE*;)&^KfSdQ;g-GXPyexDOI~LUjjc zk|EqPnQ-U+wl~g-vHu%1dU5aklCk%5)^x^ReXHZ*NX7u&rZaSu=sdiGUcg0@sj|rzS?+JQjwm<~(=dyylsZ50hI@rYm{Uf0lTcCqU z3-p~#xRV9?hu%0Vw*C|Hf2((X$<}Xh)^xTWkVb_M?!Z;*<01fq%hhd+1!{}J{=oe7 zkyDGp=x!E;UG&H-3WR13C42O^?PzYcD0G`ooFVjLQRtXYJdz1_5{0SWI4e>3F7i+G z&M#?nh_j}P!tUFa>o~mwr@gj2l8I!^v4Qn$G6SrN&qMMZ{vma@88A%iOG^ zO4ZY{X!gH}Fvkf=^vKM9LhKD$5!+Pu(}gBoe+I}}`=0Gv9ZN|mTK z7JQCtO>MoM1*ui9*WrY%s@lt)qB=CHM0E%mH2zG>Vfxy)s*<1%phS;uSW)Rm$p6#+ zsq_=hnl7l@?zWfRYO^YZM7=8o^sXkH#=HZWP?N)60{P0`C`!f(kT;#NZmpBCw-SDF zCscK73C7-*343Df$=+Bi#{L-jPxQ_&sq`Gq+KaJnt(~#)yJl>Wa2oS$dh{)`lCcEx zLs>!2z}WPx@%*%yd{{kexA|!?d#20K{PeR@=cn6eVCUK{L)b4Tp{Ho-RLl|^XC3RQ zYn9Q`8TI^Z`ouNO`KHWN@0n{>orYVqUg+XHLmLzFu^e}P(9Hk0g89FliTN}i{T5Y% z=c9kxHXr?W5|sEXUUiSa68xYLS5M+N*m;+hx!?fvVrW+;*p~Gcmb4c>z zq`2jpFYg|R%Ta#1;+8Hq5XZuy5c&YF$AC@Dd{e~e*PkZ%YHRiM0SU75J4#kMt`fl5 zpI9VCb#QiG;~;##MA=lwfZY;mjop%6ZH(9TMu`u-A%w(e2z^}>L-@(HLpZ|__AiIJ zC7(h{JnEE-O_G0r) zcWJ96r@MbtkbB=Jii~;xCktVWgKO^|CTRZ&r6H{9%WI zD08!2@^#BLe? zFYuA{X7=t`C9!|e&{kr^CS+hwy7%AvSbS5Ow6c&>bAxbd^r^3MZCu((uTqI{;HEeP zUoSR$;9eXj)zRN|cIfDHjlR;7{kVl|9x#sz47uV%Y@)p@5u*H81^ zMSMIxrN{C+ozyn0r^9tg{#mC{@!^@2gjXOgB;w=I$qm7g%1)yJ@E00>m9B6KapE+2 zI!k32w_6+aQ*OGtXxftYN1V$|uEe8HA!&{7Ivjj-fF@!e_ zIqTCi5~X`P4b&bx4LRzpgkb4PaT%^o?E+o$zSf#@7Y33e$Y*5%Ownfut+b z7yUe7(?uGz{Y`ULMzcCAzw*L(T&GXE=0T(y=dGSWk=(nV#Ba>IH2S(8)%+4Q~Jz{tn)c2#$zu9{5`ZJUGeZ-oG?Jk*mVRzwp965Sj!ru{vjvS>@ z*L5wlylSBvsL=J@3gwcpDfk|>UomZs$HcXe%|2`$KVjK9%8~pB;B4!-btjBFuGXRZ z?O=Ui;c+>JRkKbUkE6XuW@GF0OVV^9jS@#T)_Inu)lGCC&W|CLTKUNNdG9# zOgKsCW69Ih-kb$w zj=Ly$M-u{SfZFk?CzK@H3d(aQbX{ya-n(`vU;Q-D7-a~frvo%yc%iLnnk#cvR##^4 zizbp56X<$aPkKIVNQ3**hG%QFeq|ANwOQI}skcFtOU=%E{|Yw2;lcpMdv zBX}IK&Yh6%%(LNRsL5R6^&rHO6E(y|ucM+|rrm)MzRj}|HIU;ZW&CLXi6SYC*z4!O!X4-sI_C4r2i9f({6 z)=@^Gtp=o4?Z(5jIF{)|AA^|B&z6SXCGflYfUX>RXCX1DkDPA5cSy|>#p1+iBn8jN|BETk~q-lGJoi_&dwZ*XLG z`Y0k}(?^}_Oh*-NDkUP0c4YRU>vFTp*Ue7z)zUH(GEivl26A_g%pAEP&Qdo*dB`%} zmgg`E9DV3|iSSd>wjwAC)+0=h)w{VqTw8;#T4>0%y=jA8+vvAXRw`Yb$K=$MGTw+q z(HxVw{*Y$Q0>o}?1bl=?oHLv@F&&023C{E)Cfo{z`*_KXT`3f_%T_4dj>)f(X5Q?o zTj7HxxLUfH9Si1Y^2$ALFlrNVJ{yG&{p*AV8m=Ig+iJo|G2bqeG{h`>Z%fp(x)e&c zkXmN9FsGTKD~-(5bU3j9J7%Q>a+u$BWenkeSUZFlb&(OJdQrEpT_D!_lxBo)Za2cl zJoR3T1@ET`Vj=u2+#J4C=*LhVrpvbJrksXD!B}j}Ks2|juJOH~Zs1f_F!Z{=iCJAW zhN21LhU4KnROnnlYu1W1W}~TrTH8QVu6WC>GC_`-U!u#%(Waa}=jm|SDh=G?4U9P~ zET@4L1%>INQ-um&DUL&HYVqWYR@O_p5=RR`v`PlB>N5$^FqEKA;rc?NhTh^&ZL;`( z{}+>OT7P~)3D8CE`ZE#7S2GdOZ&81R-jA2fDpgjq74nwwLLpB*p;*UJ#>@^vKhDAe zbR7pLk=o_rvN&|9(nLU}86tGDLeoLq1w%J+_jUv8N1&H>$)3kvl_pUV3qHVv*k-5C&lzLZ~dwVY8fx~Wk^t-y>95~!g zFzrC;wt>TCv-9~`{KKCkvvB_Nx8ooF+;&oel9EFK$HH_4*S)$3_2GmYFls_aTig=D z>b&%Ror~X$O83OpVoF*I(EuH37s+q3dk*mJ(CX*VVadEv@lM1@-QrZRQVX%2NN*Sr z=?J{W>4^%51XFnp{!rQmqG)U2HycG<0XRtx z;Dj_|9kikgOMbB#x|LuWi`%gFp;l@|TVG7ZF3`78kIqFSi%t!D4?@3z@*^cXgf9Z4 zhL;_pnLO%#7_V4iMbPA%jSAj&g?=$VZxu_|Tv+ROU@amd@%rqPgmz??LBI?_{WH)Gj9yws&t4JB4Q-B=8sP+12 zw_C$WdwHCe=hH^-Ry5KK7p88U3S9iYqWxnYO9=f&9`o*{iqim*3DjcPibnlr*j~#p z*V2miC%z=A@D`w8(QZ+%hC!CTqWwdnaI}YT2tcSZNK^q%Ei4SxSmwp3eUe@;RC> zxdHjdKqQ88o79H#WV92=1dxBRNgGlVXUi|R=%iav_+U^=qTO|;o>zxa5;8j}g{DhbGa{=ThV|g)nVF@frRn-g zSoUkveq(W_6lnxPck%oVbk z(8ocZ(>OPBftx9Z)e4#z3GI345VoCPCQ!#j;JIGN&Q54K!u~(tK32jwW`) z9))fQ>I*CIIAq5!Vg)WFK$?Y%$WR10kgF}ke!1Fg_ucrTlLl&qPEnUT}4w!Mr{k~rRRyKXIkEqTX05d5N)Ns zPbI3tdmO$3KD-JKeAq^{i7(^cNf-t11pbs?T7F6SHRZ>=?+ha4+w|xASbySum;U@a zRO!8g{@jH+ygTU6r*JSNpU3L`9=%cGE>mfk$-9cK*xp9!DN@KX z%6vj<%oLFivIHfgsaU0lob}>FqRKteR^y0ll?z?eRzEtqMo7KtCCR$tFBe2P*zF?D zO@ey1q8&K;w<5Fxe!{j}q~ zD*+6dOw}I7Fg!-uo2yQ~joKrz1>1mfv_)vK#)Zlk)=CHC*4ib9g+?ZM8h%x z#0&@(Kor@TD2jqT`d9@-%%HNVFt{*+qRwM{E^mD3Q{V8;sp{K(Z_){I=KJ_A>8iiZ z`Okk&)vdbsesMbJuY*x41nmyW8Qd?sw*uOVtK8ly0k`2uc^h(8qw|)En;PDh1;H4T#a5uv%So07Ojh_s;xCO z;HD4!U1F_ri*B0*FV+xd!|p5>eN<}15{pwTwu(+5TWv29>C=Xg9yM9wSXVU+w^UYD zSO+!Pf@e3S+u|A*ODxC!>nxiZnwB*^3g*;)bHn}(b2hzg3!OS3BTCKUXIz155Qsq| zf=3T{=wDNWK52-V(pm>U^?$>vP?P1!(yk-*rXrWyDkaAb8HIn9Rjz8c#p$l76HD!7 zW!7q_AhE34RVl^w+Xndv+b)1k=WGUBkS(FemRM9Z?g$YNp#m$Su>&3OXgXtv4)&3w^(X*TdOPW zPH#|Vr#N(om`m@Ejn!TYbe81Qun*zNh0D6o2_3HOn__~$q|6NS2@_gc?Wz*ZkK{foE~=rwbWasTLJuAqUOypQhWBT3 zV2#~b!cxIjjNY&WNDC8|pvwuh=W>b*EEToZ8k2~L#bnoH`7#&cw;+>E-fGi3atNVS znLSi0n3nWntezC01ehD>>e7X!#{?PdynDYy#@|Ak`}0;6HR>}4=LOW|nQ^X#)&dv_Ylt`9X1`9Ma*HyhlRmc$NK7D!jGCPWHE*yf_A$YaAOR_{t zk}`x4kq%8Yc&Q3+H7r#RlDWjB--M2%bCV7WXIT2wYBTVsgOUy8JPM#e8KG-UvcZcGRT!F- z0HJV*UlW$z8#rtLALgAQf=RYUI%Pd?}^qnb~DjWB?qVMrRS+c&{ioQOB*Qk&Hy%v%}&kycR zy3+N9nL1q%(*FgyRC2&l~A( z+A<`Kj6xKv4M_l8Eqp7#R2yqqZ9K>nUp#aI8BHT{6Y0&Ny|gyYu?+0wCYIn2f7<3K zb~I<{{Na5)8-~S_Sho+y_ePEoXrPCO8_A>cz}-Q#`-pz+pl6RTk|$fCkB%s92c0|8 zNOreEuN!$p02fL6erhvBRziP2>U-f>5U-_D)^dFGBJw_lroVucdAU2}VL2`Z(dA<@ zV{Zfu>C~9MO z`G(RP69%+{Hcm_@la**s!$d-eNLNkTMM|No51m#tLtBhI^$wA~Qe+fF6%&6xG=$Uc zlb357dG8udc{Tpxk}m>CgNlAS`IzvO3KJAO!P|86{%P73d{{UgHf0uZG1-nxnWlZ6 zHy;CQnM}IF*x)bEW%R+RziQv*sJ9VC&5>Ho3h;GU<=HqbSr9%#XUTe8@2+xOD;qoL z?FYt;s)fEr?L2GULKmDF+4A@|geOke$&C5k))qT{4?WUm5^h6y)N?$pqK`e8qy3rt z_^D0&yTQ!=s60PB_?94O)W9j7-h3!d!<#qEj0^n%Mp|ttvzr_*s%Y}e9GzE_!z%jl zOjEF4-KC4;mWr;ODF!1H{`R~&a|F@$f)22qLU&F!v8sH55vB#R=4l7=zW&%3W()VG z;$;Bj(JyC}hmYs|W8pst>pnWEv46KnluGKL+h;G=R&kWm=iwDFFi(y5w{Sb}E8`X% z^rYE956;QfuHx+tiZRRC7@cnn-eGj59BE;F+PVDKSh{;|60y?xCDFt|b9VQPA2MX9 znQsKxQX|RlctuUa%?9!(aO7KV52)#gEk@0sfaZP$&3%5FgSGE*R~LO05r0lWaUUeA zE;-ywv6+vSSYfDdTSC=*={seKqu*F!$PaQN-*Fotf^iZwpop2fr3G`hUPk=4UI&^4N^6FViQ=t%JnHTQlU80$C{0aiCWER z;TWLG?lAkxOyrri_5)%w%S~i|Ypi$ersiUm;8G}3!QJp04zcBF-{tP#MpYQTMWISX zN2+{ho9R_#qCK5_qhN6h6^Su;qq~J(+9-0_o-T9=hHYPlPZT~(5(S4zq8vQ?T} zUv?OUR0b}PiiF#O!#@e}ZyfLkBrGt!x$}&|fX;fn4&d>f1zRdi!o!^f-vn@F8?bbH zJ_hu^Ql$81s}$=RgW1$u6O8*&4GvfpET4NfJIXOE00xcOyktqhh3Um$`iWC7yriVJ zFPP286X2s>ncP>VCA-DN2u-fW%|kki+}^rfnJ z;Tt8VTb$D=luN0i2xS|-(LaMPQ)k)%om7LrujiJa1Xj1pq+WmswPOx1R{bfHu!0U1?j>HY3_ z;#5#_a7t&uO}T?C&lA``jY8Y@lA7SNOfsG z+hUysJ~@n!RFj!t#9Na*02>dWj0b=NO4tBtu4K{!b?r}K19dM+^YY)iB%RhS%Jh+6 zDJQ=&Ao*3B(}k@{@@$k;0XRykfIW|<3omsNoAQ`ZIN3?;9>BiW8tWC1F0E4uD-;4Q zZ7tyUT)=OcfNa3m3IUhiMZkGWLo=0I#mEpyG;G%4MkmafT{5~Q23Q1rCJAOq~%AKi#GL+>=5=q1Fpg=tC> zlj-s039*yWMVtEkdbyFFe=IXsx`!i*9Sa3f{`||z`SD)9g>tS)7Zx!`zOBXN5c#SS z*x`>WjKZ4M{78K^nJ5=$Jfp$3m3$sN&j~bhf#98rV~<>*@plvG^@gFbEoh^S0ysl2 zD&uHT#1VMd=9THfXUaHQfJBD+5^#G{9?L0zEQ58VD@*hp9tUE7mB(=k;|TF5njLNS z@)O2b+`uQsHmXWo6*Wy01Uz7k=3RMoouERx|TwZHYX5xYW(;T-5}0vU{`!d$WF=m*uwN;&)%+hzIZ&I=*Dr}*sfTr(N`e? z2?y2O7bwsjQ{t)pi6Od&IC6$$k)Pl{h7r@D2hd~K!Hk_3V?t%;MJw;dj={;^Go-i8 z3=X728$UBUOcl|3i{)8^>?;Etp0>pnNkKhE0K-%XWFM4rZz8c}l2$z(-b9Y|GfV}RdPi)W&r`Z#7@Lh6Z^&Jy4(5y|ZZ&WR4(0ilGZhfOVt0a2H zNAz#t`3*VI6LO-_n~P(=K)Y?$QQRzi!;Jdw2VaEJ&o}1?@E<-}MZ=%TLpsrMND1_l zr$Y3~d#}EmFC@~7E^aFHZD)GWof}zM(yyA*rF(2Nz**vPuAkhJMCWd_O4S$Lt;0+k z=z*t0!{|I1l@2T|OXvwFWH zR+xe9JHlJ#PEU{Q=qV(Gp-{d8?GeV#hW`!r5&2JQA|b|pEZ!#XIsoZWrAo4A*^#RgSc7SWb%g+8v8j4SQ8 z-B;b^5=pG?{5?tZ;&xwkmv`()41*WGvge@mz>XL?Zf`XGaEJf#*?#VEz)qjXX1~W_ zstfRgF54ANKV6qbkL*g9Vr*uvr3bRd*dnjEASp>I!$XfYQ1}yeEPfQrBEaI za_PtBe4RF&%_dDaq>pb-g0RKEIr-UB`LR*94y2@qrP9SU!e#jvalAl^U%NN{&6}B4{|Ou7Ul52 z^_WBm7@6hSzh5noN;?0KJ>i3)6b)~szr3s$;938=cT%PIA3=1)VZCSW0jm((5KxdS zub70j%#E+S8p3IRk4b?4;M)_eBjwius2Dc*LzY|F0i?=|GHdPW?M6NJw> z@7kjY!qmD`hPh&Lx`P@UfSHM zaX!puj(zLabb9La;CA3RA*x!#=e=3i4*WL2S9rtnzHCGq>{OXe*PqI!Pn;Rn&e%`R zqzju`x$+EnYZ_?>zqKV@c)k^${@Aj;9r$y9P8W_bc#L%5^-=2z-?i*G9uo=wkKvzR z*1-3da8{x7U(HWT>s)5no*k?Eh-daH^P{NvEHrXC!lQpXjF2x`YQ0TuQ(Mq(YU4eZ z-&sv!{~0i~u5J6xIcUvSmk-dU z555&1U>15$8rHcie0n)cy96ER9gESLA_*hW#==NC{mM*XHM}f4G$Pg8)G7%odueV? zds+BP8Tr}s++X4ev3pKmok)cDB0Z5G9U=GJV{^N!Y6fLzS6QoSva0IbHkUKYRb5X1 z{_(v@X;NpY#chGFkntPNEW6cRhKTG^R|y^e$p>-W?3I>s>)Z;Lr4&9HZfaCj*q!s5 zsOj3MZlTu7Vr%JK2B@JG*Pf^^#S?u^qo&$gW`{SZ}E;`r=`-$d(s{I zK@`V6RA#1ahHZsysbdy=3gUPOFJ}1kz%d&yp)k^+!^>-U@!%yFj&|(nfrGt4X0MLB zz_MEJ_&?YNIQF99U2v&w)S*N6-6DQ$%v=`PW)|626ftK-%ux|@Qp6k-G2=zd@M;Gd zEn@bHYHdkqf$7|K9DVuv3x5p?bWR#Q?6kF-*mzS686;zgF?$=RtzdYP#uX&@E)Df!8hSI1ou8-CpHoyR*CIW?eE&?wN3jIHV1X8Urs}6;CYB^;WM}FZ7bWW_7gZLNM3RnrRu7_ad2q~<22ro?CFCZ?wrPwAWW3Dm78UC!C1<4O>AU17m*%GCl@#lzXO?7?Cg~>^ zRTh-w=WL$JX!oD7Z0i+9S$+wLjFOUqVk>?9g4BXyy@JY;jQl*k{G#;ff&z^0ifS;~ zl*E$6lA^@q?9?K?%+!)JkP`ir{N(BR0*qJ0cr$Yo(^KPf@)J`s^U|mEu;gUsWlxzN ZB*^H@%afX$l$sI`R#Citk|5(UW&kj5LR|m= diff --git a/docs/RefMan/_build/doctrees/Modules.doctree b/docs/RefMan/_build/doctrees/Modules.doctree index 49bf0289b1b12bf3373a07308147ad92771ea3af..8b613321a349888b0871f7761d434efe41992d84 100644 GIT binary patch delta 178 zcmdn`l)3FGGfM;O)as2aE{tk+`WgATsro6Ii6zMy*_ryqMalZfMU@35`8oO}l?AD~ z>7|K9DVtjuYhNlTWR#Q?6kF-*mzS686;zgFcS*@{>z*Q}arS^^=P# z3rg~Hbd&S*QZh?2^YaqH?BbH5#LT>s&3TNqFC`>0N=gcft@QN^QVWXp3Mxx7^7Hia zi_#}^zjjwtgGr_&mLvjoC11C#tq=8iEr{pJ3&U}4Ej5jkkF+DXtCqFSIGcSEg z4@*vFUiOs9K5v|Pc~WzeQd8o=3W_)Pym4b?D&d=~C?hxdLjoI%bXFmRBlXFUF@Lhp GCo2FM!&S)u diff --git a/docs/RefMan/_build/doctrees/OverloadedOperations.doctree b/docs/RefMan/_build/doctrees/OverloadedOperations.doctree index dfd0f3dccdc313fab25625daaff5a0a7f5adf8ce..11e0aa8fe68801e33f87cbfafab346e9ec863ae6 100644 GIT binary patch delta 147 zcmaFjwbhHIfpx0ZMwSFdHE;cl{M=Oil+47EH>OEU8F^zw_+^;1&I^b1l8iYKcox{J%e6qV%X r=M?K@rk13E6ix0`yu#0unwylG5}%oyn4VfZrE_w*lJn+MO0$>%cpWx) delta 192 zcmXwwI|{-;6aZ0Tr>&-wq_8vFi=BdyUeHR{-Dk37f9$>#>8!;r5o|n!h&S;F9>fpW z4b03VeWk&nb6($qZEH%&(u4CP-$|-j4v0YJhLs95dcs^~(a13~nhO+0(;s_uRA{^( zTWT1FIimFwLM&LH*a~x_6XUXa5G|t7Uvi4{bFl(kA^`W_f^fs?GJ5uVLeUI1(oimR a)|>(MBTE{iO|X7wacWVqenwJGVqS7aYDr0|zDs^`X>Mv>NwI!%QDs3% zevWQ(eqKsuNoIatBA8uVQk0mPSF(8mqXV0SL`F$TL9vy-enDzMv0g!CNk)F2UVc&f zFbx5m+KW&mSp7T>E#!t>!+la=@+CH6i=3sbr+X`DJsd& r&nec+Of5+RDVp3Odxf7TH8&|WB|bAZF+H_-O6TM}Ip@s>BWN}7DOp=lD5&%sTc1&7w>5b2}n?6dd- zZU=XFo4scKv3Y&m{f#%>lC=ZtNR~*dSO$nd7Mkq~Q0NG=2ZLIUnO0n&(2D-pp`}7$ zeez^C3^PRICWII;E;0wqw2HJ%%XV)$9Q`GyNIw_L!A1gb_bmw5tdzZHClCcqA(onQ bq0;K?OQG_rT=nNc3yK7I{0m%t=?@xjK*~o~ diff --git a/docs/RefMan/_build/doctrees/environment.pickle b/docs/RefMan/_build/doctrees/environment.pickle index 1e4de8bee53da6dd32afb69d2a4a2a106c6f4262..b21911b25cfb44c2f1a9ec4e7622d5c683b768b4 100644 GIT binary patch literal 138808 zcmeIb378yLbuTWBwwabjqt*LT@?cw%H8Wa_H!Ne>k{4u+HyIn-a(7L4&2*J|b62-! zMp%GDuq{$x6Pl0(5+K0|TL>W`2?>F`BoN{dLdZ-0SqOn7yzn=Wg+Nwb-tU}yYq?d` zJzX{3W09cmQ%`r@Tj!qro_p^0npJOExor6|`sZx2Yelm%H*Qo;nDuIlW4THBo!dac%)bTWl%zEL-ff?01lH%%0)Wn-dX>WzHyxH)0h^Aq{{ ze63L}O*H0f#@I|#uNUkIykk$?V@w~>D-+o%YJwgS7`x@H##;<+Z*pjOJ729#n=>tE zSkmMEUVXDD@CX>Ho-pclvw${FwVYM9(P%P3#$3aw*k-k2w~m3%5tlD>jqygcP;L2~ z!jrPzC|del%Q-7hZN_XAn^QG?hRE3<3bOS^A=@Y#Wus*{gC)HJR?HY+;Fe;eT*}sr zdRZ@-mE(5S1ja3A#oxd7@s_iuRXdgWhZus}RYCXxSRjP4u;#Wq?~ZN``J5cxCVSo;~BcTh981QLdHrhGA!G zAP-z{GFk6gO9yMK&3fL*+Rf={6SS|*S4$;e$vkt`-dQggb)#_51m58GJuPSDc-?Na zCT%BE*6oH-&qCU0P-p;fH0JW9X2GE5P%0U}T4)9cK3Z&+r|j{<6uyriyf=Gqqgp36 zuCL9{ke=FEyD?uPW@ea~g3ZNqoDKZbZs-j&@6ocJNSn)oY<`!7KO!ChtEPAc!54Qs z=SiLdPY_he8_?ILUK+>iEoZCC@PqO#GyhiJT&>jrtA_9$Et4h)m}ljM9P2Jj zS-JSqV|Z6Tyqw8nilJH*18FR-M+Q z8jZs&j+l1dC_w>@YSU&MGe)gBm2H>}u&{Wcvx$GYBAGTzjJvbeHuQSFI8H1Dikrw5 zvSvjHj(*s!r=0ctZr--D-h1m=2Fjyheq;qI4Og0FSZ#K?3NvW1e_3M-je_#sE52!$ zl6OG0CZzAIxy76r=SQm=`V>%i29MHTew4{q3&z+~shU5I_wO+6hFO`RlBTozgkEZb zB>1r61t50?9A0bk$yQMV3k&$-Y?R!}`i52d9L{DtOaU%$;iUdk!Cn+#BaN$3qa=xGPACuV18C~cn{~S zSJtc5#;NgFx@D(c372)MC0^8K4A{_IBdeE6)!FQH^W@3-Y@@DMZ0I-}=xJw-tixna z6nBd^2MH`&rhHP|Q5+LRBhuhu1JwdJ2|H{yrpK-sv&|XNZgEd>uc*7OU`*@HQX^Zh zl1Yk(=jeq3aH+75fIYyPV5Bz0@RX>qfhv@%g(i4HWO@Y`HtJ>>dQojustqISnN8NN z>3O4dS~hAIL9Fn3wtQH;YLdm|Y%0Q8mdIgx>;%Ilnv!iB{W?{)8d4C3UA(M#xqvg` z`oQcIx(#yP;`#7#!>DCv^?C)Yaa(sb+Ra+6Zom}05?DAZ*jXUdtQ6pc^3`&=3I_qQ z;7CzUdgWx`Ewe_=ELCS*2J$25W#G{!<_tUp9Caf*UDDCEp)y9bKih9xxC3VN_G}KpgBG7K3YqU@=&LG!*;36G;L~ShQc5h znhl;d9&JJoJx*^5Jj?2=-srm@JqS zg?J{|80PTN`milbR9TnLv$JM_tYDdVOQ6nf4z@@gp;@7xUg0}*7F{wN3s7Kj zY+#syV1O7FC_$(RFEZ6cK;@NeeZ^TLox@xY=f{fG87v z9(VoRjEH({sN<9l3rF|DkHt&q{=n~QMaNKpmBKCF%rJ!?C)t{Lc0T;7D5IX!A3n64 zEpjB{`VtYbIhzqAQ+xzRT&riRQ#`ET!BCK@0HCM%dGWmB`J#dd3NJz=lN@hdq z-f2-^6p+bhMfd=vIhmE#TgK>ow z80h*D!5}0-a7x_?<1Umzbc58(xg)HBaZSD~na8oXAI?Y$B_X0PY;&Sn!K^G?Qk~rM zDEA+d=@gL`gjWJuzDxwE)ag(d;PUwbmJ|ir9B0!TMy2YG#jFhS3W6xnFn7g>`)F)f zce_-Ed}WrL4IWCxLDa#6YGGW?ONxy~&Ax78B44PCTXw-HnJ4Pw6{9gxsg);W-5d8! z81{=NAd9hbxipq1+)!CEjUxvP(}Ud{^LxG9lys)l?G8M=9X;B^J6eW7-+Q@W+87qk zbKgAh@IzGTm|MvM1cjhrLkh%wcP}Enxaa%A&)w)y*foxnl=PCY*cAeRtfUO&&OM zNW1>fkps8iapQr52k$v_@4Yv)M9W+KS4DyYc>_vEY`NpWdu_OS^=>v1j%7!@%rL^R?&>8CHyu&*&v=E4F#oQwUh0Nqeb_sKto-p%7=J!F0#U#tN;nAQcFa14)uDgzXJvG0ZtJ(+SpNh^)l|25Q}JegXPDAEzQo0V=sbE@){mqA z5s3>L<>Onm?&{fQ8!A;YL|5kq1lAtcV-{~M-p1fJ!3;PL6jkyKZc!kQ#qXTu7Q`y4 zms#?Wb_U(iwNQnvE`SR1PewyGOUQ{erQy)~4VSKbkpdZK&CdN}ue#)loOB<}3E30-+_?XoJZA{9 z$OE_*CM!sveRjT96QNZ!U%-Gja)nqnY@wnKj6f;+@8%3JtsckF3=>(iDKq?uao@ z@opLStmkYZ86enDf|G1e?q;m-qo2c)oRbz&S?}aG^;_apbE}=Fa?hFJfZn z@JeqS;XW1vOVmF%1k2J-=px%pXlxFZQiMg%w}zez9cdk25ow?13h+W0ExS>`4^H781Sp%uIQWn0A#1Bb7<*chAFGyiC zr_UVC4P<9$XU7Hk6bDTdj1v>6X-{D4h2B8>V!DA8c3pisAAo_NTLi-mI3|1CG#b+k zgSrxWpK2@buQw~oP^9>{vz~H>H1y8SQNEpcMIDvhoKl}|bh|IxC{2q2!D(aybmVq9 zJVM9ooW^&3~cb@+>_LCVMf^q{az@$*Oj;ujsy1jVBtKUrvF z;G+B;pD;aJ6;IxI$(k6`mSrD$gLTcovSsw^x8L^nzx}bMgDg3Ptr#Iv&{N#$td;p_ zM6xt%CQ^aWPB?`XWW#T6y{>gnTetJH>SXXU>SplJqY~d;SA(zYrSMnrT~A}KWKhoU z6k1jV_*;+SgV1n>F@~f5O)t&r^L7jG4wexrAm^dWs#R2VR!VC4oz<*eEGo;OQqsd_ z!-N`FAYc%>O3Xod{&%RZ&&t#RocLhAh>2o!>FDFFH!}F6H1r0ugtyd$hkad(C#bDA zQx&DeSuJKBTGpFT)|}FvOdxU~C$PfgU;rIH1;@Y%3cE`9e0&>3a?k%k-5v+>$H1vI z4ISMfP0vUonp4&^8nK?ihnO*Ego>k93r|47Tk%KbxQckNAF>sWJ-#re8_A3{B|=hAj42nm{nH|GBNx4ZeXQfKOp|e$ zf|gn&Fj}@kvDnn^MVRr^OkdN(baM4^cuhi+o4Pqtf`8T@R zP&jCPrmokDZC)1040$0=yK2I_3TZ{V1?z1@F+0^As))L9s?;meDiutHJmstgCe6Cp z5jaP$O};2`lM+%4mjuL%7@~C!{=^ApyLDmPlF>FL*7kM<%-T&y zn-~z=nqDbr_ZUbfqu*4_A+CZz_GJK^tQ+f+Q$9N9l(IEMbkwVOc&p2biL^ZZfTQ4Bbn4Z!8=PImf_rLBek& z=4iJXkr}l;93mF_>xr9<=)$k21<`-zyJMIz^Zn<7`G1?3gzlN|u6c`bk6%vQY=rq= zOba5+{1nFX3us&LPedOnK=@dko0bs5!X0Y23xC?0_4c%Ott3iNvEiIfU?ye=_0-O6LbDCVQh zxlRW1eTf^7h~w31LG)c5oL1KkRInIb&iJVY!nvzpu@K065);&|KsJsxkS@cB*T*Pg zAkQXlJtC2xObep#5;-4<@{*Z18=U?}z8cfPSWGNtHx=P@tSRL5nZ#svE2j%a4T^H}vQ2l;=9dmB-na@vK>wJSsBQ(cd6Xw9#|puz`G{P; zk+}VcT%J!0qVIAUxd|*dt{te)$W3R8`9w;EM7FN#Q=IE;80CefV_2Rj@rj6IQ{u)W z;uuK_qVM8ZceA^kLC1oBMHXt25X7~K3F+1}hDW`H6@*Dd3Rfj=IUjTR)vV^~Q?7;}$fk2R`ea_?hA zf)6IfCL+Q6(}D;~FhwH4&qat~Yzh!Q7F*N$XPJxOY4)YdMRb~p4{E0M8(wPShZ2h_ zUiXO7g;Eo5PTW>Rvz}oPOPHG2a2Hlv)6yu7_Hbg$k?MS-#lob2F)^uKvem&TSYkBh zViYmqpHJL+gwY>N3&J;^_X}C|IxiuY@ic8Lo>zsTln6QeX<{s%X+iW|1RHL~8fcRjpfG}qliTQ zJ#p(1iTq1i5M4_obsG9I1c+GW%E8H$(U>)iigyeMP0Zh{(NHrKI(GY#5Z|`dy@~E4 zU4?Tw1(g!}F^T<{JRE~3@MYK%4L2`Jj8jCY=QD^U>{2$;5-}u~H7uTQ=4siy>c(Qq zg#d0!Ol-IIvuTueO9Q7dAE$@`y)<$25nf-P7KCp=*9vjp(DY#l8*!s1ohNu+qR zNU0FWbYgP4703pW$_wBV5l238;}LP>(t_x_I9A+bh9WI~BG~@=#AtWR_LZYkXg9*@ zClfaqVfFW?1<`j_ucu|bSZ7y?>mkC0LI6LTn3!$_FoHP+fsGibMrHB7#BE1p@iS>b z^j#KPZo&2u?!#+UFd|MO@l}Le{xC6N-O6R_=(NOaj4^8`ozEu5AR?XLOADg!(g`fp zQF@2Kb0LRsCnlj=IdojY^UcJ~MwtH(X+iXz`N2h`?s`r|3UL*LIL=$sufVmtRi&EzZlD>0O4cNr>y1b zBbbQ6Ndby3xDSO2d?YaoyH$ZTqh-;0#3Oz8uP@>Ak0d^Zz$7`rUGV5X)>t`w_PP zN8&~!Z2#A^Ai``<;jMg!C+5Rafbg++L)xUaoa5w8g-bWb>22u^dQ$7N-h}4WIPkI; zTgr&6g(ftwOx#vPjrK5zCCombdmE0{q|=*CT6ZN*8__2DnB5>poeuSc;l4aE@$rTm zVYGAJXfc4}7>=F9QNUxg;5}x+$-Rluh{)isv><#VIwHi_E-RgST4%i!(CuZKdkzh+ z!i7REClgcCtz1S%r6^2^O~kLxCT=?-jE3N3JBQMK|7zL|9P0#cwL7p&FvMWBNU-JwMEr_mVkv?LW#NnDoL0WED7@Igk~e_{@IuP5GOAHuD@ z$9zv>6e4=^EQ44=kGYZ7nDEhY@%>Uvx#0I_5)<1kzc=wp6UM1MuYWgj^ATQuDlG`# z8h%TNtJhBRLeYDX*VHTi;eJv=YSMOrx{h}8q=6euZ+B3PsMLaj6y^} zBWXeOT|h4i>^vsx(&D-u)xf%YMTqa(#DsTiXO}{J-d<#~wXwKPDQa$4CB`Ts&3$P> z^j(_gAK%qi`L_~IfS`d8~*|wm_ zJcY*nmu>blcTr!6@A1SWcPqY26!8Uc?zHFmRf*Aw2=SF^LG)dS7YBsM6AtQu4k6oH zu(lB3yAzY!tpK&402yDHVL*;CHu$c@$V9~V6KO&8U3}Z_!m-&DTplgftIe6BJ2dzD z!jJ&Fs4qnL>BJ;=E5b`gYXavn+}S}myF+%b7mN|&CljL+5#n#A1rZivib1zOZWp7% z6d-&o#JD{L2p|KNe18EHP>EP9(xcXJ{0MY+`l_7)WmT zqn@3KTa7UE^0Xj)`*@L%Nw4z>YiU=oUN>!w`&8yDC4&EVCnlp?{;%V`z%CvU5lkj- zI3j|>X+iW|1e@-~g$+n-wv|L&1tE}TVxqbg$mUVH9||c=+N0f8F7?FiN90mX3!?9G zS^1z*uc|g79tqz6NMgjh<^8JBlhks=3VtYYixF zW3ei&@yc;NUwyQ6SE;Q7CZQ`~fdi5Fx(RQeBZ9{ei zm*e5WNxDI{&An0GUufsw;K%f>!L6=*YxJ?!_DOlypS+vv3EZ8j9Mew^f;U9c@Ax}h zsU&)RB0cr?q0kS$HSvj-;jELlB)S)NZ?`@Gu2>(Wj}Otuhw0-N>EoB^<5%!u;KD?G z4wpdE<*2K0-=JRO>sX!k3gfJtDOIO%Tjy#lRL0Gb_%xH)0h^Aqx*rU^dF zc&4f2{-+7Lh;!l|V;bwSZ=>MVG4!HUF9NBFxeEeOBI{f-b(uQP{(lg4b!@pS%U!Tz0z3FwynLs+LQ zF_3KYbGDZ!ZZ*RB7o`Oe=6ni2=etT_UnxNNSo~#LE0+-$U#q!vu2Q{+Q}L2(5R3?| z%7=tAgc4k(yH@-e7Jo*>pN;${UaN?sQqx zLE`r%Cb3I)I>R{38h0_*p) z-%U(nw<0=k)IIXuUx+y-!gF^%z_*=GB}OA6tlvrtqVK|5eTP0@ZHCU1bRP;ad?PXP z-HKt&Xi2mlF_7mIw;AF2-=zi7cb*So3bKqbX2?ixP=Gk`}#1p5*<91+3pv>^H} zf{PCu^Rsm0G~bDRQ`0Opuokf0O?nH~7NUAEF}dA}N*g^c@x|tf!q}9=H+s*W-(TFH z7@3Ipj;00Cckx~5NsP`m94i?oj8Z${El^j8?p29N?N)Rbje64J^c&;aNpP=Bj7mgs zb7?{JU2q%RsO%0C8-yY^B}I#cc;1zmpl-#p(Tl;b9!y{q@q|B-xb=uc-j)_bSR#IM zVBwBfVsW-N@)0A`6d-&o9!wk05Ejj;rZa-+g)HLUtef6G)!J?u7?~elZP6vKhcgyk zKX7=HMaK>u-pp$~@sOqv4ln0a?%@>{4doAKn$CKHW*d0`oTA?JR7*UX#<0hKv_Vd3 zWMu}P>M=mfM0At>x19|>m*D@RNd^BG%`W)A zXqv(QMe_~buck9h(+Fsnr)2Eb(=BJCAj~KzPcwyT8Jo;-y}eGTIm`3>XKlS&ZDj5F z@>I3dvR(o_oz?e>U*7c2+wpYLS!bJ5bYIAUDO@yw2^07CO-89Yi{Gm_SiqOHfiXUQ zuE9hC?U!y%TF(LXNoT~g?=gaPPCG+c9A;H2)G-ZmtmO=6X&cPV{*&gEv!*&_8F|E_ z5X`kC+ht8>C|}eoGlp$6n3Og0XRyj3ZjuzI2a-6%i+E2yWOW#Je?fB7^rY#m$k%EF z()t>#(z*f7SzpIDl_AzY;?bn_PxR>wG4XfS@2r91^$i1i`Ei;Cuamd&WS#p2n^*AL z`e%OiTl~pPvA&J(r>%d%ClXix#(yv`@l$9zK=3Na&zNJ(Bq`pM8DUFCg15;?@P~{9 zf5=GihZecw4=E!4&~yO)kdYi~HJi?WMTBp+{sRreLe_{wq7-JYEbExu3RD^{>UNga z$ZEYJ-$X-G7PJYYYTPy4a zo0+q=R0>v5P8 z-m|W!kNxy<13sQ?J<*zavW2!@3HKm8(OvL3)U6hA}{I2-;jKXA3#S%okG$7quyS=p!-s;s)w zURTir-&kOS!di=4ogpg9R;q>2#JY3AU3vo`E4DU^HEw*N08WUmoB9;Kp0T zgYktCjI0k+OF?{;8T}wyqAFwdB(eDveY}P~K22SS=txpcJHL-`V8GuW1?=3EVs0E4 z79*KU%e-u!AZO$b55Rj9cbp;Gc!c$NwW7LS!Z~!bXxbV=6Y@72JlF~JAvE07=pvsJ zrZKBkr?p1Wa4&(n+}3dEuxv}i5$O$mZd?`ctw~{i`87Wh3sn)uj}WJrXK#)2Y!Si; z@`eR#wFo|Sh=*6k2?;!XEoua`+*8GbfY4@_%&wcx*r2@U6fmbBb-PIw5?IKBc&%k9l& zX0$nNK2YDQJ|n9)W~-X_ihZ4yo6B+1BR8MR6t(ShyXJRzuX`^S<;&HI;lI2~V|}gZ zW?jqii#b(4zsqnBT7l~+e;Fc7=6Rfb2`NX|aE658sG8QC^2c=V01yP(8%bwi z4P(=uHR#s6xQxTjKou=mHTZFF)81bJ(0SAnDBgp$D)Cf4K2QFE@Y}uGzl0ClII`DX5Cx3VeVslb1+XA7Sc$5uGaF0Cg9|c$?ecZT4zcX#2cgTl0Ou7416x zy|UBam&=HkcWN(|09^CUE&Q^Ew{n^7SL}e}^4m`UAeSN6afLSHy}t0vWC$W+!CT~g z2*6kZ0Puj~{V{%BU@%5Fs6Od?ob4fJ#k+Q(QmKmkXK1X$_1SUl?3d%ZJPJ7AxUK+sKLpnn2$P&+ z7)pynS!p5+7U?0cmGyaT3XiZ-zMx^a><@(PT?k!7eqPEdwM z%6)DtsNB}I#0h5h)lr@-CMJD%Oiw%}T2i?m(@T6Ay~Lb$orYUly?z3&)~*?Ob9x@* zIK9CmL1cMF$|;AM$giL?$GvwzALmn z;ARYUlunW+q4r^;&$Glm>+Uw5=uvpBNIGHzuYCx(e1!dKHiBye zJB39K45$a{zJvXva0h$7*I6B<&MI(RWN5#y#jmpa&-K>*`+3D(w}R%&h;VN#U#QCyr~R39eyH&U5+B+b#NjdzDDLY zLs`vLjEviqXlePh(vGXja~;~yt?qXpy2&dSA)f;9i|0!&>4G^yV{^KB!EYustn(NZ zHV)MgVn@Sqk-#mYB~>?~k${8F`8w^D=+f?@ys>u5{e})_zs6^eC~5SCs|Q))3hf6W zv?caGx3!@^9ClubmBq-QBd8R&{Grn(!=SiQoPLK0Nf$l7mnIJz#l{E>MRlE+a)I5u zIw-R>i^5=loWMxl*8y&FBe9+!aO}efVb?w`T7XAEMQ|3X?1S&KT^wnn7on`Jvl$-J zH;et+o_*RW)j`G92omjT|8FtVlJI@eb^Vv*Kl`?^ML3wytW&iEPjJE_=~+Y4Zj!uizwhgFMK};47;A21lEDY zP_~TwF~*oR^y9dC1yjRD9_ytld4nc|X{IkQ`V9?hdjT-0z}7d2CT82$qSSdkRuavY zS>(7L>lLCUm5w#4=!^y*;qsK5vn=Kl3gGOx>iycM3bq#*ZiGl5YU!8t_#x*5ZNSUbivS3IZm$fQMkp1BWj( zR1Ay*GY`*;q3IPovSg%V;LI}|8kmM*aXy3B3lOez>g?+G*n*`Kf-ON6c75=_Lw}bz z0(mH2pCdka6R$xV3%Y@b>lJm7(F*LJT-?kEIi&7A?ghAGR*3^g_^Plr$8lR+o&Cnv zjd)R=z*vmm@ZIgEDBys*wPM_D;eN8@ri~mTWwl_OB^?gdOBXh(2=v@U5HG6OmB~>C zM>vdTo7yv0|P{Wboz7%b$v12L-Lh~+(vdH6oB)VKJNL53e0W*FO zc0~usDS87xz9f_(Iv#&r!Lu@5vOQ??PNFv#=2h5YQ;x_=q9s*vqy3xnhH1@BVv3Fn zy^FfUCpd+Vj(~d=kua6%OL~v{ElOe1KbgkFHxF2FI?uHMTL0tDh5^+0__*51oN2fP zrS5wAgRDYHv~bbUb~RqIVZCuictuy>K7eq9Eh=~}X|c24A6pemQ;<5@!az?DuAfw zwM#MT*uP)fEwpg&Ug3cE?aO4^RM{gO^<(_*zTmsTf)@u0_K5=a>{qMm@&e)!l&-6j zZ)DX;qJ4|@$fx2Z7S;!69lV0?;==AYT)LPH2RW?neQ_b|i;>$XR~xi`c@k^%>qyko z!~??Es`hfd)C`>`V)6UzpWoA4hv56?XQO}v{`skP{+Y6@2K+}ID`9KIe2~PEH}qqp4k0iJ&rVI%hf{b(hq+SV@<^~~UpMET(P z`y@KwAv5xN(UQvX82>YnYp9NZ9t6>LE%LX3^AeAS-_VAJa8m4}w;`9K@eR z0x$f~cp-HLl^d8bgC_QI}qs$tabPJVU=vX*A7!X-dcZKB?R; zq-xB3k#ab8b9&m$o7jO`n#UNiK4WA^L-TYVMHO2p@dDZqDh6QmgCKZ%D5uI+F(nHB z9r;Y~;*UCLj+ibR;Zq-JYa*C}6kurDYz5e)3VeCIyua9?rQ|w_O}b{IWCYOi>48@A z;O*zX3&j_-6z98<0ACF4QZC^RFl9jWrZ&bLogC zRdGAk3<}0|VgI)DF6=FBs1Ca@oA+T&>G|V0BLBG8PqAy^eOvG_GkRUa4iKa`G`&Vs zFud`Ud=qtYIk+cmSkEE*Z1lv>8!7laLUI zMZeiT8}pB}QR}cV(@_|tl&@@@>e8sYdLzgnSBh6Kvy;ec(IbYpwc$e8xMy#t@PUI= ztQw$c8iW*B9c&<=EojsAYMBPd4P&l>1*tG}95#TRy5fadlOvFf-fZAF1~>;y=gn*R zV%3HbW87G)V#xt&??Swb8>mp0vt!8rXSnEN1YG(PRY6wSH(HMJQC*xozHBuFg>fMzYw; zokaTHQR@ss=z`;KrFYinoA4ABoVp@TWXJI!?h`&*ebO1kktQ^Dv9V2)w%|9+l06Q` z0;f_b;N*#yi}Aj<@BV3Q#>5#U;v9-bwT=@+6t4qstAjw+MQWoHk<7Y9K3ZaPn!(xj-$eD+DB0naMBTR#4KdR-n$mgK3PxwPu72A9f1Zp!-ZzKhQpGi?t!uV05{X)^a+{(z}Y?g zgwH`C@%xWzw$a4#71-&FS{q=P=+SVRlK&=aNxqS#8*zk+j${j_OEbk@(4k_5GNl&;lXTS9bgDk3joKPHS9274=*A{?80hs*94v*W`V?9Gu}joZ8xXX zdg}~Ce1)u8#`bg@kT!_lc4Hogj}#3Yy>!~ynlDxL<5>geOO>+NqC-biFv=U{zHsPN zXT0q<;5p3&u&V7bHK2O_b{(wIIlRo~9K3+tto3_!%gY&zPeY}D`UQQoBNgwZ^k0}D0#Rrb0q87R5s9J}&`g z^m%C&qtBDjj6P3l5c(FS7jdGP=lH=%=40fDEN7S;h+9txEck>BfuBOX>1462Qgut{ zp;voIsTMe<3ktDGfsekR-k{EBYZ#U+!8z`5Z+Tq81gmHjcRFismfznD$*{jWyxe|W z>mFDx7H+`Wp-VO^IW^{aIOXwL?=dUxT6tO=tZ{~PHiN}ERdKdC&iL}e2?TzXLZ>#5q1(Nd{nnT|Ik7Zs=_u+|mU`d=dZ4@$Axe%jGBNWWhP|>|4 zLszer!Auw`XiA0DIz?RXUZ*}6)~OCRRRmdX@r$fouP5$t|K4Lq{$vzzK)cQcouPom z`QU-z+Ga7Yi|nb(cwVxF^;+6anURtUkaUbOHE|`z&RrQXflG_}d1)7tPvT5io;aB@ zu%+6>j0>h%mGB*nDr=m?wVA-OI2~0{?=6$@v}lr`qtjE*~&DM;0W&XoUvXfZx>tH$Qu} za0eoDr|%$etfNFU^o667^3sYpXf@6fx9t<(&OrTqXxChQOH99du4qZM*ckVpNA85& ze?>a~3QyubR5_;8>SLK!&rqc~TYF5ah=ppH=iMz=AoIf;G%Sh3!##*dsP6Vcy;{RQ zyFI7y+749%m!!p@j9p#+RaUtqTD!Q;=)yK42>ZxCIHY5Jis#38s4Gu}&E+0*cPW^5 z11nf?$7jGr@_84uOhp=X#`kMt?NuOXf}`U-3p^`r6n3%m^maw?3>G5dl_~5jn^>O4CXAzF#8xGLR%{m*zvXc$u`o-RINwGu4tb=+ zG#{n3lhc(uH6*UEiIS>T^mQ-GrB{>`hLxVxvwP07CFz?_kyucadnL)VDi8UX;Ti zlwF6hJFqFOE1|1=Oa6KnTze<*3r3!6q@t;Ab`@)%f{yEIhqm-|aNt5ErJ zij{f8NG>K`rfqwVX(&k&G%t1ILAkh=`(kKEvb5pi;^$p$1QY60AGj6c;iCv!0|6^? z0l6H>OPqvMH|Ulb3VNrEyzYj%JH<+G?lO1EZY;R2yii4~E8|>_i`ms_vi>x>KfDAn z;tUZq@;wE=Fh7D@@<3>Hhv%sbK zF)XY=upq+iK)AqdYP*RtI*I_1xnC%*5v8_y!y9hND9{2^9Cbq{;h;WaT`(|vR>s7+ zc-dHqL?a6)&_J|LBi#X-doQ2-D{9D%R}2F@w*E;7u7X2dP|qzH3jLq zu%r1a{B{NP2#&nlsa?a=ab>*ch>hcl3!0KhMSgvBlQh!~rXSH2Ec1GG;u;g-00?AEB!O5{MGjLbQ%-{M+8p9ezX6iW-fJ!v)ejjC7e2h`1sOHy9mQl`;RN09XJM)4Q5nBWN z-cj5P2|&3Vy){{_9P&uN+2wBI)~1f@zH>R^DbGWMN#mw?~}<3xHIP0?3kD$Pb$FtS2^6f4OgTa4AjRh42;MfhT6HfE-qwl}w9yC+LwlTf}m zHZ}%8blRe!Ghh-1?vyKIzr03gPw^=L?$PaZLZFX3U+=~TJeKGvARY-Cf~Dgbw8!8K?0<7V!u3uS8-+H&mV2Hql)&?CCeq|MkFeYPf5}1`z zDMH^Sm&u(2{}9MfdIj693)K?m)4g*W-8qe3xeV7acn-r8U??~8-;hMPPwt-H%T5h6 z`q6;U=Sw?SP9!yg(3ra+Pr|%nVg;Tl=(?fZcn8>vN{kTFZenC$S7`iC4^q&E+%)y9 zDrp1P?~kSIzzac{btARPag=00cn}L3C@Kiius@!LdzXR+L@XSk^v~G@djzNd&H4Oq z*WdIgj=fg2w2f6gg|%FO{zZVeh(UxqoCj`~nQGU6`~A5a4e=tj?gG1Bg>`;>w&T<$J#PR3=??LKhnca;X?9^}LWlOE}?(uX}T`d!7gF->^S z6CJwANPu){S9H+r)0n{0v z6eKOw13F*s-59(_Bk&%KzvD;Wk+tw&`fpFWYh`kbwrxRz6*F_Xs4w*MogEC(3Qwzz zgt9s=k}}z$q7T(f^~ht^Wqh(EbTWVmMkq4vq99w_>kU(>=3ii=J(DT=P}3X4M# zx>C|Bnk?%9{*)@~IsOalQjfgqO`@f@_sXj#LCaY^)kF>zXI(5GbFX?no5m@jT$>#G zoSzoQbIC|}pe)jLNpO^_rdJS%5Lz+?xGXJN|Cc6T7%g>ng4^+S*@TgG++8wb{s>Jh zt)UZX)UAhZ)j)Dq4(3ob^`0@>OZD0|8-XJ`jjeBm_l&K+L&w!s>Y0(E7W3j8#OdDU zZvCCU&qo0VHi+E@qQZkU3z6}y^=h+*8JX$eUNNzrxmusmE9Oa>18`S1lf%XY0G%K) zo;euUyeoE>kq@%569GAKuO1TcJOhLI4zGBI8XeEvfn`wKG@a}vQupMq#LH+F*XQx{ zh`9A-%9t@LbSMoWtJBE*4mYv?+hFM|HHNsYj41S579m4zJfKeP5MRy;F z4PQK$NFE~KnD|yJdWIo1O>1IFDPLrffpY^m_vB=rlc#m4ppM-kFHqI^XdcXt<6bM8 z7|orGoMpI!r*ykvj~YuRcu&acT&PI9{w#8a;0lnY>T8=DNiXRDHHkXP@a7A2s1RE` zq3g!|!-`s{dRK%8V<$|Q30O}lW;PYgx^~V657vUbc)o% zSr|3Z5|>M{;s!hNoTu<$Ck)+LT@pExa6-p_o;rI&iH`2GH|MU0aD#{X4c?3kNstq; z6$x5gkCou>dn-ggfAh5{;6VOnDw@A>KJDfi}a1lQF0R11-zp|kTa z)Sy8FPPOG{SXjLiXX%M0mNXh#;CgtKsrF+76FU`TTnD!5?Dhkt z6hj)n6C;$}AV)O)W)(K`FX6dk`AAlo`Kb8v$&_Sr=g$JA-al5}64K zmZT0HsE_SFbl4vb9oF7XlL;n{X{v{!2d>J|L$-%*d%rMExcK2QY_ok?M zMoHdJ!{;HQqQ7wj*Ue*XxKYS(dRE(R8%XaSHs)t>j{w{Tda0Y5W~niTm+q_?n7gXh z?Ob+8IQn_)g_MfgPrk6I2-i@GYIggG4CjtPt5jFIJgX4pdb(x@xQmL%2w^uKJK7Hg zSIBYt(?oxH|I||Oeq@L015~y}O4Cscw-VB}_){}}Y$+&iybvBvW$O!rLKm{zzCziW z=3KI{XI2G!@dBP)<->xt1*A z+yzUQgKs{2>6#I{S~`IXVGb{Mo!kJruwX3d&;$RSb~9$-@GfNt-xMvW0T58*J&QwF zMAX1RySQBb?s30dPG4xP4lcc+g3P3>MSu5FA$_@=s)<_k zQ{_Z20SB4q_Ss)%dXn_ci(8MNuraK!bScbUZzSSul{-SmI0-j4TgT)-)K0gCVL``Q zY7W&ImbJ57yY-Zm|Kgm|GDA92hgb4%CL$oj7G4_;|Oa2bit}#}S$wNAMyK8O@6{ z74Bfq1ji4wKE)qEU{u2c2(iAyJIqs_)V;KAE5g`HoMK^Yj`GZl#*^5k)c3eageOHy zs&rh3zDA}1LXP@d#2j%eC@ssG<&z*V7?l_J(Hh2it=<&t2XnX`v^HL}b96p^gN{C+ z!!fSQ7$w`lDO4D%Rx;*v21CaaSPY0og85RjU}SJld9!3>U-a<6Xk(t11y=a{D4e5DXBS{3oDt`}W^_AKH0ky{z@IkfO5#sl{GqmSpBfI5 z@Q;DzrS+m+xSRbb@;bE*tmWb^k#Hb%Q{O&kI@$myn4vmH`2G>Ip?@o=BEXj`_U3e3dJ%H+<`O}PI*!O2^$uV zr1iQ#VBBP};-`0Ry8J24R{Rnc3%8;C6E-UzvEjONbqy}@h_9j${wj~~$9hXRPuPUU>K_(_&!Z(tuCuzq zE4S5H0wyEK@NyQ_5=~sRsbzH^W6;D}N#3EmLxveodn|ASV$a}DfYTl}DcjlDt{u+X ztU|Y@7ur$ARaVrivu!F!2FZK3<5ef(CI(&2QMJW?tZ2wbJofwoee17jd_-u-hgc9v z`U%P74|>SHpFvnZhd;5h4ExUE13?Fqv%(vC^_u-{DL2mC}#B1mjr5gg%7@-Bb*1r;BK?k}5 z^_7IL8_4`S)$EwzHGMNJOy8RRfkAZ7>Q!|F1-Lsk$V~Z6 zv7U3z1s}QJJ&V5ej-wseu^BC;VsV%qi?W`t3y$_ct+6)m;ov%~kXAe4az317;Nkdn zTG#bf48CGtm6q#qlKiO9nSE(t`jXtuAbPLZuOL3MV&6~S`m5NI9Y=e`jx$HGCmwF^ zu1T?#a-rB05661!SN2v6zGBa&<$9cA|C-R5Mp~G@Vn50tdau|&N_=F+{$cvoU&WT} zcuTL?afT@Nh2l6z?1h+f2NW^nyCt5;D&h5Yc2^18ASt}tCe6cJnHa zEeT!f!Qz3SMe1OhLC*h4}Bnb#l*u|+dtiZEaIlSXcCE|vle-^s50?%TJ z`1$@4k)o4}3r{{FY-$&fU1Z<8gF!4!c=9>oEjxqH_Lj>XSoC|nVo?go^&>oiTX`&a zcYMh0SpP_z4Q5aW9*e(N{+qoOfgfu8eOivkN%1#@zI-h$Oh32rRR+<$qIa8(-gv&N z)Fbq*zcIID$2zpMNV^y8I75^gq2wcht}?9Cdx)_?onHP(tnc2}TLJhgJ&~5*aVq`W z(s!qY>8tb(2GPAr4jTO^ zaW<&Y1D9PEtI~FFMc}J+H7&>ERQgjwUrK3V`YLTQi0)OoTQB`4;v*~d)AX&sN-f#p z^okv4h*HB#k9N@M4-sR7I=y@}R;54OTLJhg{lT>Sj#KGR3vGFSTA02{zlTBeUZp=r zd=$|%ee17EOLqKTuh?;hsPv^6q|0odNcY{~{d9i^#_-Y99u4v%xxIlK;*)#d?5&u5 z#s7Pj%0kIKs?|;<01x}~$v zR3fgA3StGG#S*dOOeNxmXfA98p2ZUJlKv8r!u7;;5YGwU`?bY;#IFkT?RwQ=cVYa4 z#6|8N9_TGUJ22xuw6xf9DKjI5jQWvmS)0pU!4p1Xe%ur71P~XYmg;7fUlFU?kM&j* zeityuoL{I5pjusb0U#?twgf#EOV%4Zz+F@aAjnFg4RK2P8DS1hW>pHb{E)6LxZPum z{Qz;1E%trARx63*@~2`L;+od5f*@U*|f7MFsverNF8 z45It-eRtv8Rm4T^46f`gKRYmE4_aDe_$HWSo6$CiSE_Up5g ziYBO&QtsR03Hxk+2}@zSaUS;bLXK|&vWx5|-^d`k_psds4c{OxvZ{TpxBTqDjIZ{J z87XAckDy`m_GU$|&+mYPMfwAuukziCyghi(t)ked<3AQMSa(qZM+PU*ZMJ1=2e^xJ zV}vk9U}B7@`scuU$E0Kh_$NWXO5vNkjPvsTl9fWe;Nd!_h4{!$;9ze#+JPMhdc}?uQVKhP6d<0*zFNUDvAH}62xlcuhp=0R2jrgW*L$$U zkriQBbcW28-node#~%tv#YY56F~`IB=kUdxc4&QqPoz-}&GOGP< z_PKxf&)_b@heG(Lf{T;!=t_hWxX8u85jk{fymyXHqlnvh^%9@QS1s3?;^ttSWrIWU za9&@fSvKlsUZZ2DY>m%T$1TBp7W?!(UCyc5xPF+=UbT%!n{?KW9Xdbfg+)bKRpt;M zSyZo&ashHNtGQ$H3!>_KMx{uP)<872Yk^fi`_j8`O zKiyk#$Mw8l7UKRSGkZ~i$ZraHbsdPTIU??XP|d-6s<7nC9!vge$yoA*Ua=(HbtgLM z<`ZeL@K3sthV->I3clUyfrew;5uCgZ1Mswuh-+@A7$mYGnw3Q;oIb zZ02u-&8$uf(+}QPFo^EQ?}G;l1)Nx0t*A!hKUS>f3gRYrmOJQM@A%q*DVOz%DT}h2 zWrDB0QS9J=I;_}-iLr`e$1iO-(pv%eihX-pe#go1D?(dtNek0g?3)=x_lmvt-sTkU zDa=Q8TPac0`#ABG)!U?R{Z((tn(1D#=FCy=;Btkqdj9}1R#ETxr3`QAtpI%WKAo1| zaq9hdLR+3l3)5Hc*D{Fi)qDMsW~pJ;N@gCXoQA!3xKL5@_Yr4V$=^fY`m5xULC^Mz zL1&JV2N$n|mHatktfJ)c3tK+ZTLJh={^_**j#KjgUuerG)57$X{5Kgy_ewr^5C{0$ z5%u;TD~kO*ag!DMtMskEiY=M)m0mIB3{h-a6Vz#C!dfk)*#i^tD-(vPV(&!YtM(88 z_bl%In$VZkX<_=Ry@Ek>uiB$G8zycXoxx3rLdEH_Ls}bHuhON61+7`z;fCaLc4t%c z6(#HF#8nUk?&u(m$ka7PUP0&9X=UEt4scTp{e3AD!tRXEI)x`elXujjg=tM;WpN%+ zs?BALWC}XNYLfyje{!LxBa=)0ImNJESXmOb(yPUkqI=U{bA)cBX@-tB_nrn7+1E^w<7Sp-P_Z0JWh)LAoS%&)57!>`>hP3d&S=7c2IovNz>N0QsOupz<&DHJKo262+6qXdd0Xi z!~lkJIldXDg9&7bxj|RIO57zAl!a>qdT#~c8^N)(e2mQ1otzD?u}sE zO=bi4OcfeMZ9CSy=p_wHV%P_5uUxTbM=s~tf*j0miF-luKTdoVLE@=7(=CLSL#o6XeGt4*Oxk>?+)*m?@-!y@OxnzQ&?FCg*nOSq@XCQFe%XL z$3PyvUs<2)VEP{>!3Ir#1?nqea8=+J`=tUOO3U*&IsU8An4e7x)0gA>7)1AmzvhTO zXO^2~)vUayL0@Wpo_NXq+UMw7fBQAblHczYOU@wGHY*)e`_#q=o6L_VWxPiE5jbIMtR<71iE+iL2Th>05tQTe4(5T1pi^hgs4C z)lLE8`Ovz=Bp}+a?G~#n!?0*=_luLP?N(Q)`j->8y~+MUcj@*REejT_qsROOs^Pos zz3RM*ST3dxR!_a?n^rz|zsmbP;Z@!nCgtkpJ51a;tYZPaqUT(nUHHp-tLOg0?pvdP z0}H$VFUSio?EZ?2b4lW?;l6qe*Qn28IMy&Knpx4NOxirOORMG^dTAGKtk0We`ckcD zipHESe`~nofzuV^8r^Wp!#FGr*KyN2b3?jeW}%VtGf&Tckry0Q~jpLz#iyQwoJ{V3_LwIYlJx_nw5ZJ2n_rlu5zE36-U!7up%7 zx2m+`(rYgTy%S7t_m-ky>Lh+UCC`E*3!WVw*d0H3cw#AdwlV4`f-c*MDPNfGa0lAO z3hS8Q?Z~p_qAAsl8N zRwjQ4bVK36kyVoFpFmTf^_OtVcYs#s8+%`TrF(U~_jh7KJ1F`jx39_Uj;R+{ZEBDB zx7!1zq1sK{;rYO-`>wvqufX3>>rUzp{YrDU917JTP`3p-NGXBL?zw5ByQ-?J{-+Ti z)I!&l{v7K?l1{?9do$GR9{RW!AE%4wI&1Rv`C6k|YFYQ;$*Gpyh4T@*QeM5OJEV_c z)27(?DnB;=$^WTudN^mf|ORz6)rJcjtJWK?D-BWaEs@SPZ%6?Bg%THa!iC-8M|6Gv|J^(L&SaZy-2V}d;2&hq$rJkRGQ@}qn<&N1#^Z% zK}4GLT#_>$wrOlRtQ%VOgi$Y55px!H@vcw1N-t$-;6MSUS(!HKb)Y|8ua>oZwbC%= zh)!*`Xy%JS_*9$rAC7CTlf2HgHW?(o@&#nD+Bv_Vmw3uRT1aDoM0(E67f)gEaDR9~fYd3?&~Z+c7R z7l4P4u1n?r`fp%`LAUSxcOb|YQ@i9=xL-*bGL9@hWIX2%HxD5Fv{@IMwN)K&Uo9v- zYhct>(q;6mcd5O&&~dAz{yW0zL!sjXBj_@BPwm;gClKpV6ow$}I_;q=kL|+uJ=#v$ zFHu)0`lZb7>Yly(LQ$u9Y0qAIYhUb3b8TO`ie9=h?xjo^HxIv8>ZiuF?NT-xs_8ql z{WoZOhH8ZW0XbdUuicK$Z^o!2O{2l{q6ak4e^#^`_RGn}J-Zc|evd&h3<_$q+g+`P zDksYwFD?XC^*Zb-C#tF<}1~*i6U)ko^y+|eq9d~ zWQ;lF^laL(!I2>HgnSG{ZY~F4jadV^NWDTQO;qSr9OaK2!#D)gwS1{+i-(Whkjsr{ z;sQ4xg_tlHImb{KEW+3fR$*!7D(nX5T8QwpV9eAF#G%t1O!`pAwYGs|K7vp0*`&ra zOVXm~)-LPd*sW-=G#3t*;u%L8=wmDV)9noE+?d-uA?v`k< zsxo|YT#X>{)`c%}?dE*?*58SRy^`j0&{WJA&fc?od@oY><9m&L!BH2+T=Wo${yn=N z*@smh`*x4-300uEgR5xlwr66`RkBJgFxLPW+m$*y@WS3lu2lK;f?yDohiei$m_tdT zxy6msRLO)@oW^O_z5wGi=SL5eN--m$@CpX6FU4|OJ_>mjJ0RuJ$b62n9NuLDBM`A_ z0^8$_@fobk$mQxm-ELTx!f&SBhjD*8hY6*@e$3mLc-n=UI=S08K#O0b(XMQ z;TjKga1)Vn&AK34RZ|;u`K{37>i^3+w35UsB4Zpv-yP#*d_gNnIKhGxRAbwxR2!A# zRs2+G%BA<%Qqa38MvH^a$BC=3F#Ta~k+MU)u3d*1T512lW+ZR!rL|IQiNb(+4#{J? zq;rRs*DF{|k5yVUBZgxD=s@*2f099Y-n5OS+3Qwz!Tm=FX&S^AZ@N0JjbmiQTW9T9#tyCYT>Lj3z!}CHlOxwZGWWU4bs<+xxUs% zVtB=}Wye~MTf+^!Y}6RxB5Nc65#xvAgF<62p}h}kibUNN8bM(lrnJobm_1)<;A{tv z2eNrlirF$*+M(%-J2t%{*)lq3wOwu2^G1uYmt&+?(WZ^&CTxeWPVna}KCP4Zko$&c zckHBfipyTbpReZ6*YM}#__TOa_iOR(@N(<>#h=%4=@b0GD}GDx@muM~hABON z+%D;M5fO7qCt805&x>ENehhymt+(;#+v(A$_2c+s9RYdPPw?Y+@aH@E^IiP;ll=Kp z{P}MFd={TV_&?3Re+Hk&TGo5<=PB!b_yh~yk3UB?TyA{;eh?L$Li*t?dGNHhM;WpND*wzA^Go(l?k)tYHuS|@f zTjQ+jh;lk(!1`bGjdu81+9*C~!M61#`c|Qjmk>P4wOU`G5AKAl&k2!zUi|sr_yfuP ziTLxU;?JLpKVJ}kz9{~D34fqrU#36HtiQ$|>u>P^?IFWCoUvcmx~FA*6^{V#dGY6s zC~?-?^LE21XUkZVs?Qj$H@5=&5Mg}sn2^vY-!I_Jt>d>L>sH5E&BwKdUY{`<+9k)0 z`Ppi{U|&L`WiiUfmL1 zvxMmA789$t^|Ena#eDQ2^}lSpPq(I=HHFeN3bACc0EC_4gVosz?Ixr*Y*EeGRIOt_ nB92gu)!ExAlni)lE%iC!Nit(YPxHttJIgf zs-+npT#1QAiZ#Ivgai^;LP8+?$r4D+v1FGG8$v=h`_J_ccYv^j5MbFHn{1Z-e}BLC z>UdSvJzX{3V`am9r0VYXUj5$h{jT?WzjwWQ!9~jVHicT(Q*&X+-DmNduF~+GO9DT z*9uJnW6vy_PN_LRQ)n#LomzPYuh=v97z@Ys>P&u~YM>;7Vz=ClcB8<+_N4}fmkYJ( zg1OjoM`dfg-y3fe89w?WwbMqUVHQ#4<1KfCZ8%MCj%RBnuW7kM^+wGy3gE@iZGwC)ccf6OFE`A^5>n6Kzjyz> zJ=%$qp~-yhgrQeJ3ccx+YGBHEJZ}hXr#80S^8mMDlnvbmHXHX(@7p)Mx8-hej7q(% zJBFRFqlut|o6GxYEgj^oH5&yZZ#NefOtgPfp;j&fOQxH<>8?i6Xc)!YP2dfR-_vr} zPd99*HEX-Mif%hbBM*k7LLmge(O4>!n?-}FL#`zLMj;$%@QG5hGH*{8=ka~|_Iva9 zI<*Foa!Y-Akwq+TJIiH*fnldp`;!# z0_xR*0pV=wWkz!gkzy$iGI3obFk>PK*+RrgSW5fci;|&C@+}|*9+a+h zH&(c^mIKm`;5#rS=@Br`F9^OjJj`U_(yb@)u6}fY-r9;9%<4jo=&E3JelkX_(ygT{ zOUGR8uBxFy>I@B zPmhHQW|?t!H`#{XD3qp&+CXs|=}+FQ3P#fpyY-~Ih2JgMcHVz)3-e4#8s#J_RA{u? ztU%NA3pJ>X!xm}C77_?yy;pqGt|o(mVogYkJ9NZcoaUqrjy@06-Qg4T$w|3Ft!PZm zmurPnc>kDbJ7#r}a+>bO(|WmyCc)~JE=6e4mh)eRtozTA@O?g;wwKMsJ z<|B_R=beULwISrJ(P!NuS%%xax3o{ZIZR+#m1Rn4H`vW28Iu+Qs#Gh2lu+EJvoLkz zlx;4GdQ1CD2SnL%Pbfm#?+)(X?X_%k(OA%%WhdXLk&cU(F3^ib;96y)1BHRoLhEht z=}8Hd3RG&vCTK=v@G~xT8fFE8Q*){{$H@D7mAC79!DyWouWzngg<)9FzWd;dZP-` zd9}M+?Pk5+FrX`b4om=(`+PLitQKLV3bjh51`C2_!7?MC1kcUE{N|0iS*|U51mq+L zZYXIRQwAmkmfy)Qly%fCskx;NqUnugaJ!&4bB-)xjUREDdjQ#T8zmRo1J&=&bSZ!T8J(4Q3V?ogA#xkcDjnYmFI z1dn~&rG0=+z_)zSsG}b{Iw0u(KJGDih3+17g3|`-qcbLLZy8Mi?@}S1d35!et;{s+G}+`?5F6cG~YROP7_dVs>(}=T5x%MZ@e&p69NobTSsM>?_#!DSe~# z4N4Oo26xi=kZw?3>284LLYo-0^kQIXIZ>eDwX+4=$jPD?L6v3GE*TBryPaA=3i3LUENDc@@Lr{+`bBND z8_2&kTp4Ua9(qjPg|u@!xKR~drsvO?Mbeb>#9IP&Highv>P^imxeJm^A{%mzejUaK zC@}TL8D_|%@JT3g;NQa1%s1i1`8iwpoih!SI$pBd=$~_NV9iHRSTBnTOE;D-kd~7@ z0wF@uNA*lIdDAi35>`;W#D0r=iRX?9uUGRtC+U^(3(|cA8jf^#x_V7Gq0%K4XpL~y zu(dVlKEvM3DGT~(cK1bM>E)&SIk)tR(vOKR&oA91%8zk*Xl_IIJXw*kQ-FqFop08Q za8=PSvj4!<2-nGmIL_-(XLLcFEM7tv33}J6I>sL?6khgrhAC`4@zyM`f#O$19`&xl zm<6L4IRx_Tjd1(i?eNUW$%3)2H}bW49?S43EZnLPpeH%KbaCktQ9yWuVG&~_BxmYn z(~+`wR+JYRr1E*;fWziv;$iyAc%$&Dp0Jd@NUU- z3n4^$?7b`bED)l~A{hc4BNSLDiR=XeA96uNJ$Sc5{jZ0xFPSJHI$rsv5G&F!GV&fj zMdNEtr{07g;QM47*e8?C+s1Xme}EeVzXmQa^-0_~AuXaWrLNK&_YF>K@?}X~_V@#z zNRmLdRAhz>KEoE(daW#=zlTw{iv0k|6>@uv!fXMpfN7$s)F+WI;W6S8*$fCgdGqv! zQLVv0;Sr*>4e<`qC{Z!@=Wrfr#Mv z)oIHv8fEizW4dZMGu3)!MwWfiff>WTVFtXIs#MBT1;P!5CDGXZKmZ}!2{KK#cvVSj zOMUm?gOl*O9^BP31p5BVMbk!)z04i_;DZlPp_5)A9}onBJQm3i@7?`y7n9NtMAN+? zf|L%(#pBeGk9+Af7U9vX%-HN@G^x8hD@t$k649yG0AlLL3(!x$oF9ZT8Ud!`jV%5W5-@pHm7TiMem)>a@1d4r2ftwt{34DgOTiumR?wT5sPR}loE!W zQ^rLK!ebCBwwuyJy;x+B{Sed+`SkMUkg&9Fy%4~ps+!b=6EdeC*Hc8$%{lXxTg3t*${n4B=wZyHV;nETD)+hy?0tq=QQZJ&^ihc?`nh-dOJ>Xjn-HAtJM6M_XgF^^6FIIJG5Pz#J0QdP?t&9Y+^JNNJ zj?ieqtdi&94%1-VX*Mu~9F-wes49lI7}h(b26Q9OF)4IDjQ*B_3@M=r`O^nLb56dX z!10Sbq7Y}^vs#p)DGH*F_&Gdm-tPZIN67`zkIq_q2hTf?4BL(%yJ(!INC<_J-3>-{ z3Nc#0*abl`3B?<#y94`zVq1b@Vld(Z2-S0H9-@eF8qGy)kz=PRIb-0L9}gg*JcoGv zyb!F0QK8VAn*W^OT@lLiOyF4`#DzhTidjV`-l*iuMs*QZJD^R7bT+z7A@HS(d>|nl zMFyFJd?Z(W!S)D1FO~)(;uY`!@!xisr_22O_g15AwB6y8FE`wpfgbN0M4m2OV zzfXyA2$niY0x3m|lM^`({DRWW!Va_Z&t((FKS3sSP2SMKb3`A8D-fQDLG(uqr(_04 zZaFS1-`FfO*oA<^S221$?F~Z0c~PgjbV3ehw(vv*BU7uEsVfuX5KcCzyY$1WBCFY) zcSnVzOru!`8g_KR-L9kv1B*V#-3S*Alb)E13g+&%$icCkCxC&yTTbiw6O!J%XK93j z=c#vHtuZraZhU%xTdD+tY>C(LwhD*&si$ zggH$_-yNdNbE26h&A-7uAXmB6!j|>uyuhF@Q$U z8j~inHE?F#VbF#mTOv}sg-1Z>$iWbvKplj2cSkughn`6nGbZavMrm>s;b}M!G=4>N z6Er^S?ku3xDa35y&*b4=5MLo1Pr94ym^h#zF&kGGaRf0)MY26D$UuXf8Q5?t8FF}L z-OY`KLg?LVymt{((lOjBz*U_#4QGJ?Kt5;4?ITF^o&sr$SyciJrJr!O;03m*`6ZgO zBchR4X*cK9)UBScX&dDQG2B0kK%kE4A0GU`S9Z^5Gh-qI(;&G*K!Z$K5zXHo4vq`! zPR@?IS~z{<{w-8Z1&j@avbTDk+jb_*)kT8ZMHax$gyTvQCTqkM4a%f+CB&kL|n2`UyA< z`1M=&KYgt5JJxIbU$YDEXu6nOqk$@7LNt0QUFU9+(^we0((JvML4fGO-mD`9f4cQV z>mJwzrJ+xS%o4tb?G=6|Bae)@`9Y#$r=G$D?6904EVisq0D0@T@E{!AQG{&B>(t9< z^kut+cZVx*@kw4~(SMJk?t0l2erF?#8}rKgFy)e9Qr~J%SE(OIm%=4z;euG{GSbk` z$WS88`*5Lz1uJm0Ay(Gs8T<+Kp+u?8Y>qW)kDqAq>(*DOjGEr2RN&g*V2 z4mXunG{|N&=dF*R66=e2 zhz2o6rK_y3A_Z;uIzA*bHPOQ;mmTp{KEFZVSHLISSE=}fa|Avc*R2kp-&`3Vzt2^0@lypJJ64IuGb`h< zGw9m2P~Wa#)uxQV@yb==_|cVd+)7fUDNcogUqZgXZSN{^BRjW(TwQboLs+=#+7Y>O zK)Vxx^2P#9{3}RyDk!i$sA8L0Wrb>d0k}go$T+XigbTd!$UWYIAnmwVKBP3DeKCRl zOI7r(7vndS_)hV0RD2v4A9wMGRAPZ?)6JD@7`*EK9_6?x8Fqs2~92hG}Zqr?Q z?SuOyE&o<;@&o2sUu@|0Qk$0rG9$jv)2e1snjisp&R_3 zjXMA9q1TqPT7DKd(_(pgvLa)2VBgAY32B8#98yvJhVt1Tt@6NIhr9 z7~B1Oy)c=r8q`>>z~$qqTh*o9yW1z?ElGS03ZaN3w$WFkb8{ zJ2oEEmuc1^Y;asJQPljE)W~;B{GkcVNK)-Fntw5MoiUpKc~%g8r}^-0SbfLQABE~c zvY`9A_5HF#BNOPt1O_q6pO?DU80G)>IZOFXclwLDB8ErF5%j+{H6^;0`^^&~226{} z5)95&sVk1L;EJpu`Y!yJAC>V zT{hu!i~D%SwG-pYsZohB&dds;?~EIt#g31LSM%M22H<=V-;N5QY z)z;si%sTo~LW5zMv;L1iuKiqUCM8Q5#V`>i77+(#}5^-l$lm7X-7<>93^%9cTCv*>^DR_;9QH;>J)V0S5 zJ(LwhV4c=8h_+@VD@VreqebiO7!u1B{MeVeIo*o>_yjMa2R?1tF`c^d7(1@Z3L?sm z4E+st7J`aG`!awCu=u)A;9dvzM((8*m)M3IF@~XZ(F8p;A-ffX+=T7p5YxzqQdb)j zfd{gJ=s)qj$&o1WgLFasCsH?|d*XXrI}^;|Yg1PnBmS$hf`}47gYpFWC%laeAOb9Y zJ8K^-T}GaZZRhT^we^|39c6Am?B-ab@O_0;eKIv~lBJ58wvx;E@ziz2MClm@v4)c# zTW`aH6YekN9A-pK6Y>RNzm&SMT@u#aHi11lgws?9wf%hR>SMJ2v#cNjh52K_u3mRo z<9A~Q&Rl92Fo|aimJDp{jb9m)b@-KHZCR(V$PcrUGnke7Us*x)og-s+VrSEmKhYmi zl31?b$JKq~$M^)cKbT9M6y(a(mB$q1@~j~G&JJGcr5&o`%muk1HEjOHN-!l`FyzkE z4eHirZ58u_dI%#)&LE<2Bz5gEj@*_NMBh1bF;-HQ&4TIh;w~(N!P;glUl&Vt73Op- zDfm=L-OO(JbjgGv@topdFIFOk@Qks{N{vX2Ws6xs^qpnfj?oz~9oAMQ6%Y*i>C}zt zmO5sVu=q&Uv4D(4@EXyzi$(aW zx5Hv+UF^ppo;%c=u^BaMr8vZa)OE$gXfK0U!#Ko+cVLkVo$zOpPa-y@X|sINT9~44 zhjK!r?@QhIWQ~py+P!F^6vA-|rwZXTxG9=HOfbgxq(&pggS)bV2$blUU}L-ZMCQob z7RjJHD|MV^6d4UiGX-CkQ@5sDzKl&sR+ti-m|Z=cy6zY=Y(dF(2BrO6Zq}Ks&4RXA zhe1c@C_12K3G)7I>Lzwe-q8s`SFFDvOk%`+YwDU~#BF5-5lH$^3;wi|^sHRia)(LV zC$(fjk7No?d@^-oy5+|{KP_yAmp=ByyP=0$doVHQUo8AYkN zQD#Ik1v8$Tx;5P@>evL%)&VwBOB0xJAa&g_X6$7UYv@9c!yJkbY@%I^XA3gFJatpM zCG%GD92leaJ=TfTwZ{nk(ySl?sh<_R>b3W<6MHG?z@tU4!%7&?v?(Ka^Jwa(b<3Oc zCn^#*ud8Y^kXcHNLX1JptRSKc%FxRM9hK0>3?Kq5R_LfQ8^@h@V~Z#b8^AK>N7~uQ zHf4mIygxOCyO$H%zUt%F-eSHtH3~5~c@KkFLyNi9->;qAFD2v)djEdv#&%2ZZJ61G z9MB%}_O$-p)YZpm{hzaf2(;lp33m0`XkIFMFS43?HP}%vIi!w+S12o(_5IXM?Uq@W z$)Pcg$@D7r`>33YkCp!>H7YU2eLE|NzB6uTpiP)E!8vz0+CLh)Xj4WoYR5>wyzlcv zT7^jzA2&(eV2*xkY7}A&+L9GS-x+jOXjY!IOH1l@R0Zqq6~Vq6Q#ZU@J-Zt0^XKVF z*QSy>rMSA?kQ$>HH}_`+(RXfMdgIOKKrPHb#usWB;$wmizAH5{G4}m@RuFw> z-xYV`3^Z~sPm~(9=3>bkn)`iWgn?a@7cBft>Lz!~!Ye200_Q0lj7&ItLw3IxOkm=t zQ==1O;-|8Lh%zz5pgS11i&0?)5CIlq+@1kMfQ6V4&j2F8Vk&FAp0L1iUVPS7y9vnN z@2+Tb@>_T&(%R*(Zy3$>#&@SiuC%@(m%6T)Xb&-nH4HTjALh9s9OoP+pc^C$BeExT z(~^xyjEwHc1U8`IEOB5UsS%8NcBQU0M$l`rf(Z0uLhz*5@q|q{MhAw{wCNgFh4@O2 zp#R;eo6#-(H`8G{J{~a^98Xr3Zm~U*hc4gA+Xt&6G;UGL!8u&>XsqfC+IXU zOagV}%fqSbkMX6N6-3|pvi`@6MorZTktAsUGpP~pmi8Ma9-*3JTJYx7HO8p@rmP_P zPHilwU*y$o?ao?FDj+!ViPVkimJ_tzp0Sc!yKn+_f;0Ki)b+>s@*7z}^qnu`;-uw6 zxSy+pi4L=%YD7F+@Z_th8`LdNwoc&8bsTtuPRqk6rYT=aU3-ippU(=S?;P1qkz^d1 zT5fwRabgLR zjqH-3?iP7ov4=}cVc(Uy>KJ{0 zJ}ZboRenyesMkaO;aTGhZ?=k;T*h3abkA}bwrA~BlsFp^XX2z_bl z+GB*iC@YAP&#UJ!h_-?Mtjp%*L7Yt+clfHzP;vwxZcp8eF2&p3EC;~?j~ELMrLH)} zf`eH>^qmFc6euMpFd@OmTTxj3Y+s+G8A< z&kCYzj$~ev&v10?oS z68ot_W4Z3s%6uwoflov61Al>~JDVD(7*k)zAl9%;*-F=1;RG=a%lvS`EH2qq%~(Rd zV891bH?~^_Y@4VFoTdVtVhZ%W)YZpm{mWTF1Pb(vf?d6K$;FK=p#=+yMT_MMhWyvm z&FPjQ@;;XkJ~4LuLF&q5?D)N`Ao|XZb+?)kPm5Co+5avz+TD_U{lq-#jgk5XsVj_; z`g>VH^qtgO{9txM4-w5247hN#PlE<`EC^u>Y+}4PKXu(PUTn__qVK%eaRfKravxr= zVR3p=pPgJp@a2}&4eM4hc1|ov%%&K#cKz{9sWFIg=XqH{^qo7Q^O%+1A(Sropr>v^ zw|q!Ar#Wzj9!gzpjQ9^^1<`lnhi?Y(4(V68kW@ghXsdyt_}$J^4iq($N2K9 ztRVW%7ZEtNy+E$Ql1QH5#;>GqO1Io-6I2cu@k^7OXMK2fDxZfU3H8RzmpY2-x)FX(x!>?5rg|u6;{M@1vCD8>gIII zjB%X$0eq$cd?YOcc6>K=n9qFeRbG+_i- z#OQx(>Uv}Je_>V-eW(A>;UyghY(&CaeyX6nnHv3WDL;&}ltuk9vM;2rG)DG9RuECL zXRua*!4vag89)SB{Lieja)gC1P&_xpXqzfH}kWC5ew>Q|cK{DstY z#pLSk45Do~+Nz*o?htN^cN&J#?ke_g1J}n}lU>|%?`}kl5tsP3_%eET2wxi}4vak6 znw)jTgc=r%IQmlSbuA>|6!iw(C`PMrDIv#eQ%}&rvHW`n#kLVCC>q7kDq7ytAswY~t1Bx^s8ukJ>>)@&4vmV5KeeKu~(otZC`jOxto zwSqXadS($zX`Ayia?)d_SS#2w_ZSN}phtd8H*BZnuE(UCf%Xa8`3%)EulqMTX7HGV zxUI^7ylpjDH0PV{7^FE5I_EuVlIVUIB7Ag&Z+Ser(V{Cqj^->nx9sS4-f4zkv`*{j zI*XPb9Not9dvu`bZXsy4Q4ox?TaULy(gJoTLyW=dKd8d|d z7<5Bx5fFr+K7~)R7H?#U4Std62ERy#gI^@f!7q~P;1`Lv|EuYalGLJJwg7hPsg}Fd z6H+BLSFBZV#0Bn~(+M?qpuiuS8nv2}x0fsPwQ|dP5_q~B?-jqEZtZ#vx8kpmI_qw> z&3T&SJv5KmA?T;~`&Oe|JA>aF`1)sj*%UerA3uj6y>wbrYu5TEP@i?jO#2=qT;{Ah zlE+cHFJJe z7qq^kdokolms8N#SR~&B={gD!3T-u$yT%J4qDXk zN$W~f3=J6)N7O3BUSH8+OGAZ5OS+w>U3z3##p{H?S+4&qSAUjkKg*S$<+{&u)n~cp zvrV6qgZ1SQXzLC}!_Qqu#xAHiNVgqUGj~(HQCqCBg=d^)Gd7m>c>`z9<5hQf(WnaQ zStkL#bd@`5*Gpz~X_{|vfGysdKhe;uHu#42+})@xEu%l3v>rlfcPwAlA6d@hkQgpN zJuQqlzYl5wG)>{Q+zod!f1K89TGl+?vkLSm(!;>xC()hF|6~hYQw=MliIc#5nYKrZ zU!|+8ITV|Wyz6d0&WAT+=RUoY1icc1zR@=5Wa^e>Be5OGP4{vkoT-9kGf5Dg5JUyZ zD9Y~kyO*63PK8jAq*i)&jJH@YL%-c&@4ECB%Iyqo@UJfBK@A*KZ41GTWcp`Jx!s-g z@{`bIT%3y@+7|@oz7&DiwX9QUrd4J_;TKU%k`2Eep&H34lV*1V&Q*felOb8})QUA0U8%1dC?QamldaNDcZAaNRa&OvTbQo^uDjiH2(-Dm znccg!-7|A@E$geuItju2B0i;o=F;m=P+cVBZxVWGC_K2jb&z`9nHf|9~H&&F_l?b`Pa@z_<;f3G9V2Zb#R_TK@_v z2yw(GTbwfQpz(-88O0Y?D8pr$GM|h$pf{BHcpR|xF-oJp>F5xeMvQky<(=kvzG5XJ ztYZt>l6DLJU#BhO|0Aj-#&W|=^n~(rs4^Xo-I1kA`6j!L^XFi2XfR?l;GDP{utpO} zXWij4JcK40IgA0s5+XQ&C3CS<#(yV|YhqYat-nubAj@8e5FnrMo%g z+}JH$71CI4g3!7{@K|}g(pGXqXc2$97rjqKMNh0|p*_z!tv*tB0$5y}rSE%jA?c0u zeJ2h$)VeXW?)On5q*(4H3wsu|o3uyuJ@b!ilM7~5(|2jN9Mm4rPiph3;B_vVB!&N+ zS_-W%Pz%0Dk1yeI*7`D@fxKB?#ZUAGEMwN!s2CZwP#d=jHmih45Uep;1u;b%!6mDr zvc&~7r9gssS$|D9FjEt3VhAsyefN^}&8TE;Jf<(#n(E3Oi%W6c&lv|6{V?=9;($Yq zy1+AMBeb3h`y=Zm)s)?D4V-u0i?MsGZfms#Ev(EMq9aQb#W?}Bsz&}B z!Xl)y)48xI*Un%huQ??{voQn;m($>y)^M;7t_1S47pc$w(1A~&Q{N}uYGkf9NE)ueOE`+X91%QOI_Go7?yfQQjAjGT6`BlLa!>vW|XH1Bk zq3If<7$wWJhQku7HpW1WJsM1}CPS@za@4eiS{WlmLeN`+8bZXrNzvCI(SB`dA2xv2 zBY8(=7B&I)9#}5Y z&W1L(Fo)A?$&$(6i*r!vLs*my{mls*;VmQg%FZp$bu>*>&Np#6`~t)io*l&P0@Z?v z$skRy|d3wJwoLL`;~+#$4r_CP~V(?v4&?%%DQM6o^UtgW4K^^p)%MD?Ol|9uzpr15 zwq4rMo~dnKp=>5vbjjy;tOYGLg>1LlawVsq?fkX1Xy@}Y_ev^NRsp9A8gleyNJd{G zox_OVJ*r*A2JSQ!EIn)a>7G*7^$`nN;+f1`&}A!_xZ#Z8wcZ=WKksQ%+jI=qbmxnx z6zKM)Ow?J9cAM%_Gfxn{vli4z=rXLcRB^b2jraVIM4Rx4LO-twKU|9@3`{F^yZ9Yo z-%e$vm>8?Ro*EO04eb^+MF&Vx=q@I^IM@;m2?gn^i3Cy5r29xv4oAQ$;q75; z5w0LY5(zGHITnK}x8jX{#DXr50}jQ4_M=&mk(2woUX(&^sJDd;!_H>W1W(yO(_UccUPu+MNx~ z>{gKR^#8^Vkkb!&tUvM%6QS&NV_Q_#Du}qz%xoMb@IiFc&?YJ;TN%jXhd* zpzy{vJa{YSexhu4hrP}%Hd`6aS&aihJ#F_6#B|hw*mNgNu$T+D(mdira8dRl-qc&Q z4;BtQ6$c#hA#RKN5cj_h(O0jx<&|Lqb9CC6C9xgq&?(l6&?|>5v2d-S7trigZBs$4m$*Z0?iFg&dufL=5`5SxnTaq z2WWdr*Z(@FrX7dc#GNV+jaXXtduZDuOt_w@(Dn?^U#CeN34(w`^wqa;< z-ZCOK#kV%ivV+?~OZ$(n1?|UnsWw0*TP!zQi(ytG(sr#< zk0)(^uof+LNZQug!YR#lpB)ss;GMHh9l>3>vSn5od-)2MT&2T`r3K1=(Ic^N*Yomq zcg1Sm4Vb|*i!JwZZ|N%^S4G`}Uuurf=c9$rRA{;;S?b%1~x2c$>f%{bUnU^LW_G}O{tqbdT|-aZ(0R`WS>KOiqZ z33&~wWV9_6CWI%Vk(-sJ=yN}1(wA$gm?%X*RdVzaaF~LgDLtRtlctMa^*}|TWK?e5b!KtDKPYi` z$~llJUI{RD28*}q5I>zaN<M zH6tb(S9CvOx+gkfTG3jC*>CadJc@cjPZh`tMo~A$0f$CW_o21XNNnYVvU)5;cV%Ru z$&m%Z2>vODB7B9=Xf8aWptUZ+kU}mUDT=is>N+%cjq6sJ@e-mGGvkgp&3yknjgm?~ zI%$64<)S8)JD!Ojl5qjmz`K7(jB)gNtlyy}K4-K7#*rAFij6Q1#%}Y=TB9jeCC(K} zwfc0)o}-154n=z~aCL6VVP_7a+e;X|R&(Y;4ui?lSYn9fZ@k$vC-#Bl?B=}uh7+*F zP2)LvS~XtL7b`kGYA^!MGA%Z&=4gp*PAm<>*f?kMC6YPa&S4WLhM$1HU@n!#M?-v2 z-4)X@Pa8S^h`k&Q)y1XI*g1EmnwyWTB>PuNgRr1_oyPr;(yYtiq)qk(ElC=qeXrw* z=SEDyEMoVc>R60UPiuM4p$yd8+XcPy@+a#D zXrr1F+6kr3mwD(bzMr*B=70^u8T!^UH^@D??==nOWsTB zCYh}#ShCY}qshMRdTcNx{=r^!+~uJtRMgR(Bv1E1i>;2~jn;MpL*KWh4T!qBY@m&Y zYt4{4vz<`8b;Y%HFEo}AnstKpoyGk8G7n6!W6|RMjwS%v?sF0gVxWs+WF;*w1|t!5 z;NGA*aKdAd-nZ@T2DlajK=j|bgMqP_Q!5!}13k7~L);j>GA;oX)9mmxFwX-WHwxH4 zj&-u37dc`sygu69g>vZC{c>g9cKlGVm^^%{8{EG3>bI>Kc3}~<-tBYnUG%MYmOjY^ zd{vUH$Ue5DE1heoD~s+w-64+nU>DmXJht(McR3~(Q5yaczu~{$+lKQ%B+|wGxM=vV zp(fc}cca5QTvV4L)M^>gsFi72qfIIQ1df$m4Vrl?pD~McOv$dm7ZT6~cK=CW_dEDV z@+mS_wp9)Z{$HXpn+jPEH*f>GH@(=dd0b>&1E)T;lMMlc4)CB&^oeLkZN;!BKB~wB z$%>eK*GKz1^sT@8@j5}Ezd}vv++4}f4T2B?$~PE_^(}mKMVHY-VMC}ACz7X7XybN| zvFqvEnowu}HD#fYb)Ju`AWyV+^g6`$`@CJ2M?vDRWM-5Q`y_psuNB*gGWL_SVdiA_ zY#y4MyXBUHp$U)3swnFKktl3T*P*;JJn)8NH}sa@!Q|V%tn5wdbe$W0N zO>6y>eBM+v_+aw7u4Zr95D50eS*e~R*sm8dQ_Tu95bRTe4PAE?-3oS#=*WWoCi>Q2 z!ItEBs#oMVcLaOp!S?2w7qN!(g<#J-m}s$oqql4b1p7l-sh%X*u8^4zW`!9D_OCLC z-dpTHAv&^P{}FxbuV71Z{9&)iagGS~rR0cUG5Xxx72@L-|0jNXz2;=ns%kYzxfPDdtk5`3;#V zD%G|9MYBL6uh|mx&51hynhtO~S>HGR_ivxaf6)~rF*DqK`w&lznqiD}ZjM>u!JCuq z*V7r>()T8ih^pKeJeb^s_pC`1a*8Op13B5rrxG$^O-Q+<^K$c53T&@yd1g)8r8+MW z?MardgYhODOm4zw&&ejhPhnf9iq|@%CGz2m=V~Jkh7GllrFBS4Y{Yl_+lUOkT~a6f zM&YNFfb1$eVS_<*KlF=vB1#N2maF(FqdPsvcoTi=?{H9(Xc#s1ghUxQ*AG7hmhrL2 zLKZ*LsaaD**>G5T@Uh1d1%0NsEC_s#>#|ZjNzk7bf znnaQQU~gFvi1hojQankd-zwzgy;)%fBK;l)(Y;7_Yo$L&bY!9aJ^I#Pp_b(MOs~js zjtDiZ^h5`l{u?4}Sf&Ri5=HuZy=6ck(tn+m-bo_;HX$wF$_g_O>Az$Uy%*`x^F5K? zMBn-=(vlp*sA-knv>?YhBGOkQMkm95BJOw4|LOe>jp5@lKG=DBK^-6u9!!q%&GeQ{ zf#6@qTv;i~N2S_HNn&g)7UmngIXTXEr~~9qalRE}W8F6_ApnEu1#?qn&N`$enx%Ws z)kfTWbBqz|ke1j8<6LdT!FVhToJbDAoat{PGMJvE4&vuT2Qdj`S7{NiW)R(X5Z$@) zZy_qO$J6R9Jv$KNr+Y<=3_R*buw~QS+;u$jGZonQcqahA2&GgrGjLs^em>J%Rs>zZ zhney#bpceW>n;Gz3N>4To=R-iXFI@MRRYIi-k z+nvV#6;Y8j_P_O(o*jtsjb0HW1CRQlv6thRN7h(6zj1C3{vDn(@Zso3M^_HwjyEG( zoP5UNrsuR*qYQEtXz>sL!;=wH#cd~?s8kv)4zKqVpp%z#UfKcf8Z|4yjRRl6#Ry-n zPBcR^=VSvgMj!!HTQE42?E4%#SDO%49wDHES0^{&-u^ZrgP}>Xf4?9s?Rp@)O80Gm zLG;>vYY-K=GpP5Lo*jr$=@l_D@Tec10W|NSPV)+HBFcs%R)Y^EPb{>0%Ywk*zcDMt zleqXUAun&p3N!F;Ue6%97wK-Jupc5ivQYmTed}+?N|NIPy&}gsBGebp&AkZj4E&iF z$>FG_CNf9n8wRSr(4mRaAVT3P62vB;FY3lAs6JIR|X5_$8FYte$pI_=O>r?jjI z%cSJ{70C_TbU}Nj_kcASbT`SuzFY9|bKt@%orcdci0&Bm;(3YQX$5>ti*$|>&W{NW?VF9Cj%fW49Gw+C6wyBpm5+DvjzbL& zZvk4XIVkZyH|O7+D34C<{@ldV(Q^|o_0JJML6iKe;miFTKgy8fWC2kZXE9}l)=*jpn zed}+y<3obo8&K0K-SI&N(f!zD=(xB^LRAMpRUye0K1nWLGm>1=E0RR}@Rd)&37z5b ze^?7Lc#K!m?r64@QjxAjLef!1JvsLVJ*eelLCNuXsz+yr);BId{Z6ynG=l-k&AHD&n2IwBh%A%YZ<jnlXO3b`cEU-pVX z=Z=tv7qdi#JaNdm$gb9f$nd zG4T$P6~W$3)MUY)q;I{WYX_oS-7BJ;BZ5t9ggUKMcnMK9Y`zC)l2n#fc(Y_-q z#gn-B2_Y|sv%(BS`&I_gy=YI|W|+9SbP;zc3K6I45^1eqqej;%7PV%5m*W*A`xTqcCQ8KBJyO~NYgs#zjrpAzzNVOE%dGMvvKx>trRhnMQO{sniFCk@aenTnVnB+9aw-%Q_nN8==GAqn*S zUJ>XV5p(RhEidlx;LJQkqzxPWbttd6)82BRx!y7%5cCJL(maWezbz!@6HwwBAWP#4*ZA?+}zD!M7*Ga zaKVOQ^%z5?YLDxm?odmHVQ;{7Lf;$S5A0IvcJX`VHfGSW4g&L0Mkhmyq5_ivt$qyT z(fd{Or4Fk917d7g_1B@i!Uj(S{{RG9j>T zd$ZC!NwhyJM0+YL%z%%(8AKY8W6iYIO0pUz`^b%k|XZ;;UKuP3xb#U+ev|(Y4;=vvQ5|F%uUQ>sV8-NIREj)}8IG zv{H8fn+UNrEvVpheK?xthY?W?#X z`6k>_uy-EwSPQuC)2j|iHJK!9uF3`DaFoS+R6gh9qgRXYp7+9qVK^b&{DtJwkN(MX zq}7UmxaSO3!oa*GE=>N)_Sk3v;c{Z2>d*}ComX1uxre{d0dfX^I_N_QWp9KqstA*U zha1Vu*j`9yw7oT@9%<7|w*I2GEZGTkBM!pRKM^&388xA)zmMC%LrcZo@9w|hdheEd|8r(WyIu51UQd(T zn@}#P*!({6x7P=zq1dh5-37pE2cGxbpa6eEsk^8%3<@nBIUFfNpza8DkCFkoy-N#5 zcSTiJ{cCG{SO`5s`aPD5G+l)C1-eoGi}d&s9%rpDs4a3GlP`r?vM+DN}Z$}&YbPfI({IjxAU8K0A zIc-euq5XNwT1h``u-gqU>w)S?;b!IRTE)=js&l)9-zVRTIeWARkbOe((&UD~d83g- zl|^%rTtRr6lrEby9o1@VJZulyGAeNXzV}^rdeGu8V#Vo(5O|g z53%YPOVm#7Ovx;i!tkjy?LwT^JS%yVr*G0peDql)u-Z94tC$G!9J&;O+Gc$GI}M8VD;ZtJuZWt|t^}gdy~}vPF)s`t z&9vDNJGNC3Z(l6TJnImNJoj!d?5*%8xsHD+YPwnIe8hFUe+(Vw-uZod_l0~t^1|Sx z-K0Hm{mDJ}zE9gt+tkr3QAa3xrQF`yzWoOxUZ;3z-+p@QK;lbFZC`pWy>xxjOSvd+ zK7Nntk56lpk~JEN>ASRB4r+RiN<{yFoUYxX-HEPmky_HwV0Y2~8R$K$+QD1ogyX)w z3QK=PpacSih1u(@j6TXQf+~_7H5KH7KJVFZL7$W4f>Q7hfzMhvf~X_PS1T`9 zYZVh&+Wa!d7HJi`9?HlWONi;&v~PnwLBt99Fo?OOIRJCc7>GscRXT5?O0VK>zsKN! zl9kf6Lb+y(#K#WK%}wW$9Jc_41UDEl$A}v&+}Iq}Vri8cGzX_!2=}yTEH(`Ip$qIx z22iK9wvJ>WhEMOwr1~^#Qlqf9MhDAo#hs<4sI!zD{i$|O>bKtIK<)Bk42P6ZFnpKM= zG2zJ~c$pIrVqc1Nekl<(Y<0GWF7!{Z+eM3g4pQPcGMu z&xXtOakyN!iO8k!vg~HPUTYwBwjj?e2tv{n-6Eez%%*CSa>7(h)9u=m{cg zwd4W7hRfQ=n|mfLGbv4%O0?8(XP_C5{eiVqNj5O8;NkU>7pw)v-ob|STs7PZUEFgV z*KE>&o+%;?b*0swG+eh9(r{Z3I!Oh4wz z$}Nrht{I1J|0HT!&Cu;g+(lLCy*;T!xb4=1M0y^&{aA0AkT7&RJ~$w%dO4~}7`xf~ z_D=6d$bNdiaUeX}!dQzE5#Zmq_n`w=?Qvl5^u9;|nlpGVjoJ3i?0c>(QV-2B0LG+J zW*1)A|Iqa+y`B{e!u;?wqQn$R(<`rbd=_C&RLE(7_WWmIfad<}p>jE42oznq;CG@} zXUiucpTP!5c``B|qb$dDxzNxSyfM9q1sQX5_wZs{y*xJ;3_RxMj$m+3*WS0UMSHg;NO9QyxJd<8ZhzETWa|=- z=Vbp7>k}hO?C;->sLj2!NQyO4C@@bR`DB;v+@%%tDpt{Bc@|BD;S>Nwc@phO4*3Ps zHpVLMEqygs@~$gS0b|M2hgaZORCif24y*#uPn+ z$bYf}{8gzqA?~U8-~HmC|5kDejTs8tu|>xo;sK0ouy z^5lbv6_zE;_9Jv`EG)nR;qC`A208gI?u{rnu?n>5c$QDC8$PUwPr)`TSn|;jwQo#;y4y_`~DyA+;qP%7xqJsX^{?lGZc=zv}U$ z+R&(Exa-X#=0^R!r@Q;Lu0K}sxHPv@p1BQ>`2OH|=bdc1UJ1|lvQc6+dtR|AG={}y z%xIZ~DSNr<;D8683=#v8i^(#X+qw2%qCFMr!tv0S)OG3j?ryYe%|^j!F$ghOa)*nx z0y?Rx({i^Inppi`b@H;xxTr?5f3P}Xg@+Ekr?;F#@dA@ZD7ks&xV=enXH@I7kB@?v5Afah{ zg*LbwipG3%5%9L0(Hpeb4kgerSCBG7XX6{xqSlk{7PE?5p7OYS9x0G(hnpeh(Vemb)F}tXiX(FB({PSVT1@Q+gwI zmMox|pom$_i+S=^=_+@N-gIjDAj$e!h>ts3Y*y-dU+_R!PB0;J4NQF#>&7?*)UDdY z{vfGt8_i-Zzf>W48mHN7+sKFCWGN{)c{&eR$mdwTXxcQ~LPI2$L!Lsg-ng659vfO9 z&X|MX$ddU56T1alurlY2Ac zlmO7X3D5{`nS(muB&F8T;nGi^b;pHy%9qT=QW^gtYU|52lG4pK=KY=g!%e85jRtM! z-{NN;o3nHxf%U5d_0mE~r>M2j5ZVEPaBFGdK(pRD3r1q`f$4x$LTk^0*R=vRA%SC_ z8gC=TwsEb5S`J(2A!@XhiFC($JJmOCVDWho>b49VN`~Q}ik%oq>!%l|6|3w_)fO0zo0w(Ys9CzkYQ4{ zYP&-OP2@~kGtg>l4?Vs`9mikNV=HZS*+P#?0Lr?M9xgr3(&Gl&LbsnDAE8qy=*B?n zmGm0bV*NPnS$#DPHGUq%u2Qys2vFOm=R_Qu-=r;NNX_7#)%SUte6Rmq- zVd{DVRte&5LnTFJz9kMPTc0N--C{4>uvA_~;3|9txo~OaDMFDbV35JP-ly+CRK7uO zfhP1&yYiH=dOeI-THL=+Hv8R;IxV)BIl$4Hh_xy>@V%)8BbNb#GgLAV>FGcn+< zCk=vGy>s@+UDTt8JTur@a<`5)rHdA&8PIk&`7~z3v`K~&U=kO}Ceg7THMm@`NUhnx zfyAhmHt6~XQKT6)$mR#frLgWr_WK@04H4d1ZzCNQe3g4cM{busXXGCEP`VhjeTno+ zb$@-_W1$0_f-Zs(iiJlv69#FaQxF4|Sa54xy_hL*BAJ49%00HbQUYtK`8&cXA&TD3I+9 zI6?~a5xkD>=r_d2TYzHt(1AkU;IX@#e=g)w@_RKxT!g0Mi6KcYA!**J{GagqK$CTAQe4+#c zDxD*&VXd7u;q79|mG_RHHjOjh<{i2I@>-i#g?f9Bgx~1TPKd3`FHQ^dYp;G=BGfSR zt!s!hO#Q3kMDndf1|1HL6PX~ubcn#w^`a(~9Ux!#a`lZ35xLrW8)lZ^y=q6ARdz)q z(#0=u`)=rM`vMETKMvRm+B}5zMPpbWSioxF@E;ai&!cv}bvj|GNKjNxn?`%lwzIF_fmx z>N+;v&hd+pF!H}J+{41|#rkdq!_qk|8Do8c6pRSTS4Ab>3AtNI3?R-^3%)peeUj{e z{32SoNay&Ms&JxD3UDI{?Op?iH%2sY{B9alEw#H)oXfKUo{a0sY79)EfIk)o98$oo zaRt2pN=%1OsVYdjuvrJ2bkLkOH(IPN%*j285ijoP#kmv|W`joh$a{-tFd2X)epq4?j9%?M za9u>Sg4c@XXvd{=ZgBYS0uJG(fSMf{-uAh!uy9+SAWAT?KNhFSYKWaQ=$#TZsnk#C zCBBAUVhINU(e)bMA55)X$12N(WsJ&nhsSlax{28_hmvHS)t6$gpuilC%~M_?e~?~# z;Kq|&RqQ1$5Pl6My?&^}Yur)AUVCs!n>rY(54A<)iNehgA`DyiaM+oKpx*E%X98E8 zGK93Mwu~=E8CUc?;!%o#p>!L7kAwi8Db=w2bIx3t%RR7fdiwdI{Y-#p`@Pw1It6Bq z3!kJ``9}{jH9-1FNkkllg!a*9dEP1?MFvgtR6^~)e#G;C6+90cA1?^;8Cae*4npj0 zV~N%SmDu{5aT4OGkjam&!Qm3&PGQAWK%EB$)B|F_z=P%4^LL`G~^1j z2y@o$=7p8%64ixN(@jBK?TDyJ6@_@m@1ifhNqZDM*xeMt)gJf0p?|qWd&Fo&W^h(6 z9wv#$uWeVXxw*NcP5Yx>=Jm_9Cha=G&I~Mk!`d662joWLC^m%l;SlMfgZIPKQ61PC zgP};Rn~*QCyApH}GjZ`br`71kbsgZYNax0@WbT7upiN{#t?inn13w2x3*uP&` zs6({yYGwhbPwKw+{h4U*yX_dQTBGx_%dlcRz*98P;y1X{&G%L{f=>6rIN(sH`*Jie zYI<%JSYw%okF|93F{C(S=%;A=7$T%t|3Zsk_-t}a(}f1Rkx^_f0EPwFs#2SnY~^_C z{GL36MM)Z}zCzTb(lOp+-M?W#1T=Z{bK)e%WPG$M4bsTKSg12_=1F+agCfK`6IIUWC@F~XM-Ps{I2nU z=YeE-j@jUCyySK&YzAVZ9Z`lZp7Kq_D#trykh-_HpNLxAv0H)lDeaI9twrLAT%7I3 zn|o_F0(1MOIN*@EwGzy2QEui%$dKYuP)@9VhjZse2eEG#S3k&^Z=Q|agXL%l*a(AB z)+_TxJ#2loVvXZPRRbW!glW_>JdmMIrRQ=pK@gJnZ{sBLZFbDN+$fr=x;TSo^7!lh z9Uy1u4TA9(p$yjX`0F~Jgz1v(VV!qVy}2^2q8giVL{=6xse&8t-`qDWXkN@xbX@3N z)b%;x8GCd*+^dNAsEk(9dw#@{e#odLzWKnyQ-7Wg(Bd6$@(ZA*r>7(1@pBBfFxNdx z|Jy7=X{2z~>uYMsoQ=wjJH}VvO!?G~nR!vbH%Y6V>?SMNy^a5B)W&bVt%j`<uB)CHU=?lp|Y&f<8Vart$d$MV?A3k>` zSHV?4Caww7=CS<ChA?Fi0imNo`V4 z@TC9mI@F#l_i=sMKiNt~M)=qo8>PxUn@& zZrBY|-s1P!KJNnY+l3f27=*w+UlRu$vd>Spv(MrL3~X${a&w$=Ond*R5xRfO1`p!t zhz*!%y-=XdexVbJa|^X{xps!$@|FYm_F1@%+za%h7KOk!QtO$(&yCZ;xAz$coD>;( zy{Jj0c!K>IoWr(&aEOu;!f1OMc{^}ky>C*WkcQ+_u@(O#NcMaQuKbgU!4ARUYx?bEM7;VEdhtQAT)umm@{E#Rs*tSCU~JvfE3$$4|~ zj>0*AB2W4bl{G~}Q8jms>lTc8rh{U~49AF1H`Q_sNpdRf@r3R_cBo-hrh`!TOh@Eq z0&9G$H%#c%z#eJ(JCkKR3f;vtk{C-)N!OVt|7~nFpJJz$!j9h^AL2JdVzXzeL=hF!U zH{mgBy?~!LQ^E`J2p^(l-O72l@$+_m9_Hr}Jo#uW>&5tXbilepeB8;oFX87=ejcNY zLF+huY_Mj<$6cItH$PvB=abewcv|<;;{-kEpeXBQ^msWv?)TGPLEnCi9uLstL3*5| z$3yhU<1uT^@l(eWnlw-8baaSS;N&7d4Sp{0bCI7VewzHW@D%hu#lOq+yF!mD9#2{| zJkjPlK5%Z5^)NnXtp=WaLXu_EH-{cg&N)qA-%Ti-!8bnZ$XcSbWqLe<$CK8h^py@U zvL3^?v)1GMd?lW!=vDmV)p+umL)L5f_iORQ!8ZK;C+Nv12U$#X%UJaIn4llZ_Q zpx28JSA4utd_2t`lh!w{1l+IFul} zSza8=$nq{>MwYklF|x1qk)@3U^4uO;xGV7fDt%+TdGQA0&C^_rH-}9LZ;JvLP3vuf zU_U25-hmI0_7}v*yTr%4#m9TZ$1jVIU%?01_dfbK&w4*TtPkJ;hLAuW9pJNUtbd0j z!25Oa@kjWWwf&iFF<|myQ*YhH`*@N693*t>_jN z-TF-k8le-~ Z@`wTH^lKCLp3}i`j - @@ -85,59 +84,67 @@

      -

      Basic Syntax

      +

      Basic Syntax

      -

      Declarations

      +

      Declarations

      f x = x + y + z
       
      -

      Type Signatures

      +

      Type Signatures

      f,g : {a,b} (fin a) => [a] b
       
      -

      Numeric Constraint Guards

      -

      A declaration with a signature can use numeric constraint guards, which are like -normal guards (such as in a multi-branch if` expression) except that the -guarding conditions can be numeric constraints. For example:

      +

      Numeric Constraint Guards

      +

      A declaration with a signature can use numeric constraint guards, +which are used to change the behavior of a functoin depending on its +numeric type parameters. For example:

      len : {n} (fin n) => [n]a -> Integer
       len xs | n == 0 => 0
              | n >  0 => 1 + len (drop `{1} xs)
       
      -

      Note that this is importantly different from

      +

      Each behavior starts with | and lists some constraints on the numeric +parameters to a declaration. When applied, the function will use the first +definition that satisfies the provided numeric parameters.

      +

      Numeric constraint guards are quite similar to an if expression, +except that decisions are based on types rather than values. There +is also an important difference to simply using demotion and an +actual if statement:

      len' : {n} (fin n) => [n]a -> Integer
       len' xs = if `n == 0 => 0
                  | `n >  0 => 1 + len (drop `{1} xs)
       
      -

      In len’, the type-checker cannot determine that n >= 1 which is -required to use the

      -
      drop `{1} xs
      -
      -
      -

      since the if’s condition is only on values, not types.

      -

      However, in len, the type-checker locally-assumes the constraint n > 0 in -that constraint-guarded branch and so it can in fact determine that n >= 1.

      +

      The definition of len' is rejected, because the value based if +expression does provide the type based fact n >= 1 which is +required by drop `{1} xs, while in len, the type-checker +locally-assumes the constraint n > 0 in that constraint-guarded branch +and so it can in fact determine that n >= 1.

      Requirements:
      • Numeric constraint guards only support constraints over numeric literals, -such as fin, <=, ==, etc. Type constraint aliases can also be used as -long as they only constrain numeric literals.

      • +such as fin, <=, ==, etc. +Type constraint aliases can also be used as long as they only constrain +numeric literals.

      • The numeric constraint guards of a declaration should be exhaustive. The type-checker will attempt to prove that the set of constraint guards is exhaustive, but if it can’t then it will issue a non-exhaustive constraint guards warning. This warning is controlled by the environmental option -warnNonExhaustiveConstraintGuards.

      • +warnNonExhaustiveConstraintGuards.

        +
      • Each constraint guard is checked independently of the others, and there +are no implict assumptions that the previous behaviors do not match— +instead the programmer needs to specify all constraints explicitly +in the guard.

      -

      Layout

      +

      Layout

      Groups of declarations are organized based on indentation. Declarations with the same indentation belong to the same group. Lines of text that are indented more than the beginning of a @@ -158,7 +165,7 @@

      Layoutf, which defines two more local names, y and z.

      -

      Comments

      +

      Comments

      Cryptol supports block comments, which start with /* and end with */, and line comments, which start with // and terminate at the end of the line. Block comments may be nested arbitrarily.

      @@ -173,7 +180,7 @@

      Comments -

      Identifiers

      +

      Identifiers

      Cryptol identifiers consist of one or more characters. The first character must be either an English letter or underscore (_). The following characters may be an English letter, a decimal digit, @@ -189,7 +196,7 @@

      Identifiers -

      Keywords and Built-in Operators

      +

      Keywords and Built-in Operators

      The following identifiers have special meanings in Cryptol, and may not be used for programmer defined names:

      @@ -266,7 +273,7 @@

      Keywords and Built-in Operators -

      Built-in Type-level Operators

      +

      Built-in Type-level Operators

      Cryptol includes a variety of operators that allow computations on the numeric types used to specify the sizes of sequences.

      @@ -321,7 +328,7 @@

      Built-in Type-level Operators -

      Numeric Literals

      +

      Numeric Literals

      Numeric literals may be written in binary, octal, decimal, or hexadecimal notation. The base of a literal is determined by its prefix: 0b for binary, 0o for octal, no special prefix for diff --git a/docs/RefMan/_build/html/BasicTypes.html b/docs/RefMan/_build/html/BasicTypes.html index 1fd9d5267..316076210 100644 --- a/docs/RefMan/_build/html/BasicTypes.html +++ b/docs/RefMan/_build/html/BasicTypes.html @@ -14,7 +14,6 @@ - @@ -83,9 +82,9 @@

      -

      Basic Types

      +

      Basic Types

      -

      Tuples and Records

      +

      Tuples and Records

      Tuples and records are used for packaging multiple values together. Tuples are enclosed in parentheses, while records are enclosed in curly braces. The components of both tuples and records are separated by @@ -114,7 +113,7 @@

      Tuples and Records -

      Accessing Fields

      +

      Accessing Fields

      The components of a record or a tuple may be accessed in two ways: via pattern matching or by using explicit component selectors. Explicit component selectors are written as follows:

      @@ -165,7 +164,7 @@

      Accessing Fields -

      Updating Fields

      +

      Updating Fields

      The components of a record or a tuple may be updated using the following notation:

      // Example values
      @@ -188,7 +187,7 @@ 

      Updating Fields -

      Sequences

      +

      Sequences

      A sequence is a fixed-length collection of elements of the same type. The type of a finite sequence of length n, with elements of type a is [n] a. Often, a finite sequence of bits, [n] Bit, is called a @@ -267,7 +266,7 @@

      Sequences -

      Functions

      +

      Functions

      \p1 p2 -> e              // Lambda expression
       f p1 p2 = e              // Function definition
       
      diff --git a/docs/RefMan/_build/html/Expressions.html b/docs/RefMan/_build/html/Expressions.html index d242cae93..02d60cef9 100644 --- a/docs/RefMan/_build/html/Expressions.html +++ b/docs/RefMan/_build/html/Expressions.html @@ -14,7 +14,6 @@ - @@ -85,10 +84,10 @@
      -

      Expressions

      +

      Expressions

      This section provides an overview of the Cryptol’s expression syntax.

      -

      Calling Functions

      +

      Calling Functions

      f 2             // call `f` with parameter `2`
       g x y           // call `g` with two parameters: `x` and `y`
       h (x,y)         // call `h` with one parameter,  the pair `(x,y)`
      @@ -96,7 +95,7 @@ 

      Calling Functions -

      Prefix Operators

      +

      Prefix Operators

      -2              // call unary `-` with parameter `2`
       - 2             // call unary `-` with parameter `2`
       f (-2)          // call `f` with one argument: `-2`,  parens are important
      @@ -106,7 +105,7 @@ 

      Prefix Operators -

      Infix Functions

      +

      Infix Functions

      2 + 3           // call `+` with two parameters: `2` and `3`
       2 + 3 * 5       // call `+` with two parameters: `2` and `3 * 5`
       (+) 2 3         // call `+` with two parameters: `2` and `3`
      @@ -117,7 +116,7 @@ 

      Infix Functions -

      Type Annotations

      +

      Type Annotations

      Explicit type annotations may be added on expressions, patterns, and in argument definitions.

      x : Bit         // specify that `x` has type `Bit`
      @@ -139,7 +138,7 @@ 

      Type Annotations -

      Explicit Type Instantiation

      +

      Explicit Type Instantiation

      If f is a polymorphic value with type:

      f : { tyParam } tyParam
       f = zero
      @@ -151,7 +150,7 @@ 

      Explicit Type Instantiation -

      Local Declarations

      +

      Local Declarations

      Local declarations have the weakest precedence of all expressions.

      2 + x : [T]
         where
      @@ -167,7 +166,7 @@ 

      Local Declarations -

      Block Arguments

      +

      Block Arguments

      When used as the last argument to a function call, if and lambda expressions do not need parens:

      f \x -> x       // call `f` with one argument `x -> x`
      @@ -178,7 +177,7 @@ 

      Block Arguments -

      Conditionals

      +

      Conditionals

      The if ... then ... else construct can be used with multiple branches. For example:

      x = if y % 2 == 0 then 22 else 33
      @@ -191,7 +190,7 @@ 

      Conditionals -

      Demoting Numeric Types to Values

      +

      Demoting Numeric Types to Values

      The value corresponding to a numeric type may be accessed using the following notation:

      `t
      diff --git a/docs/RefMan/_build/html/FFI.html b/docs/RefMan/_build/html/FFI.html
      index 98e8b9ced..0f73e4a98 100644
      --- a/docs/RefMan/_build/html/FFI.html
      +++ b/docs/RefMan/_build/html/FFI.html
      @@ -14,7 +14,6 @@
               
               
               
      -        
               
           
           
      @@ -94,16 +93,16 @@
                  
      -

      Foreign Function Interface

      +

      Foreign Function Interface

      The foreign function interface (FFI) allows Cryptol to call functions written in C (or other languages that use the C calling convention).

      -

      Platform support

      +

      Platform support

      The FFI is currently not supported on Windows, and only works on Unix-like systems (macOS and Linux).

      -

      Basic usage

      +

      Basic usage

      Suppose we want to call the following C function:

      uint32_t add(uint32_t x, uint32_t y) {
         return x + y;
      @@ -149,7 +148,7 @@ 

      Basic usage -

      Compiling C code

      +

      Compiling C code

      Cryptol currently does not handle compilation of C code to shared libraries. For simple usages, you can do this manually with the following commands:

        @@ -158,12 +157,12 @@

        Compiling C code -

        Converting between Cryptol and C types

        +

        Converting between Cryptol and C types

        This section describes how a given Cryptol function signature maps to a C function prototype. The FFI only supports a limited set of Cryptol types which have a clear translation into C.

        -

        Overall structure

        +

        Overall structure

        Cryptol foreign bindings must be functions. These functions may have multiple (curried) arguments; they may also be polymorphic, with certain limitations. That is, the general structure of a foreign declaration would @@ -190,7 +189,7 @@

        Overall structure -

        Type parameters

        +

        Type parameters

      @@ -217,7 +216,7 @@

      Type parameters -

      Bit

      +

      Bit

      @@ -239,7 +238,7 @@

      Bit0 is converted to False.

      -

      Integral types

      +

      Integral types

      Let K : # be a Cryptol type. Note K must be an actual fixed numeric type and not a type variable.

      @@ -278,7 +277,7 @@

      Integral types -

      Floating point types

      +

      Floating point types

      @@ -302,7 +301,7 @@

      Floating point types
      -

      Sequences

      +

      Sequences

      Let n1, n2, ..., nk : # be Cryptol types (with k >= 1), possibly containing type variables, that satisfy fin n1, fin n2, ..., fin nk, and T be one of the above Cryptol integral types or floating point types. @@ -331,7 +330,7 @@

      Sequencessize_t’s earlier, so the C code can always know the dimensions of the array.

      -

      Tuples and records

      +

      Tuples and records

      Let T1, T2, ..., Tn be Cryptol types supported by the FFI (which may be any of the types mentioned above, or tuples and records themselves). Let U1, U2, ..., Un be the C types that T1, T2, ..., Tn respectively @@ -361,12 +360,12 @@

      Tuples and records -

      Type synonyms

      +

      Type synonyms

      All type synonyms are expanded before applying the above rules, so you can use type synonyms in foreign declarations to improve readability.

      -

      Return values

      +

      Return values

      If the Cryptol return type is Bit or one of the above integral types or floating point types, the value is returned directly from the C function. In that case, the return type of the C function will be the C type corresponding to @@ -379,7 +378,7 @@

      Return values -

      Quick reference

      +

      Quick reference

      @@ -457,7 +456,7 @@

      Quick reference -

      Memory

      +

      Memory

      When pointers are involved, namely in the cases of sequences and output arguments, they point to memory. This memory is always allocated and deallocated by Cryptol; the C code does not need to manage this memory.

      @@ -471,11 +470,11 @@

      Memory
      -

      Evaluation

      +

      Evaluation

      All Cryptol arguments are fully evaluated when a foreign function is called.

      -

      Example

      +

      Example

      The Cryptol signature

      foreign f : {n} (fin n) => [n][10] -> {a : Bit, b : [64]}
                                  -> (Float64, [n + 1][20])
      diff --git a/docs/RefMan/_build/html/Modules.html b/docs/RefMan/_build/html/Modules.html
      index a874dd877..412a71656 100644
      --- a/docs/RefMan/_build/html/Modules.html
      +++ b/docs/RefMan/_build/html/Modules.html
      @@ -14,7 +14,6 @@
               
               
               
      -        
               
           
           
      @@ -100,7 +99,7 @@
                  
      -

      Modules

      +

      Modules

      A module is used to group some related definitions. Each file may contain at most one top-level module.

      module M where
      @@ -112,7 +111,7 @@ 

      Modules -

      Hierarchical Module Names

      +

      Hierarchical Module Names

      Module may have either simple or hierarchical names. Hierarchical names are constructed by gluing together ordinary identifiers using the symbol ::.

      @@ -129,7 +128,7 @@

      Hierarchical Module NamesHash, contained in one of the directories specified by CRYPTOLPATH.

      -

      Module Imports

      +

      Module Imports

      To use the definitions from one module in another module, we use import declarations:

      @@ -154,7 +153,7 @@

      Module Imports -

      Import Lists

      +

      Import Lists

      Sometimes, we may want to import only some of the definitions from a module. To do so, we use an import declaration with an import list.

      @@ -177,7 +176,7 @@

      Import Lists -

      Hiding Imports

      +

      Hiding Imports

      Sometimes a module may provide many definitions, and we want to use most of them but with a few exceptions (e.g., because those would result to a name clash). In such situations it is convenient @@ -204,7 +203,7 @@

      Hiding Imports -

      Qualified Module Imports

      +

      Qualified Module Imports

      Another way to avoid name collisions is by using a qualified import.

      @@ -253,7 +252,7 @@

      Qualified Module Imports -

      Private Blocks

      +

      Private Blocks

      In some cases, definitions in a module might use helper functions that are not intended to be used outside the module. It is good practice to place such declarations in private blocks:

      @@ -318,7 +317,7 @@

      Private Blocks -

      Nested Modules

      +

      Nested Modules

      Module may be declared withing other modules, using the submodule keword.

      Declaring a nested module called N
      @@ -355,7 +354,7 @@

      Nested Modulesy was to try to use z in its definition.

      -

      Implicit Imports

      +

      Implicit Imports

      For convenience, we add an implicit qualified submodule import for each locally defined submodules.

      @@ -375,7 +374,7 @@

      Implicit Importsimport submoulde N as N.

      -

      Managing Module Names

      +

      Managing Module Names

      The names of nested modules are managed by the module system just like the name of any other declaration in Cryptol. Thus, nested modules may declared in the public or private sections of their @@ -407,14 +406,14 @@

      Managing Module Names

      -

      Parameterized Modules

      +

      Parameterized Modules

      Warning

      The documentation in this section is for the upcoming variant of the feature, which is not yet part of main line Cryptol.

      -

      Interface Modules

      +

      Interface Modules

      An interface module describes the content of a module without providing a concrete implementation.

      @@ -449,7 +448,7 @@

      Interface Modules -

      Importing an Interface Module

      +

      Importing an Interface Module

      A module may be parameterized by importing an interface, instead of a concrete module

      @@ -498,7 +497,7 @@

      Importing an Interface Module -

      Interface Constraints

      +

      Interface Constraints

      When working with multiple interfaces, it is to useful to be able to impose additional constraints on the types imported from the interface.

      @@ -527,7 +526,7 @@

      Interface Constraintsx.

      -

      Instantiating a Parameterized Module

      +

      Instantiating a Parameterized Module

      To use a parameterized module we need to provide concrete implementations for the interfaces that it uses, and provide a name for the resulting module. This is done as follows:

      @@ -622,7 +621,7 @@

      Interface Constraints

      -

      Anonymous Interface Modules

      +

      Anonymous Interface Modules

      If we need to just parameterize a module by a couple of types/values, it is quite cumbersome to have to define a whole separate interface module. To make this more convenient we provide the following notation for defining @@ -646,7 +645,7 @@

      Anonymous Interface ModulesM.

      -

      Anonymous Instantiation Arguments

      +

      Anonymous Instantiation Arguments

      Sometimes it is also a bit cumbersome to have to define a whole separate module just to pass it as an argument to some parameterized module. To make this more convenient we support the following notion @@ -678,7 +677,7 @@

      Anonymous Instantiation ArgumentsM.

      -

      Anonymous Import Instantiations

      +

      Anonymous Import Instantiations

      We provide syntactic sugar for importing and instantiating a functor at the same time:

      submodule F where
      @@ -729,7 +728,7 @@ 

      Anonymous Import Instantiations -

      Passing Through Module Parameters

      +

      Passing Through Module Parameters

      Occasionally it is useful to define a functor that instantiates another functor using the same parameters as the functor being defined (i.e., a functor parameter is passed on to another functor). This can diff --git a/docs/RefMan/_build/html/OverloadedOperations.html b/docs/RefMan/_build/html/OverloadedOperations.html index f917ab032..ace85180c 100644 --- a/docs/RefMan/_build/html/OverloadedOperations.html +++ b/docs/RefMan/_build/html/OverloadedOperations.html @@ -14,7 +14,6 @@ - @@ -85,9 +84,9 @@

      -

      Overloaded Operations

      +

      Overloaded Operations

      -

      Equality

      +

      Equality

      Eq
         (==)        : {a}    (Eq a) => a -> a -> Bit
         (!=)        : {a}    (Eq a) => a -> a -> Bit
      @@ -97,7 +96,7 @@ 

      Equality -

      Comparisons

      +

      Comparisons

      Cmp
         (<)         : {a} (Cmp a) => a -> a -> Bit
         (>)         : {a} (Cmp a) => a -> a -> Bit
      @@ -110,7 +109,7 @@ 

      Comparisons -

      Signed Comparisons

      +

      Signed Comparisons

      SignedCmp
         (<$)        : {a} (SignedCmp a) => a -> a -> Bit
         (>$)        : {a} (SignedCmp a) => a -> a -> Bit
      @@ -120,14 +119,14 @@ 

      Signed Comparisons -

      Zero

      +

      Zero

      Zero
         zero        : {a} (Zero a) => a
       
      -

      Logical Operations

      +

      Logical Operations

      Logic
         (&&)        : {a} (Logic a) => a -> a -> a
         (||)        : {a} (Logic a) => a -> a -> a
      @@ -137,7 +136,7 @@ 

      Logical Operations -

      Basic Arithmetic

      +

      Basic Arithmetic

      Ring
         fromInteger : {a} (Ring a) => Integer -> a
         (+)         : {a} (Ring a) => a -> a -> a
      @@ -149,7 +148,7 @@ 

      Basic Arithmetic -

      Integral Operations

      +

      Integral Operations

      Integral
         (/)         : {a} (Integral a) => a -> a -> a
         (%)         : {a} (Integral a) => a -> a -> a
      @@ -161,7 +160,7 @@ 

      Integral Operations -

      Division

      +

      Division

      Field
         recip       : {a} (Field a) => a -> a
         (/.)        : {a} (Field a) => a -> a -> a
      @@ -169,7 +168,7 @@ 

      Division -

      Rounding

      +

      Rounding

      Round
         ceiling     : {a} (Round a) => a -> Integer
         floor       : {a} (Round a) => a -> Integer
      diff --git a/docs/RefMan/_build/html/RefMan.html b/docs/RefMan/_build/html/RefMan.html
      index 497f19098..7c342eef3 100644
      --- a/docs/RefMan/_build/html/RefMan.html
      +++ b/docs/RefMan/_build/html/RefMan.html
      @@ -14,7 +14,6 @@
               
               
               
      -        
               
           
           
      @@ -73,7 +72,7 @@
                  
      -

      Cryptol Reference Manual

      +

      Cryptol Reference Manual

      Cryptol Reference Manual

        diff --git a/docs/RefMan/_build/html/TypeDeclarations.html b/docs/RefMan/_build/html/TypeDeclarations.html index 1d11e58af..d198f9833 100644 --- a/docs/RefMan/_build/html/TypeDeclarations.html +++ b/docs/RefMan/_build/html/TypeDeclarations.html @@ -14,7 +14,6 @@ - @@ -78,9 +77,9 @@
        -

        Type Declarations

        +

        Type Declarations

        -

        Type Synonyms

        +

        Type Synonyms

        type T a b = [a] b
         
        @@ -93,7 +92,7 @@

        Type Synonyms -

        Newtypes

        +

        Newtypes

        newtype NewT a b = { seq : [a]b }
         
        diff --git a/docs/RefMan/_build/html/_sources/BasicSyntax.rst.txt b/docs/RefMan/_build/html/_sources/BasicSyntax.rst.txt index 992f9eb34..cab60dc5b 100644 --- a/docs/RefMan/_build/html/_sources/BasicSyntax.rst.txt +++ b/docs/RefMan/_build/html/_sources/BasicSyntax.rst.txt @@ -22,9 +22,9 @@ Type Signatures Numeric Constraint Guards ------------------------- -A declaration with a signature can use numeric constraint guards, which are like -normal guards (such as in a multi-branch `if`` expression) except that the -guarding conditions can be numeric constraints. For example: +A declaration with a signature can use *numeric constraint guards*, +which are used to change the behavior of a functoin depending on its +numeric type parameters. For example: .. code-block:: cryptol @@ -32,8 +32,14 @@ guarding conditions can be numeric constraints. For example: len xs | n == 0 => 0 | n > 0 => 1 + len (drop `{1} xs) +Each behavior starts with ``|`` and lists some constraints on the numeric +parameters to a declaration. When applied, the function will use the first +definition that satisfies the provided numeric parameters. -Note that this is importantly different from +Numeric constraint guards are quite similar to an ``if`` expression, +except that decisions are based on *types* rather than values. There +is also an important difference to simply using demotion and an +actual ``if`` statement: .. code-block:: cryptol @@ -41,28 +47,26 @@ Note that this is importantly different from len' xs = if `n == 0 => 0 | `n > 0 => 1 + len (drop `{1} xs) -In `len'`, the type-checker cannot determine that `n >= 1` which is -required to use the - -.. code-block:: cryptol - - drop `{1} xs - -since the `if`'s condition is only on values, not types. - -However, in `len`, the type-checker locally-assumes the constraint `n > 0` in -that constraint-guarded branch and so it can in fact determine that `n >= 1`. +The definition of ``len'`` is rejected, because the *value based* ``if`` +expression does provide the *type based* fact ``n >= 1`` which is +required by ``drop `{1} xs``, while in ``len``, the type-checker +locally-assumes the constraint ``n > 0`` in that constraint-guarded branch +and so it can in fact determine that ``n >= 1``. Requirements: - Numeric constraint guards only support constraints over numeric literals, - such as `fin`, `<=`, `==`, etc. Type constraint aliases can also be used as - long as they only constrain numeric literals. + such as ``fin``, ``<=``, ``==``, etc. + Type constraint aliases can also be used as long as they only constrain + numeric literals. - The numeric constraint guards of a declaration should be exhaustive. The type-checker will attempt to prove that the set of constraint guards is exhaustive, but if it can't then it will issue a non-exhaustive constraint guards warning. This warning is controlled by the environmental option - `warnNonExhaustiveConstraintGuards`. - + ``warnNonExhaustiveConstraintGuards``. + - Each constraint guard is checked *independently* of the others, and there + are no implict assumptions that the previous behaviors do not match--- + instead the programmer needs to specify all constraints explicitly + in the guard. Layout ------ diff --git a/docs/RefMan/_build/html/_static/basic.css b/docs/RefMan/_build/html/_static/basic.css index 9039e027c..603f6a879 100644 --- a/docs/RefMan/_build/html/_static/basic.css +++ b/docs/RefMan/_build/html/_static/basic.css @@ -4,7 +4,7 @@ * * Sphinx stylesheet -- basic theme. * - * :copyright: Copyright 2007-2022 by the Sphinx team, see AUTHORS. + * :copyright: Copyright 2007-2021 by the Sphinx team, see AUTHORS. * :license: BSD, see LICENSE for details. * */ @@ -222,7 +222,7 @@ table.modindextable td { /* -- general body styles --------------------------------------------------- */ div.body { - min-width: 360px; + min-width: 450px; max-width: 800px; } @@ -335,13 +335,13 @@ p.sidebar-title { font-weight: bold; } -div.admonition, div.topic, aside.topic, blockquote { +div.admonition, div.topic, blockquote { clear: left; } /* -- topics ---------------------------------------------------------------- */ -div.topic, aside.topic { +div.topic { border: 1px solid #ccc; padding: 7px; margin: 10px 0 10px 0; @@ -380,7 +380,6 @@ div.body p.centered { div.sidebar > :last-child, aside.sidebar > :last-child, div.topic > :last-child, -aside.topic > :last-child, div.admonition > :last-child { margin-bottom: 0; } @@ -388,7 +387,6 @@ div.admonition > :last-child { div.sidebar::after, aside.sidebar::after, div.topic::after, -aside.topic::after, div.admonition::after, blockquote::after { display: block; @@ -430,6 +428,10 @@ table.docutils td, table.docutils th { border-bottom: 1px solid #aaa; } +table.footnote td, table.footnote th { + border: 0 !important; +} + th { text-align: left; padding-right: 5px; @@ -613,7 +615,6 @@ ul.simple p { margin-bottom: 0; } -/* Docutils 0.17 and older (footnotes & citations) */ dl.footnote > dt, dl.citation > dt { float: left; @@ -631,33 +632,6 @@ dl.citation > dd:after { clear: both; } -/* Docutils 0.18+ (footnotes & citations) */ -aside.footnote > span, -div.citation > span { - float: left; -} -aside.footnote > span:last-of-type, -div.citation > span:last-of-type { - padding-right: 0.5em; -} -aside.footnote > p { - margin-left: 2em; -} -div.citation > p { - margin-left: 4em; -} -aside.footnote > p:last-of-type, -div.citation > p:last-of-type { - margin-bottom: 0em; -} -aside.footnote > p:last-of-type:after, -div.citation > p:last-of-type:after { - content: ""; - clear: both; -} - -/* Footnotes & citations ends */ - dl.field-list { display: grid; grid-template-columns: fit-content(30%) auto; @@ -783,7 +757,6 @@ span.pre { -ms-hyphens: none; -webkit-hyphens: none; hyphens: none; - white-space: nowrap; } div[class*="highlight-"] { diff --git a/docs/RefMan/_build/html/_static/doctools.js b/docs/RefMan/_build/html/_static/doctools.js index c3db08d1c..8cbf1b161 100644 --- a/docs/RefMan/_build/html/_static/doctools.js +++ b/docs/RefMan/_build/html/_static/doctools.js @@ -2,263 +2,322 @@ * doctools.js * ~~~~~~~~~~~ * - * Base JavaScript utilities for all Sphinx HTML documentation. + * Sphinx JavaScript utilities for all documentation. * - * :copyright: Copyright 2007-2022 by the Sphinx team, see AUTHORS. + * :copyright: Copyright 2007-2021 by the Sphinx team, see AUTHORS. * :license: BSD, see LICENSE for details. * */ -"use strict"; -const _ready = (callback) => { - if (document.readyState !== "loading") { - callback(); - } else { - document.addEventListener("DOMContentLoaded", callback); +/** + * select a different prefix for underscore + */ +$u = _.noConflict(); + +/** + * make the code below compatible with browsers without + * an installed firebug like debugger +if (!window.console || !console.firebug) { + var names = ["log", "debug", "info", "warn", "error", "assert", "dir", + "dirxml", "group", "groupEnd", "time", "timeEnd", "count", "trace", + "profile", "profileEnd"]; + window.console = {}; + for (var i = 0; i < names.length; ++i) + window.console[names[i]] = function() {}; +} + */ + +/** + * small helper function to urldecode strings + * + * See https://developer.mozilla.org/en-US/docs/Web/JavaScript/Reference/Global_Objects/decodeURIComponent#Decoding_query_parameters_from_a_URL + */ +jQuery.urldecode = function(x) { + if (!x) { + return x } + return decodeURIComponent(x.replace(/\+/g, ' ')); }; /** - * highlight a given string on a node by wrapping it in - * span elements with the given class name. + * small helper function to urlencode strings */ -const _highlight = (node, addItems, text, className) => { - if (node.nodeType === Node.TEXT_NODE) { - const val = node.nodeValue; - const parent = node.parentNode; - const pos = val.toLowerCase().indexOf(text); - if ( - pos >= 0 && - !parent.classList.contains(className) && - !parent.classList.contains("nohighlight") - ) { - let span; +jQuery.urlencode = encodeURIComponent; - const closestNode = parent.closest("body, svg, foreignObject"); - const isInSVG = closestNode && closestNode.matches("svg"); - if (isInSVG) { - span = document.createElementNS("http://www.w3.org/2000/svg", "tspan"); - } else { - span = document.createElement("span"); - span.classList.add(className); - } +/** + * This function returns the parsed url parameters of the + * current request. Multiple values per key are supported, + * it will always return arrays of strings for the value parts. + */ +jQuery.getQueryParameters = function(s) { + if (typeof s === 'undefined') + s = document.location.search; + var parts = s.substr(s.indexOf('?') + 1).split('&'); + var result = {}; + for (var i = 0; i < parts.length; i++) { + var tmp = parts[i].split('=', 2); + var key = jQuery.urldecode(tmp[0]); + var value = jQuery.urldecode(tmp[1]); + if (key in result) + result[key].push(value); + else + result[key] = [value]; + } + return result; +}; - span.appendChild(document.createTextNode(val.substr(pos, text.length))); - parent.insertBefore( - span, - parent.insertBefore( +/** + * highlight a given string on a jquery object by wrapping it in + * span elements with the given class name. + */ +jQuery.fn.highlightText = function(text, className) { + function highlight(node, addItems) { + if (node.nodeType === 3) { + var val = node.nodeValue; + var pos = val.toLowerCase().indexOf(text); + if (pos >= 0 && + !jQuery(node.parentNode).hasClass(className) && + !jQuery(node.parentNode).hasClass("nohighlight")) { + var span; + var isInSVG = jQuery(node).closest("body, svg, foreignObject").is("svg"); + if (isInSVG) { + span = document.createElementNS("http://www.w3.org/2000/svg", "tspan"); + } else { + span = document.createElement("span"); + span.className = className; + } + span.appendChild(document.createTextNode(val.substr(pos, text.length))); + node.parentNode.insertBefore(span, node.parentNode.insertBefore( document.createTextNode(val.substr(pos + text.length)), - node.nextSibling - ) - ); - node.nodeValue = val.substr(0, pos); - - if (isInSVG) { - const rect = document.createElementNS( - "http://www.w3.org/2000/svg", - "rect" - ); - const bbox = parent.getBBox(); - rect.x.baseVal.value = bbox.x; - rect.y.baseVal.value = bbox.y; - rect.width.baseVal.value = bbox.width; - rect.height.baseVal.value = bbox.height; - rect.setAttribute("class", className); - addItems.push({ parent: parent, target: rect }); + node.nextSibling)); + node.nodeValue = val.substr(0, pos); + if (isInSVG) { + var rect = document.createElementNS("http://www.w3.org/2000/svg", "rect"); + var bbox = node.parentElement.getBBox(); + rect.x.baseVal.value = bbox.x; + rect.y.baseVal.value = bbox.y; + rect.width.baseVal.value = bbox.width; + rect.height.baseVal.value = bbox.height; + rect.setAttribute('class', className); + addItems.push({ + "parent": node.parentNode, + "target": rect}); + } } } - } else if (node.matches && !node.matches("button, select, textarea")) { - node.childNodes.forEach((el) => _highlight(el, addItems, text, className)); + else if (!jQuery(node).is("button, select, textarea")) { + jQuery.each(node.childNodes, function() { + highlight(this, addItems); + }); + } } -}; -const _highlightText = (thisNode, text, className) => { - let addItems = []; - _highlight(thisNode, addItems, text, className); - addItems.forEach((obj) => - obj.parent.insertAdjacentElement("beforebegin", obj.target) - ); + var addItems = []; + var result = this.each(function() { + highlight(this, addItems); + }); + for (var i = 0; i < addItems.length; ++i) { + jQuery(addItems[i].parent).before(addItems[i].target); + } + return result; }; +/* + * backward compatibility for jQuery.browser + * This will be supported until firefox bug is fixed. + */ +if (!jQuery.browser) { + jQuery.uaMatch = function(ua) { + ua = ua.toLowerCase(); + + var match = /(chrome)[ \/]([\w.]+)/.exec(ua) || + /(webkit)[ \/]([\w.]+)/.exec(ua) || + /(opera)(?:.*version|)[ \/]([\w.]+)/.exec(ua) || + /(msie) ([\w.]+)/.exec(ua) || + ua.indexOf("compatible") < 0 && /(mozilla)(?:.*? rv:([\w.]+)|)/.exec(ua) || + []; + + return { + browser: match[ 1 ] || "", + version: match[ 2 ] || "0" + }; + }; + jQuery.browser = {}; + jQuery.browser[jQuery.uaMatch(navigator.userAgent).browser] = true; +} + /** * Small JavaScript module for the documentation. */ -const Documentation = { - init: () => { - Documentation.highlightSearchWords(); - Documentation.initDomainIndexTable(); - Documentation.initOnKeyListeners(); +var Documentation = { + + init : function() { + this.fixFirefoxAnchorBug(); + this.highlightSearchWords(); + this.initIndexTable(); + if (DOCUMENTATION_OPTIONS.NAVIGATION_WITH_KEYS) { + this.initOnKeyListeners(); + } }, /** * i18n support */ - TRANSLATIONS: {}, - PLURAL_EXPR: (n) => (n === 1 ? 0 : 1), - LOCALE: "unknown", + TRANSLATIONS : {}, + PLURAL_EXPR : function(n) { return n === 1 ? 0 : 1; }, + LOCALE : 'unknown', // gettext and ngettext don't access this so that the functions // can safely bound to a different name (_ = Documentation.gettext) - gettext: (string) => { - const translated = Documentation.TRANSLATIONS[string]; - switch (typeof translated) { - case "undefined": - return string; // no translation - case "string": - return translated; // translation exists - default: - return translated[0]; // (singular, plural) translation tuple exists - } + gettext : function(string) { + var translated = Documentation.TRANSLATIONS[string]; + if (typeof translated === 'undefined') + return string; + return (typeof translated === 'string') ? translated : translated[0]; }, - ngettext: (singular, plural, n) => { - const translated = Documentation.TRANSLATIONS[singular]; - if (typeof translated !== "undefined") - return translated[Documentation.PLURAL_EXPR(n)]; - return n === 1 ? singular : plural; + ngettext : function(singular, plural, n) { + var translated = Documentation.TRANSLATIONS[singular]; + if (typeof translated === 'undefined') + return (n == 1) ? singular : plural; + return translated[Documentation.PLURALEXPR(n)]; }, - addTranslations: (catalog) => { - Object.assign(Documentation.TRANSLATIONS, catalog.messages); - Documentation.PLURAL_EXPR = new Function( - "n", - `return (${catalog.plural_expr})` - ); - Documentation.LOCALE = catalog.locale; + addTranslations : function(catalog) { + for (var key in catalog.messages) + this.TRANSLATIONS[key] = catalog.messages[key]; + this.PLURAL_EXPR = new Function('n', 'return +(' + catalog.plural_expr + ')'); + this.LOCALE = catalog.locale; }, /** - * highlight the search words provided in the url in the text + * add context elements like header anchor links */ - highlightSearchWords: () => { - const highlight = - new URLSearchParams(window.location.search).get("highlight") || ""; - const terms = highlight.toLowerCase().split(/\s+/).filter(x => x); - if (terms.length === 0) return; // nothing to do - - // There should never be more than one element matching "div.body" - const divBody = document.querySelectorAll("div.body"); - const body = divBody.length ? divBody[0] : document.querySelector("body"); - window.setTimeout(() => { - terms.forEach((term) => _highlightText(body, term, "highlighted")); - }, 10); - - const searchBox = document.getElementById("searchbox"); - if (searchBox === null) return; - searchBox.appendChild( - document - .createRange() - .createContextualFragment( - '" - ) - ); + addContextElements : function() { + $('div[id] > :header:first').each(function() { + $('\u00B6'). + attr('href', '#' + this.id). + attr('title', _('Permalink to this headline')). + appendTo(this); + }); + $('dt[id]').each(function() { + $('\u00B6'). + attr('href', '#' + this.id). + attr('title', _('Permalink to this definition')). + appendTo(this); + }); }, /** - * helper function to hide the search marks again + * workaround a firefox stupidity + * see: https://bugzilla.mozilla.org/show_bug.cgi?id=645075 */ - hideSearchWords: () => { - document - .querySelectorAll("#searchbox .highlight-link") - .forEach((el) => el.remove()); - document - .querySelectorAll("span.highlighted") - .forEach((el) => el.classList.remove("highlighted")); - const url = new URL(window.location); - url.searchParams.delete("highlight"); - window.history.replaceState({}, "", url); + fixFirefoxAnchorBug : function() { + if (document.location.hash && $.browser.mozilla) + window.setTimeout(function() { + document.location.href += ''; + }, 10); }, /** - * helper function to focus on search bar + * highlight the search words provided in the url in the text */ - focusSearchBar: () => { - document.querySelectorAll("input[name=q]")[0]?.focus(); + highlightSearchWords : function() { + var params = $.getQueryParameters(); + var terms = (params.highlight) ? params.highlight[0].split(/\s+/) : []; + if (terms.length) { + var body = $('div.body'); + if (!body.length) { + body = $('body'); + } + window.setTimeout(function() { + $.each(terms, function() { + body.highlightText(this.toLowerCase(), 'highlighted'); + }); + }, 10); + $('') + .appendTo($('#searchbox')); + } }, /** - * Initialise the domain index toggle buttons + * init the domain index toggle buttons */ - initDomainIndexTable: () => { - const toggler = (el) => { - const idNumber = el.id.substr(7); - const toggledRows = document.querySelectorAll(`tr.cg-${idNumber}`); - if (el.src.substr(-9) === "minus.png") { - el.src = `${el.src.substr(0, el.src.length - 9)}plus.png`; - toggledRows.forEach((el) => (el.style.display = "none")); - } else { - el.src = `${el.src.substr(0, el.src.length - 8)}minus.png`; - toggledRows.forEach((el) => (el.style.display = "")); - } - }; - - const togglerElements = document.querySelectorAll("img.toggler"); - togglerElements.forEach((el) => - el.addEventListener("click", (event) => toggler(event.currentTarget)) - ); - togglerElements.forEach((el) => (el.style.display = "")); - if (DOCUMENTATION_OPTIONS.COLLAPSE_INDEX) togglerElements.forEach(toggler); + initIndexTable : function() { + var togglers = $('img.toggler').click(function() { + var src = $(this).attr('src'); + var idnum = $(this).attr('id').substr(7); + $('tr.cg-' + idnum).toggle(); + if (src.substr(-9) === 'minus.png') + $(this).attr('src', src.substr(0, src.length-9) + 'plus.png'); + else + $(this).attr('src', src.substr(0, src.length-8) + 'minus.png'); + }).css('display', ''); + if (DOCUMENTATION_OPTIONS.COLLAPSE_INDEX) { + togglers.click(); + } }, - initOnKeyListeners: () => { - // only install a listener if it is really needed - if ( - !DOCUMENTATION_OPTIONS.NAVIGATION_WITH_KEYS && - !DOCUMENTATION_OPTIONS.ENABLE_SEARCH_SHORTCUTS - ) - return; + /** + * helper function to hide the search marks again + */ + hideSearchWords : function() { + $('#searchbox .highlight-link').fadeOut(300); + $('span.highlighted').removeClass('highlighted'); + }, - const blacklistedElements = new Set([ - "TEXTAREA", - "INPUT", - "SELECT", - "BUTTON", - ]); - document.addEventListener("keydown", (event) => { - if (blacklistedElements.has(document.activeElement.tagName)) return; // bail for input elements - if (event.altKey || event.ctrlKey || event.metaKey) return; // bail with special keys + /** + * make the url absolute + */ + makeURL : function(relativeURL) { + return DOCUMENTATION_OPTIONS.URL_ROOT + '/' + relativeURL; + }, - if (!event.shiftKey) { - switch (event.key) { - case "ArrowLeft": - if (!DOCUMENTATION_OPTIONS.NAVIGATION_WITH_KEYS) break; + /** + * get the current relative url + */ + getCurrentURL : function() { + var path = document.location.pathname; + var parts = path.split(/\//); + $.each(DOCUMENTATION_OPTIONS.URL_ROOT.split(/\//), function() { + if (this === '..') + parts.pop(); + }); + var url = parts.join('/'); + return path.substring(url.lastIndexOf('/') + 1, path.length - 1); + }, - const prevLink = document.querySelector('link[rel="prev"]'); - if (prevLink && prevLink.href) { - window.location.href = prevLink.href; - event.preventDefault(); + initOnKeyListeners: function() { + $(document).keydown(function(event) { + var activeElementType = document.activeElement.tagName; + // don't navigate when in search box, textarea, dropdown or button + if (activeElementType !== 'TEXTAREA' && activeElementType !== 'INPUT' && activeElementType !== 'SELECT' + && activeElementType !== 'BUTTON' && !event.altKey && !event.ctrlKey && !event.metaKey + && !event.shiftKey) { + switch (event.keyCode) { + case 37: // left + var prevHref = $('link[rel="prev"]').prop('href'); + if (prevHref) { + window.location.href = prevHref; + return false; } break; - case "ArrowRight": - if (!DOCUMENTATION_OPTIONS.NAVIGATION_WITH_KEYS) break; - - const nextLink = document.querySelector('link[rel="next"]'); - if (nextLink && nextLink.href) { - window.location.href = nextLink.href; - event.preventDefault(); + case 39: // right + var nextHref = $('link[rel="next"]').prop('href'); + if (nextHref) { + window.location.href = nextHref; + return false; } break; - case "Escape": - if (!DOCUMENTATION_OPTIONS.ENABLE_SEARCH_SHORTCUTS) break; - Documentation.hideSearchWords(); - event.preventDefault(); } } - - // some keyboard layouts may need Shift to get / - switch (event.key) { - case "/": - if (!DOCUMENTATION_OPTIONS.ENABLE_SEARCH_SHORTCUTS) break; - Documentation.focusSearchBar(); - event.preventDefault(); - } }); - }, + } }; // quick alias for translations -const _ = Documentation.gettext; +_ = Documentation.gettext; -_ready(Documentation.init); +$(document).ready(function() { + Documentation.init(); +}); diff --git a/docs/RefMan/_build/html/_static/documentation_options.js b/docs/RefMan/_build/html/_static/documentation_options.js index 1d9c2211c..b6ad65f53 100644 --- a/docs/RefMan/_build/html/_static/documentation_options.js +++ b/docs/RefMan/_build/html/_static/documentation_options.js @@ -1,14 +1,12 @@ var DOCUMENTATION_OPTIONS = { URL_ROOT: document.getElementById("documentation_options").getAttribute('data-url_root'), VERSION: '2.11.0', - LANGUAGE: 'en', + LANGUAGE: 'None', COLLAPSE_INDEX: false, BUILDER: 'html', FILE_SUFFIX: '.html', LINK_SUFFIX: '.html', HAS_SOURCE: true, SOURCELINK_SUFFIX: '.txt', - NAVIGATION_WITH_KEYS: false, - SHOW_SEARCH_SUMMARY: true, - ENABLE_SEARCH_SHORTCUTS: false, + NAVIGATION_WITH_KEYS: false }; \ No newline at end of file diff --git a/docs/RefMan/_build/html/_static/jquery.js b/docs/RefMan/_build/html/_static/jquery.js index c4c6022f2..624bca829 100644 --- a/docs/RefMan/_build/html/_static/jquery.js +++ b/docs/RefMan/_build/html/_static/jquery.js @@ -1,2 +1,10879 @@ -/*! jQuery v3.6.0 | (c) OpenJS Foundation and other contributors | jquery.org/license */ -!function(e,t){"use strict";"object"==typeof module&&"object"==typeof module.exports?module.exports=e.document?t(e,!0):function(e){if(!e.document)throw new Error("jQuery requires a window with a document");return t(e)}:t(e)}("undefined"!=typeof window?window:this,function(C,e){"use strict";var t=[],r=Object.getPrototypeOf,s=t.slice,g=t.flat?function(e){return t.flat.call(e)}:function(e){return t.concat.apply([],e)},u=t.push,i=t.indexOf,n={},o=n.toString,v=n.hasOwnProperty,a=v.toString,l=a.call(Object),y={},m=function(e){return"function"==typeof e&&"number"!=typeof e.nodeType&&"function"!=typeof e.item},x=function(e){return null!=e&&e===e.window},E=C.document,c={type:!0,src:!0,nonce:!0,noModule:!0};function b(e,t,n){var r,i,o=(n=n||E).createElement("script");if(o.text=e,t)for(r in c)(i=t[r]||t.getAttribute&&t.getAttribute(r))&&o.setAttribute(r,i);n.head.appendChild(o).parentNode.removeChild(o)}function w(e){return null==e?e+"":"object"==typeof e||"function"==typeof e?n[o.call(e)]||"object":typeof e}var f="3.6.0",S=function(e,t){return new S.fn.init(e,t)};function p(e){var t=!!e&&"length"in e&&e.length,n=w(e);return!m(e)&&!x(e)&&("array"===n||0===t||"number"==typeof t&&0+~]|"+M+")"+M+"*"),U=new RegExp(M+"|>"),X=new RegExp(F),V=new RegExp("^"+I+"$"),G={ID:new RegExp("^#("+I+")"),CLASS:new RegExp("^\\.("+I+")"),TAG:new RegExp("^("+I+"|[*])"),ATTR:new RegExp("^"+W),PSEUDO:new RegExp("^"+F),CHILD:new RegExp("^:(only|first|last|nth|nth-last)-(child|of-type)(?:\\("+M+"*(even|odd|(([+-]|)(\\d*)n|)"+M+"*(?:([+-]|)"+M+"*(\\d+)|))"+M+"*\\)|)","i"),bool:new RegExp("^(?:"+R+")$","i"),needsContext:new RegExp("^"+M+"*[>+~]|:(even|odd|eq|gt|lt|nth|first|last)(?:\\("+M+"*((?:-\\d)?\\d*)"+M+"*\\)|)(?=[^-]|$)","i")},Y=/HTML$/i,Q=/^(?:input|select|textarea|button)$/i,J=/^h\d$/i,K=/^[^{]+\{\s*\[native \w/,Z=/^(?:#([\w-]+)|(\w+)|\.([\w-]+))$/,ee=/[+~]/,te=new RegExp("\\\\[\\da-fA-F]{1,6}"+M+"?|\\\\([^\\r\\n\\f])","g"),ne=function(e,t){var n="0x"+e.slice(1)-65536;return t||(n<0?String.fromCharCode(n+65536):String.fromCharCode(n>>10|55296,1023&n|56320))},re=/([\0-\x1f\x7f]|^-?\d)|^-$|[^\0-\x1f\x7f-\uFFFF\w-]/g,ie=function(e,t){return t?"\0"===e?"\ufffd":e.slice(0,-1)+"\\"+e.charCodeAt(e.length-1).toString(16)+" ":"\\"+e},oe=function(){T()},ae=be(function(e){return!0===e.disabled&&"fieldset"===e.nodeName.toLowerCase()},{dir:"parentNode",next:"legend"});try{H.apply(t=O.call(p.childNodes),p.childNodes),t[p.childNodes.length].nodeType}catch(e){H={apply:t.length?function(e,t){L.apply(e,O.call(t))}:function(e,t){var n=e.length,r=0;while(e[n++]=t[r++]);e.length=n-1}}}function se(t,e,n,r){var i,o,a,s,u,l,c,f=e&&e.ownerDocument,p=e?e.nodeType:9;if(n=n||[],"string"!=typeof t||!t||1!==p&&9!==p&&11!==p)return n;if(!r&&(T(e),e=e||C,E)){if(11!==p&&(u=Z.exec(t)))if(i=u[1]){if(9===p){if(!(a=e.getElementById(i)))return n;if(a.id===i)return n.push(a),n}else if(f&&(a=f.getElementById(i))&&y(e,a)&&a.id===i)return n.push(a),n}else{if(u[2])return H.apply(n,e.getElementsByTagName(t)),n;if((i=u[3])&&d.getElementsByClassName&&e.getElementsByClassName)return H.apply(n,e.getElementsByClassName(i)),n}if(d.qsa&&!N[t+" "]&&(!v||!v.test(t))&&(1!==p||"object"!==e.nodeName.toLowerCase())){if(c=t,f=e,1===p&&(U.test(t)||z.test(t))){(f=ee.test(t)&&ye(e.parentNode)||e)===e&&d.scope||((s=e.getAttribute("id"))?s=s.replace(re,ie):e.setAttribute("id",s=S)),o=(l=h(t)).length;while(o--)l[o]=(s?"#"+s:":scope")+" "+xe(l[o]);c=l.join(",")}try{return H.apply(n,f.querySelectorAll(c)),n}catch(e){N(t,!0)}finally{s===S&&e.removeAttribute("id")}}}return g(t.replace($,"$1"),e,n,r)}function ue(){var r=[];return function e(t,n){return r.push(t+" ")>b.cacheLength&&delete e[r.shift()],e[t+" "]=n}}function le(e){return e[S]=!0,e}function ce(e){var t=C.createElement("fieldset");try{return!!e(t)}catch(e){return!1}finally{t.parentNode&&t.parentNode.removeChild(t),t=null}}function fe(e,t){var n=e.split("|"),r=n.length;while(r--)b.attrHandle[n[r]]=t}function pe(e,t){var n=t&&e,r=n&&1===e.nodeType&&1===t.nodeType&&e.sourceIndex-t.sourceIndex;if(r)return r;if(n)while(n=n.nextSibling)if(n===t)return-1;return e?1:-1}function de(t){return function(e){return"input"===e.nodeName.toLowerCase()&&e.type===t}}function he(n){return function(e){var t=e.nodeName.toLowerCase();return("input"===t||"button"===t)&&e.type===n}}function ge(t){return function(e){return"form"in e?e.parentNode&&!1===e.disabled?"label"in e?"label"in e.parentNode?e.parentNode.disabled===t:e.disabled===t:e.isDisabled===t||e.isDisabled!==!t&&ae(e)===t:e.disabled===t:"label"in e&&e.disabled===t}}function ve(a){return le(function(o){return o=+o,le(function(e,t){var n,r=a([],e.length,o),i=r.length;while(i--)e[n=r[i]]&&(e[n]=!(t[n]=e[n]))})})}function ye(e){return e&&"undefined"!=typeof e.getElementsByTagName&&e}for(e in d=se.support={},i=se.isXML=function(e){var t=e&&e.namespaceURI,n=e&&(e.ownerDocument||e).documentElement;return!Y.test(t||n&&n.nodeName||"HTML")},T=se.setDocument=function(e){var t,n,r=e?e.ownerDocument||e:p;return r!=C&&9===r.nodeType&&r.documentElement&&(a=(C=r).documentElement,E=!i(C),p!=C&&(n=C.defaultView)&&n.top!==n&&(n.addEventListener?n.addEventListener("unload",oe,!1):n.attachEvent&&n.attachEvent("onunload",oe)),d.scope=ce(function(e){return a.appendChild(e).appendChild(C.createElement("div")),"undefined"!=typeof e.querySelectorAll&&!e.querySelectorAll(":scope fieldset div").length}),d.attributes=ce(function(e){return e.className="i",!e.getAttribute("className")}),d.getElementsByTagName=ce(function(e){return e.appendChild(C.createComment("")),!e.getElementsByTagName("*").length}),d.getElementsByClassName=K.test(C.getElementsByClassName),d.getById=ce(function(e){return a.appendChild(e).id=S,!C.getElementsByName||!C.getElementsByName(S).length}),d.getById?(b.filter.ID=function(e){var t=e.replace(te,ne);return function(e){return e.getAttribute("id")===t}},b.find.ID=function(e,t){if("undefined"!=typeof t.getElementById&&E){var n=t.getElementById(e);return n?[n]:[]}}):(b.filter.ID=function(e){var n=e.replace(te,ne);return function(e){var t="undefined"!=typeof e.getAttributeNode&&e.getAttributeNode("id");return t&&t.value===n}},b.find.ID=function(e,t){if("undefined"!=typeof t.getElementById&&E){var n,r,i,o=t.getElementById(e);if(o){if((n=o.getAttributeNode("id"))&&n.value===e)return[o];i=t.getElementsByName(e),r=0;while(o=i[r++])if((n=o.getAttributeNode("id"))&&n.value===e)return[o]}return[]}}),b.find.TAG=d.getElementsByTagName?function(e,t){return"undefined"!=typeof t.getElementsByTagName?t.getElementsByTagName(e):d.qsa?t.querySelectorAll(e):void 0}:function(e,t){var n,r=[],i=0,o=t.getElementsByTagName(e);if("*"===e){while(n=o[i++])1===n.nodeType&&r.push(n);return r}return o},b.find.CLASS=d.getElementsByClassName&&function(e,t){if("undefined"!=typeof t.getElementsByClassName&&E)return t.getElementsByClassName(e)},s=[],v=[],(d.qsa=K.test(C.querySelectorAll))&&(ce(function(e){var t;a.appendChild(e).innerHTML="",e.querySelectorAll("[msallowcapture^='']").length&&v.push("[*^$]="+M+"*(?:''|\"\")"),e.querySelectorAll("[selected]").length||v.push("\\["+M+"*(?:value|"+R+")"),e.querySelectorAll("[id~="+S+"-]").length||v.push("~="),(t=C.createElement("input")).setAttribute("name",""),e.appendChild(t),e.querySelectorAll("[name='']").length||v.push("\\["+M+"*name"+M+"*="+M+"*(?:''|\"\")"),e.querySelectorAll(":checked").length||v.push(":checked"),e.querySelectorAll("a#"+S+"+*").length||v.push(".#.+[+~]"),e.querySelectorAll("\\\f"),v.push("[\\r\\n\\f]")}),ce(function(e){e.innerHTML="";var t=C.createElement("input");t.setAttribute("type","hidden"),e.appendChild(t).setAttribute("name","D"),e.querySelectorAll("[name=d]").length&&v.push("name"+M+"*[*^$|!~]?="),2!==e.querySelectorAll(":enabled").length&&v.push(":enabled",":disabled"),a.appendChild(e).disabled=!0,2!==e.querySelectorAll(":disabled").length&&v.push(":enabled",":disabled"),e.querySelectorAll("*,:x"),v.push(",.*:")})),(d.matchesSelector=K.test(c=a.matches||a.webkitMatchesSelector||a.mozMatchesSelector||a.oMatchesSelector||a.msMatchesSelector))&&ce(function(e){d.disconnectedMatch=c.call(e,"*"),c.call(e,"[s!='']:x"),s.push("!=",F)}),v=v.length&&new RegExp(v.join("|")),s=s.length&&new RegExp(s.join("|")),t=K.test(a.compareDocumentPosition),y=t||K.test(a.contains)?function(e,t){var n=9===e.nodeType?e.documentElement:e,r=t&&t.parentNode;return e===r||!(!r||1!==r.nodeType||!(n.contains?n.contains(r):e.compareDocumentPosition&&16&e.compareDocumentPosition(r)))}:function(e,t){if(t)while(t=t.parentNode)if(t===e)return!0;return!1},j=t?function(e,t){if(e===t)return l=!0,0;var n=!e.compareDocumentPosition-!t.compareDocumentPosition;return n||(1&(n=(e.ownerDocument||e)==(t.ownerDocument||t)?e.compareDocumentPosition(t):1)||!d.sortDetached&&t.compareDocumentPosition(e)===n?e==C||e.ownerDocument==p&&y(p,e)?-1:t==C||t.ownerDocument==p&&y(p,t)?1:u?P(u,e)-P(u,t):0:4&n?-1:1)}:function(e,t){if(e===t)return l=!0,0;var n,r=0,i=e.parentNode,o=t.parentNode,a=[e],s=[t];if(!i||!o)return e==C?-1:t==C?1:i?-1:o?1:u?P(u,e)-P(u,t):0;if(i===o)return pe(e,t);n=e;while(n=n.parentNode)a.unshift(n);n=t;while(n=n.parentNode)s.unshift(n);while(a[r]===s[r])r++;return r?pe(a[r],s[r]):a[r]==p?-1:s[r]==p?1:0}),C},se.matches=function(e,t){return se(e,null,null,t)},se.matchesSelector=function(e,t){if(T(e),d.matchesSelector&&E&&!N[t+" "]&&(!s||!s.test(t))&&(!v||!v.test(t)))try{var n=c.call(e,t);if(n||d.disconnectedMatch||e.document&&11!==e.document.nodeType)return n}catch(e){N(t,!0)}return 0":{dir:"parentNode",first:!0}," ":{dir:"parentNode"},"+":{dir:"previousSibling",first:!0},"~":{dir:"previousSibling"}},preFilter:{ATTR:function(e){return e[1]=e[1].replace(te,ne),e[3]=(e[3]||e[4]||e[5]||"").replace(te,ne),"~="===e[2]&&(e[3]=" "+e[3]+" "),e.slice(0,4)},CHILD:function(e){return e[1]=e[1].toLowerCase(),"nth"===e[1].slice(0,3)?(e[3]||se.error(e[0]),e[4]=+(e[4]?e[5]+(e[6]||1):2*("even"===e[3]||"odd"===e[3])),e[5]=+(e[7]+e[8]||"odd"===e[3])):e[3]&&se.error(e[0]),e},PSEUDO:function(e){var t,n=!e[6]&&e[2];return G.CHILD.test(e[0])?null:(e[3]?e[2]=e[4]||e[5]||"":n&&X.test(n)&&(t=h(n,!0))&&(t=n.indexOf(")",n.length-t)-n.length)&&(e[0]=e[0].slice(0,t),e[2]=n.slice(0,t)),e.slice(0,3))}},filter:{TAG:function(e){var t=e.replace(te,ne).toLowerCase();return"*"===e?function(){return!0}:function(e){return e.nodeName&&e.nodeName.toLowerCase()===t}},CLASS:function(e){var t=m[e+" "];return t||(t=new RegExp("(^|"+M+")"+e+"("+M+"|$)"))&&m(e,function(e){return t.test("string"==typeof e.className&&e.className||"undefined"!=typeof e.getAttribute&&e.getAttribute("class")||"")})},ATTR:function(n,r,i){return function(e){var t=se.attr(e,n);return null==t?"!="===r:!r||(t+="","="===r?t===i:"!="===r?t!==i:"^="===r?i&&0===t.indexOf(i):"*="===r?i&&-1:\x20\t\r\n\f]*)[\x20\t\r\n\f]*\/?>(?:<\/\1>|)$/i;function j(e,n,r){return m(n)?S.grep(e,function(e,t){return!!n.call(e,t,e)!==r}):n.nodeType?S.grep(e,function(e){return e===n!==r}):"string"!=typeof n?S.grep(e,function(e){return-1)[^>]*|#([\w-]+))$/;(S.fn.init=function(e,t,n){var r,i;if(!e)return this;if(n=n||D,"string"==typeof e){if(!(r="<"===e[0]&&">"===e[e.length-1]&&3<=e.length?[null,e,null]:q.exec(e))||!r[1]&&t)return!t||t.jquery?(t||n).find(e):this.constructor(t).find(e);if(r[1]){if(t=t instanceof S?t[0]:t,S.merge(this,S.parseHTML(r[1],t&&t.nodeType?t.ownerDocument||t:E,!0)),N.test(r[1])&&S.isPlainObject(t))for(r in t)m(this[r])?this[r](t[r]):this.attr(r,t[r]);return this}return(i=E.getElementById(r[2]))&&(this[0]=i,this.length=1),this}return e.nodeType?(this[0]=e,this.length=1,this):m(e)?void 0!==n.ready?n.ready(e):e(S):S.makeArray(e,this)}).prototype=S.fn,D=S(E);var L=/^(?:parents|prev(?:Until|All))/,H={children:!0,contents:!0,next:!0,prev:!0};function O(e,t){while((e=e[t])&&1!==e.nodeType);return e}S.fn.extend({has:function(e){var t=S(e,this),n=t.length;return this.filter(function(){for(var e=0;e\x20\t\r\n\f]*)/i,he=/^$|^module$|\/(?:java|ecma)script/i;ce=E.createDocumentFragment().appendChild(E.createElement("div")),(fe=E.createElement("input")).setAttribute("type","radio"),fe.setAttribute("checked","checked"),fe.setAttribute("name","t"),ce.appendChild(fe),y.checkClone=ce.cloneNode(!0).cloneNode(!0).lastChild.checked,ce.innerHTML="",y.noCloneChecked=!!ce.cloneNode(!0).lastChild.defaultValue,ce.innerHTML="",y.option=!!ce.lastChild;var ge={thead:[1,"

      ","
      "],col:[2,"","
      "],tr:[2,"","
      "],td:[3,"","
      "],_default:[0,"",""]};function ve(e,t){var n;return n="undefined"!=typeof e.getElementsByTagName?e.getElementsByTagName(t||"*"):"undefined"!=typeof e.querySelectorAll?e.querySelectorAll(t||"*"):[],void 0===t||t&&A(e,t)?S.merge([e],n):n}function ye(e,t){for(var n=0,r=e.length;n",""]);var me=/<|&#?\w+;/;function xe(e,t,n,r,i){for(var o,a,s,u,l,c,f=t.createDocumentFragment(),p=[],d=0,h=e.length;d\s*$/g;function je(e,t){return A(e,"table")&&A(11!==t.nodeType?t:t.firstChild,"tr")&&S(e).children("tbody")[0]||e}function De(e){return e.type=(null!==e.getAttribute("type"))+"/"+e.type,e}function qe(e){return"true/"===(e.type||"").slice(0,5)?e.type=e.type.slice(5):e.removeAttribute("type"),e}function Le(e,t){var n,r,i,o,a,s;if(1===t.nodeType){if(Y.hasData(e)&&(s=Y.get(e).events))for(i in Y.remove(t,"handle events"),s)for(n=0,r=s[i].length;n").attr(n.scriptAttrs||{}).prop({charset:n.scriptCharset,src:n.url}).on("load error",i=function(e){r.remove(),i=null,e&&t("error"===e.type?404:200,e.type)}),E.head.appendChild(r[0])},abort:function(){i&&i()}}});var _t,zt=[],Ut=/(=)\?(?=&|$)|\?\?/;S.ajaxSetup({jsonp:"callback",jsonpCallback:function(){var e=zt.pop()||S.expando+"_"+wt.guid++;return this[e]=!0,e}}),S.ajaxPrefilter("json jsonp",function(e,t,n){var r,i,o,a=!1!==e.jsonp&&(Ut.test(e.url)?"url":"string"==typeof e.data&&0===(e.contentType||"").indexOf("application/x-www-form-urlencoded")&&Ut.test(e.data)&&"data");if(a||"jsonp"===e.dataTypes[0])return r=e.jsonpCallback=m(e.jsonpCallback)?e.jsonpCallback():e.jsonpCallback,a?e[a]=e[a].replace(Ut,"$1"+r):!1!==e.jsonp&&(e.url+=(Tt.test(e.url)?"&":"?")+e.jsonp+"="+r),e.converters["script json"]=function(){return o||S.error(r+" was not called"),o[0]},e.dataTypes[0]="json",i=C[r],C[r]=function(){o=arguments},n.always(function(){void 0===i?S(C).removeProp(r):C[r]=i,e[r]&&(e.jsonpCallback=t.jsonpCallback,zt.push(r)),o&&m(i)&&i(o[0]),o=i=void 0}),"script"}),y.createHTMLDocument=((_t=E.implementation.createHTMLDocument("").body).innerHTML="
      ",2===_t.childNodes.length),S.parseHTML=function(e,t,n){return"string"!=typeof e?[]:("boolean"==typeof t&&(n=t,t=!1),t||(y.createHTMLDocument?((r=(t=E.implementation.createHTMLDocument("")).createElement("base")).href=E.location.href,t.head.appendChild(r)):t=E),o=!n&&[],(i=N.exec(e))?[t.createElement(i[1])]:(i=xe([e],t,o),o&&o.length&&S(o).remove(),S.merge([],i.childNodes)));var r,i,o},S.fn.load=function(e,t,n){var r,i,o,a=this,s=e.indexOf(" ");return-1").append(S.parseHTML(e)).find(r):e)}).always(n&&function(e,t){a.each(function(){n.apply(this,o||[e.responseText,t,e])})}),this},S.expr.pseudos.animated=function(t){return S.grep(S.timers,function(e){return t===e.elem}).length},S.offset={setOffset:function(e,t,n){var r,i,o,a,s,u,l=S.css(e,"position"),c=S(e),f={};"static"===l&&(e.style.position="relative"),s=c.offset(),o=S.css(e,"top"),u=S.css(e,"left"),("absolute"===l||"fixed"===l)&&-1<(o+u).indexOf("auto")?(a=(r=c.position()).top,i=r.left):(a=parseFloat(o)||0,i=parseFloat(u)||0),m(t)&&(t=t.call(e,n,S.extend({},s))),null!=t.top&&(f.top=t.top-s.top+a),null!=t.left&&(f.left=t.left-s.left+i),"using"in t?t.using.call(e,f):c.css(f)}},S.fn.extend({offset:function(t){if(arguments.length)return void 0===t?this:this.each(function(e){S.offset.setOffset(this,t,e)});var e,n,r=this[0];return r?r.getClientRects().length?(e=r.getBoundingClientRect(),n=r.ownerDocument.defaultView,{top:e.top+n.pageYOffset,left:e.left+n.pageXOffset}):{top:0,left:0}:void 0},position:function(){if(this[0]){var e,t,n,r=this[0],i={top:0,left:0};if("fixed"===S.css(r,"position"))t=r.getBoundingClientRect();else{t=this.offset(),n=r.ownerDocument,e=r.offsetParent||n.documentElement;while(e&&(e===n.body||e===n.documentElement)&&"static"===S.css(e,"position"))e=e.parentNode;e&&e!==r&&1===e.nodeType&&((i=S(e).offset()).top+=S.css(e,"borderTopWidth",!0),i.left+=S.css(e,"borderLeftWidth",!0))}return{top:t.top-i.top-S.css(r,"marginTop",!0),left:t.left-i.left-S.css(r,"marginLeft",!0)}}},offsetParent:function(){return this.map(function(){var e=this.offsetParent;while(e&&"static"===S.css(e,"position"))e=e.offsetParent;return e||re})}}),S.each({scrollLeft:"pageXOffset",scrollTop:"pageYOffset"},function(t,i){var o="pageYOffset"===i;S.fn[t]=function(e){return $(this,function(e,t,n){var r;if(x(e)?r=e:9===e.nodeType&&(r=e.defaultView),void 0===n)return r?r[i]:e[t];r?r.scrollTo(o?r.pageXOffset:n,o?n:r.pageYOffset):e[t]=n},t,e,arguments.length)}}),S.each(["top","left"],function(e,n){S.cssHooks[n]=Fe(y.pixelPosition,function(e,t){if(t)return t=We(e,n),Pe.test(t)?S(e).position()[n]+"px":t})}),S.each({Height:"height",Width:"width"},function(a,s){S.each({padding:"inner"+a,content:s,"":"outer"+a},function(r,o){S.fn[o]=function(e,t){var n=arguments.length&&(r||"boolean"!=typeof e),i=r||(!0===e||!0===t?"margin":"border");return $(this,function(e,t,n){var r;return x(e)?0===o.indexOf("outer")?e["inner"+a]:e.document.documentElement["client"+a]:9===e.nodeType?(r=e.documentElement,Math.max(e.body["scroll"+a],r["scroll"+a],e.body["offset"+a],r["offset"+a],r["client"+a])):void 0===n?S.css(e,t,i):S.style(e,t,n,i)},s,n?e:void 0,n)}})}),S.each(["ajaxStart","ajaxStop","ajaxComplete","ajaxError","ajaxSuccess","ajaxSend"],function(e,t){S.fn[t]=function(e){return this.on(t,e)}}),S.fn.extend({bind:function(e,t,n){return this.on(e,null,t,n)},unbind:function(e,t){return this.off(e,null,t)},delegate:function(e,t,n,r){return this.on(t,e,n,r)},undelegate:function(e,t,n){return 1===arguments.length?this.off(e,"**"):this.off(t,e||"**",n)},hover:function(e,t){return this.mouseenter(e).mouseleave(t||e)}}),S.each("blur focus focusin focusout resize scroll click dblclick mousedown mouseup mousemove mouseover mouseout mouseenter mouseleave change select submit keydown keypress keyup contextmenu".split(" "),function(e,n){S.fn[n]=function(e,t){return 0 elements + // (i.e., `typeof document.createElement( "object" ) === "function"`). + // We don't want to classify *any* DOM node as a function. + // Support: QtWeb <=3.8.5, WebKit <=534.34, wkhtmltopdf tool <=0.12.5 + // Plus for old WebKit, typeof returns "function" for HTML collections + // (e.g., `typeof document.getElementsByTagName("div") === "function"`). (gh-4756) + return typeof obj === "function" && typeof obj.nodeType !== "number" && + typeof obj.item !== "function"; + }; + + +var isWindow = function isWindow( obj ) { + return obj != null && obj === obj.window; + }; + + +var document = window.document; + + + + var preservedScriptAttributes = { + type: true, + src: true, + nonce: true, + noModule: true + }; + + function DOMEval( code, node, doc ) { + doc = doc || document; + + var i, val, + script = doc.createElement( "script" ); + + script.text = code; + if ( node ) { + for ( i in preservedScriptAttributes ) { + + // Support: Firefox 64+, Edge 18+ + // Some browsers don't support the "nonce" property on scripts. + // On the other hand, just using `getAttribute` is not enough as + // the `nonce` attribute is reset to an empty string whenever it + // becomes browsing-context connected. + // See https://github.com/whatwg/html/issues/2369 + // See https://html.spec.whatwg.org/#nonce-attributes + // The `node.getAttribute` check was added for the sake of + // `jQuery.globalEval` so that it can fake a nonce-containing node + // via an object. + val = node[ i ] || node.getAttribute && node.getAttribute( i ); + if ( val ) { + script.setAttribute( i, val ); + } + } + } + doc.head.appendChild( script ).parentNode.removeChild( script ); + } + + +function toType( obj ) { + if ( obj == null ) { + return obj + ""; + } + + // Support: Android <=2.3 only (functionish RegExp) + return typeof obj === "object" || typeof obj === "function" ? + class2type[ toString.call( obj ) ] || "object" : + typeof obj; +} +/* global Symbol */ +// Defining this global in .eslintrc.json would create a danger of using the global +// unguarded in another place, it seems safer to define global only for this module + + + +var + version = "3.6.0", + + // Define a local copy of jQuery + jQuery = function( selector, context ) { + + // The jQuery object is actually just the init constructor 'enhanced' + // Need init if jQuery is called (just allow error to be thrown if not included) + return new jQuery.fn.init( selector, context ); + }; + +jQuery.fn = jQuery.prototype = { + + // The current version of jQuery being used + jquery: version, + + constructor: jQuery, + + // The default length of a jQuery object is 0 + length: 0, + + toArray: function() { + return slice.call( this ); + }, + + // Get the Nth element in the matched element set OR + // Get the whole matched element set as a clean array + get: function( num ) { + + // Return all the elements in a clean array + if ( num == null ) { + return slice.call( this ); + } + + // Return just the one element from the set + return num < 0 ? this[ num + this.length ] : this[ num ]; + }, + + // Take an array of elements and push it onto the stack + // (returning the new matched element set) + pushStack: function( elems ) { + + // Build a new jQuery matched element set + var ret = jQuery.merge( this.constructor(), elems ); + + // Add the old object onto the stack (as a reference) + ret.prevObject = this; + + // Return the newly-formed element set + return ret; + }, + + // Execute a callback for every element in the matched set. + each: function( callback ) { + return jQuery.each( this, callback ); + }, + + map: function( callback ) { + return this.pushStack( jQuery.map( this, function( elem, i ) { + return callback.call( elem, i, elem ); + } ) ); + }, + + slice: function() { + return this.pushStack( slice.apply( this, arguments ) ); + }, + + first: function() { + return this.eq( 0 ); + }, + + last: function() { + return this.eq( -1 ); + }, + + even: function() { + return this.pushStack( jQuery.grep( this, function( _elem, i ) { + return ( i + 1 ) % 2; + } ) ); + }, + + odd: function() { + return this.pushStack( jQuery.grep( this, function( _elem, i ) { + return i % 2; + } ) ); + }, + + eq: function( i ) { + var len = this.length, + j = +i + ( i < 0 ? len : 0 ); + return this.pushStack( j >= 0 && j < len ? [ this[ j ] ] : [] ); + }, + + end: function() { + return this.prevObject || this.constructor(); + }, + + // For internal use only. + // Behaves like an Array's method, not like a jQuery method. + push: push, + sort: arr.sort, + splice: arr.splice +}; + +jQuery.extend = jQuery.fn.extend = function() { + var options, name, src, copy, copyIsArray, clone, + target = arguments[ 0 ] || {}, + i = 1, + length = arguments.length, + deep = false; + + // Handle a deep copy situation + if ( typeof target === "boolean" ) { + deep = target; + + // Skip the boolean and the target + target = arguments[ i ] || {}; + i++; + } + + // Handle case when target is a string or something (possible in deep copy) + if ( typeof target !== "object" && !isFunction( target ) ) { + target = {}; + } + + // Extend jQuery itself if only one argument is passed + if ( i === length ) { + target = this; + i--; + } + + for ( ; i < length; i++ ) { + + // Only deal with non-null/undefined values + if ( ( options = arguments[ i ] ) != null ) { + + // Extend the base object + for ( name in options ) { + copy = options[ name ]; + + // Prevent Object.prototype pollution + // Prevent never-ending loop + if ( name === "__proto__" || target === copy ) { + continue; + } + + // Recurse if we're merging plain objects or arrays + if ( deep && copy && ( jQuery.isPlainObject( copy ) || + ( copyIsArray = Array.isArray( copy ) ) ) ) { + src = target[ name ]; + + // Ensure proper type for the source value + if ( copyIsArray && !Array.isArray( src ) ) { + clone = []; + } else if ( !copyIsArray && !jQuery.isPlainObject( src ) ) { + clone = {}; + } else { + clone = src; + } + copyIsArray = false; + + // Never move original objects, clone them + target[ name ] = jQuery.extend( deep, clone, copy ); + + // Don't bring in undefined values + } else if ( copy !== undefined ) { + target[ name ] = copy; + } + } + } + } + + // Return the modified object + return target; +}; + +jQuery.extend( { + + // Unique for each copy of jQuery on the page + expando: "jQuery" + ( version + Math.random() ).replace( /\D/g, "" ), + + // Assume jQuery is ready without the ready module + isReady: true, + + error: function( msg ) { + throw new Error( msg ); + }, + + noop: function() {}, + + isPlainObject: function( obj ) { + var proto, Ctor; + + // Detect obvious negatives + // Use toString instead of jQuery.type to catch host objects + if ( !obj || toString.call( obj ) !== "[object Object]" ) { + return false; + } + + proto = getProto( obj ); + + // Objects with no prototype (e.g., `Object.create( null )`) are plain + if ( !proto ) { + return true; + } + + // Objects with prototype are plain iff they were constructed by a global Object function + Ctor = hasOwn.call( proto, "constructor" ) && proto.constructor; + return typeof Ctor === "function" && fnToString.call( Ctor ) === ObjectFunctionString; + }, + + isEmptyObject: function( obj ) { + var name; + + for ( name in obj ) { + return false; + } + return true; + }, + + // Evaluates a script in a provided context; falls back to the global one + // if not specified. + globalEval: function( code, options, doc ) { + DOMEval( code, { nonce: options && options.nonce }, doc ); + }, + + each: function( obj, callback ) { + var length, i = 0; + + if ( isArrayLike( obj ) ) { + length = obj.length; + for ( ; i < length; i++ ) { + if ( callback.call( obj[ i ], i, obj[ i ] ) === false ) { + break; + } + } + } else { + for ( i in obj ) { + if ( callback.call( obj[ i ], i, obj[ i ] ) === false ) { + break; + } + } + } + + return obj; + }, + + // results is for internal usage only + makeArray: function( arr, results ) { + var ret = results || []; + + if ( arr != null ) { + if ( isArrayLike( Object( arr ) ) ) { + jQuery.merge( ret, + typeof arr === "string" ? + [ arr ] : arr + ); + } else { + push.call( ret, arr ); + } + } + + return ret; + }, + + inArray: function( elem, arr, i ) { + return arr == null ? -1 : indexOf.call( arr, elem, i ); + }, + + // Support: Android <=4.0 only, PhantomJS 1 only + // push.apply(_, arraylike) throws on ancient WebKit + merge: function( first, second ) { + var len = +second.length, + j = 0, + i = first.length; + + for ( ; j < len; j++ ) { + first[ i++ ] = second[ j ]; + } + + first.length = i; + + return first; + }, + + grep: function( elems, callback, invert ) { + var callbackInverse, + matches = [], + i = 0, + length = elems.length, + callbackExpect = !invert; + + // Go through the array, only saving the items + // that pass the validator function + for ( ; i < length; i++ ) { + callbackInverse = !callback( elems[ i ], i ); + if ( callbackInverse !== callbackExpect ) { + matches.push( elems[ i ] ); + } + } + + return matches; + }, + + // arg is for internal usage only + map: function( elems, callback, arg ) { + var length, value, + i = 0, + ret = []; + + // Go through the array, translating each of the items to their new values + if ( isArrayLike( elems ) ) { + length = elems.length; + for ( ; i < length; i++ ) { + value = callback( elems[ i ], i, arg ); + + if ( value != null ) { + ret.push( value ); + } + } + + // Go through every key on the object, + } else { + for ( i in elems ) { + value = callback( elems[ i ], i, arg ); + + if ( value != null ) { + ret.push( value ); + } + } + } + + // Flatten any nested arrays + return flat( ret ); + }, + + // A global GUID counter for objects + guid: 1, + + // jQuery.support is not used in Core but other projects attach their + // properties to it so it needs to exist. + support: support +} ); + +if ( typeof Symbol === "function" ) { + jQuery.fn[ Symbol.iterator ] = arr[ Symbol.iterator ]; +} + +// Populate the class2type map +jQuery.each( "Boolean Number String Function Array Date RegExp Object Error Symbol".split( " " ), + function( _i, name ) { + class2type[ "[object " + name + "]" ] = name.toLowerCase(); + } ); + +function isArrayLike( obj ) { + + // Support: real iOS 8.2 only (not reproducible in simulator) + // `in` check used to prevent JIT error (gh-2145) + // hasOwn isn't used here due to false negatives + // regarding Nodelist length in IE + var length = !!obj && "length" in obj && obj.length, + type = toType( obj ); + + if ( isFunction( obj ) || isWindow( obj ) ) { + return false; + } + + return type === "array" || length === 0 || + typeof length === "number" && length > 0 && ( length - 1 ) in obj; +} +var Sizzle = +/*! + * Sizzle CSS Selector Engine v2.3.6 + * https://sizzlejs.com/ + * + * Copyright JS Foundation and other contributors + * Released under the MIT license + * https://js.foundation/ + * + * Date: 2021-02-16 + */ +( function( window ) { +var i, + support, + Expr, + getText, + isXML, + tokenize, + compile, + select, + outermostContext, + sortInput, + hasDuplicate, + + // Local document vars + setDocument, + document, + docElem, + documentIsHTML, + rbuggyQSA, + rbuggyMatches, + matches, + contains, + + // Instance-specific data + expando = "sizzle" + 1 * new Date(), + preferredDoc = window.document, + dirruns = 0, + done = 0, + classCache = createCache(), + tokenCache = createCache(), + compilerCache = createCache(), + nonnativeSelectorCache = createCache(), + sortOrder = function( a, b ) { + if ( a === b ) { + hasDuplicate = true; + } + return 0; + }, + + // Instance methods + hasOwn = ( {} ).hasOwnProperty, + arr = [], + pop = arr.pop, + pushNative = arr.push, + push = arr.push, + slice = arr.slice, + + // Use a stripped-down indexOf as it's faster than native + // https://jsperf.com/thor-indexof-vs-for/5 + indexOf = function( list, elem ) { + var i = 0, + len = list.length; + for ( ; i < len; i++ ) { + if ( list[ i ] === elem ) { + return i; + } + } + return -1; + }, + + booleans = "checked|selected|async|autofocus|autoplay|controls|defer|disabled|hidden|" + + "ismap|loop|multiple|open|readonly|required|scoped", + + // Regular expressions + + // http://www.w3.org/TR/css3-selectors/#whitespace + whitespace = "[\\x20\\t\\r\\n\\f]", + + // https://www.w3.org/TR/css-syntax-3/#ident-token-diagram + identifier = "(?:\\\\[\\da-fA-F]{1,6}" + whitespace + + "?|\\\\[^\\r\\n\\f]|[\\w-]|[^\0-\\x7f])+", + + // Attribute selectors: http://www.w3.org/TR/selectors/#attribute-selectors + attributes = "\\[" + whitespace + "*(" + identifier + ")(?:" + whitespace + + + // Operator (capture 2) + "*([*^$|!~]?=)" + whitespace + + + // "Attribute values must be CSS identifiers [capture 5] + // or strings [capture 3 or capture 4]" + "*(?:'((?:\\\\.|[^\\\\'])*)'|\"((?:\\\\.|[^\\\\\"])*)\"|(" + identifier + "))|)" + + whitespace + "*\\]", + + pseudos = ":(" + identifier + ")(?:\\((" + + + // To reduce the number of selectors needing tokenize in the preFilter, prefer arguments: + // 1. quoted (capture 3; capture 4 or capture 5) + "('((?:\\\\.|[^\\\\'])*)'|\"((?:\\\\.|[^\\\\\"])*)\")|" + + + // 2. simple (capture 6) + "((?:\\\\.|[^\\\\()[\\]]|" + attributes + ")*)|" + + + // 3. anything else (capture 2) + ".*" + + ")\\)|)", + + // Leading and non-escaped trailing whitespace, capturing some non-whitespace characters preceding the latter + rwhitespace = new RegExp( whitespace + "+", "g" ), + rtrim = new RegExp( "^" + whitespace + "+|((?:^|[^\\\\])(?:\\\\.)*)" + + whitespace + "+$", "g" ), + + rcomma = new RegExp( "^" + whitespace + "*," + whitespace + "*" ), + rcombinators = new RegExp( "^" + whitespace + "*([>+~]|" + whitespace + ")" + whitespace + + "*" ), + rdescend = new RegExp( whitespace + "|>" ), + + rpseudo = new RegExp( pseudos ), + ridentifier = new RegExp( "^" + identifier + "$" ), + + matchExpr = { + "ID": new RegExp( "^#(" + identifier + ")" ), + "CLASS": new RegExp( "^\\.(" + identifier + ")" ), + "TAG": new RegExp( "^(" + identifier + "|[*])" ), + "ATTR": new RegExp( "^" + attributes ), + "PSEUDO": new RegExp( "^" + pseudos ), + "CHILD": new RegExp( "^:(only|first|last|nth|nth-last)-(child|of-type)(?:\\(" + + whitespace + "*(even|odd|(([+-]|)(\\d*)n|)" + whitespace + "*(?:([+-]|)" + + whitespace + "*(\\d+)|))" + whitespace + "*\\)|)", "i" ), + "bool": new RegExp( "^(?:" + booleans + ")$", "i" ), + + // For use in libraries implementing .is() + // We use this for POS matching in `select` + "needsContext": new RegExp( "^" + whitespace + + "*[>+~]|:(even|odd|eq|gt|lt|nth|first|last)(?:\\(" + whitespace + + "*((?:-\\d)?\\d*)" + whitespace + "*\\)|)(?=[^-]|$)", "i" ) + }, + + rhtml = /HTML$/i, + rinputs = /^(?:input|select|textarea|button)$/i, + rheader = /^h\d$/i, + + rnative = /^[^{]+\{\s*\[native \w/, + + // Easily-parseable/retrievable ID or TAG or CLASS selectors + rquickExpr = /^(?:#([\w-]+)|(\w+)|\.([\w-]+))$/, + + rsibling = /[+~]/, + + // CSS escapes + // http://www.w3.org/TR/CSS21/syndata.html#escaped-characters + runescape = new RegExp( "\\\\[\\da-fA-F]{1,6}" + whitespace + "?|\\\\([^\\r\\n\\f])", "g" ), + funescape = function( escape, nonHex ) { + var high = "0x" + escape.slice( 1 ) - 0x10000; + + return nonHex ? + + // Strip the backslash prefix from a non-hex escape sequence + nonHex : + + // Replace a hexadecimal escape sequence with the encoded Unicode code point + // Support: IE <=11+ + // For values outside the Basic Multilingual Plane (BMP), manually construct a + // surrogate pair + high < 0 ? + String.fromCharCode( high + 0x10000 ) : + String.fromCharCode( high >> 10 | 0xD800, high & 0x3FF | 0xDC00 ); + }, + + // CSS string/identifier serialization + // https://drafts.csswg.org/cssom/#common-serializing-idioms + rcssescape = /([\0-\x1f\x7f]|^-?\d)|^-$|[^\0-\x1f\x7f-\uFFFF\w-]/g, + fcssescape = function( ch, asCodePoint ) { + if ( asCodePoint ) { + + // U+0000 NULL becomes U+FFFD REPLACEMENT CHARACTER + if ( ch === "\0" ) { + return "\uFFFD"; + } + + // Control characters and (dependent upon position) numbers get escaped as code points + return ch.slice( 0, -1 ) + "\\" + + ch.charCodeAt( ch.length - 1 ).toString( 16 ) + " "; + } + + // Other potentially-special ASCII characters get backslash-escaped + return "\\" + ch; + }, + + // Used for iframes + // See setDocument() + // Removing the function wrapper causes a "Permission Denied" + // error in IE + unloadHandler = function() { + setDocument(); + }, + + inDisabledFieldset = addCombinator( + function( elem ) { + return elem.disabled === true && elem.nodeName.toLowerCase() === "fieldset"; + }, + { dir: "parentNode", next: "legend" } + ); + +// Optimize for push.apply( _, NodeList ) +try { + push.apply( + ( arr = slice.call( preferredDoc.childNodes ) ), + preferredDoc.childNodes + ); + + // Support: Android<4.0 + // Detect silently failing push.apply + // eslint-disable-next-line no-unused-expressions + arr[ preferredDoc.childNodes.length ].nodeType; +} catch ( e ) { + push = { apply: arr.length ? + + // Leverage slice if possible + function( target, els ) { + pushNative.apply( target, slice.call( els ) ); + } : + + // Support: IE<9 + // Otherwise append directly + function( target, els ) { + var j = target.length, + i = 0; + + // Can't trust NodeList.length + while ( ( target[ j++ ] = els[ i++ ] ) ) {} + target.length = j - 1; + } + }; +} + +function Sizzle( selector, context, results, seed ) { + var m, i, elem, nid, match, groups, newSelector, + newContext = context && context.ownerDocument, + + // nodeType defaults to 9, since context defaults to document + nodeType = context ? context.nodeType : 9; + + results = results || []; + + // Return early from calls with invalid selector or context + if ( typeof selector !== "string" || !selector || + nodeType !== 1 && nodeType !== 9 && nodeType !== 11 ) { + + return results; + } + + // Try to shortcut find operations (as opposed to filters) in HTML documents + if ( !seed ) { + setDocument( context ); + context = context || document; + + if ( documentIsHTML ) { + + // If the selector is sufficiently simple, try using a "get*By*" DOM method + // (excepting DocumentFragment context, where the methods don't exist) + if ( nodeType !== 11 && ( match = rquickExpr.exec( selector ) ) ) { + + // ID selector + if ( ( m = match[ 1 ] ) ) { + + // Document context + if ( nodeType === 9 ) { + if ( ( elem = context.getElementById( m ) ) ) { + + // Support: IE, Opera, Webkit + // TODO: identify versions + // getElementById can match elements by name instead of ID + if ( elem.id === m ) { + results.push( elem ); + return results; + } + } else { + return results; + } + + // Element context + } else { + + // Support: IE, Opera, Webkit + // TODO: identify versions + // getElementById can match elements by name instead of ID + if ( newContext && ( elem = newContext.getElementById( m ) ) && + contains( context, elem ) && + elem.id === m ) { + + results.push( elem ); + return results; + } + } + + // Type selector + } else if ( match[ 2 ] ) { + push.apply( results, context.getElementsByTagName( selector ) ); + return results; + + // Class selector + } else if ( ( m = match[ 3 ] ) && support.getElementsByClassName && + context.getElementsByClassName ) { + + push.apply( results, context.getElementsByClassName( m ) ); + return results; + } + } + + // Take advantage of querySelectorAll + if ( support.qsa && + !nonnativeSelectorCache[ selector + " " ] && + ( !rbuggyQSA || !rbuggyQSA.test( selector ) ) && + + // Support: IE 8 only + // Exclude object elements + ( nodeType !== 1 || context.nodeName.toLowerCase() !== "object" ) ) { + + newSelector = selector; + newContext = context; + + // qSA considers elements outside a scoping root when evaluating child or + // descendant combinators, which is not what we want. + // In such cases, we work around the behavior by prefixing every selector in the + // list with an ID selector referencing the scope context. + // The technique has to be used as well when a leading combinator is used + // as such selectors are not recognized by querySelectorAll. + // Thanks to Andrew Dupont for this technique. + if ( nodeType === 1 && + ( rdescend.test( selector ) || rcombinators.test( selector ) ) ) { + + // Expand context for sibling selectors + newContext = rsibling.test( selector ) && testContext( context.parentNode ) || + context; + + // We can use :scope instead of the ID hack if the browser + // supports it & if we're not changing the context. + if ( newContext !== context || !support.scope ) { + + // Capture the context ID, setting it first if necessary + if ( ( nid = context.getAttribute( "id" ) ) ) { + nid = nid.replace( rcssescape, fcssescape ); + } else { + context.setAttribute( "id", ( nid = expando ) ); + } + } + + // Prefix every selector in the list + groups = tokenize( selector ); + i = groups.length; + while ( i-- ) { + groups[ i ] = ( nid ? "#" + nid : ":scope" ) + " " + + toSelector( groups[ i ] ); + } + newSelector = groups.join( "," ); + } + + try { + push.apply( results, + newContext.querySelectorAll( newSelector ) + ); + return results; + } catch ( qsaError ) { + nonnativeSelectorCache( selector, true ); + } finally { + if ( nid === expando ) { + context.removeAttribute( "id" ); + } + } + } + } + } + + // All others + return select( selector.replace( rtrim, "$1" ), context, results, seed ); +} + +/** + * Create key-value caches of limited size + * @returns {function(string, object)} Returns the Object data after storing it on itself with + * property name the (space-suffixed) string and (if the cache is larger than Expr.cacheLength) + * deleting the oldest entry + */ +function createCache() { + var keys = []; + + function cache( key, value ) { + + // Use (key + " ") to avoid collision with native prototype properties (see Issue #157) + if ( keys.push( key + " " ) > Expr.cacheLength ) { + + // Only keep the most recent entries + delete cache[ keys.shift() ]; + } + return ( cache[ key + " " ] = value ); + } + return cache; +} + +/** + * Mark a function for special use by Sizzle + * @param {Function} fn The function to mark + */ +function markFunction( fn ) { + fn[ expando ] = true; + return fn; +} + +/** + * Support testing using an element + * @param {Function} fn Passed the created element and returns a boolean result + */ +function assert( fn ) { + var el = document.createElement( "fieldset" ); + + try { + return !!fn( el ); + } catch ( e ) { + return false; + } finally { + + // Remove from its parent by default + if ( el.parentNode ) { + el.parentNode.removeChild( el ); + } + + // release memory in IE + el = null; + } +} + +/** + * Adds the same handler for all of the specified attrs + * @param {String} attrs Pipe-separated list of attributes + * @param {Function} handler The method that will be applied + */ +function addHandle( attrs, handler ) { + var arr = attrs.split( "|" ), + i = arr.length; + + while ( i-- ) { + Expr.attrHandle[ arr[ i ] ] = handler; + } +} + +/** + * Checks document order of two siblings + * @param {Element} a + * @param {Element} b + * @returns {Number} Returns less than 0 if a precedes b, greater than 0 if a follows b + */ +function siblingCheck( a, b ) { + var cur = b && a, + diff = cur && a.nodeType === 1 && b.nodeType === 1 && + a.sourceIndex - b.sourceIndex; + + // Use IE sourceIndex if available on both nodes + if ( diff ) { + return diff; + } + + // Check if b follows a + if ( cur ) { + while ( ( cur = cur.nextSibling ) ) { + if ( cur === b ) { + return -1; + } + } + } + + return a ? 1 : -1; +} + +/** + * Returns a function to use in pseudos for input types + * @param {String} type + */ +function createInputPseudo( type ) { + return function( elem ) { + var name = elem.nodeName.toLowerCase(); + return name === "input" && elem.type === type; + }; +} + +/** + * Returns a function to use in pseudos for buttons + * @param {String} type + */ +function createButtonPseudo( type ) { + return function( elem ) { + var name = elem.nodeName.toLowerCase(); + return ( name === "input" || name === "button" ) && elem.type === type; + }; +} + +/** + * Returns a function to use in pseudos for :enabled/:disabled + * @param {Boolean} disabled true for :disabled; false for :enabled + */ +function createDisabledPseudo( disabled ) { + + // Known :disabled false positives: fieldset[disabled] > legend:nth-of-type(n+2) :can-disable + return function( elem ) { + + // Only certain elements can match :enabled or :disabled + // https://html.spec.whatwg.org/multipage/scripting.html#selector-enabled + // https://html.spec.whatwg.org/multipage/scripting.html#selector-disabled + if ( "form" in elem ) { + + // Check for inherited disabledness on relevant non-disabled elements: + // * listed form-associated elements in a disabled fieldset + // https://html.spec.whatwg.org/multipage/forms.html#category-listed + // https://html.spec.whatwg.org/multipage/forms.html#concept-fe-disabled + // * option elements in a disabled optgroup + // https://html.spec.whatwg.org/multipage/forms.html#concept-option-disabled + // All such elements have a "form" property. + if ( elem.parentNode && elem.disabled === false ) { + + // Option elements defer to a parent optgroup if present + if ( "label" in elem ) { + if ( "label" in elem.parentNode ) { + return elem.parentNode.disabled === disabled; + } else { + return elem.disabled === disabled; + } + } + + // Support: IE 6 - 11 + // Use the isDisabled shortcut property to check for disabled fieldset ancestors + return elem.isDisabled === disabled || + + // Where there is no isDisabled, check manually + /* jshint -W018 */ + elem.isDisabled !== !disabled && + inDisabledFieldset( elem ) === disabled; + } + + return elem.disabled === disabled; + + // Try to winnow out elements that can't be disabled before trusting the disabled property. + // Some victims get caught in our net (label, legend, menu, track), but it shouldn't + // even exist on them, let alone have a boolean value. + } else if ( "label" in elem ) { + return elem.disabled === disabled; + } + + // Remaining elements are neither :enabled nor :disabled + return false; + }; +} + +/** + * Returns a function to use in pseudos for positionals + * @param {Function} fn + */ +function createPositionalPseudo( fn ) { + return markFunction( function( argument ) { + argument = +argument; + return markFunction( function( seed, matches ) { + var j, + matchIndexes = fn( [], seed.length, argument ), + i = matchIndexes.length; + + // Match elements found at the specified indexes + while ( i-- ) { + if ( seed[ ( j = matchIndexes[ i ] ) ] ) { + seed[ j ] = !( matches[ j ] = seed[ j ] ); + } + } + } ); + } ); +} + +/** + * Checks a node for validity as a Sizzle context + * @param {Element|Object=} context + * @returns {Element|Object|Boolean} The input node if acceptable, otherwise a falsy value + */ +function testContext( context ) { + return context && typeof context.getElementsByTagName !== "undefined" && context; +} + +// Expose support vars for convenience +support = Sizzle.support = {}; + +/** + * Detects XML nodes + * @param {Element|Object} elem An element or a document + * @returns {Boolean} True iff elem is a non-HTML XML node + */ +isXML = Sizzle.isXML = function( elem ) { + var namespace = elem && elem.namespaceURI, + docElem = elem && ( elem.ownerDocument || elem ).documentElement; + + // Support: IE <=8 + // Assume HTML when documentElement doesn't yet exist, such as inside loading iframes + // https://bugs.jquery.com/ticket/4833 + return !rhtml.test( namespace || docElem && docElem.nodeName || "HTML" ); +}; + +/** + * Sets document-related variables once based on the current document + * @param {Element|Object} [doc] An element or document object to use to set the document + * @returns {Object} Returns the current document + */ +setDocument = Sizzle.setDocument = function( node ) { + var hasCompare, subWindow, + doc = node ? node.ownerDocument || node : preferredDoc; + + // Return early if doc is invalid or already selected + // Support: IE 11+, Edge 17 - 18+ + // IE/Edge sometimes throw a "Permission denied" error when strict-comparing + // two documents; shallow comparisons work. + // eslint-disable-next-line eqeqeq + if ( doc == document || doc.nodeType !== 9 || !doc.documentElement ) { + return document; + } + + // Update global variables + document = doc; + docElem = document.documentElement; + documentIsHTML = !isXML( document ); + + // Support: IE 9 - 11+, Edge 12 - 18+ + // Accessing iframe documents after unload throws "permission denied" errors (jQuery #13936) + // Support: IE 11+, Edge 17 - 18+ + // IE/Edge sometimes throw a "Permission denied" error when strict-comparing + // two documents; shallow comparisons work. + // eslint-disable-next-line eqeqeq + if ( preferredDoc != document && + ( subWindow = document.defaultView ) && subWindow.top !== subWindow ) { + + // Support: IE 11, Edge + if ( subWindow.addEventListener ) { + subWindow.addEventListener( "unload", unloadHandler, false ); + + // Support: IE 9 - 10 only + } else if ( subWindow.attachEvent ) { + subWindow.attachEvent( "onunload", unloadHandler ); + } + } + + // Support: IE 8 - 11+, Edge 12 - 18+, Chrome <=16 - 25 only, Firefox <=3.6 - 31 only, + // Safari 4 - 5 only, Opera <=11.6 - 12.x only + // IE/Edge & older browsers don't support the :scope pseudo-class. + // Support: Safari 6.0 only + // Safari 6.0 supports :scope but it's an alias of :root there. + support.scope = assert( function( el ) { + docElem.appendChild( el ).appendChild( document.createElement( "div" ) ); + return typeof el.querySelectorAll !== "undefined" && + !el.querySelectorAll( ":scope fieldset div" ).length; + } ); + + /* Attributes + ---------------------------------------------------------------------- */ + + // Support: IE<8 + // Verify that getAttribute really returns attributes and not properties + // (excepting IE8 booleans) + support.attributes = assert( function( el ) { + el.className = "i"; + return !el.getAttribute( "className" ); + } ); + + /* getElement(s)By* + ---------------------------------------------------------------------- */ + + // Check if getElementsByTagName("*") returns only elements + support.getElementsByTagName = assert( function( el ) { + el.appendChild( document.createComment( "" ) ); + return !el.getElementsByTagName( "*" ).length; + } ); + + // Support: IE<9 + support.getElementsByClassName = rnative.test( document.getElementsByClassName ); + + // Support: IE<10 + // Check if getElementById returns elements by name + // The broken getElementById methods don't pick up programmatically-set names, + // so use a roundabout getElementsByName test + support.getById = assert( function( el ) { + docElem.appendChild( el ).id = expando; + return !document.getElementsByName || !document.getElementsByName( expando ).length; + } ); + + // ID filter and find + if ( support.getById ) { + Expr.filter[ "ID" ] = function( id ) { + var attrId = id.replace( runescape, funescape ); + return function( elem ) { + return elem.getAttribute( "id" ) === attrId; + }; + }; + Expr.find[ "ID" ] = function( id, context ) { + if ( typeof context.getElementById !== "undefined" && documentIsHTML ) { + var elem = context.getElementById( id ); + return elem ? [ elem ] : []; + } + }; + } else { + Expr.filter[ "ID" ] = function( id ) { + var attrId = id.replace( runescape, funescape ); + return function( elem ) { + var node = typeof elem.getAttributeNode !== "undefined" && + elem.getAttributeNode( "id" ); + return node && node.value === attrId; + }; + }; + + // Support: IE 6 - 7 only + // getElementById is not reliable as a find shortcut + Expr.find[ "ID" ] = function( id, context ) { + if ( typeof context.getElementById !== "undefined" && documentIsHTML ) { + var node, i, elems, + elem = context.getElementById( id ); + + if ( elem ) { + + // Verify the id attribute + node = elem.getAttributeNode( "id" ); + if ( node && node.value === id ) { + return [ elem ]; + } + + // Fall back on getElementsByName + elems = context.getElementsByName( id ); + i = 0; + while ( ( elem = elems[ i++ ] ) ) { + node = elem.getAttributeNode( "id" ); + if ( node && node.value === id ) { + return [ elem ]; + } + } + } + + return []; + } + }; + } + + // Tag + Expr.find[ "TAG" ] = support.getElementsByTagName ? + function( tag, context ) { + if ( typeof context.getElementsByTagName !== "undefined" ) { + return context.getElementsByTagName( tag ); + + // DocumentFragment nodes don't have gEBTN + } else if ( support.qsa ) { + return context.querySelectorAll( tag ); + } + } : + + function( tag, context ) { + var elem, + tmp = [], + i = 0, + + // By happy coincidence, a (broken) gEBTN appears on DocumentFragment nodes too + results = context.getElementsByTagName( tag ); + + // Filter out possible comments + if ( tag === "*" ) { + while ( ( elem = results[ i++ ] ) ) { + if ( elem.nodeType === 1 ) { + tmp.push( elem ); + } + } + + return tmp; + } + return results; + }; + + // Class + Expr.find[ "CLASS" ] = support.getElementsByClassName && function( className, context ) { + if ( typeof context.getElementsByClassName !== "undefined" && documentIsHTML ) { + return context.getElementsByClassName( className ); + } + }; + + /* QSA/matchesSelector + ---------------------------------------------------------------------- */ + + // QSA and matchesSelector support + + // matchesSelector(:active) reports false when true (IE9/Opera 11.5) + rbuggyMatches = []; + + // qSa(:focus) reports false when true (Chrome 21) + // We allow this because of a bug in IE8/9 that throws an error + // whenever `document.activeElement` is accessed on an iframe + // So, we allow :focus to pass through QSA all the time to avoid the IE error + // See https://bugs.jquery.com/ticket/13378 + rbuggyQSA = []; + + if ( ( support.qsa = rnative.test( document.querySelectorAll ) ) ) { + + // Build QSA regex + // Regex strategy adopted from Diego Perini + assert( function( el ) { + + var input; + + // Select is set to empty string on purpose + // This is to test IE's treatment of not explicitly + // setting a boolean content attribute, + // since its presence should be enough + // https://bugs.jquery.com/ticket/12359 + docElem.appendChild( el ).innerHTML = "" + + ""; + + // Support: IE8, Opera 11-12.16 + // Nothing should be selected when empty strings follow ^= or $= or *= + // The test attribute must be unknown in Opera but "safe" for WinRT + // https://msdn.microsoft.com/en-us/library/ie/hh465388.aspx#attribute_section + if ( el.querySelectorAll( "[msallowcapture^='']" ).length ) { + rbuggyQSA.push( "[*^$]=" + whitespace + "*(?:''|\"\")" ); + } + + // Support: IE8 + // Boolean attributes and "value" are not treated correctly + if ( !el.querySelectorAll( "[selected]" ).length ) { + rbuggyQSA.push( "\\[" + whitespace + "*(?:value|" + booleans + ")" ); + } + + // Support: Chrome<29, Android<4.4, Safari<7.0+, iOS<7.0+, PhantomJS<1.9.8+ + if ( !el.querySelectorAll( "[id~=" + expando + "-]" ).length ) { + rbuggyQSA.push( "~=" ); + } + + // Support: IE 11+, Edge 15 - 18+ + // IE 11/Edge don't find elements on a `[name='']` query in some cases. + // Adding a temporary attribute to the document before the selection works + // around the issue. + // Interestingly, IE 10 & older don't seem to have the issue. + input = document.createElement( "input" ); + input.setAttribute( "name", "" ); + el.appendChild( input ); + if ( !el.querySelectorAll( "[name='']" ).length ) { + rbuggyQSA.push( "\\[" + whitespace + "*name" + whitespace + "*=" + + whitespace + "*(?:''|\"\")" ); + } + + // Webkit/Opera - :checked should return selected option elements + // http://www.w3.org/TR/2011/REC-css3-selectors-20110929/#checked + // IE8 throws error here and will not see later tests + if ( !el.querySelectorAll( ":checked" ).length ) { + rbuggyQSA.push( ":checked" ); + } + + // Support: Safari 8+, iOS 8+ + // https://bugs.webkit.org/show_bug.cgi?id=136851 + // In-page `selector#id sibling-combinator selector` fails + if ( !el.querySelectorAll( "a#" + expando + "+*" ).length ) { + rbuggyQSA.push( ".#.+[+~]" ); + } + + // Support: Firefox <=3.6 - 5 only + // Old Firefox doesn't throw on a badly-escaped identifier. + el.querySelectorAll( "\\\f" ); + rbuggyQSA.push( "[\\r\\n\\f]" ); + } ); + + assert( function( el ) { + el.innerHTML = "" + + ""; + + // Support: Windows 8 Native Apps + // The type and name attributes are restricted during .innerHTML assignment + var input = document.createElement( "input" ); + input.setAttribute( "type", "hidden" ); + el.appendChild( input ).setAttribute( "name", "D" ); + + // Support: IE8 + // Enforce case-sensitivity of name attribute + if ( el.querySelectorAll( "[name=d]" ).length ) { + rbuggyQSA.push( "name" + whitespace + "*[*^$|!~]?=" ); + } + + // FF 3.5 - :enabled/:disabled and hidden elements (hidden elements are still enabled) + // IE8 throws error here and will not see later tests + if ( el.querySelectorAll( ":enabled" ).length !== 2 ) { + rbuggyQSA.push( ":enabled", ":disabled" ); + } + + // Support: IE9-11+ + // IE's :disabled selector does not pick up the children of disabled fieldsets + docElem.appendChild( el ).disabled = true; + if ( el.querySelectorAll( ":disabled" ).length !== 2 ) { + rbuggyQSA.push( ":enabled", ":disabled" ); + } + + // Support: Opera 10 - 11 only + // Opera 10-11 does not throw on post-comma invalid pseudos + el.querySelectorAll( "*,:x" ); + rbuggyQSA.push( ",.*:" ); + } ); + } + + if ( ( support.matchesSelector = rnative.test( ( matches = docElem.matches || + docElem.webkitMatchesSelector || + docElem.mozMatchesSelector || + docElem.oMatchesSelector || + docElem.msMatchesSelector ) ) ) ) { + + assert( function( el ) { + + // Check to see if it's possible to do matchesSelector + // on a disconnected node (IE 9) + support.disconnectedMatch = matches.call( el, "*" ); + + // This should fail with an exception + // Gecko does not error, returns false instead + matches.call( el, "[s!='']:x" ); + rbuggyMatches.push( "!=", pseudos ); + } ); + } + + rbuggyQSA = rbuggyQSA.length && new RegExp( rbuggyQSA.join( "|" ) ); + rbuggyMatches = rbuggyMatches.length && new RegExp( rbuggyMatches.join( "|" ) ); + + /* Contains + ---------------------------------------------------------------------- */ + hasCompare = rnative.test( docElem.compareDocumentPosition ); + + // Element contains another + // Purposefully self-exclusive + // As in, an element does not contain itself + contains = hasCompare || rnative.test( docElem.contains ) ? + function( a, b ) { + var adown = a.nodeType === 9 ? a.documentElement : a, + bup = b && b.parentNode; + return a === bup || !!( bup && bup.nodeType === 1 && ( + adown.contains ? + adown.contains( bup ) : + a.compareDocumentPosition && a.compareDocumentPosition( bup ) & 16 + ) ); + } : + function( a, b ) { + if ( b ) { + while ( ( b = b.parentNode ) ) { + if ( b === a ) { + return true; + } + } + } + return false; + }; + + /* Sorting + ---------------------------------------------------------------------- */ + + // Document order sorting + sortOrder = hasCompare ? + function( a, b ) { + + // Flag for duplicate removal + if ( a === b ) { + hasDuplicate = true; + return 0; + } + + // Sort on method existence if only one input has compareDocumentPosition + var compare = !a.compareDocumentPosition - !b.compareDocumentPosition; + if ( compare ) { + return compare; + } + + // Calculate position if both inputs belong to the same document + // Support: IE 11+, Edge 17 - 18+ + // IE/Edge sometimes throw a "Permission denied" error when strict-comparing + // two documents; shallow comparisons work. + // eslint-disable-next-line eqeqeq + compare = ( a.ownerDocument || a ) == ( b.ownerDocument || b ) ? + a.compareDocumentPosition( b ) : + + // Otherwise we know they are disconnected + 1; + + // Disconnected nodes + if ( compare & 1 || + ( !support.sortDetached && b.compareDocumentPosition( a ) === compare ) ) { + + // Choose the first element that is related to our preferred document + // Support: IE 11+, Edge 17 - 18+ + // IE/Edge sometimes throw a "Permission denied" error when strict-comparing + // two documents; shallow comparisons work. + // eslint-disable-next-line eqeqeq + if ( a == document || a.ownerDocument == preferredDoc && + contains( preferredDoc, a ) ) { + return -1; + } + + // Support: IE 11+, Edge 17 - 18+ + // IE/Edge sometimes throw a "Permission denied" error when strict-comparing + // two documents; shallow comparisons work. + // eslint-disable-next-line eqeqeq + if ( b == document || b.ownerDocument == preferredDoc && + contains( preferredDoc, b ) ) { + return 1; + } + + // Maintain original order + return sortInput ? + ( indexOf( sortInput, a ) - indexOf( sortInput, b ) ) : + 0; + } + + return compare & 4 ? -1 : 1; + } : + function( a, b ) { + + // Exit early if the nodes are identical + if ( a === b ) { + hasDuplicate = true; + return 0; + } + + var cur, + i = 0, + aup = a.parentNode, + bup = b.parentNode, + ap = [ a ], + bp = [ b ]; + + // Parentless nodes are either documents or disconnected + if ( !aup || !bup ) { + + // Support: IE 11+, Edge 17 - 18+ + // IE/Edge sometimes throw a "Permission denied" error when strict-comparing + // two documents; shallow comparisons work. + /* eslint-disable eqeqeq */ + return a == document ? -1 : + b == document ? 1 : + /* eslint-enable eqeqeq */ + aup ? -1 : + bup ? 1 : + sortInput ? + ( indexOf( sortInput, a ) - indexOf( sortInput, b ) ) : + 0; + + // If the nodes are siblings, we can do a quick check + } else if ( aup === bup ) { + return siblingCheck( a, b ); + } + + // Otherwise we need full lists of their ancestors for comparison + cur = a; + while ( ( cur = cur.parentNode ) ) { + ap.unshift( cur ); + } + cur = b; + while ( ( cur = cur.parentNode ) ) { + bp.unshift( cur ); + } + + // Walk down the tree looking for a discrepancy + while ( ap[ i ] === bp[ i ] ) { + i++; + } + + return i ? + + // Do a sibling check if the nodes have a common ancestor + siblingCheck( ap[ i ], bp[ i ] ) : + + // Otherwise nodes in our document sort first + // Support: IE 11+, Edge 17 - 18+ + // IE/Edge sometimes throw a "Permission denied" error when strict-comparing + // two documents; shallow comparisons work. + /* eslint-disable eqeqeq */ + ap[ i ] == preferredDoc ? -1 : + bp[ i ] == preferredDoc ? 1 : + /* eslint-enable eqeqeq */ + 0; + }; + + return document; +}; + +Sizzle.matches = function( expr, elements ) { + return Sizzle( expr, null, null, elements ); +}; + +Sizzle.matchesSelector = function( elem, expr ) { + setDocument( elem ); + + if ( support.matchesSelector && documentIsHTML && + !nonnativeSelectorCache[ expr + " " ] && + ( !rbuggyMatches || !rbuggyMatches.test( expr ) ) && + ( !rbuggyQSA || !rbuggyQSA.test( expr ) ) ) { + + try { + var ret = matches.call( elem, expr ); + + // IE 9's matchesSelector returns false on disconnected nodes + if ( ret || support.disconnectedMatch || + + // As well, disconnected nodes are said to be in a document + // fragment in IE 9 + elem.document && elem.document.nodeType !== 11 ) { + return ret; + } + } catch ( e ) { + nonnativeSelectorCache( expr, true ); + } + } + + return Sizzle( expr, document, null, [ elem ] ).length > 0; +}; + +Sizzle.contains = function( context, elem ) { + + // Set document vars if needed + // Support: IE 11+, Edge 17 - 18+ + // IE/Edge sometimes throw a "Permission denied" error when strict-comparing + // two documents; shallow comparisons work. + // eslint-disable-next-line eqeqeq + if ( ( context.ownerDocument || context ) != document ) { + setDocument( context ); + } + return contains( context, elem ); +}; + +Sizzle.attr = function( elem, name ) { + + // Set document vars if needed + // Support: IE 11+, Edge 17 - 18+ + // IE/Edge sometimes throw a "Permission denied" error when strict-comparing + // two documents; shallow comparisons work. + // eslint-disable-next-line eqeqeq + if ( ( elem.ownerDocument || elem ) != document ) { + setDocument( elem ); + } + + var fn = Expr.attrHandle[ name.toLowerCase() ], + + // Don't get fooled by Object.prototype properties (jQuery #13807) + val = fn && hasOwn.call( Expr.attrHandle, name.toLowerCase() ) ? + fn( elem, name, !documentIsHTML ) : + undefined; + + return val !== undefined ? + val : + support.attributes || !documentIsHTML ? + elem.getAttribute( name ) : + ( val = elem.getAttributeNode( name ) ) && val.specified ? + val.value : + null; +}; + +Sizzle.escape = function( sel ) { + return ( sel + "" ).replace( rcssescape, fcssescape ); +}; + +Sizzle.error = function( msg ) { + throw new Error( "Syntax error, unrecognized expression: " + msg ); +}; + +/** + * Document sorting and removing duplicates + * @param {ArrayLike} results + */ +Sizzle.uniqueSort = function( results ) { + var elem, + duplicates = [], + j = 0, + i = 0; + + // Unless we *know* we can detect duplicates, assume their presence + hasDuplicate = !support.detectDuplicates; + sortInput = !support.sortStable && results.slice( 0 ); + results.sort( sortOrder ); + + if ( hasDuplicate ) { + while ( ( elem = results[ i++ ] ) ) { + if ( elem === results[ i ] ) { + j = duplicates.push( i ); + } + } + while ( j-- ) { + results.splice( duplicates[ j ], 1 ); + } + } + + // Clear input after sorting to release objects + // See https://github.com/jquery/sizzle/pull/225 + sortInput = null; + + return results; +}; + +/** + * Utility function for retrieving the text value of an array of DOM nodes + * @param {Array|Element} elem + */ +getText = Sizzle.getText = function( elem ) { + var node, + ret = "", + i = 0, + nodeType = elem.nodeType; + + if ( !nodeType ) { + + // If no nodeType, this is expected to be an array + while ( ( node = elem[ i++ ] ) ) { + + // Do not traverse comment nodes + ret += getText( node ); + } + } else if ( nodeType === 1 || nodeType === 9 || nodeType === 11 ) { + + // Use textContent for elements + // innerText usage removed for consistency of new lines (jQuery #11153) + if ( typeof elem.textContent === "string" ) { + return elem.textContent; + } else { + + // Traverse its children + for ( elem = elem.firstChild; elem; elem = elem.nextSibling ) { + ret += getText( elem ); + } + } + } else if ( nodeType === 3 || nodeType === 4 ) { + return elem.nodeValue; + } + + // Do not include comment or processing instruction nodes + + return ret; +}; + +Expr = Sizzle.selectors = { + + // Can be adjusted by the user + cacheLength: 50, + + createPseudo: markFunction, + + match: matchExpr, + + attrHandle: {}, + + find: {}, + + relative: { + ">": { dir: "parentNode", first: true }, + " ": { dir: "parentNode" }, + "+": { dir: "previousSibling", first: true }, + "~": { dir: "previousSibling" } + }, + + preFilter: { + "ATTR": function( match ) { + match[ 1 ] = match[ 1 ].replace( runescape, funescape ); + + // Move the given value to match[3] whether quoted or unquoted + match[ 3 ] = ( match[ 3 ] || match[ 4 ] || + match[ 5 ] || "" ).replace( runescape, funescape ); + + if ( match[ 2 ] === "~=" ) { + match[ 3 ] = " " + match[ 3 ] + " "; + } + + return match.slice( 0, 4 ); + }, + + "CHILD": function( match ) { + + /* matches from matchExpr["CHILD"] + 1 type (only|nth|...) + 2 what (child|of-type) + 3 argument (even|odd|\d*|\d*n([+-]\d+)?|...) + 4 xn-component of xn+y argument ([+-]?\d*n|) + 5 sign of xn-component + 6 x of xn-component + 7 sign of y-component + 8 y of y-component + */ + match[ 1 ] = match[ 1 ].toLowerCase(); + + if ( match[ 1 ].slice( 0, 3 ) === "nth" ) { + + // nth-* requires argument + if ( !match[ 3 ] ) { + Sizzle.error( match[ 0 ] ); + } + + // numeric x and y parameters for Expr.filter.CHILD + // remember that false/true cast respectively to 0/1 + match[ 4 ] = +( match[ 4 ] ? + match[ 5 ] + ( match[ 6 ] || 1 ) : + 2 * ( match[ 3 ] === "even" || match[ 3 ] === "odd" ) ); + match[ 5 ] = +( ( match[ 7 ] + match[ 8 ] ) || match[ 3 ] === "odd" ); + + // other types prohibit arguments + } else if ( match[ 3 ] ) { + Sizzle.error( match[ 0 ] ); + } + + return match; + }, + + "PSEUDO": function( match ) { + var excess, + unquoted = !match[ 6 ] && match[ 2 ]; + + if ( matchExpr[ "CHILD" ].test( match[ 0 ] ) ) { + return null; + } + + // Accept quoted arguments as-is + if ( match[ 3 ] ) { + match[ 2 ] = match[ 4 ] || match[ 5 ] || ""; + + // Strip excess characters from unquoted arguments + } else if ( unquoted && rpseudo.test( unquoted ) && + + // Get excess from tokenize (recursively) + ( excess = tokenize( unquoted, true ) ) && + + // advance to the next closing parenthesis + ( excess = unquoted.indexOf( ")", unquoted.length - excess ) - unquoted.length ) ) { + + // excess is a negative index + match[ 0 ] = match[ 0 ].slice( 0, excess ); + match[ 2 ] = unquoted.slice( 0, excess ); + } + + // Return only captures needed by the pseudo filter method (type and argument) + return match.slice( 0, 3 ); + } + }, + + filter: { + + "TAG": function( nodeNameSelector ) { + var nodeName = nodeNameSelector.replace( runescape, funescape ).toLowerCase(); + return nodeNameSelector === "*" ? + function() { + return true; + } : + function( elem ) { + return elem.nodeName && elem.nodeName.toLowerCase() === nodeName; + }; + }, + + "CLASS": function( className ) { + var pattern = classCache[ className + " " ]; + + return pattern || + ( pattern = new RegExp( "(^|" + whitespace + + ")" + className + "(" + whitespace + "|$)" ) ) && classCache( + className, function( elem ) { + return pattern.test( + typeof elem.className === "string" && elem.className || + typeof elem.getAttribute !== "undefined" && + elem.getAttribute( "class" ) || + "" + ); + } ); + }, + + "ATTR": function( name, operator, check ) { + return function( elem ) { + var result = Sizzle.attr( elem, name ); + + if ( result == null ) { + return operator === "!="; + } + if ( !operator ) { + return true; + } + + result += ""; + + /* eslint-disable max-len */ + + return operator === "=" ? result === check : + operator === "!=" ? result !== check : + operator === "^=" ? check && result.indexOf( check ) === 0 : + operator === "*=" ? check && result.indexOf( check ) > -1 : + operator === "$=" ? check && result.slice( -check.length ) === check : + operator === "~=" ? ( " " + result.replace( rwhitespace, " " ) + " " ).indexOf( check ) > -1 : + operator === "|=" ? result === check || result.slice( 0, check.length + 1 ) === check + "-" : + false; + /* eslint-enable max-len */ + + }; + }, + + "CHILD": function( type, what, _argument, first, last ) { + var simple = type.slice( 0, 3 ) !== "nth", + forward = type.slice( -4 ) !== "last", + ofType = what === "of-type"; + + return first === 1 && last === 0 ? + + // Shortcut for :nth-*(n) + function( elem ) { + return !!elem.parentNode; + } : + + function( elem, _context, xml ) { + var cache, uniqueCache, outerCache, node, nodeIndex, start, + dir = simple !== forward ? "nextSibling" : "previousSibling", + parent = elem.parentNode, + name = ofType && elem.nodeName.toLowerCase(), + useCache = !xml && !ofType, + diff = false; + + if ( parent ) { + + // :(first|last|only)-(child|of-type) + if ( simple ) { + while ( dir ) { + node = elem; + while ( ( node = node[ dir ] ) ) { + if ( ofType ? + node.nodeName.toLowerCase() === name : + node.nodeType === 1 ) { + + return false; + } + } + + // Reverse direction for :only-* (if we haven't yet done so) + start = dir = type === "only" && !start && "nextSibling"; + } + return true; + } + + start = [ forward ? parent.firstChild : parent.lastChild ]; + + // non-xml :nth-child(...) stores cache data on `parent` + if ( forward && useCache ) { + + // Seek `elem` from a previously-cached index + + // ...in a gzip-friendly way + node = parent; + outerCache = node[ expando ] || ( node[ expando ] = {} ); + + // Support: IE <9 only + // Defend against cloned attroperties (jQuery gh-1709) + uniqueCache = outerCache[ node.uniqueID ] || + ( outerCache[ node.uniqueID ] = {} ); + + cache = uniqueCache[ type ] || []; + nodeIndex = cache[ 0 ] === dirruns && cache[ 1 ]; + diff = nodeIndex && cache[ 2 ]; + node = nodeIndex && parent.childNodes[ nodeIndex ]; + + while ( ( node = ++nodeIndex && node && node[ dir ] || + + // Fallback to seeking `elem` from the start + ( diff = nodeIndex = 0 ) || start.pop() ) ) { + + // When found, cache indexes on `parent` and break + if ( node.nodeType === 1 && ++diff && node === elem ) { + uniqueCache[ type ] = [ dirruns, nodeIndex, diff ]; + break; + } + } + + } else { + + // Use previously-cached element index if available + if ( useCache ) { + + // ...in a gzip-friendly way + node = elem; + outerCache = node[ expando ] || ( node[ expando ] = {} ); + + // Support: IE <9 only + // Defend against cloned attroperties (jQuery gh-1709) + uniqueCache = outerCache[ node.uniqueID ] || + ( outerCache[ node.uniqueID ] = {} ); + + cache = uniqueCache[ type ] || []; + nodeIndex = cache[ 0 ] === dirruns && cache[ 1 ]; + diff = nodeIndex; + } + + // xml :nth-child(...) + // or :nth-last-child(...) or :nth(-last)?-of-type(...) + if ( diff === false ) { + + // Use the same loop as above to seek `elem` from the start + while ( ( node = ++nodeIndex && node && node[ dir ] || + ( diff = nodeIndex = 0 ) || start.pop() ) ) { + + if ( ( ofType ? + node.nodeName.toLowerCase() === name : + node.nodeType === 1 ) && + ++diff ) { + + // Cache the index of each encountered element + if ( useCache ) { + outerCache = node[ expando ] || + ( node[ expando ] = {} ); + + // Support: IE <9 only + // Defend against cloned attroperties (jQuery gh-1709) + uniqueCache = outerCache[ node.uniqueID ] || + ( outerCache[ node.uniqueID ] = {} ); + + uniqueCache[ type ] = [ dirruns, diff ]; + } + + if ( node === elem ) { + break; + } + } + } + } + } + + // Incorporate the offset, then check against cycle size + diff -= last; + return diff === first || ( diff % first === 0 && diff / first >= 0 ); + } + }; + }, + + "PSEUDO": function( pseudo, argument ) { + + // pseudo-class names are case-insensitive + // http://www.w3.org/TR/selectors/#pseudo-classes + // Prioritize by case sensitivity in case custom pseudos are added with uppercase letters + // Remember that setFilters inherits from pseudos + var args, + fn = Expr.pseudos[ pseudo ] || Expr.setFilters[ pseudo.toLowerCase() ] || + Sizzle.error( "unsupported pseudo: " + pseudo ); + + // The user may use createPseudo to indicate that + // arguments are needed to create the filter function + // just as Sizzle does + if ( fn[ expando ] ) { + return fn( argument ); + } + + // But maintain support for old signatures + if ( fn.length > 1 ) { + args = [ pseudo, pseudo, "", argument ]; + return Expr.setFilters.hasOwnProperty( pseudo.toLowerCase() ) ? + markFunction( function( seed, matches ) { + var idx, + matched = fn( seed, argument ), + i = matched.length; + while ( i-- ) { + idx = indexOf( seed, matched[ i ] ); + seed[ idx ] = !( matches[ idx ] = matched[ i ] ); + } + } ) : + function( elem ) { + return fn( elem, 0, args ); + }; + } + + return fn; + } + }, + + pseudos: { + + // Potentially complex pseudos + "not": markFunction( function( selector ) { + + // Trim the selector passed to compile + // to avoid treating leading and trailing + // spaces as combinators + var input = [], + results = [], + matcher = compile( selector.replace( rtrim, "$1" ) ); + + return matcher[ expando ] ? + markFunction( function( seed, matches, _context, xml ) { + var elem, + unmatched = matcher( seed, null, xml, [] ), + i = seed.length; + + // Match elements unmatched by `matcher` + while ( i-- ) { + if ( ( elem = unmatched[ i ] ) ) { + seed[ i ] = !( matches[ i ] = elem ); + } + } + } ) : + function( elem, _context, xml ) { + input[ 0 ] = elem; + matcher( input, null, xml, results ); + + // Don't keep the element (issue #299) + input[ 0 ] = null; + return !results.pop(); + }; + } ), + + "has": markFunction( function( selector ) { + return function( elem ) { + return Sizzle( selector, elem ).length > 0; + }; + } ), + + "contains": markFunction( function( text ) { + text = text.replace( runescape, funescape ); + return function( elem ) { + return ( elem.textContent || getText( elem ) ).indexOf( text ) > -1; + }; + } ), + + // "Whether an element is represented by a :lang() selector + // is based solely on the element's language value + // being equal to the identifier C, + // or beginning with the identifier C immediately followed by "-". + // The matching of C against the element's language value is performed case-insensitively. + // The identifier C does not have to be a valid language name." + // http://www.w3.org/TR/selectors/#lang-pseudo + "lang": markFunction( function( lang ) { + + // lang value must be a valid identifier + if ( !ridentifier.test( lang || "" ) ) { + Sizzle.error( "unsupported lang: " + lang ); + } + lang = lang.replace( runescape, funescape ).toLowerCase(); + return function( elem ) { + var elemLang; + do { + if ( ( elemLang = documentIsHTML ? + elem.lang : + elem.getAttribute( "xml:lang" ) || elem.getAttribute( "lang" ) ) ) { + + elemLang = elemLang.toLowerCase(); + return elemLang === lang || elemLang.indexOf( lang + "-" ) === 0; + } + } while ( ( elem = elem.parentNode ) && elem.nodeType === 1 ); + return false; + }; + } ), + + // Miscellaneous + "target": function( elem ) { + var hash = window.location && window.location.hash; + return hash && hash.slice( 1 ) === elem.id; + }, + + "root": function( elem ) { + return elem === docElem; + }, + + "focus": function( elem ) { + return elem === document.activeElement && + ( !document.hasFocus || document.hasFocus() ) && + !!( elem.type || elem.href || ~elem.tabIndex ); + }, + + // Boolean properties + "enabled": createDisabledPseudo( false ), + "disabled": createDisabledPseudo( true ), + + "checked": function( elem ) { + + // In CSS3, :checked should return both checked and selected elements + // http://www.w3.org/TR/2011/REC-css3-selectors-20110929/#checked + var nodeName = elem.nodeName.toLowerCase(); + return ( nodeName === "input" && !!elem.checked ) || + ( nodeName === "option" && !!elem.selected ); + }, + + "selected": function( elem ) { + + // Accessing this property makes selected-by-default + // options in Safari work properly + if ( elem.parentNode ) { + // eslint-disable-next-line no-unused-expressions + elem.parentNode.selectedIndex; + } + + return elem.selected === true; + }, + + // Contents + "empty": function( elem ) { + + // http://www.w3.org/TR/selectors/#empty-pseudo + // :empty is negated by element (1) or content nodes (text: 3; cdata: 4; entity ref: 5), + // but not by others (comment: 8; processing instruction: 7; etc.) + // nodeType < 6 works because attributes (2) do not appear as children + for ( elem = elem.firstChild; elem; elem = elem.nextSibling ) { + if ( elem.nodeType < 6 ) { + return false; + } + } + return true; + }, + + "parent": function( elem ) { + return !Expr.pseudos[ "empty" ]( elem ); + }, + + // Element/input types + "header": function( elem ) { + return rheader.test( elem.nodeName ); + }, + + "input": function( elem ) { + return rinputs.test( elem.nodeName ); + }, + + "button": function( elem ) { + var name = elem.nodeName.toLowerCase(); + return name === "input" && elem.type === "button" || name === "button"; + }, + + "text": function( elem ) { + var attr; + return elem.nodeName.toLowerCase() === "input" && + elem.type === "text" && + + // Support: IE<8 + // New HTML5 attribute values (e.g., "search") appear with elem.type === "text" + ( ( attr = elem.getAttribute( "type" ) ) == null || + attr.toLowerCase() === "text" ); + }, + + // Position-in-collection + "first": createPositionalPseudo( function() { + return [ 0 ]; + } ), + + "last": createPositionalPseudo( function( _matchIndexes, length ) { + return [ length - 1 ]; + } ), + + "eq": createPositionalPseudo( function( _matchIndexes, length, argument ) { + return [ argument < 0 ? argument + length : argument ]; + } ), + + "even": createPositionalPseudo( function( matchIndexes, length ) { + var i = 0; + for ( ; i < length; i += 2 ) { + matchIndexes.push( i ); + } + return matchIndexes; + } ), + + "odd": createPositionalPseudo( function( matchIndexes, length ) { + var i = 1; + for ( ; i < length; i += 2 ) { + matchIndexes.push( i ); + } + return matchIndexes; + } ), + + "lt": createPositionalPseudo( function( matchIndexes, length, argument ) { + var i = argument < 0 ? + argument + length : + argument > length ? + length : + argument; + for ( ; --i >= 0; ) { + matchIndexes.push( i ); + } + return matchIndexes; + } ), + + "gt": createPositionalPseudo( function( matchIndexes, length, argument ) { + var i = argument < 0 ? argument + length : argument; + for ( ; ++i < length; ) { + matchIndexes.push( i ); + } + return matchIndexes; + } ) + } +}; + +Expr.pseudos[ "nth" ] = Expr.pseudos[ "eq" ]; + +// Add button/input type pseudos +for ( i in { radio: true, checkbox: true, file: true, password: true, image: true } ) { + Expr.pseudos[ i ] = createInputPseudo( i ); +} +for ( i in { submit: true, reset: true } ) { + Expr.pseudos[ i ] = createButtonPseudo( i ); +} + +// Easy API for creating new setFilters +function setFilters() {} +setFilters.prototype = Expr.filters = Expr.pseudos; +Expr.setFilters = new setFilters(); + +tokenize = Sizzle.tokenize = function( selector, parseOnly ) { + var matched, match, tokens, type, + soFar, groups, preFilters, + cached = tokenCache[ selector + " " ]; + + if ( cached ) { + return parseOnly ? 0 : cached.slice( 0 ); + } + + soFar = selector; + groups = []; + preFilters = Expr.preFilter; + + while ( soFar ) { + + // Comma and first run + if ( !matched || ( match = rcomma.exec( soFar ) ) ) { + if ( match ) { + + // Don't consume trailing commas as valid + soFar = soFar.slice( match[ 0 ].length ) || soFar; + } + groups.push( ( tokens = [] ) ); + } + + matched = false; + + // Combinators + if ( ( match = rcombinators.exec( soFar ) ) ) { + matched = match.shift(); + tokens.push( { + value: matched, + + // Cast descendant combinators to space + type: match[ 0 ].replace( rtrim, " " ) + } ); + soFar = soFar.slice( matched.length ); + } + + // Filters + for ( type in Expr.filter ) { + if ( ( match = matchExpr[ type ].exec( soFar ) ) && ( !preFilters[ type ] || + ( match = preFilters[ type ]( match ) ) ) ) { + matched = match.shift(); + tokens.push( { + value: matched, + type: type, + matches: match + } ); + soFar = soFar.slice( matched.length ); + } + } + + if ( !matched ) { + break; + } + } + + // Return the length of the invalid excess + // if we're just parsing + // Otherwise, throw an error or return tokens + return parseOnly ? + soFar.length : + soFar ? + Sizzle.error( selector ) : + + // Cache the tokens + tokenCache( selector, groups ).slice( 0 ); +}; + +function toSelector( tokens ) { + var i = 0, + len = tokens.length, + selector = ""; + for ( ; i < len; i++ ) { + selector += tokens[ i ].value; + } + return selector; +} + +function addCombinator( matcher, combinator, base ) { + var dir = combinator.dir, + skip = combinator.next, + key = skip || dir, + checkNonElements = base && key === "parentNode", + doneName = done++; + + return combinator.first ? + + // Check against closest ancestor/preceding element + function( elem, context, xml ) { + while ( ( elem = elem[ dir ] ) ) { + if ( elem.nodeType === 1 || checkNonElements ) { + return matcher( elem, context, xml ); + } + } + return false; + } : + + // Check against all ancestor/preceding elements + function( elem, context, xml ) { + var oldCache, uniqueCache, outerCache, + newCache = [ dirruns, doneName ]; + + // We can't set arbitrary data on XML nodes, so they don't benefit from combinator caching + if ( xml ) { + while ( ( elem = elem[ dir ] ) ) { + if ( elem.nodeType === 1 || checkNonElements ) { + if ( matcher( elem, context, xml ) ) { + return true; + } + } + } + } else { + while ( ( elem = elem[ dir ] ) ) { + if ( elem.nodeType === 1 || checkNonElements ) { + outerCache = elem[ expando ] || ( elem[ expando ] = {} ); + + // Support: IE <9 only + // Defend against cloned attroperties (jQuery gh-1709) + uniqueCache = outerCache[ elem.uniqueID ] || + ( outerCache[ elem.uniqueID ] = {} ); + + if ( skip && skip === elem.nodeName.toLowerCase() ) { + elem = elem[ dir ] || elem; + } else if ( ( oldCache = uniqueCache[ key ] ) && + oldCache[ 0 ] === dirruns && oldCache[ 1 ] === doneName ) { + + // Assign to newCache so results back-propagate to previous elements + return ( newCache[ 2 ] = oldCache[ 2 ] ); + } else { + + // Reuse newcache so results back-propagate to previous elements + uniqueCache[ key ] = newCache; + + // A match means we're done; a fail means we have to keep checking + if ( ( newCache[ 2 ] = matcher( elem, context, xml ) ) ) { + return true; + } + } + } + } + } + return false; + }; +} + +function elementMatcher( matchers ) { + return matchers.length > 1 ? + function( elem, context, xml ) { + var i = matchers.length; + while ( i-- ) { + if ( !matchers[ i ]( elem, context, xml ) ) { + return false; + } + } + return true; + } : + matchers[ 0 ]; +} + +function multipleContexts( selector, contexts, results ) { + var i = 0, + len = contexts.length; + for ( ; i < len; i++ ) { + Sizzle( selector, contexts[ i ], results ); + } + return results; +} + +function condense( unmatched, map, filter, context, xml ) { + var elem, + newUnmatched = [], + i = 0, + len = unmatched.length, + mapped = map != null; + + for ( ; i < len; i++ ) { + if ( ( elem = unmatched[ i ] ) ) { + if ( !filter || filter( elem, context, xml ) ) { + newUnmatched.push( elem ); + if ( mapped ) { + map.push( i ); + } + } + } + } + + return newUnmatched; +} + +function setMatcher( preFilter, selector, matcher, postFilter, postFinder, postSelector ) { + if ( postFilter && !postFilter[ expando ] ) { + postFilter = setMatcher( postFilter ); + } + if ( postFinder && !postFinder[ expando ] ) { + postFinder = setMatcher( postFinder, postSelector ); + } + return markFunction( function( seed, results, context, xml ) { + var temp, i, elem, + preMap = [], + postMap = [], + preexisting = results.length, + + // Get initial elements from seed or context + elems = seed || multipleContexts( + selector || "*", + context.nodeType ? [ context ] : context, + [] + ), + + // Prefilter to get matcher input, preserving a map for seed-results synchronization + matcherIn = preFilter && ( seed || !selector ) ? + condense( elems, preMap, preFilter, context, xml ) : + elems, + + matcherOut = matcher ? + + // If we have a postFinder, or filtered seed, or non-seed postFilter or preexisting results, + postFinder || ( seed ? preFilter : preexisting || postFilter ) ? + + // ...intermediate processing is necessary + [] : + + // ...otherwise use results directly + results : + matcherIn; + + // Find primary matches + if ( matcher ) { + matcher( matcherIn, matcherOut, context, xml ); + } + + // Apply postFilter + if ( postFilter ) { + temp = condense( matcherOut, postMap ); + postFilter( temp, [], context, xml ); + + // Un-match failing elements by moving them back to matcherIn + i = temp.length; + while ( i-- ) { + if ( ( elem = temp[ i ] ) ) { + matcherOut[ postMap[ i ] ] = !( matcherIn[ postMap[ i ] ] = elem ); + } + } + } + + if ( seed ) { + if ( postFinder || preFilter ) { + if ( postFinder ) { + + // Get the final matcherOut by condensing this intermediate into postFinder contexts + temp = []; + i = matcherOut.length; + while ( i-- ) { + if ( ( elem = matcherOut[ i ] ) ) { + + // Restore matcherIn since elem is not yet a final match + temp.push( ( matcherIn[ i ] = elem ) ); + } + } + postFinder( null, ( matcherOut = [] ), temp, xml ); + } + + // Move matched elements from seed to results to keep them synchronized + i = matcherOut.length; + while ( i-- ) { + if ( ( elem = matcherOut[ i ] ) && + ( temp = postFinder ? indexOf( seed, elem ) : preMap[ i ] ) > -1 ) { + + seed[ temp ] = !( results[ temp ] = elem ); + } + } + } + + // Add elements to results, through postFinder if defined + } else { + matcherOut = condense( + matcherOut === results ? + matcherOut.splice( preexisting, matcherOut.length ) : + matcherOut + ); + if ( postFinder ) { + postFinder( null, results, matcherOut, xml ); + } else { + push.apply( results, matcherOut ); + } + } + } ); +} + +function matcherFromTokens( tokens ) { + var checkContext, matcher, j, + len = tokens.length, + leadingRelative = Expr.relative[ tokens[ 0 ].type ], + implicitRelative = leadingRelative || Expr.relative[ " " ], + i = leadingRelative ? 1 : 0, + + // The foundational matcher ensures that elements are reachable from top-level context(s) + matchContext = addCombinator( function( elem ) { + return elem === checkContext; + }, implicitRelative, true ), + matchAnyContext = addCombinator( function( elem ) { + return indexOf( checkContext, elem ) > -1; + }, implicitRelative, true ), + matchers = [ function( elem, context, xml ) { + var ret = ( !leadingRelative && ( xml || context !== outermostContext ) ) || ( + ( checkContext = context ).nodeType ? + matchContext( elem, context, xml ) : + matchAnyContext( elem, context, xml ) ); + + // Avoid hanging onto element (issue #299) + checkContext = null; + return ret; + } ]; + + for ( ; i < len; i++ ) { + if ( ( matcher = Expr.relative[ tokens[ i ].type ] ) ) { + matchers = [ addCombinator( elementMatcher( matchers ), matcher ) ]; + } else { + matcher = Expr.filter[ tokens[ i ].type ].apply( null, tokens[ i ].matches ); + + // Return special upon seeing a positional matcher + if ( matcher[ expando ] ) { + + // Find the next relative operator (if any) for proper handling + j = ++i; + for ( ; j < len; j++ ) { + if ( Expr.relative[ tokens[ j ].type ] ) { + break; + } + } + return setMatcher( + i > 1 && elementMatcher( matchers ), + i > 1 && toSelector( + + // If the preceding token was a descendant combinator, insert an implicit any-element `*` + tokens + .slice( 0, i - 1 ) + .concat( { value: tokens[ i - 2 ].type === " " ? "*" : "" } ) + ).replace( rtrim, "$1" ), + matcher, + i < j && matcherFromTokens( tokens.slice( i, j ) ), + j < len && matcherFromTokens( ( tokens = tokens.slice( j ) ) ), + j < len && toSelector( tokens ) + ); + } + matchers.push( matcher ); + } + } + + return elementMatcher( matchers ); +} + +function matcherFromGroupMatchers( elementMatchers, setMatchers ) { + var bySet = setMatchers.length > 0, + byElement = elementMatchers.length > 0, + superMatcher = function( seed, context, xml, results, outermost ) { + var elem, j, matcher, + matchedCount = 0, + i = "0", + unmatched = seed && [], + setMatched = [], + contextBackup = outermostContext, + + // We must always have either seed elements or outermost context + elems = seed || byElement && Expr.find[ "TAG" ]( "*", outermost ), + + // Use integer dirruns iff this is the outermost matcher + dirrunsUnique = ( dirruns += contextBackup == null ? 1 : Math.random() || 0.1 ), + len = elems.length; + + if ( outermost ) { + + // Support: IE 11+, Edge 17 - 18+ + // IE/Edge sometimes throw a "Permission denied" error when strict-comparing + // two documents; shallow comparisons work. + // eslint-disable-next-line eqeqeq + outermostContext = context == document || context || outermost; + } + + // Add elements passing elementMatchers directly to results + // Support: IE<9, Safari + // Tolerate NodeList properties (IE: "length"; Safari: ) matching elements by id + for ( ; i !== len && ( elem = elems[ i ] ) != null; i++ ) { + if ( byElement && elem ) { + j = 0; + + // Support: IE 11+, Edge 17 - 18+ + // IE/Edge sometimes throw a "Permission denied" error when strict-comparing + // two documents; shallow comparisons work. + // eslint-disable-next-line eqeqeq + if ( !context && elem.ownerDocument != document ) { + setDocument( elem ); + xml = !documentIsHTML; + } + while ( ( matcher = elementMatchers[ j++ ] ) ) { + if ( matcher( elem, context || document, xml ) ) { + results.push( elem ); + break; + } + } + if ( outermost ) { + dirruns = dirrunsUnique; + } + } + + // Track unmatched elements for set filters + if ( bySet ) { + + // They will have gone through all possible matchers + if ( ( elem = !matcher && elem ) ) { + matchedCount--; + } + + // Lengthen the array for every element, matched or not + if ( seed ) { + unmatched.push( elem ); + } + } + } + + // `i` is now the count of elements visited above, and adding it to `matchedCount` + // makes the latter nonnegative. + matchedCount += i; + + // Apply set filters to unmatched elements + // NOTE: This can be skipped if there are no unmatched elements (i.e., `matchedCount` + // equals `i`), unless we didn't visit _any_ elements in the above loop because we have + // no element matchers and no seed. + // Incrementing an initially-string "0" `i` allows `i` to remain a string only in that + // case, which will result in a "00" `matchedCount` that differs from `i` but is also + // numerically zero. + if ( bySet && i !== matchedCount ) { + j = 0; + while ( ( matcher = setMatchers[ j++ ] ) ) { + matcher( unmatched, setMatched, context, xml ); + } + + if ( seed ) { + + // Reintegrate element matches to eliminate the need for sorting + if ( matchedCount > 0 ) { + while ( i-- ) { + if ( !( unmatched[ i ] || setMatched[ i ] ) ) { + setMatched[ i ] = pop.call( results ); + } + } + } + + // Discard index placeholder values to get only actual matches + setMatched = condense( setMatched ); + } + + // Add matches to results + push.apply( results, setMatched ); + + // Seedless set matches succeeding multiple successful matchers stipulate sorting + if ( outermost && !seed && setMatched.length > 0 && + ( matchedCount + setMatchers.length ) > 1 ) { + + Sizzle.uniqueSort( results ); + } + } + + // Override manipulation of globals by nested matchers + if ( outermost ) { + dirruns = dirrunsUnique; + outermostContext = contextBackup; + } + + return unmatched; + }; + + return bySet ? + markFunction( superMatcher ) : + superMatcher; +} + +compile = Sizzle.compile = function( selector, match /* Internal Use Only */ ) { + var i, + setMatchers = [], + elementMatchers = [], + cached = compilerCache[ selector + " " ]; + + if ( !cached ) { + + // Generate a function of recursive functions that can be used to check each element + if ( !match ) { + match = tokenize( selector ); + } + i = match.length; + while ( i-- ) { + cached = matcherFromTokens( match[ i ] ); + if ( cached[ expando ] ) { + setMatchers.push( cached ); + } else { + elementMatchers.push( cached ); + } + } + + // Cache the compiled function + cached = compilerCache( + selector, + matcherFromGroupMatchers( elementMatchers, setMatchers ) + ); + + // Save selector and tokenization + cached.selector = selector; + } + return cached; +}; + +/** + * A low-level selection function that works with Sizzle's compiled + * selector functions + * @param {String|Function} selector A selector or a pre-compiled + * selector function built with Sizzle.compile + * @param {Element} context + * @param {Array} [results] + * @param {Array} [seed] A set of elements to match against + */ +select = Sizzle.select = function( selector, context, results, seed ) { + var i, tokens, token, type, find, + compiled = typeof selector === "function" && selector, + match = !seed && tokenize( ( selector = compiled.selector || selector ) ); + + results = results || []; + + // Try to minimize operations if there is only one selector in the list and no seed + // (the latter of which guarantees us context) + if ( match.length === 1 ) { + + // Reduce context if the leading compound selector is an ID + tokens = match[ 0 ] = match[ 0 ].slice( 0 ); + if ( tokens.length > 2 && ( token = tokens[ 0 ] ).type === "ID" && + context.nodeType === 9 && documentIsHTML && Expr.relative[ tokens[ 1 ].type ] ) { + + context = ( Expr.find[ "ID" ]( token.matches[ 0 ] + .replace( runescape, funescape ), context ) || [] )[ 0 ]; + if ( !context ) { + return results; + + // Precompiled matchers will still verify ancestry, so step up a level + } else if ( compiled ) { + context = context.parentNode; + } + + selector = selector.slice( tokens.shift().value.length ); + } + + // Fetch a seed set for right-to-left matching + i = matchExpr[ "needsContext" ].test( selector ) ? 0 : tokens.length; + while ( i-- ) { + token = tokens[ i ]; + + // Abort if we hit a combinator + if ( Expr.relative[ ( type = token.type ) ] ) { + break; + } + if ( ( find = Expr.find[ type ] ) ) { + + // Search, expanding context for leading sibling combinators + if ( ( seed = find( + token.matches[ 0 ].replace( runescape, funescape ), + rsibling.test( tokens[ 0 ].type ) && testContext( context.parentNode ) || + context + ) ) ) { + + // If seed is empty or no tokens remain, we can return early + tokens.splice( i, 1 ); + selector = seed.length && toSelector( tokens ); + if ( !selector ) { + push.apply( results, seed ); + return results; + } + + break; + } + } + } + } + + // Compile and execute a filtering function if one is not provided + // Provide `match` to avoid retokenization if we modified the selector above + ( compiled || compile( selector, match ) )( + seed, + context, + !documentIsHTML, + results, + !context || rsibling.test( selector ) && testContext( context.parentNode ) || context + ); + return results; +}; + +// One-time assignments + +// Sort stability +support.sortStable = expando.split( "" ).sort( sortOrder ).join( "" ) === expando; + +// Support: Chrome 14-35+ +// Always assume duplicates if they aren't passed to the comparison function +support.detectDuplicates = !!hasDuplicate; + +// Initialize against the default document +setDocument(); + +// Support: Webkit<537.32 - Safari 6.0.3/Chrome 25 (fixed in Chrome 27) +// Detached nodes confoundingly follow *each other* +support.sortDetached = assert( function( el ) { + + // Should return 1, but returns 4 (following) + return el.compareDocumentPosition( document.createElement( "fieldset" ) ) & 1; +} ); + +// Support: IE<8 +// Prevent attribute/property "interpolation" +// https://msdn.microsoft.com/en-us/library/ms536429%28VS.85%29.aspx +if ( !assert( function( el ) { + el.innerHTML = ""; + return el.firstChild.getAttribute( "href" ) === "#"; +} ) ) { + addHandle( "type|href|height|width", function( elem, name, isXML ) { + if ( !isXML ) { + return elem.getAttribute( name, name.toLowerCase() === "type" ? 1 : 2 ); + } + } ); +} + +// Support: IE<9 +// Use defaultValue in place of getAttribute("value") +if ( !support.attributes || !assert( function( el ) { + el.innerHTML = ""; + el.firstChild.setAttribute( "value", "" ); + return el.firstChild.getAttribute( "value" ) === ""; +} ) ) { + addHandle( "value", function( elem, _name, isXML ) { + if ( !isXML && elem.nodeName.toLowerCase() === "input" ) { + return elem.defaultValue; + } + } ); +} + +// Support: IE<9 +// Use getAttributeNode to fetch booleans when getAttribute lies +if ( !assert( function( el ) { + return el.getAttribute( "disabled" ) == null; +} ) ) { + addHandle( booleans, function( elem, name, isXML ) { + var val; + if ( !isXML ) { + return elem[ name ] === true ? name.toLowerCase() : + ( val = elem.getAttributeNode( name ) ) && val.specified ? + val.value : + null; + } + } ); +} + +return Sizzle; + +} )( window ); + + + +jQuery.find = Sizzle; +jQuery.expr = Sizzle.selectors; + +// Deprecated +jQuery.expr[ ":" ] = jQuery.expr.pseudos; +jQuery.uniqueSort = jQuery.unique = Sizzle.uniqueSort; +jQuery.text = Sizzle.getText; +jQuery.isXMLDoc = Sizzle.isXML; +jQuery.contains = Sizzle.contains; +jQuery.escapeSelector = Sizzle.escape; + + + + +var dir = function( elem, dir, until ) { + var matched = [], + truncate = until !== undefined; + + while ( ( elem = elem[ dir ] ) && elem.nodeType !== 9 ) { + if ( elem.nodeType === 1 ) { + if ( truncate && jQuery( elem ).is( until ) ) { + break; + } + matched.push( elem ); + } + } + return matched; +}; + + +var siblings = function( n, elem ) { + var matched = []; + + for ( ; n; n = n.nextSibling ) { + if ( n.nodeType === 1 && n !== elem ) { + matched.push( n ); + } + } + + return matched; +}; + + +var rneedsContext = jQuery.expr.match.needsContext; + + + +function nodeName( elem, name ) { + + return elem.nodeName && elem.nodeName.toLowerCase() === name.toLowerCase(); + +} +var rsingleTag = ( /^<([a-z][^\/\0>:\x20\t\r\n\f]*)[\x20\t\r\n\f]*\/?>(?:<\/\1>|)$/i ); + + + +// Implement the identical functionality for filter and not +function winnow( elements, qualifier, not ) { + if ( isFunction( qualifier ) ) { + return jQuery.grep( elements, function( elem, i ) { + return !!qualifier.call( elem, i, elem ) !== not; + } ); + } + + // Single element + if ( qualifier.nodeType ) { + return jQuery.grep( elements, function( elem ) { + return ( elem === qualifier ) !== not; + } ); + } + + // Arraylike of elements (jQuery, arguments, Array) + if ( typeof qualifier !== "string" ) { + return jQuery.grep( elements, function( elem ) { + return ( indexOf.call( qualifier, elem ) > -1 ) !== not; + } ); + } + + // Filtered directly for both simple and complex selectors + return jQuery.filter( qualifier, elements, not ); +} + +jQuery.filter = function( expr, elems, not ) { + var elem = elems[ 0 ]; + + if ( not ) { + expr = ":not(" + expr + ")"; + } + + if ( elems.length === 1 && elem.nodeType === 1 ) { + return jQuery.find.matchesSelector( elem, expr ) ? [ elem ] : []; + } + + return jQuery.find.matches( expr, jQuery.grep( elems, function( elem ) { + return elem.nodeType === 1; + } ) ); +}; + +jQuery.fn.extend( { + find: function( selector ) { + var i, ret, + len = this.length, + self = this; + + if ( typeof selector !== "string" ) { + return this.pushStack( jQuery( selector ).filter( function() { + for ( i = 0; i < len; i++ ) { + if ( jQuery.contains( self[ i ], this ) ) { + return true; + } + } + } ) ); + } + + ret = this.pushStack( [] ); + + for ( i = 0; i < len; i++ ) { + jQuery.find( selector, self[ i ], ret ); + } + + return len > 1 ? jQuery.uniqueSort( ret ) : ret; + }, + filter: function( selector ) { + return this.pushStack( winnow( this, selector || [], false ) ); + }, + not: function( selector ) { + return this.pushStack( winnow( this, selector || [], true ) ); + }, + is: function( selector ) { + return !!winnow( + this, + + // If this is a positional/relative selector, check membership in the returned set + // so $("p:first").is("p:last") won't return true for a doc with two "p". + typeof selector === "string" && rneedsContext.test( selector ) ? + jQuery( selector ) : + selector || [], + false + ).length; + } +} ); + + +// Initialize a jQuery object + + +// A central reference to the root jQuery(document) +var rootjQuery, + + // A simple way to check for HTML strings + // Prioritize #id over to avoid XSS via location.hash (#9521) + // Strict HTML recognition (#11290: must start with <) + // Shortcut simple #id case for speed + rquickExpr = /^(?:\s*(<[\w\W]+>)[^>]*|#([\w-]+))$/, + + init = jQuery.fn.init = function( selector, context, root ) { + var match, elem; + + // HANDLE: $(""), $(null), $(undefined), $(false) + if ( !selector ) { + return this; + } + + // Method init() accepts an alternate rootjQuery + // so migrate can support jQuery.sub (gh-2101) + root = root || rootjQuery; + + // Handle HTML strings + if ( typeof selector === "string" ) { + if ( selector[ 0 ] === "<" && + selector[ selector.length - 1 ] === ">" && + selector.length >= 3 ) { + + // Assume that strings that start and end with <> are HTML and skip the regex check + match = [ null, selector, null ]; + + } else { + match = rquickExpr.exec( selector ); + } + + // Match html or make sure no context is specified for #id + if ( match && ( match[ 1 ] || !context ) ) { + + // HANDLE: $(html) -> $(array) + if ( match[ 1 ] ) { + context = context instanceof jQuery ? context[ 0 ] : context; + + // Option to run scripts is true for back-compat + // Intentionally let the error be thrown if parseHTML is not present + jQuery.merge( this, jQuery.parseHTML( + match[ 1 ], + context && context.nodeType ? context.ownerDocument || context : document, + true + ) ); + + // HANDLE: $(html, props) + if ( rsingleTag.test( match[ 1 ] ) && jQuery.isPlainObject( context ) ) { + for ( match in context ) { + + // Properties of context are called as methods if possible + if ( isFunction( this[ match ] ) ) { + this[ match ]( context[ match ] ); + + // ...and otherwise set as attributes + } else { + this.attr( match, context[ match ] ); + } + } + } + + return this; + + // HANDLE: $(#id) + } else { + elem = document.getElementById( match[ 2 ] ); + + if ( elem ) { + + // Inject the element directly into the jQuery object + this[ 0 ] = elem; + this.length = 1; + } + return this; + } + + // HANDLE: $(expr, $(...)) + } else if ( !context || context.jquery ) { + return ( context || root ).find( selector ); + + // HANDLE: $(expr, context) + // (which is just equivalent to: $(context).find(expr) + } else { + return this.constructor( context ).find( selector ); + } + + // HANDLE: $(DOMElement) + } else if ( selector.nodeType ) { + this[ 0 ] = selector; + this.length = 1; + return this; + + // HANDLE: $(function) + // Shortcut for document ready + } else if ( isFunction( selector ) ) { + return root.ready !== undefined ? + root.ready( selector ) : + + // Execute immediately if ready is not present + selector( jQuery ); + } + + return jQuery.makeArray( selector, this ); + }; + +// Give the init function the jQuery prototype for later instantiation +init.prototype = jQuery.fn; + +// Initialize central reference +rootjQuery = jQuery( document ); + + +var rparentsprev = /^(?:parents|prev(?:Until|All))/, + + // Methods guaranteed to produce a unique set when starting from a unique set + guaranteedUnique = { + children: true, + contents: true, + next: true, + prev: true + }; + +jQuery.fn.extend( { + has: function( target ) { + var targets = jQuery( target, this ), + l = targets.length; + + return this.filter( function() { + var i = 0; + for ( ; i < l; i++ ) { + if ( jQuery.contains( this, targets[ i ] ) ) { + return true; + } + } + } ); + }, + + closest: function( selectors, context ) { + var cur, + i = 0, + l = this.length, + matched = [], + targets = typeof selectors !== "string" && jQuery( selectors ); + + // Positional selectors never match, since there's no _selection_ context + if ( !rneedsContext.test( selectors ) ) { + for ( ; i < l; i++ ) { + for ( cur = this[ i ]; cur && cur !== context; cur = cur.parentNode ) { + + // Always skip document fragments + if ( cur.nodeType < 11 && ( targets ? + targets.index( cur ) > -1 : + + // Don't pass non-elements to Sizzle + cur.nodeType === 1 && + jQuery.find.matchesSelector( cur, selectors ) ) ) { + + matched.push( cur ); + break; + } + } + } + } + + return this.pushStack( matched.length > 1 ? jQuery.uniqueSort( matched ) : matched ); + }, + + // Determine the position of an element within the set + index: function( elem ) { + + // No argument, return index in parent + if ( !elem ) { + return ( this[ 0 ] && this[ 0 ].parentNode ) ? this.first().prevAll().length : -1; + } + + // Index in selector + if ( typeof elem === "string" ) { + return indexOf.call( jQuery( elem ), this[ 0 ] ); + } + + // Locate the position of the desired element + return indexOf.call( this, + + // If it receives a jQuery object, the first element is used + elem.jquery ? elem[ 0 ] : elem + ); + }, + + add: function( selector, context ) { + return this.pushStack( + jQuery.uniqueSort( + jQuery.merge( this.get(), jQuery( selector, context ) ) + ) + ); + }, + + addBack: function( selector ) { + return this.add( selector == null ? + this.prevObject : this.prevObject.filter( selector ) + ); + } +} ); + +function sibling( cur, dir ) { + while ( ( cur = cur[ dir ] ) && cur.nodeType !== 1 ) {} + return cur; +} + +jQuery.each( { + parent: function( elem ) { + var parent = elem.parentNode; + return parent && parent.nodeType !== 11 ? parent : null; + }, + parents: function( elem ) { + return dir( elem, "parentNode" ); + }, + parentsUntil: function( elem, _i, until ) { + return dir( elem, "parentNode", until ); + }, + next: function( elem ) { + return sibling( elem, "nextSibling" ); + }, + prev: function( elem ) { + return sibling( elem, "previousSibling" ); + }, + nextAll: function( elem ) { + return dir( elem, "nextSibling" ); + }, + prevAll: function( elem ) { + return dir( elem, "previousSibling" ); + }, + nextUntil: function( elem, _i, until ) { + return dir( elem, "nextSibling", until ); + }, + prevUntil: function( elem, _i, until ) { + return dir( elem, "previousSibling", until ); + }, + siblings: function( elem ) { + return siblings( ( elem.parentNode || {} ).firstChild, elem ); + }, + children: function( elem ) { + return siblings( elem.firstChild ); + }, + contents: function( elem ) { + if ( elem.contentDocument != null && + + // Support: IE 11+ + // elements with no `data` attribute has an object + // `contentDocument` with a `null` prototype. + getProto( elem.contentDocument ) ) { + + return elem.contentDocument; + } + + // Support: IE 9 - 11 only, iOS 7 only, Android Browser <=4.3 only + // Treat the template element as a regular one in browsers that + // don't support it. + if ( nodeName( elem, "template" ) ) { + elem = elem.content || elem; + } + + return jQuery.merge( [], elem.childNodes ); + } +}, function( name, fn ) { + jQuery.fn[ name ] = function( until, selector ) { + var matched = jQuery.map( this, fn, until ); + + if ( name.slice( -5 ) !== "Until" ) { + selector = until; + } + + if ( selector && typeof selector === "string" ) { + matched = jQuery.filter( selector, matched ); + } + + if ( this.length > 1 ) { + + // Remove duplicates + if ( !guaranteedUnique[ name ] ) { + jQuery.uniqueSort( matched ); + } + + // Reverse order for parents* and prev-derivatives + if ( rparentsprev.test( name ) ) { + matched.reverse(); + } + } + + return this.pushStack( matched ); + }; +} ); +var rnothtmlwhite = ( /[^\x20\t\r\n\f]+/g ); + + + +// Convert String-formatted options into Object-formatted ones +function createOptions( options ) { + var object = {}; + jQuery.each( options.match( rnothtmlwhite ) || [], function( _, flag ) { + object[ flag ] = true; + } ); + return object; +} + +/* + * Create a callback list using the following parameters: + * + * options: an optional list of space-separated options that will change how + * the callback list behaves or a more traditional option object + * + * By default a callback list will act like an event callback list and can be + * "fired" multiple times. + * + * Possible options: + * + * once: will ensure the callback list can only be fired once (like a Deferred) + * + * memory: will keep track of previous values and will call any callback added + * after the list has been fired right away with the latest "memorized" + * values (like a Deferred) + * + * unique: will ensure a callback can only be added once (no duplicate in the list) + * + * stopOnFalse: interrupt callings when a callback returns false + * + */ +jQuery.Callbacks = function( options ) { + + // Convert options from String-formatted to Object-formatted if needed + // (we check in cache first) + options = typeof options === "string" ? + createOptions( options ) : + jQuery.extend( {}, options ); + + var // Flag to know if list is currently firing + firing, + + // Last fire value for non-forgettable lists + memory, + + // Flag to know if list was already fired + fired, + + // Flag to prevent firing + locked, + + // Actual callback list + list = [], + + // Queue of execution data for repeatable lists + queue = [], + + // Index of currently firing callback (modified by add/remove as needed) + firingIndex = -1, + + // Fire callbacks + fire = function() { + + // Enforce single-firing + locked = locked || options.once; + + // Execute callbacks for all pending executions, + // respecting firingIndex overrides and runtime changes + fired = firing = true; + for ( ; queue.length; firingIndex = -1 ) { + memory = queue.shift(); + while ( ++firingIndex < list.length ) { + + // Run callback and check for early termination + if ( list[ firingIndex ].apply( memory[ 0 ], memory[ 1 ] ) === false && + options.stopOnFalse ) { + + // Jump to end and forget the data so .add doesn't re-fire + firingIndex = list.length; + memory = false; + } + } + } + + // Forget the data if we're done with it + if ( !options.memory ) { + memory = false; + } + + firing = false; + + // Clean up if we're done firing for good + if ( locked ) { + + // Keep an empty list if we have data for future add calls + if ( memory ) { + list = []; + + // Otherwise, this object is spent + } else { + list = ""; + } + } + }, + + // Actual Callbacks object + self = { + + // Add a callback or a collection of callbacks to the list + add: function() { + if ( list ) { + + // If we have memory from a past run, we should fire after adding + if ( memory && !firing ) { + firingIndex = list.length - 1; + queue.push( memory ); + } + + ( function add( args ) { + jQuery.each( args, function( _, arg ) { + if ( isFunction( arg ) ) { + if ( !options.unique || !self.has( arg ) ) { + list.push( arg ); + } + } else if ( arg && arg.length && toType( arg ) !== "string" ) { + + // Inspect recursively + add( arg ); + } + } ); + } )( arguments ); + + if ( memory && !firing ) { + fire(); + } + } + return this; + }, + + // Remove a callback from the list + remove: function() { + jQuery.each( arguments, function( _, arg ) { + var index; + while ( ( index = jQuery.inArray( arg, list, index ) ) > -1 ) { + list.splice( index, 1 ); + + // Handle firing indexes + if ( index <= firingIndex ) { + firingIndex--; + } + } + } ); + return this; + }, + + // Check if a given callback is in the list. + // If no argument is given, return whether or not list has callbacks attached. + has: function( fn ) { + return fn ? + jQuery.inArray( fn, list ) > -1 : + list.length > 0; + }, + + // Remove all callbacks from the list + empty: function() { + if ( list ) { + list = []; + } + return this; + }, + + // Disable .fire and .add + // Abort any current/pending executions + // Clear all callbacks and values + disable: function() { + locked = queue = []; + list = memory = ""; + return this; + }, + disabled: function() { + return !list; + }, + + // Disable .fire + // Also disable .add unless we have memory (since it would have no effect) + // Abort any pending executions + lock: function() { + locked = queue = []; + if ( !memory && !firing ) { + list = memory = ""; + } + return this; + }, + locked: function() { + return !!locked; + }, + + // Call all callbacks with the given context and arguments + fireWith: function( context, args ) { + if ( !locked ) { + args = args || []; + args = [ context, args.slice ? args.slice() : args ]; + queue.push( args ); + if ( !firing ) { + fire(); + } + } + return this; + }, + + // Call all the callbacks with the given arguments + fire: function() { + self.fireWith( this, arguments ); + return this; + }, + + // To know if the callbacks have already been called at least once + fired: function() { + return !!fired; + } + }; + + return self; +}; + + +function Identity( v ) { + return v; +} +function Thrower( ex ) { + throw ex; +} + +function adoptValue( value, resolve, reject, noValue ) { + var method; + + try { + + // Check for promise aspect first to privilege synchronous behavior + if ( value && isFunction( ( method = value.promise ) ) ) { + method.call( value ).done( resolve ).fail( reject ); + + // Other thenables + } else if ( value && isFunction( ( method = value.then ) ) ) { + method.call( value, resolve, reject ); + + // Other non-thenables + } else { + + // Control `resolve` arguments by letting Array#slice cast boolean `noValue` to integer: + // * false: [ value ].slice( 0 ) => resolve( value ) + // * true: [ value ].slice( 1 ) => resolve() + resolve.apply( undefined, [ value ].slice( noValue ) ); + } + + // For Promises/A+, convert exceptions into rejections + // Since jQuery.when doesn't unwrap thenables, we can skip the extra checks appearing in + // Deferred#then to conditionally suppress rejection. + } catch ( value ) { + + // Support: Android 4.0 only + // Strict mode functions invoked without .call/.apply get global-object context + reject.apply( undefined, [ value ] ); + } +} + +jQuery.extend( { + + Deferred: function( func ) { + var tuples = [ + + // action, add listener, callbacks, + // ... .then handlers, argument index, [final state] + [ "notify", "progress", jQuery.Callbacks( "memory" ), + jQuery.Callbacks( "memory" ), 2 ], + [ "resolve", "done", jQuery.Callbacks( "once memory" ), + jQuery.Callbacks( "once memory" ), 0, "resolved" ], + [ "reject", "fail", jQuery.Callbacks( "once memory" ), + jQuery.Callbacks( "once memory" ), 1, "rejected" ] + ], + state = "pending", + promise = { + state: function() { + return state; + }, + always: function() { + deferred.done( arguments ).fail( arguments ); + return this; + }, + "catch": function( fn ) { + return promise.then( null, fn ); + }, + + // Keep pipe for back-compat + pipe: function( /* fnDone, fnFail, fnProgress */ ) { + var fns = arguments; + + return jQuery.Deferred( function( newDefer ) { + jQuery.each( tuples, function( _i, tuple ) { + + // Map tuples (progress, done, fail) to arguments (done, fail, progress) + var fn = isFunction( fns[ tuple[ 4 ] ] ) && fns[ tuple[ 4 ] ]; + + // deferred.progress(function() { bind to newDefer or newDefer.notify }) + // deferred.done(function() { bind to newDefer or newDefer.resolve }) + // deferred.fail(function() { bind to newDefer or newDefer.reject }) + deferred[ tuple[ 1 ] ]( function() { + var returned = fn && fn.apply( this, arguments ); + if ( returned && isFunction( returned.promise ) ) { + returned.promise() + .progress( newDefer.notify ) + .done( newDefer.resolve ) + .fail( newDefer.reject ); + } else { + newDefer[ tuple[ 0 ] + "With" ]( + this, + fn ? [ returned ] : arguments + ); + } + } ); + } ); + fns = null; + } ).promise(); + }, + then: function( onFulfilled, onRejected, onProgress ) { + var maxDepth = 0; + function resolve( depth, deferred, handler, special ) { + return function() { + var that = this, + args = arguments, + mightThrow = function() { + var returned, then; + + // Support: Promises/A+ section 2.3.3.3.3 + // https://promisesaplus.com/#point-59 + // Ignore double-resolution attempts + if ( depth < maxDepth ) { + return; + } + + returned = handler.apply( that, args ); + + // Support: Promises/A+ section 2.3.1 + // https://promisesaplus.com/#point-48 + if ( returned === deferred.promise() ) { + throw new TypeError( "Thenable self-resolution" ); + } + + // Support: Promises/A+ sections 2.3.3.1, 3.5 + // https://promisesaplus.com/#point-54 + // https://promisesaplus.com/#point-75 + // Retrieve `then` only once + then = returned && + + // Support: Promises/A+ section 2.3.4 + // https://promisesaplus.com/#point-64 + // Only check objects and functions for thenability + ( typeof returned === "object" || + typeof returned === "function" ) && + returned.then; + + // Handle a returned thenable + if ( isFunction( then ) ) { + + // Special processors (notify) just wait for resolution + if ( special ) { + then.call( + returned, + resolve( maxDepth, deferred, Identity, special ), + resolve( maxDepth, deferred, Thrower, special ) + ); + + // Normal processors (resolve) also hook into progress + } else { + + // ...and disregard older resolution values + maxDepth++; + + then.call( + returned, + resolve( maxDepth, deferred, Identity, special ), + resolve( maxDepth, deferred, Thrower, special ), + resolve( maxDepth, deferred, Identity, + deferred.notifyWith ) + ); + } + + // Handle all other returned values + } else { + + // Only substitute handlers pass on context + // and multiple values (non-spec behavior) + if ( handler !== Identity ) { + that = undefined; + args = [ returned ]; + } + + // Process the value(s) + // Default process is resolve + ( special || deferred.resolveWith )( that, args ); + } + }, + + // Only normal processors (resolve) catch and reject exceptions + process = special ? + mightThrow : + function() { + try { + mightThrow(); + } catch ( e ) { + + if ( jQuery.Deferred.exceptionHook ) { + jQuery.Deferred.exceptionHook( e, + process.stackTrace ); + } + + // Support: Promises/A+ section 2.3.3.3.4.1 + // https://promisesaplus.com/#point-61 + // Ignore post-resolution exceptions + if ( depth + 1 >= maxDepth ) { + + // Only substitute handlers pass on context + // and multiple values (non-spec behavior) + if ( handler !== Thrower ) { + that = undefined; + args = [ e ]; + } + + deferred.rejectWith( that, args ); + } + } + }; + + // Support: Promises/A+ section 2.3.3.3.1 + // https://promisesaplus.com/#point-57 + // Re-resolve promises immediately to dodge false rejection from + // subsequent errors + if ( depth ) { + process(); + } else { + + // Call an optional hook to record the stack, in case of exception + // since it's otherwise lost when execution goes async + if ( jQuery.Deferred.getStackHook ) { + process.stackTrace = jQuery.Deferred.getStackHook(); + } + window.setTimeout( process ); + } + }; + } + + return jQuery.Deferred( function( newDefer ) { + + // progress_handlers.add( ... ) + tuples[ 0 ][ 3 ].add( + resolve( + 0, + newDefer, + isFunction( onProgress ) ? + onProgress : + Identity, + newDefer.notifyWith + ) + ); + + // fulfilled_handlers.add( ... ) + tuples[ 1 ][ 3 ].add( + resolve( + 0, + newDefer, + isFunction( onFulfilled ) ? + onFulfilled : + Identity + ) + ); + + // rejected_handlers.add( ... ) + tuples[ 2 ][ 3 ].add( + resolve( + 0, + newDefer, + isFunction( onRejected ) ? + onRejected : + Thrower + ) + ); + } ).promise(); + }, + + // Get a promise for this deferred + // If obj is provided, the promise aspect is added to the object + promise: function( obj ) { + return obj != null ? jQuery.extend( obj, promise ) : promise; + } + }, + deferred = {}; + + // Add list-specific methods + jQuery.each( tuples, function( i, tuple ) { + var list = tuple[ 2 ], + stateString = tuple[ 5 ]; + + // promise.progress = list.add + // promise.done = list.add + // promise.fail = list.add + promise[ tuple[ 1 ] ] = list.add; + + // Handle state + if ( stateString ) { + list.add( + function() { + + // state = "resolved" (i.e., fulfilled) + // state = "rejected" + state = stateString; + }, + + // rejected_callbacks.disable + // fulfilled_callbacks.disable + tuples[ 3 - i ][ 2 ].disable, + + // rejected_handlers.disable + // fulfilled_handlers.disable + tuples[ 3 - i ][ 3 ].disable, + + // progress_callbacks.lock + tuples[ 0 ][ 2 ].lock, + + // progress_handlers.lock + tuples[ 0 ][ 3 ].lock + ); + } + + // progress_handlers.fire + // fulfilled_handlers.fire + // rejected_handlers.fire + list.add( tuple[ 3 ].fire ); + + // deferred.notify = function() { deferred.notifyWith(...) } + // deferred.resolve = function() { deferred.resolveWith(...) } + // deferred.reject = function() { deferred.rejectWith(...) } + deferred[ tuple[ 0 ] ] = function() { + deferred[ tuple[ 0 ] + "With" ]( this === deferred ? undefined : this, arguments ); + return this; + }; + + // deferred.notifyWith = list.fireWith + // deferred.resolveWith = list.fireWith + // deferred.rejectWith = list.fireWith + deferred[ tuple[ 0 ] + "With" ] = list.fireWith; + } ); + + // Make the deferred a promise + promise.promise( deferred ); + + // Call given func if any + if ( func ) { + func.call( deferred, deferred ); + } + + // All done! + return deferred; + }, + + // Deferred helper + when: function( singleValue ) { + var + + // count of uncompleted subordinates + remaining = arguments.length, + + // count of unprocessed arguments + i = remaining, + + // subordinate fulfillment data + resolveContexts = Array( i ), + resolveValues = slice.call( arguments ), + + // the primary Deferred + primary = jQuery.Deferred(), + + // subordinate callback factory + updateFunc = function( i ) { + return function( value ) { + resolveContexts[ i ] = this; + resolveValues[ i ] = arguments.length > 1 ? slice.call( arguments ) : value; + if ( !( --remaining ) ) { + primary.resolveWith( resolveContexts, resolveValues ); + } + }; + }; + + // Single- and empty arguments are adopted like Promise.resolve + if ( remaining <= 1 ) { + adoptValue( singleValue, primary.done( updateFunc( i ) ).resolve, primary.reject, + !remaining ); + + // Use .then() to unwrap secondary thenables (cf. gh-3000) + if ( primary.state() === "pending" || + isFunction( resolveValues[ i ] && resolveValues[ i ].then ) ) { + + return primary.then(); + } + } + + // Multiple arguments are aggregated like Promise.all array elements + while ( i-- ) { + adoptValue( resolveValues[ i ], updateFunc( i ), primary.reject ); + } + + return primary.promise(); + } +} ); + + +// These usually indicate a programmer mistake during development, +// warn about them ASAP rather than swallowing them by default. +var rerrorNames = /^(Eval|Internal|Range|Reference|Syntax|Type|URI)Error$/; + +jQuery.Deferred.exceptionHook = function( error, stack ) { + + // Support: IE 8 - 9 only + // Console exists when dev tools are open, which can happen at any time + if ( window.console && window.console.warn && error && rerrorNames.test( error.name ) ) { + window.console.warn( "jQuery.Deferred exception: " + error.message, error.stack, stack ); + } +}; + + + + +jQuery.readyException = function( error ) { + window.setTimeout( function() { + throw error; + } ); +}; + + + + +// The deferred used on DOM ready +var readyList = jQuery.Deferred(); + +jQuery.fn.ready = function( fn ) { + + readyList + .then( fn ) + + // Wrap jQuery.readyException in a function so that the lookup + // happens at the time of error handling instead of callback + // registration. + .catch( function( error ) { + jQuery.readyException( error ); + } ); + + return this; +}; + +jQuery.extend( { + + // Is the DOM ready to be used? Set to true once it occurs. + isReady: false, + + // A counter to track how many items to wait for before + // the ready event fires. See #6781 + readyWait: 1, + + // Handle when the DOM is ready + ready: function( wait ) { + + // Abort if there are pending holds or we're already ready + if ( wait === true ? --jQuery.readyWait : jQuery.isReady ) { + return; + } + + // Remember that the DOM is ready + jQuery.isReady = true; + + // If a normal DOM Ready event fired, decrement, and wait if need be + if ( wait !== true && --jQuery.readyWait > 0 ) { + return; + } + + // If there are functions bound, to execute + readyList.resolveWith( document, [ jQuery ] ); + } +} ); + +jQuery.ready.then = readyList.then; + +// The ready event handler and self cleanup method +function completed() { + document.removeEventListener( "DOMContentLoaded", completed ); + window.removeEventListener( "load", completed ); + jQuery.ready(); +} + +// Catch cases where $(document).ready() is called +// after the browser event has already occurred. +// Support: IE <=9 - 10 only +// Older IE sometimes signals "interactive" too soon +if ( document.readyState === "complete" || + ( document.readyState !== "loading" && !document.documentElement.doScroll ) ) { + + // Handle it asynchronously to allow scripts the opportunity to delay ready + window.setTimeout( jQuery.ready ); + +} else { + + // Use the handy event callback + document.addEventListener( "DOMContentLoaded", completed ); + + // A fallback to window.onload, that will always work + window.addEventListener( "load", completed ); +} + + + + +// Multifunctional method to get and set values of a collection +// The value/s can optionally be executed if it's a function +var access = function( elems, fn, key, value, chainable, emptyGet, raw ) { + var i = 0, + len = elems.length, + bulk = key == null; + + // Sets many values + if ( toType( key ) === "object" ) { + chainable = true; + for ( i in key ) { + access( elems, fn, i, key[ i ], true, emptyGet, raw ); + } + + // Sets one value + } else if ( value !== undefined ) { + chainable = true; + + if ( !isFunction( value ) ) { + raw = true; + } + + if ( bulk ) { + + // Bulk operations run against the entire set + if ( raw ) { + fn.call( elems, value ); + fn = null; + + // ...except when executing function values + } else { + bulk = fn; + fn = function( elem, _key, value ) { + return bulk.call( jQuery( elem ), value ); + }; + } + } + + if ( fn ) { + for ( ; i < len; i++ ) { + fn( + elems[ i ], key, raw ? + value : + value.call( elems[ i ], i, fn( elems[ i ], key ) ) + ); + } + } + } + + if ( chainable ) { + return elems; + } + + // Gets + if ( bulk ) { + return fn.call( elems ); + } + + return len ? fn( elems[ 0 ], key ) : emptyGet; +}; + + +// Matches dashed string for camelizing +var rmsPrefix = /^-ms-/, + rdashAlpha = /-([a-z])/g; + +// Used by camelCase as callback to replace() +function fcamelCase( _all, letter ) { + return letter.toUpperCase(); +} + +// Convert dashed to camelCase; used by the css and data modules +// Support: IE <=9 - 11, Edge 12 - 15 +// Microsoft forgot to hump their vendor prefix (#9572) +function camelCase( string ) { + return string.replace( rmsPrefix, "ms-" ).replace( rdashAlpha, fcamelCase ); +} +var acceptData = function( owner ) { + + // Accepts only: + // - Node + // - Node.ELEMENT_NODE + // - Node.DOCUMENT_NODE + // - Object + // - Any + return owner.nodeType === 1 || owner.nodeType === 9 || !( +owner.nodeType ); +}; + + + + +function Data() { + this.expando = jQuery.expando + Data.uid++; +} + +Data.uid = 1; + +Data.prototype = { + + cache: function( owner ) { + + // Check if the owner object already has a cache + var value = owner[ this.expando ]; + + // If not, create one + if ( !value ) { + value = {}; + + // We can accept data for non-element nodes in modern browsers, + // but we should not, see #8335. + // Always return an empty object. + if ( acceptData( owner ) ) { + + // If it is a node unlikely to be stringify-ed or looped over + // use plain assignment + if ( owner.nodeType ) { + owner[ this.expando ] = value; + + // Otherwise secure it in a non-enumerable property + // configurable must be true to allow the property to be + // deleted when data is removed + } else { + Object.defineProperty( owner, this.expando, { + value: value, + configurable: true + } ); + } + } + } + + return value; + }, + set: function( owner, data, value ) { + var prop, + cache = this.cache( owner ); + + // Handle: [ owner, key, value ] args + // Always use camelCase key (gh-2257) + if ( typeof data === "string" ) { + cache[ camelCase( data ) ] = value; + + // Handle: [ owner, { properties } ] args + } else { + + // Copy the properties one-by-one to the cache object + for ( prop in data ) { + cache[ camelCase( prop ) ] = data[ prop ]; + } + } + return cache; + }, + get: function( owner, key ) { + return key === undefined ? + this.cache( owner ) : + + // Always use camelCase key (gh-2257) + owner[ this.expando ] && owner[ this.expando ][ camelCase( key ) ]; + }, + access: function( owner, key, value ) { + + // In cases where either: + // + // 1. No key was specified + // 2. A string key was specified, but no value provided + // + // Take the "read" path and allow the get method to determine + // which value to return, respectively either: + // + // 1. The entire cache object + // 2. The data stored at the key + // + if ( key === undefined || + ( ( key && typeof key === "string" ) && value === undefined ) ) { + + return this.get( owner, key ); + } + + // When the key is not a string, or both a key and value + // are specified, set or extend (existing objects) with either: + // + // 1. An object of properties + // 2. A key and value + // + this.set( owner, key, value ); + + // Since the "set" path can have two possible entry points + // return the expected data based on which path was taken[*] + return value !== undefined ? value : key; + }, + remove: function( owner, key ) { + var i, + cache = owner[ this.expando ]; + + if ( cache === undefined ) { + return; + } + + if ( key !== undefined ) { + + // Support array or space separated string of keys + if ( Array.isArray( key ) ) { + + // If key is an array of keys... + // We always set camelCase keys, so remove that. + key = key.map( camelCase ); + } else { + key = camelCase( key ); + + // If a key with the spaces exists, use it. + // Otherwise, create an array by matching non-whitespace + key = key in cache ? + [ key ] : + ( key.match( rnothtmlwhite ) || [] ); + } + + i = key.length; + + while ( i-- ) { + delete cache[ key[ i ] ]; + } + } + + // Remove the expando if there's no more data + if ( key === undefined || jQuery.isEmptyObject( cache ) ) { + + // Support: Chrome <=35 - 45 + // Webkit & Blink performance suffers when deleting properties + // from DOM nodes, so set to undefined instead + // https://bugs.chromium.org/p/chromium/issues/detail?id=378607 (bug restricted) + if ( owner.nodeType ) { + owner[ this.expando ] = undefined; + } else { + delete owner[ this.expando ]; + } + } + }, + hasData: function( owner ) { + var cache = owner[ this.expando ]; + return cache !== undefined && !jQuery.isEmptyObject( cache ); + } +}; +var dataPriv = new Data(); + +var dataUser = new Data(); + + + +// Implementation Summary +// +// 1. Enforce API surface and semantic compatibility with 1.9.x branch +// 2. Improve the module's maintainability by reducing the storage +// paths to a single mechanism. +// 3. Use the same single mechanism to support "private" and "user" data. +// 4. _Never_ expose "private" data to user code (TODO: Drop _data, _removeData) +// 5. Avoid exposing implementation details on user objects (eg. expando properties) +// 6. Provide a clear path for implementation upgrade to WeakMap in 2014 + +var rbrace = /^(?:\{[\w\W]*\}|\[[\w\W]*\])$/, + rmultiDash = /[A-Z]/g; + +function getData( data ) { + if ( data === "true" ) { + return true; + } + + if ( data === "false" ) { + return false; + } + + if ( data === "null" ) { + return null; + } + + // Only convert to a number if it doesn't change the string + if ( data === +data + "" ) { + return +data; + } + + if ( rbrace.test( data ) ) { + return JSON.parse( data ); + } + + return data; +} + +function dataAttr( elem, key, data ) { + var name; + + // If nothing was found internally, try to fetch any + // data from the HTML5 data-* attribute + if ( data === undefined && elem.nodeType === 1 ) { + name = "data-" + key.replace( rmultiDash, "-$&" ).toLowerCase(); + data = elem.getAttribute( name ); + + if ( typeof data === "string" ) { + try { + data = getData( data ); + } catch ( e ) {} + + // Make sure we set the data so it isn't changed later + dataUser.set( elem, key, data ); + } else { + data = undefined; + } + } + return data; +} + +jQuery.extend( { + hasData: function( elem ) { + return dataUser.hasData( elem ) || dataPriv.hasData( elem ); + }, + + data: function( elem, name, data ) { + return dataUser.access( elem, name, data ); + }, + + removeData: function( elem, name ) { + dataUser.remove( elem, name ); + }, + + // TODO: Now that all calls to _data and _removeData have been replaced + // with direct calls to dataPriv methods, these can be deprecated. + _data: function( elem, name, data ) { + return dataPriv.access( elem, name, data ); + }, + + _removeData: function( elem, name ) { + dataPriv.remove( elem, name ); + } +} ); + +jQuery.fn.extend( { + data: function( key, value ) { + var i, name, data, + elem = this[ 0 ], + attrs = elem && elem.attributes; + + // Gets all values + if ( key === undefined ) { + if ( this.length ) { + data = dataUser.get( elem ); + + if ( elem.nodeType === 1 && !dataPriv.get( elem, "hasDataAttrs" ) ) { + i = attrs.length; + while ( i-- ) { + + // Support: IE 11 only + // The attrs elements can be null (#14894) + if ( attrs[ i ] ) { + name = attrs[ i ].name; + if ( name.indexOf( "data-" ) === 0 ) { + name = camelCase( name.slice( 5 ) ); + dataAttr( elem, name, data[ name ] ); + } + } + } + dataPriv.set( elem, "hasDataAttrs", true ); + } + } + + return data; + } + + // Sets multiple values + if ( typeof key === "object" ) { + return this.each( function() { + dataUser.set( this, key ); + } ); + } + + return access( this, function( value ) { + var data; + + // The calling jQuery object (element matches) is not empty + // (and therefore has an element appears at this[ 0 ]) and the + // `value` parameter was not undefined. An empty jQuery object + // will result in `undefined` for elem = this[ 0 ] which will + // throw an exception if an attempt to read a data cache is made. + if ( elem && value === undefined ) { + + // Attempt to get data from the cache + // The key will always be camelCased in Data + data = dataUser.get( elem, key ); + if ( data !== undefined ) { + return data; + } + + // Attempt to "discover" the data in + // HTML5 custom data-* attrs + data = dataAttr( elem, key ); + if ( data !== undefined ) { + return data; + } + + // We tried really hard, but the data doesn't exist. + return; + } + + // Set the data... + this.each( function() { + + // We always store the camelCased key + dataUser.set( this, key, value ); + } ); + }, null, value, arguments.length > 1, null, true ); + }, + + removeData: function( key ) { + return this.each( function() { + dataUser.remove( this, key ); + } ); + } +} ); + + +jQuery.extend( { + queue: function( elem, type, data ) { + var queue; + + if ( elem ) { + type = ( type || "fx" ) + "queue"; + queue = dataPriv.get( elem, type ); + + // Speed up dequeue by getting out quickly if this is just a lookup + if ( data ) { + if ( !queue || Array.isArray( data ) ) { + queue = dataPriv.access( elem, type, jQuery.makeArray( data ) ); + } else { + queue.push( data ); + } + } + return queue || []; + } + }, + + dequeue: function( elem, type ) { + type = type || "fx"; + + var queue = jQuery.queue( elem, type ), + startLength = queue.length, + fn = queue.shift(), + hooks = jQuery._queueHooks( elem, type ), + next = function() { + jQuery.dequeue( elem, type ); + }; + + // If the fx queue is dequeued, always remove the progress sentinel + if ( fn === "inprogress" ) { + fn = queue.shift(); + startLength--; + } + + if ( fn ) { + + // Add a progress sentinel to prevent the fx queue from being + // automatically dequeued + if ( type === "fx" ) { + queue.unshift( "inprogress" ); + } + + // Clear up the last queue stop function + delete hooks.stop; + fn.call( elem, next, hooks ); + } + + if ( !startLength && hooks ) { + hooks.empty.fire(); + } + }, + + // Not public - generate a queueHooks object, or return the current one + _queueHooks: function( elem, type ) { + var key = type + "queueHooks"; + return dataPriv.get( elem, key ) || dataPriv.access( elem, key, { + empty: jQuery.Callbacks( "once memory" ).add( function() { + dataPriv.remove( elem, [ type + "queue", key ] ); + } ) + } ); + } +} ); + +jQuery.fn.extend( { + queue: function( type, data ) { + var setter = 2; + + if ( typeof type !== "string" ) { + data = type; + type = "fx"; + setter--; + } + + if ( arguments.length < setter ) { + return jQuery.queue( this[ 0 ], type ); + } + + return data === undefined ? + this : + this.each( function() { + var queue = jQuery.queue( this, type, data ); + + // Ensure a hooks for this queue + jQuery._queueHooks( this, type ); + + if ( type === "fx" && queue[ 0 ] !== "inprogress" ) { + jQuery.dequeue( this, type ); + } + } ); + }, + dequeue: function( type ) { + return this.each( function() { + jQuery.dequeue( this, type ); + } ); + }, + clearQueue: function( type ) { + return this.queue( type || "fx", [] ); + }, + + // Get a promise resolved when queues of a certain type + // are emptied (fx is the type by default) + promise: function( type, obj ) { + var tmp, + count = 1, + defer = jQuery.Deferred(), + elements = this, + i = this.length, + resolve = function() { + if ( !( --count ) ) { + defer.resolveWith( elements, [ elements ] ); + } + }; + + if ( typeof type !== "string" ) { + obj = type; + type = undefined; + } + type = type || "fx"; + + while ( i-- ) { + tmp = dataPriv.get( elements[ i ], type + "queueHooks" ); + if ( tmp && tmp.empty ) { + count++; + tmp.empty.add( resolve ); + } + } + resolve(); + return defer.promise( obj ); + } +} ); +var pnum = ( /[+-]?(?:\d*\.|)\d+(?:[eE][+-]?\d+|)/ ).source; + +var rcssNum = new RegExp( "^(?:([+-])=|)(" + pnum + ")([a-z%]*)$", "i" ); + + +var cssExpand = [ "Top", "Right", "Bottom", "Left" ]; + +var documentElement = document.documentElement; + + + + var isAttached = function( elem ) { + return jQuery.contains( elem.ownerDocument, elem ); + }, + composed = { composed: true }; + + // Support: IE 9 - 11+, Edge 12 - 18+, iOS 10.0 - 10.2 only + // Check attachment across shadow DOM boundaries when possible (gh-3504) + // Support: iOS 10.0-10.2 only + // Early iOS 10 versions support `attachShadow` but not `getRootNode`, + // leading to errors. We need to check for `getRootNode`. + if ( documentElement.getRootNode ) { + isAttached = function( elem ) { + return jQuery.contains( elem.ownerDocument, elem ) || + elem.getRootNode( composed ) === elem.ownerDocument; + }; + } +var isHiddenWithinTree = function( elem, el ) { + + // isHiddenWithinTree might be called from jQuery#filter function; + // in that case, element will be second argument + elem = el || elem; + + // Inline style trumps all + return elem.style.display === "none" || + elem.style.display === "" && + + // Otherwise, check computed style + // Support: Firefox <=43 - 45 + // Disconnected elements can have computed display: none, so first confirm that elem is + // in the document. + isAttached( elem ) && + + jQuery.css( elem, "display" ) === "none"; + }; + + + +function adjustCSS( elem, prop, valueParts, tween ) { + var adjusted, scale, + maxIterations = 20, + currentValue = tween ? + function() { + return tween.cur(); + } : + function() { + return jQuery.css( elem, prop, "" ); + }, + initial = currentValue(), + unit = valueParts && valueParts[ 3 ] || ( jQuery.cssNumber[ prop ] ? "" : "px" ), + + // Starting value computation is required for potential unit mismatches + initialInUnit = elem.nodeType && + ( jQuery.cssNumber[ prop ] || unit !== "px" && +initial ) && + rcssNum.exec( jQuery.css( elem, prop ) ); + + if ( initialInUnit && initialInUnit[ 3 ] !== unit ) { + + // Support: Firefox <=54 + // Halve the iteration target value to prevent interference from CSS upper bounds (gh-2144) + initial = initial / 2; + + // Trust units reported by jQuery.css + unit = unit || initialInUnit[ 3 ]; + + // Iteratively approximate from a nonzero starting point + initialInUnit = +initial || 1; + + while ( maxIterations-- ) { + + // Evaluate and update our best guess (doubling guesses that zero out). + // Finish if the scale equals or crosses 1 (making the old*new product non-positive). + jQuery.style( elem, prop, initialInUnit + unit ); + if ( ( 1 - scale ) * ( 1 - ( scale = currentValue() / initial || 0.5 ) ) <= 0 ) { + maxIterations = 0; + } + initialInUnit = initialInUnit / scale; + + } + + initialInUnit = initialInUnit * 2; + jQuery.style( elem, prop, initialInUnit + unit ); + + // Make sure we update the tween properties later on + valueParts = valueParts || []; + } + + if ( valueParts ) { + initialInUnit = +initialInUnit || +initial || 0; + + // Apply relative offset (+=/-=) if specified + adjusted = valueParts[ 1 ] ? + initialInUnit + ( valueParts[ 1 ] + 1 ) * valueParts[ 2 ] : + +valueParts[ 2 ]; + if ( tween ) { + tween.unit = unit; + tween.start = initialInUnit; + tween.end = adjusted; + } + } + return adjusted; +} + + +var defaultDisplayMap = {}; + +function getDefaultDisplay( elem ) { + var temp, + doc = elem.ownerDocument, + nodeName = elem.nodeName, + display = defaultDisplayMap[ nodeName ]; + + if ( display ) { + return display; + } + + temp = doc.body.appendChild( doc.createElement( nodeName ) ); + display = jQuery.css( temp, "display" ); + + temp.parentNode.removeChild( temp ); + + if ( display === "none" ) { + display = "block"; + } + defaultDisplayMap[ nodeName ] = display; + + return display; +} + +function showHide( elements, show ) { + var display, elem, + values = [], + index = 0, + length = elements.length; + + // Determine new display value for elements that need to change + for ( ; index < length; index++ ) { + elem = elements[ index ]; + if ( !elem.style ) { + continue; + } + + display = elem.style.display; + if ( show ) { + + // Since we force visibility upon cascade-hidden elements, an immediate (and slow) + // check is required in this first loop unless we have a nonempty display value (either + // inline or about-to-be-restored) + if ( display === "none" ) { + values[ index ] = dataPriv.get( elem, "display" ) || null; + if ( !values[ index ] ) { + elem.style.display = ""; + } + } + if ( elem.style.display === "" && isHiddenWithinTree( elem ) ) { + values[ index ] = getDefaultDisplay( elem ); + } + } else { + if ( display !== "none" ) { + values[ index ] = "none"; + + // Remember what we're overwriting + dataPriv.set( elem, "display", display ); + } + } + } + + // Set the display of the elements in a second loop to avoid constant reflow + for ( index = 0; index < length; index++ ) { + if ( values[ index ] != null ) { + elements[ index ].style.display = values[ index ]; + } + } + + return elements; +} + +jQuery.fn.extend( { + show: function() { + return showHide( this, true ); + }, + hide: function() { + return showHide( this ); + }, + toggle: function( state ) { + if ( typeof state === "boolean" ) { + return state ? this.show() : this.hide(); + } + + return this.each( function() { + if ( isHiddenWithinTree( this ) ) { + jQuery( this ).show(); + } else { + jQuery( this ).hide(); + } + } ); + } +} ); +var rcheckableType = ( /^(?:checkbox|radio)$/i ); + +var rtagName = ( /<([a-z][^\/\0>\x20\t\r\n\f]*)/i ); + +var rscriptType = ( /^$|^module$|\/(?:java|ecma)script/i ); + + + +( function() { + var fragment = document.createDocumentFragment(), + div = fragment.appendChild( document.createElement( "div" ) ), + input = document.createElement( "input" ); + + // Support: Android 4.0 - 4.3 only + // Check state lost if the name is set (#11217) + // Support: Windows Web Apps (WWA) + // `name` and `type` must use .setAttribute for WWA (#14901) + input.setAttribute( "type", "radio" ); + input.setAttribute( "checked", "checked" ); + input.setAttribute( "name", "t" ); + + div.appendChild( input ); + + // Support: Android <=4.1 only + // Older WebKit doesn't clone checked state correctly in fragments + support.checkClone = div.cloneNode( true ).cloneNode( true ).lastChild.checked; + + // Support: IE <=11 only + // Make sure textarea (and checkbox) defaultValue is properly cloned + div.innerHTML = ""; + support.noCloneChecked = !!div.cloneNode( true ).lastChild.defaultValue; + + // Support: IE <=9 only + // IE <=9 replaces "; + support.option = !!div.lastChild; +} )(); + + +// We have to close these tags to support XHTML (#13200) +var wrapMap = { + + // XHTML parsers do not magically insert elements in the + // same way that tag soup parsers do. So we cannot shorten + // this by omitting or other required elements. + thead: [ 1, "", "
      " ], + col: [ 2, "", "
      " ], + tr: [ 2, "", "
      " ], + td: [ 3, "", "
      " ], + + _default: [ 0, "", "" ] +}; + +wrapMap.tbody = wrapMap.tfoot = wrapMap.colgroup = wrapMap.caption = wrapMap.thead; +wrapMap.th = wrapMap.td; + +// Support: IE <=9 only +if ( !support.option ) { + wrapMap.optgroup = wrapMap.option = [ 1, "" ]; +} + + +function getAll( context, tag ) { + + // Support: IE <=9 - 11 only + // Use typeof to avoid zero-argument method invocation on host objects (#15151) + var ret; + + if ( typeof context.getElementsByTagName !== "undefined" ) { + ret = context.getElementsByTagName( tag || "*" ); + + } else if ( typeof context.querySelectorAll !== "undefined" ) { + ret = context.querySelectorAll( tag || "*" ); + + } else { + ret = []; + } + + if ( tag === undefined || tag && nodeName( context, tag ) ) { + return jQuery.merge( [ context ], ret ); + } + + return ret; +} + + +// Mark scripts as having already been evaluated +function setGlobalEval( elems, refElements ) { + var i = 0, + l = elems.length; + + for ( ; i < l; i++ ) { + dataPriv.set( + elems[ i ], + "globalEval", + !refElements || dataPriv.get( refElements[ i ], "globalEval" ) + ); + } +} + + +var rhtml = /<|&#?\w+;/; + +function buildFragment( elems, context, scripts, selection, ignored ) { + var elem, tmp, tag, wrap, attached, j, + fragment = context.createDocumentFragment(), + nodes = [], + i = 0, + l = elems.length; + + for ( ; i < l; i++ ) { + elem = elems[ i ]; + + if ( elem || elem === 0 ) { + + // Add nodes directly + if ( toType( elem ) === "object" ) { + + // Support: Android <=4.0 only, PhantomJS 1 only + // push.apply(_, arraylike) throws on ancient WebKit + jQuery.merge( nodes, elem.nodeType ? [ elem ] : elem ); + + // Convert non-html into a text node + } else if ( !rhtml.test( elem ) ) { + nodes.push( context.createTextNode( elem ) ); + + // Convert html into DOM nodes + } else { + tmp = tmp || fragment.appendChild( context.createElement( "div" ) ); + + // Deserialize a standard representation + tag = ( rtagName.exec( elem ) || [ "", "" ] )[ 1 ].toLowerCase(); + wrap = wrapMap[ tag ] || wrapMap._default; + tmp.innerHTML = wrap[ 1 ] + jQuery.htmlPrefilter( elem ) + wrap[ 2 ]; + + // Descend through wrappers to the right content + j = wrap[ 0 ]; + while ( j-- ) { + tmp = tmp.lastChild; + } + + // Support: Android <=4.0 only, PhantomJS 1 only + // push.apply(_, arraylike) throws on ancient WebKit + jQuery.merge( nodes, tmp.childNodes ); + + // Remember the top-level container + tmp = fragment.firstChild; + + // Ensure the created nodes are orphaned (#12392) + tmp.textContent = ""; + } + } + } + + // Remove wrapper from fragment + fragment.textContent = ""; + + i = 0; + while ( ( elem = nodes[ i++ ] ) ) { + + // Skip elements already in the context collection (trac-4087) + if ( selection && jQuery.inArray( elem, selection ) > -1 ) { + if ( ignored ) { + ignored.push( elem ); + } + continue; + } + + attached = isAttached( elem ); + + // Append to fragment + tmp = getAll( fragment.appendChild( elem ), "script" ); + + // Preserve script evaluation history + if ( attached ) { + setGlobalEval( tmp ); + } + + // Capture executables + if ( scripts ) { + j = 0; + while ( ( elem = tmp[ j++ ] ) ) { + if ( rscriptType.test( elem.type || "" ) ) { + scripts.push( elem ); + } + } + } + } + + return fragment; +} + + +var rtypenamespace = /^([^.]*)(?:\.(.+)|)/; + +function returnTrue() { + return true; +} + +function returnFalse() { + return false; +} + +// Support: IE <=9 - 11+ +// focus() and blur() are asynchronous, except when they are no-op. +// So expect focus to be synchronous when the element is already active, +// and blur to be synchronous when the element is not already active. +// (focus and blur are always synchronous in other supported browsers, +// this just defines when we can count on it). +function expectSync( elem, type ) { + return ( elem === safeActiveElement() ) === ( type === "focus" ); +} + +// Support: IE <=9 only +// Accessing document.activeElement can throw unexpectedly +// https://bugs.jquery.com/ticket/13393 +function safeActiveElement() { + try { + return document.activeElement; + } catch ( err ) { } +} + +function on( elem, types, selector, data, fn, one ) { + var origFn, type; + + // Types can be a map of types/handlers + if ( typeof types === "object" ) { + + // ( types-Object, selector, data ) + if ( typeof selector !== "string" ) { + + // ( types-Object, data ) + data = data || selector; + selector = undefined; + } + for ( type in types ) { + on( elem, type, selector, data, types[ type ], one ); + } + return elem; + } + + if ( data == null && fn == null ) { + + // ( types, fn ) + fn = selector; + data = selector = undefined; + } else if ( fn == null ) { + if ( typeof selector === "string" ) { + + // ( types, selector, fn ) + fn = data; + data = undefined; + } else { + + // ( types, data, fn ) + fn = data; + data = selector; + selector = undefined; + } + } + if ( fn === false ) { + fn = returnFalse; + } else if ( !fn ) { + return elem; + } + + if ( one === 1 ) { + origFn = fn; + fn = function( event ) { + + // Can use an empty set, since event contains the info + jQuery().off( event ); + return origFn.apply( this, arguments ); + }; + + // Use same guid so caller can remove using origFn + fn.guid = origFn.guid || ( origFn.guid = jQuery.guid++ ); + } + return elem.each( function() { + jQuery.event.add( this, types, fn, data, selector ); + } ); +} + +/* + * Helper functions for managing events -- not part of the public interface. + * Props to Dean Edwards' addEvent library for many of the ideas. + */ +jQuery.event = { + + global: {}, + + add: function( elem, types, handler, data, selector ) { + + var handleObjIn, eventHandle, tmp, + events, t, handleObj, + special, handlers, type, namespaces, origType, + elemData = dataPriv.get( elem ); + + // Only attach events to objects that accept data + if ( !acceptData( elem ) ) { + return; + } + + // Caller can pass in an object of custom data in lieu of the handler + if ( handler.handler ) { + handleObjIn = handler; + handler = handleObjIn.handler; + selector = handleObjIn.selector; + } + + // Ensure that invalid selectors throw exceptions at attach time + // Evaluate against documentElement in case elem is a non-element node (e.g., document) + if ( selector ) { + jQuery.find.matchesSelector( documentElement, selector ); + } + + // Make sure that the handler has a unique ID, used to find/remove it later + if ( !handler.guid ) { + handler.guid = jQuery.guid++; + } + + // Init the element's event structure and main handler, if this is the first + if ( !( events = elemData.events ) ) { + events = elemData.events = Object.create( null ); + } + if ( !( eventHandle = elemData.handle ) ) { + eventHandle = elemData.handle = function( e ) { + + // Discard the second event of a jQuery.event.trigger() and + // when an event is called after a page has unloaded + return typeof jQuery !== "undefined" && jQuery.event.triggered !== e.type ? + jQuery.event.dispatch.apply( elem, arguments ) : undefined; + }; + } + + // Handle multiple events separated by a space + types = ( types || "" ).match( rnothtmlwhite ) || [ "" ]; + t = types.length; + while ( t-- ) { + tmp = rtypenamespace.exec( types[ t ] ) || []; + type = origType = tmp[ 1 ]; + namespaces = ( tmp[ 2 ] || "" ).split( "." ).sort(); + + // There *must* be a type, no attaching namespace-only handlers + if ( !type ) { + continue; + } + + // If event changes its type, use the special event handlers for the changed type + special = jQuery.event.special[ type ] || {}; + + // If selector defined, determine special event api type, otherwise given type + type = ( selector ? special.delegateType : special.bindType ) || type; + + // Update special based on newly reset type + special = jQuery.event.special[ type ] || {}; + + // handleObj is passed to all event handlers + handleObj = jQuery.extend( { + type: type, + origType: origType, + data: data, + handler: handler, + guid: handler.guid, + selector: selector, + needsContext: selector && jQuery.expr.match.needsContext.test( selector ), + namespace: namespaces.join( "." ) + }, handleObjIn ); + + // Init the event handler queue if we're the first + if ( !( handlers = events[ type ] ) ) { + handlers = events[ type ] = []; + handlers.delegateCount = 0; + + // Only use addEventListener if the special events handler returns false + if ( !special.setup || + special.setup.call( elem, data, namespaces, eventHandle ) === false ) { + + if ( elem.addEventListener ) { + elem.addEventListener( type, eventHandle ); + } + } + } + + if ( special.add ) { + special.add.call( elem, handleObj ); + + if ( !handleObj.handler.guid ) { + handleObj.handler.guid = handler.guid; + } + } + + // Add to the element's handler list, delegates in front + if ( selector ) { + handlers.splice( handlers.delegateCount++, 0, handleObj ); + } else { + handlers.push( handleObj ); + } + + // Keep track of which events have ever been used, for event optimization + jQuery.event.global[ type ] = true; + } + + }, + + // Detach an event or set of events from an element + remove: function( elem, types, handler, selector, mappedTypes ) { + + var j, origCount, tmp, + events, t, handleObj, + special, handlers, type, namespaces, origType, + elemData = dataPriv.hasData( elem ) && dataPriv.get( elem ); + + if ( !elemData || !( events = elemData.events ) ) { + return; + } + + // Once for each type.namespace in types; type may be omitted + types = ( types || "" ).match( rnothtmlwhite ) || [ "" ]; + t = types.length; + while ( t-- ) { + tmp = rtypenamespace.exec( types[ t ] ) || []; + type = origType = tmp[ 1 ]; + namespaces = ( tmp[ 2 ] || "" ).split( "." ).sort(); + + // Unbind all events (on this namespace, if provided) for the element + if ( !type ) { + for ( type in events ) { + jQuery.event.remove( elem, type + types[ t ], handler, selector, true ); + } + continue; + } + + special = jQuery.event.special[ type ] || {}; + type = ( selector ? special.delegateType : special.bindType ) || type; + handlers = events[ type ] || []; + tmp = tmp[ 2 ] && + new RegExp( "(^|\\.)" + namespaces.join( "\\.(?:.*\\.|)" ) + "(\\.|$)" ); + + // Remove matching events + origCount = j = handlers.length; + while ( j-- ) { + handleObj = handlers[ j ]; + + if ( ( mappedTypes || origType === handleObj.origType ) && + ( !handler || handler.guid === handleObj.guid ) && + ( !tmp || tmp.test( handleObj.namespace ) ) && + ( !selector || selector === handleObj.selector || + selector === "**" && handleObj.selector ) ) { + handlers.splice( j, 1 ); + + if ( handleObj.selector ) { + handlers.delegateCount--; + } + if ( special.remove ) { + special.remove.call( elem, handleObj ); + } + } + } + + // Remove generic event handler if we removed something and no more handlers exist + // (avoids potential for endless recursion during removal of special event handlers) + if ( origCount && !handlers.length ) { + if ( !special.teardown || + special.teardown.call( elem, namespaces, elemData.handle ) === false ) { + + jQuery.removeEvent( elem, type, elemData.handle ); + } + + delete events[ type ]; + } + } + + // Remove data and the expando if it's no longer used + if ( jQuery.isEmptyObject( events ) ) { + dataPriv.remove( elem, "handle events" ); + } + }, + + dispatch: function( nativeEvent ) { + + var i, j, ret, matched, handleObj, handlerQueue, + args = new Array( arguments.length ), + + // Make a writable jQuery.Event from the native event object + event = jQuery.event.fix( nativeEvent ), + + handlers = ( + dataPriv.get( this, "events" ) || Object.create( null ) + )[ event.type ] || [], + special = jQuery.event.special[ event.type ] || {}; + + // Use the fix-ed jQuery.Event rather than the (read-only) native event + args[ 0 ] = event; + + for ( i = 1; i < arguments.length; i++ ) { + args[ i ] = arguments[ i ]; + } + + event.delegateTarget = this; + + // Call the preDispatch hook for the mapped type, and let it bail if desired + if ( special.preDispatch && special.preDispatch.call( this, event ) === false ) { + return; + } + + // Determine handlers + handlerQueue = jQuery.event.handlers.call( this, event, handlers ); + + // Run delegates first; they may want to stop propagation beneath us + i = 0; + while ( ( matched = handlerQueue[ i++ ] ) && !event.isPropagationStopped() ) { + event.currentTarget = matched.elem; + + j = 0; + while ( ( handleObj = matched.handlers[ j++ ] ) && + !event.isImmediatePropagationStopped() ) { + + // If the event is namespaced, then each handler is only invoked if it is + // specially universal or its namespaces are a superset of the event's. + if ( !event.rnamespace || handleObj.namespace === false || + event.rnamespace.test( handleObj.namespace ) ) { + + event.handleObj = handleObj; + event.data = handleObj.data; + + ret = ( ( jQuery.event.special[ handleObj.origType ] || {} ).handle || + handleObj.handler ).apply( matched.elem, args ); + + if ( ret !== undefined ) { + if ( ( event.result = ret ) === false ) { + event.preventDefault(); + event.stopPropagation(); + } + } + } + } + } + + // Call the postDispatch hook for the mapped type + if ( special.postDispatch ) { + special.postDispatch.call( this, event ); + } + + return event.result; + }, + + handlers: function( event, handlers ) { + var i, handleObj, sel, matchedHandlers, matchedSelectors, + handlerQueue = [], + delegateCount = handlers.delegateCount, + cur = event.target; + + // Find delegate handlers + if ( delegateCount && + + // Support: IE <=9 + // Black-hole SVG instance trees (trac-13180) + cur.nodeType && + + // Support: Firefox <=42 + // Suppress spec-violating clicks indicating a non-primary pointer button (trac-3861) + // https://www.w3.org/TR/DOM-Level-3-Events/#event-type-click + // Support: IE 11 only + // ...but not arrow key "clicks" of radio inputs, which can have `button` -1 (gh-2343) + !( event.type === "click" && event.button >= 1 ) ) { + + for ( ; cur !== this; cur = cur.parentNode || this ) { + + // Don't check non-elements (#13208) + // Don't process clicks on disabled elements (#6911, #8165, #11382, #11764) + if ( cur.nodeType === 1 && !( event.type === "click" && cur.disabled === true ) ) { + matchedHandlers = []; + matchedSelectors = {}; + for ( i = 0; i < delegateCount; i++ ) { + handleObj = handlers[ i ]; + + // Don't conflict with Object.prototype properties (#13203) + sel = handleObj.selector + " "; + + if ( matchedSelectors[ sel ] === undefined ) { + matchedSelectors[ sel ] = handleObj.needsContext ? + jQuery( sel, this ).index( cur ) > -1 : + jQuery.find( sel, this, null, [ cur ] ).length; + } + if ( matchedSelectors[ sel ] ) { + matchedHandlers.push( handleObj ); + } + } + if ( matchedHandlers.length ) { + handlerQueue.push( { elem: cur, handlers: matchedHandlers } ); + } + } + } + } + + // Add the remaining (directly-bound) handlers + cur = this; + if ( delegateCount < handlers.length ) { + handlerQueue.push( { elem: cur, handlers: handlers.slice( delegateCount ) } ); + } + + return handlerQueue; + }, + + addProp: function( name, hook ) { + Object.defineProperty( jQuery.Event.prototype, name, { + enumerable: true, + configurable: true, + + get: isFunction( hook ) ? + function() { + if ( this.originalEvent ) { + return hook( this.originalEvent ); + } + } : + function() { + if ( this.originalEvent ) { + return this.originalEvent[ name ]; + } + }, + + set: function( value ) { + Object.defineProperty( this, name, { + enumerable: true, + configurable: true, + writable: true, + value: value + } ); + } + } ); + }, + + fix: function( originalEvent ) { + return originalEvent[ jQuery.expando ] ? + originalEvent : + new jQuery.Event( originalEvent ); + }, + + special: { + load: { + + // Prevent triggered image.load events from bubbling to window.load + noBubble: true + }, + click: { + + // Utilize native event to ensure correct state for checkable inputs + setup: function( data ) { + + // For mutual compressibility with _default, replace `this` access with a local var. + // `|| data` is dead code meant only to preserve the variable through minification. + var el = this || data; + + // Claim the first handler + if ( rcheckableType.test( el.type ) && + el.click && nodeName( el, "input" ) ) { + + // dataPriv.set( el, "click", ... ) + leverageNative( el, "click", returnTrue ); + } + + // Return false to allow normal processing in the caller + return false; + }, + trigger: function( data ) { + + // For mutual compressibility with _default, replace `this` access with a local var. + // `|| data` is dead code meant only to preserve the variable through minification. + var el = this || data; + + // Force setup before triggering a click + if ( rcheckableType.test( el.type ) && + el.click && nodeName( el, "input" ) ) { + + leverageNative( el, "click" ); + } + + // Return non-false to allow normal event-path propagation + return true; + }, + + // For cross-browser consistency, suppress native .click() on links + // Also prevent it if we're currently inside a leveraged native-event stack + _default: function( event ) { + var target = event.target; + return rcheckableType.test( target.type ) && + target.click && nodeName( target, "input" ) && + dataPriv.get( target, "click" ) || + nodeName( target, "a" ); + } + }, + + beforeunload: { + postDispatch: function( event ) { + + // Support: Firefox 20+ + // Firefox doesn't alert if the returnValue field is not set. + if ( event.result !== undefined && event.originalEvent ) { + event.originalEvent.returnValue = event.result; + } + } + } + } +}; + +// Ensure the presence of an event listener that handles manually-triggered +// synthetic events by interrupting progress until reinvoked in response to +// *native* events that it fires directly, ensuring that state changes have +// already occurred before other listeners are invoked. +function leverageNative( el, type, expectSync ) { + + // Missing expectSync indicates a trigger call, which must force setup through jQuery.event.add + if ( !expectSync ) { + if ( dataPriv.get( el, type ) === undefined ) { + jQuery.event.add( el, type, returnTrue ); + } + return; + } + + // Register the controller as a special universal handler for all event namespaces + dataPriv.set( el, type, false ); + jQuery.event.add( el, type, { + namespace: false, + handler: function( event ) { + var notAsync, result, + saved = dataPriv.get( this, type ); + + if ( ( event.isTrigger & 1 ) && this[ type ] ) { + + // Interrupt processing of the outer synthetic .trigger()ed event + // Saved data should be false in such cases, but might be a leftover capture object + // from an async native handler (gh-4350) + if ( !saved.length ) { + + // Store arguments for use when handling the inner native event + // There will always be at least one argument (an event object), so this array + // will not be confused with a leftover capture object. + saved = slice.call( arguments ); + dataPriv.set( this, type, saved ); + + // Trigger the native event and capture its result + // Support: IE <=9 - 11+ + // focus() and blur() are asynchronous + notAsync = expectSync( this, type ); + this[ type ](); + result = dataPriv.get( this, type ); + if ( saved !== result || notAsync ) { + dataPriv.set( this, type, false ); + } else { + result = {}; + } + if ( saved !== result ) { + + // Cancel the outer synthetic event + event.stopImmediatePropagation(); + event.preventDefault(); + + // Support: Chrome 86+ + // In Chrome, if an element having a focusout handler is blurred by + // clicking outside of it, it invokes the handler synchronously. If + // that handler calls `.remove()` on the element, the data is cleared, + // leaving `result` undefined. We need to guard against this. + return result && result.value; + } + + // If this is an inner synthetic event for an event with a bubbling surrogate + // (focus or blur), assume that the surrogate already propagated from triggering the + // native event and prevent that from happening again here. + // This technically gets the ordering wrong w.r.t. to `.trigger()` (in which the + // bubbling surrogate propagates *after* the non-bubbling base), but that seems + // less bad than duplication. + } else if ( ( jQuery.event.special[ type ] || {} ).delegateType ) { + event.stopPropagation(); + } + + // If this is a native event triggered above, everything is now in order + // Fire an inner synthetic event with the original arguments + } else if ( saved.length ) { + + // ...and capture the result + dataPriv.set( this, type, { + value: jQuery.event.trigger( + + // Support: IE <=9 - 11+ + // Extend with the prototype to reset the above stopImmediatePropagation() + jQuery.extend( saved[ 0 ], jQuery.Event.prototype ), + saved.slice( 1 ), + this + ) + } ); + + // Abort handling of the native event + event.stopImmediatePropagation(); + } + } + } ); +} + +jQuery.removeEvent = function( elem, type, handle ) { + + // This "if" is needed for plain objects + if ( elem.removeEventListener ) { + elem.removeEventListener( type, handle ); + } +}; + +jQuery.Event = function( src, props ) { + + // Allow instantiation without the 'new' keyword + if ( !( this instanceof jQuery.Event ) ) { + return new jQuery.Event( src, props ); + } + + // Event object + if ( src && src.type ) { + this.originalEvent = src; + this.type = src.type; + + // Events bubbling up the document may have been marked as prevented + // by a handler lower down the tree; reflect the correct value. + this.isDefaultPrevented = src.defaultPrevented || + src.defaultPrevented === undefined && + + // Support: Android <=2.3 only + src.returnValue === false ? + returnTrue : + returnFalse; + + // Create target properties + // Support: Safari <=6 - 7 only + // Target should not be a text node (#504, #13143) + this.target = ( src.target && src.target.nodeType === 3 ) ? + src.target.parentNode : + src.target; + + this.currentTarget = src.currentTarget; + this.relatedTarget = src.relatedTarget; + + // Event type + } else { + this.type = src; + } + + // Put explicitly provided properties onto the event object + if ( props ) { + jQuery.extend( this, props ); + } + + // Create a timestamp if incoming event doesn't have one + this.timeStamp = src && src.timeStamp || Date.now(); + + // Mark it as fixed + this[ jQuery.expando ] = true; +}; + +// jQuery.Event is based on DOM3 Events as specified by the ECMAScript Language Binding +// https://www.w3.org/TR/2003/WD-DOM-Level-3-Events-20030331/ecma-script-binding.html +jQuery.Event.prototype = { + constructor: jQuery.Event, + isDefaultPrevented: returnFalse, + isPropagationStopped: returnFalse, + isImmediatePropagationStopped: returnFalse, + isSimulated: false, + + preventDefault: function() { + var e = this.originalEvent; + + this.isDefaultPrevented = returnTrue; + + if ( e && !this.isSimulated ) { + e.preventDefault(); + } + }, + stopPropagation: function() { + var e = this.originalEvent; + + this.isPropagationStopped = returnTrue; + + if ( e && !this.isSimulated ) { + e.stopPropagation(); + } + }, + stopImmediatePropagation: function() { + var e = this.originalEvent; + + this.isImmediatePropagationStopped = returnTrue; + + if ( e && !this.isSimulated ) { + e.stopImmediatePropagation(); + } + + this.stopPropagation(); + } +}; + +// Includes all common event props including KeyEvent and MouseEvent specific props +jQuery.each( { + altKey: true, + bubbles: true, + cancelable: true, + changedTouches: true, + ctrlKey: true, + detail: true, + eventPhase: true, + metaKey: true, + pageX: true, + pageY: true, + shiftKey: true, + view: true, + "char": true, + code: true, + charCode: true, + key: true, + keyCode: true, + button: true, + buttons: true, + clientX: true, + clientY: true, + offsetX: true, + offsetY: true, + pointerId: true, + pointerType: true, + screenX: true, + screenY: true, + targetTouches: true, + toElement: true, + touches: true, + which: true +}, jQuery.event.addProp ); + +jQuery.each( { focus: "focusin", blur: "focusout" }, function( type, delegateType ) { + jQuery.event.special[ type ] = { + + // Utilize native event if possible so blur/focus sequence is correct + setup: function() { + + // Claim the first handler + // dataPriv.set( this, "focus", ... ) + // dataPriv.set( this, "blur", ... ) + leverageNative( this, type, expectSync ); + + // Return false to allow normal processing in the caller + return false; + }, + trigger: function() { + + // Force setup before trigger + leverageNative( this, type ); + + // Return non-false to allow normal event-path propagation + return true; + }, + + // Suppress native focus or blur as it's already being fired + // in leverageNative. + _default: function() { + return true; + }, + + delegateType: delegateType + }; +} ); + +// Create mouseenter/leave events using mouseover/out and event-time checks +// so that event delegation works in jQuery. +// Do the same for pointerenter/pointerleave and pointerover/pointerout +// +// Support: Safari 7 only +// Safari sends mouseenter too often; see: +// https://bugs.chromium.org/p/chromium/issues/detail?id=470258 +// for the description of the bug (it existed in older Chrome versions as well). +jQuery.each( { + mouseenter: "mouseover", + mouseleave: "mouseout", + pointerenter: "pointerover", + pointerleave: "pointerout" +}, function( orig, fix ) { + jQuery.event.special[ orig ] = { + delegateType: fix, + bindType: fix, + + handle: function( event ) { + var ret, + target = this, + related = event.relatedTarget, + handleObj = event.handleObj; + + // For mouseenter/leave call the handler if related is outside the target. + // NB: No relatedTarget if the mouse left/entered the browser window + if ( !related || ( related !== target && !jQuery.contains( target, related ) ) ) { + event.type = handleObj.origType; + ret = handleObj.handler.apply( this, arguments ); + event.type = fix; + } + return ret; + } + }; +} ); + +jQuery.fn.extend( { + + on: function( types, selector, data, fn ) { + return on( this, types, selector, data, fn ); + }, + one: function( types, selector, data, fn ) { + return on( this, types, selector, data, fn, 1 ); + }, + off: function( types, selector, fn ) { + var handleObj, type; + if ( types && types.preventDefault && types.handleObj ) { + + // ( event ) dispatched jQuery.Event + handleObj = types.handleObj; + jQuery( types.delegateTarget ).off( + handleObj.namespace ? + handleObj.origType + "." + handleObj.namespace : + handleObj.origType, + handleObj.selector, + handleObj.handler + ); + return this; + } + if ( typeof types === "object" ) { + + // ( types-object [, selector] ) + for ( type in types ) { + this.off( type, selector, types[ type ] ); + } + return this; + } + if ( selector === false || typeof selector === "function" ) { + + // ( types [, fn] ) + fn = selector; + selector = undefined; + } + if ( fn === false ) { + fn = returnFalse; + } + return this.each( function() { + jQuery.event.remove( this, types, fn, selector ); + } ); + } +} ); + + +var + + // Support: IE <=10 - 11, Edge 12 - 13 only + // In IE/Edge using regex groups here causes severe slowdowns. + // See https://connect.microsoft.com/IE/feedback/details/1736512/ + rnoInnerhtml = /\s*$/g; + +// Prefer a tbody over its parent table for containing new rows +function manipulationTarget( elem, content ) { + if ( nodeName( elem, "table" ) && + nodeName( content.nodeType !== 11 ? content : content.firstChild, "tr" ) ) { + + return jQuery( elem ).children( "tbody" )[ 0 ] || elem; + } + + return elem; +} + +// Replace/restore the type attribute of script elements for safe DOM manipulation +function disableScript( elem ) { + elem.type = ( elem.getAttribute( "type" ) !== null ) + "/" + elem.type; + return elem; +} +function restoreScript( elem ) { + if ( ( elem.type || "" ).slice( 0, 5 ) === "true/" ) { + elem.type = elem.type.slice( 5 ); + } else { + elem.removeAttribute( "type" ); + } + + return elem; +} + +function cloneCopyEvent( src, dest ) { + var i, l, type, pdataOld, udataOld, udataCur, events; + + if ( dest.nodeType !== 1 ) { + return; + } + + // 1. Copy private data: events, handlers, etc. + if ( dataPriv.hasData( src ) ) { + pdataOld = dataPriv.get( src ); + events = pdataOld.events; + + if ( events ) { + dataPriv.remove( dest, "handle events" ); + + for ( type in events ) { + for ( i = 0, l = events[ type ].length; i < l; i++ ) { + jQuery.event.add( dest, type, events[ type ][ i ] ); + } + } + } + } + + // 2. Copy user data + if ( dataUser.hasData( src ) ) { + udataOld = dataUser.access( src ); + udataCur = jQuery.extend( {}, udataOld ); + + dataUser.set( dest, udataCur ); + } +} + +// Fix IE bugs, see support tests +function fixInput( src, dest ) { + var nodeName = dest.nodeName.toLowerCase(); + + // Fails to persist the checked state of a cloned checkbox or radio button. + if ( nodeName === "input" && rcheckableType.test( src.type ) ) { + dest.checked = src.checked; + + // Fails to return the selected option to the default selected state when cloning options + } else if ( nodeName === "input" || nodeName === "textarea" ) { + dest.defaultValue = src.defaultValue; + } +} + +function domManip( collection, args, callback, ignored ) { + + // Flatten any nested arrays + args = flat( args ); + + var fragment, first, scripts, hasScripts, node, doc, + i = 0, + l = collection.length, + iNoClone = l - 1, + value = args[ 0 ], + valueIsFunction = isFunction( value ); + + // We can't cloneNode fragments that contain checked, in WebKit + if ( valueIsFunction || + ( l > 1 && typeof value === "string" && + !support.checkClone && rchecked.test( value ) ) ) { + return collection.each( function( index ) { + var self = collection.eq( index ); + if ( valueIsFunction ) { + args[ 0 ] = value.call( this, index, self.html() ); + } + domManip( self, args, callback, ignored ); + } ); + } + + if ( l ) { + fragment = buildFragment( args, collection[ 0 ].ownerDocument, false, collection, ignored ); + first = fragment.firstChild; + + if ( fragment.childNodes.length === 1 ) { + fragment = first; + } + + // Require either new content or an interest in ignored elements to invoke the callback + if ( first || ignored ) { + scripts = jQuery.map( getAll( fragment, "script" ), disableScript ); + hasScripts = scripts.length; + + // Use the original fragment for the last item + // instead of the first because it can end up + // being emptied incorrectly in certain situations (#8070). + for ( ; i < l; i++ ) { + node = fragment; + + if ( i !== iNoClone ) { + node = jQuery.clone( node, true, true ); + + // Keep references to cloned scripts for later restoration + if ( hasScripts ) { + + // Support: Android <=4.0 only, PhantomJS 1 only + // push.apply(_, arraylike) throws on ancient WebKit + jQuery.merge( scripts, getAll( node, "script" ) ); + } + } + + callback.call( collection[ i ], node, i ); + } + + if ( hasScripts ) { + doc = scripts[ scripts.length - 1 ].ownerDocument; + + // Reenable scripts + jQuery.map( scripts, restoreScript ); + + // Evaluate executable scripts on first document insertion + for ( i = 0; i < hasScripts; i++ ) { + node = scripts[ i ]; + if ( rscriptType.test( node.type || "" ) && + !dataPriv.access( node, "globalEval" ) && + jQuery.contains( doc, node ) ) { + + if ( node.src && ( node.type || "" ).toLowerCase() !== "module" ) { + + // Optional AJAX dependency, but won't run scripts if not present + if ( jQuery._evalUrl && !node.noModule ) { + jQuery._evalUrl( node.src, { + nonce: node.nonce || node.getAttribute( "nonce" ) + }, doc ); + } + } else { + DOMEval( node.textContent.replace( rcleanScript, "" ), node, doc ); + } + } + } + } + } + } + + return collection; +} + +function remove( elem, selector, keepData ) { + var node, + nodes = selector ? jQuery.filter( selector, elem ) : elem, + i = 0; + + for ( ; ( node = nodes[ i ] ) != null; i++ ) { + if ( !keepData && node.nodeType === 1 ) { + jQuery.cleanData( getAll( node ) ); + } + + if ( node.parentNode ) { + if ( keepData && isAttached( node ) ) { + setGlobalEval( getAll( node, "script" ) ); + } + node.parentNode.removeChild( node ); + } + } + + return elem; +} + +jQuery.extend( { + htmlPrefilter: function( html ) { + return html; + }, + + clone: function( elem, dataAndEvents, deepDataAndEvents ) { + var i, l, srcElements, destElements, + clone = elem.cloneNode( true ), + inPage = isAttached( elem ); + + // Fix IE cloning issues + if ( !support.noCloneChecked && ( elem.nodeType === 1 || elem.nodeType === 11 ) && + !jQuery.isXMLDoc( elem ) ) { + + // We eschew Sizzle here for performance reasons: https://jsperf.com/getall-vs-sizzle/2 + destElements = getAll( clone ); + srcElements = getAll( elem ); + + for ( i = 0, l = srcElements.length; i < l; i++ ) { + fixInput( srcElements[ i ], destElements[ i ] ); + } + } + + // Copy the events from the original to the clone + if ( dataAndEvents ) { + if ( deepDataAndEvents ) { + srcElements = srcElements || getAll( elem ); + destElements = destElements || getAll( clone ); + + for ( i = 0, l = srcElements.length; i < l; i++ ) { + cloneCopyEvent( srcElements[ i ], destElements[ i ] ); + } + } else { + cloneCopyEvent( elem, clone ); + } + } + + // Preserve script evaluation history + destElements = getAll( clone, "script" ); + if ( destElements.length > 0 ) { + setGlobalEval( destElements, !inPage && getAll( elem, "script" ) ); + } + + // Return the cloned set + return clone; + }, + + cleanData: function( elems ) { + var data, elem, type, + special = jQuery.event.special, + i = 0; + + for ( ; ( elem = elems[ i ] ) !== undefined; i++ ) { + if ( acceptData( elem ) ) { + if ( ( data = elem[ dataPriv.expando ] ) ) { + if ( data.events ) { + for ( type in data.events ) { + if ( special[ type ] ) { + jQuery.event.remove( elem, type ); + + // This is a shortcut to avoid jQuery.event.remove's overhead + } else { + jQuery.removeEvent( elem, type, data.handle ); + } + } + } + + // Support: Chrome <=35 - 45+ + // Assign undefined instead of using delete, see Data#remove + elem[ dataPriv.expando ] = undefined; + } + if ( elem[ dataUser.expando ] ) { + + // Support: Chrome <=35 - 45+ + // Assign undefined instead of using delete, see Data#remove + elem[ dataUser.expando ] = undefined; + } + } + } + } +} ); + +jQuery.fn.extend( { + detach: function( selector ) { + return remove( this, selector, true ); + }, + + remove: function( selector ) { + return remove( this, selector ); + }, + + text: function( value ) { + return access( this, function( value ) { + return value === undefined ? + jQuery.text( this ) : + this.empty().each( function() { + if ( this.nodeType === 1 || this.nodeType === 11 || this.nodeType === 9 ) { + this.textContent = value; + } + } ); + }, null, value, arguments.length ); + }, + + append: function() { + return domManip( this, arguments, function( elem ) { + if ( this.nodeType === 1 || this.nodeType === 11 || this.nodeType === 9 ) { + var target = manipulationTarget( this, elem ); + target.appendChild( elem ); + } + } ); + }, + + prepend: function() { + return domManip( this, arguments, function( elem ) { + if ( this.nodeType === 1 || this.nodeType === 11 || this.nodeType === 9 ) { + var target = manipulationTarget( this, elem ); + target.insertBefore( elem, target.firstChild ); + } + } ); + }, + + before: function() { + return domManip( this, arguments, function( elem ) { + if ( this.parentNode ) { + this.parentNode.insertBefore( elem, this ); + } + } ); + }, + + after: function() { + return domManip( this, arguments, function( elem ) { + if ( this.parentNode ) { + this.parentNode.insertBefore( elem, this.nextSibling ); + } + } ); + }, + + empty: function() { + var elem, + i = 0; + + for ( ; ( elem = this[ i ] ) != null; i++ ) { + if ( elem.nodeType === 1 ) { + + // Prevent memory leaks + jQuery.cleanData( getAll( elem, false ) ); + + // Remove any remaining nodes + elem.textContent = ""; + } + } + + return this; + }, + + clone: function( dataAndEvents, deepDataAndEvents ) { + dataAndEvents = dataAndEvents == null ? false : dataAndEvents; + deepDataAndEvents = deepDataAndEvents == null ? dataAndEvents : deepDataAndEvents; + + return this.map( function() { + return jQuery.clone( this, dataAndEvents, deepDataAndEvents ); + } ); + }, + + html: function( value ) { + return access( this, function( value ) { + var elem = this[ 0 ] || {}, + i = 0, + l = this.length; + + if ( value === undefined && elem.nodeType === 1 ) { + return elem.innerHTML; + } + + // See if we can take a shortcut and just use innerHTML + if ( typeof value === "string" && !rnoInnerhtml.test( value ) && + !wrapMap[ ( rtagName.exec( value ) || [ "", "" ] )[ 1 ].toLowerCase() ] ) { + + value = jQuery.htmlPrefilter( value ); + + try { + for ( ; i < l; i++ ) { + elem = this[ i ] || {}; + + // Remove element nodes and prevent memory leaks + if ( elem.nodeType === 1 ) { + jQuery.cleanData( getAll( elem, false ) ); + elem.innerHTML = value; + } + } + + elem = 0; + + // If using innerHTML throws an exception, use the fallback method + } catch ( e ) {} + } + + if ( elem ) { + this.empty().append( value ); + } + }, null, value, arguments.length ); + }, + + replaceWith: function() { + var ignored = []; + + // Make the changes, replacing each non-ignored context element with the new content + return domManip( this, arguments, function( elem ) { + var parent = this.parentNode; + + if ( jQuery.inArray( this, ignored ) < 0 ) { + jQuery.cleanData( getAll( this ) ); + if ( parent ) { + parent.replaceChild( elem, this ); + } + } + + // Force callback invocation + }, ignored ); + } +} ); + +jQuery.each( { + appendTo: "append", + prependTo: "prepend", + insertBefore: "before", + insertAfter: "after", + replaceAll: "replaceWith" +}, function( name, original ) { + jQuery.fn[ name ] = function( selector ) { + var elems, + ret = [], + insert = jQuery( selector ), + last = insert.length - 1, + i = 0; + + for ( ; i <= last; i++ ) { + elems = i === last ? this : this.clone( true ); + jQuery( insert[ i ] )[ original ]( elems ); + + // Support: Android <=4.0 only, PhantomJS 1 only + // .get() because push.apply(_, arraylike) throws on ancient WebKit + push.apply( ret, elems.get() ); + } + + return this.pushStack( ret ); + }; +} ); +var rnumnonpx = new RegExp( "^(" + pnum + ")(?!px)[a-z%]+$", "i" ); + +var getStyles = function( elem ) { + + // Support: IE <=11 only, Firefox <=30 (#15098, #14150) + // IE throws on elements created in popups + // FF meanwhile throws on frame elements through "defaultView.getComputedStyle" + var view = elem.ownerDocument.defaultView; + + if ( !view || !view.opener ) { + view = window; + } + + return view.getComputedStyle( elem ); + }; + +var swap = function( elem, options, callback ) { + var ret, name, + old = {}; + + // Remember the old values, and insert the new ones + for ( name in options ) { + old[ name ] = elem.style[ name ]; + elem.style[ name ] = options[ name ]; + } + + ret = callback.call( elem ); + + // Revert the old values + for ( name in options ) { + elem.style[ name ] = old[ name ]; + } + + return ret; +}; + + +var rboxStyle = new RegExp( cssExpand.join( "|" ), "i" ); + + + +( function() { + + // Executing both pixelPosition & boxSizingReliable tests require only one layout + // so they're executed at the same time to save the second computation. + function computeStyleTests() { + + // This is a singleton, we need to execute it only once + if ( !div ) { + return; + } + + container.style.cssText = "position:absolute;left:-11111px;width:60px;" + + "margin-top:1px;padding:0;border:0"; + div.style.cssText = + "position:relative;display:block;box-sizing:border-box;overflow:scroll;" + + "margin:auto;border:1px;padding:1px;" + + "width:60%;top:1%"; + documentElement.appendChild( container ).appendChild( div ); + + var divStyle = window.getComputedStyle( div ); + pixelPositionVal = divStyle.top !== "1%"; + + // Support: Android 4.0 - 4.3 only, Firefox <=3 - 44 + reliableMarginLeftVal = roundPixelMeasures( divStyle.marginLeft ) === 12; + + // Support: Android 4.0 - 4.3 only, Safari <=9.1 - 10.1, iOS <=7.0 - 9.3 + // Some styles come back with percentage values, even though they shouldn't + div.style.right = "60%"; + pixelBoxStylesVal = roundPixelMeasures( divStyle.right ) === 36; + + // Support: IE 9 - 11 only + // Detect misreporting of content dimensions for box-sizing:border-box elements + boxSizingReliableVal = roundPixelMeasures( divStyle.width ) === 36; + + // Support: IE 9 only + // Detect overflow:scroll screwiness (gh-3699) + // Support: Chrome <=64 + // Don't get tricked when zoom affects offsetWidth (gh-4029) + div.style.position = "absolute"; + scrollboxSizeVal = roundPixelMeasures( div.offsetWidth / 3 ) === 12; + + documentElement.removeChild( container ); + + // Nullify the div so it wouldn't be stored in the memory and + // it will also be a sign that checks already performed + div = null; + } + + function roundPixelMeasures( measure ) { + return Math.round( parseFloat( measure ) ); + } + + var pixelPositionVal, boxSizingReliableVal, scrollboxSizeVal, pixelBoxStylesVal, + reliableTrDimensionsVal, reliableMarginLeftVal, + container = document.createElement( "div" ), + div = document.createElement( "div" ); + + // Finish early in limited (non-browser) environments + if ( !div.style ) { + return; + } + + // Support: IE <=9 - 11 only + // Style of cloned element affects source element cloned (#8908) + div.style.backgroundClip = "content-box"; + div.cloneNode( true ).style.backgroundClip = ""; + support.clearCloneStyle = div.style.backgroundClip === "content-box"; + + jQuery.extend( support, { + boxSizingReliable: function() { + computeStyleTests(); + return boxSizingReliableVal; + }, + pixelBoxStyles: function() { + computeStyleTests(); + return pixelBoxStylesVal; + }, + pixelPosition: function() { + computeStyleTests(); + return pixelPositionVal; + }, + reliableMarginLeft: function() { + computeStyleTests(); + return reliableMarginLeftVal; + }, + scrollboxSize: function() { + computeStyleTests(); + return scrollboxSizeVal; + }, + + // Support: IE 9 - 11+, Edge 15 - 18+ + // IE/Edge misreport `getComputedStyle` of table rows with width/height + // set in CSS while `offset*` properties report correct values. + // Behavior in IE 9 is more subtle than in newer versions & it passes + // some versions of this test; make sure not to make it pass there! + // + // Support: Firefox 70+ + // Only Firefox includes border widths + // in computed dimensions. (gh-4529) + reliableTrDimensions: function() { + var table, tr, trChild, trStyle; + if ( reliableTrDimensionsVal == null ) { + table = document.createElement( "table" ); + tr = document.createElement( "tr" ); + trChild = document.createElement( "div" ); + + table.style.cssText = "position:absolute;left:-11111px;border-collapse:separate"; + tr.style.cssText = "border:1px solid"; + + // Support: Chrome 86+ + // Height set through cssText does not get applied. + // Computed height then comes back as 0. + tr.style.height = "1px"; + trChild.style.height = "9px"; + + // Support: Android 8 Chrome 86+ + // In our bodyBackground.html iframe, + // display for all div elements is set to "inline", + // which causes a problem only in Android 8 Chrome 86. + // Ensuring the div is display: block + // gets around this issue. + trChild.style.display = "block"; + + documentElement + .appendChild( table ) + .appendChild( tr ) + .appendChild( trChild ); + + trStyle = window.getComputedStyle( tr ); + reliableTrDimensionsVal = ( parseInt( trStyle.height, 10 ) + + parseInt( trStyle.borderTopWidth, 10 ) + + parseInt( trStyle.borderBottomWidth, 10 ) ) === tr.offsetHeight; + + documentElement.removeChild( table ); + } + return reliableTrDimensionsVal; + } + } ); +} )(); + + +function curCSS( elem, name, computed ) { + var width, minWidth, maxWidth, ret, + + // Support: Firefox 51+ + // Retrieving style before computed somehow + // fixes an issue with getting wrong values + // on detached elements + style = elem.style; + + computed = computed || getStyles( elem ); + + // getPropertyValue is needed for: + // .css('filter') (IE 9 only, #12537) + // .css('--customProperty) (#3144) + if ( computed ) { + ret = computed.getPropertyValue( name ) || computed[ name ]; + + if ( ret === "" && !isAttached( elem ) ) { + ret = jQuery.style( elem, name ); + } + + // A tribute to the "awesome hack by Dean Edwards" + // Android Browser returns percentage for some values, + // but width seems to be reliably pixels. + // This is against the CSSOM draft spec: + // https://drafts.csswg.org/cssom/#resolved-values + if ( !support.pixelBoxStyles() && rnumnonpx.test( ret ) && rboxStyle.test( name ) ) { + + // Remember the original values + width = style.width; + minWidth = style.minWidth; + maxWidth = style.maxWidth; + + // Put in the new values to get a computed value out + style.minWidth = style.maxWidth = style.width = ret; + ret = computed.width; + + // Revert the changed values + style.width = width; + style.minWidth = minWidth; + style.maxWidth = maxWidth; + } + } + + return ret !== undefined ? + + // Support: IE <=9 - 11 only + // IE returns zIndex value as an integer. + ret + "" : + ret; +} + + +function addGetHookIf( conditionFn, hookFn ) { + + // Define the hook, we'll check on the first run if it's really needed. + return { + get: function() { + if ( conditionFn() ) { + + // Hook not needed (or it's not possible to use it due + // to missing dependency), remove it. + delete this.get; + return; + } + + // Hook needed; redefine it so that the support test is not executed again. + return ( this.get = hookFn ).apply( this, arguments ); + } + }; +} + + +var cssPrefixes = [ "Webkit", "Moz", "ms" ], + emptyStyle = document.createElement( "div" ).style, + vendorProps = {}; + +// Return a vendor-prefixed property or undefined +function vendorPropName( name ) { + + // Check for vendor prefixed names + var capName = name[ 0 ].toUpperCase() + name.slice( 1 ), + i = cssPrefixes.length; + + while ( i-- ) { + name = cssPrefixes[ i ] + capName; + if ( name in emptyStyle ) { + return name; + } + } +} + +// Return a potentially-mapped jQuery.cssProps or vendor prefixed property +function finalPropName( name ) { + var final = jQuery.cssProps[ name ] || vendorProps[ name ]; + + if ( final ) { + return final; + } + if ( name in emptyStyle ) { + return name; + } + return vendorProps[ name ] = vendorPropName( name ) || name; +} + + +var + + // Swappable if display is none or starts with table + // except "table", "table-cell", or "table-caption" + // See here for display values: https://developer.mozilla.org/en-US/docs/CSS/display + rdisplayswap = /^(none|table(?!-c[ea]).+)/, + rcustomProp = /^--/, + cssShow = { position: "absolute", visibility: "hidden", display: "block" }, + cssNormalTransform = { + letterSpacing: "0", + fontWeight: "400" + }; + +function setPositiveNumber( _elem, value, subtract ) { + + // Any relative (+/-) values have already been + // normalized at this point + var matches = rcssNum.exec( value ); + return matches ? + + // Guard against undefined "subtract", e.g., when used as in cssHooks + Math.max( 0, matches[ 2 ] - ( subtract || 0 ) ) + ( matches[ 3 ] || "px" ) : + value; +} + +function boxModelAdjustment( elem, dimension, box, isBorderBox, styles, computedVal ) { + var i = dimension === "width" ? 1 : 0, + extra = 0, + delta = 0; + + // Adjustment may not be necessary + if ( box === ( isBorderBox ? "border" : "content" ) ) { + return 0; + } + + for ( ; i < 4; i += 2 ) { + + // Both box models exclude margin + if ( box === "margin" ) { + delta += jQuery.css( elem, box + cssExpand[ i ], true, styles ); + } + + // If we get here with a content-box, we're seeking "padding" or "border" or "margin" + if ( !isBorderBox ) { + + // Add padding + delta += jQuery.css( elem, "padding" + cssExpand[ i ], true, styles ); + + // For "border" or "margin", add border + if ( box !== "padding" ) { + delta += jQuery.css( elem, "border" + cssExpand[ i ] + "Width", true, styles ); + + // But still keep track of it otherwise + } else { + extra += jQuery.css( elem, "border" + cssExpand[ i ] + "Width", true, styles ); + } + + // If we get here with a border-box (content + padding + border), we're seeking "content" or + // "padding" or "margin" + } else { + + // For "content", subtract padding + if ( box === "content" ) { + delta -= jQuery.css( elem, "padding" + cssExpand[ i ], true, styles ); + } + + // For "content" or "padding", subtract border + if ( box !== "margin" ) { + delta -= jQuery.css( elem, "border" + cssExpand[ i ] + "Width", true, styles ); + } + } + } + + // Account for positive content-box scroll gutter when requested by providing computedVal + if ( !isBorderBox && computedVal >= 0 ) { + + // offsetWidth/offsetHeight is a rounded sum of content, padding, scroll gutter, and border + // Assuming integer scroll gutter, subtract the rest and round down + delta += Math.max( 0, Math.ceil( + elem[ "offset" + dimension[ 0 ].toUpperCase() + dimension.slice( 1 ) ] - + computedVal - + delta - + extra - + 0.5 + + // If offsetWidth/offsetHeight is unknown, then we can't determine content-box scroll gutter + // Use an explicit zero to avoid NaN (gh-3964) + ) ) || 0; + } + + return delta; +} + +function getWidthOrHeight( elem, dimension, extra ) { + + // Start with computed style + var styles = getStyles( elem ), + + // To avoid forcing a reflow, only fetch boxSizing if we need it (gh-4322). + // Fake content-box until we know it's needed to know the true value. + boxSizingNeeded = !support.boxSizingReliable() || extra, + isBorderBox = boxSizingNeeded && + jQuery.css( elem, "boxSizing", false, styles ) === "border-box", + valueIsBorderBox = isBorderBox, + + val = curCSS( elem, dimension, styles ), + offsetProp = "offset" + dimension[ 0 ].toUpperCase() + dimension.slice( 1 ); + + // Support: Firefox <=54 + // Return a confounding non-pixel value or feign ignorance, as appropriate. + if ( rnumnonpx.test( val ) ) { + if ( !extra ) { + return val; + } + val = "auto"; + } + + + // Support: IE 9 - 11 only + // Use offsetWidth/offsetHeight for when box sizing is unreliable. + // In those cases, the computed value can be trusted to be border-box. + if ( ( !support.boxSizingReliable() && isBorderBox || + + // Support: IE 10 - 11+, Edge 15 - 18+ + // IE/Edge misreport `getComputedStyle` of table rows with width/height + // set in CSS while `offset*` properties report correct values. + // Interestingly, in some cases IE 9 doesn't suffer from this issue. + !support.reliableTrDimensions() && nodeName( elem, "tr" ) || + + // Fall back to offsetWidth/offsetHeight when value is "auto" + // This happens for inline elements with no explicit setting (gh-3571) + val === "auto" || + + // Support: Android <=4.1 - 4.3 only + // Also use offsetWidth/offsetHeight for misreported inline dimensions (gh-3602) + !parseFloat( val ) && jQuery.css( elem, "display", false, styles ) === "inline" ) && + + // Make sure the element is visible & connected + elem.getClientRects().length ) { + + isBorderBox = jQuery.css( elem, "boxSizing", false, styles ) === "border-box"; + + // Where available, offsetWidth/offsetHeight approximate border box dimensions. + // Where not available (e.g., SVG), assume unreliable box-sizing and interpret the + // retrieved value as a content box dimension. + valueIsBorderBox = offsetProp in elem; + if ( valueIsBorderBox ) { + val = elem[ offsetProp ]; + } + } + + // Normalize "" and auto + val = parseFloat( val ) || 0; + + // Adjust for the element's box model + return ( val + + boxModelAdjustment( + elem, + dimension, + extra || ( isBorderBox ? "border" : "content" ), + valueIsBorderBox, + styles, + + // Provide the current computed size to request scroll gutter calculation (gh-3589) + val + ) + ) + "px"; +} + +jQuery.extend( { + + // Add in style property hooks for overriding the default + // behavior of getting and setting a style property + cssHooks: { + opacity: { + get: function( elem, computed ) { + if ( computed ) { + + // We should always get a number back from opacity + var ret = curCSS( elem, "opacity" ); + return ret === "" ? "1" : ret; + } + } + } + }, + + // Don't automatically add "px" to these possibly-unitless properties + cssNumber: { + "animationIterationCount": true, + "columnCount": true, + "fillOpacity": true, + "flexGrow": true, + "flexShrink": true, + "fontWeight": true, + "gridArea": true, + "gridColumn": true, + "gridColumnEnd": true, + "gridColumnStart": true, + "gridRow": true, + "gridRowEnd": true, + "gridRowStart": true, + "lineHeight": true, + "opacity": true, + "order": true, + "orphans": true, + "widows": true, + "zIndex": true, + "zoom": true + }, + + // Add in properties whose names you wish to fix before + // setting or getting the value + cssProps: {}, + + // Get and set the style property on a DOM Node + style: function( elem, name, value, extra ) { + + // Don't set styles on text and comment nodes + if ( !elem || elem.nodeType === 3 || elem.nodeType === 8 || !elem.style ) { + return; + } + + // Make sure that we're working with the right name + var ret, type, hooks, + origName = camelCase( name ), + isCustomProp = rcustomProp.test( name ), + style = elem.style; + + // Make sure that we're working with the right name. We don't + // want to query the value if it is a CSS custom property + // since they are user-defined. + if ( !isCustomProp ) { + name = finalPropName( origName ); + } + + // Gets hook for the prefixed version, then unprefixed version + hooks = jQuery.cssHooks[ name ] || jQuery.cssHooks[ origName ]; + + // Check if we're setting a value + if ( value !== undefined ) { + type = typeof value; + + // Convert "+=" or "-=" to relative numbers (#7345) + if ( type === "string" && ( ret = rcssNum.exec( value ) ) && ret[ 1 ] ) { + value = adjustCSS( elem, name, ret ); + + // Fixes bug #9237 + type = "number"; + } + + // Make sure that null and NaN values aren't set (#7116) + if ( value == null || value !== value ) { + return; + } + + // If a number was passed in, add the unit (except for certain CSS properties) + // The isCustomProp check can be removed in jQuery 4.0 when we only auto-append + // "px" to a few hardcoded values. + if ( type === "number" && !isCustomProp ) { + value += ret && ret[ 3 ] || ( jQuery.cssNumber[ origName ] ? "" : "px" ); + } + + // background-* props affect original clone's values + if ( !support.clearCloneStyle && value === "" && name.indexOf( "background" ) === 0 ) { + style[ name ] = "inherit"; + } + + // If a hook was provided, use that value, otherwise just set the specified value + if ( !hooks || !( "set" in hooks ) || + ( value = hooks.set( elem, value, extra ) ) !== undefined ) { + + if ( isCustomProp ) { + style.setProperty( name, value ); + } else { + style[ name ] = value; + } + } + + } else { + + // If a hook was provided get the non-computed value from there + if ( hooks && "get" in hooks && + ( ret = hooks.get( elem, false, extra ) ) !== undefined ) { + + return ret; + } + + // Otherwise just get the value from the style object + return style[ name ]; + } + }, + + css: function( elem, name, extra, styles ) { + var val, num, hooks, + origName = camelCase( name ), + isCustomProp = rcustomProp.test( name ); + + // Make sure that we're working with the right name. We don't + // want to modify the value if it is a CSS custom property + // since they are user-defined. + if ( !isCustomProp ) { + name = finalPropName( origName ); + } + + // Try prefixed name followed by the unprefixed name + hooks = jQuery.cssHooks[ name ] || jQuery.cssHooks[ origName ]; + + // If a hook was provided get the computed value from there + if ( hooks && "get" in hooks ) { + val = hooks.get( elem, true, extra ); + } + + // Otherwise, if a way to get the computed value exists, use that + if ( val === undefined ) { + val = curCSS( elem, name, styles ); + } + + // Convert "normal" to computed value + if ( val === "normal" && name in cssNormalTransform ) { + val = cssNormalTransform[ name ]; + } + + // Make numeric if forced or a qualifier was provided and val looks numeric + if ( extra === "" || extra ) { + num = parseFloat( val ); + return extra === true || isFinite( num ) ? num || 0 : val; + } + + return val; + } +} ); + +jQuery.each( [ "height", "width" ], function( _i, dimension ) { + jQuery.cssHooks[ dimension ] = { + get: function( elem, computed, extra ) { + if ( computed ) { + + // Certain elements can have dimension info if we invisibly show them + // but it must have a current display style that would benefit + return rdisplayswap.test( jQuery.css( elem, "display" ) ) && + + // Support: Safari 8+ + // Table columns in Safari have non-zero offsetWidth & zero + // getBoundingClientRect().width unless display is changed. + // Support: IE <=11 only + // Running getBoundingClientRect on a disconnected node + // in IE throws an error. + ( !elem.getClientRects().length || !elem.getBoundingClientRect().width ) ? + swap( elem, cssShow, function() { + return getWidthOrHeight( elem, dimension, extra ); + } ) : + getWidthOrHeight( elem, dimension, extra ); + } + }, + + set: function( elem, value, extra ) { + var matches, + styles = getStyles( elem ), + + // Only read styles.position if the test has a chance to fail + // to avoid forcing a reflow. + scrollboxSizeBuggy = !support.scrollboxSize() && + styles.position === "absolute", + + // To avoid forcing a reflow, only fetch boxSizing if we need it (gh-3991) + boxSizingNeeded = scrollboxSizeBuggy || extra, + isBorderBox = boxSizingNeeded && + jQuery.css( elem, "boxSizing", false, styles ) === "border-box", + subtract = extra ? + boxModelAdjustment( + elem, + dimension, + extra, + isBorderBox, + styles + ) : + 0; + + // Account for unreliable border-box dimensions by comparing offset* to computed and + // faking a content-box to get border and padding (gh-3699) + if ( isBorderBox && scrollboxSizeBuggy ) { + subtract -= Math.ceil( + elem[ "offset" + dimension[ 0 ].toUpperCase() + dimension.slice( 1 ) ] - + parseFloat( styles[ dimension ] ) - + boxModelAdjustment( elem, dimension, "border", false, styles ) - + 0.5 + ); + } + + // Convert to pixels if value adjustment is needed + if ( subtract && ( matches = rcssNum.exec( value ) ) && + ( matches[ 3 ] || "px" ) !== "px" ) { + + elem.style[ dimension ] = value; + value = jQuery.css( elem, dimension ); + } + + return setPositiveNumber( elem, value, subtract ); + } + }; +} ); + +jQuery.cssHooks.marginLeft = addGetHookIf( support.reliableMarginLeft, + function( elem, computed ) { + if ( computed ) { + return ( parseFloat( curCSS( elem, "marginLeft" ) ) || + elem.getBoundingClientRect().left - + swap( elem, { marginLeft: 0 }, function() { + return elem.getBoundingClientRect().left; + } ) + ) + "px"; + } + } +); + +// These hooks are used by animate to expand properties +jQuery.each( { + margin: "", + padding: "", + border: "Width" +}, function( prefix, suffix ) { + jQuery.cssHooks[ prefix + suffix ] = { + expand: function( value ) { + var i = 0, + expanded = {}, + + // Assumes a single number if not a string + parts = typeof value === "string" ? value.split( " " ) : [ value ]; + + for ( ; i < 4; i++ ) { + expanded[ prefix + cssExpand[ i ] + suffix ] = + parts[ i ] || parts[ i - 2 ] || parts[ 0 ]; + } + + return expanded; + } + }; + + if ( prefix !== "margin" ) { + jQuery.cssHooks[ prefix + suffix ].set = setPositiveNumber; + } +} ); + +jQuery.fn.extend( { + css: function( name, value ) { + return access( this, function( elem, name, value ) { + var styles, len, + map = {}, + i = 0; + + if ( Array.isArray( name ) ) { + styles = getStyles( elem ); + len = name.length; + + for ( ; i < len; i++ ) { + map[ name[ i ] ] = jQuery.css( elem, name[ i ], false, styles ); + } + + return map; + } + + return value !== undefined ? + jQuery.style( elem, name, value ) : + jQuery.css( elem, name ); + }, name, value, arguments.length > 1 ); + } +} ); + + +function Tween( elem, options, prop, end, easing ) { + return new Tween.prototype.init( elem, options, prop, end, easing ); +} +jQuery.Tween = Tween; + +Tween.prototype = { + constructor: Tween, + init: function( elem, options, prop, end, easing, unit ) { + this.elem = elem; + this.prop = prop; + this.easing = easing || jQuery.easing._default; + this.options = options; + this.start = this.now = this.cur(); + this.end = end; + this.unit = unit || ( jQuery.cssNumber[ prop ] ? "" : "px" ); + }, + cur: function() { + var hooks = Tween.propHooks[ this.prop ]; + + return hooks && hooks.get ? + hooks.get( this ) : + Tween.propHooks._default.get( this ); + }, + run: function( percent ) { + var eased, + hooks = Tween.propHooks[ this.prop ]; + + if ( this.options.duration ) { + this.pos = eased = jQuery.easing[ this.easing ]( + percent, this.options.duration * percent, 0, 1, this.options.duration + ); + } else { + this.pos = eased = percent; + } + this.now = ( this.end - this.start ) * eased + this.start; + + if ( this.options.step ) { + this.options.step.call( this.elem, this.now, this ); + } + + if ( hooks && hooks.set ) { + hooks.set( this ); + } else { + Tween.propHooks._default.set( this ); + } + return this; + } +}; + +Tween.prototype.init.prototype = Tween.prototype; + +Tween.propHooks = { + _default: { + get: function( tween ) { + var result; + + // Use a property on the element directly when it is not a DOM element, + // or when there is no matching style property that exists. + if ( tween.elem.nodeType !== 1 || + tween.elem[ tween.prop ] != null && tween.elem.style[ tween.prop ] == null ) { + return tween.elem[ tween.prop ]; + } + + // Passing an empty string as a 3rd parameter to .css will automatically + // attempt a parseFloat and fallback to a string if the parse fails. + // Simple values such as "10px" are parsed to Float; + // complex values such as "rotate(1rad)" are returned as-is. + result = jQuery.css( tween.elem, tween.prop, "" ); + + // Empty strings, null, undefined and "auto" are converted to 0. + return !result || result === "auto" ? 0 : result; + }, + set: function( tween ) { + + // Use step hook for back compat. + // Use cssHook if its there. + // Use .style if available and use plain properties where available. + if ( jQuery.fx.step[ tween.prop ] ) { + jQuery.fx.step[ tween.prop ]( tween ); + } else if ( tween.elem.nodeType === 1 && ( + jQuery.cssHooks[ tween.prop ] || + tween.elem.style[ finalPropName( tween.prop ) ] != null ) ) { + jQuery.style( tween.elem, tween.prop, tween.now + tween.unit ); + } else { + tween.elem[ tween.prop ] = tween.now; + } + } + } +}; + +// Support: IE <=9 only +// Panic based approach to setting things on disconnected nodes +Tween.propHooks.scrollTop = Tween.propHooks.scrollLeft = { + set: function( tween ) { + if ( tween.elem.nodeType && tween.elem.parentNode ) { + tween.elem[ tween.prop ] = tween.now; + } + } +}; + +jQuery.easing = { + linear: function( p ) { + return p; + }, + swing: function( p ) { + return 0.5 - Math.cos( p * Math.PI ) / 2; + }, + _default: "swing" +}; + +jQuery.fx = Tween.prototype.init; + +// Back compat <1.8 extension point +jQuery.fx.step = {}; + + + + +var + fxNow, inProgress, + rfxtypes = /^(?:toggle|show|hide)$/, + rrun = /queueHooks$/; + +function schedule() { + if ( inProgress ) { + if ( document.hidden === false && window.requestAnimationFrame ) { + window.requestAnimationFrame( schedule ); + } else { + window.setTimeout( schedule, jQuery.fx.interval ); + } + + jQuery.fx.tick(); + } +} + +// Animations created synchronously will run synchronously +function createFxNow() { + window.setTimeout( function() { + fxNow = undefined; + } ); + return ( fxNow = Date.now() ); +} + +// Generate parameters to create a standard animation +function genFx( type, includeWidth ) { + var which, + i = 0, + attrs = { height: type }; + + // If we include width, step value is 1 to do all cssExpand values, + // otherwise step value is 2 to skip over Left and Right + includeWidth = includeWidth ? 1 : 0; + for ( ; i < 4; i += 2 - includeWidth ) { + which = cssExpand[ i ]; + attrs[ "margin" + which ] = attrs[ "padding" + which ] = type; + } + + if ( includeWidth ) { + attrs.opacity = attrs.width = type; + } + + return attrs; +} + +function createTween( value, prop, animation ) { + var tween, + collection = ( Animation.tweeners[ prop ] || [] ).concat( Animation.tweeners[ "*" ] ), + index = 0, + length = collection.length; + for ( ; index < length; index++ ) { + if ( ( tween = collection[ index ].call( animation, prop, value ) ) ) { + + // We're done with this property + return tween; + } + } +} + +function defaultPrefilter( elem, props, opts ) { + var prop, value, toggle, hooks, oldfire, propTween, restoreDisplay, display, + isBox = "width" in props || "height" in props, + anim = this, + orig = {}, + style = elem.style, + hidden = elem.nodeType && isHiddenWithinTree( elem ), + dataShow = dataPriv.get( elem, "fxshow" ); + + // Queue-skipping animations hijack the fx hooks + if ( !opts.queue ) { + hooks = jQuery._queueHooks( elem, "fx" ); + if ( hooks.unqueued == null ) { + hooks.unqueued = 0; + oldfire = hooks.empty.fire; + hooks.empty.fire = function() { + if ( !hooks.unqueued ) { + oldfire(); + } + }; + } + hooks.unqueued++; + + anim.always( function() { + + // Ensure the complete handler is called before this completes + anim.always( function() { + hooks.unqueued--; + if ( !jQuery.queue( elem, "fx" ).length ) { + hooks.empty.fire(); + } + } ); + } ); + } + + // Detect show/hide animations + for ( prop in props ) { + value = props[ prop ]; + if ( rfxtypes.test( value ) ) { + delete props[ prop ]; + toggle = toggle || value === "toggle"; + if ( value === ( hidden ? "hide" : "show" ) ) { + + // Pretend to be hidden if this is a "show" and + // there is still data from a stopped show/hide + if ( value === "show" && dataShow && dataShow[ prop ] !== undefined ) { + hidden = true; + + // Ignore all other no-op show/hide data + } else { + continue; + } + } + orig[ prop ] = dataShow && dataShow[ prop ] || jQuery.style( elem, prop ); + } + } + + // Bail out if this is a no-op like .hide().hide() + propTween = !jQuery.isEmptyObject( props ); + if ( !propTween && jQuery.isEmptyObject( orig ) ) { + return; + } + + // Restrict "overflow" and "display" styles during box animations + if ( isBox && elem.nodeType === 1 ) { + + // Support: IE <=9 - 11, Edge 12 - 15 + // Record all 3 overflow attributes because IE does not infer the shorthand + // from identically-valued overflowX and overflowY and Edge just mirrors + // the overflowX value there. + opts.overflow = [ style.overflow, style.overflowX, style.overflowY ]; + + // Identify a display type, preferring old show/hide data over the CSS cascade + restoreDisplay = dataShow && dataShow.display; + if ( restoreDisplay == null ) { + restoreDisplay = dataPriv.get( elem, "display" ); + } + display = jQuery.css( elem, "display" ); + if ( display === "none" ) { + if ( restoreDisplay ) { + display = restoreDisplay; + } else { + + // Get nonempty value(s) by temporarily forcing visibility + showHide( [ elem ], true ); + restoreDisplay = elem.style.display || restoreDisplay; + display = jQuery.css( elem, "display" ); + showHide( [ elem ] ); + } + } + + // Animate inline elements as inline-block + if ( display === "inline" || display === "inline-block" && restoreDisplay != null ) { + if ( jQuery.css( elem, "float" ) === "none" ) { + + // Restore the original display value at the end of pure show/hide animations + if ( !propTween ) { + anim.done( function() { + style.display = restoreDisplay; + } ); + if ( restoreDisplay == null ) { + display = style.display; + restoreDisplay = display === "none" ? "" : display; + } + } + style.display = "inline-block"; + } + } + } + + if ( opts.overflow ) { + style.overflow = "hidden"; + anim.always( function() { + style.overflow = opts.overflow[ 0 ]; + style.overflowX = opts.overflow[ 1 ]; + style.overflowY = opts.overflow[ 2 ]; + } ); + } + + // Implement show/hide animations + propTween = false; + for ( prop in orig ) { + + // General show/hide setup for this element animation + if ( !propTween ) { + if ( dataShow ) { + if ( "hidden" in dataShow ) { + hidden = dataShow.hidden; + } + } else { + dataShow = dataPriv.access( elem, "fxshow", { display: restoreDisplay } ); + } + + // Store hidden/visible for toggle so `.stop().toggle()` "reverses" + if ( toggle ) { + dataShow.hidden = !hidden; + } + + // Show elements before animating them + if ( hidden ) { + showHide( [ elem ], true ); + } + + /* eslint-disable no-loop-func */ + + anim.done( function() { + + /* eslint-enable no-loop-func */ + + // The final step of a "hide" animation is actually hiding the element + if ( !hidden ) { + showHide( [ elem ] ); + } + dataPriv.remove( elem, "fxshow" ); + for ( prop in orig ) { + jQuery.style( elem, prop, orig[ prop ] ); + } + } ); + } + + // Per-property setup + propTween = createTween( hidden ? dataShow[ prop ] : 0, prop, anim ); + if ( !( prop in dataShow ) ) { + dataShow[ prop ] = propTween.start; + if ( hidden ) { + propTween.end = propTween.start; + propTween.start = 0; + } + } + } +} + +function propFilter( props, specialEasing ) { + var index, name, easing, value, hooks; + + // camelCase, specialEasing and expand cssHook pass + for ( index in props ) { + name = camelCase( index ); + easing = specialEasing[ name ]; + value = props[ index ]; + if ( Array.isArray( value ) ) { + easing = value[ 1 ]; + value = props[ index ] = value[ 0 ]; + } + + if ( index !== name ) { + props[ name ] = value; + delete props[ index ]; + } + + hooks = jQuery.cssHooks[ name ]; + if ( hooks && "expand" in hooks ) { + value = hooks.expand( value ); + delete props[ name ]; + + // Not quite $.extend, this won't overwrite existing keys. + // Reusing 'index' because we have the correct "name" + for ( index in value ) { + if ( !( index in props ) ) { + props[ index ] = value[ index ]; + specialEasing[ index ] = easing; + } + } + } else { + specialEasing[ name ] = easing; + } + } +} + +function Animation( elem, properties, options ) { + var result, + stopped, + index = 0, + length = Animation.prefilters.length, + deferred = jQuery.Deferred().always( function() { + + // Don't match elem in the :animated selector + delete tick.elem; + } ), + tick = function() { + if ( stopped ) { + return false; + } + var currentTime = fxNow || createFxNow(), + remaining = Math.max( 0, animation.startTime + animation.duration - currentTime ), + + // Support: Android 2.3 only + // Archaic crash bug won't allow us to use `1 - ( 0.5 || 0 )` (#12497) + temp = remaining / animation.duration || 0, + percent = 1 - temp, + index = 0, + length = animation.tweens.length; + + for ( ; index < length; index++ ) { + animation.tweens[ index ].run( percent ); + } + + deferred.notifyWith( elem, [ animation, percent, remaining ] ); + + // If there's more to do, yield + if ( percent < 1 && length ) { + return remaining; + } + + // If this was an empty animation, synthesize a final progress notification + if ( !length ) { + deferred.notifyWith( elem, [ animation, 1, 0 ] ); + } + + // Resolve the animation and report its conclusion + deferred.resolveWith( elem, [ animation ] ); + return false; + }, + animation = deferred.promise( { + elem: elem, + props: jQuery.extend( {}, properties ), + opts: jQuery.extend( true, { + specialEasing: {}, + easing: jQuery.easing._default + }, options ), + originalProperties: properties, + originalOptions: options, + startTime: fxNow || createFxNow(), + duration: options.duration, + tweens: [], + createTween: function( prop, end ) { + var tween = jQuery.Tween( elem, animation.opts, prop, end, + animation.opts.specialEasing[ prop ] || animation.opts.easing ); + animation.tweens.push( tween ); + return tween; + }, + stop: function( gotoEnd ) { + var index = 0, + + // If we are going to the end, we want to run all the tweens + // otherwise we skip this part + length = gotoEnd ? animation.tweens.length : 0; + if ( stopped ) { + return this; + } + stopped = true; + for ( ; index < length; index++ ) { + animation.tweens[ index ].run( 1 ); + } + + // Resolve when we played the last frame; otherwise, reject + if ( gotoEnd ) { + deferred.notifyWith( elem, [ animation, 1, 0 ] ); + deferred.resolveWith( elem, [ animation, gotoEnd ] ); + } else { + deferred.rejectWith( elem, [ animation, gotoEnd ] ); + } + return this; + } + } ), + props = animation.props; + + propFilter( props, animation.opts.specialEasing ); + + for ( ; index < length; index++ ) { + result = Animation.prefilters[ index ].call( animation, elem, props, animation.opts ); + if ( result ) { + if ( isFunction( result.stop ) ) { + jQuery._queueHooks( animation.elem, animation.opts.queue ).stop = + result.stop.bind( result ); + } + return result; + } + } + + jQuery.map( props, createTween, animation ); + + if ( isFunction( animation.opts.start ) ) { + animation.opts.start.call( elem, animation ); + } + + // Attach callbacks from options + animation + .progress( animation.opts.progress ) + .done( animation.opts.done, animation.opts.complete ) + .fail( animation.opts.fail ) + .always( animation.opts.always ); + + jQuery.fx.timer( + jQuery.extend( tick, { + elem: elem, + anim: animation, + queue: animation.opts.queue + } ) + ); + + return animation; +} + +jQuery.Animation = jQuery.extend( Animation, { + + tweeners: { + "*": [ function( prop, value ) { + var tween = this.createTween( prop, value ); + adjustCSS( tween.elem, prop, rcssNum.exec( value ), tween ); + return tween; + } ] + }, + + tweener: function( props, callback ) { + if ( isFunction( props ) ) { + callback = props; + props = [ "*" ]; + } else { + props = props.match( rnothtmlwhite ); + } + + var prop, + index = 0, + length = props.length; + + for ( ; index < length; index++ ) { + prop = props[ index ]; + Animation.tweeners[ prop ] = Animation.tweeners[ prop ] || []; + Animation.tweeners[ prop ].unshift( callback ); + } + }, + + prefilters: [ defaultPrefilter ], + + prefilter: function( callback, prepend ) { + if ( prepend ) { + Animation.prefilters.unshift( callback ); + } else { + Animation.prefilters.push( callback ); + } + } +} ); + +jQuery.speed = function( speed, easing, fn ) { + var opt = speed && typeof speed === "object" ? jQuery.extend( {}, speed ) : { + complete: fn || !fn && easing || + isFunction( speed ) && speed, + duration: speed, + easing: fn && easing || easing && !isFunction( easing ) && easing + }; + + // Go to the end state if fx are off + if ( jQuery.fx.off ) { + opt.duration = 0; + + } else { + if ( typeof opt.duration !== "number" ) { + if ( opt.duration in jQuery.fx.speeds ) { + opt.duration = jQuery.fx.speeds[ opt.duration ]; + + } else { + opt.duration = jQuery.fx.speeds._default; + } + } + } + + // Normalize opt.queue - true/undefined/null -> "fx" + if ( opt.queue == null || opt.queue === true ) { + opt.queue = "fx"; + } + + // Queueing + opt.old = opt.complete; + + opt.complete = function() { + if ( isFunction( opt.old ) ) { + opt.old.call( this ); + } + + if ( opt.queue ) { + jQuery.dequeue( this, opt.queue ); + } + }; + + return opt; +}; + +jQuery.fn.extend( { + fadeTo: function( speed, to, easing, callback ) { + + // Show any hidden elements after setting opacity to 0 + return this.filter( isHiddenWithinTree ).css( "opacity", 0 ).show() + + // Animate to the value specified + .end().animate( { opacity: to }, speed, easing, callback ); + }, + animate: function( prop, speed, easing, callback ) { + var empty = jQuery.isEmptyObject( prop ), + optall = jQuery.speed( speed, easing, callback ), + doAnimation = function() { + + // Operate on a copy of prop so per-property easing won't be lost + var anim = Animation( this, jQuery.extend( {}, prop ), optall ); + + // Empty animations, or finishing resolves immediately + if ( empty || dataPriv.get( this, "finish" ) ) { + anim.stop( true ); + } + }; + + doAnimation.finish = doAnimation; + + return empty || optall.queue === false ? + this.each( doAnimation ) : + this.queue( optall.queue, doAnimation ); + }, + stop: function( type, clearQueue, gotoEnd ) { + var stopQueue = function( hooks ) { + var stop = hooks.stop; + delete hooks.stop; + stop( gotoEnd ); + }; + + if ( typeof type !== "string" ) { + gotoEnd = clearQueue; + clearQueue = type; + type = undefined; + } + if ( clearQueue ) { + this.queue( type || "fx", [] ); + } + + return this.each( function() { + var dequeue = true, + index = type != null && type + "queueHooks", + timers = jQuery.timers, + data = dataPriv.get( this ); + + if ( index ) { + if ( data[ index ] && data[ index ].stop ) { + stopQueue( data[ index ] ); + } + } else { + for ( index in data ) { + if ( data[ index ] && data[ index ].stop && rrun.test( index ) ) { + stopQueue( data[ index ] ); + } + } + } + + for ( index = timers.length; index--; ) { + if ( timers[ index ].elem === this && + ( type == null || timers[ index ].queue === type ) ) { + + timers[ index ].anim.stop( gotoEnd ); + dequeue = false; + timers.splice( index, 1 ); + } + } + + // Start the next in the queue if the last step wasn't forced. + // Timers currently will call their complete callbacks, which + // will dequeue but only if they were gotoEnd. + if ( dequeue || !gotoEnd ) { + jQuery.dequeue( this, type ); + } + } ); + }, + finish: function( type ) { + if ( type !== false ) { + type = type || "fx"; + } + return this.each( function() { + var index, + data = dataPriv.get( this ), + queue = data[ type + "queue" ], + hooks = data[ type + "queueHooks" ], + timers = jQuery.timers, + length = queue ? queue.length : 0; + + // Enable finishing flag on private data + data.finish = true; + + // Empty the queue first + jQuery.queue( this, type, [] ); + + if ( hooks && hooks.stop ) { + hooks.stop.call( this, true ); + } + + // Look for any active animations, and finish them + for ( index = timers.length; index--; ) { + if ( timers[ index ].elem === this && timers[ index ].queue === type ) { + timers[ index ].anim.stop( true ); + timers.splice( index, 1 ); + } + } + + // Look for any animations in the old queue and finish them + for ( index = 0; index < length; index++ ) { + if ( queue[ index ] && queue[ index ].finish ) { + queue[ index ].finish.call( this ); + } + } + + // Turn off finishing flag + delete data.finish; + } ); + } +} ); + +jQuery.each( [ "toggle", "show", "hide" ], function( _i, name ) { + var cssFn = jQuery.fn[ name ]; + jQuery.fn[ name ] = function( speed, easing, callback ) { + return speed == null || typeof speed === "boolean" ? + cssFn.apply( this, arguments ) : + this.animate( genFx( name, true ), speed, easing, callback ); + }; +} ); + +// Generate shortcuts for custom animations +jQuery.each( { + slideDown: genFx( "show" ), + slideUp: genFx( "hide" ), + slideToggle: genFx( "toggle" ), + fadeIn: { opacity: "show" }, + fadeOut: { opacity: "hide" }, + fadeToggle: { opacity: "toggle" } +}, function( name, props ) { + jQuery.fn[ name ] = function( speed, easing, callback ) { + return this.animate( props, speed, easing, callback ); + }; +} ); + +jQuery.timers = []; +jQuery.fx.tick = function() { + var timer, + i = 0, + timers = jQuery.timers; + + fxNow = Date.now(); + + for ( ; i < timers.length; i++ ) { + timer = timers[ i ]; + + // Run the timer and safely remove it when done (allowing for external removal) + if ( !timer() && timers[ i ] === timer ) { + timers.splice( i--, 1 ); + } + } + + if ( !timers.length ) { + jQuery.fx.stop(); + } + fxNow = undefined; +}; + +jQuery.fx.timer = function( timer ) { + jQuery.timers.push( timer ); + jQuery.fx.start(); +}; + +jQuery.fx.interval = 13; +jQuery.fx.start = function() { + if ( inProgress ) { + return; + } + + inProgress = true; + schedule(); +}; + +jQuery.fx.stop = function() { + inProgress = null; +}; + +jQuery.fx.speeds = { + slow: 600, + fast: 200, + + // Default speed + _default: 400 +}; + + +// Based off of the plugin by Clint Helfers, with permission. +// https://web.archive.org/web/20100324014747/http://blindsignals.com/index.php/2009/07/jquery-delay/ +jQuery.fn.delay = function( time, type ) { + time = jQuery.fx ? jQuery.fx.speeds[ time ] || time : time; + type = type || "fx"; + + return this.queue( type, function( next, hooks ) { + var timeout = window.setTimeout( next, time ); + hooks.stop = function() { + window.clearTimeout( timeout ); + }; + } ); +}; + + +( function() { + var input = document.createElement( "input" ), + select = document.createElement( "select" ), + opt = select.appendChild( document.createElement( "option" ) ); + + input.type = "checkbox"; + + // Support: Android <=4.3 only + // Default value for a checkbox should be "on" + support.checkOn = input.value !== ""; + + // Support: IE <=11 only + // Must access selectedIndex to make default options select + support.optSelected = opt.selected; + + // Support: IE <=11 only + // An input loses its value after becoming a radio + input = document.createElement( "input" ); + input.value = "t"; + input.type = "radio"; + support.radioValue = input.value === "t"; +} )(); + + +var boolHook, + attrHandle = jQuery.expr.attrHandle; + +jQuery.fn.extend( { + attr: function( name, value ) { + return access( this, jQuery.attr, name, value, arguments.length > 1 ); + }, + + removeAttr: function( name ) { + return this.each( function() { + jQuery.removeAttr( this, name ); + } ); + } +} ); + +jQuery.extend( { + attr: function( elem, name, value ) { + var ret, hooks, + nType = elem.nodeType; + + // Don't get/set attributes on text, comment and attribute nodes + if ( nType === 3 || nType === 8 || nType === 2 ) { + return; + } + + // Fallback to prop when attributes are not supported + if ( typeof elem.getAttribute === "undefined" ) { + return jQuery.prop( elem, name, value ); + } + + // Attribute hooks are determined by the lowercase version + // Grab necessary hook if one is defined + if ( nType !== 1 || !jQuery.isXMLDoc( elem ) ) { + hooks = jQuery.attrHooks[ name.toLowerCase() ] || + ( jQuery.expr.match.bool.test( name ) ? boolHook : undefined ); + } + + if ( value !== undefined ) { + if ( value === null ) { + jQuery.removeAttr( elem, name ); + return; + } + + if ( hooks && "set" in hooks && + ( ret = hooks.set( elem, value, name ) ) !== undefined ) { + return ret; + } + + elem.setAttribute( name, value + "" ); + return value; + } + + if ( hooks && "get" in hooks && ( ret = hooks.get( elem, name ) ) !== null ) { + return ret; + } + + ret = jQuery.find.attr( elem, name ); + + // Non-existent attributes return null, we normalize to undefined + return ret == null ? undefined : ret; + }, + + attrHooks: { + type: { + set: function( elem, value ) { + if ( !support.radioValue && value === "radio" && + nodeName( elem, "input" ) ) { + var val = elem.value; + elem.setAttribute( "type", value ); + if ( val ) { + elem.value = val; + } + return value; + } + } + } + }, + + removeAttr: function( elem, value ) { + var name, + i = 0, + + // Attribute names can contain non-HTML whitespace characters + // https://html.spec.whatwg.org/multipage/syntax.html#attributes-2 + attrNames = value && value.match( rnothtmlwhite ); + + if ( attrNames && elem.nodeType === 1 ) { + while ( ( name = attrNames[ i++ ] ) ) { + elem.removeAttribute( name ); + } + } + } +} ); + +// Hooks for boolean attributes +boolHook = { + set: function( elem, value, name ) { + if ( value === false ) { + + // Remove boolean attributes when set to false + jQuery.removeAttr( elem, name ); + } else { + elem.setAttribute( name, name ); + } + return name; + } +}; + +jQuery.each( jQuery.expr.match.bool.source.match( /\w+/g ), function( _i, name ) { + var getter = attrHandle[ name ] || jQuery.find.attr; + + attrHandle[ name ] = function( elem, name, isXML ) { + var ret, handle, + lowercaseName = name.toLowerCase(); + + if ( !isXML ) { + + // Avoid an infinite loop by temporarily removing this function from the getter + handle = attrHandle[ lowercaseName ]; + attrHandle[ lowercaseName ] = ret; + ret = getter( elem, name, isXML ) != null ? + lowercaseName : + null; + attrHandle[ lowercaseName ] = handle; + } + return ret; + }; +} ); + + + + +var rfocusable = /^(?:input|select|textarea|button)$/i, + rclickable = /^(?:a|area)$/i; + +jQuery.fn.extend( { + prop: function( name, value ) { + return access( this, jQuery.prop, name, value, arguments.length > 1 ); + }, + + removeProp: function( name ) { + return this.each( function() { + delete this[ jQuery.propFix[ name ] || name ]; + } ); + } +} ); + +jQuery.extend( { + prop: function( elem, name, value ) { + var ret, hooks, + nType = elem.nodeType; + + // Don't get/set properties on text, comment and attribute nodes + if ( nType === 3 || nType === 8 || nType === 2 ) { + return; + } + + if ( nType !== 1 || !jQuery.isXMLDoc( elem ) ) { + + // Fix name and attach hooks + name = jQuery.propFix[ name ] || name; + hooks = jQuery.propHooks[ name ]; + } + + if ( value !== undefined ) { + if ( hooks && "set" in hooks && + ( ret = hooks.set( elem, value, name ) ) !== undefined ) { + return ret; + } + + return ( elem[ name ] = value ); + } + + if ( hooks && "get" in hooks && ( ret = hooks.get( elem, name ) ) !== null ) { + return ret; + } + + return elem[ name ]; + }, + + propHooks: { + tabIndex: { + get: function( elem ) { + + // Support: IE <=9 - 11 only + // elem.tabIndex doesn't always return the + // correct value when it hasn't been explicitly set + // https://web.archive.org/web/20141116233347/http://fluidproject.org/blog/2008/01/09/getting-setting-and-removing-tabindex-values-with-javascript/ + // Use proper attribute retrieval(#12072) + var tabindex = jQuery.find.attr( elem, "tabindex" ); + + if ( tabindex ) { + return parseInt( tabindex, 10 ); + } + + if ( + rfocusable.test( elem.nodeName ) || + rclickable.test( elem.nodeName ) && + elem.href + ) { + return 0; + } + + return -1; + } + } + }, + + propFix: { + "for": "htmlFor", + "class": "className" + } +} ); + +// Support: IE <=11 only +// Accessing the selectedIndex property +// forces the browser to respect setting selected +// on the option +// The getter ensures a default option is selected +// when in an optgroup +// eslint rule "no-unused-expressions" is disabled for this code +// since it considers such accessions noop +if ( !support.optSelected ) { + jQuery.propHooks.selected = { + get: function( elem ) { + + /* eslint no-unused-expressions: "off" */ + + var parent = elem.parentNode; + if ( parent && parent.parentNode ) { + parent.parentNode.selectedIndex; + } + return null; + }, + set: function( elem ) { + + /* eslint no-unused-expressions: "off" */ + + var parent = elem.parentNode; + if ( parent ) { + parent.selectedIndex; + + if ( parent.parentNode ) { + parent.parentNode.selectedIndex; + } + } + } + }; +} + +jQuery.each( [ + "tabIndex", + "readOnly", + "maxLength", + "cellSpacing", + "cellPadding", + "rowSpan", + "colSpan", + "useMap", + "frameBorder", + "contentEditable" +], function() { + jQuery.propFix[ this.toLowerCase() ] = this; +} ); + + + + + // Strip and collapse whitespace according to HTML spec + // https://infra.spec.whatwg.org/#strip-and-collapse-ascii-whitespace + function stripAndCollapse( value ) { + var tokens = value.match( rnothtmlwhite ) || []; + return tokens.join( " " ); + } + + +function getClass( elem ) { + return elem.getAttribute && elem.getAttribute( "class" ) || ""; +} + +function classesToArray( value ) { + if ( Array.isArray( value ) ) { + return value; + } + if ( typeof value === "string" ) { + return value.match( rnothtmlwhite ) || []; + } + return []; +} + +jQuery.fn.extend( { + addClass: function( value ) { + var classes, elem, cur, curValue, clazz, j, finalValue, + i = 0; + + if ( isFunction( value ) ) { + return this.each( function( j ) { + jQuery( this ).addClass( value.call( this, j, getClass( this ) ) ); + } ); + } + + classes = classesToArray( value ); + + if ( classes.length ) { + while ( ( elem = this[ i++ ] ) ) { + curValue = getClass( elem ); + cur = elem.nodeType === 1 && ( " " + stripAndCollapse( curValue ) + " " ); + + if ( cur ) { + j = 0; + while ( ( clazz = classes[ j++ ] ) ) { + if ( cur.indexOf( " " + clazz + " " ) < 0 ) { + cur += clazz + " "; + } + } + + // Only assign if different to avoid unneeded rendering. + finalValue = stripAndCollapse( cur ); + if ( curValue !== finalValue ) { + elem.setAttribute( "class", finalValue ); + } + } + } + } + + return this; + }, + + removeClass: function( value ) { + var classes, elem, cur, curValue, clazz, j, finalValue, + i = 0; + + if ( isFunction( value ) ) { + return this.each( function( j ) { + jQuery( this ).removeClass( value.call( this, j, getClass( this ) ) ); + } ); + } + + if ( !arguments.length ) { + return this.attr( "class", "" ); + } + + classes = classesToArray( value ); + + if ( classes.length ) { + while ( ( elem = this[ i++ ] ) ) { + curValue = getClass( elem ); + + // This expression is here for better compressibility (see addClass) + cur = elem.nodeType === 1 && ( " " + stripAndCollapse( curValue ) + " " ); + + if ( cur ) { + j = 0; + while ( ( clazz = classes[ j++ ] ) ) { + + // Remove *all* instances + while ( cur.indexOf( " " + clazz + " " ) > -1 ) { + cur = cur.replace( " " + clazz + " ", " " ); + } + } + + // Only assign if different to avoid unneeded rendering. + finalValue = stripAndCollapse( cur ); + if ( curValue !== finalValue ) { + elem.setAttribute( "class", finalValue ); + } + } + } + } + + return this; + }, + + toggleClass: function( value, stateVal ) { + var type = typeof value, + isValidValue = type === "string" || Array.isArray( value ); + + if ( typeof stateVal === "boolean" && isValidValue ) { + return stateVal ? this.addClass( value ) : this.removeClass( value ); + } + + if ( isFunction( value ) ) { + return this.each( function( i ) { + jQuery( this ).toggleClass( + value.call( this, i, getClass( this ), stateVal ), + stateVal + ); + } ); + } + + return this.each( function() { + var className, i, self, classNames; + + if ( isValidValue ) { + + // Toggle individual class names + i = 0; + self = jQuery( this ); + classNames = classesToArray( value ); + + while ( ( className = classNames[ i++ ] ) ) { + + // Check each className given, space separated list + if ( self.hasClass( className ) ) { + self.removeClass( className ); + } else { + self.addClass( className ); + } + } + + // Toggle whole class name + } else if ( value === undefined || type === "boolean" ) { + className = getClass( this ); + if ( className ) { + + // Store className if set + dataPriv.set( this, "__className__", className ); + } + + // If the element has a class name or if we're passed `false`, + // then remove the whole classname (if there was one, the above saved it). + // Otherwise bring back whatever was previously saved (if anything), + // falling back to the empty string if nothing was stored. + if ( this.setAttribute ) { + this.setAttribute( "class", + className || value === false ? + "" : + dataPriv.get( this, "__className__" ) || "" + ); + } + } + } ); + }, + + hasClass: function( selector ) { + var className, elem, + i = 0; + + className = " " + selector + " "; + while ( ( elem = this[ i++ ] ) ) { + if ( elem.nodeType === 1 && + ( " " + stripAndCollapse( getClass( elem ) ) + " " ).indexOf( className ) > -1 ) { + return true; + } + } + + return false; + } +} ); + + + + +var rreturn = /\r/g; + +jQuery.fn.extend( { + val: function( value ) { + var hooks, ret, valueIsFunction, + elem = this[ 0 ]; + + if ( !arguments.length ) { + if ( elem ) { + hooks = jQuery.valHooks[ elem.type ] || + jQuery.valHooks[ elem.nodeName.toLowerCase() ]; + + if ( hooks && + "get" in hooks && + ( ret = hooks.get( elem, "value" ) ) !== undefined + ) { + return ret; + } + + ret = elem.value; + + // Handle most common string cases + if ( typeof ret === "string" ) { + return ret.replace( rreturn, "" ); + } + + // Handle cases where value is null/undef or number + return ret == null ? "" : ret; + } + + return; + } + + valueIsFunction = isFunction( value ); + + return this.each( function( i ) { + var val; + + if ( this.nodeType !== 1 ) { + return; + } + + if ( valueIsFunction ) { + val = value.call( this, i, jQuery( this ).val() ); + } else { + val = value; + } + + // Treat null/undefined as ""; convert numbers to string + if ( val == null ) { + val = ""; + + } else if ( typeof val === "number" ) { + val += ""; + + } else if ( Array.isArray( val ) ) { + val = jQuery.map( val, function( value ) { + return value == null ? "" : value + ""; + } ); + } + + hooks = jQuery.valHooks[ this.type ] || jQuery.valHooks[ this.nodeName.toLowerCase() ]; + + // If set returns undefined, fall back to normal setting + if ( !hooks || !( "set" in hooks ) || hooks.set( this, val, "value" ) === undefined ) { + this.value = val; + } + } ); + } +} ); + +jQuery.extend( { + valHooks: { + option: { + get: function( elem ) { + + var val = jQuery.find.attr( elem, "value" ); + return val != null ? + val : + + // Support: IE <=10 - 11 only + // option.text throws exceptions (#14686, #14858) + // Strip and collapse whitespace + // https://html.spec.whatwg.org/#strip-and-collapse-whitespace + stripAndCollapse( jQuery.text( elem ) ); + } + }, + select: { + get: function( elem ) { + var value, option, i, + options = elem.options, + index = elem.selectedIndex, + one = elem.type === "select-one", + values = one ? null : [], + max = one ? index + 1 : options.length; + + if ( index < 0 ) { + i = max; + + } else { + i = one ? index : 0; + } + + // Loop through all the selected options + for ( ; i < max; i++ ) { + option = options[ i ]; + + // Support: IE <=9 only + // IE8-9 doesn't update selected after form reset (#2551) + if ( ( option.selected || i === index ) && + + // Don't return options that are disabled or in a disabled optgroup + !option.disabled && + ( !option.parentNode.disabled || + !nodeName( option.parentNode, "optgroup" ) ) ) { + + // Get the specific value for the option + value = jQuery( option ).val(); + + // We don't need an array for one selects + if ( one ) { + return value; + } + + // Multi-Selects return an array + values.push( value ); + } + } + + return values; + }, + + set: function( elem, value ) { + var optionSet, option, + options = elem.options, + values = jQuery.makeArray( value ), + i = options.length; + + while ( i-- ) { + option = options[ i ]; + + /* eslint-disable no-cond-assign */ + + if ( option.selected = + jQuery.inArray( jQuery.valHooks.option.get( option ), values ) > -1 + ) { + optionSet = true; + } + + /* eslint-enable no-cond-assign */ + } + + // Force browsers to behave consistently when non-matching value is set + if ( !optionSet ) { + elem.selectedIndex = -1; + } + return values; + } + } + } +} ); + +// Radios and checkboxes getter/setter +jQuery.each( [ "radio", "checkbox" ], function() { + jQuery.valHooks[ this ] = { + set: function( elem, value ) { + if ( Array.isArray( value ) ) { + return ( elem.checked = jQuery.inArray( jQuery( elem ).val(), value ) > -1 ); + } + } + }; + if ( !support.checkOn ) { + jQuery.valHooks[ this ].get = function( elem ) { + return elem.getAttribute( "value" ) === null ? "on" : elem.value; + }; + } +} ); + + + + +// Return jQuery for attributes-only inclusion + + +support.focusin = "onfocusin" in window; + + +var rfocusMorph = /^(?:focusinfocus|focusoutblur)$/, + stopPropagationCallback = function( e ) { + e.stopPropagation(); + }; + +jQuery.extend( jQuery.event, { + + trigger: function( event, data, elem, onlyHandlers ) { + + var i, cur, tmp, bubbleType, ontype, handle, special, lastElement, + eventPath = [ elem || document ], + type = hasOwn.call( event, "type" ) ? event.type : event, + namespaces = hasOwn.call( event, "namespace" ) ? event.namespace.split( "." ) : []; + + cur = lastElement = tmp = elem = elem || document; + + // Don't do events on text and comment nodes + if ( elem.nodeType === 3 || elem.nodeType === 8 ) { + return; + } + + // focus/blur morphs to focusin/out; ensure we're not firing them right now + if ( rfocusMorph.test( type + jQuery.event.triggered ) ) { + return; + } + + if ( type.indexOf( "." ) > -1 ) { + + // Namespaced trigger; create a regexp to match event type in handle() + namespaces = type.split( "." ); + type = namespaces.shift(); + namespaces.sort(); + } + ontype = type.indexOf( ":" ) < 0 && "on" + type; + + // Caller can pass in a jQuery.Event object, Object, or just an event type string + event = event[ jQuery.expando ] ? + event : + new jQuery.Event( type, typeof event === "object" && event ); + + // Trigger bitmask: & 1 for native handlers; & 2 for jQuery (always true) + event.isTrigger = onlyHandlers ? 2 : 3; + event.namespace = namespaces.join( "." ); + event.rnamespace = event.namespace ? + new RegExp( "(^|\\.)" + namespaces.join( "\\.(?:.*\\.|)" ) + "(\\.|$)" ) : + null; + + // Clean up the event in case it is being reused + event.result = undefined; + if ( !event.target ) { + event.target = elem; + } + + // Clone any incoming data and prepend the event, creating the handler arg list + data = data == null ? + [ event ] : + jQuery.makeArray( data, [ event ] ); + + // Allow special events to draw outside the lines + special = jQuery.event.special[ type ] || {}; + if ( !onlyHandlers && special.trigger && special.trigger.apply( elem, data ) === false ) { + return; + } + + // Determine event propagation path in advance, per W3C events spec (#9951) + // Bubble up to document, then to window; watch for a global ownerDocument var (#9724) + if ( !onlyHandlers && !special.noBubble && !isWindow( elem ) ) { + + bubbleType = special.delegateType || type; + if ( !rfocusMorph.test( bubbleType + type ) ) { + cur = cur.parentNode; + } + for ( ; cur; cur = cur.parentNode ) { + eventPath.push( cur ); + tmp = cur; + } + + // Only add window if we got to document (e.g., not plain obj or detached DOM) + if ( tmp === ( elem.ownerDocument || document ) ) { + eventPath.push( tmp.defaultView || tmp.parentWindow || window ); + } + } + + // Fire handlers on the event path + i = 0; + while ( ( cur = eventPath[ i++ ] ) && !event.isPropagationStopped() ) { + lastElement = cur; + event.type = i > 1 ? + bubbleType : + special.bindType || type; + + // jQuery handler + handle = ( dataPriv.get( cur, "events" ) || Object.create( null ) )[ event.type ] && + dataPriv.get( cur, "handle" ); + if ( handle ) { + handle.apply( cur, data ); + } + + // Native handler + handle = ontype && cur[ ontype ]; + if ( handle && handle.apply && acceptData( cur ) ) { + event.result = handle.apply( cur, data ); + if ( event.result === false ) { + event.preventDefault(); + } + } + } + event.type = type; + + // If nobody prevented the default action, do it now + if ( !onlyHandlers && !event.isDefaultPrevented() ) { + + if ( ( !special._default || + special._default.apply( eventPath.pop(), data ) === false ) && + acceptData( elem ) ) { + + // Call a native DOM method on the target with the same name as the event. + // Don't do default actions on window, that's where global variables be (#6170) + if ( ontype && isFunction( elem[ type ] ) && !isWindow( elem ) ) { + + // Don't re-trigger an onFOO event when we call its FOO() method + tmp = elem[ ontype ]; + + if ( tmp ) { + elem[ ontype ] = null; + } + + // Prevent re-triggering of the same event, since we already bubbled it above + jQuery.event.triggered = type; + + if ( event.isPropagationStopped() ) { + lastElement.addEventListener( type, stopPropagationCallback ); + } + + elem[ type ](); + + if ( event.isPropagationStopped() ) { + lastElement.removeEventListener( type, stopPropagationCallback ); + } + + jQuery.event.triggered = undefined; + + if ( tmp ) { + elem[ ontype ] = tmp; + } + } + } + } + + return event.result; + }, + + // Piggyback on a donor event to simulate a different one + // Used only for `focus(in | out)` events + simulate: function( type, elem, event ) { + var e = jQuery.extend( + new jQuery.Event(), + event, + { + type: type, + isSimulated: true + } + ); + + jQuery.event.trigger( e, null, elem ); + } + +} ); + +jQuery.fn.extend( { + + trigger: function( type, data ) { + return this.each( function() { + jQuery.event.trigger( type, data, this ); + } ); + }, + triggerHandler: function( type, data ) { + var elem = this[ 0 ]; + if ( elem ) { + return jQuery.event.trigger( type, data, elem, true ); + } + } +} ); + + +// Support: Firefox <=44 +// Firefox doesn't have focus(in | out) events +// Related ticket - https://bugzilla.mozilla.org/show_bug.cgi?id=687787 +// +// Support: Chrome <=48 - 49, Safari <=9.0 - 9.1 +// focus(in | out) events fire after focus & blur events, +// which is spec violation - http://www.w3.org/TR/DOM-Level-3-Events/#events-focusevent-event-order +// Related ticket - https://bugs.chromium.org/p/chromium/issues/detail?id=449857 +if ( !support.focusin ) { + jQuery.each( { focus: "focusin", blur: "focusout" }, function( orig, fix ) { + + // Attach a single capturing handler on the document while someone wants focusin/focusout + var handler = function( event ) { + jQuery.event.simulate( fix, event.target, jQuery.event.fix( event ) ); + }; + + jQuery.event.special[ fix ] = { + setup: function() { + + // Handle: regular nodes (via `this.ownerDocument`), window + // (via `this.document`) & document (via `this`). + var doc = this.ownerDocument || this.document || this, + attaches = dataPriv.access( doc, fix ); + + if ( !attaches ) { + doc.addEventListener( orig, handler, true ); + } + dataPriv.access( doc, fix, ( attaches || 0 ) + 1 ); + }, + teardown: function() { + var doc = this.ownerDocument || this.document || this, + attaches = dataPriv.access( doc, fix ) - 1; + + if ( !attaches ) { + doc.removeEventListener( orig, handler, true ); + dataPriv.remove( doc, fix ); + + } else { + dataPriv.access( doc, fix, attaches ); + } + } + }; + } ); +} +var location = window.location; + +var nonce = { guid: Date.now() }; + +var rquery = ( /\?/ ); + + + +// Cross-browser xml parsing +jQuery.parseXML = function( data ) { + var xml, parserErrorElem; + if ( !data || typeof data !== "string" ) { + return null; + } + + // Support: IE 9 - 11 only + // IE throws on parseFromString with invalid input. + try { + xml = ( new window.DOMParser() ).parseFromString( data, "text/xml" ); + } catch ( e ) {} + + parserErrorElem = xml && xml.getElementsByTagName( "parsererror" )[ 0 ]; + if ( !xml || parserErrorElem ) { + jQuery.error( "Invalid XML: " + ( + parserErrorElem ? + jQuery.map( parserErrorElem.childNodes, function( el ) { + return el.textContent; + } ).join( "\n" ) : + data + ) ); + } + return xml; +}; + + +var + rbracket = /\[\]$/, + rCRLF = /\r?\n/g, + rsubmitterTypes = /^(?:submit|button|image|reset|file)$/i, + rsubmittable = /^(?:input|select|textarea|keygen)/i; + +function buildParams( prefix, obj, traditional, add ) { + var name; + + if ( Array.isArray( obj ) ) { + + // Serialize array item. + jQuery.each( obj, function( i, v ) { + if ( traditional || rbracket.test( prefix ) ) { + + // Treat each array item as a scalar. + add( prefix, v ); + + } else { + + // Item is non-scalar (array or object), encode its numeric index. + buildParams( + prefix + "[" + ( typeof v === "object" && v != null ? i : "" ) + "]", + v, + traditional, + add + ); + } + } ); + + } else if ( !traditional && toType( obj ) === "object" ) { + + // Serialize object item. + for ( name in obj ) { + buildParams( prefix + "[" + name + "]", obj[ name ], traditional, add ); + } + + } else { + + // Serialize scalar item. + add( prefix, obj ); + } +} + +// Serialize an array of form elements or a set of +// key/values into a query string +jQuery.param = function( a, traditional ) { + var prefix, + s = [], + add = function( key, valueOrFunction ) { + + // If value is a function, invoke it and use its return value + var value = isFunction( valueOrFunction ) ? + valueOrFunction() : + valueOrFunction; + + s[ s.length ] = encodeURIComponent( key ) + "=" + + encodeURIComponent( value == null ? "" : value ); + }; + + if ( a == null ) { + return ""; + } + + // If an array was passed in, assume that it is an array of form elements. + if ( Array.isArray( a ) || ( a.jquery && !jQuery.isPlainObject( a ) ) ) { + + // Serialize the form elements + jQuery.each( a, function() { + add( this.name, this.value ); + } ); + + } else { + + // If traditional, encode the "old" way (the way 1.3.2 or older + // did it), otherwise encode params recursively. + for ( prefix in a ) { + buildParams( prefix, a[ prefix ], traditional, add ); + } + } + + // Return the resulting serialization + return s.join( "&" ); +}; + +jQuery.fn.extend( { + serialize: function() { + return jQuery.param( this.serializeArray() ); + }, + serializeArray: function() { + return this.map( function() { + + // Can add propHook for "elements" to filter or add form elements + var elements = jQuery.prop( this, "elements" ); + return elements ? jQuery.makeArray( elements ) : this; + } ).filter( function() { + var type = this.type; + + // Use .is( ":disabled" ) so that fieldset[disabled] works + return this.name && !jQuery( this ).is( ":disabled" ) && + rsubmittable.test( this.nodeName ) && !rsubmitterTypes.test( type ) && + ( this.checked || !rcheckableType.test( type ) ); + } ).map( function( _i, elem ) { + var val = jQuery( this ).val(); + + if ( val == null ) { + return null; + } + + if ( Array.isArray( val ) ) { + return jQuery.map( val, function( val ) { + return { name: elem.name, value: val.replace( rCRLF, "\r\n" ) }; + } ); + } + + return { name: elem.name, value: val.replace( rCRLF, "\r\n" ) }; + } ).get(); + } +} ); + + +var + r20 = /%20/g, + rhash = /#.*$/, + rantiCache = /([?&])_=[^&]*/, + rheaders = /^(.*?):[ \t]*([^\r\n]*)$/mg, + + // #7653, #8125, #8152: local protocol detection + rlocalProtocol = /^(?:about|app|app-storage|.+-extension|file|res|widget):$/, + rnoContent = /^(?:GET|HEAD)$/, + rprotocol = /^\/\//, + + /* Prefilters + * 1) They are useful to introduce custom dataTypes (see ajax/jsonp.js for an example) + * 2) These are called: + * - BEFORE asking for a transport + * - AFTER param serialization (s.data is a string if s.processData is true) + * 3) key is the dataType + * 4) the catchall symbol "*" can be used + * 5) execution will start with transport dataType and THEN continue down to "*" if needed + */ + prefilters = {}, + + /* Transports bindings + * 1) key is the dataType + * 2) the catchall symbol "*" can be used + * 3) selection will start with transport dataType and THEN go to "*" if needed + */ + transports = {}, + + // Avoid comment-prolog char sequence (#10098); must appease lint and evade compression + allTypes = "*/".concat( "*" ), + + // Anchor tag for parsing the document origin + originAnchor = document.createElement( "a" ); + +originAnchor.href = location.href; + +// Base "constructor" for jQuery.ajaxPrefilter and jQuery.ajaxTransport +function addToPrefiltersOrTransports( structure ) { + + // dataTypeExpression is optional and defaults to "*" + return function( dataTypeExpression, func ) { + + if ( typeof dataTypeExpression !== "string" ) { + func = dataTypeExpression; + dataTypeExpression = "*"; + } + + var dataType, + i = 0, + dataTypes = dataTypeExpression.toLowerCase().match( rnothtmlwhite ) || []; + + if ( isFunction( func ) ) { + + // For each dataType in the dataTypeExpression + while ( ( dataType = dataTypes[ i++ ] ) ) { + + // Prepend if requested + if ( dataType[ 0 ] === "+" ) { + dataType = dataType.slice( 1 ) || "*"; + ( structure[ dataType ] = structure[ dataType ] || [] ).unshift( func ); + + // Otherwise append + } else { + ( structure[ dataType ] = structure[ dataType ] || [] ).push( func ); + } + } + } + }; +} + +// Base inspection function for prefilters and transports +function inspectPrefiltersOrTransports( structure, options, originalOptions, jqXHR ) { + + var inspected = {}, + seekingTransport = ( structure === transports ); + + function inspect( dataType ) { + var selected; + inspected[ dataType ] = true; + jQuery.each( structure[ dataType ] || [], function( _, prefilterOrFactory ) { + var dataTypeOrTransport = prefilterOrFactory( options, originalOptions, jqXHR ); + if ( typeof dataTypeOrTransport === "string" && + !seekingTransport && !inspected[ dataTypeOrTransport ] ) { + + options.dataTypes.unshift( dataTypeOrTransport ); + inspect( dataTypeOrTransport ); + return false; + } else if ( seekingTransport ) { + return !( selected = dataTypeOrTransport ); + } + } ); + return selected; + } + + return inspect( options.dataTypes[ 0 ] ) || !inspected[ "*" ] && inspect( "*" ); +} + +// A special extend for ajax options +// that takes "flat" options (not to be deep extended) +// Fixes #9887 +function ajaxExtend( target, src ) { + var key, deep, + flatOptions = jQuery.ajaxSettings.flatOptions || {}; + + for ( key in src ) { + if ( src[ key ] !== undefined ) { + ( flatOptions[ key ] ? target : ( deep || ( deep = {} ) ) )[ key ] = src[ key ]; + } + } + if ( deep ) { + jQuery.extend( true, target, deep ); + } + + return target; +} + +/* Handles responses to an ajax request: + * - finds the right dataType (mediates between content-type and expected dataType) + * - returns the corresponding response + */ +function ajaxHandleResponses( s, jqXHR, responses ) { + + var ct, type, finalDataType, firstDataType, + contents = s.contents, + dataTypes = s.dataTypes; + + // Remove auto dataType and get content-type in the process + while ( dataTypes[ 0 ] === "*" ) { + dataTypes.shift(); + if ( ct === undefined ) { + ct = s.mimeType || jqXHR.getResponseHeader( "Content-Type" ); + } + } + + // Check if we're dealing with a known content-type + if ( ct ) { + for ( type in contents ) { + if ( contents[ type ] && contents[ type ].test( ct ) ) { + dataTypes.unshift( type ); + break; + } + } + } + + // Check to see if we have a response for the expected dataType + if ( dataTypes[ 0 ] in responses ) { + finalDataType = dataTypes[ 0 ]; + } else { + + // Try convertible dataTypes + for ( type in responses ) { + if ( !dataTypes[ 0 ] || s.converters[ type + " " + dataTypes[ 0 ] ] ) { + finalDataType = type; + break; + } + if ( !firstDataType ) { + firstDataType = type; + } + } + + // Or just use first one + finalDataType = finalDataType || firstDataType; + } + + // If we found a dataType + // We add the dataType to the list if needed + // and return the corresponding response + if ( finalDataType ) { + if ( finalDataType !== dataTypes[ 0 ] ) { + dataTypes.unshift( finalDataType ); + } + return responses[ finalDataType ]; + } +} + +/* Chain conversions given the request and the original response + * Also sets the responseXXX fields on the jqXHR instance + */ +function ajaxConvert( s, response, jqXHR, isSuccess ) { + var conv2, current, conv, tmp, prev, + converters = {}, + + // Work with a copy of dataTypes in case we need to modify it for conversion + dataTypes = s.dataTypes.slice(); + + // Create converters map with lowercased keys + if ( dataTypes[ 1 ] ) { + for ( conv in s.converters ) { + converters[ conv.toLowerCase() ] = s.converters[ conv ]; + } + } + + current = dataTypes.shift(); + + // Convert to each sequential dataType + while ( current ) { + + if ( s.responseFields[ current ] ) { + jqXHR[ s.responseFields[ current ] ] = response; + } + + // Apply the dataFilter if provided + if ( !prev && isSuccess && s.dataFilter ) { + response = s.dataFilter( response, s.dataType ); + } + + prev = current; + current = dataTypes.shift(); + + if ( current ) { + + // There's only work to do if current dataType is non-auto + if ( current === "*" ) { + + current = prev; + + // Convert response if prev dataType is non-auto and differs from current + } else if ( prev !== "*" && prev !== current ) { + + // Seek a direct converter + conv = converters[ prev + " " + current ] || converters[ "* " + current ]; + + // If none found, seek a pair + if ( !conv ) { + for ( conv2 in converters ) { + + // If conv2 outputs current + tmp = conv2.split( " " ); + if ( tmp[ 1 ] === current ) { + + // If prev can be converted to accepted input + conv = converters[ prev + " " + tmp[ 0 ] ] || + converters[ "* " + tmp[ 0 ] ]; + if ( conv ) { + + // Condense equivalence converters + if ( conv === true ) { + conv = converters[ conv2 ]; + + // Otherwise, insert the intermediate dataType + } else if ( converters[ conv2 ] !== true ) { + current = tmp[ 0 ]; + dataTypes.unshift( tmp[ 1 ] ); + } + break; + } + } + } + } + + // Apply converter (if not an equivalence) + if ( conv !== true ) { + + // Unless errors are allowed to bubble, catch and return them + if ( conv && s.throws ) { + response = conv( response ); + } else { + try { + response = conv( response ); + } catch ( e ) { + return { + state: "parsererror", + error: conv ? e : "No conversion from " + prev + " to " + current + }; + } + } + } + } + } + } + + return { state: "success", data: response }; +} + +jQuery.extend( { + + // Counter for holding the number of active queries + active: 0, + + // Last-Modified header cache for next request + lastModified: {}, + etag: {}, + + ajaxSettings: { + url: location.href, + type: "GET", + isLocal: rlocalProtocol.test( location.protocol ), + global: true, + processData: true, + async: true, + contentType: "application/x-www-form-urlencoded; charset=UTF-8", + + /* + timeout: 0, + data: null, + dataType: null, + username: null, + password: null, + cache: null, + throws: false, + traditional: false, + headers: {}, + */ + + accepts: { + "*": allTypes, + text: "text/plain", + html: "text/html", + xml: "application/xml, text/xml", + json: "application/json, text/javascript" + }, + + contents: { + xml: /\bxml\b/, + html: /\bhtml/, + json: /\bjson\b/ + }, + + responseFields: { + xml: "responseXML", + text: "responseText", + json: "responseJSON" + }, + + // Data converters + // Keys separate source (or catchall "*") and destination types with a single space + converters: { + + // Convert anything to text + "* text": String, + + // Text to html (true = no transformation) + "text html": true, + + // Evaluate text as a json expression + "text json": JSON.parse, + + // Parse text as xml + "text xml": jQuery.parseXML + }, + + // For options that shouldn't be deep extended: + // you can add your own custom options here if + // and when you create one that shouldn't be + // deep extended (see ajaxExtend) + flatOptions: { + url: true, + context: true + } + }, + + // Creates a full fledged settings object into target + // with both ajaxSettings and settings fields. + // If target is omitted, writes into ajaxSettings. + ajaxSetup: function( target, settings ) { + return settings ? + + // Building a settings object + ajaxExtend( ajaxExtend( target, jQuery.ajaxSettings ), settings ) : + + // Extending ajaxSettings + ajaxExtend( jQuery.ajaxSettings, target ); + }, + + ajaxPrefilter: addToPrefiltersOrTransports( prefilters ), + ajaxTransport: addToPrefiltersOrTransports( transports ), + + // Main method + ajax: function( url, options ) { + + // If url is an object, simulate pre-1.5 signature + if ( typeof url === "object" ) { + options = url; + url = undefined; + } + + // Force options to be an object + options = options || {}; + + var transport, + + // URL without anti-cache param + cacheURL, + + // Response headers + responseHeadersString, + responseHeaders, + + // timeout handle + timeoutTimer, + + // Url cleanup var + urlAnchor, + + // Request state (becomes false upon send and true upon completion) + completed, + + // To know if global events are to be dispatched + fireGlobals, + + // Loop variable + i, + + // uncached part of the url + uncached, + + // Create the final options object + s = jQuery.ajaxSetup( {}, options ), + + // Callbacks context + callbackContext = s.context || s, + + // Context for global events is callbackContext if it is a DOM node or jQuery collection + globalEventContext = s.context && + ( callbackContext.nodeType || callbackContext.jquery ) ? + jQuery( callbackContext ) : + jQuery.event, + + // Deferreds + deferred = jQuery.Deferred(), + completeDeferred = jQuery.Callbacks( "once memory" ), + + // Status-dependent callbacks + statusCode = s.statusCode || {}, + + // Headers (they are sent all at once) + requestHeaders = {}, + requestHeadersNames = {}, + + // Default abort message + strAbort = "canceled", + + // Fake xhr + jqXHR = { + readyState: 0, + + // Builds headers hashtable if needed + getResponseHeader: function( key ) { + var match; + if ( completed ) { + if ( !responseHeaders ) { + responseHeaders = {}; + while ( ( match = rheaders.exec( responseHeadersString ) ) ) { + responseHeaders[ match[ 1 ].toLowerCase() + " " ] = + ( responseHeaders[ match[ 1 ].toLowerCase() + " " ] || [] ) + .concat( match[ 2 ] ); + } + } + match = responseHeaders[ key.toLowerCase() + " " ]; + } + return match == null ? null : match.join( ", " ); + }, + + // Raw string + getAllResponseHeaders: function() { + return completed ? responseHeadersString : null; + }, + + // Caches the header + setRequestHeader: function( name, value ) { + if ( completed == null ) { + name = requestHeadersNames[ name.toLowerCase() ] = + requestHeadersNames[ name.toLowerCase() ] || name; + requestHeaders[ name ] = value; + } + return this; + }, + + // Overrides response content-type header + overrideMimeType: function( type ) { + if ( completed == null ) { + s.mimeType = type; + } + return this; + }, + + // Status-dependent callbacks + statusCode: function( map ) { + var code; + if ( map ) { + if ( completed ) { + + // Execute the appropriate callbacks + jqXHR.always( map[ jqXHR.status ] ); + } else { + + // Lazy-add the new callbacks in a way that preserves old ones + for ( code in map ) { + statusCode[ code ] = [ statusCode[ code ], map[ code ] ]; + } + } + } + return this; + }, + + // Cancel the request + abort: function( statusText ) { + var finalText = statusText || strAbort; + if ( transport ) { + transport.abort( finalText ); + } + done( 0, finalText ); + return this; + } + }; + + // Attach deferreds + deferred.promise( jqXHR ); + + // Add protocol if not provided (prefilters might expect it) + // Handle falsy url in the settings object (#10093: consistency with old signature) + // We also use the url parameter if available + s.url = ( ( url || s.url || location.href ) + "" ) + .replace( rprotocol, location.protocol + "//" ); + + // Alias method option to type as per ticket #12004 + s.type = options.method || options.type || s.method || s.type; + + // Extract dataTypes list + s.dataTypes = ( s.dataType || "*" ).toLowerCase().match( rnothtmlwhite ) || [ "" ]; + + // A cross-domain request is in order when the origin doesn't match the current origin. + if ( s.crossDomain == null ) { + urlAnchor = document.createElement( "a" ); + + // Support: IE <=8 - 11, Edge 12 - 15 + // IE throws exception on accessing the href property if url is malformed, + // e.g. http://example.com:80x/ + try { + urlAnchor.href = s.url; + + // Support: IE <=8 - 11 only + // Anchor's host property isn't correctly set when s.url is relative + urlAnchor.href = urlAnchor.href; + s.crossDomain = originAnchor.protocol + "//" + originAnchor.host !== + urlAnchor.protocol + "//" + urlAnchor.host; + } catch ( e ) { + + // If there is an error parsing the URL, assume it is crossDomain, + // it can be rejected by the transport if it is invalid + s.crossDomain = true; + } + } + + // Convert data if not already a string + if ( s.data && s.processData && typeof s.data !== "string" ) { + s.data = jQuery.param( s.data, s.traditional ); + } + + // Apply prefilters + inspectPrefiltersOrTransports( prefilters, s, options, jqXHR ); + + // If request was aborted inside a prefilter, stop there + if ( completed ) { + return jqXHR; + } + + // We can fire global events as of now if asked to + // Don't fire events if jQuery.event is undefined in an AMD-usage scenario (#15118) + fireGlobals = jQuery.event && s.global; + + // Watch for a new set of requests + if ( fireGlobals && jQuery.active++ === 0 ) { + jQuery.event.trigger( "ajaxStart" ); + } + + // Uppercase the type + s.type = s.type.toUpperCase(); + + // Determine if request has content + s.hasContent = !rnoContent.test( s.type ); + + // Save the URL in case we're toying with the If-Modified-Since + // and/or If-None-Match header later on + // Remove hash to simplify url manipulation + cacheURL = s.url.replace( rhash, "" ); + + // More options handling for requests with no content + if ( !s.hasContent ) { + + // Remember the hash so we can put it back + uncached = s.url.slice( cacheURL.length ); + + // If data is available and should be processed, append data to url + if ( s.data && ( s.processData || typeof s.data === "string" ) ) { + cacheURL += ( rquery.test( cacheURL ) ? "&" : "?" ) + s.data; + + // #9682: remove data so that it's not used in an eventual retry + delete s.data; + } + + // Add or update anti-cache param if needed + if ( s.cache === false ) { + cacheURL = cacheURL.replace( rantiCache, "$1" ); + uncached = ( rquery.test( cacheURL ) ? "&" : "?" ) + "_=" + ( nonce.guid++ ) + + uncached; + } + + // Put hash and anti-cache on the URL that will be requested (gh-1732) + s.url = cacheURL + uncached; + + // Change '%20' to '+' if this is encoded form body content (gh-2658) + } else if ( s.data && s.processData && + ( s.contentType || "" ).indexOf( "application/x-www-form-urlencoded" ) === 0 ) { + s.data = s.data.replace( r20, "+" ); + } + + // Set the If-Modified-Since and/or If-None-Match header, if in ifModified mode. + if ( s.ifModified ) { + if ( jQuery.lastModified[ cacheURL ] ) { + jqXHR.setRequestHeader( "If-Modified-Since", jQuery.lastModified[ cacheURL ] ); + } + if ( jQuery.etag[ cacheURL ] ) { + jqXHR.setRequestHeader( "If-None-Match", jQuery.etag[ cacheURL ] ); + } + } + + // Set the correct header, if data is being sent + if ( s.data && s.hasContent && s.contentType !== false || options.contentType ) { + jqXHR.setRequestHeader( "Content-Type", s.contentType ); + } + + // Set the Accepts header for the server, depending on the dataType + jqXHR.setRequestHeader( + "Accept", + s.dataTypes[ 0 ] && s.accepts[ s.dataTypes[ 0 ] ] ? + s.accepts[ s.dataTypes[ 0 ] ] + + ( s.dataTypes[ 0 ] !== "*" ? ", " + allTypes + "; q=0.01" : "" ) : + s.accepts[ "*" ] + ); + + // Check for headers option + for ( i in s.headers ) { + jqXHR.setRequestHeader( i, s.headers[ i ] ); + } + + // Allow custom headers/mimetypes and early abort + if ( s.beforeSend && + ( s.beforeSend.call( callbackContext, jqXHR, s ) === false || completed ) ) { + + // Abort if not done already and return + return jqXHR.abort(); + } + + // Aborting is no longer a cancellation + strAbort = "abort"; + + // Install callbacks on deferreds + completeDeferred.add( s.complete ); + jqXHR.done( s.success ); + jqXHR.fail( s.error ); + + // Get transport + transport = inspectPrefiltersOrTransports( transports, s, options, jqXHR ); + + // If no transport, we auto-abort + if ( !transport ) { + done( -1, "No Transport" ); + } else { + jqXHR.readyState = 1; + + // Send global event + if ( fireGlobals ) { + globalEventContext.trigger( "ajaxSend", [ jqXHR, s ] ); + } + + // If request was aborted inside ajaxSend, stop there + if ( completed ) { + return jqXHR; + } + + // Timeout + if ( s.async && s.timeout > 0 ) { + timeoutTimer = window.setTimeout( function() { + jqXHR.abort( "timeout" ); + }, s.timeout ); + } + + try { + completed = false; + transport.send( requestHeaders, done ); + } catch ( e ) { + + // Rethrow post-completion exceptions + if ( completed ) { + throw e; + } + + // Propagate others as results + done( -1, e ); + } + } + + // Callback for when everything is done + function done( status, nativeStatusText, responses, headers ) { + var isSuccess, success, error, response, modified, + statusText = nativeStatusText; + + // Ignore repeat invocations + if ( completed ) { + return; + } + + completed = true; + + // Clear timeout if it exists + if ( timeoutTimer ) { + window.clearTimeout( timeoutTimer ); + } + + // Dereference transport for early garbage collection + // (no matter how long the jqXHR object will be used) + transport = undefined; + + // Cache response headers + responseHeadersString = headers || ""; + + // Set readyState + jqXHR.readyState = status > 0 ? 4 : 0; + + // Determine if successful + isSuccess = status >= 200 && status < 300 || status === 304; + + // Get response data + if ( responses ) { + response = ajaxHandleResponses( s, jqXHR, responses ); + } + + // Use a noop converter for missing script but not if jsonp + if ( !isSuccess && + jQuery.inArray( "script", s.dataTypes ) > -1 && + jQuery.inArray( "json", s.dataTypes ) < 0 ) { + s.converters[ "text script" ] = function() {}; + } + + // Convert no matter what (that way responseXXX fields are always set) + response = ajaxConvert( s, response, jqXHR, isSuccess ); + + // If successful, handle type chaining + if ( isSuccess ) { + + // Set the If-Modified-Since and/or If-None-Match header, if in ifModified mode. + if ( s.ifModified ) { + modified = jqXHR.getResponseHeader( "Last-Modified" ); + if ( modified ) { + jQuery.lastModified[ cacheURL ] = modified; + } + modified = jqXHR.getResponseHeader( "etag" ); + if ( modified ) { + jQuery.etag[ cacheURL ] = modified; + } + } + + // if no content + if ( status === 204 || s.type === "HEAD" ) { + statusText = "nocontent"; + + // if not modified + } else if ( status === 304 ) { + statusText = "notmodified"; + + // If we have data, let's convert it + } else { + statusText = response.state; + success = response.data; + error = response.error; + isSuccess = !error; + } + } else { + + // Extract error from statusText and normalize for non-aborts + error = statusText; + if ( status || !statusText ) { + statusText = "error"; + if ( status < 0 ) { + status = 0; + } + } + } + + // Set data for the fake xhr object + jqXHR.status = status; + jqXHR.statusText = ( nativeStatusText || statusText ) + ""; + + // Success/Error + if ( isSuccess ) { + deferred.resolveWith( callbackContext, [ success, statusText, jqXHR ] ); + } else { + deferred.rejectWith( callbackContext, [ jqXHR, statusText, error ] ); + } + + // Status-dependent callbacks + jqXHR.statusCode( statusCode ); + statusCode = undefined; + + if ( fireGlobals ) { + globalEventContext.trigger( isSuccess ? "ajaxSuccess" : "ajaxError", + [ jqXHR, s, isSuccess ? success : error ] ); + } + + // Complete + completeDeferred.fireWith( callbackContext, [ jqXHR, statusText ] ); + + if ( fireGlobals ) { + globalEventContext.trigger( "ajaxComplete", [ jqXHR, s ] ); + + // Handle the global AJAX counter + if ( !( --jQuery.active ) ) { + jQuery.event.trigger( "ajaxStop" ); + } + } + } + + return jqXHR; + }, + + getJSON: function( url, data, callback ) { + return jQuery.get( url, data, callback, "json" ); + }, + + getScript: function( url, callback ) { + return jQuery.get( url, undefined, callback, "script" ); + } +} ); + +jQuery.each( [ "get", "post" ], function( _i, method ) { + jQuery[ method ] = function( url, data, callback, type ) { + + // Shift arguments if data argument was omitted + if ( isFunction( data ) ) { + type = type || callback; + callback = data; + data = undefined; + } + + // The url can be an options object (which then must have .url) + return jQuery.ajax( jQuery.extend( { + url: url, + type: method, + dataType: type, + data: data, + success: callback + }, jQuery.isPlainObject( url ) && url ) ); + }; +} ); + +jQuery.ajaxPrefilter( function( s ) { + var i; + for ( i in s.headers ) { + if ( i.toLowerCase() === "content-type" ) { + s.contentType = s.headers[ i ] || ""; + } + } +} ); + + +jQuery._evalUrl = function( url, options, doc ) { + return jQuery.ajax( { + url: url, + + // Make this explicit, since user can override this through ajaxSetup (#11264) + type: "GET", + dataType: "script", + cache: true, + async: false, + global: false, + + // Only evaluate the response if it is successful (gh-4126) + // dataFilter is not invoked for failure responses, so using it instead + // of the default converter is kludgy but it works. + converters: { + "text script": function() {} + }, + dataFilter: function( response ) { + jQuery.globalEval( response, options, doc ); + } + } ); +}; + + +jQuery.fn.extend( { + wrapAll: function( html ) { + var wrap; + + if ( this[ 0 ] ) { + if ( isFunction( html ) ) { + html = html.call( this[ 0 ] ); + } + + // The elements to wrap the target around + wrap = jQuery( html, this[ 0 ].ownerDocument ).eq( 0 ).clone( true ); + + if ( this[ 0 ].parentNode ) { + wrap.insertBefore( this[ 0 ] ); + } + + wrap.map( function() { + var elem = this; + + while ( elem.firstElementChild ) { + elem = elem.firstElementChild; + } + + return elem; + } ).append( this ); + } + + return this; + }, + + wrapInner: function( html ) { + if ( isFunction( html ) ) { + return this.each( function( i ) { + jQuery( this ).wrapInner( html.call( this, i ) ); + } ); + } + + return this.each( function() { + var self = jQuery( this ), + contents = self.contents(); + + if ( contents.length ) { + contents.wrapAll( html ); + + } else { + self.append( html ); + } + } ); + }, + + wrap: function( html ) { + var htmlIsFunction = isFunction( html ); + + return this.each( function( i ) { + jQuery( this ).wrapAll( htmlIsFunction ? html.call( this, i ) : html ); + } ); + }, + + unwrap: function( selector ) { + this.parent( selector ).not( "body" ).each( function() { + jQuery( this ).replaceWith( this.childNodes ); + } ); + return this; + } +} ); + + +jQuery.expr.pseudos.hidden = function( elem ) { + return !jQuery.expr.pseudos.visible( elem ); +}; +jQuery.expr.pseudos.visible = function( elem ) { + return !!( elem.offsetWidth || elem.offsetHeight || elem.getClientRects().length ); +}; + + + + +jQuery.ajaxSettings.xhr = function() { + try { + return new window.XMLHttpRequest(); + } catch ( e ) {} +}; + +var xhrSuccessStatus = { + + // File protocol always yields status code 0, assume 200 + 0: 200, + + // Support: IE <=9 only + // #1450: sometimes IE returns 1223 when it should be 204 + 1223: 204 + }, + xhrSupported = jQuery.ajaxSettings.xhr(); + +support.cors = !!xhrSupported && ( "withCredentials" in xhrSupported ); +support.ajax = xhrSupported = !!xhrSupported; + +jQuery.ajaxTransport( function( options ) { + var callback, errorCallback; + + // Cross domain only allowed if supported through XMLHttpRequest + if ( support.cors || xhrSupported && !options.crossDomain ) { + return { + send: function( headers, complete ) { + var i, + xhr = options.xhr(); + + xhr.open( + options.type, + options.url, + options.async, + options.username, + options.password + ); + + // Apply custom fields if provided + if ( options.xhrFields ) { + for ( i in options.xhrFields ) { + xhr[ i ] = options.xhrFields[ i ]; + } + } + + // Override mime type if needed + if ( options.mimeType && xhr.overrideMimeType ) { + xhr.overrideMimeType( options.mimeType ); + } + + // X-Requested-With header + // For cross-domain requests, seeing as conditions for a preflight are + // akin to a jigsaw puzzle, we simply never set it to be sure. + // (it can always be set on a per-request basis or even using ajaxSetup) + // For same-domain requests, won't change header if already provided. + if ( !options.crossDomain && !headers[ "X-Requested-With" ] ) { + headers[ "X-Requested-With" ] = "XMLHttpRequest"; + } + + // Set headers + for ( i in headers ) { + xhr.setRequestHeader( i, headers[ i ] ); + } + + // Callback + callback = function( type ) { + return function() { + if ( callback ) { + callback = errorCallback = xhr.onload = + xhr.onerror = xhr.onabort = xhr.ontimeout = + xhr.onreadystatechange = null; + + if ( type === "abort" ) { + xhr.abort(); + } else if ( type === "error" ) { + + // Support: IE <=9 only + // On a manual native abort, IE9 throws + // errors on any property access that is not readyState + if ( typeof xhr.status !== "number" ) { + complete( 0, "error" ); + } else { + complete( + + // File: protocol always yields status 0; see #8605, #14207 + xhr.status, + xhr.statusText + ); + } + } else { + complete( + xhrSuccessStatus[ xhr.status ] || xhr.status, + xhr.statusText, + + // Support: IE <=9 only + // IE9 has no XHR2 but throws on binary (trac-11426) + // For XHR2 non-text, let the caller handle it (gh-2498) + ( xhr.responseType || "text" ) !== "text" || + typeof xhr.responseText !== "string" ? + { binary: xhr.response } : + { text: xhr.responseText }, + xhr.getAllResponseHeaders() + ); + } + } + }; + }; + + // Listen to events + xhr.onload = callback(); + errorCallback = xhr.onerror = xhr.ontimeout = callback( "error" ); + + // Support: IE 9 only + // Use onreadystatechange to replace onabort + // to handle uncaught aborts + if ( xhr.onabort !== undefined ) { + xhr.onabort = errorCallback; + } else { + xhr.onreadystatechange = function() { + + // Check readyState before timeout as it changes + if ( xhr.readyState === 4 ) { + + // Allow onerror to be called first, + // but that will not handle a native abort + // Also, save errorCallback to a variable + // as xhr.onerror cannot be accessed + window.setTimeout( function() { + if ( callback ) { + errorCallback(); + } + } ); + } + }; + } + + // Create the abort callback + callback = callback( "abort" ); + + try { + + // Do send the request (this may raise an exception) + xhr.send( options.hasContent && options.data || null ); + } catch ( e ) { + + // #14683: Only rethrow if this hasn't been notified as an error yet + if ( callback ) { + throw e; + } + } + }, + + abort: function() { + if ( callback ) { + callback(); + } + } + }; + } +} ); + + + + +// Prevent auto-execution of scripts when no explicit dataType was provided (See gh-2432) +jQuery.ajaxPrefilter( function( s ) { + if ( s.crossDomain ) { + s.contents.script = false; + } +} ); + +// Install script dataType +jQuery.ajaxSetup( { + accepts: { + script: "text/javascript, application/javascript, " + + "application/ecmascript, application/x-ecmascript" + }, + contents: { + script: /\b(?:java|ecma)script\b/ + }, + converters: { + "text script": function( text ) { + jQuery.globalEval( text ); + return text; + } + } +} ); + +// Handle cache's special case and crossDomain +jQuery.ajaxPrefilter( "script", function( s ) { + if ( s.cache === undefined ) { + s.cache = false; + } + if ( s.crossDomain ) { + s.type = "GET"; + } +} ); + +// Bind script tag hack transport +jQuery.ajaxTransport( "script", function( s ) { + + // This transport only deals with cross domain or forced-by-attrs requests + if ( s.crossDomain || s.scriptAttrs ) { + var script, callback; + return { + send: function( _, complete ) { + script = jQuery( " - diff --git a/docs/RefMan/_build/html/search.html b/docs/RefMan/_build/html/search.html index 171f62c6a..c6df46639 100644 --- a/docs/RefMan/_build/html/search.html +++ b/docs/RefMan/_build/html/search.html @@ -14,7 +14,6 @@ - diff --git a/docs/RefMan/_build/html/searchindex.js b/docs/RefMan/_build/html/searchindex.js index 3d37d72c7..4192636ac 100644 --- a/docs/RefMan/_build/html/searchindex.js +++ b/docs/RefMan/_build/html/searchindex.js @@ -1 +1 @@ -Search.setIndex({"docnames": ["BasicSyntax", "BasicTypes", "Expressions", "FFI", "Modules", "OverloadedOperations", "RefMan", "TypeDeclarations"], "filenames": ["BasicSyntax.rst", "BasicTypes.rst", "Expressions.rst", "FFI.rst", "Modules.rst", "OverloadedOperations.rst", "RefMan.rst", "TypeDeclarations.rst"], "titles": ["Basic Syntax", "Basic Types", "Expressions", "Foreign Function Interface", "Modules", "Overloaded Operations", "Cryptol Reference Manual", "Type Declarations"], "terms": {"f": [0, 1, 2, 3, 4], "x": [0, 1, 2, 3, 4, 7], "y": [0, 1, 2, 3, 4], "z": [0, 2, 4], "g": [0, 2, 4], "b": [0, 3, 4, 5, 7], "fin": [0, 3, 4], "group": [0, 4, 7], "ar": [0, 1, 2, 3, 4, 7], "organ": 0, "base": [0, 2], "indent": [0, 4], "same": [0, 1, 3, 4, 7], "belong": 0, "line": [0, 4, 7], "text": 0, "more": [0, 4], "than": [0, 3, 4], "begin": 0, "while": [0, 1, 3], "less": 0, "termin": 0, "consid": [0, 4, 7], "exampl": [0, 1, 2, 4, 6], "follow": [0, 1, 2, 3, 4], "cryptol": [0, 2, 4], "where": [0, 1, 2, 3, 4], "thi": [0, 1, 2, 3, 4], "ha": [0, 1, 2, 3], "two": [0, 1, 2, 4, 7], "one": [0, 2, 3, 4], "all": [0, 2, 3, 4, 7], "between": [0, 6], "The": [0, 1, 2, 3, 4], "principl": 0, "appli": [0, 3], "block": [0, 6], "which": [0, 2, 3, 4, 7], "defin": [0, 1, 3, 4, 7], "local": [0, 4, 6], "name": [0, 1, 3, 6, 7], "support": [0, 4, 6], "start": [0, 1], "end": [0, 4], "mai": [0, 1, 2, 3, 4, 7], "nest": [0, 1, 3, 6], "arbitrarili": 0, "i": [0, 1, 2, 3, 4, 7], "document": [0, 4], "consist": 0, "charact": 0, "first": [0, 1, 3, 4], "must": [0, 3, 4], "either": [0, 3, 4], "an": [0, 1, 2, 3, 6], "english": 0, "letter": 0, "underscor": 0, "_": [0, 1], "decim": 0, "digit": 0, "prime": 0, "some": [0, 4], "have": [0, 1, 2, 3, 4, 7], "special": 0, "mean": [0, 3], "languag": [0, 3], "so": [0, 1, 2, 3, 4], "thei": [0, 1, 3, 4, 7], "us": [0, 1, 2, 3, 4, 7], "programm": 0, "see": [0, 4], "name1": 0, "longer_nam": 0, "name2": 0, "longernam": 0, "extern": 0, "includ": 0, "interfac": [0, 6], "paramet": [0, 2, 6], "properti": 0, "hide": [0, 6], "infix": [0, 6], "let": [0, 3], "pragma": 0, "submodul": [0, 4], "els": [0, 2, 4], "constraint": [0, 6], "infixl": 0, "modul": [0, 3, 6], "primit": 0, "down": [0, 1], "import": [0, 1, 2, 6], "infixr": 0, "newtyp": [0, 4, 6], "privat": [0, 6], "tabl": [0, 3], "contain": [0, 1, 3, 4], "": [0, 2, 3, 4], "associ": 0, "lowest": 0, "highest": 0, "last": [0, 2, 3], "right": [0, 1], "left": [0, 1], "unari": [0, 2], "varieti": 0, "allow": [0, 3, 4, 7], "comput": [0, 1], "specifi": [0, 2, 4], "size": [0, 1, 3], "sequenc": [0, 6], "addit": [0, 4], "subtract": 0, "multipl": [0, 1, 2, 3, 4], "divis": [0, 6], "ceil": [0, 5], "round": [0, 6], "up": [0, 3], "modulu": 0, "pad": [0, 3], "exponenti": 0, "lg2": 0, "logarithm": 0, "2": [0, 1, 2, 3, 4, 7], "width": [0, 4], "bit": [0, 1, 2, 4, 5, 6], "equal": [0, 1, 6, 7], "n": [0, 1, 3, 4], "1": [0, 1, 2, 3, 4, 7], "max": [0, 5], "maximum": 0, "min": [0, 5], "minimum": 0, "written": [0, 1, 2, 3, 7], "binari": [0, 3], "octal": 0, "hexadecim": 0, "notat": [0, 1, 2, 4], "determin": [0, 1], "its": [0, 3, 4], "prefix": [0, 4, 6], "0b": 0, "0o": 0, "0x": 0, "254": 0, "0254": 0, "0b11111110": 0, "0o376": 0, "0xfe": 0, "result": [0, 1, 2, 4], "fix": [0, 1, 3], "length": [0, 1], "e": [0, 1, 4, 5], "number": [0, 1, 2, 3], "overload": [0, 6], "infer": [0, 2], "from": [0, 1, 2, 3, 4], "context": [0, 2], "0b1010": 0, "4": [0, 3], "0o1234": 0, "12": [0, 4], "3": [0, 1, 2, 4, 7], "0x1234": 0, "16": [0, 3], "10": [0, 1, 3, 4], "integ": [0, 2, 5, 7], "also": [0, 1, 3, 4], "polynomi": 0, "write": [0, 1, 3], "express": [0, 1, 4, 6, 7], "term": 0, "open": 0, "close": 0, "degre": 0, "6": [0, 7], "7": [0, 2, 4], "0b1010111": 0, "5": [0, 1, 2, 4], "0b11010": 0, "fraction": 0, "ox": 0, "A": [0, 1, 3, 4, 7], "option": [0, 7], "expon": 0, "mark": 0, "symbol": [0, 3, 4], "p": [0, 1, 4], "2e3": 0, "0x30": 0, "64": [0, 3], "1p4": 0, "ration": 0, "float": [0, 6], "famili": 0, "cannot": [0, 2], "repres": 0, "precis": 0, "Such": [0, 4], "reject": 0, "static": [0, 3], "when": [0, 1, 2, 3, 4], "closest": 0, "represent": [0, 3], "even": [0, 7], "effect": 0, "valu": [0, 1, 4, 6, 7], "improv": [0, 3], "readabl": [0, 3], "here": [0, 2, 4], "0b_0000_0010": 0, "0x_ffff_ffea": 0, "packag": 1, "togeth": [1, 4], "enclos": [1, 4], "parenthes": 1, "curli": 1, "brace": 1, "compon": [1, 3], "both": [1, 4], "separ": [1, 4], "comma": 1, "label": 1, "sign": [1, 6], "identifi": [1, 4, 6], "posit": 1, "order": [1, 3, 4], "most": [1, 4], "purpos": [1, 7], "true": [1, 3], "fals": [1, 3], "lexicograph": 1, "compar": 1, "appear": [1, 7], "wherea": 1, "alphabet": 1, "wai": [1, 3, 4], "via": 1, "pattern": [1, 2], "match": [1, 3], "explicit": [1, 4, 6], "selector": 1, "15": 1, "20": [1, 3], "0": [1, 2, 3], "onli": [1, 3, 4, 7], "program": 1, "suffici": [1, 2], "inform": 1, "shape": 1, "For": [1, 2, 3, 4, 7], "t": [1, 2, 3, 4, 7], "valid": 1, "definit": [1, 2, 4], "known": 1, "isposit": 1, "invalid": 1, "insuffici": 1, "baddef": 1, "mirror": 1, "syntax": [1, 2, 6], "construct": [1, 2, 4], "getfst": 1, "distance2": 1, "xpo": 1, "ypo": 1, "lift": 1, "through": [1, 6], "point": [1, 6], "wise": 1, "equat": 1, "should": [1, 2, 3], "hold": [1, 3], "l": [1, 3], "thu": [1, 4], "we": [1, 3, 4], "can": [1, 2, 3, 4, 7], "quickli": 1, "obtain": [1, 3, 4], "similarli": 1, "get": 1, "entri": 1, "behavior": [1, 3], "quit": [1, 4], "handi": 1, "examin": 1, "complex": 1, "data": 1, "repl": 1, "r": 1, "pt": 1, "100": 1, "set": [1, 3], "30": [1, 4], "rel": 1, "old": 1, "25": 1, "collect": [1, 7], "element": [1, 2, 3], "finit": [1, 2], "often": 1, "call": [1, 3, 4, 6], "word": [1, 3], "abbrevi": 1, "infinit": 1, "inf": [1, 5], "stream": 1, "e1": 1, "e2": 1, "e3": 1, "three": 1, "t1": [1, 3], "t2": [1, 3], "enumer": 1, "exclus": 1, "bound": [1, 3], "stride": 1, "ex": 1, "downward": 1, "t3": 1, "step": [1, 4], "p11": 1, "e11": 1, "p12": 1, "e12": 1, "comprehens": 1, "p21": 1, "e21": 1, "p22": 1, "e22": 1, "gener": [1, 3], "index": 1, "bind": [1, 3], "arr": 1, "j": [1, 4], "dimension": 1, "note": [1, 3, 4], "those": [1, 4], "descript": 1, "concaten": 1, "shift": 1, "rotat": 1, "arithmet": [1, 6], "bitvector": 1, "front": 1, "back": 1, "sub": [1, 4], "updateend": 1, "locat": [1, 4], "updatesend": 1, "There": 1, "pointwis": 1, "p1": 1, "p2": 1, "p3": 1, "p4": 1, "split": [1, 3], "lambda": [1, 2], "section": [2, 3, 4], "provid": [2, 4], "overview": 2, "h": [2, 4], "pair": 2, "paren": 2, "ad": [2, 3, 4], "8": [2, 3, 4], "whole": [2, 3, 4], "9": 2, "variabl": [2, 3], "If": [2, 3, 4], "polymorph": [2, 3], "typaram": 2, "zero": [2, 3, 6], "you": [2, 3, 4], "evalu": [2, 6], "pass": [2, 3, 6], "13": 2, "weakest": 2, "preced": [2, 4], "scope": [2, 4, 7], "defint": 2, "do": [2, 3, 4, 7], "need": [2, 3, 4], "branch": 2, "22": 2, "33": 2, "correspond": [2, 3], "access": [2, 3, 6], "kind": [2, 3], "larg": [2, 3], "accommod": 2, "liter": [2, 6], "backtick": 2, "sugar": [2, 4], "applic": 2, "primtiv": 2, "abov": [2, 3, 4], "suitabl": 2, "automat": [2, 3], "chosen": 2, "possibl": [2, 4], "usual": 2, "ffi": 3, "other": [3, 4, 7], "convent": 3, "current": 3, "window": 3, "work": [3, 4], "unix": 3, "like": [3, 4, 7], "system": [3, 4], "maco": 3, "linux": 3, "suppos": 3, "want": [3, 4], "uint32_t": 3, "add": [3, 4], "In": [3, 4], "our": 3, "file": [3, 4], "declar": [3, 4, 6], "bodi": [3, 7], "32": [3, 4], "dynam": 3, "load": 3, "share": 3, "librari": 3, "look": [3, 4], "directori": [3, 4], "differ": [3, 4], "extens": 3, "exact": 3, "specif": 3, "On": 3, "dylib": 3, "your": 3, "foo": 3, "cry": [3, 4], "Then": [3, 4], "each": [3, 4, 7], "case": [3, 4], "onc": [3, 4], "ani": [3, 4, 7], "sinc": [3, 4], "sourc": [3, 4], "check": 3, "actual": 3, "It": [3, 4], "respons": 3, "make": [3, 4], "sure": [3, 4], "undefin": 3, "doe": 3, "handl": 3, "simpl": [3, 4], "manual": 3, "command": 3, "cc": 3, "fpic": 3, "o": 3, "dynamiclib": 3, "describ": [3, 4], "how": 3, "given": 3, "signatur": [3, 6], "map": 3, "prototyp": 3, "limit": 3, "clear": 3, "translat": 3, "These": 3, "curri": 3, "argument": [3, 6, 7], "certain": 3, "befor": [3, 4], "That": 3, "could": 3, "mani": [3, 4], "after": 3, "directli": [3, 7], "output": 3, "depend": 3, "pointer": 3, "modifi": 3, "store": 3, "list": [3, 6], "size_t": 3, "numer": [3, 4, 6], "furthermor": 3, "satisfi": 3, "explicitli": 3, "fit": 3, "runtim": 3, "error": [3, 4], "requir": [3, 4], "instead": [3, 4, 7], "just": [3, 4, 7], "practic": [3, 4], "would": [3, 4, 7], "too": 3, "cumbersom": [3, 4], "uint8_t": 3, "nonzero": 3, "k": 3, "uint16_t": 3, "uint64_t": 3, "smaller": 3, "extra": 3, "ignor": 3, "instanc": 3, "0xf": 3, "0x0f": 3, "0xaf": 3, "larger": 3, "standard": 3, "convers": 3, "arrai": 3, "float32": 3, "float64": 3, "doubl": 3, "built": [3, 6], "possibli": 3, "u": 3, "itself": [3, 4], "along": 3, "earlier": 3, "alwai": 3, "know": 3, "tn": 3, "mention": [3, 7], "themselv": 3, "u1": 3, "u2": 3, "un": 3, "respect": 3, "f1": 3, "f2": 3, "fn": 3, "arbitrari": 3, "field": [3, 5, 6, 7], "flatten": 3, "out": 3, "behav": 3, "individu": 3, "recurs": [3, 4, 7], "empti": 3, "don": 3, "void": 3, "treat": [3, 4, 7], "except": [3, 4], "input": 3, "version": 3, "becaus": [3, 4], "alreadi": 3, "involv": 3, "alloc": 3, "dealloc": 3, "manag": [3, 6], "non": 3, "piec": 3, "enough": 3, "try": [3, 4], "adjac": 3, "uniniti": 3, "read": 3, "relat": 4, "top": 4, "level": [4, 6], "m": 4, "type": [4, 6], "glu": 4, "ordinari": 4, "hash": 4, "sha256": 4, "structur": [4, 6], "implement": 4, "search": 4, "cryptolpath": 4, "To": 4, "anoth": 4, "wa": 4, "sometim": 4, "0x02": 4, "0x03": 4, "0x04": 4, "help": 4, "reduc": 4, "collis": 4, "tend": 4, "code": [4, 6], "easier": 4, "understand": 4, "easi": 4, "them": 4, "few": 4, "clash": 4, "situat": 4, "conveni": 4, "everyth": 4, "avoid": 4, "happen": 4, "combin": 4, "claus": 4, "introduc": 4, "might": 4, "helper": 4, "function": [4, 6, 7], "intend": 4, "outsid": 4, "good": 4, "place": 4, "0x01": 4, "helper1": 4, "helper2": 4, "public": 4, "remain": 4, "extend": 4, "keyword": [4, 6], "new": [4, 7], "layout": [4, 6], "singl": 4, "equival": 4, "previou": 4, "withing": 4, "keword": 4, "refer": 4, "shadow": 4, "outer": 4, "submdul": 4, "across": 4, "submould": 4, "bring": [4, 7], "upcom": 4, "variant": 4, "featur": 4, "yet": 4, "part": 4, "main": [3, 4], "content": 4, "without": 4, "concret": 4, "assumpt": 4, "about": 4, "constant": [3, 4], "desrib": 4, "parmaet": 4, "sumbodul": 4, "mayb": 4, "link": 4, "abl": 4, "impos": 4, "cours": 4, "done": 4, "impl": 4, "26": 4, "myf": 4, "fill": 4, "my": 4, "slight": 4, "variat": 4, "impl1": 4, "impl2": 4, "deriv": 4, "somewher": 4, "presum": 4, "coupl": 4, "straight": 4, "awai": 4, "thing": 4, "notion": 4, "11": 4, "syntact": 4, "functor": 4, "time": 4, "synonym": [4, 6], "noth": 4, "exist": [4, 7], "semant": 4, "occasion": 4, "being": 4, "eq": 5, "cmp": 5, "ab": 5, "ring": 5, "signedcmp": 5, "complement": 5, "frominteg": 5, "negat": 5, "tointeg": 5, "inffrom": 5, "inffromthen": 5, "recip": 5, "floor": 5, "trunc": 5, "roundawai": 5, "roundtoeven": 5, "basic": 6, "comment": 6, "oper": 6, "annot": 6, "instanti": 6, "condit": 6, "demot": 6, "tupl": 6, "record": [6, 7], "updat": 6, "comparison": 6, "logic": 6, "integr": 6, "hierarch": 6, "qualifi": 6, "implicit": 6, "parameter": 6, "anonym": 6, "foreign": 6, "platform": 6, "usag": 6, "compil": 6, "c": 6, "convert": 6, "overal": 6, "return": 6, "memori": 6, "creat": 7, "pre": 7, "transpar": 7, "unfold": 7, "site": 7, "though": 7, "user": 7, "had": 7, "newt": 7, "seq": 7, "unlik": 7, "distinct": 7, "checker": 7, "moreov": 7, "member": 7, "typeclass": 7, "typecheck": 7, "otherwis": 7, "irrelev": 7, "form": 7, "everi": 7, "project": 7, "extract": 7, "sum": 7, "someth": 3, "a1": 3, "ak": 3, "c1": 3, "cn": 3, "tm": 3, "tr": 3, "expand": 3, "rule": 3, "out0": 3, "out1": 3, "in0": 3, "in1": 3, "in2": 3, "fulli": 3, "process": 3, "0x00000003": 3, "v1": 3, "v2": 3, "vn": 3, "ti": 3, "ui": 3, "vi": 3, "quick": 6, "n1": 3, "n2": 3, "nk": 3, "multidimension": 3, "contigu": 3, "similar": 3, "dimens": 3, "ni": 3}, "objects": {}, "objtypes": {}, "objnames": {}, "titleterms": {"basic": [0, 1, 3, 5], "syntax": 0, "declar": [0, 2, 7], "type": [0, 1, 2, 3, 7], "signatur": 0, "layout": 0, "comment": 0, "todo": [0, 2], "identifi": 0, "keyword": 0, "built": 0, "oper": [0, 1, 2, 5], "preced": 0, "level": 0, "numer": [0, 2], "liter": 0, "tupl": [1, 3], "record": [1, 3], "access": 1, "field": 1, "updat": 1, "sequenc": [1, 3], "function": [1, 2, 3], "express": 2, "call": 2, "prefix": 2, "infix": 2, "annot": 2, "explicit": 2, "instanti": [2, 4], "local": 2, "block": [2, 4], "argument": [2, 4], "condit": 2, "demot": 2, "valu": [2, 3], "foreign": 3, "interfac": [3, 4], "platform": 3, "support": 3, "usag": 3, "compil": 3, "c": 3, "code": 3, "convert": 3, "between": 3, "cryptol": [3, 6], "overal": 3, "structur": 3, "paramet": [3, 4], "bit": 3, "integr": [3, 5], "float": 3, "point": 3, "return": 3, "memori": 3, "modul": 4, "hierarch": 4, "name": 4, "import": 4, "list": 4, "hide": 4, "qualifi": 4, "privat": 4, "nest": 4, "implicit": 4, "manag": 4, "parameter": 4, "an": 4, "constraint": 4, "anonym": 4, "pass": 4, "through": 4, "overload": 5, "equal": 5, "comparison": 5, "sign": 5, "zero": 5, "logic": 5, "arithmet": 5, "divis": 5, "round": 5, "refer": [3, 6], "manual": 6, "synonym": [3, 7], "newtyp": 7, "exampl": 3, "evalu": 3, "quick": 3}, "envversion": {"sphinx.domains.c": 2, "sphinx.domains.changeset": 1, "sphinx.domains.citation": 1, "sphinx.domains.cpp": 6, "sphinx.domains.index": 1, "sphinx.domains.javascript": 2, "sphinx.domains.math": 2, "sphinx.domains.python": 3, "sphinx.domains.rst": 2, "sphinx.domains.std": 2, "sphinx.ext.todo": 2, "sphinx": 56}}) \ No newline at end of file +Search.setIndex({docnames:["BasicSyntax","BasicTypes","Expressions","FFI","Modules","OverloadedOperations","RefMan","TypeDeclarations"],envversion:{"sphinx.domains.c":2,"sphinx.domains.changeset":1,"sphinx.domains.citation":1,"sphinx.domains.cpp":4,"sphinx.domains.index":1,"sphinx.domains.javascript":2,"sphinx.domains.math":2,"sphinx.domains.python":3,"sphinx.domains.rst":2,"sphinx.domains.std":2,"sphinx.ext.todo":2,sphinx:56},filenames:["BasicSyntax.rst","BasicTypes.rst","Expressions.rst","FFI.rst","Modules.rst","OverloadedOperations.rst","RefMan.rst","TypeDeclarations.rst"],objects:{},objnames:{},objtypes:{},terms:{"0":[0,1,2,3],"0254":0,"0b":0,"0b1010":0,"0b1010111":0,"0b11010":0,"0b11111110":0,"0b_0000_0010":0,"0o":0,"0o1234":0,"0o376":0,"0x":0,"0x00000003":3,"0x01":4,"0x02":4,"0x03":4,"0x04":4,"0x0f":3,"0x1234":0,"0x30":0,"0x_ffff_ffea":0,"0xaf":3,"0xf":3,"0xfe":0,"1":[0,1,2,3,4,7],"10":[0,1,3,4],"100":1,"11":4,"12":[0,4],"13":2,"15":1,"16":[0,3],"1p4":0,"2":[0,1,2,3,4,7],"20":[1,3],"22":2,"25":1,"254":0,"26":4,"2e3":0,"3":[0,1,2,4,7],"30":[1,4],"32":[3,4],"33":2,"4":[0,3],"5":[0,1,2,4],"6":[0,7],"64":[0,3],"7":[0,2,4],"8":[2,3,4],"9":2,"case":[3,4],"do":[0,2,3,4,7],"float":[0,6],"function":[0,4,6,7],"import":[0,1,2,6],"long":0,"new":[4,7],"public":4,"return":6,"static":[0,3],"true":[1,3],"try":[3,4],"void":3,"while":[0,1,3],A:[0,1,3,4,7],For:[0,1,2,3,4,7],If:[2,3,4],In:[3,4],It:[3,4],On:3,Such:[0,4],That:3,The:[0,1,2,3,4],Then:[3,4],There:[0,1],These:3,To:4,_:[0,1],a1:3,ab:5,abbrevi:1,abl:4,about:4,abov:[2,3,4],access:[2,3,6],accommod:2,across:4,actual:[0,3],ad:[2,3,4],add:[3,4],addit:[0,4],adjac:3,after:3,ak:3,alias:0,all:[0,2,3,4,7],alloc:3,allow:[0,3,4,7],along:3,alphabet:1,alreadi:3,also:[0,1,3,4],alwai:3,an:[0,1,2,3,6],ani:[3,4,7],annot:6,anonym:6,anoth:4,appear:[1,7],appli:[0,3],applic:2,ar:[0,1,2,3,4,7],arbitrari:3,arbitrarili:0,argument:[3,6,7],arithmet:[1,6],arr:1,arrai:3,associ:0,assum:0,assumpt:[0,4],attempt:0,automat:[2,3],avoid:4,awai:4,b:[0,3,4,5,7],back:1,backtick:2,baddef:1,base:[0,2],basic:6,becaus:[0,3,4],befor:[3,4],begin:0,behav:3,behavior:[0,1,3],being:4,belong:0,between:[0,6],binari:[0,3],bind:[1,3],bit:[0,1,2,4,5,6],bitvector:1,block:[0,6],bodi:[3,7],both:[1,4],bound:[1,3],brace:1,branch:[0,2],bring:[4,7],built:[3,6],c1:3,c:6,call:[1,3,4,6],can:[0,1,2,3,4,7],cannot:[0,2],cc:3,ceil:[0,5],certain:3,chang:0,charact:0,check:[0,3],checker:[0,7],chosen:2,clash:4,claus:4,clear:3,close:0,closest:0,cmp:5,cn:3,code:[4,6],collect:[1,7],collis:4,combin:4,comma:1,command:3,comment:6,compar:1,comparison:6,compil:6,complement:5,complex:1,compon:[1,3],comprehens:1,comput:[0,1],concaten:1,concret:4,condit:6,consid:[0,4,7],consist:0,constant:[3,4],constrain:0,constraint:6,construct:[1,2,4],contain:[0,1,3,4],content:4,context:[0,2],contigu:3,control:0,conveni:4,convent:3,convers:3,convert:6,correspond:[2,3],could:3,coupl:4,cours:4,creat:7,cry:[3,4],cryptol:[0,2,4],cryptolpath:4,cumbersom:[3,4],curli:1,current:3,curri:3,data:1,dealloc:3,decim:0,decis:0,declar:[3,4,6],defin:[0,1,3,4,7],definit:[0,1,2,4],defint:2,degre:0,demot:[0,6],depend:[0,3],deriv:4,describ:[3,4],descript:1,desrib:4,determin:[0,1],differ:[0,3,4],digit:0,dimens:3,dimension:1,directli:[3,7],directori:[3,4],distance2:1,distinct:7,divis:[0,6],document:[0,4],doe:[0,3],don:3,done:4,doubl:3,down:[0,1],downward:1,drop:0,dylib:3,dynam:3,dynamiclib:3,e11:1,e12:1,e1:1,e21:1,e22:1,e2:1,e3:1,e:[0,1,4,5],each:[0,3,4,7],earlier:3,easi:4,easier:4,effect:0,either:[0,3,4],element:[1,2,3],els:[0,2,4],empti:3,enclos:[1,4],end:[0,4],english:0,enough:3,entri:1,enumer:1,environment:0,eq:5,equal:[0,1,6,7],equat:1,equival:4,error:[3,4],etc:0,evalu:[2,6],even:[0,7],everi:7,everyth:4,ex:1,exact:3,examin:1,exampl:[0,1,2,4,6],except:[0,3,4],exclus:1,exhaust:0,exist:[4,7],expand:3,explicit:[1,4,6],explicitli:[0,3],expon:0,exponenti:0,express:[0,1,4,6,7],extend:4,extens:3,extern:0,extra:3,extract:7,f1:3,f2:3,f:[0,1,2,3,4],fact:0,fals:[1,3],famili:0,featur:4,few:4,ffi:3,field:[3,5,6,7],file:[3,4],fill:4,fin:[0,3,4],finit:[1,2],first:[0,1,3,4],fit:3,fix:[0,1,3],flatten:3,float32:3,float64:3,floor:5,fn:3,follow:[0,1,2,3,4],foo:3,foreign:6,form:7,fpic:3,fraction:0,from:[0,1,2,3,4],frominteg:5,front:1,fulli:3,functoin:0,functor:4,furthermor:3,g:[0,2,4],gener:[1,3],get:1,getfst:1,given:3,glu:4,good:4,group:[0,4,7],guard:6,h:[2,4],ha:[0,1,2,3],had:7,handi:1,handl:3,happen:4,hash:4,have:[0,1,2,3,4,7],help:4,helper1:4,helper2:4,helper:4,here:[0,2,4],hexadecim:0,hide:[0,6],hierarch:6,highest:0,hold:[1,3],how:3,howev:[],i:[0,1,4],identifi:[1,4,6],ignor:3,impl1:4,impl2:4,impl:4,implement:4,implicit:6,implict:0,importantli:[],impos:4,improv:[0,3],in0:3,in1:3,in2:3,includ:0,indent:[0,4],independ:0,index:1,individu:3,inf:[1,5],infer:[0,2],inffrom:5,inffromthen:5,infinit:1,infix:[0,6],infixl:0,infixr:0,inform:1,input:3,instanc:3,instanti:6,instead:[0,3,4,7],insuffici:1,integ:[0,2,5,7],integr:6,intend:4,interfac:[0,6],introduc:4,invalid:1,involv:3,irrelev:7,isposit:1,issu:0,its:[0,3,4],itself:[3,4],j:[1,4],just:[3,4,7],k:3,keword:4,keyword:[4,6],kind:[2,3],know:3,known:1,l:[1,3],label:1,lambda:[1,2],languag:[0,3],larg:[2,3],larger:3,last:[0,2,3],layout:[4,6],left:[0,1],len:0,length:[0,1],less:0,let:[0,3],letter:0,level:[4,6],lexicograph:1,lg2:0,librari:3,lift:1,like:[3,4,7],limit:3,line:[0,4,7],link:4,linux:3,list:[0,3,6],liter:[2,6],load:3,local:[0,4,6],locat:[1,4],logarithm:0,logic:6,longer_nam:0,longernam:0,look:[3,4],lowest:0,m:4,maco:3,mai:[0,1,2,3,4,7],main:[3,4],make:[3,4],manag:[3,6],mani:[3,4],manual:3,map:3,mark:0,match:[0,1,3],max:[0,5],maximum:0,mayb:4,mean:[0,3],member:7,memori:6,mention:[3,7],might:4,min:[0,5],minimum:0,mirror:1,modifi:3,modul:[0,3,6],modulu:0,more:[0,4],moreov:7,most:[1,4],multi:[],multidimension:3,multipl:[0,1,2,3,4],must:[0,3,4],my:4,myf:4,n1:3,n2:3,n:[0,1,3,4],name1:0,name2:0,name:[0,1,3,6,7],need:[0,2,3,4],negat:5,nest:[0,1,3,6],newt:7,newtyp:[0,4,6],ni:3,nk:3,non:[0,3],nonzero:3,normal:[],notat:[0,1,2,4],note:[1,3,4],noth:4,notion:4,number:[0,1,2,3],numer:[3,4,6],o:3,obtain:[1,3,4],occasion:4,octal:0,often:1,old:1,onc:[3,4],one:[0,2,3,4],onli:[0,1,3,4,7],open:0,oper:6,option:[0,7],order:[1,3,4],ordinari:4,organ:0,other:[0,3,4,7],otherwis:7,our:3,out0:3,out1:3,out:3,outer:4,output:3,outsid:4,over:0,overal:6,overload:[0,6],overview:2,ox:0,p11:1,p12:1,p1:1,p21:1,p22:1,p2:1,p3:1,p4:1,p:[0,1,4],packag:1,pad:[0,3],pair:2,paramet:[0,2,6],parameter:6,paren:2,parenthes:1,parmaet:4,part:4,pass:[2,3,6],pattern:[1,2],piec:3,place:4,platform:6,point:[1,6],pointer:3,pointwis:1,polymorph:[2,3],polynomi:0,posit:1,possibl:[2,3,4],practic:[3,4],pragma:0,pre:7,preced:[2,4],precis:0,prefix:[0,4,6],presum:4,previou:[0,4],prime:0,primit:0,primtiv:2,principl:0,privat:[0,6],process:3,program:1,programm:0,project:7,properti:0,prototyp:3,prove:0,provid:[0,2,4],pt:1,purpos:[1,7],qualifi:6,quick:6,quickli:1,quit:[0,1,4],r:1,rather:0,ration:0,read:3,readabl:[0,3],recip:5,record:[6,7],recurs:[3,4,7],reduc:4,refer:4,reject:0,rel:1,relat:4,remain:4,repl:1,repres:0,represent:[0,3],requir:[0,3,4],respect:3,respons:3,result:[0,1,2,4],right:[0,1],ring:5,rotat:1,round:[0,6],roundawai:5,roundtoeven:5,rule:3,runtim:3,s:[0,2,3,4],same:[0,1,3,4,7],satisfi:[0,3],scope:[2,4,7],search:4,section:[2,3,4],see:[0,4],selector:1,semant:4,separ:[1,4],seq:7,sequenc:[0,6],set:[0,1,3],sha256:4,shadow:4,shape:1,share:3,shift:1,should:[0,1,2,3],sign:[1,6],signatur:[3,6],signedcmp:5,similar:[0,3],similarli:1,simpl:[3,4],simpli:0,sinc:[3,4],singl:4,site:7,situat:4,size:[0,1,3],size_t:3,slight:4,smaller:3,so:[0,1,2,3,4],some:[0,4],someth:3,sometim:4,somewher:4,sourc:[3,4],special:0,specif:3,specifi:[0,2,4],split:[1,3],standard:3,start:[0,1],statement:0,step:[1,4],store:3,straight:4,stream:1,stride:1,structur:[4,6],sub:[1,4],submdul:4,submodul:[0,4],submould:4,subtract:0,suffici:[1,2],sugar:[2,4],suitabl:2,sum:7,sumbodul:4,support:[0,4,6],suppos:3,sure:[3,4],symbol:[0,3,4],synonym:[4,6],syntact:4,syntax:[1,2,6],system:[3,4],t1:[1,3],t2:[1,3],t3:1,t:[0,1,2,3,4,7],tabl:[0,3],tend:4,term:0,termin:0,text:0,than:[0,3,4],thei:[0,1,3,4,7],them:4,themselv:3,thi:[0,1,2,3,4],thing:4,those:[1,4],though:7,three:1,through:[1,6],thu:[1,4],ti:3,time:4,tm:3,tn:3,togeth:[1,4],tointeg:5,too:3,top:4,tr:3,translat:3,transpar:7,treat:[3,4,7],trunc:5,tupl:6,two:[0,1,2,4,7],typaram:2,type:[4,6],typecheck:7,typeclass:7,u1:3,u2:3,u:3,ui:3,uint16_t:3,uint32_t:3,uint64_t:3,uint8_t:3,un:3,unari:[0,2],undefin:3,underscor:0,understand:4,unfold:7,uniniti:3,unix:3,unlik:7,up:[0,3],upcom:4,updat:6,updateend:1,updatesend:1,us:[0,1,2,3,4,7],usag:6,user:7,usual:2,v1:3,v2:3,valid:1,valu:[0,1,4,6,7],variabl:[2,3],variant:4,variat:4,varieti:0,version:3,vi:3,via:1,vn:3,wa:4,wai:[1,3,4],want:[3,4],warn:0,warnnonexhaustiveconstraintguard:0,we:[1,3,4],weakest:2,when:[0,1,2,3,4],where:[0,1,2,3,4],wherea:1,which:[0,2,3,4,7],whole:[2,3,4],width:[0,4],window:3,wise:1,withing:4,without:4,word:[1,3],work:[3,4],would:[3,4,7],write:[0,1,3],written:[0,1,2,3,7],x:[0,1,2,3,4,7],xpo:1,xs:[0,1],y:[0,1,2,3,4],yet:4,you:[2,3,4],your:3,ypo:1,z:[0,2,4],zero:[2,3,6]},titles:["Basic Syntax","Basic Types","Expressions","Foreign Function Interface","Modules","Overloaded Operations","Cryptol Reference Manual","Type Declarations"],titleterms:{"float":3,"function":[1,2,3],"import":4,"return":3,access:1,an:4,annot:2,anonym:4,argument:[2,4],arithmet:5,basic:[0,1,3,5],between:3,bit:3,block:[2,4],built:0,c:3,call:2,code:3,comment:0,comparison:5,compil:3,condit:2,constraint:[0,4],convert:3,cryptol:[3,6],declar:[0,2,7],demot:2,divis:5,equal:5,evalu:3,exampl:3,explicit:2,express:2,field:1,foreign:3,guard:0,hide:4,hierarch:4,identifi:0,implicit:4,infix:2,instanti:[2,4],integr:[3,5],interfac:[3,4],keyword:0,layout:0,level:0,list:4,liter:0,local:2,logic:5,manag:4,manual:6,memori:3,modul:4,name:4,nest:4,newtyp:7,numer:[0,2],oper:[0,1,2,5],overal:3,overload:5,paramet:[3,4],parameter:4,pass:4,platform:3,point:3,preced:0,prefix:2,privat:4,qualifi:4,quick:3,record:[1,3],refer:[3,6],round:5,sequenc:[1,3],sign:5,signatur:0,structur:3,support:3,synonym:[3,7],syntax:0,through:4,todo:[0,2],tupl:[1,3],type:[0,1,2,3,7],updat:1,usag:3,valu:[2,3],zero:5}}) \ No newline at end of file From 9d6319078f299a07a90caa55cb6207282acf79ed Mon Sep 17 00:00:00 2001 From: Iavor Diatchki Date: Sat, 3 Sep 2022 12:05:08 +0300 Subject: [PATCH 115/125] Update the CHANGES files --- CHANGES.md | 5 +++++ 1 file changed, 5 insertions(+) diff --git a/CHANGES.md b/CHANGES.md index 1e6167277..cc41ad935 100644 --- a/CHANGES.md +++ b/CHANGES.md @@ -2,6 +2,11 @@ ## Language changes +* Declarations may now use *numeric constraint guards*. This is a feature + that allows a function to behave differently depending on its numeric + type parameters. See the [manual section](https://galoisinc.github.io/cryptol/RefMan/_build/html/BasicSyntax.html#numeric-constraint-guards)) + for more information. + * The foreign function interface (FFI) has been added, which allows Cryptol to call functions written in C. See the [manual section](https://galoisinc.github.io/cryptol/RefMan/_build/html/FFI.html) for more information. From 66420237f886bbd0623deb5d05484dfb37f58976 Mon Sep 17 00:00:00 2001 From: Iavor Diatchki Date: Mon, 5 Sep 2022 13:45:55 +0300 Subject: [PATCH 116/125] Remove commented out imports --- src/Cryptol/Parser/ExpandPropGuards.hs | 7 ------- 1 file changed, 7 deletions(-) diff --git a/src/Cryptol/Parser/ExpandPropGuards.hs b/src/Cryptol/Parser/ExpandPropGuards.hs index 90e135651..a859d5230 100644 --- a/src/Cryptol/Parser/ExpandPropGuards.hs +++ b/src/Cryptol/Parser/ExpandPropGuards.hs @@ -18,13 +18,6 @@ -- function. module Cryptol.Parser.ExpandPropGuards where --- import Cryptol.Parser.Position (Range(..), emptyRange, start, at) --- import Cryptol.Parser.Names (namesP) - --- import Cryptol.Utils.Ident (mkIdent) - --- import Cryptol.Utils.RecordMap - import Control.DeepSeq import Cryptol.Parser.AST import Cryptol.Utils.PP From fb3935f41b6ac09d5070b0186881a25afad891e2 Mon Sep 17 00:00:00 2001 From: Iavor Diatchki Date: Tue, 6 Sep 2022 18:56:20 +0300 Subject: [PATCH 117/125] * Introduce a separate type for a property guarded alternative * Annotate each property with a location * Disallow property guards with index declarations (maybe this could be made to work, but be conservative for now) * Require signatures on all members of a recursive group with prop guards --- src/Cryptol/ModuleSystem/Renamer.hs | 12 ++--- src/Cryptol/Parser.y | 27 +++++----- src/Cryptol/Parser/AST.hs | 9 +++- src/Cryptol/Parser/ExpandPropGuards.hs | 20 ++++--- src/Cryptol/Parser/Names.hs | 8 ++- src/Cryptol/Parser/NoPat.hs | 16 ++++-- src/Cryptol/Parser/ParserUtils.hs | 53 ++++++++++-------- src/Cryptol/TypeCheck/Error.hs | 37 ++++++++++++- src/Cryptol/TypeCheck/Infer.hs | 74 +++++++++++++++++++------- src/Cryptol/TypeCheck/Kind.hs | 6 +-- tests/constraint-guards/inits.cry | 17 +++--- tests/ffi/ffi-type-errors.icry.stdout | 5 +- 12 files changed, 198 insertions(+), 86 deletions(-) diff --git a/src/Cryptol/ModuleSystem/Renamer.hs b/src/Cryptol/ModuleSystem/Renamer.hs index a7bf28f3f..9e932149a 100644 --- a/src/Cryptol/ModuleSystem/Renamer.hs +++ b/src/Cryptol/ModuleSystem/Renamer.hs @@ -685,13 +685,11 @@ instance Rename BindDef where rename DPrim = return DPrim rename DForeign = return DForeign rename (DExpr e) = DExpr <$> rename e - rename (DPropGuards cases) = DPropGuards <$> traverse renameCase cases - where - renameCase :: ([Prop PName], Expr PName) -> RenameM ([Prop Name], Expr Name) - renameCase (props, e) = do - props' <- traverse rename props - e' <- rename e - pure (props', e') + rename (DPropGuards cases) = DPropGuards <$> traverse rename cases + +instance Rename PropGuardCase where + rename g = PropGuardCase <$> traverse (rnLocated rename) (pgcProps g) + <*> rename (pgcExpr g) -- NOTE: this only renames types within the pattern. instance Rename Pattern where diff --git a/src/Cryptol/Parser.y b/src/Cryptol/Parser.y index 8cf7a176b..caa5fb164 100644 --- a/src/Cryptol/Parser.y +++ b/src/Cryptol/Parser.y @@ -302,24 +302,14 @@ mbDoc :: { Maybe (Located Text) } : doc { Just $1 } | {- empty -} { Nothing } -propguards_cases :: { [([Prop PName], Expr PName)] } - : propguards_case propguards_cases { $1 ++ $2 } - | propguards_case { $1 } - -propguards_case :: { [([Prop PName], Expr PName)] } - : '|' propguards_quals '=>' expr { [($2, $4)] } - -propguards_quals :: { [Prop PName] } - : type {% fmap thing (mkProp $1) } - decl :: { Decl PName } : vars_comma ':' schema { at (head $1,$3) $ DSignature (reverse $1) $3 } | ipat '=' expr { at ($1,$3) $ DPatBind $1 $3 } | '(' op ')' '=' expr { at ($1,$5) $ DPatBind (PVar $2) $5 } | var apats_indices propguards_cases - { mkIndexedPropGuardsDecl $1 $2 $3 } + {% mkPropGuardsDecl $1 $2 $3 } | var propguards_cases - { mkIndexedConstantPropGuardsDecl $1 $2 } + {% mkConstantPropGuardsDecl $1 $2 } | var apats_indices '=' expr { at ($1,$4) $ mkIndexedDecl $1 $2 $4 } @@ -398,6 +388,19 @@ let_decl :: { Decl PName } | 'infix' NUM ops {% mkFixity NonAssoc $2 (reverse $3) } + + +propguards_cases :: { [PropGuardCase PName] } + : propguards_cases propguards_case { $2 : $1 } + | propguards_case { [$1] } + +propguards_case :: { PropGuardCase PName } + : '|' propguards_quals '=>' expr { PropGuardCase $2 $4 } + +propguards_quals :: { [Located (Prop PName)] } + : type {% mkPropGuards $1 } + + newtype :: { Newtype PName } : 'newtype' qname '=' newtype_body { Newtype $2 [] (thing $4) } diff --git a/src/Cryptol/Parser/AST.hs b/src/Cryptol/Parser/AST.hs index 1036beeb3..95802c62d 100644 --- a/src/Cryptol/Parser/AST.hs +++ b/src/Cryptol/Parser/AST.hs @@ -60,6 +60,7 @@ module Cryptol.Parser.AST , ParameterType(..) , ParameterFun(..) , NestedModule(..) + , PropGuardCase(..) -- * Interactive , ReplInput(..) @@ -281,9 +282,15 @@ type LBindDef = Located (BindDef PName) data BindDef name = DPrim | DForeign | DExpr (Expr name) - | DPropGuards [([Prop name], Expr name)] + | DPropGuards [PropGuardCase name] deriving (Eq, Show, Generic, NFData, Functor) +data PropGuardCase name = PropGuardCase + { pgcProps :: [Located (Prop name)] + , pgcExpr :: Expr name + } + deriving (Eq,Generic,NFData,Functor,Show) + data Pragma = PragmaNote String | PragmaProperty deriving (Eq, Show, Generic, NFData) diff --git a/src/Cryptol/Parser/ExpandPropGuards.hs b/src/Cryptol/Parser/ExpandPropGuards.hs index a859d5230..270b5cfb2 100644 --- a/src/Cryptol/Parser/ExpandPropGuards.hs +++ b/src/Cryptol/Parser/ExpandPropGuards.hs @@ -79,9 +79,11 @@ instance ExpandPropGuards [Bind PName] where case bSignature bind of Just schema -> pure schema Nothing -> Left . NoSignature $ bName bind - let goGuard :: ([Prop PName], Expr PName) -> ExpandPropGuardsM (([Prop PName], Expr PName), Bind PName) - goGuard (props', e) = do - bName' <- newName (bName bind) props' + let goGuard :: + PropGuardCase PName -> + ExpandPropGuardsM (PropGuardCase PName, Bind PName) + goGuard (PropGuardCase props' e) = do + bName' <- newName (bName bind) (thing <$> props') -- call to generated function tParams <- case bSignature bind of Just (Forall tps _ _ _) -> pure tps @@ -91,11 +93,13 @@ instance ExpandPropGuards [Bind PName] where `traverse` tParams let e' = foldl EApp (EAppT (EVar $ thing bName') typeInsts) (patternToExpr <$> bParams bind) pure - ( (props', e'), + ( PropGuardCase props' e', bind { bName = bName', -- include guarded props in signature - bSignature = Just $ Forall params (props <> props') t rng, + bSignature = Just (Forall params + (props <> map thing props') + t rng), -- keeps same location at original bind -- i.e. "on top of" original bind bDef = (bDef bind) {thing = DExpr e} @@ -122,4 +126,8 @@ newName locName props = let txt = identText ident txt' = pack $ show $ pp props in UnQual (mkIdent $ txt <> txt') <$ locName - NewName _ _ -> panic "mkName" ["During expanding prop guards, tried to make new name from NewName case of PName"] + NewName _ _ -> + panic "mkName" + [ "During expanding prop guards" + , "tried to make new name from NewName case of PName" + ] diff --git a/src/Cryptol/Parser/Names.hs b/src/Cryptol/Parser/Names.hs index 886e88521..64fe28b6d 100644 --- a/src/Cryptol/Parser/Names.hs +++ b/src/Cryptol/Parser/Names.hs @@ -67,7 +67,7 @@ namesDef :: Ord name => BindDef name -> Set name namesDef DPrim = Set.empty namesDef DForeign = Set.empty namesDef (DExpr e) = namesE e -namesDef (DPropGuards guards) = Set.unions [ namesE e | (_, e) <- guards ] +namesDef (DPropGuards guards) = Set.unions (map (namesE . pgcExpr) guards) -- | The names used by an expression. @@ -189,7 +189,11 @@ tnamesDef :: Ord name => BindDef name -> Set name tnamesDef DPrim = Set.empty tnamesDef DForeign = Set.empty tnamesDef (DExpr e) = tnamesE e -tnamesDef (DPropGuards guards) = mconcat . fmap (\(_props, e) -> tnamesE e) $ guards +tnamesDef (DPropGuards guards) = Set.unions (map tnamesPropGuardCase guards) + +tnamesPropGuardCase :: Ord name => PropGuardCase name -> Set name +tnamesPropGuardCase c = + Set.unions (tnamesE (pgcExpr c) : map (tnamesC . thing) (pgcProps c)) -- | The type names used by an expression. tnamesE :: Ord name => Expr name -> Set name diff --git a/src/Cryptol/Parser/NoPat.hs b/src/Cryptol/Parser/NoPat.hs index f1b228db0..73cde0320 100644 --- a/src/Cryptol/Parser/NoPat.hs +++ b/src/Cryptol/Parser/NoPat.hs @@ -228,9 +228,19 @@ noMatchB b = do e' <- noPatFun (Just (thing (bName b))) 0 (bParams b) e return b { bParams = [], bDef = DExpr e' <$ bDef b } - DPropGuards guards -> do - guards' <- (\(props, e) -> (,) <$> pure props <*> noPatFun (Just (thing (bName b))) 0 (bParams b) e) `traverse` guards - pure b { bParams = [], bDef = DPropGuards guards' <$ bDef b } + DPropGuards guards -> + do let nm = thing (bName b) + ps = bParams b + gs <- mapM (noPatPropGuardCase nm ps) guards + pure b { bParams = [], bDef = DPropGuards gs <$ bDef b } + +noPatPropGuardCase :: + PName -> + [Pattern PName] -> + PropGuardCase PName -> NoPatM (PropGuardCase PName) +noPatPropGuardCase f xs pc = + do e <- noPatFun (Just f) 0 xs (pgcExpr pc) + pure pc { pgcExpr = e } noMatchD :: Decl PName -> NoPatM [Decl PName] noMatchD decl = diff --git a/src/Cryptol/Parser/ParserUtils.hs b/src/Cryptol/Parser/ParserUtils.hs index 991e2f8d1..6e1c2a111 100644 --- a/src/Cryptol/Parser/ParserUtils.hs +++ b/src/Cryptol/Parser/ParserUtils.hs @@ -27,7 +27,6 @@ import Data.Text(Text) import qualified Data.Text as T import qualified Data.Map as Map import Text.Read(readMaybe) -import Data.Bifunctor(second) import GHC.Generics (Generic) import Control.DeepSeq @@ -611,27 +610,33 @@ mkIndexedDecl f (ps, ixs) e = rhs = mkGenerate (reverse ixs) e -- NOTE: The lists of patterns are reversed! -mkIndexedPropGuardsDecl :: - LPName -> ([Pattern PName], [Pattern PName]) -> [([Prop PName], Expr PName)] -> Decl PName -mkIndexedPropGuardsDecl f (ps, ixs) guards = - DBind Bind { bName = f - , bParams = reverse ps - , bDef = at f $ Located emptyRange (DPropGuards guards') - , bSignature = Nothing - , bPragmas = [] - , bMono = False - , bInfix = False - , bFixity = Nothing - , bDoc = Nothing - , bExport = Public - } - where - guards' = second (mkGenerate (reverse ixs)) <$> guards - -mkIndexedConstantPropGuardsDecl :: - LPName -> [([Prop PName], Expr PName)] -> Decl PName -mkIndexedConstantPropGuardsDecl f guards = - mkIndexedPropGuardsDecl f ([], []) guards +mkPropGuardsDecl :: + LPName -> + ([Pattern PName], [Pattern PName]) -> + [PropGuardCase PName] -> + ParseM (Decl PName) +mkPropGuardsDecl f (ps, ixs) guards = + do unless (null ixs) $ + errorMessage (srcRange f) + ["Indexed sequence definitions may not use constraint guards"] + let gs = reverse guards + pure $ + DBind Bind { bName = f + , bParams = reverse ps + , bDef = Located (srcRange f) (DPropGuards gs) + , bSignature = Nothing + , bPragmas = [] + , bMono = False + , bInfix = False + , bFixity = Nothing + , bDoc = Nothing + , bExport = Public + } + +mkConstantPropGuardsDecl :: + LPName -> [PropGuardCase PName] -> ParseM (Decl PName) +mkConstantPropGuardsDecl f guards = + mkPropGuardsDecl f ([],[]) guards -- NOTE: The lists of patterns are reversed! mkIndexedExpr :: ([Pattern PName], [Pattern PName]) -> Expr PName -> Expr PName @@ -792,6 +797,10 @@ distrLoc :: Located [a] -> [Located a] distrLoc x = [ Located { srcRange = r, thing = a } | a <- thing x ] where r = srcRange x +mkPropGuards :: Type PName -> ParseM [Located (Prop PName)] +mkPropGuards ty = + do lp <- mkProp ty + pure [ lp { thing = p } | p <- thing lp ] mkProp :: Type PName -> ParseM (Located [Prop PName]) mkProp ty = diff --git a/src/Cryptol/TypeCheck/Error.hs b/src/Cryptol/TypeCheck/Error.hs index e87a682f5..bc1b68e83 100644 --- a/src/Cryptol/TypeCheck/Error.hs +++ b/src/Cryptol/TypeCheck/Error.hs @@ -152,6 +152,13 @@ data Error = KindMismatch (Maybe TypeSource) Kind Kind | UnsupportedFFIType TypeSource FFITypeError -- ^ Type is not supported for FFI + | NestedConstraintGuard Ident + -- ^ Constraint guards may only apper at the top-level + + | DeclarationRequiresSignatureCtrGrd Ident + -- ^ All declarataions in a recursive group involving + -- constraint guards should have signatures + | TemporaryError Doc -- ^ This is for errors that don't fit other cateogories. -- We should not use it much, and is generally to be used @@ -212,6 +219,9 @@ errorImportance err = UnsupportedFFIType {} -> 7 -- less than UnexpectedTypeWildCard + NestedConstraintGuard {} -> 10 + DeclarationRequiresSignatureCtrGrd {} -> 9 + instance TVars Warning where apSubst su warn = @@ -265,6 +275,9 @@ instance TVars Error where UnsupportedFFIKind {} -> err UnsupportedFFIType src e -> UnsupportedFFIType src !$ apSubst su e + NestedConstraintGuard {} -> err + DeclarationRequiresSignatureCtrGrd {} -> err + TemporaryError {} -> err @@ -303,6 +316,9 @@ instance FVS Error where UnsupportedFFIKind {} -> Set.empty UnsupportedFFIType _ t -> fvs t + NestedConstraintGuard {} -> Set.empty + DeclarationRequiresSignatureCtrGrd {} -> Set.empty + TemporaryError {} -> Set.empty instance PP Warning where @@ -344,8 +360,13 @@ instance PP (WithNames Error) where UnexpectedTypeWildCard -> addTVarsDescsAfter names err $ - nested "Wild card types are not allowed in this context" - "(e.g., they cannot be used in type synonyms or FFI declarations)." + nested "Wild card types are not allowed in this context" $ + vcat [ "They cannot be used in:" + , bullets [ "type synonyms" + , "FFI declarations" + , "declarations with constraint guards" + ] + ] KindMismatch mbsrc k1 k2 -> addTVarsDescsAfter names err $ @@ -491,6 +512,18 @@ instance PP (WithNames Error) where [ ppWithNames names t , "When checking" <+> pp src ] + NestedConstraintGuard d -> + vcat [ "Local declaration" <+> backticks (pp d) + <+> "may not use constraint guards." + , "Constraint guards may only appear at the top-level of a module." + ] + + DeclarationRequiresSignatureCtrGrd d -> + vcat [ "The declaration of" <+> backticks (pp d) <+> + "requires a full type signature," + , "because it is part of a recursive group with constraint guards." + ] + TemporaryError doc -> doc where bullets xs = vcat [ "•" <+> d | d <- xs ] diff --git a/src/Cryptol/TypeCheck/Infer.hs b/src/Cryptol/TypeCheck/Infer.hs index 707e2ce61..e5dfe5398 100644 --- a/src/Cryptol/TypeCheck/Infer.hs +++ b/src/Cryptol/TypeCheck/Infer.hs @@ -34,7 +34,7 @@ import Data.Text(Text) import qualified Data.Text as Text -import Cryptol.ModuleSystem.Name (lookupPrimDecl,nameLoc) +import Cryptol.ModuleSystem.Name (lookupPrimDecl,nameLoc, nameIdent) import Cryptol.Parser.Position import qualified Cryptol.Parser.AST as P import qualified Cryptol.ModuleSystem.Exports as P @@ -740,15 +740,18 @@ inferCArm armNum (m : ms) = newGoals CtComprehension [ pFin n' ] return (m1 : ms', Map.insertWith (\_ old -> old) x t ds, tMul n n') --- | @inferBinds isTopLevel isRec binds@ performs inference for a --- strongly-connected component of 'P.Bind's. --- If any of the members of the recursive group are already marked --- as monomorphic, then we don't do generalization. --- If @isTopLevel@ is true, --- any bindings without type signatures will be generalized. If it is --- false, and the mono-binds flag is enabled, no bindings without type --- signatures will be generalized, but bindings with signatures will --- be unaffected. +{- | @inferBinds isTopLevel isRec binds@ performs inference for a +strongly-connected component of 'P.Bind's. +If any of the members of the recursive group are already marked +as monomorphic, then we don't do generalization. +If @isTopLevel@ is true, +any bindings without type signatures will be generalized. If it is +false, and the mono-binds flag is enabled, no bindings without type +signatures will be generalized, but bindings with signatures will +be unaffected. + +-} + inferBinds :: Bool -> Bool -> [P.Bind Name] -> InferM [Decl] inferBinds isTopLevel isRec binds = do -- when mono-binds is enabled, and we're not checking top-level @@ -796,6 +799,8 @@ inferBinds isTopLevel isRec binds = genCs <- generalize bs1 cs return (done,genCs) + checkNumericConstraintGuardsOK isTopLevel sigs noSigs + rec let exprMap = Map.fromList (map monoUse genBs) (doneBs, genBs) <- check exprMap @@ -823,6 +828,37 @@ inferBinds isTopLevel isRec binds = withQs = foldl' appP withTys qs +{- +Here we also check that: + * Numeric constraint guards appear only at the top level + * All definitions in a recursive groups with numberic constraint guards + have signatures + +The reason is to avoid interference between local constraints coming +from the guards and type inference. It might be possible to +relex these requirements, but this requires some more careful thought on +the interaction between the two, and the effects on pricniple types. +-} +checkNumericConstraintGuardsOK :: + Bool -> [P.Bind Name] -> [P.Bind Name] -> InferM () +checkNumericConstraintGuardsOK isTopLevel haveSig noSig = + do unless isTopLevel + (mapM_ (mkErr NestedConstraintGuard) withGuards) + unless (null withGuards) + (mapM_ (mkErr DeclarationRequiresSignatureCtrGrd) noSig) + where + mkErr f b = + do let nm = P.bName b + inRange (srcRange nm) (recordError (f (nameIdent (thing nm)))) + + withGuards = filter hasConstraintGuards haveSig + -- When desugaring constraint guards we check that they have signatures, + -- so no need to look at noSig + + hasConstraintGuards b = + case thing (P.bDef b) of + P.DPropGuards {} -> True + _ -> False @@ -1057,11 +1093,8 @@ checkSigB b (Forall as asmps0 t0, validSchema) = t1 <- applySubst t0 cases1 <- mapM (checkPropGuardCase name asmps1) cases0 - checkExhaustive name asmps1 [ props | (props, _) <- cases1 ] >>= \case - True -> - -- proved exhaustive - pure () - False -> + exh <- checkExhaustive name asmps1 [ props | (props, _) <- cases1 ] + unless exh $ -- didn't prove exhaustive i.e. none of the guarding props -- necessarily hold recordWarning (NonExhaustivePropGuards name) @@ -1086,7 +1119,8 @@ checkSigB b (Forall as asmps0 t0, validSchema) = where - checkBindDefExpr :: [Prop] -> [Prop] -> P.Expr Name -> InferM (Type, [Prop], Expr) + checkBindDefExpr :: + [Prop] -> [Prop] -> P.Expr Name -> InferM (Type, [Prop], Expr) checkBindDefExpr asmpsSign asmps1 e0 = do (e1,cs0) <- collectGoals $ do @@ -1128,8 +1162,12 @@ checkSigB b (Forall as asmps0 t0, validSchema) = -- Checking each guarded case is the same as checking a DExpr, except -- that the guarding assumptions are added first. - checkPropGuardCase :: Name -> [Prop] -> ([P.Prop Name], P.Expr Name) -> InferM ([Prop], Expr) - checkPropGuardCase name asmps1 (guards0, e0) = do + checkPropGuardCase :: + Name -> + [Prop] -> + P.PropGuardCase Name -> + InferM ([Prop], Expr) + checkPropGuardCase name asmps1 (P.PropGuardCase guards0 e0) = do mb_rng <- case P.bSignature b of Just (P.Forall _ _ _ mb_rng) -> pure mb_rng _ -> panic "checkSigB" diff --git a/src/Cryptol/TypeCheck/Kind.hs b/src/Cryptol/TypeCheck/Kind.hs index 45a926012..01e96763c 100644 --- a/src/Cryptol/TypeCheck/Kind.hs +++ b/src/Cryptol/TypeCheck/Kind.hs @@ -66,8 +66,8 @@ checkSchema withWild (P.Forall xs ps t mb) = Just r -> inRange r -- | Validate a parsed proposition that appears in the guard of a PropGuard. --- Returns the validated proposition as well as any inferred goal propisitions. -checkPropGuard :: Maybe Range -> P.Prop Name -> InferM (Type, [Goal]) +-- Returns the validated proposition as well as any inferred goal propositions. +checkPropGuard :: Maybe Range -> Located (P.Prop Name) -> InferM (Prop, [Goal]) checkPropGuard mb_rng prop = do ((_, t), goals) <- collectGoals $ @@ -75,7 +75,7 @@ checkPropGuard mb_rng prop = do -- not really doing anything here, since we don't want to introduce any new -- type vars into scope withTParams NoWildCards schemaParam [] $ - checkProp prop + checkProp (thing prop) pure (t, goals) where rng = maybe id inRange mb_rng diff --git a/tests/constraint-guards/inits.cry b/tests/constraint-guards/inits.cry index c0ca485c6..d9966bb74 100644 --- a/tests/constraint-guards/inits.cry +++ b/tests/constraint-guards/inits.cry @@ -8,19 +8,18 @@ inits : {n, a} (fin n) => [n]a -> [(n * (n+1))/2]a inits xs | n == 0 => [] - | n > 0 => go xs' x [] + | n > 0 => initsLoop xs' x [] where (x : [1]_) # xs' = xs - - go : {l, m} (fin l, fin m, l + m == n, m >= 1) => - [l]a -> [m]a -> + +initsLoop : {n, l, m, a} (fin l, fin m, l + m == n, m >= 1) => + [l]a -> [m]a -> [((m-1) * ((m-1)+1))/2]a -> [(n * (n+1))/2]a - go ys zs acc - | l == 0 => acc # zs - | l > 0 => go ys' (zs # y) (acc # zs) - where - (y : [1]_) # ys' = ys +initsLoop ys zs acc + | l == 0 => acc # zs + | l > 0 => initsLoop ys' (zs # y) (acc # zs) + where (y : [1]_) # ys' = ys property inits_correct = diff --git a/tests/ffi/ffi-type-errors.icry.stdout b/tests/ffi/ffi-type-errors.icry.stdout index 871e683dc..e8fad2cb2 100644 --- a/tests/ffi/ffi-type-errors.icry.stdout +++ b/tests/ffi/ffi-type-errors.icry.stdout @@ -101,4 +101,7 @@ Loading module Main at ffi-type-errors.cry:11:9--11:34 [error] at ffi-type-errors.cry:12:48--12:49: Wild card types are not allowed in this context - (e.g., they cannot be used in type synonyms or FFI declarations). + They cannot be used in: + • type synonyms + • FFI declarations + • declarations with constraint guards From d211e521db09cae1c8bb3b20c17aae4be15267f4 Mon Sep 17 00:00:00 2001 From: Iavor Diatchki Date: Tue, 6 Sep 2022 19:27:08 +0300 Subject: [PATCH 118/125] Remove "currently" from error message --- src/Cryptol/Parser/ExpandPropGuards.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/Cryptol/Parser/ExpandPropGuards.hs b/src/Cryptol/Parser/ExpandPropGuards.hs index 270b5cfb2..95a9a916b 100644 --- a/src/Cryptol/Parser/ExpandPropGuards.hs +++ b/src/Cryptol/Parser/ExpandPropGuards.hs @@ -43,7 +43,7 @@ instance PP Error where ppPrec _ err = case err of NoSignature x -> text "At" <+> pp (srcRange x) <.> colon - <+> text "Declarations using constraint guards currently require an explicit type signature." + <+> text "Declarations using constraint guards require an explicit type signature." -- | Instances instance ExpandPropGuards (Program PName) where From 4f82466a7fa77654d017a67b6b9ed1a58259024c Mon Sep 17 00:00:00 2001 From: Iavor Diatchki Date: Mon, 12 Sep 2022 11:35:34 +0300 Subject: [PATCH 119/125] Simplify type checking of constraint guards --- src/Cryptol/Parser/AST.hs | 1 + src/Cryptol/TypeCheck/Infer.hs | 81 ++++++++++++---------- src/Cryptol/TypeCheck/Kind.hs | 33 +++++---- tests/constraint-guards/insert.icry.stdout | 2 - 4 files changed, 65 insertions(+), 52 deletions(-) diff --git a/src/Cryptol/Parser/AST.hs b/src/Cryptol/Parser/AST.hs index 95802c62d..f53da61a9 100644 --- a/src/Cryptol/Parser/AST.hs +++ b/src/Cryptol/Parser/AST.hs @@ -78,6 +78,7 @@ module Cryptol.Parser.AST , emptyFunDesc , PrefixOp(..) , prefixFixity + , asEApps -- * Positions , Located(..) diff --git a/src/Cryptol/TypeCheck/Infer.hs b/src/Cryptol/TypeCheck/Infer.hs index e5dfe5398..5a7c03a09 100644 --- a/src/Cryptol/TypeCheck/Infer.hs +++ b/src/Cryptol/TypeCheck/Infer.hs @@ -48,7 +48,7 @@ import Cryptol.TypeCheck.Kind(checkType,checkSchema,checkTySyn, checkParameterType, checkPrimType, checkParameterConstraints, - checkPropGuard) + checkPropGuards) import Cryptol.TypeCheck.Instantiate import Cryptol.TypeCheck.Subst (listSubst,apSubst,(@@),isEmptySubst) import Cryptol.TypeCheck.Unify(rootPath) @@ -70,9 +70,9 @@ import Data.Traversable(forM) import Data.Function(on) import Control.Monad(zipWithM, unless, foldM, forM_, mplus, zipWithM, unless, foldM, forM_, mplus, when) -import Data.Bifunctor (Bifunctor(second)) - +-- import Debug.Trace +-- import Cryptol.TypeCheck.PP inferModule :: P.Module Name -> InferM Module inferModule m = @@ -1091,9 +1091,9 @@ checkSigB b (Forall as asmps0 t0, validSchema) = withTParams as $ do asmps1 <- applySubstPreds asmps0 t1 <- applySubst t0 - cases1 <- mapM (checkPropGuardCase name asmps1) cases0 + cases1 <- mapM checkPropGuardCase cases0 - exh <- checkExhaustive name asmps1 [ props | (props, _) <- cases1 ] + exh <- checkExhaustive name asmps1 (map fst cases1) unless exh $ -- didn't prove exhaustive i.e. none of the guarding props -- necessarily hold @@ -1160,36 +1160,6 @@ checkSigB b (Forall as asmps0 t0, validSchema) = pure (t, asmps, e2) - -- Checking each guarded case is the same as checking a DExpr, except - -- that the guarding assumptions are added first. - checkPropGuardCase :: - Name -> - [Prop] -> - P.PropGuardCase Name -> - InferM ([Prop], Expr) - checkPropGuardCase name asmps1 (P.PropGuardCase guards0 e0) = do - mb_rng <- case P.bSignature b of - Just (P.Forall _ _ _ mb_rng) -> pure mb_rng - _ -> panic "checkSigB" - [ "Used constraint guards without a signature, dumbwit, at " - , show . pp $ P.bName b ] - -- check guards - (guards1, goals) <- - second concat . unzip <$> - checkPropGuard mb_rng `traverse` guards0 - -- try to prove all goals - su <- proveImplication True (Just name) as (asmps1 <> guards1) goals - extendSubst su - -- Preprends the goals to the constraints, because these must be - -- checked first before the rest of the constraints (during - -- evaluation) to ensure well-definedness, since some - -- constraints make use of partial functions e.g. `a - b` - -- requires `a >= b`. - let guards2 = (goal <$> goals) <> concatMap pSplitAnd (apSubst su guards1) - (_t, guards3, e1) <- checkBindDefExpr asmps1 guards2 e0 - e2 <- applySubst e1 - pure (guards3, e2) - {- Given a DPropGuards of the form @@ -1218,6 +1188,14 @@ checkSigB b (Forall as asmps0 t0, validSchema) = -} checkExhaustive :: Name -> [Prop] -> [[Prop]] -> InferM Bool +{- + checkExhaustive name asmps guards + | trace (unlines [ "CHECK EXHAUSTIVE:" + , show (vcat (map pp asmps)) + , "---" + , show (vcat [ "GUARD: " <+> hsep (map pp ps) | ps <- guards ] ) + ]) False = undefined +-} checkExhaustive name asmps guards = -- sort in decreasing order of number of conjuncts let c props1 props2 = @@ -1255,8 +1233,39 @@ checkSigB b (Forall as asmps0 t0, validSchema) = canProve :: [Prop] -> [Goal] -> InferM Bool canProve asmps' goals = isRight <$> tryProveImplication (Just name) as asmps' goals - +{- | This function does not validate anything---it just translates into +the type-checkd syntax. The actual validation of the guard will happen +when the (automatically generated) function corresponding to the guard is +checked, assuming 'ExpandpropGuards' did its job correctly. + +-} +checkPropGuardCase :: P.PropGuardCase Name -> InferM ([Prop],Expr) +checkPropGuardCase (P.PropGuardCase guards e0) = + do ps <- checkPropGuards guards + tys <- mapM (`checkType` Nothing) ts + let rhsTs = foldl ETApp (getV eV) tys + rhsPs = foldl (\e _p -> EProofApp e) rhsTs ps + rhs = foldl EApp rhsPs (map getV es) + pure (ps,rhs) + + where + (e1,es) = P.asEApps e0 + (eV,ts) = case e1 of + P.EAppT ex1 tis -> (ex1, map getT tis) + _ -> (e1, []) + + getV ex = + case ex of + P.EVar x -> EVar x + _ -> bad "Expression is not a variable." + + getT ti = + case ti of + P.PosInst t -> t + P.NamedInst {} -> bad "Unexpeceted NamedInst" + + bad msg = panic "checkPropGuardCase" [msg] -------------------------------------------------------------------------------- -------------------------------------------------------------------------------- diff --git a/src/Cryptol/TypeCheck/Kind.hs b/src/Cryptol/TypeCheck/Kind.hs index 01e96763c..9e6014b6e 100644 --- a/src/Cryptol/TypeCheck/Kind.hs +++ b/src/Cryptol/TypeCheck/Kind.hs @@ -7,6 +7,7 @@ -- Portability : portable {-# LANGUAGE RecursiveDo #-} +{-# LANGUAGE BlockArguments #-} {-# LANGUAGE Safe #-} -- See Note [-Wincomplete-uni-patterns and irrefutable patterns] in Cryptol.TypeCheck.TypePat {-# OPTIONS_GHC -Wno-incomplete-uni-patterns #-} @@ -19,7 +20,7 @@ module Cryptol.TypeCheck.Kind , checkPropSyn , checkParameterType , checkParameterConstraints - , checkPropGuard + , checkPropGuards ) where import qualified Cryptol.Parser.AST as P @@ -65,20 +66,24 @@ checkSchema withWild (P.Forall xs ps t mb) = Nothing -> id Just r -> inRange r --- | Validate a parsed proposition that appears in the guard of a PropGuard. --- Returns the validated proposition as well as any inferred goal propositions. -checkPropGuard :: Maybe Range -> Located (P.Prop Name) -> InferM (Prop, [Goal]) -checkPropGuard mb_rng prop = do - ((_, t), goals) <- - collectGoals $ - rng $ - -- not really doing anything here, since we don't want to introduce any new - -- type vars into scope - withTParams NoWildCards schemaParam [] $ - checkProp (thing prop) - pure (t, goals) +{- | Validate parsed propositions that appear in the guard of a PropGuard. + + * Note that we don't validate the well-formedness constraints here---instead, + they'd be validated when the signature for the auto generated + function corresponding guard is checked. + + * We also check that there are no wild-cards in the constraints. +-} +checkPropGuards :: [Located (P.Prop Name)] -> InferM [Prop] +checkPropGuards props = + do (newPs,_gs) <- collectGoals (mapM check props) + pure newPs where - rng = maybe id inRange mb_rng + check lp = + inRange (srcRange lp) + do (_,ps) <- withTParams NoWildCards schemaParam [] (checkProp (thing lp)) + pure ps + -- | Check a module parameter declarations. Nothing much to check, -- we just translate from one syntax to another. diff --git a/tests/constraint-guards/insert.icry.stdout b/tests/constraint-guards/insert.icry.stdout index 736b24325..d80fdf123 100644 --- a/tests/constraint-guards/insert.icry.stdout +++ b/tests/constraint-guards/insert.icry.stdout @@ -1,8 +1,6 @@ Loading module Cryptol Loading module Cryptol Loading module Main -[warning] at insert.cry:3:1--3:7: - Could not prove that the constraint guards used in defining Main::insert were exhaustive. Using exhaustive testing. Testing... Passed 1 tests. Q.E.D. From 16e7d4f751327af7c61d2e43ecf13511bd38b38c Mon Sep 17 00:00:00 2001 From: Iavor Diatchki Date: Mon, 12 Sep 2022 14:28:16 +0300 Subject: [PATCH 120/125] Fixes to exhaustivness checking --- src/Cryptol/TypeCheck/Infer.hs | 146 ++++++++++++++++----------------- src/Cryptol/TypeCheck/Solve.hs | 12 +-- src/Cryptol/TypeCheck/Type.hs | 94 +++++++++------------ 3 files changed, 116 insertions(+), 136 deletions(-) diff --git a/src/Cryptol/TypeCheck/Infer.hs b/src/Cryptol/TypeCheck/Infer.hs index 5a7c03a09..8e0336b75 100644 --- a/src/Cryptol/TypeCheck/Infer.hs +++ b/src/Cryptol/TypeCheck/Infer.hs @@ -15,6 +15,7 @@ {-# LANGUAGE OverloadedStrings #-} {-# LANGUAGE BlockArguments #-} {-# LANGUAGE Safe #-} +-- {-# LANGUAGE Trustworthy #-} -- See Note [-Wincomplete-uni-patterns and irrefutable patterns] in Cryptol.TypeCheck.TypePat {-# OPTIONS_GHC -Wno-incomplete-uni-patterns #-} {-# LANGUAGE LambdaCase #-} @@ -63,7 +64,7 @@ import qualified Data.Map as Map import Data.Map (Map) import qualified Data.Set as Set import Data.List(foldl', sortBy, groupBy, partition) -import Data.Either(partitionEithers, isRight) +import Data.Either(partitionEithers) import Data.Maybe(isJust, fromMaybe, mapMaybe) import Data.Ratio(numerator,denominator) import Data.Traversable(forM) @@ -1093,7 +1094,7 @@ checkSigB b (Forall as asmps0 t0, validSchema) = t1 <- applySubst t0 cases1 <- mapM checkPropGuardCase cases0 - exh <- checkExhaustive name asmps1 (map fst cases1) + exh <- checkExhaustive (P.bName b) as asmps1 (map fst cases1) unless exh $ -- didn't prove exhaustive i.e. none of the guarding props -- necessarily hold @@ -1160,79 +1161,76 @@ checkSigB b (Forall as asmps0 t0, validSchema) = pure (t, asmps, e2) - {- - Given a DPropGuards of the form - - @ - f : {...} A - f | (B1, B2) => ... - | (C1, C2, C2) => ... - @ - - we check that it is exhaustive by trying to prove the following - implications: - - @ - A /\ ~B1 => C1 /\ C2 /\ C3 - A /\ ~B2 => C1 /\ C2 /\ C3 - @ - - The implications were derive by the following general algorithm: - - Find that @(C1, C2, C3)@ is the guard that has the most conjuncts, so we - will keep it on the RHS of the generated implications in order to minimize - the number of implications we need to check. - - Negate @(B1, B2)@ which yields @(~B1) \/ (~B2)@. This is a disjunction, so - we need to consider a branch for each disjunct --- one branch gets the - assumption @~B1@ and another branch gets the assumption @~B2@. Each - branch's implications need to be proven independently. - - -} - checkExhaustive :: Name -> [Prop] -> [[Prop]] -> InferM Bool -{- - checkExhaustive name asmps guards - | trace (unlines [ "CHECK EXHAUSTIVE:" - , show (vcat (map pp asmps)) - , "---" - , show (vcat [ "GUARD: " <+> hsep (map pp ps) | ps <- guards ] ) - ]) False = undefined + + +{- | +Given a DPropGuards of the form + +@ +f : {...} A +f | (B1, B2) => ... + | (C1, C2, C2) => ... +@ + +we check that it is exhaustive by trying to prove the following +implications: + +@ + A /\ ~B1 => C1 /\ C2 /\ C3 + A /\ ~B2 => C1 /\ C2 /\ C3 +@ + +The implications were derive by the following general algorithm: +- Find that @(C1, C2, C3)@ is the guard that has the most conjuncts, so we + will keep it on the RHS of the generated implications in order to minimize + the number of implications we need to check. +- Negate @(B1, B2)@ which yields @(~B1) \/ (~B2)@. This is a disjunction, so + we need to consider a branch for each disjunct --- one branch gets the + assumption @~B1@ and another branch gets the assumption @~B2@. Each + branch's implications need to be proven independently. + -} - checkExhaustive name asmps guards = - -- sort in decreasing order of number of conjuncts - let c props1 props2 = - -- reversed, so that sorting is in decreasing order - compare (length props2) (length props1) - in - case sortBy c guards of - [] -> pure False -- empty PropGuards - -- singleton - [props] -> canProve asmps (toGoal <$> props) - (props : guards') -> - -- Keep `props` on the RHS of implication. Negate each of `guards` and - -- move to RHS. For each negation of a conjunction, a disjunction is - -- yielded, which multiplies the number of implications that we need - -- to check. So that's why we chose the guard with the largest - -- conjunction to stay on RHS. - let - goals = toGoal <$> props - impls = go asmps guards' - where - go asmps' [] = pure $ canProve asmps' goals - go asmps' (guard : guards'') = do - neg_guard <- pNegNumeric guard - go (asmps' <> neg_guard) guards'' - in - and <$> sequence impls - where - toGoal :: Prop -> Goal - toGoal prop = - Goal - { goalSource = CtPropGuardsExhaustive name - , goalRange = srcRange $ P.bName b - , goal = prop } - - canProve :: [Prop] -> [Goal] -> InferM Bool - canProve asmps' goals = isRight <$> - tryProveImplication (Just name) as asmps' goals +checkExhaustive :: Located Name -> [TParam] -> [Prop] -> [[Prop]] -> InferM Bool +checkExhaustive name as asmps guards = + case sortBy cmpByLonger guards of + [] -> pure False -- XXX: we should check the asmps are unsatisfiable + longest : rest -> doGoals (theAlts rest) (map toGoal longest) + + where + cmpByLonger props1 props2 = compare (length props2) (length props1) + -- reversed, so that longets is first + + theAlts :: [[Prop]] -> [[Prop]] + theAlts = map concat . sequence . map chooseNeg + + -- Choose one of the things to negate + chooseNeg ps = + case ps of + [] -> [] + p : qs -> (pNegNumeric p ++ qs) : [ p : alts | alts <- chooseNeg qs ] + + + + -- Try to validate all cases + doGoals todo gs = + case todo of + [] -> pure True + alt : more -> + do ok <- canProve (asmps ++ alt) gs + if ok then doGoals more gs + else pure False + + toGoal :: Prop -> Goal + toGoal prop = + Goal + { goalSource = CtPropGuardsExhaustive (thing name) + , goalRange = srcRange name + , goal = prop + } + + canProve :: [Prop] -> [Goal] -> InferM Bool + canProve asmps' goals = + tryProveImplication (Just (thing name)) as asmps' goals {- | This function does not validate anything---it just translates into the type-checkd syntax. The actual validation of the guard will happen diff --git a/src/Cryptol/TypeCheck/Solve.hs b/src/Cryptol/TypeCheck/Solve.hs index 6bd092b93..fb9987f0c 100644 --- a/src/Cryptol/TypeCheck/Solve.hs +++ b/src/Cryptol/TypeCheck/Solve.hs @@ -294,8 +294,7 @@ proveImplication dedupErrs lnam as ps gs = -- proved, then returns `Left (m_err :: InferM ())`, which records all errors -- invoked during proving. tryProveImplication :: - Maybe Name -> [TParam] -> [Prop] -> [Goal] -> - InferM (Either (InferM ()) (InferM Subst)) + Maybe Name -> [TParam] -> [Prop] -> [Goal] -> InferM Bool tryProveImplication lnam as ps gs = do evars <- varsWithAsmps solver <- getSolver @@ -303,14 +302,11 @@ tryProveImplication lnam as ps gs = extraAs <- (map mtpParam . Map.elems) <$> getParamTypes extra <- map thing <$> getParamConstraints - (mbErr,su) <- io (proveImplicationIO solver False lnam evars + (mbErr,_su) <- io (proveImplicationIO solver False lnam evars (extraAs ++ as) (extra ++ ps) gs) case mbErr of - Left errs -> pure . Left $ do - mapM_ recordError errs - Right ws -> pure . Right $ do - mapM_ recordWarning ws - return su + Left {} -> pure False + Right {} -> pure True proveImplicationIO :: Solver -> Bool -- ^ Whether to remove duplicate goals in errors diff --git a/src/Cryptol/TypeCheck/Type.hs b/src/Cryptol/TypeCheck/Type.hs index 80cd207f0..c053aa5b4 100644 --- a/src/Cryptol/TypeCheck/Type.hs +++ b/src/Cryptol/TypeCheck/Type.hs @@ -849,61 +849,47 @@ pPrime ty = -- Negation -------------------------------------------------------------------- -{-| -`pNegNumeric` negates a simple prop over numeric type vars. Results in `Just _` -if the input is simple and can be negated, otherwise `Nothing`. The input list -is understood as a conjunction. - -The only simple props are: @(x == y), (x /= y), (x >= y), (fin x), True@, and -any type constraint synonym applications where the type constraint synonym is -defined in terms of only simple props. - -The negation of a conjunction of props should result in a disjunction via -DeMorgan's laws. e.g. `(x == y, x == z) => (x /= y) or (x /= z)`. However, -Cryptol currently doesn't support disjunctions in type constraints, so instead -`pNegNumeric` results in a list of lists of props that is understood to be a -disjunction of conjunctions. --} -{-| -Examples: -@ - [(x == y)] => Just [[(x /= y)]] - [(fin x)] => Just [[(x == inf)]] - [(x <= y)] => Just [[(x >= y), (x /= y)]] - [(x == y), (x == z)] => Just [[(x /= y)], [(x /= z)]] -@ --} -pNegNumeric :: [Prop] -> [[Prop]] -pNegNumeric props = do - prop <- props - maybe mempty pure (go prop) +{-| `pNegNumeric` negates a simple (i.e., not And, not prime, etc) prop +over numeric type vars. The result is a conjunction of properties. -} +pNegNumeric :: Prop -> [Prop] +pNegNumeric prop = + case tNoUser prop of + TCon tcon tys -> + case tcon of + PC pc -> + case pc of + + -- not (x == y) <=> x /= y + PEqual -> [TCon (PC PNeq) tys] + + -- not (x /= y) <=> x == y + PNeq -> [TCon (PC PEqual) tys] + + -- not (x >= y) <=> x /= y and y >= x + PGeq -> [TCon (PC PNeq) tys, TCon (PC PGeq) (reverse tys)] + + -- not (fin x) <=> x == Inf + PFin | [ty] <- tys -> [ty =#= tInf] + | otherwise -> bad + + -- not True <=> 0 == 1 + PTrue -> [TCon (PC PEqual) [tZero, tOne]] + + _ -> bad + + TError _ki -> [prop] -- propogates `TError` + + TC _tc -> bad + TF _tf -> bad + + _ -> bad + where - go :: Prop -> Maybe [Prop] - go prop = case prop of - TCon tcon tys -> case tcon of - PC pc -> case pc of - -- not x == y <=> x /= y - PEqual -> pure [TCon (PC PNeq) tys] - -- not x /= y <=> x == y - PNeq -> pure [TCon (PC PEqual) tys] - -- not x >= y <=> x /= y and y >= x - PGeq -> pure [TCon (PC PNeq) tys, TCon (PC PGeq) (reverse tys)] - -- not fin x <=> x == Inf - PFin | [ty] <- tys -> pure [TCon (PC PEqual) [ty, tInf]] - | otherwise -> panicInvalid - -- not True <=> 0 == 1 - PTrue -> pure [TCon (PC PEqual) [tZero, tOne]] - -- not simple enough - _ -> mempty - TC _tc -> panicInvalid - TF _tf -> panicInvalid - TError _ki -> Just [prop] -- propogates `TError` - TUser _na _tys ty -> go ty - _ -> panicInvalid - where - panicInvalid = panic "pNegNumeric" - [ "This type shouldn't be a valid type constraint: " ++ - "`" ++ pretty prop ++ "`"] + bad = panic "pNegNumeric" + [ "Unexpeceted numeric constraint:" + , pretty prop + ] + -------------------------------------------------------------------------------- From 3dc6c014f9dc1d62fb4ef0c93692473501f8d86c Mon Sep 17 00:00:00 2001 From: Iavor Diatchki Date: Mon, 12 Sep 2022 14:57:44 +0300 Subject: [PATCH 121/125] Clean up translation, and support for nested modules --- src/Cryptol/ModuleSystem/Base.hs | 5 +- src/Cryptol/Parser/ExpandPropGuards.hs | 129 ++++++++++---------- tests/constraint-guards/nestMod.cry | 9 ++ tests/constraint-guards/nestMod.icry | 3 + tests/constraint-guards/nestMod.icry.stdout | 9 ++ 5 files changed, 86 insertions(+), 69 deletions(-) create mode 100644 tests/constraint-guards/nestMod.cry create mode 100644 tests/constraint-guards/nestMod.icry create mode 100644 tests/constraint-guards/nestMod.icry.stdout diff --git a/src/Cryptol/ModuleSystem/Base.hs b/src/Cryptol/ModuleSystem/Base.hs index 560898c5d..febe9959a 100644 --- a/src/Cryptol/ModuleSystem/Base.hs +++ b/src/Cryptol/ModuleSystem/Base.hs @@ -62,8 +62,7 @@ import qualified Cryptol.Parser.Unlit as P import Cryptol.Parser.AST as P import Cryptol.Parser.NoPat (RemovePatterns(removePatterns)) import qualified Cryptol.Parser.ExpandPropGuards as ExpandPropGuards - ( ExpandPropGuards(expandPropGuards) - , runExpandPropGuardsM ) + ( expandPropGuards, runExpandPropGuardsM ) import Cryptol.Parser.NoInclude (removeIncludesModule) import Cryptol.Parser.Position (HasLoc(..), Range, emptyRange) import qualified Cryptol.TypeCheck as T @@ -124,7 +123,7 @@ noPat a = do -- ExpandPropGuards ------------------------------------------------------------ -- | Run the expandPropGuards pass. -expandPropGuards :: ExpandPropGuards.ExpandPropGuards a => a -> ModuleM a +expandPropGuards :: Module PName -> ModuleM (Module PName) expandPropGuards a = case ExpandPropGuards.runExpandPropGuardsM $ ExpandPropGuards.expandPropGuards a of Left err -> expandPropGuardsError err diff --git a/src/Cryptol/Parser/ExpandPropGuards.hs b/src/Cryptol/Parser/ExpandPropGuards.hs index 95a9a916b..4e8c9f54b 100644 --- a/src/Cryptol/Parser/ExpandPropGuards.hs +++ b/src/Cryptol/Parser/ExpandPropGuards.hs @@ -31,10 +31,6 @@ type ExpandPropGuardsM a = Either Error a runExpandPropGuardsM :: ExpandPropGuardsM a -> Either Error a runExpandPropGuardsM m = m --- | Class -class ExpandPropGuards a where - expandPropGuards :: a -> ExpandPropGuardsM a - -- | Error data Error = NoSignature (Located PName) deriving (Show, Generic, NFData) @@ -45,75 +41,76 @@ instance PP Error where text "At" <+> pp (srcRange x) <.> colon <+> text "Declarations using constraint guards require an explicit type signature." --- | Instances -instance ExpandPropGuards (Program PName) where - expandPropGuards (Program decls) = Program <$> expandPropGuards decls +expandPropGuards :: ModuleG m PName -> ExpandPropGuardsM (ModuleG m PName) +expandPropGuards m = + do mDecls' <- mapM expandTopDecl (mDecls m) + pure m {mDecls = concat mDecls' } + +expandTopDecl :: TopDecl PName -> ExpandPropGuardsM [TopDecl PName] +expandTopDecl topDecl = + case topDecl of + Decl topLevelDecl -> + do ds <- expandDecl (tlValue topLevelDecl) + pure [ Decl topLevelDecl { tlValue = d } | d <- ds ] -instance ExpandPropGuards (Module PName) where - expandPropGuards m = do - mDecls' <- expandPropGuards (mDecls m) - pure m {mDecls = mDecls'} + DModule tl | NestedModule m <- tlValue tl -> + do m1 <- expandPropGuards m + pure [DModule tl { tlValue = NestedModule m1 }] -instance ExpandPropGuards [TopDecl PName] where - expandPropGuards topDecls = concat <$> traverse goTopDecl topDecls - where - goTopDecl :: TopDecl PName -> ExpandPropGuardsM [TopDecl PName] - goTopDecl (Decl topLevelDecl) = fmap mu <$> expandPropGuards [tlValue topLevelDecl] - where - mu decl = Decl $ topLevelDecl {tlValue = decl} - goTopDecl topDecl = pure [topDecl] + _ -> pure [topDecl] -instance ExpandPropGuards [Decl PName] where - expandPropGuards decls = concat <$> traverse goDBind decls - where - goDBind (DBind bind) = fmap DBind <$> expandPropGuards [bind] - goDBind decl = pure [decl] +expandDecl :: Decl PName -> ExpandPropGuardsM [Decl PName] +expandDecl decl = + case decl of + DBind bind -> do bs <- expandBind bind + pure (map DBind bs) + _ -> pure [decl] -instance ExpandPropGuards [Bind PName] where - expandPropGuards binds = concat <$> traverse goBind binds - where - goBind :: Bind PName -> Either Error [Bind PName] - goBind bind = case thing $ bDef bind of - DPropGuards guards -> do - Forall params props t rng <- - case bSignature bind of - Just schema -> pure schema - Nothing -> Left . NoSignature $ bName bind - let goGuard :: - PropGuardCase PName -> - ExpandPropGuardsM (PropGuardCase PName, Bind PName) - goGuard (PropGuardCase props' e) = do - bName' <- newName (bName bind) (thing <$> props') - -- call to generated function - tParams <- case bSignature bind of - Just (Forall tps _ _ _) -> pure tps - Nothing -> Left $ NoSignature (bName bind) - typeInsts <- - (\(TParam n _ _) -> Right . PosInst $ TUser n []) - `traverse` tParams - let e' = foldl EApp (EAppT (EVar $ thing bName') typeInsts) (patternToExpr <$> bParams bind) - pure - ( PropGuardCase props' e', - bind - { bName = bName', - -- include guarded props in signature - bSignature = Just (Forall params - (props <> map thing props') - t rng), - -- keeps same location at original bind - -- i.e. "on top of" original bind - bDef = (bDef bind) {thing = DExpr e} - } - ) - (guards', binds') <- unzip <$> mapM goGuard guards - pure $ - bind {bDef = DPropGuards guards' <$ bDef bind} : - binds' - _ -> pure [bind] +expandBind :: Bind PName -> ExpandPropGuardsM [Bind PName] +expandBind bind = + case thing (bDef bind) of + DPropGuards guards -> do + Forall params props t rng <- + case bSignature bind of + Just schema -> pure schema + Nothing -> Left . NoSignature $ bName bind + let goGuard :: + PropGuardCase PName -> + ExpandPropGuardsM (PropGuardCase PName, Bind PName) + goGuard (PropGuardCase props' e) = do + bName' <- newName (bName bind) (thing <$> props') + -- call to generated function + tParams <- case bSignature bind of + Just (Forall tps _ _ _) -> pure tps + Nothing -> Left $ NoSignature (bName bind) + typeInsts <- + (\(TParam n _ _) -> Right . PosInst $ TUser n []) + `traverse` tParams + let e' = foldl EApp (EAppT (EVar $ thing bName') typeInsts) (patternToExpr <$> bParams bind) + pure + ( PropGuardCase props' e', + bind + { bName = bName', + -- include guarded props in signature + bSignature = Just (Forall params + (props <> map thing props') + t rng), + -- keeps same location at original bind + -- i.e. "on top of" original bind + bDef = (bDef bind) {thing = DExpr e} + } + ) + (guards', binds') <- unzip <$> mapM goGuard guards + pure $ + bind {bDef = DPropGuards guards' <$ bDef bind} : + binds' + _ -> pure [bind] patternToExpr :: Pattern PName -> Expr PName patternToExpr (PVar locName) = EVar (thing locName) -patternToExpr _ = panic "patternToExpr" ["Unimplemented: patternToExpr of anything other than PVar"] +patternToExpr _ = + panic "patternToExpr" + ["Unimplemented: patternToExpr of anything other than PVar"] newName :: Located PName -> [Prop PName] -> ExpandPropGuardsM (Located PName) newName locName props = diff --git a/tests/constraint-guards/nestMod.cry b/tests/constraint-guards/nestMod.cry new file mode 100644 index 000000000..8385acecc --- /dev/null +++ b/tests/constraint-guards/nestMod.cry @@ -0,0 +1,9 @@ + +submodule A where + + f : {n} Bool + f | n == 0 => True + | n > 0 => False + +x : {n} Bool +x = A::f`{n} diff --git a/tests/constraint-guards/nestMod.icry b/tests/constraint-guards/nestMod.icry new file mode 100644 index 000000000..23b3017e8 --- /dev/null +++ b/tests/constraint-guards/nestMod.icry @@ -0,0 +1,3 @@ +:load nestMod.cry +x`{0} +x`{1} diff --git a/tests/constraint-guards/nestMod.icry.stdout b/tests/constraint-guards/nestMod.icry.stdout new file mode 100644 index 000000000..27a449bc0 --- /dev/null +++ b/tests/constraint-guards/nestMod.icry.stdout @@ -0,0 +1,9 @@ +Loading module Cryptol +Loading module Cryptol +Loading module Main +[warning] at nestMod.cry:8:5--8:13: + Assuming n to have a numeric type +[warning] at nestMod.cry:4:7--4:15: + Assuming n to have a numeric type +True +False From 4ef8000c0eb834e8cd913480d9f54abab05ce072 Mon Sep 17 00:00:00 2001 From: Iavor Diatchki Date: Mon, 12 Sep 2022 14:58:18 +0300 Subject: [PATCH 122/125] Another test --- tests/constraint-guards/noNested.cry | 8 ++++++++ tests/constraint-guards/noNested.icry | 1 + tests/constraint-guards/noNested.icry.stdout | 9 +++++++++ 3 files changed, 18 insertions(+) create mode 100644 tests/constraint-guards/noNested.cry create mode 100644 tests/constraint-guards/noNested.icry create mode 100644 tests/constraint-guards/noNested.icry.stdout diff --git a/tests/constraint-guards/noNested.cry b/tests/constraint-guards/noNested.cry new file mode 100644 index 000000000..0f6f63cb4 --- /dev/null +++ b/tests/constraint-guards/noNested.cry @@ -0,0 +1,8 @@ + +f : {n} _ +f x = () + where + nested : Bit + nested + | n == 0 => True + | () => False diff --git a/tests/constraint-guards/noNested.icry b/tests/constraint-guards/noNested.icry new file mode 100644 index 000000000..5cd886556 --- /dev/null +++ b/tests/constraint-guards/noNested.icry @@ -0,0 +1 @@ +:load noNested.cry diff --git a/tests/constraint-guards/noNested.icry.stdout b/tests/constraint-guards/noNested.icry.stdout new file mode 100644 index 000000000..963f3a63e --- /dev/null +++ b/tests/constraint-guards/noNested.icry.stdout @@ -0,0 +1,9 @@ +Loading module Cryptol +Loading module Cryptol +Loading module Main +[warning] at noNested.cry:2:5--2:10: + Assuming n to have a numeric type + +[error] at noNested.cry:6:3--6:9: + Local declaration `nested` may not use constraint guards. + Constraint guards may only appear at the top-level of a module. From 44685f09b0cbe3a478b1c0400c700565fb217d2d Mon Sep 17 00:00:00 2001 From: Iavor Diatchki Date: Mon, 12 Sep 2022 18:42:10 +0300 Subject: [PATCH 123/125] Fix test --- tests/regression/tc-errors.icry.stdout | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/tests/regression/tc-errors.icry.stdout b/tests/regression/tc-errors.icry.stdout index a31ed9ac6..834216dc4 100644 --- a/tests/regression/tc-errors.icry.stdout +++ b/tests/regression/tc-errors.icry.stdout @@ -77,7 +77,10 @@ Loading module Main [error] at tc-errors-4.cry:1:10--1:11: Wild card types are not allowed in this context - (e.g., they cannot be used in type synonyms or FFI declarations). + They cannot be used in: + • type synonyms + • FFI declarations + • declarations with constraint guards Loading module Cryptol Loading module Main From 61ad2527ed8e6cd53153b2239c68fe3e90db37f3 Mon Sep 17 00:00:00 2001 From: Iavor Diatchki Date: Tue, 13 Sep 2022 13:44:22 +0300 Subject: [PATCH 124/125] Fix pretty printer for propguards --- src/Cryptol/TypeCheck/AST.hs | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/src/Cryptol/TypeCheck/AST.hs b/src/Cryptol/TypeCheck/AST.hs index 962a013ac..c373bc1d1 100644 --- a/src/Cryptol/TypeCheck/AST.hs +++ b/src/Cryptol/TypeCheck/AST.hs @@ -269,12 +269,12 @@ instance PP (WithNames Expr) where [ ppW e , hang "where" 2 (vcat (map ppW ds)) ] - + EPropGuards guards _ -> parens (text "propguards" <+> vsep (ppGuard <$> guards)) where ppGuard (props, e) = indent 1 - $ pipe <+> commaSep (pp <$> props) - <+> text "=>" <+> pp e + $ pipe <+> commaSep (ppW <$> props) + <+> text "=>" <+> ppW e where ppW x = ppWithNames nm x From 2be867e19d28a807b8ac40b7dc42ff1cf3dfe9d0 Mon Sep 17 00:00:00 2001 From: Iavor Diatchki Date: Tue, 13 Sep 2022 13:53:40 +0300 Subject: [PATCH 125/125] Report an error if we find unsupported constraints --- src/Cryptol/TypeCheck/Error.hs | 15 +++++++++++++++ src/Cryptol/TypeCheck/Kind.hs | 9 +++++++-- tests/constraint-guards/noPrim.cry | 4 ++++ tests/constraint-guards/noPrim.icry | 1 + tests/constraint-guards/noPrim.icry.stdout | 9 +++++++++ 5 files changed, 36 insertions(+), 2 deletions(-) create mode 100644 tests/constraint-guards/noPrim.cry create mode 100644 tests/constraint-guards/noPrim.icry create mode 100644 tests/constraint-guards/noPrim.icry.stdout diff --git a/src/Cryptol/TypeCheck/Error.hs b/src/Cryptol/TypeCheck/Error.hs index bc1b68e83..17fc95699 100644 --- a/src/Cryptol/TypeCheck/Error.hs +++ b/src/Cryptol/TypeCheck/Error.hs @@ -159,6 +159,9 @@ data Error = KindMismatch (Maybe TypeSource) Kind Kind -- ^ All declarataions in a recursive group involving -- constraint guards should have signatures + | InvalidConstraintGuard Prop + -- ^ The given constraint may not be used as a constraint guard + | TemporaryError Doc -- ^ This is for errors that don't fit other cateogories. -- We should not use it much, and is generally to be used @@ -221,6 +224,7 @@ errorImportance err = NestedConstraintGuard {} -> 10 DeclarationRequiresSignatureCtrGrd {} -> 9 + InvalidConstraintGuard {} -> 5 instance TVars Warning where @@ -277,6 +281,7 @@ instance TVars Error where NestedConstraintGuard {} -> err DeclarationRequiresSignatureCtrGrd {} -> err + InvalidConstraintGuard p -> InvalidConstraintGuard $! apSubst su p TemporaryError {} -> err @@ -318,6 +323,7 @@ instance FVS Error where NestedConstraintGuard {} -> Set.empty DeclarationRequiresSignatureCtrGrd {} -> Set.empty + InvalidConstraintGuard p -> fvs p TemporaryError {} -> Set.empty @@ -524,6 +530,15 @@ instance PP (WithNames Error) where , "because it is part of a recursive group with constraint guards." ] + InvalidConstraintGuard p -> + let d = case tNoUser p of + TCon tc _ -> pp tc + _ -> ppWithNames names p + in + vcat [ backticks d <+> "may not be used in a constraint guard." + , "Constraint guards support only numeric comparisons and `fin`." + ] + TemporaryError doc -> doc where bullets xs = vcat [ "•" <+> d | d <- xs ] diff --git a/src/Cryptol/TypeCheck/Kind.hs b/src/Cryptol/TypeCheck/Kind.hs index 9e6014b6e..3125d22d8 100644 --- a/src/Cryptol/TypeCheck/Kind.hs +++ b/src/Cryptol/TypeCheck/Kind.hs @@ -81,10 +81,15 @@ checkPropGuards props = where check lp = inRange (srcRange lp) - do (_,ps) <- withTParams NoWildCards schemaParam [] (checkProp (thing lp)) + do let p = thing lp + (_,ps) <- withTParams NoWildCards schemaParam [] (checkProp p) + case tNoUser ps of + TCon (PC x) _ | x `elem` [PEqual,PNeq,PGeq,PFin,PTrue] -> pure () + _ -> recordError (InvalidConstraintGuard ps) pure ps + -- | Check a module parameter declarations. Nothing much to check, -- we just translate from one syntax to another. checkParameterType :: P.ParameterType Name -> Maybe Text -> InferM ModTParam @@ -417,7 +422,7 @@ doCheckType ty k = -- | Validate a parsed proposition. checkProp :: P.Prop Name -- ^ Proposition that need to be checked - -> KindM Type -- ^ Checked representation + -> KindM Prop -- ^ Checked representation checkProp (P.CType t) = doCheckType t (Just KProp) diff --git a/tests/constraint-guards/noPrim.cry b/tests/constraint-guards/noPrim.cry new file mode 100644 index 000000000..e0ea28d30 --- /dev/null +++ b/tests/constraint-guards/noPrim.cry @@ -0,0 +1,4 @@ + +f : {a,n} [n]a -> () +f _ | prime n => () + diff --git a/tests/constraint-guards/noPrim.icry b/tests/constraint-guards/noPrim.icry new file mode 100644 index 000000000..ae626b3b9 --- /dev/null +++ b/tests/constraint-guards/noPrim.icry @@ -0,0 +1 @@ +:load noPrim.cry diff --git a/tests/constraint-guards/noPrim.icry.stdout b/tests/constraint-guards/noPrim.icry.stdout new file mode 100644 index 000000000..72a8e800e --- /dev/null +++ b/tests/constraint-guards/noPrim.icry.stdout @@ -0,0 +1,9 @@ +Loading module Cryptol +Loading module Cryptol +Loading module Main +[warning] at noPrim.cry:3:1--3:2: + Could not prove that the constraint guards used in defining Main::f were exhaustive. + +[error] at noPrim.cry:3:7--3:14: + `prime` may not be used in a constraint guard. + Constraint guards support only numeric comparisons and `fin`.