diff --git a/changelog.d/20260707_160000_unisay_nary_appn.md b/changelog.d/20260707_160000_unisay_nary_appn.md new file mode 100644 index 00000000..09d522c4 --- /dev/null +++ b/changelog.d/20260707_160000_unisay_nary_appn.md @@ -0,0 +1,11 @@ +### Changed + +- The IR's unary application node `App` is now the singleton case of an n-ary + `AppN ann f (args)`, where the argument list is one Lua call passing every + argument. `App` remains as a bidirectional pattern synonym, so the existing + unary rewrite rules are unchanged and currying stays expressed by nesting. + The Lua backend emits a single n-ary call for a multi-argument `AppN`, and a + new linter invariant (`WellApplied`) rejects applying a literal lambda to + more arguments than it binds. This is the representational groundwork for + lifting the uncurried `*.Uncurried` wrappers to direct calls; on its own it + leaves generated code unchanged (#179). diff --git a/lib/Language/PureScript/Backend/IR/FlattenDeepBinds.hs b/lib/Language/PureScript/Backend/IR/FlattenDeepBinds.hs index f22293b5..71911804 100644 --- a/lib/Language/PureScript/Backend/IR/FlattenDeepBinds.hs +++ b/lib/Language/PureScript/Backend/IR/FlattenDeepBinds.hs @@ -156,6 +156,7 @@ import Language.PureScript.Backend.IR.Types , refLocal , rewriteExpTopDownM , substituteCopyM + , pattern App ) -- | 'flattenDeepBindsM' with a private supply, for standalone use. diff --git a/lib/Language/PureScript/Backend/IR/Linter.hs b/lib/Language/PureScript/Backend/IR/Linter.hs index 6d959d38..f2d2a031 100644 --- a/lib/Language/PureScript/Backend/IR/Linter.hs +++ b/lib/Language/PureScript/Backend/IR/Linter.hs @@ -15,6 +15,7 @@ module Language.PureScript.Backend.IR.Linter , Site (..) , lintWellScoped , lintUniqueBinders + , lintWellApplied , unboundLocals ) where @@ -53,6 +54,13 @@ data Violation (see 'discardName'). -} RefToDiscard Site + | {- | A literal lambda applied to more than one argument in a single + call ('WellApplied'). A lambda compiles to a one-parameter Lua + function (Note [n-ary application]), so every argument past the first + would be silently dropped. The 'Natural' is the offending call's + argument count. + -} + OverApplied Site Natural deriving stock (Eq, Show) -- | The top-level entry of the module a violation was found in. @@ -83,6 +91,18 @@ lintUniqueBinders = overSites \site e → (DuplicateBinder site <$> duplicateBinders e) <> [RefToDiscard site | hasRefToDiscard e] +{- | Check the @WellApplied@ invariant: no literal lambda is applied to +more than one argument in a single call. A lambda compiles to a +one-parameter Lua function, so a multi-argument 'AppN' onto a lambda head +drops every argument past the first (Note [n-ary application]). A +well-formed multi-argument call always has a non-lambda head — a reference +to an n-ary foreign function. An empty result means the module holds the +invariant. +-} +lintWellApplied ∷ UberModule → [Violation] +lintWellApplied = overSites \site e → + OverApplied site <$> overApplications e + {- | Run a per-site check over every top-level binding, foreign binding, and export of the module. -} @@ -170,3 +190,14 @@ hasRefToDiscard e = [ nm == discardName | Ref _ (Local nm) ← toListOf (cosmosOf subexpressions) e ] + +{- | The argument count of every 'AppN' that applies a literal lambda to +more than one argument. Each such node is a miscompile: the lambda is a +one-parameter Lua function, so its surplus arguments are dropped. +-} +overApplications ∷ Exp → [Natural] +overApplications e = + [ fromIntegral (length args) + | AppN _ (Abs {}) args ← toListOf (cosmosOf subexpressions) e + , length args > (1 ∷ Int) + ] diff --git a/lib/Language/PureScript/Backend/IR/MagicDo.hs b/lib/Language/PureScript/Backend/IR/MagicDo.hs index 331853d3..77da8c2e 100644 --- a/lib/Language/PureScript/Backend/IR/MagicDo.hs +++ b/lib/Language/PureScript/Backend/IR/MagicDo.hs @@ -70,6 +70,7 @@ import Language.PureScript.Backend.IR.Types , noAnn , rewriteExpTopDownM , substituteMoveM + , pattern App ) -- | Flatten Effect/ST @do@ blocks in every binding and export of the module. diff --git a/lib/Language/PureScript/Backend/IR/Optimizer.hs b/lib/Language/PureScript/Backend/IR/Optimizer.hs index 323d2756..bed33b4f 100644 --- a/lib/Language/PureScript/Backend/IR/Optimizer.hs +++ b/lib/Language/PureScript/Backend/IR/Optimizer.hs @@ -47,6 +47,7 @@ import Language.PureScript.Backend.IR.Types , substituteCopyM , substituteMoveM , thenRewrite + , pattern App ) import Language.PureScript.Backend.IR.Uniquify (uniquifyNames) diff --git a/lib/Language/PureScript/Backend/IR/Pass.hs b/lib/Language/PureScript/Backend/IR/Pass.hs index cc649af9..e1142e1c 100644 --- a/lib/Language/PureScript/Backend/IR/Pass.hs +++ b/lib/Language/PureScript/Backend/IR/Pass.hs @@ -54,6 +54,7 @@ import Language.PureScript.Backend.IR.Linker (UberModule) import Language.PureScript.Backend.IR.Linter ( Violation , lintUniqueBinders + , lintWellApplied , lintWellScoped ) import Language.PureScript.Backend.IR.Supply (SupplyM) @@ -66,12 +67,15 @@ import Language.PureScript.Backend.IR.Types (WasRewritten (..)) * 'WellScoped' — every local reference resolves to an enclosing binder; * 'UniqueBinders' — within one top-level site no local binder name is - bound twice (the discard binder @_@ exempt). + bound twice (the discard binder @_@ exempt); + * 'WellApplied' — no literal lambda is applied to more than one argument + in a single call (Note [n-ary application]). Ensured by any pass that + introduces multi-argument 'AppN' nodes. 'UniqueBinders' is the global-uniqueness condition (GUC): a local reference resolves to its binder unambiguously by name. -} -data Invariant = WellScoped | UniqueBinders +data Invariant = WellScoped | UniqueBinders | WellApplied deriving stock (Eq, Ord, Show) data Pass = Pass @@ -216,6 +220,7 @@ runStepsChecked steps uber0 = runExceptT (foldlM (flip runStep) uber0 steps) ( \case WellScoped → lintWellScoped u UniqueBinders → lintUniqueBinders u + WellApplied → lintWellApplied u ) (Set.toList invariants) diff --git a/lib/Language/PureScript/Backend/IR/Types.hs b/lib/Language/PureScript/Backend/IR/Types.hs index 3b8fdebf..90a65cc2 100644 --- a/lib/Language/PureScript/Backend/IR/Types.hs +++ b/lib/Language/PureScript/Backend/IR/Types.hs @@ -99,13 +99,40 @@ data RawExp ann | ObjectProp ann (RawExp ann) PropName | ObjectUpdate ann (RawExp ann) (NonEmpty (PropName, RawExp ann)) | Abs ann (Parameter ann) (RawExp ann) - | App ann (RawExp ann) (RawExp ann) + | AppN ann (RawExp ann) (NonEmpty (RawExp ann)) | Ref ann (Qualified Name) | Let ann (NonEmpty (Grouping (ann, Name, RawExp ann))) (RawExp ann) | IfThenElse ann (RawExp ann) (RawExp ann) (RawExp ann) | Exception ann Text | ForeignImport ann ModuleName FilePath [(ann, Name)] +{- Note [n-ary application] +~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ +'AppN f (a₁ :| [a₂, …, aₙ])' is a single Lua call @f(a₁, a₂, …, aₙ)@. The +argument list is not a flattened application spine: 'AppN f [a, b]' (one +call, @f(a, b)@) and 'AppN (AppN f [a]) [b]' (two calls, @f(a)(b)@) denote +different programs, because Lua silently drops surplus arguments and fills +missing ones with nil. Currying therefore stays expressed by nesting, +exactly as CoreFn produces it. + +Translation and every existing rewrite rule build and match the unary +singleton through the 'App' pattern synonym below, so they are oblivious +to genuinely n-ary calls. A multi-argument node is introduced only by a +pass that can prove the callee consumes every argument (lifting the +uncurried @*.Uncurried@ wrappers to direct calls). The linter's +'Language.PureScript.Backend.IR.Linter.OverApplied' invariant rejects the +one ill-formed shape such a pass must never emit: a literal lambda applied +to more arguments than it binds. +-} + +{- | The unary application @f a@ — the singleton 'AppN'. As a constructor +it builds the one-argument call; as a pattern it matches exactly the +one-argument calls, leaving genuinely n-ary nodes to fall through to a +later alternative. Every unary rule keeps using it unchanged. +-} +pattern App ∷ ann → RawExp ann → RawExp ann → RawExp ann +pattern App ann f a = AppN ann f (a :| []) + {- Note [Sequential scoping of Let bindings] ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ A local variable is referenced by name ('Ref _ (Local name)') and @@ -202,7 +229,7 @@ getAnn = \case ObjectProp ann _ _ → ann ObjectUpdate ann _ _ → ann Abs ann _ _ → ann - App ann _ _ → ann + AppN ann _ _ → ann Ref ann _ → ann Let ann _ _ → ann IfThenElse ann _ _ _ → ann @@ -232,7 +259,7 @@ setAnn ann = \case ObjectProp _ e prop → ObjectProp ann e prop ObjectUpdate _ e patches → ObjectUpdate ann e patches Abs _ param body → Abs ann param body - App _ f arg → App ann f arg + AppN _ f args → AppN ann f args Ref _ qname → Ref ann qname Let _ binds body → Let ann binds body IfThenElse _ cond th el → IfThenElse ann cond th el @@ -311,6 +338,9 @@ lets = Let noAnn application ∷ Exp → Exp → Exp application = App noAnn +applicationN ∷ Exp → NonEmpty Exp → Exp +applicationN = AppN noAnn + paramNamed ∷ Name → Parameter Ann paramNamed = ParamNamed noAnn @@ -417,8 +447,8 @@ subexpressions go = \case ObjectProp ann <$> go a <*> pure prp ObjectUpdate ann a ps → ObjectUpdate ann <$> go a <*> traverse (traverse go) ps - App ann a b → - App ann <$> go a <*> go b + AppN ann f args → + AppN ann <$> go f <*> traverse go args Abs ann arg a → Abs ann arg <$> go a Let ann bs body → @@ -619,8 +649,11 @@ alphaEq = go 0 Map.empty Map.empty (Let annL bindsL bodyL, Let annR bindsR bodyR) → annL == annR && goLet lvl scopeL scopeR (toList bindsL) (toList bindsR) bodyL bodyR - (App annL fL aL, App annR fR aR) → - annL == annR && go lvl scopeL scopeR fL fR && go lvl scopeL scopeR aL aR + (AppN annL fL argsL, AppN annR fR argsR) → + annL == annR + && length argsL == length argsR + && go lvl scopeL scopeR fL fR + && and (zipWith (go lvl scopeL scopeR) (toList argsL) (toList argsR)) (LiteralArray annL asL, LiteralArray annR asR) → annL == annR && length asL == length asR diff --git a/lib/Language/PureScript/Backend/Lua.hs b/lib/Language/PureScript/Backend/Lua.hs index 1ad6b4b4..f8de5b76 100644 --- a/lib/Language/PureScript/Backend/Lua.hs +++ b/lib/Language/PureScript/Backend/Lua.hs @@ -222,14 +222,15 @@ fromIR foreigns topLevelNames modname ir = case ir of pure . Right $ case body of Left chunk → Lua.functionDef luaParams chunk Right e → Lua.functionDef luaParams [Lua.return e] - IR.App _ann expr arg → do - e ← goExp expr - Right . Lua.functionCall e <$> case arg of + IR.AppN _ann fn args → do + e ← goExp fn + Right . Lua.functionCall e <$> case args of -- See Note [Nullary functions and Prim.undefined]. PS sometimes inserts - -- a synthetic unused argument "Prim.undefined", which is elided here. - IR.Ref _ann (IR.Imported (IR.ModuleName "Prim") (IR.Name "undefined")) → + -- a synthetic unused argument "Prim.undefined", which is elided here so + -- a nullary function is emitted as f() rather than f(nil). + IR.Ref _ann (IR.Imported (IR.ModuleName "Prim") (IR.Name "undefined")) :| [] → pure [] - _ → (: []) <$> goExp arg + _ → traverse goExp (toList args) IR.Ref _ann qualifiedName → case qualifiedName of IR.Local name diff --git a/test/Language/PureScript/Backend/IR/FlattenDeepBinds/Spec.hs b/test/Language/PureScript/Backend/IR/FlattenDeepBinds/Spec.hs index c9f863f8..1a570a09 100644 --- a/test/Language/PureScript/Backend/IR/FlattenDeepBinds/Spec.hs +++ b/test/Language/PureScript/Backend/IR/FlattenDeepBinds/Spec.hs @@ -29,6 +29,7 @@ import Language.PureScript.Backend.IR.Types , refImported , refLocal , subexpressions + , pattern App ) import Test.Hspec (Spec, describe, it, shouldBe, shouldSatisfy) import Test.Hspec.Hedgehog.Extended (prop) diff --git a/test/Language/PureScript/Backend/IR/Linter/Spec.hs b/test/Language/PureScript/Backend/IR/Linter/Spec.hs index 20a9e88d..bb964dc5 100644 --- a/test/Language/PureScript/Backend/IR/Linter/Spec.hs +++ b/test/Language/PureScript/Backend/IR/Linter/Spec.hs @@ -7,6 +7,7 @@ import Language.PureScript.Backend.IR.Linter ( Site (..) , Violation (..) , lintUniqueBinders + , lintWellApplied , lintWellScoped , unboundLocals ) @@ -21,6 +22,7 @@ import Language.PureScript.Backend.IR.Types , Grouping (..) , abstraction , application + , applicationN , lets , literalInt , noAnn @@ -139,3 +141,42 @@ spec = describe "IR Linter" do (application (refLocal discardName) (refLocal discardName)) ) `shouldBe` [RefToDiscard (InBinding itQName)] + + describe "WellApplied" do + let x = Name "x" + lam = abstraction (paramNamed x) (refLocal x) + a = literalInt 1 + b = literalInt 2 + c = literalInt 3 + + it "accepts a single-argument application of a lambda" do + lintWellApplied (inBinding (application lam a)) `shouldBe` [] + + it "accepts a multi-argument call with a non-lambda head" do + lintWellApplied + (inBinding (applicationN (refLocal (Name "f")) (a :| [b, c]))) + `shouldBe` [] + + it "flags a lambda applied to more than one argument in one call" do + lintWellApplied (inBinding (applicationN lam (a :| [b]))) + `shouldBe` [OverApplied (InBinding itQName) 2] + + it "flags a curried lambda applied to several arguments in one call" do + -- \x → \y → x compiles to nested one-parameter Lua functions, so a + -- single call passing two arguments to the outer one drops the + -- second: currying must stay expressed by nesting, not a flat list. + let y = Name "y" + curried = + abstraction + (paramNamed x) + (abstraction (paramNamed y) (refLocal x)) + lintWellApplied (inBinding (applicationN curried (a :| [b]))) + `shouldBe` [OverApplied (InBinding itQName) 2] + + it "descends into call arguments to find nested over-applications" do + -- A well-formed outer call whose second argument is itself an + -- over-application: every argument must be visited. + let nested = applicationN lam (a :| [b]) + outer = applicationN (refLocal (Name "g")) (a :| [nested]) + lintWellApplied (inBinding outer) + `shouldBe` [OverApplied (InBinding itQName) 2] diff --git a/test/Language/PureScript/Backend/IR/Types/Spec.hs b/test/Language/PureScript/Backend/IR/Types/Spec.hs index c228dfac..540f3bd0 100644 --- a/test/Language/PureScript/Backend/IR/Types/Spec.hs +++ b/test/Language/PureScript/Backend/IR/Types/Spec.hs @@ -19,6 +19,7 @@ import Language.PureScript.Backend.IR.Types , abstraction , alphaEq , application + , applicationN , countFreeRef , countFreeRefs , eq @@ -132,6 +133,22 @@ spec = describe "Types" do test "distinguishes free references by name" do alphaEq (refLocal x) (refLocal y) === False + -- A flat argument list is one Lua call, not an application spine, so + -- alphaEq must compare arity and pair arguments up positionally. + test "distinguishes n-ary calls by argument count" do + let f = refLocal (Name "f") + alphaEq + (applicationN f (refLocal x :| [refLocal y])) + (application f (refLocal x)) + === False + + test "identifies n-ary calls with matching head and arguments" do + let f = refLocal (Name "f") + alphaEq + (applicationN f (refLocal x :| [refLocal y])) + (applicationN f (refLocal x :| [refLocal y])) + === True + -- See Note [Sequential scoping of Let bindings]: a Standalone RHS -- does not see its own binder, so both references below are free -- occurrences of the same enclosing x. diff --git a/test/Language/PureScript/Backend/Lua/Spec.hs b/test/Language/PureScript/Backend/Lua/Spec.hs index 121c6af3..2fd0fc3b 100644 --- a/test/Language/PureScript/Backend/Lua/Spec.hs +++ b/test/Language/PureScript/Backend/Lua/Spec.hs @@ -33,6 +33,12 @@ spec = describe "Lua.fromUberModule" do rendered ← compileExportedExpr (ctorExpr IR.SumType) rendered `shouldSatisfy` Text.isInfixOf "[\"$ctor\"]" + it "emits one n-ary Lua call for a multi-argument AppN" do + rendered ← compileExportedExpr naryCall + -- A single call passing every argument, not a curried f(a)(b)(c) spine. + rendered `shouldSatisfy` Text.isInfixOf "f(a, b, c)" + rendered `shouldSatisfy` (not . Text.isInfixOf "f(a)(b)(c)") + compileExportedExpr ∷ IR.Exp → IO Text compileExportedExpr expr = do foreignPath ← Tagged <$> getCurrentDir @@ -91,6 +97,16 @@ absWithIfBody = (IR.LiteralInt IR.noAnn 0) ) +-- @f(a, b, c)@: one call, three arguments, head is a plain reference. +naryCall ∷ IR.Exp +naryCall = + IR.AppN + IR.noAnn + (localRef "f") + (localRef "a" :| [localRef "b", localRef "c"]) + where + localRef = IR.Ref IR.noAnn . IR.Local . IR.Name + ctorExpr ∷ IR.AlgebraicType → IR.Exp ctorExpr algebraicTy = IR.ctor diff --git a/test/ps/output/Golden.Annotations.M2/golden.ir b/test/ps/output/Golden.Annotations.M2/golden.ir index b982ab48..68e45fd3 100644 --- a/test/ps/output/Golden.Annotations.M2/golden.ir +++ b/test/ps/output/Golden.Annotations.M2/golden.ir @@ -35,25 +35,25 @@ UberModule ) ) ), - ( Name "inlineIntoMe2", App Nothing + ( Name "inlineIntoMe2", AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Golden.Annotations.M1" ) ( Name "foreign" ) ) ) ( PropName "dontInlineClosure" ) ) - ( App Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Golden.Annotations.M1" ) ( Name "foreign" ) ) ) ( PropName "inlineMeLambda" ) ) - ( App Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Golden.Annotations.M1" ) ( Name "foreign" ) ) ) ( PropName "inlineMeLambda" ) ) - ( LiteralInt Nothing 17 ) - ) + ( LiteralInt Nothing 17 :| [] ) :| [] + ) :| [] ) ) ] diff --git a/test/ps/output/Golden.ArrayOfUnits.Test/golden.ir b/test/ps/output/Golden.ArrayOfUnits.Test/golden.ir index 606dcb6d..b6480c7d 100644 --- a/test/ps/output/Golden.ArrayOfUnits.Test/golden.ir +++ b/test/ps/output/Golden.ArrayOfUnits.Test/golden.ir @@ -91,45 +91,45 @@ UberModule ( ParamNamed Nothing ( Name "dictMonoid" ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "f$884" ) ) - ( App Nothing - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Foldable" ) ( Name "foldr" ) ) ) ( Ref Nothing - ( Imported ( ModuleName "Data.Foldable" ) ( Name "foldableArray" ) ) + ( Imported ( ModuleName "Data.Foldable" ) ( Name "foldableArray" ) ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x$885" ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "acc$886" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp Nothing - ( App Nothing + ( AppN Nothing ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "dictMonoid" ) ) ) ( PropName "Semigroup0" ) ) ( Ref Nothing - ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) + ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ) ( PropName "append" ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Local ( Name "f$884" ) ) ) - ( Ref Nothing ( Local ( Name "x$885" ) ) ) + ( Ref Nothing ( Local ( Name "x$885" ) ) :| [] ) :| [] ) ) - ( Ref Nothing ( Local ( Name "acc$886" ) ) ) + ( Ref Nothing ( Local ( Name "acc$886" ) ) :| [] ) ) - ) + ) :| [] ) ) ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "dictMonoid" ) ) ) - ( PropName "mempty" ) + ( PropName "mempty" ) :| [] ) ) ) @@ -160,9 +160,9 @@ UberModule ( PropName "bindE" ) ), ( PropName "Apply0", Abs Nothing ( ParamUnused Nothing ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "Lazy_applyEffect" ) ) ) - ( LiteralInt Nothing 0 ) + ( LiteralInt Nothing 0 :| [] ) ) ) ] @@ -176,19 +176,19 @@ UberModule ( PropName "pureE" ) ), ( PropName "Apply0", Abs Nothing ( ParamUnused Nothing ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "Lazy_applyEffect" ) ) ) - ( LiteralInt Nothing 0 ) + ( LiteralInt Nothing 0 :| [] ) ) ) ] ), ( QName { qnameModuleName = ModuleName "Effect", qnameName = Name "Lazy_functorEffect" - }, App Nothing - ( App Nothing + }, AppN Nothing + ( AppN Nothing ( Ref Nothing ( Local ( Name "PSLUA_runtime_lazy" ) ) ) - ( LiteralString Nothing "functorEffect" ) + ( LiteralString Nothing "functorEffect" :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) ( LiteralObject Nothing @@ -197,13 +197,13 @@ UberModule ( ParamNamed Nothing ( Name "f$707" ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "a$708" ) ) - ( App Nothing - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Control.Apply" ) ( Name "apply" ) ) ) - ( App Nothing + ( AppN Nothing ( ObjectProp Nothing ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "applicativeEffect" ) ) @@ -211,52 +211,57 @@ UberModule ( PropName "Apply0" ) ) ( Ref Nothing - ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) - ) + ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] + ) :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Control.Applicative" ) ( Name "pure" ) ) ) ( Ref Nothing - ( Imported ( ModuleName "Effect" ) ( Name "applicativeEffect" ) ) + ( Imported + ( ModuleName "Effect" ) + ( Name "applicativeEffect" ) + ) :| [] ) ) - ( Ref Nothing ( Local ( Name "f$707" ) ) ) + ( Ref Nothing ( Local ( Name "f$707" ) ) :| [] ) :| [] ) ) - ( Ref Nothing ( Local ( Name "a$708" ) ) ) + ( Ref Nothing ( Local ( Name "a$708" ) ) :| [] ) ) ) ) ] - ) + ) :| [] ) ), ( QName { qnameModuleName = ModuleName "Effect", qnameName = Name "Lazy_applyEffect" - }, App Nothing - ( App Nothing + }, AppN Nothing + ( AppN Nothing ( Ref Nothing ( Local ( Name "PSLUA_runtime_lazy" ) ) ) - ( LiteralString Nothing "applyEffect" ) + ( LiteralString Nothing "applyEffect" :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) ( LiteralObject Nothing [ ( PropName "apply", Let Nothing ( Standalone - ( Nothing, Name "bind$687", App Nothing + ( Nothing, Name "bind$687", AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Control.Bind" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( ObjectProp Nothing ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "monadEffect" ) ) ) ( PropName "Bind1" ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing + ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] + ) :| [] ) ) :| [] ) @@ -264,29 +269,29 @@ UberModule ( ParamNamed Nothing ( Name "f$689" ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "a$690" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Local ( Name "bind$687" ) ) ) - ( Ref Nothing ( Local ( Name "f$689" ) ) ) + ( Ref Nothing ( Local ( Name "f$689" ) ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "f'$691" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Local ( Name "bind$687" ) ) ) - ( Ref Nothing ( Local ( Name "a$690" ) ) ) + ( Ref Nothing ( Local ( Name "a$690" ) ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "a'$692" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Control.Applicative" ) ( Name "pure" ) ) ) - ( App Nothing + ( AppN Nothing ( ObjectProp Nothing ( Ref Nothing ( Imported @@ -297,32 +302,35 @@ UberModule ( PropName "Applicative0" ) ) ( Ref Nothing - ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) - ) + ( Imported + ( ModuleName "Prim" ) + ( Name "undefined" ) + ) :| [] + ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Local ( Name "f'$691" ) ) ) - ( Ref Nothing ( Local ( Name "a'$692" ) ) ) + ( Ref Nothing ( Local ( Name "a'$692" ) ) :| [] ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) ) ) ) ), ( PropName "Functor0", Abs Nothing ( ParamUnused Nothing ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "Lazy_functorEffect" ) ) ) - ( LiteralInt Nothing 0 ) + ( LiteralInt Nothing 0 :| [] ) ) ) ] - ) + ) :| [] ) ) ] @@ -332,17 +340,17 @@ UberModule ( ParamNamed Nothing ( Name "dictShow" ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "a" ) ) - ( App Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) - ( App Nothing + ( AppN Nothing ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "dictShow" ) ) ) ( PropName "show" ) ) - ( Ref Nothing ( Local ( Name "a" ) ) ) + ( Ref Nothing ( Local ( Name "a" ) ) :| [] ) :| [] ) ) ) @@ -365,24 +373,24 @@ UberModule ( Abs Nothing ( ParamUnused Nothing ) ( Let Nothing ( Standalone - ( Nothing, Name "_", App Nothing - ( App Nothing - ( App Nothing - ( App Nothing - ( App Nothing + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing + ( AppN Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Foldable" ) ( Name "foldr" ) ) ) ( Ref Nothing - ( Imported ( ModuleName "Data.Foldable" ) ( Name "foldableArray" ) ) + ( Imported ( ModuleName "Data.Foldable" ) ( Name "foldableArray" ) ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x$907" ) ) - ( App Nothing + ( AppN Nothing ( Let Nothing ( Standalone - ( Nothing, Name "dictApply$892", App Nothing + ( Nothing, Name "dictApply$892", AppN Nothing ( ObjectProp Nothing ( Ref Nothing ( Imported @@ -393,7 +401,7 @@ UberModule ( PropName "Apply0" ) ) ( Ref Nothing - ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) + ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ) :| [] ) @@ -401,18 +409,18 @@ UberModule ( ParamNamed Nothing ( Name "a$893" ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "b$894" ) ) - ( App Nothing - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Control.Apply" ) ( Name "apply" ) ) ) - ( Ref Nothing ( Local ( Name "dictApply$892" ) ) ) + ( Ref Nothing ( Local ( Name "dictApply$892" ) ) :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp Nothing - ( App Nothing + ( AppN Nothing ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "dictApply$892" ) ) ) ( PropName "Functor0" ) @@ -421,7 +429,7 @@ UberModule ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) - ) + ) :| [] ) ) ( PropName "map" ) @@ -430,19 +438,19 @@ UberModule ( Abs Nothing ( ParamNamed Nothing ( Name "x$901" ) ) ( Ref Nothing ( Local ( Name "x$901" ) ) ) - ) + ) :| [] ) ) - ( Ref Nothing ( Local ( Name "a$893" ) ) ) + ( Ref Nothing ( Local ( Name "a$893" ) ) :| [] ) :| [] ) ) - ( Ref Nothing ( Local ( Name "b$894" ) ) ) + ( Ref Nothing ( Local ( Name "b$894" ) ) :| [] ) ) ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "logShow" ) ) ) @@ -451,37 +459,37 @@ UberModule ( PropName "show", Abs Nothing ( ParamUnused Nothing ) ( LiteralString Nothing "unit" ) ) - ] + ] :| [] ) ) - ( Ref Nothing ( Local ( Name "x$907" ) ) ) + ( Ref Nothing ( Local ( Name "x$907" ) ) :| [] ) :| [] ) - ) + ) :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Control.Applicative" ) ( Name "pure" ) ) ) ( Ref Nothing - ( Imported ( ModuleName "Effect" ) ( Name "applicativeEffect" ) ) + ( Imported ( ModuleName "Effect" ) ( Name "applicativeEffect" ) ) :| [] ) ) ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Data.Unit" ) ( Name "foreign" ) ) ) - ( PropName "unit" ) - ) + ( PropName "unit" ) :| [] + ) :| [] ) ) - ( Ref Nothing ( Local ( Name "arr$0" ) ) ) + ( Ref Nothing ( Local ( Name "arr$0" ) ) :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ) :| [] ) - ( App Nothing - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "logShow" ) ) ) ( LiteralObject Nothing [ @@ -489,12 +497,12 @@ UberModule ( Ref Nothing ( Imported ( ModuleName "Data.Show" ) ( Name "foreign" ) ) ) ( PropName "showIntImpl" ) ) - ] + ] :| [] ) ) - ( App Nothing - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Foldable" ) ( Name "foldableArray" ) ) @@ -504,8 +512,8 @@ UberModule ( Abs Nothing ( ParamNamed Nothing ( Name "c$372$881" ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Semiring" ) ( Name "semiringInt" ) ) @@ -516,25 +524,25 @@ UberModule ( Ref Nothing ( Imported ( ModuleName "Data.Semiring" ) ( Name "semiringInt" ) ) ) - ( PropName "one" ) + ( PropName "one" ) :| [] ) ) - ( Ref Nothing ( Local ( Name "c$372$881" ) ) ) + ( Ref Nothing ( Local ( Name "c$372$881" ) ) :| [] ) ) - ) + ) :| [] ) ) ( ObjectProp Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Semiring" ) ( Name "semiringInt" ) ) ) - ( PropName "zero" ) + ( PropName "zero" ) :| [] ) ) - ( Ref Nothing ( Local ( Name "arr$0" ) ) ) + ( Ref Nothing ( Local ( Name "arr$0" ) ) :| [] ) :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ) ) ) diff --git a/test/ps/output/Golden.ArrayPatternMatch.Test/golden.ir b/test/ps/output/Golden.ArrayPatternMatch.Test/golden.ir index 6d2150a9..3139dad8 100644 --- a/test/ps/output/Golden.ArrayPatternMatch.Test/golden.ir +++ b/test/ps/output/Golden.ArrayPatternMatch.Test/golden.ir @@ -94,9 +94,9 @@ UberModule ( PropName "bindE" ) ), ( PropName "Apply0", Abs Nothing ( ParamUnused Nothing ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "Lazy_applyEffect" ) ) ) - ( LiteralInt Nothing 0 ) + ( LiteralInt Nothing 0 :| [] ) ) ) ] @@ -110,19 +110,19 @@ UberModule ( PropName "pureE" ) ), ( PropName "Apply0", Abs Nothing ( ParamUnused Nothing ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "Lazy_applyEffect" ) ) ) - ( LiteralInt Nothing 0 ) + ( LiteralInt Nothing 0 :| [] ) ) ) ] ), ( QName { qnameModuleName = ModuleName "Effect", qnameName = Name "Lazy_functorEffect" - }, App Nothing - ( App Nothing + }, AppN Nothing + ( AppN Nothing ( Ref Nothing ( Local ( Name "PSLUA_runtime_lazy" ) ) ) - ( LiteralString Nothing "functorEffect" ) + ( LiteralString Nothing "functorEffect" :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) ( LiteralObject Nothing @@ -131,10 +131,10 @@ UberModule ( ParamNamed Nothing ( Name "f$28" ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "a$29" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp Nothing - ( App Nothing + ( AppN Nothing ( ObjectProp Nothing ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "applicativeEffect" ) ) @@ -142,53 +142,58 @@ UberModule ( PropName "Apply0" ) ) ( Ref Nothing - ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) + ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ) ( PropName "apply" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Control.Applicative" ) ( Name "pure" ) ) ) ( Ref Nothing - ( Imported ( ModuleName "Effect" ) ( Name "applicativeEffect" ) ) + ( Imported + ( ModuleName "Effect" ) + ( Name "applicativeEffect" ) + ) :| [] ) ) - ( Ref Nothing ( Local ( Name "f$28" ) ) ) + ( Ref Nothing ( Local ( Name "f$28" ) ) :| [] ) :| [] ) ) - ( Ref Nothing ( Local ( Name "a$29" ) ) ) + ( Ref Nothing ( Local ( Name "a$29" ) ) :| [] ) ) ) ) ] - ) + ) :| [] ) ), ( QName { qnameModuleName = ModuleName "Effect", qnameName = Name "Lazy_applyEffect" - }, App Nothing - ( App Nothing + }, AppN Nothing + ( AppN Nothing ( Ref Nothing ( Local ( Name "PSLUA_runtime_lazy" ) ) ) - ( LiteralString Nothing "applyEffect" ) + ( LiteralString Nothing "applyEffect" :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) ( LiteralObject Nothing [ ( PropName "apply", Let Nothing ( Standalone - ( Nothing, Name "bind$7", App Nothing + ( Nothing, Name "bind$7", AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Control.Bind" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( ObjectProp Nothing ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "monadEffect" ) ) ) ( PropName "Bind1" ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing + ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] + ) :| [] ) ) :| [] ) @@ -196,29 +201,29 @@ UberModule ( ParamNamed Nothing ( Name "f$9" ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "a$10" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Local ( Name "bind$7" ) ) ) - ( Ref Nothing ( Local ( Name "f$9" ) ) ) + ( Ref Nothing ( Local ( Name "f$9" ) ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "f'$11" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Local ( Name "bind$7" ) ) ) - ( Ref Nothing ( Local ( Name "a$10" ) ) ) + ( Ref Nothing ( Local ( Name "a$10" ) ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "a'$12" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Control.Applicative" ) ( Name "pure" ) ) ) - ( App Nothing + ( AppN Nothing ( ObjectProp Nothing ( Ref Nothing ( Imported @@ -229,32 +234,35 @@ UberModule ( PropName "Applicative0" ) ) ( Ref Nothing - ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) - ) + ( Imported + ( ModuleName "Prim" ) + ( Name "undefined" ) + ) :| [] + ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Local ( Name "f'$11" ) ) ) - ( Ref Nothing ( Local ( Name "a'$12" ) ) ) + ( Ref Nothing ( Local ( Name "a'$12" ) ) :| [] ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) ) ) ) ), ( PropName "Functor0", Abs Nothing ( ParamUnused Nothing ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "Lazy_functorEffect" ) ) ) - ( LiteralInt Nothing 0 ) + ( LiteralInt Nothing 0 :| [] ) ) ) ] - ) + ) :| [] ) ) ] @@ -263,47 +271,47 @@ UberModule { qnameModuleName = ModuleName "Golden.ArrayPatternMatch.Test", qnameName = Name "negate" }, Abs Nothing ( ParamNamed Nothing ( Name "a$86" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Ring" ) ( Name "ringInt" ) ) ) ( PropName "sub" ) ) ( ObjectProp Nothing - ( App Nothing + ( AppN Nothing ( ObjectProp Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Ring" ) ( Name "ringInt" ) ) ) ( PropName "Semiring0" ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ) - ( PropName "zero" ) + ( PropName "zero" ) :| [] ) ) - ( Ref Nothing ( Local ( Name "a$86" ) ) ) + ( Ref Nothing ( Local ( Name "a$86" ) ) :| [] ) ) ), Standalone ( QName { qnameModuleName = ModuleName "Golden.ArrayPatternMatch.Test", qnameName = Name "discard" - }, App Nothing + }, AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Control.Bind" ) ( Name "bind" ) ) ) - ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "bindEffect" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "bindEffect" ) ) :| [] ) ), Standalone ( QName { qnameModuleName = ModuleName "Golden.ArrayPatternMatch.Test", qnameName = Name "logShow" }, Abs Nothing ( ParamNamed Nothing ( Name "a$2" ) ) - ( App Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) - ( App Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Data.Show" ) ( Name "foreign" ) ) ) ( PropName "showIntImpl" ) ) - ( Ref Nothing ( Local ( Name "a$2" ) ) ) + ( Ref Nothing ( Local ( Name "a$2" ) ) :| [] ) :| [] ) ) ), Standalone @@ -317,11 +325,11 @@ UberModule ( ArrayLength Nothing ( Ref Nothing ( Local ( Name "v" ) ) ) ) ) ( ArrayIndex Nothing ( Ref Nothing ( Local ( Name "v" ) ) ) 2 ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.ArrayPatternMatch.Test" ) ( Name "negate" ) ) ) - ( LiteralInt Nothing 1 ) + ( LiteralInt Nothing 1 :| [] ) ) ) ), Standalone @@ -334,21 +342,21 @@ UberModule ( LiteralInt Nothing 2 ) ( ArrayLength Nothing ( Ref Nothing ( Local ( Name "v" ) ) ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Semiring" ) ( Name "semiringInt" ) ) ) ( PropName "add" ) ) - ( ArrayIndex Nothing ( Ref Nothing ( Local ( Name "v" ) ) ) 0 ) + ( ArrayIndex Nothing ( Ref Nothing ( Local ( Name "v" ) ) ) 0 :| [] ) ) - ( ArrayIndex Nothing ( Ref Nothing ( Local ( Name "v" ) ) ) 1 ) + ( ArrayIndex Nothing ( Ref Nothing ( Local ( Name "v" ) ) ) 1 :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.ArrayPatternMatch.Test" ) ( Name "negate" ) ) ) - ( LiteralInt Nothing 1 ) + ( LiteralInt Nothing 1 :| [] ) ) ) ) @@ -363,27 +371,29 @@ UberModule ( Name "main", Abs Nothing ( ParamUnused Nothing ) ( Let Nothing ( Standalone - ( Nothing, Name "_", App Nothing - ( App Nothing + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.ArrayPatternMatch.Test" ) ( Name "logShow" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.ArrayPatternMatch.Test" ) ( Name "firstTwo" ) ) ) - ( LiteralArray Nothing [ LiteralInt Nothing 10, LiteralInt Nothing 20 ] ) + ( LiteralArray Nothing + [ LiteralInt Nothing 10, LiteralInt Nothing 20 ] :| [] + ) :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ) :| [ Standalone - ( Nothing, Name "_", App Nothing - ( App Nothing + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.ArrayPatternMatch.Test" ) ( Name "logShow" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.ArrayPatternMatch.Test" ) @@ -391,46 +401,46 @@ UberModule ) ) ( LiteralArray Nothing - [ LiteralInt Nothing 1, LiteralInt Nothing 2, LiteralInt Nothing 3 ] - ) + [ LiteralInt Nothing 1, LiteralInt Nothing 2, LiteralInt Nothing 3 ] :| [] + ) :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ), Standalone - ( Nothing, Name "_", App Nothing - ( App Nothing + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.ArrayPatternMatch.Test" ) ( Name "logShow" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.ArrayPatternMatch.Test" ) ( Name "firstTwo" ) ) ) - ( LiteralArray Nothing [] ) + ( LiteralArray Nothing [] :| [] ) :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ) ] ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.ArrayPatternMatch.Test" ) ( Name "logShow" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.ArrayPatternMatch.Test" ) ( Name "lastOfThree" ) ) ) ( LiteralArray Nothing - [ LiteralInt Nothing 7, LiteralInt Nothing 8, LiteralInt Nothing 9 ] - ) + [ LiteralInt Nothing 7, LiteralInt Nothing 8, LiteralInt Nothing 9 ] :| [] + ) :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ) ) ) diff --git a/test/ps/output/Golden.BugListGenericEq.Test/golden.ir b/test/ps/output/Golden.BugListGenericEq.Test/golden.ir index 80cadd99..8403346e 100644 --- a/test/ps/output/Golden.BugListGenericEq.Test/golden.ir +++ b/test/ps/output/Golden.BugListGenericEq.Test/golden.ir @@ -49,8 +49,8 @@ UberModule ( ParamNamed Nothing ( Name "a" ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "b" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp Nothing ( Ref Nothing ( Imported @@ -60,7 +60,7 @@ UberModule ) ( PropName "disj" ) ) - ( App Nothing + ( AppN Nothing ( ObjectProp Nothing ( Ref Nothing ( Imported @@ -70,10 +70,10 @@ UberModule ) ( PropName "not" ) ) - ( Ref Nothing ( Local ( Name "a" ) ) ) + ( Ref Nothing ( Local ( Name "a" ) ) :| [] ) :| [] ) ) - ( Ref Nothing ( Local ( Name "b" ) ) ) + ( Ref Nothing ( Local ( Name "b" ) ) :| [] ) ) ) ), @@ -119,29 +119,29 @@ UberModule ( ParamNamed Nothing ( Name "rb" ) ) ( Let Nothing ( Standalone - ( Nothing, Name "key", App Nothing + ( Nothing, Name "key", AppN Nothing ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "dictIsSymbol" ) ) ) ( PropName "reflectSymbol" ) ) ( Ref Nothing - ( Imported ( ModuleName "Type.Proxy" ) ( Name "Proxy" ) ) + ( Imported ( ModuleName "Type.Proxy" ) ( Name "Proxy" ) ) :| [] ) ) :| [ Standalone - ( Nothing, Name "get", App Nothing + ( Nothing, Name "get", AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Record.Unsafe" ) ( Name "foreign" ) ) ) ( PropName "unsafeGet" ) ) - ( Ref Nothing ( Local ( Name "key" ) ) ) + ( Ref Nothing ( Local ( Name "key" ) ) :| [] ) ) ] ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp Nothing ( Ref Nothing ( Imported @@ -151,41 +151,41 @@ UberModule ) ( PropName "conj" ) ) - ( App Nothing - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Eq" ) ( Name "eq" ) ) ) - ( Ref Nothing ( Local ( Name "dictEq" ) ) ) + ( Ref Nothing ( Local ( Name "dictEq" ) ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Local ( Name "get" ) ) ) - ( Ref Nothing ( Local ( Name "ra" ) ) ) + ( Ref Nothing ( Local ( Name "ra" ) ) :| [] ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Local ( Name "get" ) ) ) - ( Ref Nothing ( Local ( Name "rb" ) ) ) - ) + ( Ref Nothing ( Local ( Name "rb" ) ) :| [] ) :| [] + ) :| [] ) ) - ( App Nothing - ( App Nothing - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Eq" ) ( Name "eqRecord" ) ) ) - ( Ref Nothing ( Local ( Name "dictEqRecord" ) ) ) + ( Ref Nothing ( Local ( Name "dictEqRecord" ) ) :| [] ) ) ( Ref Nothing - ( Imported ( ModuleName "Type.Proxy" ) ( Name "Proxy" ) ) + ( Imported ( ModuleName "Type.Proxy" ) ( Name "Proxy" ) ) :| [] ) ) - ( Ref Nothing ( Local ( Name "ra" ) ) ) + ( Ref Nothing ( Local ( Name "ra" ) ) :| [] ) ) - ( Ref Nothing ( Local ( Name "rb" ) ) ) + ( Ref Nothing ( Local ( Name "rb" ) ) :| [] ) :| [] ) ) ) @@ -225,17 +225,17 @@ UberModule ( ParamNamed Nothing ( Name "v" ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "v1" ) ) - ( App Nothing - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Eq.Generic" ) ( Name "genericEq'" ) ) ) - ( Ref Nothing ( Local ( Name "dictGenericEq" ) ) ) + ( Ref Nothing ( Local ( Name "dictGenericEq" ) ) :| [] ) ) - ( Ref Nothing ( Local ( Name "v" ) ) ) + ( Ref Nothing ( Local ( Name "v" ) ) :| [] ) ) - ( Ref Nothing ( Local ( Name "v1" ) ) ) + ( Ref Nothing ( Local ( Name "v1" ) ) :| [] ) ) ) ) @@ -265,9 +265,9 @@ UberModule ( PropName "bindE" ) ), ( PropName "Apply0", Abs Nothing ( ParamUnused Nothing ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "Lazy_applyEffect" ) ) ) - ( LiteralInt Nothing 0 ) + ( LiteralInt Nothing 0 :| [] ) ) ) ] @@ -281,19 +281,19 @@ UberModule ( PropName "pureE" ) ), ( PropName "Apply0", Abs Nothing ( ParamUnused Nothing ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "Lazy_applyEffect" ) ) ) - ( LiteralInt Nothing 0 ) + ( LiteralInt Nothing 0 :| [] ) ) ) ] ), ( QName { qnameModuleName = ModuleName "Effect", qnameName = Name "Lazy_functorEffect" - }, App Nothing - ( App Nothing + }, AppN Nothing + ( AppN Nothing ( Ref Nothing ( Local ( Name "PSLUA_runtime_lazy" ) ) ) - ( LiteralString Nothing "functorEffect" ) + ( LiteralString Nothing "functorEffect" :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) ( LiteralObject Nothing @@ -302,10 +302,10 @@ UberModule ( ParamNamed Nothing ( Name "f$54" ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "a$55" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp Nothing - ( App Nothing + ( AppN Nothing ( ObjectProp Nothing ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "applicativeEffect" ) ) @@ -313,53 +313,58 @@ UberModule ( PropName "Apply0" ) ) ( Ref Nothing - ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) + ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ) ( PropName "apply" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Control.Applicative" ) ( Name "pure" ) ) ) ( Ref Nothing - ( Imported ( ModuleName "Effect" ) ( Name "applicativeEffect" ) ) + ( Imported + ( ModuleName "Effect" ) + ( Name "applicativeEffect" ) + ) :| [] ) ) - ( Ref Nothing ( Local ( Name "f$54" ) ) ) + ( Ref Nothing ( Local ( Name "f$54" ) ) :| [] ) :| [] ) ) - ( Ref Nothing ( Local ( Name "a$55" ) ) ) + ( Ref Nothing ( Local ( Name "a$55" ) ) :| [] ) ) ) ) ] - ) + ) :| [] ) ), ( QName { qnameModuleName = ModuleName "Effect", qnameName = Name "Lazy_applyEffect" - }, App Nothing - ( App Nothing + }, AppN Nothing + ( AppN Nothing ( Ref Nothing ( Local ( Name "PSLUA_runtime_lazy" ) ) ) - ( LiteralString Nothing "applyEffect" ) + ( LiteralString Nothing "applyEffect" :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) ( LiteralObject Nothing [ ( PropName "apply", Let Nothing ( Standalone - ( Nothing, Name "bind$33", App Nothing + ( Nothing, Name "bind$33", AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Control.Bind" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( ObjectProp Nothing ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "monadEffect" ) ) ) ( PropName "Bind1" ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing + ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] + ) :| [] ) ) :| [] ) @@ -367,29 +372,29 @@ UberModule ( ParamNamed Nothing ( Name "f$35" ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "a$36" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Local ( Name "bind$33" ) ) ) - ( Ref Nothing ( Local ( Name "f$35" ) ) ) + ( Ref Nothing ( Local ( Name "f$35" ) ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "f'$37" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Local ( Name "bind$33" ) ) ) - ( Ref Nothing ( Local ( Name "a$36" ) ) ) + ( Ref Nothing ( Local ( Name "a$36" ) ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "a'$38" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Control.Applicative" ) ( Name "pure" ) ) ) - ( App Nothing + ( AppN Nothing ( ObjectProp Nothing ( Ref Nothing ( Imported @@ -400,47 +405,50 @@ UberModule ( PropName "Applicative0" ) ) ( Ref Nothing - ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) - ) + ( Imported + ( ModuleName "Prim" ) + ( Name "undefined" ) + ) :| [] + ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Local ( Name "f'$37" ) ) ) - ( Ref Nothing ( Local ( Name "a'$38" ) ) ) + ( Ref Nothing ( Local ( Name "a'$38" ) ) :| [] ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) ) ) ) ), ( PropName "Functor0", Abs Nothing ( ParamUnused Nothing ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "Lazy_functorEffect" ) ) ) - ( LiteralInt Nothing 0 ) + ( LiteralInt Nothing 0 :| [] ) ) ) ] - ) + ) :| [] ) ) ] ), Standalone ( QName { qnameModuleName = ModuleName "Golden.BugListGenericEq.Test", qnameName = Name "discard" - }, App Nothing + }, AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Control.Bind" ) ( Name "bind" ) ) ) - ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "bindEffect" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "bindEffect" ) ) :| [] ) ), Standalone ( QName { qnameModuleName = ModuleName "Golden.BugListGenericEq.Test", qnameName = Name "logShow" }, Abs Nothing ( ParamNamed Nothing ( Name "a$2" ) ) - ( App Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) @@ -452,7 +460,7 @@ UberModule ( Eq Nothing ( LiteralBool Nothing False ) ( Ref Nothing ( Local ( Name "a$2" ) ) ) ) ( LiteralString Nothing "false" ) ( Exception Nothing "No patterns matched" ) - ) + ) :| [] ) ) ), Standalone @@ -490,13 +498,13 @@ UberModule ( LiteralString Nothing "Data.Generic.Rep∷Sum.Inr" ) ( ReflectCtor Nothing ( Ref Nothing ( Local ( Name "x" ) ) ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.BugListGenericEq.Test" ) ( Name "Cons" ) ) ) ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "x" ) ) ) - ( PropName "value0" ) + ( PropName "value0" ) :| [] ) ) ( Exception Nothing "No patterns matched" ) @@ -510,7 +518,7 @@ UberModule ( LiteralString Nothing "Golden.BugListGenericEq.Test∷List.Nil" ) ( ReflectCtor Nothing ( Ref Nothing ( Local ( Name "x0" ) ) ) ) ) - ( App Nothing + ( AppN Nothing ( Ctor Nothing SumType ( ModuleName "Data.Generic.Rep" ) ( TyName "Sum" ) @@ -520,7 +528,7 @@ UberModule ( Ctor Nothing ProductType ( ModuleName "Data.Generic.Rep" ) ( TyName "NoArguments" ) - ( CtorName "NoArguments" ) [] + ( CtorName "NoArguments" ) [] :| [] ) ) ( IfThenElse Nothing @@ -528,7 +536,7 @@ UberModule ( LiteralString Nothing "Golden.BugListGenericEq.Test∷List.Cons" ) ( ReflectCtor Nothing ( Ref Nothing ( Local ( Name "x0" ) ) ) ) ) - ( App Nothing + ( AppN Nothing ( Ctor Nothing SumType ( ModuleName "Data.Generic.Rep" ) ( TyName "Sum" ) @@ -537,7 +545,7 @@ UberModule ) ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "x0" ) ) ) - ( PropName "value0" ) + ( PropName "value0" ) :| [] ) ) ( Exception Nothing "No patterns matched" ) @@ -557,9 +565,9 @@ UberModule ( ParamNamed Nothing ( Name "x" ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "y" ) ) - ( App Nothing - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing + ( AppN Nothing ( Let Nothing ( Standalone ( Nothing, Name "from$4", ObjectProp Nothing @@ -578,25 +586,25 @@ UberModule ( ParamNamed Nothing ( Name "x$7" ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "y$8" ) ) - ( App Nothing - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Eq.Generic" ) ( Name "genericEq'" ) ) ) - ( Ref Nothing ( Local ( Name "dictGenericEq$5" ) ) ) + ( Ref Nothing ( Local ( Name "dictGenericEq$5" ) ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Local ( Name "from$4" ) ) ) - ( Ref Nothing ( Local ( Name "x$7" ) ) ) + ( Ref Nothing ( Local ( Name "x$7" ) ) :| [] ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Local ( Name "from$4" ) ) ) - ( Ref Nothing ( Local ( Name "y$8" ) ) ) + ( Ref Nothing ( Local ( Name "y$8" ) ) :| [] ) :| [] ) ) ) @@ -623,16 +631,16 @@ UberModule ( Ref Nothing ( Local ( Name "v1$14" ) ) ) ) ) - ( App Nothing - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Eq.Generic" ) ( Name "genericEq'" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Eq.Generic" ) @@ -644,18 +652,18 @@ UberModule ( PropName "genericEq'", Abs Nothing ( ParamUnused Nothing ) ( Abs Nothing ( ParamUnused Nothing ) ( LiteralBool Nothing True ) ) ) - ] - ) + ] :| [] + ) :| [] ) ) ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "v$13" ) ) ) - ( PropName "value0" ) + ( PropName "value0" ) :| [] ) ) ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "v1$14" ) ) ) - ( PropName "value0" ) + ( PropName "value0" ) :| [] ) ) ( LiteralBool Nothing False ) ) @@ -673,16 +681,16 @@ UberModule ( Ref Nothing ( Local ( Name "v1$14" ) ) ) ) ) - ( App Nothing - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Eq.Generic" ) ( Name "genericEq'" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Eq.Generic" ) @@ -695,9 +703,9 @@ UberModule ( ParamNamed Nothing ( Name "v$21" ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "v1$22" ) ) - ( App Nothing - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Eq" ) @@ -706,28 +714,28 @@ UberModule ) ( LiteralObject Nothing [ - ( PropName "eq", App Nothing - ( App Nothing + ( PropName "eq", AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Eq" ) ( Name "eqRecord" ) ) ) - ( App Nothing - ( App Nothing - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Eq" ) ( Name "eqRowCons" ) ) ) - ( App Nothing - ( App Nothing - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Eq" ) @@ -741,14 +749,14 @@ UberModule ( Abs Nothing ( ParamUnused Nothing ) ( LiteralBool Nothing True ) ) ) ) - ] + ] :| [] ) ) ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) - ) + ) :| [] ) ) ( LiteralObject Nothing @@ -756,10 +764,10 @@ UberModule ( PropName "reflectSymbol", Abs Nothing ( ParamUnused Nothing ) ( LiteralString Nothing "tail" ) ) - ] + ] :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.BugListGenericEq.Test" ) @@ -769,16 +777,16 @@ UberModule ( Ref Nothing ( Local ( Name "dictEq" ) - ) - ) - ) + ) :| [] + ) :| [] + ) :| [] ) ) ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) - ) + ) :| [] ) ) ( LiteralObject Nothing @@ -786,42 +794,48 @@ UberModule ( PropName "reflectSymbol", Abs Nothing ( ParamUnused Nothing ) ( LiteralString Nothing "head" ) ) - ] + ] :| [] ) ) ( Ref Nothing - ( Local ( Name "dictEq" ) ) - ) + ( Local + ( Name "dictEq" ) + ) :| [] + ) :| [] ) ) ( Ref Nothing ( Imported ( ModuleName "Type.Proxy" ) ( Name "Proxy" ) - ) + ) :| [] ) ) - ] + ] :| [] ) ) - ( Ref Nothing ( Local ( Name "v$21" ) ) ) + ( Ref Nothing + ( Local ( Name "v$21" ) ) :| [] + ) + ) + ( Ref Nothing + ( Local ( Name "v1$22" ) ) :| [] ) - ( Ref Nothing ( Local ( Name "v1$22" ) ) ) ) ) ) - ] - ) + ] :| [] + ) :| [] ) ) ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "v$13" ) ) ) - ( PropName "value0" ) + ( PropName "value0" ) :| [] ) ) ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "v1$14" ) ) ) - ( PropName "value0" ) + ( PropName "value0" ) :| [] ) ) ( LiteralBool Nothing False ) ) ( LiteralBool Nothing False ) @@ -829,12 +843,12 @@ UberModule ) ) ) - ] + ] :| [] ) ) - ( Ref Nothing ( Local ( Name "x" ) ) ) + ( Ref Nothing ( Local ( Name "x" ) ) :| [] ) ) - ( Ref Nothing ( Local ( Name "y" ) ) ) + ( Ref Nothing ( Local ( Name "y" ) ) :| [] ) ) ) ) @@ -844,9 +858,9 @@ UberModule ), Standalone ( QName { qnameModuleName = ModuleName "Golden.BugListGenericEq.Test", qnameName = Name "eq" - }, App Nothing + }, AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Eq" ) ( Name "eq" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.BugListGenericEq.Test" ) ( Name "eqList" ) ) ) @@ -856,8 +870,8 @@ UberModule ( Ref Nothing ( Imported ( ModuleName "Data.Eq" ) ( Name "foreign" ) ) ) ( PropName "eqIntImpl" ) ) - ] - ) + ] :| [] + ) :| [] ) ), Standalone ( QName @@ -866,7 +880,7 @@ UberModule ( ParamNamed Nothing ( Name "head" ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "tail" ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.BugListGenericEq.Test" ) ( Name "Cons" ) ) ) @@ -874,7 +888,7 @@ UberModule [ ( PropName "head", Ref Nothing ( Local ( Name "head" ) ) ), ( PropName "tail", Ref Nothing ( Local ( Name "tail" ) ) ) - ] + ] :| [] ) ) ) @@ -893,131 +907,140 @@ UberModule ( Name "main", Abs Nothing ( ParamUnused Nothing ) ( Let Nothing ( Standalone - ( Nothing, Name "_", App Nothing - ( App Nothing + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.BugListGenericEq.Test" ) ( Name "logShow" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.BugListGenericEq.Test" ) ( Name "eq" ) ) ) ( Ref Nothing - ( Imported ( ModuleName "Golden.BugListGenericEq.Test" ) ( Name "Nil" ) ) + ( Imported + ( ModuleName "Golden.BugListGenericEq.Test" ) + ( Name "Nil" ) + ) :| [] ) ) ( Ref Nothing - ( Imported ( ModuleName "Golden.BugListGenericEq.Test" ) ( Name "Nil" ) ) - ) + ( Imported ( ModuleName "Golden.BugListGenericEq.Test" ) ( Name "Nil" ) ) :| [] + ) :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ) :| [ Standalone - ( Nothing, Name "_", App Nothing - ( App Nothing + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.BugListGenericEq.Test" ) ( Name "logShow" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.BugListGenericEq.Test" ) ( Name "eq" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.BugListGenericEq.Test" ) ( Name "cons" ) ) ) - ( LiteralInt Nothing 1 ) + ( LiteralInt Nothing 1 :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.BugListGenericEq.Test" ) ( Name "cons" ) ) ) - ( LiteralInt Nothing 2 ) + ( LiteralInt Nothing 2 :| [] ) ) ( Ref Nothing ( Imported ( ModuleName "Golden.BugListGenericEq.Test" ) ( Name "Nil" ) - ) - ) - ) + ) :| [] + ) :| [] + ) :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.BugListGenericEq.Test" ) ( Name "cons" ) ) ) - ( LiteralInt Nothing 1 ) + ( LiteralInt Nothing 1 :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.BugListGenericEq.Test" ) ( Name "cons" ) ) ) - ( LiteralInt Nothing 2 ) + ( LiteralInt Nothing 2 :| [] ) ) ( Ref Nothing - ( Imported ( ModuleName "Golden.BugListGenericEq.Test" ) ( Name "Nil" ) ) - ) - ) - ) + ( Imported + ( ModuleName "Golden.BugListGenericEq.Test" ) + ( Name "Nil" ) + ) :| [] + ) :| [] + ) :| [] + ) :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ) ] ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.BugListGenericEq.Test" ) ( Name "logShow" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.BugListGenericEq.Test" ) ( Name "eq" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.BugListGenericEq.Test" ) ( Name "cons" ) ) ) - ( LiteralInt Nothing 1 ) + ( LiteralInt Nothing 1 :| [] ) ) ( Ref Nothing - ( Imported ( ModuleName "Golden.BugListGenericEq.Test" ) ( Name "Nil" ) ) - ) + ( Imported + ( ModuleName "Golden.BugListGenericEq.Test" ) + ( Name "Nil" ) + ) :| [] + ) :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.BugListGenericEq.Test" ) ( Name "cons" ) ) ) - ( LiteralInt Nothing 2 ) + ( LiteralInt Nothing 2 :| [] ) ) ( Ref Nothing - ( Imported ( ModuleName "Golden.BugListGenericEq.Test" ) ( Name "Nil" ) ) - ) - ) + ( Imported ( ModuleName "Golden.BugListGenericEq.Test" ) ( Name "Nil" ) ) :| [] + ) :| [] + ) :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ) ) ), diff --git a/test/ps/output/Golden.CaseStatements.Test/golden.ir b/test/ps/output/Golden.CaseStatements.Test/golden.ir index 6b0de901..7891d471 100644 --- a/test/ps/output/Golden.CaseStatements.Test/golden.ir +++ b/test/ps/output/Golden.CaseStatements.Test/golden.ir @@ -16,19 +16,25 @@ UberModule ) :| [] ) ( IfThenElse Nothing - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.Values.Test" ) ( Name "f" ) ) ) - ( LiteralInt Nothing 2 ) + ( LiteralInt Nothing 2 :| [] ) ) ( IfThenElse Nothing - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.Values.Test" ) ( Name "f" ) ) ) - ( LiteralInt Nothing 1 ) + ( LiteralInt Nothing 1 :| [] ) ) ( LiteralInt Nothing 42 ) - ( App Nothing ( Ref Nothing ( Local ( Name "v$6" ) ) ) ( LiteralBool Nothing True ) ) + ( AppN Nothing + ( Ref Nothing ( Local ( Name "v$6" ) ) ) + ( LiteralBool Nothing True :| [] ) + ) + ) + ( AppN Nothing + ( Ref Nothing ( Local ( Name "v$6" ) ) ) + ( LiteralBool Nothing True :| [] ) ) - ( App Nothing ( Ref Nothing ( Local ( Name "v$6" ) ) ) ( LiteralBool Nothing True ) ) ) ), ( Name "J", Ctor Nothing SumType @@ -80,16 +86,19 @@ UberModule ( Ref Nothing ( Local ( Name "m$34" ) ) ) ( PropName "value0" ) ) - ( App Nothing - ( Ref Nothing ( Local ( Name "v$37" ) ) ) ( LiteralBool Nothing True ) + ( AppN Nothing + ( Ref Nothing ( Local ( Name "v$37" ) ) ) + ( LiteralBool Nothing True :| [] ) ) ) - ( App Nothing - ( Ref Nothing ( Local ( Name "v$37" ) ) ) ( LiteralBool Nothing True ) + ( AppN Nothing + ( Ref Nothing ( Local ( Name "v$37" ) ) ) + ( LiteralBool Nothing True :| [] ) ) ) - ( App Nothing - ( Ref Nothing ( Local ( Name "v$37" ) ) ) ( LiteralBool Nothing True ) + ( AppN Nothing + ( Ref Nothing ( Local ( Name "v$37" ) ) ) + ( LiteralBool Nothing True :| [] ) ) ) ) diff --git a/test/ps/output/Golden.CharLiterals.Test/golden.ir b/test/ps/output/Golden.CharLiterals.Test/golden.ir index 499c679f..6e1a8361 100644 --- a/test/ps/output/Golden.CharLiterals.Test/golden.ir +++ b/test/ps/output/Golden.CharLiterals.Test/golden.ir @@ -70,9 +70,9 @@ UberModule ( PropName "bindE" ) ), ( PropName "Apply0", Abs Nothing ( ParamUnused Nothing ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "Lazy_applyEffect" ) ) ) - ( LiteralInt Nothing 0 ) + ( LiteralInt Nothing 0 :| [] ) ) ) ] @@ -86,19 +86,19 @@ UberModule ( PropName "pureE" ) ), ( PropName "Apply0", Abs Nothing ( ParamUnused Nothing ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "Lazy_applyEffect" ) ) ) - ( LiteralInt Nothing 0 ) + ( LiteralInt Nothing 0 :| [] ) ) ) ] ), ( QName { qnameModuleName = ModuleName "Effect", qnameName = Name "Lazy_functorEffect" - }, App Nothing - ( App Nothing + }, AppN Nothing + ( AppN Nothing ( Ref Nothing ( Local ( Name "PSLUA_runtime_lazy" ) ) ) - ( LiteralString Nothing "functorEffect" ) + ( LiteralString Nothing "functorEffect" :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) ( LiteralObject Nothing @@ -107,10 +107,10 @@ UberModule ( ParamNamed Nothing ( Name "f$25" ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "a$26" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp Nothing - ( App Nothing + ( AppN Nothing ( ObjectProp Nothing ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "applicativeEffect" ) ) @@ -118,53 +118,58 @@ UberModule ( PropName "Apply0" ) ) ( Ref Nothing - ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) + ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ) ( PropName "apply" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Control.Applicative" ) ( Name "pure" ) ) ) ( Ref Nothing - ( Imported ( ModuleName "Effect" ) ( Name "applicativeEffect" ) ) + ( Imported + ( ModuleName "Effect" ) + ( Name "applicativeEffect" ) + ) :| [] ) ) - ( Ref Nothing ( Local ( Name "f$25" ) ) ) + ( Ref Nothing ( Local ( Name "f$25" ) ) :| [] ) :| [] ) ) - ( Ref Nothing ( Local ( Name "a$26" ) ) ) + ( Ref Nothing ( Local ( Name "a$26" ) ) :| [] ) ) ) ) ] - ) + ) :| [] ) ), ( QName { qnameModuleName = ModuleName "Effect", qnameName = Name "Lazy_applyEffect" - }, App Nothing - ( App Nothing + }, AppN Nothing + ( AppN Nothing ( Ref Nothing ( Local ( Name "PSLUA_runtime_lazy" ) ) ) - ( LiteralString Nothing "applyEffect" ) + ( LiteralString Nothing "applyEffect" :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) ( LiteralObject Nothing [ ( PropName "apply", Let Nothing ( Standalone - ( Nothing, Name "bind$4", App Nothing + ( Nothing, Name "bind$4", AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Control.Bind" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( ObjectProp Nothing ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "monadEffect" ) ) ) ( PropName "Bind1" ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing + ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] + ) :| [] ) ) :| [] ) @@ -172,29 +177,29 @@ UberModule ( ParamNamed Nothing ( Name "f$6" ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "a$7" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Local ( Name "bind$4" ) ) ) - ( Ref Nothing ( Local ( Name "f$6" ) ) ) + ( Ref Nothing ( Local ( Name "f$6" ) ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "f'$8" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Local ( Name "bind$4" ) ) ) - ( Ref Nothing ( Local ( Name "a$7" ) ) ) + ( Ref Nothing ( Local ( Name "a$7" ) ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "a'$9" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Control.Applicative" ) ( Name "pure" ) ) ) - ( App Nothing + ( AppN Nothing ( ObjectProp Nothing ( Ref Nothing ( Imported @@ -205,45 +210,48 @@ UberModule ( PropName "Applicative0" ) ) ( Ref Nothing - ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) - ) + ( Imported + ( ModuleName "Prim" ) + ( Name "undefined" ) + ) :| [] + ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Local ( Name "f'$8" ) ) ) - ( Ref Nothing ( Local ( Name "a'$9" ) ) ) + ( Ref Nothing ( Local ( Name "a'$9" ) ) :| [] ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) ) ) ) ), ( PropName "Functor0", Abs Nothing ( ParamUnused Nothing ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "Lazy_functorEffect" ) ) ) - ( LiteralInt Nothing 0 ) + ( LiteralInt Nothing 0 :| [] ) ) ) ] - ) + ) :| [] ) ) ] ), Standalone ( QName { qnameModuleName = ModuleName "Golden.CharLiterals.Test", qnameName = Name "discard" - }, App Nothing + }, AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Control.Bind" ) ( Name "bind" ) ) ) - ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "bindEffect" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "bindEffect" ) ) :| [] ) ), Standalone ( QName { qnameModuleName = ModuleName "Golden.CharLiterals.Test", qnameName = Name "show" - }, App Nothing + }, AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Show" ) ( Name "show" ) ) ) ( LiteralObject Nothing [ @@ -251,12 +259,12 @@ UberModule ( Ref Nothing ( Imported ( ModuleName "Data.Show" ) ( Name "foreign" ) ) ) ( PropName "showCharImpl" ) ) - ] + ] :| [] ) ), Standalone ( QName { qnameModuleName = ModuleName "Golden.CharLiterals.Test", qnameName = Name "show1" - }, App Nothing + }, AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Show" ) ( Name "show" ) ) ) ( LiteralObject Nothing [ @@ -274,7 +282,7 @@ UberModule ) ) ) - ] + ] :| [] ) ) ], uberModuleForeigns = [], uberModuleExports = @@ -282,130 +290,130 @@ UberModule ( Name "main", Abs Nothing ( ParamUnused Nothing ) ( Let Nothing ( Standalone - ( Nothing, Name "_", App Nothing - ( App Nothing + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.CharLiterals.Test" ) ( Name "show" ) ) ) - ( LiteralChar Nothing ' ' ) + ( LiteralChar Nothing ' ' :| [] ) :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ) :| [ Standalone - ( Nothing, Name "_", App Nothing - ( App Nothing + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.CharLiterals.Test" ) ( Name "show" ) ) ) - ( LiteralChar Nothing '\x9' ) + ( LiteralChar Nothing '\x9' :| [] ) :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ), Standalone - ( Nothing, Name "_", App Nothing - ( App Nothing + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.CharLiterals.Test" ) ( Name "show" ) ) ) - ( LiteralChar Nothing '\xd' ) + ( LiteralChar Nothing '\xd' :| [] ) :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ), Standalone - ( Nothing, Name "_", App Nothing - ( App Nothing + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.CharLiterals.Test" ) ( Name "show" ) ) ) - ( LiteralChar Nothing ''' ) + ( LiteralChar Nothing ''' :| [] ) :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ), Standalone - ( Nothing, Name "_", App Nothing - ( App Nothing + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.CharLiterals.Test" ) ( Name "show" ) ) ) - ( LiteralChar Nothing '\' ) + ( LiteralChar Nothing '\' :| [] ) :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ), Standalone - ( Nothing, Name "_", App Nothing - ( App Nothing + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.CharLiterals.Test" ) ( Name "show" ) ) ) - ( LiteralChar Nothing 'a' ) + ( LiteralChar Nothing 'a' :| [] ) :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ), Standalone - ( Nothing, Name "_", App Nothing - ( App Nothing + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.CharLiterals.Test" ) ( Name "show1" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Data.Eq" ) ( Name "foreign" ) ) ) ( PropName "eqCharImpl" ) ) - ( LiteralChar Nothing ' ' ) + ( LiteralChar Nothing ' ' :| [] ) ) - ( LiteralChar Nothing ' ' ) - ) + ( LiteralChar Nothing ' ' :| [] ) :| [] + ) :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ) ] ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.CharLiterals.Test" ) ( Name "show1" ) ) ) @@ -413,11 +421,11 @@ UberModule ( Eq Nothing ( LiteralString Nothing "Data.Ordering∷Ordering.LT" ) ( ReflectCtor Nothing - ( App Nothing - ( App Nothing - ( App Nothing - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing + ( AppN Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Data.Ord" ) ( Name "foreign" ) ) @@ -427,31 +435,31 @@ UberModule ( Ctor Nothing SumType ( ModuleName "Data.Ordering" ) ( TyName "Ordering" ) - ( CtorName "LT" ) [] + ( CtorName "LT" ) [] :| [] ) ) ( Ctor Nothing SumType ( ModuleName "Data.Ordering" ) ( TyName "Ordering" ) - ( CtorName "EQ" ) [] + ( CtorName "EQ" ) [] :| [] ) ) ( Ctor Nothing SumType ( ModuleName "Data.Ordering" ) ( TyName "Ordering" ) - ( CtorName "GT" ) [] + ( CtorName "GT" ) [] :| [] ) ) - ( LiteralChar Nothing '\x9' ) + ( LiteralChar Nothing '\x9' :| [] ) ) - ( LiteralChar Nothing ' ' ) + ( LiteralChar Nothing ' ' :| [] ) ) ) - ) ( LiteralBool Nothing True ) ( LiteralBool Nothing False ) - ) + ) ( LiteralBool Nothing True ) ( LiteralBool Nothing False ) :| [] + ) :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ) ) ) diff --git a/test/ps/output/Golden.Currying.Test/golden.ir b/test/ps/output/Golden.Currying.Test/golden.ir index 95e57eda..358bc54b 100644 --- a/test/ps/output/Golden.Currying.Test/golden.ir +++ b/test/ps/output/Golden.Currying.Test/golden.ir @@ -5,9 +5,9 @@ UberModule ( ParamNamed Nothing ( Name "f1$0" ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x$1" ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Local ( Name "f1$0" ) ) ) - ( Ref Nothing ( Local ( Name "x$1" ) ) ) + ( Ref Nothing ( Local ( Name "x$1" ) ) :| [] ) ) ) ), diff --git a/test/ps/output/Golden.DerivedFunctor.Test/golden.ir b/test/ps/output/Golden.DerivedFunctor.Test/golden.ir index e02e2943..17117e91 100644 --- a/test/ps/output/Golden.DerivedFunctor.Test/golden.ir +++ b/test/ps/output/Golden.DerivedFunctor.Test/golden.ir @@ -80,9 +80,9 @@ UberModule ( PropName "bindE" ) ), ( PropName "Apply0", Abs Nothing ( ParamUnused Nothing ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "Lazy_applyEffect" ) ) ) - ( LiteralInt Nothing 0 ) + ( LiteralInt Nothing 0 :| [] ) ) ) ] @@ -96,19 +96,19 @@ UberModule ( PropName "pureE" ) ), ( PropName "Apply0", Abs Nothing ( ParamUnused Nothing ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "Lazy_applyEffect" ) ) ) - ( LiteralInt Nothing 0 ) + ( LiteralInt Nothing 0 :| [] ) ) ) ] ), ( QName { qnameModuleName = ModuleName "Effect", qnameName = Name "Lazy_functorEffect" - }, App Nothing - ( App Nothing + }, AppN Nothing + ( AppN Nothing ( Ref Nothing ( Local ( Name "PSLUA_runtime_lazy" ) ) ) - ( LiteralString Nothing "functorEffect" ) + ( LiteralString Nothing "functorEffect" :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) ( LiteralObject Nothing @@ -117,10 +117,10 @@ UberModule ( ParamNamed Nothing ( Name "f$31" ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "a$32" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp Nothing - ( App Nothing + ( AppN Nothing ( ObjectProp Nothing ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "applicativeEffect" ) ) @@ -128,53 +128,58 @@ UberModule ( PropName "Apply0" ) ) ( Ref Nothing - ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) + ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ) ( PropName "apply" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Control.Applicative" ) ( Name "pure" ) ) ) ( Ref Nothing - ( Imported ( ModuleName "Effect" ) ( Name "applicativeEffect" ) ) + ( Imported + ( ModuleName "Effect" ) + ( Name "applicativeEffect" ) + ) :| [] ) ) - ( Ref Nothing ( Local ( Name "f$31" ) ) ) + ( Ref Nothing ( Local ( Name "f$31" ) ) :| [] ) :| [] ) ) - ( Ref Nothing ( Local ( Name "a$32" ) ) ) + ( Ref Nothing ( Local ( Name "a$32" ) ) :| [] ) ) ) ) ] - ) + ) :| [] ) ), ( QName { qnameModuleName = ModuleName "Effect", qnameName = Name "Lazy_applyEffect" - }, App Nothing - ( App Nothing + }, AppN Nothing + ( AppN Nothing ( Ref Nothing ( Local ( Name "PSLUA_runtime_lazy" ) ) ) - ( LiteralString Nothing "applyEffect" ) + ( LiteralString Nothing "applyEffect" :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) ( LiteralObject Nothing [ ( PropName "apply", Let Nothing ( Standalone - ( Nothing, Name "bind$10", App Nothing + ( Nothing, Name "bind$10", AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Control.Bind" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( ObjectProp Nothing ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "monadEffect" ) ) ) ( PropName "Bind1" ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing + ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] + ) :| [] ) ) :| [] ) @@ -182,29 +187,29 @@ UberModule ( ParamNamed Nothing ( Name "f$12" ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "a$13" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Local ( Name "bind$10" ) ) ) - ( Ref Nothing ( Local ( Name "f$12" ) ) ) + ( Ref Nothing ( Local ( Name "f$12" ) ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "f'$14" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Local ( Name "bind$10" ) ) ) - ( Ref Nothing ( Local ( Name "a$13" ) ) ) + ( Ref Nothing ( Local ( Name "a$13" ) ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "a'$15" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Control.Applicative" ) ( Name "pure" ) ) ) - ( App Nothing + ( AppN Nothing ( ObjectProp Nothing ( Ref Nothing ( Imported @@ -215,32 +220,35 @@ UberModule ( PropName "Applicative0" ) ) ( Ref Nothing - ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) - ) + ( Imported + ( ModuleName "Prim" ) + ( Name "undefined" ) + ) :| [] + ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Local ( Name "f'$14" ) ) ) - ( Ref Nothing ( Local ( Name "a'$15" ) ) ) + ( Ref Nothing ( Local ( Name "a'$15" ) ) :| [] ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) ) ) ) ), ( PropName "Functor0", Abs Nothing ( ParamUnused Nothing ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "Lazy_functorEffect" ) ) ) - ( LiteralInt Nothing 0 ) + ( LiteralInt Nothing 0 :| [] ) ) ) ] - ) + ) :| [] ) ) ] @@ -253,25 +261,25 @@ UberModule ), Standalone ( QName { qnameModuleName = ModuleName "Golden.DerivedFunctor.Test", qnameName = Name "discard" - }, App Nothing + }, AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Control.Bind" ) ( Name "bind" ) ) ) - ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "bindEffect" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "bindEffect" ) ) :| [] ) ), Standalone ( QName { qnameModuleName = ModuleName "Golden.DerivedFunctor.Test", qnameName = Name "logShow" }, Abs Nothing ( ParamNamed Nothing ( Name "a$5" ) ) - ( App Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) - ( App Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Data.Show" ) ( Name "foreign" ) ) ) ( PropName "showIntImpl" ) ) - ( Ref Nothing ( Local ( Name "a$5" ) ) ) + ( Ref Nothing ( Local ( Name "a$5" ) ) :| [] ) :| [] ) ) ), Standalone @@ -322,17 +330,17 @@ UberModule ( LiteralString Nothing "Golden.DerivedFunctor.Test∷Tree.Node" ) ( ReflectCtor Nothing ( Ref Nothing ( Local ( Name "v" ) ) ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.DerivedFunctor.Test" ) ( Name "add" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.DerivedFunctor.Test" ) ( Name "add" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.DerivedFunctor.Test" ) @@ -341,24 +349,24 @@ UberModule ) ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "v" ) ) ) - ( PropName "value0" ) - ) + ( PropName "value0" ) :| [] + ) :| [] ) ) ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "v" ) ) ) - ( PropName "value1" ) - ) + ( PropName "value1" ) :| [] + ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.DerivedFunctor.Test" ) ( Name "sumTree" ) ) ) ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "v" ) ) ) - ( PropName "value2" ) - ) + ( PropName "value2" ) :| [] + ) :| [] ) ) ( Exception Nothing "No patterns matched" ) @@ -388,15 +396,15 @@ UberModule ( LiteralString Nothing "Golden.DerivedFunctor.Test∷Tree.Node" ) ( ReflectCtor Nothing ( Ref Nothing ( Local ( Name "m" ) ) ) ) ) - ( App Nothing - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.DerivedFunctor.Test" ) ( Name "Node" ) ) ) - ( App Nothing - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Functor" ) ( Name "map" ) ) ) @@ -404,28 +412,28 @@ UberModule ( Imported ( ModuleName "Golden.DerivedFunctor.Test" ) ( Name "functorTree" ) - ) + ) :| [] ) ) - ( Ref Nothing ( Local ( Name "f" ) ) ) + ( Ref Nothing ( Local ( Name "f" ) ) :| [] ) ) ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "m" ) ) ) - ( PropName "value0" ) - ) + ( PropName "value0" ) :| [] + ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Local ( Name "f" ) ) ) ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "m" ) ) ) - ( PropName "value1" ) - ) + ( PropName "value1" ) :| [] + ) :| [] ) ) - ( App Nothing - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Functor" ) ( Name "map" ) ) ) @@ -433,15 +441,15 @@ UberModule ( Imported ( ModuleName "Golden.DerivedFunctor.Test" ) ( Name "functorTree" ) - ) + ) :| [] ) ) - ( Ref Nothing ( Local ( Name "f" ) ) ) + ( Ref Nothing ( Local ( Name "f" ) ) :| [] ) ) ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "m" ) ) ) - ( PropName "value2" ) - ) + ( PropName "value2" ) :| [] + ) :| [] ) ) ( Exception Nothing "No patterns matched" ) @@ -465,13 +473,13 @@ UberModule ( LiteralString Nothing "Golden.DerivedFunctor.Test∷Either.Left" ) ( ReflectCtor Nothing ( Ref Nothing ( Local ( Name "m" ) ) ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.DerivedFunctor.Test" ) ( Name "Left" ) ) ) ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "m" ) ) ) - ( PropName "value0" ) + ( PropName "value0" ) :| [] ) ) ( IfThenElse Nothing @@ -479,16 +487,16 @@ UberModule ( LiteralString Nothing "Golden.DerivedFunctor.Test∷Either.Right" ) ( ReflectCtor Nothing ( Ref Nothing ( Local ( Name "m" ) ) ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.DerivedFunctor.Test" ) ( Name "Right" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Local ( Name "f" ) ) ) ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "m" ) ) ) - ( PropName "value0" ) - ) + ( PropName "value0" ) :| [] + ) :| [] ) ) ( Exception Nothing "No patterns matched" ) @@ -500,10 +508,10 @@ UberModule ), Standalone ( QName { qnameModuleName = ModuleName "Golden.DerivedFunctor.Test", qnameName = Name "map1" - }, App Nothing + }, AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Functor" ) ( Name "map" ) ) ) ( Ref Nothing - ( Imported ( ModuleName "Golden.DerivedFunctor.Test" ) ( Name "functorEither" ) ) + ( Imported ( ModuleName "Golden.DerivedFunctor.Test" ) ( Name "functorEither" ) ) :| [] ) ), Standalone ( QName @@ -552,145 +560,145 @@ UberModule ( Name "main", Abs Nothing ( ParamUnused Nothing ) ( Let Nothing ( Standalone - ( Nothing, Name "_", App Nothing - ( App Nothing + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.DerivedFunctor.Test" ) ( Name "logShow" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.DerivedFunctor.Test" ) ( Name "fromRight" ) ) ) - ( LiteralInt Nothing 0 ) + ( LiteralInt Nothing 0 :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.DerivedFunctor.Test" ) ( Name "map1" ) ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "v$0" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.DerivedFunctor.Test" ) ( Name "add" ) ) ) - ( Ref Nothing ( Local ( Name "v$0" ) ) ) + ( Ref Nothing ( Local ( Name "v$0" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) + ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.DerivedFunctor.Test" ) ( Name "Right" ) ) ) - ( LiteralInt Nothing 41 ) - ) - ) + ( LiteralInt Nothing 41 :| [] ) :| [] + ) :| [] + ) :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ) :| [ Standalone - ( Nothing, Name "_", App Nothing - ( App Nothing + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.DerivedFunctor.Test" ) ( Name "logShow" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.DerivedFunctor.Test" ) ( Name "fromRight" ) ) ) - ( LiteralInt Nothing 7 ) + ( LiteralInt Nothing 7 :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.DerivedFunctor.Test" ) ( Name "map1" ) ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "v0$1" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.DerivedFunctor.Test" ) ( Name "add" ) ) ) - ( Ref Nothing ( Local ( Name "v0$1" ) ) ) + ( Ref Nothing ( Local ( Name "v0$1" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) + ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.DerivedFunctor.Test" ) ( Name "Left" ) ) ) - ( LiteralString Nothing "no" ) - ) - ) + ( LiteralString Nothing "no" :| [] ) :| [] + ) :| [] + ) :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ) ] ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.DerivedFunctor.Test" ) ( Name "logShow" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.DerivedFunctor.Test" ) ( Name "sumTree" ) ) ) - ( App Nothing - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Functor" ) ( Name "map" ) ) ) ( Ref Nothing ( Imported ( ModuleName "Golden.DerivedFunctor.Test" ) ( Name "functorTree" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "v1$2" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Semiring" ) ( Name "semiringInt" ) ) ) ( PropName "mul" ) ) - ( Ref Nothing ( Local ( Name "v1$2" ) ) ) + ( Ref Nothing ( Local ( Name "v1$2" ) ) :| [] ) ) - ( LiteralInt Nothing 2 ) - ) + ( LiteralInt Nothing 2 :| [] ) + ) :| [] ) ) - ( App Nothing - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.DerivedFunctor.Test" ) ( Name "Node" ) ) ) - ( App Nothing - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.DerivedFunctor.Test" ) @@ -701,39 +709,48 @@ UberModule ( Imported ( ModuleName "Golden.DerivedFunctor.Test" ) ( Name "Leaf" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) + ( LiteralInt Nothing 1 :| [] ) ) ( Ref Nothing - ( Imported ( ModuleName "Golden.DerivedFunctor.Test" ) ( Name "Leaf" ) ) - ) + ( Imported + ( ModuleName "Golden.DerivedFunctor.Test" ) + ( Name "Leaf" ) + ) :| [] + ) :| [] ) ) - ( LiteralInt Nothing 2 ) + ( LiteralInt Nothing 2 :| [] ) ) - ( App Nothing - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.DerivedFunctor.Test" ) ( Name "Node" ) ) ) ( Ref Nothing - ( Imported ( ModuleName "Golden.DerivedFunctor.Test" ) ( Name "Leaf" ) ) + ( Imported + ( ModuleName "Golden.DerivedFunctor.Test" ) + ( Name "Leaf" ) + ) :| [] ) ) - ( LiteralInt Nothing 3 ) + ( LiteralInt Nothing 3 :| [] ) ) ( Ref Nothing - ( Imported ( ModuleName "Golden.DerivedFunctor.Test" ) ( Name "Leaf" ) ) - ) - ) - ) - ) + ( Imported + ( ModuleName "Golden.DerivedFunctor.Test" ) + ( Name "Leaf" ) + ) :| [] + ) :| [] + ) :| [] + ) :| [] + ) :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ) ) ), diff --git a/test/ps/output/Golden.Fibonacci.Test/golden.ir b/test/ps/output/Golden.Fibonacci.Test/golden.ir index 006b9d66..15f4c2a6 100644 --- a/test/ps/output/Golden.Fibonacci.Test/golden.ir +++ b/test/ps/output/Golden.Fibonacci.Test/golden.ir @@ -36,44 +36,44 @@ UberModule ( IfThenElse Nothing ( Eq Nothing ( LiteralInt Nothing 1 ) ( Ref Nothing ( Local ( Name "v" ) ) ) ) ( LiteralInt Nothing 1 ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Data.Semiring" ) ( Name "foreign" ) ) ) ( PropName "intAdd" ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.Fibonacci.Test" ) ( Name "fib" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Data.Ring" ) ( Name "foreign" ) ) ) ( PropName "intSub" ) ) - ( Ref Nothing ( Local ( Name "v" ) ) ) + ( Ref Nothing ( Local ( Name "v" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.Fibonacci.Test" ) ( Name "fib" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Data.Ring" ) ( Name "foreign" ) ) ) ( PropName "intSub" ) ) - ( Ref Nothing ( Local ( Name "v" ) ) ) + ( Ref Nothing ( Local ( Name "v" ) ) :| [] ) ) - ( LiteralInt Nothing 2 ) - ) + ( LiteralInt Nothing 2 :| [] ) :| [] + ) :| [] ) ) ) @@ -85,20 +85,20 @@ UberModule ( Name "fib", Ref Nothing ( Imported ( ModuleName "Golden.Fibonacci.Test" ) ( Name "fib" ) ) ), - ( Name "main", App Nothing + ( Name "main", AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) - ( App Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Data.Show" ) ( Name "foreign" ) ) ) ( PropName "showIntImpl" ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.Fibonacci.Test" ) ( Name "fib" ) ) ) - ( LiteralInt Nothing 32 ) - ) + ( LiteralInt Nothing 32 :| [] ) :| [] + ) :| [] ) ) ] diff --git a/test/ps/output/Golden.FloatIn.Test/golden.ir b/test/ps/output/Golden.FloatIn.Test/golden.ir index 5c8131fe..e7f725a7 100644 --- a/test/ps/output/Golden.FloatIn.Test/golden.ir +++ b/test/ps/output/Golden.FloatIn.Test/golden.ir @@ -87,9 +87,9 @@ UberModule ( PropName "bindE" ) ), ( PropName "Apply0", Abs Nothing ( ParamUnused Nothing ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "Lazy_applyEffect" ) ) ) - ( LiteralInt Nothing 0 ) + ( LiteralInt Nothing 0 :| [] ) ) ) ] @@ -103,19 +103,19 @@ UberModule ( PropName "pureE" ) ), ( PropName "Apply0", Abs Nothing ( ParamUnused Nothing ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "Lazy_applyEffect" ) ) ) - ( LiteralInt Nothing 0 ) + ( LiteralInt Nothing 0 :| [] ) ) ) ] ), ( QName { qnameModuleName = ModuleName "Effect", qnameName = Name "Lazy_functorEffect" - }, App Nothing - ( App Nothing + }, AppN Nothing + ( AppN Nothing ( Ref Nothing ( Local ( Name "PSLUA_runtime_lazy" ) ) ) - ( LiteralString Nothing "functorEffect" ) + ( LiteralString Nothing "functorEffect" :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) ( LiteralObject Nothing @@ -124,10 +124,10 @@ UberModule ( ParamNamed Nothing ( Name "f$28" ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "a$29" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp Nothing - ( App Nothing + ( AppN Nothing ( ObjectProp Nothing ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "applicativeEffect" ) ) @@ -135,53 +135,58 @@ UberModule ( PropName "Apply0" ) ) ( Ref Nothing - ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) + ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ) ( PropName "apply" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Control.Applicative" ) ( Name "pure" ) ) ) ( Ref Nothing - ( Imported ( ModuleName "Effect" ) ( Name "applicativeEffect" ) ) + ( Imported + ( ModuleName "Effect" ) + ( Name "applicativeEffect" ) + ) :| [] ) ) - ( Ref Nothing ( Local ( Name "f$28" ) ) ) + ( Ref Nothing ( Local ( Name "f$28" ) ) :| [] ) :| [] ) ) - ( Ref Nothing ( Local ( Name "a$29" ) ) ) + ( Ref Nothing ( Local ( Name "a$29" ) ) :| [] ) ) ) ) ] - ) + ) :| [] ) ), ( QName { qnameModuleName = ModuleName "Effect", qnameName = Name "Lazy_applyEffect" - }, App Nothing - ( App Nothing + }, AppN Nothing + ( AppN Nothing ( Ref Nothing ( Local ( Name "PSLUA_runtime_lazy" ) ) ) - ( LiteralString Nothing "applyEffect" ) + ( LiteralString Nothing "applyEffect" :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) ( LiteralObject Nothing [ ( PropName "apply", Let Nothing ( Standalone - ( Nothing, Name "bind$7", App Nothing + ( Nothing, Name "bind$7", AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Control.Bind" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( ObjectProp Nothing ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "monadEffect" ) ) ) ( PropName "Bind1" ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing + ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] + ) :| [] ) ) :| [] ) @@ -189,29 +194,29 @@ UberModule ( ParamNamed Nothing ( Name "f$9" ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "a$10" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Local ( Name "bind$7" ) ) ) - ( Ref Nothing ( Local ( Name "f$9" ) ) ) + ( Ref Nothing ( Local ( Name "f$9" ) ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "f'$11" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Local ( Name "bind$7" ) ) ) - ( Ref Nothing ( Local ( Name "a$10" ) ) ) + ( Ref Nothing ( Local ( Name "a$10" ) ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "a'$12" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Control.Applicative" ) ( Name "pure" ) ) ) - ( App Nothing + ( AppN Nothing ( ObjectProp Nothing ( Ref Nothing ( Imported @@ -222,32 +227,35 @@ UberModule ( PropName "Applicative0" ) ) ( Ref Nothing - ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) - ) + ( Imported + ( ModuleName "Prim" ) + ( Name "undefined" ) + ) :| [] + ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Local ( Name "f'$11" ) ) ) - ( Ref Nothing ( Local ( Name "a'$12" ) ) ) + ( Ref Nothing ( Local ( Name "a'$12" ) ) :| [] ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) ) ) ) ), ( PropName "Functor0", Abs Nothing ( ParamUnused Nothing ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "Lazy_functorEffect" ) ) ) - ( LiteralInt Nothing 0 ) + ( LiteralInt Nothing 0 :| [] ) ) ) ] - ) + ) :| [] ) ) ] @@ -260,25 +268,25 @@ UberModule ), Standalone ( QName { qnameModuleName = ModuleName "Golden.FloatIn.Test", qnameName = Name "discard" - }, App Nothing + }, AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Control.Bind" ) ( Name "bind" ) ) ) - ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "bindEffect" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "bindEffect" ) ) :| [] ) ), Standalone ( QName { qnameModuleName = ModuleName "Golden.FloatIn.Test", qnameName = Name "logShow" }, Abs Nothing ( ParamNamed Nothing ( Name "a$2" ) ) - ( App Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) - ( App Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Data.Show" ) ( Name "foreign" ) ) ) ( PropName "showIntImpl" ) ) - ( Ref Nothing ( Local ( Name "a$2" ) ) ) + ( Ref Nothing ( Local ( Name "a$2" ) ) :| [] ) :| [] ) ) ), Standalone @@ -292,49 +300,49 @@ UberModule ( Ref Nothing ( Local ( Name "useIt" ) ) ) ( Let Nothing ( Standalone - ( Nothing, Name "shared", App Nothing + ( Nothing, Name "shared", AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Golden.FloatIn.Test" ) ( Name "foreign" ) ) ) ( PropName "tick" ) ) - ( Ref Nothing ( Local ( Name "n" ) ) ) + ( Ref Nothing ( Local ( Name "n" ) ) :| [] ) ) :| [] ) ( Let Nothing ( Standalone ( Nothing, Name "f", Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.FloatIn.Test" ) ( Name "add" ) ) ) - ( Ref Nothing ( Local ( Name "shared" ) ) ) + ( Ref Nothing ( Local ( Name "shared" ) ) :| [] ) ) - ( Ref Nothing ( Local ( Name "shared" ) ) ) + ( Ref Nothing ( Local ( Name "shared" ) ) :| [] ) ) ) :| [] ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.FloatIn.Test" ) ( Name "add" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Local ( Name "f" ) ) ) ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Data.Unit" ) ( Name "foreign" ) ) ) - ( PropName "unit" ) - ) + ( PropName "unit" ) :| [] + ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Local ( Name "f" ) ) ) ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Data.Unit" ) ( Name "foreign" ) ) ) - ( PropName "unit" ) - ) + ( PropName "unit" ) :| [] + ) :| [] ) ) ) @@ -347,23 +355,23 @@ UberModule { qnameModuleName = ModuleName "Golden.FloatIn.Test", qnameName = Name "expensive" }, Abs Nothing ( ParamNamed Nothing ( Name "x" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.FloatIn.Test" ) ( Name "add" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Semiring" ) ( Name "semiringInt" ) ) ) ( PropName "mul" ) ) - ( Ref Nothing ( Local ( Name "x" ) ) ) + ( Ref Nothing ( Local ( Name "x" ) ) :| [] ) ) - ( Ref Nothing ( Local ( Name "x" ) ) ) + ( Ref Nothing ( Local ( Name "x" ) ) :| [] ) :| [] ) ) - ( LiteralInt Nothing 1 ) + ( LiteralInt Nothing 1 :| [] ) ) ), Standalone ( QName @@ -376,19 +384,19 @@ UberModule ( Ref Nothing ( Local ( Name "useIt" ) ) ) ( Let Nothing ( Standalone - ( Nothing, Name "shared", App Nothing + ( Nothing, Name "shared", AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.FloatIn.Test" ) ( Name "expensive" ) ) ) - ( Ref Nothing ( Local ( Name "n" ) ) ) + ( Ref Nothing ( Local ( Name "n" ) ) :| [] ) ) :| [] ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.FloatIn.Test" ) ( Name "add" ) ) ) - ( Ref Nothing ( Local ( Name "shared" ) ) ) + ( Ref Nothing ( Local ( Name "shared" ) ) :| [] ) ) - ( Ref Nothing ( Local ( Name "shared" ) ) ) + ( Ref Nothing ( Local ( Name "shared" ) ) :| [] ) ) ) ( LiteralInt Nothing 0 ) @@ -413,70 +421,74 @@ UberModule ( Name "main", Abs Nothing ( ParamUnused Nothing ) ( Let Nothing ( Standalone - ( Nothing, Name "_", App Nothing - ( App Nothing + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.FloatIn.Test" ) ( Name "logShow" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.FloatIn.Test" ) ( Name "pick" ) ) - ) ( LiteralBool Nothing True ) + ) + ( LiteralBool Nothing True :| [] ) ) - ( LiteralInt Nothing 3 ) + ( LiteralInt Nothing 3 :| [] ) :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ) :| [ Standalone - ( Nothing, Name "_", App Nothing - ( App Nothing + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.FloatIn.Test" ) ( Name "logShow" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.FloatIn.Test" ) ( Name "pick" ) ) - ) ( LiteralBool Nothing False ) + ) + ( LiteralBool Nothing False :| [] ) ) - ( LiteralInt Nothing 3 ) + ( LiteralInt Nothing 3 :| [] ) :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ), Standalone - ( Nothing, Name "_", App Nothing - ( App Nothing + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.FloatIn.Test" ) ( Name "logShow" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.FloatIn.Test" ) ( Name "pickShared" ) ) - ) ( LiteralBool Nothing True ) + ) + ( LiteralBool Nothing True :| [] ) ) - ( LiteralInt Nothing 3 ) + ( LiteralInt Nothing 3 :| [] ) :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ) ] ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.FloatIn.Test" ) ( Name "logShow" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.FloatIn.Test" ) ( Name "pickShared" ) ) - ) ( LiteralBool Nothing False ) + ) + ( LiteralBool Nothing False :| [] ) ) - ( LiteralInt Nothing 3 ) + ( LiteralInt Nothing 3 :| [] ) :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ) ) ) diff --git a/test/ps/output/Golden.ForeignSharing.Test/golden.ir b/test/ps/output/Golden.ForeignSharing.Test/golden.ir index e163a38b..2297dffc 100644 --- a/test/ps/output/Golden.ForeignSharing.Test/golden.ir +++ b/test/ps/output/Golden.ForeignSharing.Test/golden.ir @@ -31,36 +31,36 @@ UberModule ) ], uberModuleForeigns = [], uberModuleExports = [ - ( Name "main", App Nothing + ( Name "main", AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) ( IfThenElse Nothing - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Golden.ForeignSharing.Test" ) ( Name "foreign" ) ) ) ( PropName "same" ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.ForeignSharing.Test" ) ( Name "sharedToken" ) ) ) - ( LiteralInt Nothing 0 ) + ( LiteralInt Nothing 0 :| [] ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.ForeignSharing.Test" ) ( Name "sharedToken" ) ) ) - ( LiteralInt Nothing 1 ) + ( LiteralInt Nothing 1 :| [] ) :| [] ) ) ( LiteralString Nothing "shared" ) - ( LiteralString Nothing "fresh" ) + ( LiteralString Nothing "fresh" ) :| [] ) ) ] diff --git a/test/ps/output/Golden.GenericEqTwoTypes.Test/golden.ir b/test/ps/output/Golden.GenericEqTwoTypes.Test/golden.ir index 1de09ec4..fd5e5e75 100644 --- a/test/ps/output/Golden.GenericEqTwoTypes.Test/golden.ir +++ b/test/ps/output/Golden.GenericEqTwoTypes.Test/golden.ir @@ -49,8 +49,8 @@ UberModule ( ParamNamed Nothing ( Name "a" ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "b" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp Nothing ( Ref Nothing ( Imported @@ -60,7 +60,7 @@ UberModule ) ( PropName "disj" ) ) - ( App Nothing + ( AppN Nothing ( ObjectProp Nothing ( Ref Nothing ( Imported @@ -70,10 +70,10 @@ UberModule ) ( PropName "not" ) ) - ( Ref Nothing ( Local ( Name "a" ) ) ) + ( Ref Nothing ( Local ( Name "a" ) ) :| [] ) :| [] ) ) - ( Ref Nothing ( Local ( Name "b" ) ) ) + ( Ref Nothing ( Local ( Name "b" ) ) :| [] ) ) ) ), @@ -128,29 +128,29 @@ UberModule ( ParamNamed Nothing ( Name "rb" ) ) ( Let Nothing ( Standalone - ( Nothing, Name "key", App Nothing + ( Nothing, Name "key", AppN Nothing ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "dictIsSymbol" ) ) ) ( PropName "reflectSymbol" ) ) ( Ref Nothing - ( Imported ( ModuleName "Type.Proxy" ) ( Name "Proxy" ) ) + ( Imported ( ModuleName "Type.Proxy" ) ( Name "Proxy" ) ) :| [] ) ) :| [ Standalone - ( Nothing, Name "get", App Nothing + ( Nothing, Name "get", AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Record.Unsafe" ) ( Name "foreign" ) ) ) ( PropName "unsafeGet" ) ) - ( Ref Nothing ( Local ( Name "key" ) ) ) + ( Ref Nothing ( Local ( Name "key" ) ) :| [] ) ) ] ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp Nothing ( Ref Nothing ( Imported @@ -160,41 +160,41 @@ UberModule ) ( PropName "conj" ) ) - ( App Nothing - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Eq" ) ( Name "eq" ) ) ) - ( Ref Nothing ( Local ( Name "dictEq" ) ) ) + ( Ref Nothing ( Local ( Name "dictEq" ) ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Local ( Name "get" ) ) ) - ( Ref Nothing ( Local ( Name "ra" ) ) ) + ( Ref Nothing ( Local ( Name "ra" ) ) :| [] ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Local ( Name "get" ) ) ) - ( Ref Nothing ( Local ( Name "rb" ) ) ) - ) + ( Ref Nothing ( Local ( Name "rb" ) ) :| [] ) :| [] + ) :| [] ) ) - ( App Nothing - ( App Nothing - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Eq" ) ( Name "eqRecord" ) ) ) - ( Ref Nothing ( Local ( Name "dictEqRecord" ) ) ) + ( Ref Nothing ( Local ( Name "dictEqRecord" ) ) :| [] ) ) ( Ref Nothing - ( Imported ( ModuleName "Type.Proxy" ) ( Name "Proxy" ) ) + ( Imported ( ModuleName "Type.Proxy" ) ( Name "Proxy" ) ) :| [] ) ) - ( Ref Nothing ( Local ( Name "ra" ) ) ) + ( Ref Nothing ( Local ( Name "ra" ) ) :| [] ) ) - ( Ref Nothing ( Local ( Name "rb" ) ) ) + ( Ref Nothing ( Local ( Name "rb" ) ) :| [] ) :| [] ) ) ) @@ -251,15 +251,15 @@ UberModule ( ParamNamed Nothing ( Name "v" ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "v1" ) ) - ( App Nothing - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Eq" ) ( Name "eq" ) ) ) - ( Ref Nothing ( Local ( Name "dictEq" ) ) ) + ( Ref Nothing ( Local ( Name "dictEq" ) ) :| [] ) ) - ( Ref Nothing ( Local ( Name "v" ) ) ) + ( Ref Nothing ( Local ( Name "v" ) ) :| [] ) ) - ( Ref Nothing ( Local ( Name "v1" ) ) ) + ( Ref Nothing ( Local ( Name "v1" ) ) :| [] ) ) ) ) @@ -282,17 +282,17 @@ UberModule ( ParamNamed Nothing ( Name "v" ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "v1" ) ) - ( App Nothing - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Eq.Generic" ) ( Name "genericEq'" ) ) ) - ( Ref Nothing ( Local ( Name "dictGenericEq" ) ) ) + ( Ref Nothing ( Local ( Name "dictGenericEq" ) ) :| [] ) ) - ( Ref Nothing ( Local ( Name "v" ) ) ) + ( Ref Nothing ( Local ( Name "v" ) ) :| [] ) ) - ( Ref Nothing ( Local ( Name "v1" ) ) ) + ( Ref Nothing ( Local ( Name "v1" ) ) :| [] ) ) ) ) @@ -316,22 +316,22 @@ UberModule ( ParamNamed Nothing ( Name "x" ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "y" ) ) - ( App Nothing - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Eq.Generic" ) ( Name "genericEq'" ) ) ) - ( Ref Nothing ( Local ( Name "dictGenericEq" ) ) ) + ( Ref Nothing ( Local ( Name "dictGenericEq" ) ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Local ( Name "from" ) ) ) - ( Ref Nothing ( Local ( Name "x" ) ) ) + ( Ref Nothing ( Local ( Name "x" ) ) :| [] ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Local ( Name "from" ) ) ) - ( Ref Nothing ( Local ( Name "y" ) ) ) + ( Ref Nothing ( Local ( Name "y" ) ) :| [] ) :| [] ) ) ) @@ -362,9 +362,9 @@ UberModule ( PropName "bindE" ) ), ( PropName "Apply0", Abs Nothing ( ParamUnused Nothing ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "Lazy_applyEffect" ) ) ) - ( LiteralInt Nothing 0 ) + ( LiteralInt Nothing 0 :| [] ) ) ) ] @@ -378,19 +378,19 @@ UberModule ( PropName "pureE" ) ), ( PropName "Apply0", Abs Nothing ( ParamUnused Nothing ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "Lazy_applyEffect" ) ) ) - ( LiteralInt Nothing 0 ) + ( LiteralInt Nothing 0 :| [] ) ) ) ] ), ( QName { qnameModuleName = ModuleName "Effect", qnameName = Name "Lazy_functorEffect" - }, App Nothing - ( App Nothing + }, AppN Nothing + ( AppN Nothing ( Ref Nothing ( Local ( Name "PSLUA_runtime_lazy" ) ) ) - ( LiteralString Nothing "functorEffect" ) + ( LiteralString Nothing "functorEffect" :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) ( LiteralObject Nothing @@ -399,10 +399,10 @@ UberModule ( ParamNamed Nothing ( Name "f$42" ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "a$43" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp Nothing - ( App Nothing + ( AppN Nothing ( ObjectProp Nothing ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "applicativeEffect" ) ) @@ -410,53 +410,58 @@ UberModule ( PropName "Apply0" ) ) ( Ref Nothing - ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) + ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ) ( PropName "apply" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Control.Applicative" ) ( Name "pure" ) ) ) ( Ref Nothing - ( Imported ( ModuleName "Effect" ) ( Name "applicativeEffect" ) ) + ( Imported + ( ModuleName "Effect" ) + ( Name "applicativeEffect" ) + ) :| [] ) ) - ( Ref Nothing ( Local ( Name "f$42" ) ) ) + ( Ref Nothing ( Local ( Name "f$42" ) ) :| [] ) :| [] ) ) - ( Ref Nothing ( Local ( Name "a$43" ) ) ) + ( Ref Nothing ( Local ( Name "a$43" ) ) :| [] ) ) ) ) ] - ) + ) :| [] ) ), ( QName { qnameModuleName = ModuleName "Effect", qnameName = Name "Lazy_applyEffect" - }, App Nothing - ( App Nothing + }, AppN Nothing + ( AppN Nothing ( Ref Nothing ( Local ( Name "PSLUA_runtime_lazy" ) ) ) - ( LiteralString Nothing "applyEffect" ) + ( LiteralString Nothing "applyEffect" :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) ( LiteralObject Nothing [ ( PropName "apply", Let Nothing ( Standalone - ( Nothing, Name "bind$21", App Nothing + ( Nothing, Name "bind$21", AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Control.Bind" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( ObjectProp Nothing ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "monadEffect" ) ) ) ( PropName "Bind1" ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing + ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] + ) :| [] ) ) :| [] ) @@ -464,29 +469,29 @@ UberModule ( ParamNamed Nothing ( Name "f$23" ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "a$24" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Local ( Name "bind$21" ) ) ) - ( Ref Nothing ( Local ( Name "f$23" ) ) ) + ( Ref Nothing ( Local ( Name "f$23" ) ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "f'$25" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Local ( Name "bind$21" ) ) ) - ( Ref Nothing ( Local ( Name "a$24" ) ) ) + ( Ref Nothing ( Local ( Name "a$24" ) ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "a'$26" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Control.Applicative" ) ( Name "pure" ) ) ) - ( App Nothing + ( AppN Nothing ( ObjectProp Nothing ( Ref Nothing ( Imported @@ -497,32 +502,35 @@ UberModule ( PropName "Applicative0" ) ) ( Ref Nothing - ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) - ) + ( Imported + ( ModuleName "Prim" ) + ( Name "undefined" ) + ) :| [] + ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Local ( Name "f'$25" ) ) ) - ( Ref Nothing ( Local ( Name "a'$26" ) ) ) + ( Ref Nothing ( Local ( Name "a'$26" ) ) :| [] ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) ) ) ) ), ( PropName "Functor0", Abs Nothing ( ParamUnused Nothing ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "Lazy_functorEffect" ) ) ) - ( LiteralInt Nothing 0 ) + ( LiteralInt Nothing 0 :| [] ) ) ) ] - ) + ) :| [] ) ) ] @@ -547,13 +555,13 @@ UberModule ( LiteralString Nothing "Data.Generic.Rep∷Sum.Inl" ) ( ReflectCtor Nothing ( Ref Nothing ( Local ( Name "v1$8" ) ) ) ) ) - ( App Nothing - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Eq.Generic" ) ( Name "genericEq'" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Eq.Generic" ) @@ -565,18 +573,18 @@ UberModule ( PropName "genericEq'", Abs Nothing ( ParamUnused Nothing ) ( Abs Nothing ( ParamUnused Nothing ) ( LiteralBool Nothing True ) ) ) - ] - ) + ] :| [] + ) :| [] ) ) ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "v$7" ) ) ) - ( PropName "value0" ) + ( PropName "value0" ) :| [] ) ) ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "v1$8" ) ) ) - ( PropName "value0" ) + ( PropName "value0" ) :| [] ) ) ( LiteralBool Nothing False ) ) @@ -590,22 +598,22 @@ UberModule ( LiteralString Nothing "Data.Generic.Rep∷Sum.Inr" ) ( ReflectCtor Nothing ( Ref Nothing ( Local ( Name "v1$8" ) ) ) ) ) - ( App Nothing - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Eq.Generic" ) ( Name "genericEq'" ) ) ) - ( Ref Nothing ( Local ( Name "dictGenericEq1$5" ) ) ) + ( Ref Nothing ( Local ( Name "dictGenericEq1$5" ) ) :| [] ) ) ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "v$7" ) ) ) - ( PropName "value0" ) + ( PropName "value0" ) :| [] ) ) ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "v1$8" ) ) ) - ( PropName "value0" ) + ( PropName "value0" ) :| [] ) ) ( LiteralBool Nothing False ) ) ( LiteralBool Nothing False ) @@ -622,20 +630,20 @@ UberModule ( ParamNamed Nothing ( Name "dictEqRecord$193" ) ) ( LiteralObject Nothing [ - ( PropName "eq", App Nothing - ( App Nothing + ( PropName "eq", AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Eq" ) ( Name "eqRecord" ) ) ) - ( Ref Nothing ( Local ( Name "dictEqRecord$193" ) ) ) + ( Ref Nothing ( Local ( Name "dictEqRecord$193" ) ) :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Type.Proxy" ) ( Name "Proxy" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Type.Proxy" ) ( Name "Proxy" ) ) :| [] ) ) ] ) ), Standalone ( QName { qnameModuleName = ModuleName "Golden.GenericEqTwoTypes.Test", qnameName = Name "eqRowCons" - }, App Nothing - ( App Nothing + }, AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Eq" ) ( Name "eqRowCons" ) ) ) ( LiteralObject Nothing [ @@ -644,22 +652,22 @@ UberModule ( Abs Nothing ( ParamUnused Nothing ) ( LiteralBool Nothing True ) ) ) ) - ] + ] :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ), Standalone ( QName { qnameModuleName = ModuleName "Golden.GenericEqTwoTypes.Test", qnameName = Name "discard" - }, App Nothing + }, AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Control.Bind" ) ( Name "bind" ) ) ) - ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "bindEffect" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "bindEffect" ) ) :| [] ) ), Standalone ( QName { qnameModuleName = ModuleName "Golden.GenericEqTwoTypes.Test", qnameName = Name "logShow" }, Abs Nothing ( ParamNamed Nothing ( Name "a$2" ) ) - ( App Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) @@ -671,7 +679,7 @@ UberModule ( Eq Nothing ( LiteralBool Nothing False ) ( Ref Nothing ( Local ( Name "a$2" ) ) ) ) ( LiteralString Nothing "false" ) ( Exception Nothing "No patterns matched" ) - ) + ) :| [] ) ) ), Standalone @@ -713,7 +721,7 @@ UberModule ( ParamNamed Nothing ( Name "value" ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "right" ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.GenericEqTwoTypes.Test" ) ( Name "Node" ) ) ) @@ -722,7 +730,7 @@ UberModule ( PropName "left", Ref Nothing ( Local ( Name "left" ) ) ), ( PropName "value", Ref Nothing ( Local ( Name "value" ) ) ), ( PropName "right", Ref Nothing ( Local ( Name "right" ) ) ) - ] + ] :| [] ) ) ) @@ -747,13 +755,13 @@ UberModule ( LiteralString Nothing "Data.Generic.Rep∷Sum.Inr" ) ( ReflectCtor Nothing ( Ref Nothing ( Local ( Name "x" ) ) ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.GenericEqTwoTypes.Test" ) ( Name "Node" ) ) ) ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "x" ) ) ) - ( PropName "value0" ) + ( PropName "value0" ) :| [] ) ) ( Exception Nothing "No patterns matched" ) @@ -767,10 +775,10 @@ UberModule ( LiteralString Nothing "Golden.GenericEqTwoTypes.Test∷Tree.Leaf" ) ( ReflectCtor Nothing ( Ref Nothing ( Local ( Name "x0" ) ) ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Generic.Rep" ) ( Name "Inl" ) ) ) ( Ref Nothing - ( Imported ( ModuleName "Data.Generic.Rep" ) ( Name "NoArguments" ) ) + ( Imported ( ModuleName "Data.Generic.Rep" ) ( Name "NoArguments" ) ) :| [] ) ) ( IfThenElse Nothing @@ -778,11 +786,11 @@ UberModule ( LiteralString Nothing "Golden.GenericEqTwoTypes.Test∷Tree.Node" ) ( ReflectCtor Nothing ( Ref Nothing ( Local ( Name "x0" ) ) ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Generic.Rep" ) ( Name "Inr" ) ) ) ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "x0" ) ) ) - ( PropName "value0" ) + ( PropName "value0" ) :| [] ) ) ( Exception Nothing "No patterns matched" ) @@ -810,13 +818,13 @@ UberModule ( LiteralString Nothing "Data.Generic.Rep∷Sum.Inr" ) ( ReflectCtor Nothing ( Ref Nothing ( Local ( Name "x" ) ) ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.GenericEqTwoTypes.Test" ) ( Name "Cons" ) ) ) ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "x" ) ) ) - ( PropName "value0" ) + ( PropName "value0" ) :| [] ) ) ( Exception Nothing "No patterns matched" ) @@ -830,10 +838,10 @@ UberModule ( LiteralString Nothing "Golden.GenericEqTwoTypes.Test∷List.Nil" ) ( ReflectCtor Nothing ( Ref Nothing ( Local ( Name "x0" ) ) ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Generic.Rep" ) ( Name "Inl" ) ) ) ( Ref Nothing - ( Imported ( ModuleName "Data.Generic.Rep" ) ( Name "NoArguments" ) ) + ( Imported ( ModuleName "Data.Generic.Rep" ) ( Name "NoArguments" ) ) :| [] ) ) ( IfThenElse Nothing @@ -841,11 +849,11 @@ UberModule ( LiteralString Nothing "Golden.GenericEqTwoTypes.Test∷List.Cons" ) ( ReflectCtor Nothing ( Ref Nothing ( Local ( Name "x0" ) ) ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Generic.Rep" ) ( Name "Inr" ) ) ) ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "x0" ) ) ) - ( PropName "value0" ) + ( PropName "value0" ) :| [] ) ) ( Exception Nothing "No patterns matched" ) @@ -865,10 +873,10 @@ UberModule ( ParamNamed Nothing ( Name "x" ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "y" ) ) - ( App Nothing - ( App Nothing - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Eq.Generic" ) ( Name "genericEq" ) ) ) @@ -876,56 +884,56 @@ UberModule ( Imported ( ModuleName "Golden.GenericEqTwoTypes.Test" ) ( Name "genericTree" ) - ) + ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.GenericEqTwoTypes.Test" ) ( Name "genericEqSum" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Eq.Generic" ) ( Name "genericEqConstructor" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Eq.Generic" ) ( Name "genericEqArgument" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.GenericEqTwoTypes.Test" ) ( Name "eqRec" ) ) ) - ( App Nothing - ( App Nothing - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Eq" ) ( Name "eqRowCons" ) ) ) - ( App Nothing - ( App Nothing - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Eq" ) ( Name "eqRowCons" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.GenericEqTwoTypes.Test" ) @@ -937,17 +945,19 @@ UberModule ( PropName "reflectSymbol", Abs Nothing ( ParamUnused Nothing ) ( LiteralString Nothing "value" ) ) - ] + ] :| [] ) ) - ( Ref Nothing ( Local ( Name "dictEq" ) ) ) + ( Ref Nothing + ( Local ( Name "dictEq" ) ) :| [] + ) :| [] ) ) ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) - ) + ) :| [] ) ) ( LiteralObject Nothing @@ -955,22 +965,25 @@ UberModule ( PropName "reflectSymbol", Abs Nothing ( ParamUnused Nothing ) ( LiteralString Nothing "right" ) ) - ] + ] :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.GenericEqTwoTypes.Test" ) ( Name "eqTree" ) ) ) - ( Ref Nothing ( Local ( Name "dictEq" ) ) ) - ) + ( Ref Nothing ( Local ( Name "dictEq" ) ) :| [] ) :| [] + ) :| [] ) ) ( Ref Nothing - ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) + ( Imported + ( ModuleName "Prim" ) + ( Name "undefined" ) + ) :| [] ) ) ( LiteralObject Nothing @@ -978,27 +991,27 @@ UberModule ( PropName "reflectSymbol", Abs Nothing ( ParamUnused Nothing ) ( LiteralString Nothing "left" ) ) - ] + ] :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.GenericEqTwoTypes.Test" ) ( Name "eqTree" ) ) ) - ( Ref Nothing ( Local ( Name "dictEq" ) ) ) - ) - ) - ) - ) - ) + ( Ref Nothing ( Local ( Name "dictEq" ) ) :| [] ) :| [] + ) :| [] + ) :| [] + ) :| [] + ) :| [] + ) :| [] ) ) - ( Ref Nothing ( Local ( Name "x" ) ) ) + ( Ref Nothing ( Local ( Name "x" ) ) :| [] ) ) - ( Ref Nothing ( Local ( Name "y" ) ) ) + ( Ref Nothing ( Local ( Name "y" ) ) :| [] ) ) ) ) @@ -1008,13 +1021,13 @@ UberModule ), Standalone ( QName { qnameModuleName = ModuleName "Golden.GenericEqTwoTypes.Test", qnameName = Name "eq" - }, App Nothing + }, AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Eq" ) ( Name "eq" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.GenericEqTwoTypes.Test" ) ( Name "eqTree" ) ) ) - ( Ref Nothing ( Imported ( ModuleName "Data.Eq" ) ( Name "eqInt" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Data.Eq" ) ( Name "eqInt" ) ) :| [] ) :| [] ) ), RecursiveGroup ( @@ -1028,10 +1041,10 @@ UberModule ( ParamNamed Nothing ( Name "x" ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "y" ) ) - ( App Nothing - ( App Nothing - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Eq.Generic" ) ( Name "genericEq" ) ) ) @@ -1039,46 +1052,46 @@ UberModule ( Imported ( ModuleName "Golden.GenericEqTwoTypes.Test" ) ( Name "genericList" ) - ) + ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.GenericEqTwoTypes.Test" ) ( Name "genericEqSum" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Eq.Generic" ) ( Name "genericEqConstructor" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Eq.Generic" ) ( Name "genericEqArgument" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.GenericEqTwoTypes.Test" ) ( Name "eqRec" ) ) ) - ( App Nothing - ( App Nothing - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Eq" ) ( Name "eqRowCons" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.GenericEqTwoTypes.Test" ) @@ -1090,22 +1103,25 @@ UberModule ( PropName "reflectSymbol", Abs Nothing ( ParamUnused Nothing ) ( LiteralString Nothing "tail" ) ) - ] + ] :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.GenericEqTwoTypes.Test" ) ( Name "eqList" ) ) ) - ( Ref Nothing ( Local ( Name "dictEq" ) ) ) - ) + ( Ref Nothing ( Local ( Name "dictEq" ) ) :| [] ) :| [] + ) :| [] ) ) ( Ref Nothing - ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) + ( Imported + ( ModuleName "Prim" ) + ( Name "undefined" ) + ) :| [] ) ) ( LiteralObject Nothing @@ -1113,19 +1129,19 @@ UberModule ( PropName "reflectSymbol", Abs Nothing ( ParamUnused Nothing ) ( LiteralString Nothing "head" ) ) - ] + ] :| [] ) ) - ( Ref Nothing ( Local ( Name "dictEq" ) ) ) - ) - ) - ) - ) + ( Ref Nothing ( Local ( Name "dictEq" ) ) :| [] ) :| [] + ) :| [] + ) :| [] + ) :| [] + ) :| [] ) ) - ( Ref Nothing ( Local ( Name "x" ) ) ) + ( Ref Nothing ( Local ( Name "x" ) ) :| [] ) ) - ( Ref Nothing ( Local ( Name "y" ) ) ) + ( Ref Nothing ( Local ( Name "y" ) ) :| [] ) ) ) ) @@ -1135,13 +1151,13 @@ UberModule ), Standalone ( QName { qnameModuleName = ModuleName "Golden.GenericEqTwoTypes.Test", qnameName = Name "eq1" - }, App Nothing + }, AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Eq" ) ( Name "eq" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.GenericEqTwoTypes.Test" ) ( Name "eqList" ) ) ) - ( Ref Nothing ( Imported ( ModuleName "Data.Eq" ) ( Name "eqInt" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Data.Eq" ) ( Name "eqInt" ) ) :| [] ) :| [] ) ), Standalone ( QName @@ -1150,7 +1166,7 @@ UberModule ( ParamNamed Nothing ( Name "head" ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "tail" ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.GenericEqTwoTypes.Test" ) ( Name "Cons" ) ) ) @@ -1158,7 +1174,7 @@ UberModule [ ( PropName "head", Ref Nothing ( Local ( Name "head" ) ) ), ( PropName "tail", Ref Nothing ( Local ( Name "tail" ) ) ) - ] + ] :| [] ) ) ) @@ -1186,125 +1202,137 @@ UberModule ( Name "main", Abs Nothing ( ParamUnused Nothing ) ( Let Nothing ( Standalone - ( Nothing, Name "_", App Nothing - ( App Nothing + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.GenericEqTwoTypes.Test" ) ( Name "logShow" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.GenericEqTwoTypes.Test" ) ( Name "eq1" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.GenericEqTwoTypes.Test" ) ( Name "cons" ) ) ) - ( LiteralInt Nothing 1 ) + ( LiteralInt Nothing 1 :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.GenericEqTwoTypes.Test" ) ( Name "cons" ) ) ) - ( LiteralInt Nothing 2 ) + ( LiteralInt Nothing 2 :| [] ) ) ( Ref Nothing - ( Imported ( ModuleName "Golden.GenericEqTwoTypes.Test" ) ( Name "Nil" ) ) - ) - ) + ( Imported + ( ModuleName "Golden.GenericEqTwoTypes.Test" ) + ( Name "Nil" ) + ) :| [] + ) :| [] + ) :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.GenericEqTwoTypes.Test" ) ( Name "cons" ) ) ) - ( LiteralInt Nothing 1 ) + ( LiteralInt Nothing 1 :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.GenericEqTwoTypes.Test" ) ( Name "cons" ) ) ) - ( LiteralInt Nothing 2 ) + ( LiteralInt Nothing 2 :| [] ) ) ( Ref Nothing - ( Imported ( ModuleName "Golden.GenericEqTwoTypes.Test" ) ( Name "Nil" ) ) - ) - ) - ) + ( Imported + ( ModuleName "Golden.GenericEqTwoTypes.Test" ) + ( Name "Nil" ) + ) :| [] + ) :| [] + ) :| [] + ) :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ) :| [ Standalone - ( Nothing, Name "_", App Nothing - ( App Nothing + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.GenericEqTwoTypes.Test" ) ( Name "logShow" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.GenericEqTwoTypes.Test" ) ( Name "eq1" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.GenericEqTwoTypes.Test" ) ( Name "cons" ) ) ) - ( LiteralInt Nothing 1 ) + ( LiteralInt Nothing 1 :| [] ) ) ( Ref Nothing - ( Imported ( ModuleName "Golden.GenericEqTwoTypes.Test" ) ( Name "Nil" ) ) - ) + ( Imported + ( ModuleName "Golden.GenericEqTwoTypes.Test" ) + ( Name "Nil" ) + ) :| [] + ) :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.GenericEqTwoTypes.Test" ) ( Name "cons" ) ) ) - ( LiteralInt Nothing 2 ) + ( LiteralInt Nothing 2 :| [] ) ) ( Ref Nothing - ( Imported ( ModuleName "Golden.GenericEqTwoTypes.Test" ) ( Name "Nil" ) ) - ) - ) + ( Imported + ( ModuleName "Golden.GenericEqTwoTypes.Test" ) + ( Name "Nil" ) + ) :| [] + ) :| [] + ) :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ), Standalone - ( Nothing, Name "_", App Nothing - ( App Nothing + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.GenericEqTwoTypes.Test" ) ( Name "logShow" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.GenericEqTwoTypes.Test" ) ( Name "eq" ) ) ) - ( App Nothing - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.GenericEqTwoTypes.Test" ) @@ -1315,14 +1343,14 @@ UberModule ( Imported ( ModuleName "Golden.GenericEqTwoTypes.Test" ) ( Name "Leaf" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) + ( LiteralInt Nothing 1 :| [] ) ) - ( App Nothing - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.GenericEqTwoTypes.Test" ) @@ -1333,23 +1361,23 @@ UberModule ( Imported ( ModuleName "Golden.GenericEqTwoTypes.Test" ) ( Name "Leaf" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 2 ) + ( LiteralInt Nothing 2 :| [] ) ) ( Ref Nothing ( Imported ( ModuleName "Golden.GenericEqTwoTypes.Test" ) ( Name "Leaf" ) - ) - ) - ) + ) :| [] + ) :| [] + ) :| [] ) ) - ( App Nothing - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.GenericEqTwoTypes.Test" ) @@ -1360,14 +1388,14 @@ UberModule ( Imported ( ModuleName "Golden.GenericEqTwoTypes.Test" ) ( Name "Leaf" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) + ( LiteralInt Nothing 1 :| [] ) ) - ( App Nothing - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.GenericEqTwoTypes.Test" ) @@ -1378,38 +1406,38 @@ UberModule ( Imported ( ModuleName "Golden.GenericEqTwoTypes.Test" ) ( Name "Leaf" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 2 ) + ( LiteralInt Nothing 2 :| [] ) ) ( Ref Nothing ( Imported ( ModuleName "Golden.GenericEqTwoTypes.Test" ) ( Name "Leaf" ) - ) - ) - ) - ) + ) :| [] + ) :| [] + ) :| [] + ) :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ) ] ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.GenericEqTwoTypes.Test" ) ( Name "logShow" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.GenericEqTwoTypes.Test" ) ( Name "eq" ) ) ) - ( App Nothing - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.GenericEqTwoTypes.Test" ) @@ -1420,35 +1448,44 @@ UberModule ( Imported ( ModuleName "Golden.GenericEqTwoTypes.Test" ) ( Name "Leaf" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) + ( LiteralInt Nothing 1 :| [] ) ) ( Ref Nothing - ( Imported ( ModuleName "Golden.GenericEqTwoTypes.Test" ) ( Name "Leaf" ) ) - ) + ( Imported + ( ModuleName "Golden.GenericEqTwoTypes.Test" ) + ( Name "Leaf" ) + ) :| [] + ) :| [] ) ) - ( App Nothing - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.GenericEqTwoTypes.Test" ) ( Name "node" ) ) ) ( Ref Nothing - ( Imported ( ModuleName "Golden.GenericEqTwoTypes.Test" ) ( Name "Leaf" ) ) + ( Imported + ( ModuleName "Golden.GenericEqTwoTypes.Test" ) + ( Name "Leaf" ) + ) :| [] ) ) - ( LiteralInt Nothing 2 ) + ( LiteralInt Nothing 2 :| [] ) ) ( Ref Nothing - ( Imported ( ModuleName "Golden.GenericEqTwoTypes.Test" ) ( Name "Leaf" ) ) - ) - ) + ( Imported + ( ModuleName "Golden.GenericEqTwoTypes.Test" ) + ( Name "Leaf" ) + ) :| [] + ) :| [] + ) :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ) ) ), diff --git a/test/ps/output/Golden.HelloPrelude.Test/golden.ir b/test/ps/output/Golden.HelloPrelude.Test/golden.ir index 3c7d44b9..5bcc9ce0 100644 --- a/test/ps/output/Golden.HelloPrelude.Test/golden.ir +++ b/test/ps/output/Golden.HelloPrelude.Test/golden.ir @@ -42,9 +42,9 @@ UberModule ( PropName "bindE" ) ), ( PropName "Apply0", Abs Nothing ( ParamUnused Nothing ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "Lazy_applyEffect" ) ) ) - ( LiteralInt Nothing 0 ) + ( LiteralInt Nothing 0 :| [] ) ) ) ] @@ -58,19 +58,19 @@ UberModule ( PropName "pureE" ) ), ( PropName "Apply0", Abs Nothing ( ParamUnused Nothing ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "Lazy_applyEffect" ) ) ) - ( LiteralInt Nothing 0 ) + ( LiteralInt Nothing 0 :| [] ) ) ) ] ), ( QName { qnameModuleName = ModuleName "Effect", qnameName = Name "Lazy_functorEffect" - }, App Nothing - ( App Nothing + }, AppN Nothing + ( AppN Nothing ( Ref Nothing ( Local ( Name "PSLUA_runtime_lazy" ) ) ) - ( LiteralString Nothing "functorEffect" ) + ( LiteralString Nothing "functorEffect" :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) ( LiteralObject Nothing @@ -79,10 +79,10 @@ UberModule ( ParamNamed Nothing ( Name "f$23" ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "a$24" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp Nothing - ( App Nothing + ( AppN Nothing ( ObjectProp Nothing ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "applicativeEffect" ) ) @@ -90,37 +90,40 @@ UberModule ( PropName "Apply0" ) ) ( Ref Nothing - ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) + ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ) ( PropName "apply" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Control.Applicative" ) ( Name "pure" ) ) ) ( Ref Nothing - ( Imported ( ModuleName "Effect" ) ( Name "applicativeEffect" ) ) + ( Imported + ( ModuleName "Effect" ) + ( Name "applicativeEffect" ) + ) :| [] ) ) - ( Ref Nothing ( Local ( Name "f$23" ) ) ) + ( Ref Nothing ( Local ( Name "f$23" ) ) :| [] ) :| [] ) ) - ( Ref Nothing ( Local ( Name "a$24" ) ) ) + ( Ref Nothing ( Local ( Name "a$24" ) ) :| [] ) ) ) ) ] - ) + ) :| [] ) ), ( QName { qnameModuleName = ModuleName "Effect", qnameName = Name "Lazy_applyEffect" - }, App Nothing - ( App Nothing + }, AppN Nothing + ( AppN Nothing ( Ref Nothing ( Local ( Name "PSLUA_runtime_lazy" ) ) ) - ( LiteralString Nothing "applyEffect" ) + ( LiteralString Nothing "applyEffect" :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) ( LiteralObject Nothing @@ -128,14 +131,16 @@ UberModule ( PropName "apply", Let Nothing ( Standalone ( Nothing, Name "bind$5", ObjectProp Nothing - ( App Nothing + ( AppN Nothing ( ObjectProp Nothing ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "monadEffect" ) ) ) ( PropName "Bind1" ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing + ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] + ) ) ( PropName "bind" ) ) :| [] @@ -144,29 +149,29 @@ UberModule ( ParamNamed Nothing ( Name "f$7" ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "a$8" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Local ( Name "bind$5" ) ) ) - ( Ref Nothing ( Local ( Name "f$7" ) ) ) + ( Ref Nothing ( Local ( Name "f$7" ) ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "f'$9" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Local ( Name "bind$5" ) ) ) - ( Ref Nothing ( Local ( Name "a$8" ) ) ) + ( Ref Nothing ( Local ( Name "a$8" ) ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "a'$10" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Control.Applicative" ) ( Name "pure" ) ) ) - ( App Nothing + ( AppN Nothing ( ObjectProp Nothing ( Ref Nothing ( Imported @@ -177,46 +182,49 @@ UberModule ( PropName "Applicative0" ) ) ( Ref Nothing - ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) - ) + ( Imported + ( ModuleName "Prim" ) + ( Name "undefined" ) + ) :| [] + ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Local ( Name "f'$9" ) ) ) - ( Ref Nothing ( Local ( Name "a'$10" ) ) ) + ( Ref Nothing ( Local ( Name "a'$10" ) ) :| [] ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) ) ) ) ), ( PropName "Functor0", Abs Nothing ( ParamUnused Nothing ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "Lazy_functorEffect" ) ) ) - ( LiteralInt Nothing 0 ) + ( LiteralInt Nothing 0 :| [] ) ) ) ] - ) + ) :| [] ) ) ] ) ], uberModuleForeigns = [], uberModuleExports = [ - ( Name "main", App Nothing - ( App Nothing + ( Name "main", AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Control.Applicative" ) ( Name "pure" ) ) ) - ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "applicativeEffect" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "applicativeEffect" ) ) :| [] ) ) ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Data.Unit" ) ( Name "foreign" ) ) ) - ( PropName "unit" ) + ( PropName "unit" ) :| [] ) ) ] diff --git a/test/ps/output/Golden.Inline.Test/golden.ir b/test/ps/output/Golden.Inline.Test/golden.ir index 8386621d..a29689a7 100644 --- a/test/ps/output/Golden.Inline.Test/golden.ir +++ b/test/ps/output/Golden.Inline.Test/golden.ir @@ -5,9 +5,9 @@ UberModule { qnameModuleName = ModuleName "Golden.Inline.Test", qnameName = Name "runMu" }, Abs Nothing ( ParamNamed Nothing ( Name "v" ) ) - ( App Nothing - ( Ref Nothing ( Local ( Name "v" ) ) ) + ( AppN Nothing ( Ref Nothing ( Local ( Name "v" ) ) ) + ( Ref Nothing ( Local ( Name "v" ) ) :| [] ) ) ) ], uberModuleForeigns = [], uberModuleExports = diff --git a/test/ps/output/Golden.Issue37.Test/golden.ir b/test/ps/output/Golden.Issue37.Test/golden.ir index 770e8d3b..8391a62b 100644 --- a/test/ps/output/Golden.Issue37.Test/golden.ir +++ b/test/ps/output/Golden.Issue37.Test/golden.ir @@ -47,9 +47,9 @@ UberModule ( PropName "bindE" ) ), ( PropName "Apply0", Abs Nothing ( ParamUnused Nothing ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "Lazy_applyEffect" ) ) ) - ( LiteralInt Nothing 0 ) + ( LiteralInt Nothing 0 :| [] ) ) ) ] @@ -63,19 +63,19 @@ UberModule ( PropName "pureE" ) ), ( PropName "Apply0", Abs Nothing ( ParamUnused Nothing ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "Lazy_applyEffect" ) ) ) - ( LiteralInt Nothing 0 ) + ( LiteralInt Nothing 0 :| [] ) ) ) ] ), ( QName { qnameModuleName = ModuleName "Effect", qnameName = Name "Lazy_functorEffect" - }, App Nothing - ( App Nothing + }, AppN Nothing + ( AppN Nothing ( Ref Nothing ( Local ( Name "PSLUA_runtime_lazy" ) ) ) - ( LiteralString Nothing "functorEffect" ) + ( LiteralString Nothing "functorEffect" :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) ( LiteralObject Nothing @@ -84,10 +84,10 @@ UberModule ( ParamNamed Nothing ( Name "f$32" ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "a$33" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp Nothing - ( App Nothing + ( AppN Nothing ( ObjectProp Nothing ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "applicativeEffect" ) ) @@ -95,53 +95,58 @@ UberModule ( PropName "Apply0" ) ) ( Ref Nothing - ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) + ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ) ( PropName "apply" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Control.Applicative" ) ( Name "pure" ) ) ) ( Ref Nothing - ( Imported ( ModuleName "Effect" ) ( Name "applicativeEffect" ) ) + ( Imported + ( ModuleName "Effect" ) + ( Name "applicativeEffect" ) + ) :| [] ) ) - ( Ref Nothing ( Local ( Name "f$32" ) ) ) + ( Ref Nothing ( Local ( Name "f$32" ) ) :| [] ) :| [] ) ) - ( Ref Nothing ( Local ( Name "a$33" ) ) ) + ( Ref Nothing ( Local ( Name "a$33" ) ) :| [] ) ) ) ) ] - ) + ) :| [] ) ), ( QName { qnameModuleName = ModuleName "Effect", qnameName = Name "Lazy_applyEffect" - }, App Nothing - ( App Nothing + }, AppN Nothing + ( AppN Nothing ( Ref Nothing ( Local ( Name "PSLUA_runtime_lazy" ) ) ) - ( LiteralString Nothing "applyEffect" ) + ( LiteralString Nothing "applyEffect" :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) ( LiteralObject Nothing [ ( PropName "apply", Let Nothing ( Standalone - ( Nothing, Name "bind$11", App Nothing + ( Nothing, Name "bind$11", AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Control.Bind" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( ObjectProp Nothing ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "monadEffect" ) ) ) ( PropName "Bind1" ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing + ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] + ) :| [] ) ) :| [] ) @@ -149,29 +154,29 @@ UberModule ( ParamNamed Nothing ( Name "f$13" ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "a$14" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Local ( Name "bind$11" ) ) ) - ( Ref Nothing ( Local ( Name "f$13" ) ) ) + ( Ref Nothing ( Local ( Name "f$13" ) ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "f'$15" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Local ( Name "bind$11" ) ) ) - ( Ref Nothing ( Local ( Name "a$14" ) ) ) + ( Ref Nothing ( Local ( Name "a$14" ) ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "a'$16" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Control.Applicative" ) ( Name "pure" ) ) ) - ( App Nothing + ( AppN Nothing ( ObjectProp Nothing ( Ref Nothing ( Imported @@ -182,32 +187,35 @@ UberModule ( PropName "Applicative0" ) ) ( Ref Nothing - ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) - ) + ( Imported + ( ModuleName "Prim" ) + ( Name "undefined" ) + ) :| [] + ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Local ( Name "f'$15" ) ) ) - ( Ref Nothing ( Local ( Name "a'$16" ) ) ) + ( Ref Nothing ( Local ( Name "a'$16" ) ) :| [] ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) ) ) ) ), ( PropName "Functor0", Abs Nothing ( ParamUnused Nothing ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "Lazy_functorEffect" ) ) ) - ( LiteralInt Nothing 0 ) + ( LiteralInt Nothing 0 :| [] ) ) ) ] - ) + ) :| [] ) ) ] @@ -216,62 +224,64 @@ UberModule { qnameModuleName = ModuleName "Golden.Issue37.Test", qnameName = Name "discard" }, Abs Nothing ( ParamNamed Nothing ( Name "dictBind$17$186" ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Control.Bind" ) ( Name "bind" ) ) ) - ( Ref Nothing ( Local ( Name "dictBind$17$186" ) ) ) + ( Ref Nothing ( Local ( Name "dictBind$17$186" ) ) :| [] ) ) ) ], uberModuleForeigns = [], uberModuleExports = [ - ( Name "baz", App Nothing + ( Name "baz", AppN Nothing ( Let Nothing ( Standalone - ( Nothing, Name "Bind1$1", App Nothing + ( Nothing, Name "Bind1$1", AppN Nothing ( ObjectProp Nothing ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "monadEffect" ) ) ) ( PropName "Bind1" ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ) :| [ Standalone - ( Nothing, Name "pure$4", App Nothing + ( Nothing, Name "pure$4", AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Control.Applicative" ) ( Name "pure" ) ) ) - ( App Nothing + ( AppN Nothing ( ObjectProp Nothing ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "monadEffect" ) ) ) ( PropName "Applicative0" ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing + ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] + ) :| [] ) ) ] ) ( Abs Nothing ( ParamNamed Nothing ( Name "f$6" ) ) - ( App Nothing - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.Issue37.Test" ) ( Name "discard" ) ) ) - ( Ref Nothing ( Local ( Name "Bind1$1" ) ) ) + ( Ref Nothing ( Local ( Name "Bind1$1" ) ) :| [] ) ) - ( Ref Nothing ( Local ( Name "f$6" ) ) ) + ( Ref Nothing ( Local ( Name "f$6" ) ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Control.Bind" ) ( Name "bind" ) ) ) - ( Ref Nothing ( Local ( Name "Bind1$1" ) ) ) + ( Ref Nothing ( Local ( Name "Bind1$1" ) ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Local ( Name "pure$4" ) ) ) ( LiteralArray Nothing - [ App Nothing + [ AppN Nothing ( Let Nothing ( Standalone - ( Nothing, Name "Bind1$183", App Nothing + ( Nothing, Name "Bind1$183", AppN Nothing ( ObjectProp Nothing ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "monadEffect" ) ) @@ -279,30 +289,30 @@ UberModule ( PropName "Bind1" ) ) ( Ref Nothing - ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) + ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ) :| [ Standalone - ( Nothing, Name "discard1$184", App Nothing + ( Nothing, Name "discard1$184", AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.Issue37.Test" ) ( Name "discard" ) ) ) - ( Ref Nothing ( Local ( Name "Bind1$183" ) ) ) + ( Ref Nothing ( Local ( Name "Bind1$183" ) ) :| [] ) ) ] ) ( Abs Nothing ( ParamNamed Nothing ( Name "fn1$185" ) ) - ( App Nothing - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Control.Bind" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( ObjectProp Nothing ( Ref Nothing ( Imported @@ -313,62 +323,65 @@ UberModule ( PropName "Bind1" ) ) ( Ref Nothing - ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) - ) + ( Imported + ( ModuleName "Prim" ) + ( Name "undefined" ) + ) :| [] + ) :| [] ) ) - ( Ref Nothing ( Local ( Name "fn1$185" ) ) ) + ( Ref Nothing ( Local ( Name "fn1$185" ) ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Local ( Name "discard1$184" ) ) ) - ( Ref Nothing ( Local ( Name "fn1$185" ) ) ) + ( Ref Nothing ( Local ( Name "fn1$185" ) ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Local ( Name "discard1$184" ) ) ) - ( Ref Nothing ( Local ( Name "fn1$185" ) ) ) + ( Ref Nothing ( Local ( Name "fn1$185" ) ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( Ref Nothing ( Local ( Name "fn1$185" ) ) ) + ( Ref Nothing ( Local ( Name "fn1$185" ) ) ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) ) ) ) - ( Ref Nothing ( Local ( Name "f$6" ) ) ) - ] - ) + ( Ref Nothing ( Local ( Name "f$6" ) ) :| [] ) + ] :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Local ( Name "pure$4" ) ) ) ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Data.Unit" ) ( Name "foreign" ) ) ) - ( PropName "unit" ) + ( PropName "unit" ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Control.Applicative" ) ( Name "pure" ) ) ) - ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "applicativeEffect" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "applicativeEffect" ) ) :| [] ) ) ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Data.Unit" ) ( Name "foreign" ) ) ) - ( PropName "unit" ) - ) + ( PropName "unit" ) :| [] + ) :| [] ) ) ] diff --git a/test/ps/output/Golden.LongApplyChain.Test/golden.ir b/test/ps/output/Golden.LongApplyChain.Test/golden.ir index 48267e26..abf916f0 100644 --- a/test/ps/output/Golden.LongApplyChain.Test/golden.ir +++ b/test/ps/output/Golden.LongApplyChain.Test/golden.ir @@ -57,14 +57,14 @@ UberModule ( LiteralString Nothing "Data.Maybe∷Maybe.Just" ) ( ReflectCtor Nothing ( Ref Nothing ( Local ( Name "v1" ) ) ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Local ( Name "v" ) ) ) ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "v1" ) ) ) - ( PropName "value0" ) - ) + ( PropName "value0" ) :| [] + ) :| [] ) ) ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Nothing" ) ) ) @@ -86,20 +86,20 @@ UberModule ( LiteralString Nothing "Data.Maybe∷Maybe.Just" ) ( ReflectCtor Nothing ( Ref Nothing ( Local ( Name "v" ) ) ) ) ) - ( App Nothing - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Functor" ) ( Name "map" ) ) ) ( Ref Nothing - ( Imported ( ModuleName "Data.Maybe" ) ( Name "functorMaybe" ) ) + ( Imported ( ModuleName "Data.Maybe" ) ( Name "functorMaybe" ) ) :| [] ) ) ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "v" ) ) ) - ( PropName "value0" ) + ( PropName "value0" ) :| [] ) ) - ( Ref Nothing ( Local ( Name "v1" ) ) ) + ( Ref Nothing ( Local ( Name "v1" ) ) :| [] ) ) ( IfThenElse Nothing ( Eq Nothing @@ -123,37 +123,39 @@ UberModule ( ParamNamed Nothing ( Name "a$131" ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "b$132" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "applyMaybe" ) ) ) ( PropName "apply" ) ) - ( App Nothing - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Functor" ) ( Name "map" ) ) ) - ( App Nothing + ( AppN Nothing ( ObjectProp Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "applyMaybe" ) ) ) ( PropName "Functor0" ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing + ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) ( Abs Nothing ( ParamNamed Nothing ( Name "x$281" ) ) ( Ref Nothing ( Local ( Name "x$281" ) ) ) - ) + ) :| [] ) ) - ( Ref Nothing ( Local ( Name "a$131" ) ) ) + ( Ref Nothing ( Local ( Name "a$131" ) ) :| [] ) :| [] ) ) - ( Ref Nothing ( Local ( Name "b$132" ) ) ) + ( Ref Nothing ( Local ( Name "b$132" ) ) :| [] ) ) ) ), Standalone @@ -161,5267 +163,5267 @@ UberModule { qnameModuleName = ModuleName "Golden.LongApplyChain.Test", qnameName = Name "compute" }, Let Nothing ( Standalone - ( Nothing, Name "$tmp288", App Nothing + ( Nothing, Name "$tmp288", AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 1 ) + ( LiteralInt Nothing 1 :| [] ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 2 ) - ) + ( LiteralInt Nothing 2 :| [] ) :| [] + ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 3 ) - ) + ( LiteralInt Nothing 3 :| [] ) :| [] + ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 4 ) - ) + ( LiteralInt Nothing 4 :| [] ) :| [] + ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 5 ) - ) + ( LiteralInt Nothing 5 :| [] ) :| [] + ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 6 ) - ) + ( LiteralInt Nothing 6 :| [] ) :| [] + ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 7 ) - ) + ( LiteralInt Nothing 7 :| [] ) :| [] + ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 8 ) - ) + ( LiteralInt Nothing 8 :| [] ) :| [] + ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 9 ) - ) + ( LiteralInt Nothing 9 :| [] ) :| [] + ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 10 ) - ) + ( LiteralInt Nothing 10 :| [] ) :| [] + ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 11 ) - ) + ( LiteralInt Nothing 11 :| [] ) :| [] + ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 12 ) - ) + ( LiteralInt Nothing 12 :| [] ) :| [] + ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 13 ) - ) + ( LiteralInt Nothing 13 :| [] ) :| [] + ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 14 ) - ) + ( LiteralInt Nothing 14 :| [] ) :| [] + ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 15 ) - ) + ( LiteralInt Nothing 15 :| [] ) :| [] + ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 16 ) - ) + ( LiteralInt Nothing 16 :| [] ) :| [] + ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 17 ) - ) + ( LiteralInt Nothing 17 :| [] ) :| [] + ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 18 ) - ) + ( LiteralInt Nothing 18 :| [] ) :| [] + ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 19 ) - ) + ( LiteralInt Nothing 19 :| [] ) :| [] + ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 20 ) - ) + ( LiteralInt Nothing 20 :| [] ) :| [] + ) :| [] ) ) :| [ Standalone - ( Nothing, Name "$tmp289", App Nothing + ( Nothing, Name "$tmp289", AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Local ( Name "$tmp288" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 21 ) - ) + ( LiteralInt Nothing 21 :| [] ) :| [] + ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 22 ) - ) + ( LiteralInt Nothing 22 :| [] ) :| [] + ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 23 ) - ) + ( LiteralInt Nothing 23 :| [] ) :| [] + ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 24 ) - ) + ( LiteralInt Nothing 24 :| [] ) :| [] + ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 25 ) - ) + ( LiteralInt Nothing 25 :| [] ) :| [] + ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 26 ) - ) + ( LiteralInt Nothing 26 :| [] ) :| [] + ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 27 ) - ) + ( LiteralInt Nothing 27 :| [] ) :| [] + ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 28 ) - ) + ( LiteralInt Nothing 28 :| [] ) :| [] + ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 29 ) - ) + ( LiteralInt Nothing 29 :| [] ) :| [] + ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 30 ) - ) + ( LiteralInt Nothing 30 :| [] ) :| [] + ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 31 ) - ) + ( LiteralInt Nothing 31 :| [] ) :| [] + ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 32 ) - ) + ( LiteralInt Nothing 32 :| [] ) :| [] + ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 33 ) - ) + ( LiteralInt Nothing 33 :| [] ) :| [] + ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 34 ) - ) + ( LiteralInt Nothing 34 :| [] ) :| [] + ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 35 ) - ) + ( LiteralInt Nothing 35 :| [] ) :| [] + ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 36 ) - ) + ( LiteralInt Nothing 36 :| [] ) :| [] + ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 37 ) - ) + ( LiteralInt Nothing 37 :| [] ) :| [] + ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 38 ) - ) + ( LiteralInt Nothing 38 :| [] ) :| [] + ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 39 ) - ) + ( LiteralInt Nothing 39 :| [] ) :| [] + ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 40 ) - ) + ( LiteralInt Nothing 40 :| [] ) :| [] + ) :| [] ) ), Standalone - ( Nothing, Name "$tmp290", App Nothing + ( Nothing, Name "$tmp290", AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Local ( Name "$tmp289" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 41 ) - ) + ( LiteralInt Nothing 41 :| [] ) :| [] + ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 42 ) - ) + ( LiteralInt Nothing 42 :| [] ) :| [] + ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 43 ) - ) + ( LiteralInt Nothing 43 :| [] ) :| [] + ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 44 ) - ) + ( LiteralInt Nothing 44 :| [] ) :| [] + ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 45 ) - ) + ( LiteralInt Nothing 45 :| [] ) :| [] + ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 46 ) - ) + ( LiteralInt Nothing 46 :| [] ) :| [] + ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 47 ) - ) + ( LiteralInt Nothing 47 :| [] ) :| [] + ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 48 ) - ) + ( LiteralInt Nothing 48 :| [] ) :| [] + ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 49 ) - ) + ( LiteralInt Nothing 49 :| [] ) :| [] + ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 50 ) - ) + ( LiteralInt Nothing 50 :| [] ) :| [] + ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 51 ) - ) + ( LiteralInt Nothing 51 :| [] ) :| [] + ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 52 ) - ) + ( LiteralInt Nothing 52 :| [] ) :| [] + ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 53 ) - ) + ( LiteralInt Nothing 53 :| [] ) :| [] + ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 54 ) - ) + ( LiteralInt Nothing 54 :| [] ) :| [] + ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 55 ) - ) + ( LiteralInt Nothing 55 :| [] ) :| [] + ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 56 ) - ) + ( LiteralInt Nothing 56 :| [] ) :| [] + ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 57 ) - ) + ( LiteralInt Nothing 57 :| [] ) :| [] + ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 58 ) - ) + ( LiteralInt Nothing 58 :| [] ) :| [] + ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 59 ) - ) + ( LiteralInt Nothing 59 :| [] ) :| [] + ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 60 ) - ) + ( LiteralInt Nothing 60 :| [] ) :| [] + ) :| [] ) ), Standalone - ( Nothing, Name "$tmp291", App Nothing + ( Nothing, Name "$tmp291", AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Local ( Name "$tmp290" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 61 ) - ) + ( LiteralInt Nothing 61 :| [] ) :| [] + ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 62 ) - ) + ( LiteralInt Nothing 62 :| [] ) :| [] + ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 63 ) - ) + ( LiteralInt Nothing 63 :| [] ) :| [] + ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 64 ) - ) + ( LiteralInt Nothing 64 :| [] ) :| [] + ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 65 ) - ) + ( LiteralInt Nothing 65 :| [] ) :| [] + ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 66 ) - ) + ( LiteralInt Nothing 66 :| [] ) :| [] + ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 67 ) - ) + ( LiteralInt Nothing 67 :| [] ) :| [] + ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 68 ) - ) + ( LiteralInt Nothing 68 :| [] ) :| [] + ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 69 ) - ) + ( LiteralInt Nothing 69 :| [] ) :| [] + ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 70 ) - ) + ( LiteralInt Nothing 70 :| [] ) :| [] + ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 71 ) - ) + ( LiteralInt Nothing 71 :| [] ) :| [] + ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 72 ) - ) + ( LiteralInt Nothing 72 :| [] ) :| [] + ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 73 ) - ) + ( LiteralInt Nothing 73 :| [] ) :| [] + ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 74 ) - ) + ( LiteralInt Nothing 74 :| [] ) :| [] + ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 75 ) - ) + ( LiteralInt Nothing 75 :| [] ) :| [] + ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 76 ) - ) + ( LiteralInt Nothing 76 :| [] ) :| [] + ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 77 ) - ) + ( LiteralInt Nothing 77 :| [] ) :| [] + ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 78 ) - ) + ( LiteralInt Nothing 78 :| [] ) :| [] + ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 79 ) - ) + ( LiteralInt Nothing 79 :| [] ) :| [] + ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 80 ) - ) + ( LiteralInt Nothing 80 :| [] ) :| [] + ) :| [] ) ), Standalone - ( Nothing, Name "$tmp292", App Nothing + ( Nothing, Name "$tmp292", AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Local ( Name "$tmp291" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 81 ) - ) + ( LiteralInt Nothing 81 :| [] ) :| [] + ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 82 ) - ) + ( LiteralInt Nothing 82 :| [] ) :| [] + ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 83 ) - ) + ( LiteralInt Nothing 83 :| [] ) :| [] + ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 84 ) - ) + ( LiteralInt Nothing 84 :| [] ) :| [] + ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 85 ) - ) + ( LiteralInt Nothing 85 :| [] ) :| [] + ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 86 ) - ) + ( LiteralInt Nothing 86 :| [] ) :| [] + ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 87 ) - ) + ( LiteralInt Nothing 87 :| [] ) :| [] + ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 88 ) - ) + ( LiteralInt Nothing 88 :| [] ) :| [] + ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 89 ) - ) + ( LiteralInt Nothing 89 :| [] ) :| [] + ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 90 ) - ) + ( LiteralInt Nothing 90 :| [] ) :| [] + ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 91 ) - ) + ( LiteralInt Nothing 91 :| [] ) :| [] + ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 92 ) - ) + ( LiteralInt Nothing 92 :| [] ) :| [] + ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 93 ) - ) + ( LiteralInt Nothing 93 :| [] ) :| [] + ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 94 ) - ) + ( LiteralInt Nothing 94 :| [] ) :| [] + ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 95 ) - ) + ( LiteralInt Nothing 95 :| [] ) :| [] + ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 96 ) - ) + ( LiteralInt Nothing 96 :| [] ) :| [] + ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 97 ) - ) + ( LiteralInt Nothing 97 :| [] ) :| [] + ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 98 ) - ) + ( LiteralInt Nothing 98 :| [] ) :| [] + ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 99 ) - ) + ( LiteralInt Nothing 99 :| [] ) :| [] + ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 100 ) - ) + ( LiteralInt Nothing 100 :| [] ) :| [] + ) :| [] ) ), Standalone - ( Nothing, Name "$tmp293", App Nothing + ( Nothing, Name "$tmp293", AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Local ( Name "$tmp292" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 101 ) - ) + ( LiteralInt Nothing 101 :| [] ) :| [] + ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 102 ) - ) + ( LiteralInt Nothing 102 :| [] ) :| [] + ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 103 ) - ) + ( LiteralInt Nothing 103 :| [] ) :| [] + ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 104 ) - ) + ( LiteralInt Nothing 104 :| [] ) :| [] + ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 105 ) - ) + ( LiteralInt Nothing 105 :| [] ) :| [] + ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 106 ) - ) + ( LiteralInt Nothing 106 :| [] ) :| [] + ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 107 ) - ) + ( LiteralInt Nothing 107 :| [] ) :| [] + ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 108 ) - ) + ( LiteralInt Nothing 108 :| [] ) :| [] + ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 109 ) - ) + ( LiteralInt Nothing 109 :| [] ) :| [] + ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 110 ) - ) + ( LiteralInt Nothing 110 :| [] ) :| [] + ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 111 ) - ) + ( LiteralInt Nothing 111 :| [] ) :| [] + ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 112 ) - ) + ( LiteralInt Nothing 112 :| [] ) :| [] + ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 113 ) - ) + ( LiteralInt Nothing 113 :| [] ) :| [] + ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 114 ) - ) + ( LiteralInt Nothing 114 :| [] ) :| [] + ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 115 ) - ) + ( LiteralInt Nothing 115 :| [] ) :| [] + ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 116 ) - ) + ( LiteralInt Nothing 116 :| [] ) :| [] + ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 117 ) - ) + ( LiteralInt Nothing 117 :| [] ) :| [] + ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 118 ) - ) + ( LiteralInt Nothing 118 :| [] ) :| [] + ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 119 ) - ) + ( LiteralInt Nothing 119 :| [] ) :| [] + ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 120 ) - ) + ( LiteralInt Nothing 120 :| [] ) :| [] + ) :| [] ) ), Standalone - ( Nothing, Name "$tmp294", App Nothing + ( Nothing, Name "$tmp294", AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Local ( Name "$tmp293" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 121 ) - ) + ( LiteralInt Nothing 121 :| [] ) :| [] + ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 122 ) - ) + ( LiteralInt Nothing 122 :| [] ) :| [] + ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 123 ) - ) + ( LiteralInt Nothing 123 :| [] ) :| [] + ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 124 ) - ) + ( LiteralInt Nothing 124 :| [] ) :| [] + ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 125 ) - ) + ( LiteralInt Nothing 125 :| [] ) :| [] + ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 126 ) - ) + ( LiteralInt Nothing 126 :| [] ) :| [] + ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 127 ) - ) + ( LiteralInt Nothing 127 :| [] ) :| [] + ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 128 ) - ) + ( LiteralInt Nothing 128 :| [] ) :| [] + ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 129 ) - ) + ( LiteralInt Nothing 129 :| [] ) :| [] + ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 130 ) - ) + ( LiteralInt Nothing 130 :| [] ) :| [] + ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 131 ) - ) + ( LiteralInt Nothing 131 :| [] ) :| [] + ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 132 ) - ) + ( LiteralInt Nothing 132 :| [] ) :| [] + ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 133 ) - ) + ( LiteralInt Nothing 133 :| [] ) :| [] + ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 134 ) - ) + ( LiteralInt Nothing 134 :| [] ) :| [] + ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 135 ) - ) + ( LiteralInt Nothing 135 :| [] ) :| [] + ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 136 ) - ) + ( LiteralInt Nothing 136 :| [] ) :| [] + ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 137 ) - ) + ( LiteralInt Nothing 137 :| [] ) :| [] + ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 138 ) - ) + ( LiteralInt Nothing 138 :| [] ) :| [] + ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 139 ) - ) + ( LiteralInt Nothing 139 :| [] ) :| [] + ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 140 ) - ) + ( LiteralInt Nothing 140 :| [] ) :| [] + ) :| [] ) ), Standalone - ( Nothing, Name "$tmp295", App Nothing + ( Nothing, Name "$tmp295", AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Local ( Name "$tmp294" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 141 ) - ) + ( LiteralInt Nothing 141 :| [] ) :| [] + ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 142 ) - ) + ( LiteralInt Nothing 142 :| [] ) :| [] + ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 143 ) - ) + ( LiteralInt Nothing 143 :| [] ) :| [] + ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 144 ) - ) + ( LiteralInt Nothing 144 :| [] ) :| [] + ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 145 ) - ) + ( LiteralInt Nothing 145 :| [] ) :| [] + ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 146 ) - ) + ( LiteralInt Nothing 146 :| [] ) :| [] + ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 147 ) - ) + ( LiteralInt Nothing 147 :| [] ) :| [] + ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 148 ) - ) + ( LiteralInt Nothing 148 :| [] ) :| [] + ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 149 ) - ) + ( LiteralInt Nothing 149 :| [] ) :| [] + ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 150 ) - ) + ( LiteralInt Nothing 150 :| [] ) :| [] + ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 151 ) - ) + ( LiteralInt Nothing 151 :| [] ) :| [] + ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 152 ) - ) + ( LiteralInt Nothing 152 :| [] ) :| [] + ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 153 ) - ) + ( LiteralInt Nothing 153 :| [] ) :| [] + ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 154 ) - ) + ( LiteralInt Nothing 154 :| [] ) :| [] + ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 155 ) - ) + ( LiteralInt Nothing 155 :| [] ) :| [] + ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 156 ) - ) + ( LiteralInt Nothing 156 :| [] ) :| [] + ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 157 ) - ) + ( LiteralInt Nothing 157 :| [] ) :| [] + ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 158 ) - ) + ( LiteralInt Nothing 158 :| [] ) :| [] + ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 159 ) - ) + ( LiteralInt Nothing 159 :| [] ) :| [] + ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 160 ) - ) + ( LiteralInt Nothing 160 :| [] ) :| [] + ) :| [] ) ), Standalone - ( Nothing, Name "$tmp296", App Nothing + ( Nothing, Name "$tmp296", AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Local ( Name "$tmp295" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 161 ) - ) + ( LiteralInt Nothing 161 :| [] ) :| [] + ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 162 ) - ) + ( LiteralInt Nothing 162 :| [] ) :| [] + ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 163 ) - ) + ( LiteralInt Nothing 163 :| [] ) :| [] + ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 164 ) - ) + ( LiteralInt Nothing 164 :| [] ) :| [] + ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 165 ) - ) + ( LiteralInt Nothing 165 :| [] ) :| [] + ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 166 ) - ) + ( LiteralInt Nothing 166 :| [] ) :| [] + ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 167 ) - ) + ( LiteralInt Nothing 167 :| [] ) :| [] + ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 168 ) - ) + ( LiteralInt Nothing 168 :| [] ) :| [] + ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 169 ) - ) + ( LiteralInt Nothing 169 :| [] ) :| [] + ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 170 ) - ) + ( LiteralInt Nothing 170 :| [] ) :| [] + ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 171 ) - ) + ( LiteralInt Nothing 171 :| [] ) :| [] + ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 172 ) - ) + ( LiteralInt Nothing 172 :| [] ) :| [] + ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 173 ) - ) + ( LiteralInt Nothing 173 :| [] ) :| [] + ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 174 ) - ) + ( LiteralInt Nothing 174 :| [] ) :| [] + ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 175 ) - ) + ( LiteralInt Nothing 175 :| [] ) :| [] + ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 176 ) - ) + ( LiteralInt Nothing 176 :| [] ) :| [] + ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 177 ) - ) + ( LiteralInt Nothing 177 :| [] ) :| [] + ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 178 ) - ) + ( LiteralInt Nothing 178 :| [] ) :| [] + ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 179 ) - ) + ( LiteralInt Nothing 179 :| [] ) :| [] + ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 180 ) - ) + ( LiteralInt Nothing 180 :| [] ) :| [] + ) :| [] ) ), Standalone - ( Nothing, Name "$tmp297", App Nothing + ( Nothing, Name "$tmp297", AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Local ( Name "$tmp296" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 181 ) - ) + ( LiteralInt Nothing 181 :| [] ) :| [] + ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 182 ) - ) + ( LiteralInt Nothing 182 :| [] ) :| [] + ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 183 ) - ) + ( LiteralInt Nothing 183 :| [] ) :| [] + ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 184 ) - ) + ( LiteralInt Nothing 184 :| [] ) :| [] + ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 185 ) - ) + ( LiteralInt Nothing 185 :| [] ) :| [] + ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 186 ) - ) + ( LiteralInt Nothing 186 :| [] ) :| [] + ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 187 ) - ) + ( LiteralInt Nothing 187 :| [] ) :| [] + ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 188 ) - ) + ( LiteralInt Nothing 188 :| [] ) :| [] + ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 189 ) - ) + ( LiteralInt Nothing 189 :| [] ) :| [] + ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 190 ) - ) + ( LiteralInt Nothing 190 :| [] ) :| [] + ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 191 ) - ) + ( LiteralInt Nothing 191 :| [] ) :| [] + ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 192 ) - ) + ( LiteralInt Nothing 192 :| [] ) :| [] + ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 193 ) - ) + ( LiteralInt Nothing 193 :| [] ) :| [] + ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 194 ) - ) + ( LiteralInt Nothing 194 :| [] ) :| [] + ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 195 ) - ) + ( LiteralInt Nothing 195 :| [] ) :| [] + ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 196 ) - ) + ( LiteralInt Nothing 196 :| [] ) :| [] + ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 197 ) - ) + ( LiteralInt Nothing 197 :| [] ) :| [] + ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 198 ) - ) + ( LiteralInt Nothing 198 :| [] ) :| [] + ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 199 ) - ) + ( LiteralInt Nothing 199 :| [] ) :| [] + ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 200 ) - ) + ( LiteralInt Nothing 200 :| [] ) :| [] + ) :| [] ) ), Standalone - ( Nothing, Name "$tmp298", App Nothing + ( Nothing, Name "$tmp298", AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Local ( Name "$tmp297" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 201 ) - ) + ( LiteralInt Nothing 201 :| [] ) :| [] + ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 202 ) - ) + ( LiteralInt Nothing 202 :| [] ) :| [] + ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 203 ) - ) + ( LiteralInt Nothing 203 :| [] ) :| [] + ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 204 ) - ) + ( LiteralInt Nothing 204 :| [] ) :| [] + ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 205 ) - ) + ( LiteralInt Nothing 205 :| [] ) :| [] + ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 206 ) - ) + ( LiteralInt Nothing 206 :| [] ) :| [] + ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 207 ) - ) + ( LiteralInt Nothing 207 :| [] ) :| [] + ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 208 ) - ) + ( LiteralInt Nothing 208 :| [] ) :| [] + ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 209 ) - ) + ( LiteralInt Nothing 209 :| [] ) :| [] + ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 210 ) - ) + ( LiteralInt Nothing 210 :| [] ) :| [] + ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 211 ) - ) + ( LiteralInt Nothing 211 :| [] ) :| [] + ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 212 ) - ) + ( LiteralInt Nothing 212 :| [] ) :| [] + ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 213 ) - ) + ( LiteralInt Nothing 213 :| [] ) :| [] + ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 214 ) - ) + ( LiteralInt Nothing 214 :| [] ) :| [] + ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 215 ) - ) + ( LiteralInt Nothing 215 :| [] ) :| [] + ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 216 ) - ) + ( LiteralInt Nothing 216 :| [] ) :| [] + ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 217 ) - ) + ( LiteralInt Nothing 217 :| [] ) :| [] + ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 218 ) - ) + ( LiteralInt Nothing 218 :| [] ) :| [] + ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 219 ) - ) + ( LiteralInt Nothing 219 :| [] ) :| [] + ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 220 ) - ) + ( LiteralInt Nothing 220 :| [] ) :| [] + ) :| [] ) ), Standalone - ( Nothing, Name "$tmp299", App Nothing + ( Nothing, Name "$tmp299", AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Local ( Name "$tmp298" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 221 ) - ) + ( LiteralInt Nothing 221 :| [] ) :| [] + ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 222 ) - ) + ( LiteralInt Nothing 222 :| [] ) :| [] + ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 223 ) - ) + ( LiteralInt Nothing 223 :| [] ) :| [] + ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 224 ) - ) + ( LiteralInt Nothing 224 :| [] ) :| [] + ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 225 ) - ) + ( LiteralInt Nothing 225 :| [] ) :| [] + ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 226 ) - ) + ( LiteralInt Nothing 226 :| [] ) :| [] + ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 227 ) - ) + ( LiteralInt Nothing 227 :| [] ) :| [] + ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 228 ) - ) + ( LiteralInt Nothing 228 :| [] ) :| [] + ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 229 ) - ) + ( LiteralInt Nothing 229 :| [] ) :| [] + ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 230 ) - ) + ( LiteralInt Nothing 230 :| [] ) :| [] + ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 231 ) - ) + ( LiteralInt Nothing 231 :| [] ) :| [] + ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 232 ) - ) + ( LiteralInt Nothing 232 :| [] ) :| [] + ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 233 ) - ) + ( LiteralInt Nothing 233 :| [] ) :| [] + ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 234 ) - ) + ( LiteralInt Nothing 234 :| [] ) :| [] + ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 235 ) - ) + ( LiteralInt Nothing 235 :| [] ) :| [] + ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 236 ) - ) + ( LiteralInt Nothing 236 :| [] ) :| [] + ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 237 ) - ) + ( LiteralInt Nothing 237 :| [] ) :| [] + ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 238 ) - ) + ( LiteralInt Nothing 238 :| [] ) :| [] + ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 239 ) - ) + ( LiteralInt Nothing 239 :| [] ) :| [] + ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 240 ) - ) + ( LiteralInt Nothing 240 :| [] ) :| [] + ) :| [] ) ), Standalone - ( Nothing, Name "$tmp300", App Nothing + ( Nothing, Name "$tmp300", AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Local ( Name "$tmp299" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 241 ) - ) + ( LiteralInt Nothing 241 :| [] ) :| [] + ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 242 ) - ) + ( LiteralInt Nothing 242 :| [] ) :| [] + ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 243 ) - ) + ( LiteralInt Nothing 243 :| [] ) :| [] + ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 244 ) - ) + ( LiteralInt Nothing 244 :| [] ) :| [] + ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 245 ) - ) + ( LiteralInt Nothing 245 :| [] ) :| [] + ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 246 ) - ) + ( LiteralInt Nothing 246 :| [] ) :| [] + ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 247 ) - ) + ( LiteralInt Nothing 247 :| [] ) :| [] + ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 248 ) - ) + ( LiteralInt Nothing 248 :| [] ) :| [] + ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 249 ) - ) + ( LiteralInt Nothing 249 :| [] ) :| [] + ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 250 ) - ) + ( LiteralInt Nothing 250 :| [] ) :| [] + ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 251 ) - ) + ( LiteralInt Nothing 251 :| [] ) :| [] + ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 252 ) - ) + ( LiteralInt Nothing 252 :| [] ) :| [] + ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 253 ) - ) + ( LiteralInt Nothing 253 :| [] ) :| [] + ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 254 ) - ) + ( LiteralInt Nothing 254 :| [] ) :| [] + ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 255 ) - ) + ( LiteralInt Nothing 255 :| [] ) :| [] + ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 256 ) - ) + ( LiteralInt Nothing 256 :| [] ) :| [] + ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 257 ) - ) + ( LiteralInt Nothing 257 :| [] ) :| [] + ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 258 ) - ) + ( LiteralInt Nothing 258 :| [] ) :| [] + ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 259 ) - ) + ( LiteralInt Nothing 259 :| [] ) :| [] + ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 260 ) - ) + ( LiteralInt Nothing 260 :| [] ) :| [] + ) :| [] ) ), Standalone - ( Nothing, Name "$tmp301", App Nothing + ( Nothing, Name "$tmp301", AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Local ( Name "$tmp300" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 261 ) - ) + ( LiteralInt Nothing 261 :| [] ) :| [] + ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 262 ) - ) + ( LiteralInt Nothing 262 :| [] ) :| [] + ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 263 ) - ) + ( LiteralInt Nothing 263 :| [] ) :| [] + ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 264 ) - ) + ( LiteralInt Nothing 264 :| [] ) :| [] + ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 265 ) - ) + ( LiteralInt Nothing 265 :| [] ) :| [] + ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 266 ) - ) + ( LiteralInt Nothing 266 :| [] ) :| [] + ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 267 ) - ) + ( LiteralInt Nothing 267 :| [] ) :| [] + ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 268 ) - ) + ( LiteralInt Nothing 268 :| [] ) :| [] + ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 269 ) - ) + ( LiteralInt Nothing 269 :| [] ) :| [] + ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 270 ) - ) + ( LiteralInt Nothing 270 :| [] ) :| [] + ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 271 ) - ) + ( LiteralInt Nothing 271 :| [] ) :| [] + ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 272 ) - ) + ( LiteralInt Nothing 272 :| [] ) :| [] + ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 273 ) - ) + ( LiteralInt Nothing 273 :| [] ) :| [] + ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 274 ) - ) + ( LiteralInt Nothing 274 :| [] ) :| [] + ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 275 ) - ) + ( LiteralInt Nothing 275 :| [] ) :| [] + ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 276 ) - ) + ( LiteralInt Nothing 276 :| [] ) :| [] + ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 277 ) - ) + ( LiteralInt Nothing 277 :| [] ) :| [] + ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 278 ) - ) + ( LiteralInt Nothing 278 :| [] ) :| [] + ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 279 ) - ) + ( LiteralInt Nothing 279 :| [] ) :| [] + ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 280 ) - ) + ( LiteralInt Nothing 280 :| [] ) :| [] + ) :| [] ) ) ] ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Local ( Name "$tmp301" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 281 ) - ) + ( LiteralInt Nothing 281 :| [] ) :| [] + ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 282 ) - ) + ( LiteralInt Nothing 282 :| [] ) :| [] + ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 283 ) - ) + ( LiteralInt Nothing 283 :| [] ) :| [] + ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 284 ) - ) + ( LiteralInt Nothing 284 :| [] ) :| [] + ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 285 ) - ) + ( LiteralInt Nothing 285 :| [] ) :| [] + ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 286 ) - ) + ( LiteralInt Nothing 286 :| [] ) :| [] + ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 287 ) - ) + ( LiteralInt Nothing 287 :| [] ) :| [] + ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 288 ) - ) + ( LiteralInt Nothing 288 :| [] ) :| [] + ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 289 ) - ) + ( LiteralInt Nothing 289 :| [] ) :| [] + ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 290 ) - ) + ( LiteralInt Nothing 290 :| [] ) :| [] + ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 291 ) - ) + ( LiteralInt Nothing 291 :| [] ) :| [] + ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 292 ) - ) + ( LiteralInt Nothing 292 :| [] ) :| [] + ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 293 ) - ) + ( LiteralInt Nothing 293 :| [] ) :| [] + ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 294 ) - ) + ( LiteralInt Nothing 294 :| [] ) :| [] + ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 295 ) - ) + ( LiteralInt Nothing 295 :| [] ) :| [] + ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 296 ) - ) + ( LiteralInt Nothing 296 :| [] ) :| [] + ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 297 ) - ) + ( LiteralInt Nothing 297 :| [] ) :| [] + ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 298 ) - ) + ( LiteralInt Nothing 298 :| [] ) :| [] + ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 299 ) - ) + ( LiteralInt Nothing 299 :| [] ) :| [] + ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 300 ) + ( LiteralInt Nothing 300 :| [] ) :| [] ) ) ) @@ -5430,13 +5432,13 @@ UberModule ( Name "compute", Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "compute" ) ) ), - ( Name "main", App Nothing + ( Name "main", AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Show" ) ( Name "show" ) ) ) ( LiteralObject Nothing [ @@ -5447,26 +5449,26 @@ UberModule ( LiteralString Nothing "Data.Maybe∷Maybe.Just" ) ( ReflectCtor Nothing ( Ref Nothing ( Local ( Name "v$20$287" ) ) ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Data.Semigroup" ) ( Name "foreign" ) ) ) ( PropName "concatString" ) ) - ( LiteralString Nothing "(Just " ) + ( LiteralString Nothing "(Just " :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Data.Semigroup" ) ( Name "foreign" ) ) ) ( PropName "concatString" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Show" ) ( Name "show" ) ) ) @@ -5478,16 +5480,16 @@ UberModule ) ( PropName "showIntImpl" ) ) - ] + ] :| [] ) ) ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "v$20$287" ) ) ) - ( PropName "value0" ) - ) + ( PropName "value0" ) :| [] + ) :| [] ) ) - ( LiteralString Nothing ")" ) + ( LiteralString Nothing ")" :| [] ) :| [] ) ) ( IfThenElse Nothing @@ -5500,12 +5502,12 @@ UberModule ) ) ) - ] + ] :| [] ) ) ( Ref Nothing - ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "compute" ) ) - ) + ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "compute" ) ) :| [] + ) :| [] ) ) ] diff --git a/test/ps/output/Golden.LongBindFlipped.Test/golden.ir b/test/ps/output/Golden.LongBindFlipped.Test/golden.ir index 0beb494e..eaf381a6 100644 --- a/test/ps/output/Golden.LongBindFlipped.Test/golden.ir +++ b/test/ps/output/Golden.LongBindFlipped.Test/golden.ir @@ -49,11 +49,11 @@ UberModule ( LiteralString Nothing "Data.Maybe∷Maybe.Just" ) ( ReflectCtor Nothing ( Ref Nothing ( Local ( Name "a$136$276" ) ) ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Local ( Name "b$135$275" ) ) ) ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "a$136$276" ) ) ) - ( PropName "value0" ) + ( PropName "value0" ) :| [] ) ) ( IfThenElse Nothing @@ -75,17 +75,17 @@ UberModule { qnameModuleName = ModuleName "Golden.LongBindFlipped.Test", qnameName = Name "inc" }, Abs Nothing ( ParamNamed Nothing ( Name "x" ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Data.Semiring" ) ( Name "foreign" ) ) ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x" ) ) ) + ( Ref Nothing ( Local ( Name "x" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) + ( LiteralInt Nothing 1 :| [] ) :| [] ) ) ), Standalone @@ -93,35 +93,35 @@ UberModule { qnameModuleName = ModuleName "Golden.LongBindFlipped.Test", qnameName = Name "compute" }, Let Nothing ( Standalone - ( Nothing, Name "$tmp283", App Nothing - ( App Nothing + ( Nothing, Name "$tmp283", AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "bindFlipped" ) ) ) ( Ref Nothing - ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) ) + ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) ) :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "bindFlipped" ) ) ) ( Ref Nothing - ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) ) + ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) ) :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "bindFlipped" ) ) ) ( Ref Nothing - ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) ) + ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) ) :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) @@ -129,11 +129,11 @@ UberModule ) ) ( Ref Nothing - ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) ) + ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) ) :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) @@ -141,11 +141,14 @@ UberModule ) ) ( Ref Nothing - ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) ) + ( Imported + ( ModuleName "Golden.LongBindFlipped.Test" ) + ( Name "inc" ) + ) :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) @@ -153,11 +156,14 @@ UberModule ) ) ( Ref Nothing - ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) ) + ( Imported + ( ModuleName "Golden.LongBindFlipped.Test" ) + ( Name "inc" ) + ) :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) @@ -165,11 +171,14 @@ UberModule ) ) ( Ref Nothing - ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) ) + ( Imported + ( ModuleName "Golden.LongBindFlipped.Test" ) + ( Name "inc" ) + ) :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) @@ -180,11 +189,11 @@ UberModule ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) + ) :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) @@ -195,11 +204,11 @@ UberModule ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) + ) :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) @@ -210,11 +219,11 @@ UberModule ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) + ) :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) @@ -225,11 +234,11 @@ UberModule ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) + ) :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) @@ -240,11 +249,11 @@ UberModule ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) + ) :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) @@ -255,11 +264,11 @@ UberModule ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) + ) :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) @@ -270,11 +279,11 @@ UberModule ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) + ) :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) @@ -285,11 +294,11 @@ UberModule ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) + ) :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) @@ -300,11 +309,11 @@ UberModule ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) + ) :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) @@ -315,11 +324,11 @@ UberModule ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) + ) :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) @@ -330,11 +339,11 @@ UberModule ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) + ) :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) @@ -345,11 +354,11 @@ UberModule ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) + ) :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) @@ -360,11 +369,11 @@ UberModule ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) + ) :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) @@ -375,11 +384,11 @@ UberModule ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) + ) :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) @@ -390,11 +399,11 @@ UberModule ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) + ) :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) @@ -405,11 +414,11 @@ UberModule ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) + ) :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) @@ -420,11 +429,11 @@ UberModule ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) + ) :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) @@ -435,11 +444,11 @@ UberModule ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) + ) :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) @@ -450,11 +459,11 @@ UberModule ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) + ) :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) @@ -465,11 +474,11 @@ UberModule ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) + ) :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) @@ -480,11 +489,11 @@ UberModule ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) + ) :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) @@ -495,11 +504,11 @@ UberModule ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) + ) :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) @@ -510,11 +519,11 @@ UberModule ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) + ) :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) @@ -525,11 +534,11 @@ UberModule ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) + ) :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) @@ -540,11 +549,11 @@ UberModule ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) + ) :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) @@ -555,11 +564,11 @@ UberModule ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) + ) :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) @@ -570,11 +579,11 @@ UberModule ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) + ) :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) @@ -585,11 +594,11 @@ UberModule ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) + ) :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) @@ -600,11 +609,11 @@ UberModule ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) + ) :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) @@ -615,11 +624,11 @@ UberModule ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) + ) :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) @@ -630,11 +639,11 @@ UberModule ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) + ) :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) @@ -645,78 +654,78 @@ UberModule ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) + ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 1 ) - ) - ) - ) - ) - ) - ) - ) - ) - ) - ) - ) - ) - ) - ) - ) - ) - ) - ) - ) - ) - ) - ) - ) - ) - ) - ) - ) - ) - ) - ) - ) - ) - ) - ) - ) - ) - ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] + ) :| [] + ) :| [] + ) :| [] + ) :| [] + ) :| [] + ) :| [] + ) :| [] + ) :| [] + ) :| [] + ) :| [] + ) :| [] + ) :| [] + ) :| [] + ) :| [] + ) :| [] + ) :| [] + ) :| [] + ) :| [] + ) :| [] + ) :| [] + ) :| [] + ) :| [] + ) :| [] + ) :| [] + ) :| [] + ) :| [] + ) :| [] + ) :| [] + ) :| [] + ) :| [] + ) :| [] + ) :| [] + ) :| [] + ) :| [] + ) :| [] + ) :| [] + ) :| [] ) ) :| [ Standalone - ( Nothing, Name "$tmp284", App Nothing - ( App Nothing + ( Nothing, Name "$tmp284", AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "bindFlipped" ) ) ) ( Ref Nothing - ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) ) + ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) ) :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "bindFlipped" ) ) ) ( Ref Nothing - ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) ) + ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) ) :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) @@ -724,11 +733,11 @@ UberModule ) ) ( Ref Nothing - ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) ) + ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) ) :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) @@ -736,11 +745,14 @@ UberModule ) ) ( Ref Nothing - ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) ) + ( Imported + ( ModuleName "Golden.LongBindFlipped.Test" ) + ( Name "inc" ) + ) :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) @@ -748,11 +760,14 @@ UberModule ) ) ( Ref Nothing - ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) ) + ( Imported + ( ModuleName "Golden.LongBindFlipped.Test" ) + ( Name "inc" ) + ) :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) @@ -760,11 +775,14 @@ UberModule ) ) ( Ref Nothing - ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) ) + ( Imported + ( ModuleName "Golden.LongBindFlipped.Test" ) + ( Name "inc" ) + ) :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) @@ -775,11 +793,11 @@ UberModule ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) + ) :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) @@ -790,11 +808,11 @@ UberModule ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) + ) :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) @@ -805,11 +823,11 @@ UberModule ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) + ) :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) @@ -820,11 +838,11 @@ UberModule ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) + ) :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) @@ -835,11 +853,11 @@ UberModule ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) + ) :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) @@ -850,11 +868,11 @@ UberModule ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) + ) :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) @@ -865,11 +883,11 @@ UberModule ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) + ) :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) @@ -880,11 +898,11 @@ UberModule ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) + ) :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) @@ -895,11 +913,11 @@ UberModule ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) + ) :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) @@ -910,11 +928,11 @@ UberModule ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) + ) :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) @@ -925,11 +943,11 @@ UberModule ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) + ) :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) @@ -940,11 +958,11 @@ UberModule ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) + ) :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) @@ -955,11 +973,11 @@ UberModule ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) + ) :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) @@ -970,11 +988,11 @@ UberModule ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) + ) :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) @@ -985,11 +1003,11 @@ UberModule ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) + ) :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) @@ -1000,11 +1018,11 @@ UberModule ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) + ) :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) @@ -1015,11 +1033,11 @@ UberModule ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) + ) :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) @@ -1030,11 +1048,11 @@ UberModule ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) + ) :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) @@ -1045,11 +1063,11 @@ UberModule ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) + ) :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) @@ -1060,11 +1078,11 @@ UberModule ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) + ) :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) @@ -1075,11 +1093,11 @@ UberModule ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) + ) :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) @@ -1090,11 +1108,11 @@ UberModule ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) + ) :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) @@ -1105,11 +1123,11 @@ UberModule ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) + ) :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) @@ -1120,11 +1138,11 @@ UberModule ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) + ) :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) @@ -1135,11 +1153,11 @@ UberModule ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) + ) :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) @@ -1150,11 +1168,11 @@ UberModule ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) + ) :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) @@ -1165,11 +1183,11 @@ UberModule ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) + ) :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) @@ -1180,11 +1198,11 @@ UberModule ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) + ) :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) @@ -1195,11 +1213,11 @@ UberModule ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) + ) :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) @@ -1210,11 +1228,11 @@ UberModule ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) + ) :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) @@ -1225,11 +1243,11 @@ UberModule ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) + ) :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) @@ -1240,11 +1258,11 @@ UberModule ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) + ) :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) @@ -1255,11 +1273,11 @@ UberModule ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) + ) :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) @@ -1270,74 +1288,74 @@ UberModule ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) + ) :| [] ) ) ( Ref Nothing ( Local ( Name "$tmp283" ) - ) - ) - ) - ) - ) - ) - ) - ) - ) - ) - ) - ) - ) - ) - ) - ) - ) - ) - ) - ) - ) - ) - ) - ) - ) - ) - ) - ) - ) - ) - ) - ) - ) - ) - ) - ) - ) - ) - ) - ) + ) :| [] + ) :| [] + ) :| [] + ) :| [] + ) :| [] + ) :| [] + ) :| [] + ) :| [] + ) :| [] + ) :| [] + ) :| [] + ) :| [] + ) :| [] + ) :| [] + ) :| [] + ) :| [] + ) :| [] + ) :| [] + ) :| [] + ) :| [] + ) :| [] + ) :| [] + ) :| [] + ) :| [] + ) :| [] + ) :| [] + ) :| [] + ) :| [] + ) :| [] + ) :| [] + ) :| [] + ) :| [] + ) :| [] + ) :| [] + ) :| [] + ) :| [] + ) :| [] + ) :| [] + ) :| [] + ) :| [] ) ), Standalone - ( Nothing, Name "$tmp285", App Nothing - ( App Nothing + ( Nothing, Name "$tmp285", AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "bindFlipped" ) ) ) ( Ref Nothing - ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) ) + ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) ) :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "bindFlipped" ) ) ) ( Ref Nothing - ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) ) + ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) ) :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) @@ -1345,11 +1363,11 @@ UberModule ) ) ( Ref Nothing - ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) ) + ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) ) :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) @@ -1357,11 +1375,14 @@ UberModule ) ) ( Ref Nothing - ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) ) + ( Imported + ( ModuleName "Golden.LongBindFlipped.Test" ) + ( Name "inc" ) + ) :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) @@ -1369,11 +1390,14 @@ UberModule ) ) ( Ref Nothing - ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) ) + ( Imported + ( ModuleName "Golden.LongBindFlipped.Test" ) + ( Name "inc" ) + ) :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) @@ -1381,11 +1405,14 @@ UberModule ) ) ( Ref Nothing - ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) ) + ( Imported + ( ModuleName "Golden.LongBindFlipped.Test" ) + ( Name "inc" ) + ) :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) @@ -1396,11 +1423,11 @@ UberModule ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) + ) :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) @@ -1411,11 +1438,11 @@ UberModule ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) + ) :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) @@ -1426,11 +1453,11 @@ UberModule ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) + ) :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) @@ -1441,11 +1468,11 @@ UberModule ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) + ) :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) @@ -1456,11 +1483,11 @@ UberModule ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) + ) :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) @@ -1471,11 +1498,11 @@ UberModule ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) + ) :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) @@ -1486,11 +1513,11 @@ UberModule ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) + ) :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) @@ -1501,11 +1528,11 @@ UberModule ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) + ) :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) @@ -1516,11 +1543,11 @@ UberModule ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) + ) :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) @@ -1531,11 +1558,11 @@ UberModule ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) + ) :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) @@ -1546,11 +1573,11 @@ UberModule ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) + ) :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) @@ -1561,11 +1588,11 @@ UberModule ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) + ) :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) @@ -1576,11 +1603,11 @@ UberModule ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) + ) :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) @@ -1591,11 +1618,11 @@ UberModule ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) + ) :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) @@ -1606,11 +1633,11 @@ UberModule ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) + ) :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) @@ -1621,11 +1648,11 @@ UberModule ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) + ) :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) @@ -1636,11 +1663,11 @@ UberModule ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) + ) :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) @@ -1651,11 +1678,11 @@ UberModule ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) + ) :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) @@ -1666,11 +1693,11 @@ UberModule ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) + ) :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) @@ -1681,11 +1708,11 @@ UberModule ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) + ) :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) @@ -1696,11 +1723,11 @@ UberModule ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) + ) :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) @@ -1711,11 +1738,11 @@ UberModule ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) + ) :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) @@ -1726,11 +1753,11 @@ UberModule ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) + ) :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) @@ -1741,11 +1768,11 @@ UberModule ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) + ) :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) @@ -1756,11 +1783,11 @@ UberModule ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) + ) :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) @@ -1771,11 +1798,11 @@ UberModule ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) + ) :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) @@ -1786,11 +1813,11 @@ UberModule ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) + ) :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) @@ -1801,11 +1828,11 @@ UberModule ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) + ) :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) @@ -1816,11 +1843,11 @@ UberModule ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) + ) :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) @@ -1831,11 +1858,11 @@ UberModule ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) + ) :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) @@ -1846,11 +1873,11 @@ UberModule ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) + ) :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) @@ -1861,11 +1888,11 @@ UberModule ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) + ) :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) @@ -1876,11 +1903,11 @@ UberModule ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) + ) :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) @@ -1891,74 +1918,74 @@ UberModule ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) + ) :| [] ) ) ( Ref Nothing ( Local ( Name "$tmp284" ) - ) - ) - ) - ) - ) - ) - ) - ) - ) - ) - ) - ) - ) - ) - ) - ) - ) - ) - ) - ) - ) - ) - ) - ) - ) - ) - ) - ) - ) - ) - ) - ) - ) - ) - ) - ) - ) - ) - ) - ) + ) :| [] + ) :| [] + ) :| [] + ) :| [] + ) :| [] + ) :| [] + ) :| [] + ) :| [] + ) :| [] + ) :| [] + ) :| [] + ) :| [] + ) :| [] + ) :| [] + ) :| [] + ) :| [] + ) :| [] + ) :| [] + ) :| [] + ) :| [] + ) :| [] + ) :| [] + ) :| [] + ) :| [] + ) :| [] + ) :| [] + ) :| [] + ) :| [] + ) :| [] + ) :| [] + ) :| [] + ) :| [] + ) :| [] + ) :| [] + ) :| [] + ) :| [] + ) :| [] + ) :| [] + ) :| [] + ) :| [] ) ), Standalone - ( Nothing, Name "$tmp286", App Nothing - ( App Nothing + ( Nothing, Name "$tmp286", AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "bindFlipped" ) ) ) ( Ref Nothing - ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) ) + ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) ) :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "bindFlipped" ) ) ) ( Ref Nothing - ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) ) + ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) ) :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) @@ -1966,11 +1993,11 @@ UberModule ) ) ( Ref Nothing - ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) ) + ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) ) :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) @@ -1978,11 +2005,14 @@ UberModule ) ) ( Ref Nothing - ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) ) + ( Imported + ( ModuleName "Golden.LongBindFlipped.Test" ) + ( Name "inc" ) + ) :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) @@ -1990,11 +2020,14 @@ UberModule ) ) ( Ref Nothing - ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) ) + ( Imported + ( ModuleName "Golden.LongBindFlipped.Test" ) + ( Name "inc" ) + ) :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) @@ -2002,11 +2035,14 @@ UberModule ) ) ( Ref Nothing - ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) ) + ( Imported + ( ModuleName "Golden.LongBindFlipped.Test" ) + ( Name "inc" ) + ) :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) @@ -2017,11 +2053,11 @@ UberModule ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) + ) :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) @@ -2032,11 +2068,11 @@ UberModule ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) + ) :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) @@ -2047,11 +2083,11 @@ UberModule ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) + ) :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) @@ -2062,11 +2098,11 @@ UberModule ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) + ) :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) @@ -2077,11 +2113,11 @@ UberModule ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) + ) :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) @@ -2092,11 +2128,11 @@ UberModule ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) + ) :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) @@ -2107,11 +2143,11 @@ UberModule ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) + ) :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) @@ -2122,11 +2158,11 @@ UberModule ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) + ) :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) @@ -2137,11 +2173,11 @@ UberModule ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) + ) :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) @@ -2152,11 +2188,11 @@ UberModule ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) + ) :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) @@ -2167,11 +2203,11 @@ UberModule ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) + ) :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) @@ -2182,11 +2218,11 @@ UberModule ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) + ) :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) @@ -2197,11 +2233,11 @@ UberModule ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) + ) :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) @@ -2212,11 +2248,11 @@ UberModule ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) + ) :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) @@ -2227,11 +2263,11 @@ UberModule ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) + ) :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) @@ -2242,11 +2278,11 @@ UberModule ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) + ) :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) @@ -2257,11 +2293,11 @@ UberModule ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) + ) :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) @@ -2272,11 +2308,11 @@ UberModule ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) + ) :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) @@ -2287,11 +2323,11 @@ UberModule ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) + ) :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) @@ -2302,11 +2338,11 @@ UberModule ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) + ) :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) @@ -2317,11 +2353,11 @@ UberModule ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) + ) :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) @@ -2332,11 +2368,11 @@ UberModule ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) + ) :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) @@ -2347,11 +2383,11 @@ UberModule ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) + ) :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) @@ -2362,11 +2398,11 @@ UberModule ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) + ) :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) @@ -2377,11 +2413,11 @@ UberModule ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) + ) :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) @@ -2392,11 +2428,11 @@ UberModule ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) + ) :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) @@ -2407,11 +2443,11 @@ UberModule ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) + ) :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) @@ -2422,11 +2458,11 @@ UberModule ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) + ) :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) @@ -2437,11 +2473,11 @@ UberModule ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) + ) :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) @@ -2452,11 +2488,11 @@ UberModule ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) + ) :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) @@ -2467,11 +2503,11 @@ UberModule ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) + ) :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) @@ -2482,11 +2518,11 @@ UberModule ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) + ) :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) @@ -2497,11 +2533,11 @@ UberModule ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) + ) :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) @@ -2512,74 +2548,74 @@ UberModule ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) + ) :| [] ) ) ( Ref Nothing ( Local ( Name "$tmp285" ) - ) - ) - ) - ) - ) - ) - ) - ) - ) - ) - ) - ) - ) - ) - ) - ) - ) - ) - ) - ) - ) - ) - ) - ) - ) - ) - ) - ) - ) - ) - ) - ) - ) - ) - ) - ) - ) - ) - ) - ) + ) :| [] + ) :| [] + ) :| [] + ) :| [] + ) :| [] + ) :| [] + ) :| [] + ) :| [] + ) :| [] + ) :| [] + ) :| [] + ) :| [] + ) :| [] + ) :| [] + ) :| [] + ) :| [] + ) :| [] + ) :| [] + ) :| [] + ) :| [] + ) :| [] + ) :| [] + ) :| [] + ) :| [] + ) :| [] + ) :| [] + ) :| [] + ) :| [] + ) :| [] + ) :| [] + ) :| [] + ) :| [] + ) :| [] + ) :| [] + ) :| [] + ) :| [] + ) :| [] + ) :| [] + ) :| [] + ) :| [] ) ), Standalone - ( Nothing, Name "$tmp287", App Nothing - ( App Nothing + ( Nothing, Name "$tmp287", AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "bindFlipped" ) ) ) ( Ref Nothing - ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) ) + ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) ) :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "bindFlipped" ) ) ) ( Ref Nothing - ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) ) + ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) ) :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) @@ -2587,11 +2623,11 @@ UberModule ) ) ( Ref Nothing - ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) ) + ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) ) :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) @@ -2599,11 +2635,14 @@ UberModule ) ) ( Ref Nothing - ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) ) + ( Imported + ( ModuleName "Golden.LongBindFlipped.Test" ) + ( Name "inc" ) + ) :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) @@ -2611,11 +2650,14 @@ UberModule ) ) ( Ref Nothing - ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) ) + ( Imported + ( ModuleName "Golden.LongBindFlipped.Test" ) + ( Name "inc" ) + ) :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) @@ -2623,11 +2665,14 @@ UberModule ) ) ( Ref Nothing - ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) ) + ( Imported + ( ModuleName "Golden.LongBindFlipped.Test" ) + ( Name "inc" ) + ) :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) @@ -2638,11 +2683,11 @@ UberModule ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) + ) :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) @@ -2653,11 +2698,11 @@ UberModule ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) + ) :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) @@ -2668,11 +2713,11 @@ UberModule ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) + ) :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) @@ -2683,11 +2728,11 @@ UberModule ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) + ) :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) @@ -2698,11 +2743,11 @@ UberModule ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) + ) :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) @@ -2713,11 +2758,11 @@ UberModule ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) + ) :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) @@ -2728,11 +2773,11 @@ UberModule ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) + ) :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) @@ -2743,11 +2788,11 @@ UberModule ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) + ) :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) @@ -2758,11 +2803,11 @@ UberModule ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) + ) :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) @@ -2773,11 +2818,11 @@ UberModule ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) + ) :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) @@ -2788,11 +2833,11 @@ UberModule ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) + ) :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) @@ -2803,11 +2848,11 @@ UberModule ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) + ) :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) @@ -2818,11 +2863,11 @@ UberModule ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) + ) :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) @@ -2833,11 +2878,11 @@ UberModule ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) + ) :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) @@ -2848,11 +2893,11 @@ UberModule ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) + ) :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) @@ -2863,11 +2908,11 @@ UberModule ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) + ) :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) @@ -2878,11 +2923,11 @@ UberModule ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) + ) :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) @@ -2893,11 +2938,11 @@ UberModule ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) + ) :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) @@ -2908,11 +2953,11 @@ UberModule ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) + ) :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) @@ -2923,11 +2968,11 @@ UberModule ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) + ) :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) @@ -2938,11 +2983,11 @@ UberModule ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) + ) :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) @@ -2953,11 +2998,11 @@ UberModule ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) + ) :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) @@ -2968,11 +3013,11 @@ UberModule ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) + ) :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) @@ -2983,11 +3028,11 @@ UberModule ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) + ) :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) @@ -2998,11 +3043,11 @@ UberModule ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) + ) :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) @@ -3013,11 +3058,11 @@ UberModule ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) + ) :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) @@ -3028,11 +3073,11 @@ UberModule ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) + ) :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) @@ -3043,11 +3088,11 @@ UberModule ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) + ) :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) @@ -3058,11 +3103,11 @@ UberModule ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) + ) :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) @@ -3073,11 +3118,11 @@ UberModule ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) + ) :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) @@ -3088,11 +3133,11 @@ UberModule ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) + ) :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) @@ -3103,11 +3148,11 @@ UberModule ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) + ) :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) @@ -3118,11 +3163,11 @@ UberModule ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) + ) :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) @@ -3133,74 +3178,74 @@ UberModule ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) + ) :| [] ) ) ( Ref Nothing ( Local ( Name "$tmp286" ) - ) - ) - ) - ) - ) - ) - ) - ) - ) - ) - ) - ) - ) - ) - ) - ) - ) - ) - ) - ) - ) - ) - ) - ) - ) - ) - ) - ) - ) - ) - ) - ) - ) - ) - ) - ) - ) - ) - ) - ) + ) :| [] + ) :| [] + ) :| [] + ) :| [] + ) :| [] + ) :| [] + ) :| [] + ) :| [] + ) :| [] + ) :| [] + ) :| [] + ) :| [] + ) :| [] + ) :| [] + ) :| [] + ) :| [] + ) :| [] + ) :| [] + ) :| [] + ) :| [] + ) :| [] + ) :| [] + ) :| [] + ) :| [] + ) :| [] + ) :| [] + ) :| [] + ) :| [] + ) :| [] + ) :| [] + ) :| [] + ) :| [] + ) :| [] + ) :| [] + ) :| [] + ) :| [] + ) :| [] + ) :| [] + ) :| [] + ) :| [] ) ), Standalone - ( Nothing, Name "$tmp288", App Nothing - ( App Nothing + ( Nothing, Name "$tmp288", AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "bindFlipped" ) ) ) ( Ref Nothing - ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) ) + ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) ) :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "bindFlipped" ) ) ) ( Ref Nothing - ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) ) + ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) ) :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) @@ -3208,11 +3253,11 @@ UberModule ) ) ( Ref Nothing - ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) ) + ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) ) :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) @@ -3220,11 +3265,14 @@ UberModule ) ) ( Ref Nothing - ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) ) + ( Imported + ( ModuleName "Golden.LongBindFlipped.Test" ) + ( Name "inc" ) + ) :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) @@ -3232,11 +3280,14 @@ UberModule ) ) ( Ref Nothing - ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) ) + ( Imported + ( ModuleName "Golden.LongBindFlipped.Test" ) + ( Name "inc" ) + ) :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) @@ -3244,11 +3295,14 @@ UberModule ) ) ( Ref Nothing - ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) ) + ( Imported + ( ModuleName "Golden.LongBindFlipped.Test" ) + ( Name "inc" ) + ) :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) @@ -3259,11 +3313,11 @@ UberModule ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) + ) :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) @@ -3274,11 +3328,11 @@ UberModule ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) + ) :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) @@ -3289,11 +3343,11 @@ UberModule ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) + ) :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) @@ -3304,11 +3358,11 @@ UberModule ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) + ) :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) @@ -3319,11 +3373,11 @@ UberModule ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) + ) :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) @@ -3334,11 +3388,11 @@ UberModule ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) + ) :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) @@ -3349,11 +3403,11 @@ UberModule ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) + ) :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) @@ -3364,11 +3418,11 @@ UberModule ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) + ) :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) @@ -3379,11 +3433,11 @@ UberModule ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) + ) :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) @@ -3394,11 +3448,11 @@ UberModule ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) + ) :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) @@ -3409,11 +3463,11 @@ UberModule ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) + ) :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) @@ -3424,11 +3478,11 @@ UberModule ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) + ) :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) @@ -3439,11 +3493,11 @@ UberModule ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) + ) :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) @@ -3454,11 +3508,11 @@ UberModule ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) + ) :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) @@ -3469,11 +3523,11 @@ UberModule ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) + ) :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) @@ -3484,11 +3538,11 @@ UberModule ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) + ) :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) @@ -3499,11 +3553,11 @@ UberModule ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) + ) :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) @@ -3514,11 +3568,11 @@ UberModule ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) + ) :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) @@ -3529,11 +3583,11 @@ UberModule ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) + ) :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) @@ -3544,11 +3598,11 @@ UberModule ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) + ) :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) @@ -3559,11 +3613,11 @@ UberModule ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) + ) :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) @@ -3574,11 +3628,11 @@ UberModule ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) + ) :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) @@ -3589,11 +3643,11 @@ UberModule ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) + ) :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) @@ -3604,11 +3658,11 @@ UberModule ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) + ) :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) @@ -3619,11 +3673,11 @@ UberModule ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) + ) :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) @@ -3634,11 +3688,11 @@ UberModule ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) + ) :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) @@ -3649,11 +3703,11 @@ UberModule ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) + ) :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) @@ -3664,11 +3718,11 @@ UberModule ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) + ) :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) @@ -3679,11 +3733,11 @@ UberModule ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) + ) :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) @@ -3694,11 +3748,11 @@ UberModule ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) + ) :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) @@ -3709,11 +3763,11 @@ UberModule ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) + ) :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) @@ -3724,11 +3778,11 @@ UberModule ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) + ) :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) @@ -3739,11 +3793,11 @@ UberModule ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) + ) :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) @@ -3754,74 +3808,74 @@ UberModule ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) + ) :| [] ) ) ( Ref Nothing ( Local ( Name "$tmp287" ) - ) - ) - ) - ) - ) - ) - ) - ) - ) - ) - ) - ) - ) - ) - ) - ) - ) - ) - ) - ) - ) - ) - ) - ) - ) - ) - ) - ) - ) - ) - ) - ) - ) - ) - ) - ) - ) - ) - ) - ) + ) :| [] + ) :| [] + ) :| [] + ) :| [] + ) :| [] + ) :| [] + ) :| [] + ) :| [] + ) :| [] + ) :| [] + ) :| [] + ) :| [] + ) :| [] + ) :| [] + ) :| [] + ) :| [] + ) :| [] + ) :| [] + ) :| [] + ) :| [] + ) :| [] + ) :| [] + ) :| [] + ) :| [] + ) :| [] + ) :| [] + ) :| [] + ) :| [] + ) :| [] + ) :| [] + ) :| [] + ) :| [] + ) :| [] + ) :| [] + ) :| [] + ) :| [] + ) :| [] + ) :| [] + ) :| [] + ) :| [] ) ), Standalone - ( Nothing, Name "$tmp289", App Nothing - ( App Nothing + ( Nothing, Name "$tmp289", AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "bindFlipped" ) ) ) ( Ref Nothing - ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) ) + ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) ) :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "bindFlipped" ) ) ) ( Ref Nothing - ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) ) + ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) ) :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) @@ -3829,11 +3883,11 @@ UberModule ) ) ( Ref Nothing - ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) ) + ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) ) :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) @@ -3841,11 +3895,14 @@ UberModule ) ) ( Ref Nothing - ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) ) + ( Imported + ( ModuleName "Golden.LongBindFlipped.Test" ) + ( Name "inc" ) + ) :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) @@ -3853,11 +3910,14 @@ UberModule ) ) ( Ref Nothing - ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) ) + ( Imported + ( ModuleName "Golden.LongBindFlipped.Test" ) + ( Name "inc" ) + ) :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) @@ -3865,11 +3925,14 @@ UberModule ) ) ( Ref Nothing - ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) ) + ( Imported + ( ModuleName "Golden.LongBindFlipped.Test" ) + ( Name "inc" ) + ) :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) @@ -3880,11 +3943,11 @@ UberModule ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) + ) :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) @@ -3895,11 +3958,11 @@ UberModule ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) + ) :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) @@ -3910,11 +3973,11 @@ UberModule ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) + ) :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) @@ -3925,11 +3988,11 @@ UberModule ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) + ) :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) @@ -3940,11 +4003,11 @@ UberModule ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) + ) :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) @@ -3955,11 +4018,11 @@ UberModule ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) + ) :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) @@ -3970,11 +4033,11 @@ UberModule ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) + ) :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) @@ -3985,11 +4048,11 @@ UberModule ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) + ) :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) @@ -4000,11 +4063,11 @@ UberModule ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) + ) :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) @@ -4015,11 +4078,11 @@ UberModule ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) + ) :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) @@ -4030,11 +4093,11 @@ UberModule ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) + ) :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) @@ -4045,11 +4108,11 @@ UberModule ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) + ) :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) @@ -4060,11 +4123,11 @@ UberModule ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) + ) :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) @@ -4075,11 +4138,11 @@ UberModule ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) + ) :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) @@ -4090,11 +4153,11 @@ UberModule ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) + ) :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) @@ -4105,11 +4168,11 @@ UberModule ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) + ) :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) @@ -4120,11 +4183,11 @@ UberModule ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) + ) :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) @@ -4135,11 +4198,11 @@ UberModule ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) + ) :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) @@ -4150,11 +4213,11 @@ UberModule ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) + ) :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) @@ -4165,11 +4228,11 @@ UberModule ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) + ) :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) @@ -4180,11 +4243,11 @@ UberModule ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) + ) :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) @@ -4195,11 +4258,11 @@ UberModule ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) + ) :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) @@ -4210,11 +4273,11 @@ UberModule ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) + ) :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) @@ -4225,11 +4288,11 @@ UberModule ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) + ) :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) @@ -4240,11 +4303,11 @@ UberModule ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) + ) :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) @@ -4255,11 +4318,11 @@ UberModule ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) + ) :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) @@ -4270,11 +4333,11 @@ UberModule ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) + ) :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) @@ -4285,11 +4348,11 @@ UberModule ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) + ) :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) @@ -4300,11 +4363,11 @@ UberModule ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) + ) :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) @@ -4315,11 +4378,11 @@ UberModule ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) + ) :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) @@ -4330,11 +4393,11 @@ UberModule ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) + ) :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) @@ -4345,11 +4408,11 @@ UberModule ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) + ) :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) @@ -4360,11 +4423,11 @@ UberModule ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) + ) :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) @@ -4375,92 +4438,94 @@ UberModule ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) + ) :| [] ) ) ( Ref Nothing ( Local ( Name "$tmp288" ) - ) - ) - ) - ) - ) - ) - ) - ) - ) - ) - ) - ) - ) - ) - ) - ) - ) - ) - ) - ) - ) - ) - ) - ) - ) - ) - ) - ) - ) - ) - ) - ) - ) - ) - ) - ) - ) - ) - ) - ) + ) :| [] + ) :| [] + ) :| [] + ) :| [] + ) :| [] + ) :| [] + ) :| [] + ) :| [] + ) :| [] + ) :| [] + ) :| [] + ) :| [] + ) :| [] + ) :| [] + ) :| [] + ) :| [] + ) :| [] + ) :| [] + ) :| [] + ) :| [] + ) :| [] + ) :| [] + ) :| [] + ) :| [] + ) :| [] + ) :| [] + ) :| [] + ) :| [] + ) :| [] + ) :| [] + ) :| [] + ) :| [] + ) :| [] + ) :| [] + ) :| [] + ) :| [] + ) :| [] + ) :| [] + ) :| [] + ) :| [] ) ) ] ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "bindFlipped" ) ) ) - ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) ) ) + ( Ref Nothing + ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) ) :| [] + ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "bindFlipped" ) ) ) ( Ref Nothing - ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) ) + ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) ) :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "bindFlipped" ) ) ) ( Ref Nothing - ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) ) + ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) ) :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "bindFlipped" ) ) ) ( Ref Nothing - ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) ) + ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) ) :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) @@ -4468,11 +4533,11 @@ UberModule ) ) ( Ref Nothing - ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) ) + ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) ) :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) @@ -4480,11 +4545,14 @@ UberModule ) ) ( Ref Nothing - ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) ) + ( Imported + ( ModuleName "Golden.LongBindFlipped.Test" ) + ( Name "inc" ) + ) :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) @@ -4492,11 +4560,14 @@ UberModule ) ) ( Ref Nothing - ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) ) + ( Imported + ( ModuleName "Golden.LongBindFlipped.Test" ) + ( Name "inc" ) + ) :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) @@ -4504,11 +4575,14 @@ UberModule ) ) ( Ref Nothing - ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) ) + ( Imported + ( ModuleName "Golden.LongBindFlipped.Test" ) + ( Name "inc" ) + ) :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) @@ -4519,11 +4593,11 @@ UberModule ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) + ) :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) @@ -4534,11 +4608,11 @@ UberModule ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) + ) :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) @@ -4549,11 +4623,11 @@ UberModule ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) + ) :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) @@ -4564,11 +4638,11 @@ UberModule ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) + ) :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) @@ -4579,11 +4653,11 @@ UberModule ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) + ) :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) @@ -4594,11 +4668,11 @@ UberModule ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) + ) :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) @@ -4609,11 +4683,11 @@ UberModule ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) + ) :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) @@ -4624,11 +4698,11 @@ UberModule ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) + ) :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) @@ -4639,11 +4713,11 @@ UberModule ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) + ) :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) @@ -4654,11 +4728,11 @@ UberModule ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) + ) :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) @@ -4669,11 +4743,11 @@ UberModule ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) + ) :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) @@ -4684,11 +4758,11 @@ UberModule ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) + ) :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) @@ -4699,29 +4773,31 @@ UberModule ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) + ) :| [] ) ) - ( Ref Nothing ( Local ( Name "$tmp289" ) ) ) - ) - ) - ) - ) - ) - ) - ) - ) - ) - ) - ) - ) - ) - ) - ) - ) - ) - ) - ) + ( Ref Nothing + ( Local ( Name "$tmp289" ) ) :| [] + ) :| [] + ) :| [] + ) :| [] + ) :| [] + ) :| [] + ) :| [] + ) :| [] + ) :| [] + ) :| [] + ) :| [] + ) :| [] + ) :| [] + ) :| [] + ) :| [] + ) :| [] + ) :| [] + ) :| [] + ) :| [] + ) :| [] + ) :| [] ) ) ) @@ -4733,13 +4809,13 @@ UberModule ( Name "compute", Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "compute" ) ) ), - ( Name "main", App Nothing + ( Name "main", AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Show" ) ( Name "show" ) ) ) ( LiteralObject Nothing [ @@ -4750,26 +4826,26 @@ UberModule ( LiteralString Nothing "Data.Maybe∷Maybe.Just" ) ( ReflectCtor Nothing ( Ref Nothing ( Local ( Name "v$16$282" ) ) ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Data.Semigroup" ) ( Name "foreign" ) ) ) ( PropName "concatString" ) ) - ( LiteralString Nothing "(Just " ) + ( LiteralString Nothing "(Just " :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Data.Semigroup" ) ( Name "foreign" ) ) ) ( PropName "concatString" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Show" ) ( Name "show" ) ) ) @@ -4781,16 +4857,16 @@ UberModule ) ( PropName "showIntImpl" ) ) - ] + ] :| [] ) ) ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "v$16$282" ) ) ) - ( PropName "value0" ) - ) + ( PropName "value0" ) :| [] + ) :| [] ) ) - ( LiteralString Nothing ")" ) + ( LiteralString Nothing ")" :| [] ) :| [] ) ) ( IfThenElse Nothing @@ -4803,12 +4879,12 @@ UberModule ) ) ) - ] + ] :| [] ) ) ( Ref Nothing - ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "compute" ) ) - ) + ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "compute" ) ) :| [] + ) :| [] ) ) ] diff --git a/test/ps/output/Golden.LongCallbackChain.Test/golden.ir b/test/ps/output/Golden.LongCallbackChain.Test/golden.ir index 0a2eee02..29a91d68 100644 --- a/test/ps/output/Golden.LongCallbackChain.Test/golden.ir +++ b/test/ps/output/Golden.LongCallbackChain.Test/golden.ir @@ -37,11 +37,11 @@ UberModule ( Eq Nothing ( LiteralString Nothing "Data.Ordering∷Ordering.LT" ) ( ReflectCtor Nothing - ( App Nothing - ( App Nothing - ( App Nothing - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing + ( AppN Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Data.Ord" ) ( Name "foreign" ) ) @@ -51,61 +51,61 @@ UberModule ( Ctor Nothing SumType ( ModuleName "Data.Ordering" ) ( TyName "Ordering" ) - ( CtorName "LT" ) [] + ( CtorName "LT" ) [] :| [] ) ) ( Ctor Nothing SumType ( ModuleName "Data.Ordering" ) ( TyName "Ordering" ) - ( CtorName "EQ" ) [] + ( CtorName "EQ" ) [] :| [] ) ) ( Ctor Nothing SumType ( ModuleName "Data.Ordering" ) ( TyName "Ordering" ) - ( CtorName "GT" ) [] + ( CtorName "GT" ) [] :| [] ) ) - ( Ref Nothing ( Local ( Name "n" ) ) ) + ( Ref Nothing ( Local ( Name "n" ) ) :| [] ) ) - ( LiteralInt Nothing 0 ) + ( LiteralInt Nothing 0 :| [] ) ) ) ) ( LiteralBool Nothing True ) ( LiteralBool Nothing False ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) ( Name "withInc" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Data.Semiring" ) ( Name "foreign" ) ) ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "n" ) ) ) + ( Ref Nothing ( Local ( Name "n" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) + ( LiteralInt Nothing 1 :| [] ) :| [] ) ) - ( Ref Nothing ( Local ( Name "k" ) ) ) + ( Ref Nothing ( Local ( Name "k" ) ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Local ( Name "k" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Data.Semiring" ) ( Name "foreign" ) ) ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "n" ) ) ) + ( Ref Nothing ( Local ( Name "n" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) + ( LiteralInt Nothing 1 :| [] ) :| [] ) ) ) @@ -118,134 +118,136 @@ UberModule ( Standalone ( Nothing, Name "$kont182", Abs Nothing ( ParamNamed Nothing ( Name "x280$183" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) ( Name "withInc" ) ) ) - ( Ref Nothing ( Local ( Name "x280$183" ) ) ) + ( Ref Nothing ( Local ( Name "x280$183" ) ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x281" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) ( Name "withInc" ) ) ) - ( Ref Nothing ( Local ( Name "x281" ) ) ) + ( Ref Nothing ( Local ( Name "x281" ) ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x282" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) ( Name "withInc" ) ) ) - ( Ref Nothing ( Local ( Name "x282" ) ) ) + ( Ref Nothing ( Local ( Name "x282" ) ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x283" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) ( Name "withInc" ) ) ) - ( Ref Nothing ( Local ( Name "x283" ) ) ) + ( Ref Nothing ( Local ( Name "x283" ) ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x284" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) ( Name "withInc" ) ) ) - ( Ref Nothing ( Local ( Name "x284" ) ) ) + ( Ref Nothing ( Local ( Name "x284" ) ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x285" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) ( Name "withInc" ) ) ) - ( Ref Nothing ( Local ( Name "x285" ) ) ) + ( Ref Nothing ( Local ( Name "x285" ) ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x286" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) ( Name "withInc" ) ) ) - ( Ref Nothing ( Local ( Name "x286" ) ) ) + ( Ref Nothing ( Local ( Name "x286" ) ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x287" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) ( Name "withInc" ) ) ) - ( Ref Nothing ( Local ( Name "x287" ) ) ) + ( Ref Nothing ( Local ( Name "x287" ) ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x288" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) ( Name "withInc" ) ) ) - ( Ref Nothing ( Local ( Name "x288" ) ) ) + ( Ref Nothing ( Local ( Name "x288" ) ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x289" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) ( Name "withInc" ) ) ) - ( Ref Nothing ( Local ( Name "x289" ) ) ) + ( Ref Nothing ( Local ( Name "x289" ) ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x290" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) ( Name "withInc" ) ) ) - ( Ref Nothing ( Local ( Name "x290" ) ) ) + ( Ref Nothing + ( Local ( Name "x290" ) ) :| [] + ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x291" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) @@ -253,13 +255,13 @@ UberModule ) ) ( Ref Nothing - ( Local ( Name "x291" ) ) + ( Local ( Name "x291" ) ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x292" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) @@ -267,15 +269,15 @@ UberModule ) ) ( Ref Nothing - ( Local ( Name "x292" ) ) + ( Local ( Name "x292" ) ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x293" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) @@ -283,15 +285,17 @@ UberModule ) ) ( Ref Nothing - ( Local ( Name "x293" ) ) + ( Local + ( Name "x293" ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x294" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) @@ -299,15 +303,17 @@ UberModule ) ) ( Ref Nothing - ( Local ( Name "x294" ) ) + ( Local + ( Name "x294" ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x295" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) @@ -317,15 +323,15 @@ UberModule ( Ref Nothing ( Local ( Name "x295" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x296" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) @@ -335,15 +341,15 @@ UberModule ( Ref Nothing ( Local ( Name "x296" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x297" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) @@ -353,15 +359,15 @@ UberModule ( Ref Nothing ( Local ( Name "x297" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x298" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) @@ -371,15 +377,15 @@ UberModule ( Ref Nothing ( Local ( Name "x298" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x299" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) @@ -389,7 +395,7 @@ UberModule ( Ref Nothing ( Local ( Name "x299" ) - ) + ) :| [] ) ) ( Abs Nothing @@ -400,182 +406,186 @@ UberModule ( Local ( Name "x300" ) ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) ) ) :| [ Standalone ( Nothing, Name "$kont184", Abs Nothing ( ParamNamed Nothing ( Name "x240$185" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) ( Name "withInc" ) ) ) - ( Ref Nothing ( Local ( Name "x240$185" ) ) ) + ( Ref Nothing ( Local ( Name "x240$185" ) ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x241" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) ( Name "withInc" ) ) ) - ( Ref Nothing ( Local ( Name "x241" ) ) ) + ( Ref Nothing ( Local ( Name "x241" ) ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x242" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) ( Name "withInc" ) ) ) - ( Ref Nothing ( Local ( Name "x242" ) ) ) + ( Ref Nothing ( Local ( Name "x242" ) ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x243" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) ( Name "withInc" ) ) ) - ( Ref Nothing ( Local ( Name "x243" ) ) ) + ( Ref Nothing ( Local ( Name "x243" ) ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x244" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) ( Name "withInc" ) ) ) - ( Ref Nothing ( Local ( Name "x244" ) ) ) + ( Ref Nothing ( Local ( Name "x244" ) ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x245" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) ( Name "withInc" ) ) ) - ( Ref Nothing ( Local ( Name "x245" ) ) ) + ( Ref Nothing ( Local ( Name "x245" ) ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x246" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) ( Name "withInc" ) ) ) - ( Ref Nothing ( Local ( Name "x246" ) ) ) + ( Ref Nothing ( Local ( Name "x246" ) ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x247" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) ( Name "withInc" ) ) ) - ( Ref Nothing ( Local ( Name "x247" ) ) ) + ( Ref Nothing ( Local ( Name "x247" ) ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x248" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) ( Name "withInc" ) ) ) - ( Ref Nothing ( Local ( Name "x248" ) ) ) + ( Ref Nothing ( Local ( Name "x248" ) ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x249" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) ( Name "withInc" ) ) ) - ( Ref Nothing ( Local ( Name "x249" ) ) ) + ( Ref Nothing + ( Local ( Name "x249" ) ) :| [] + ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x250" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) ( Name "withInc" ) ) ) - ( Ref Nothing ( Local ( Name "x250" ) ) ) + ( Ref Nothing + ( Local ( Name "x250" ) ) :| [] + ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x251" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) @@ -583,15 +593,15 @@ UberModule ) ) ( Ref Nothing - ( Local ( Name "x251" ) ) + ( Local ( Name "x251" ) ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x252" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) @@ -599,15 +609,15 @@ UberModule ) ) ( Ref Nothing - ( Local ( Name "x252" ) ) + ( Local ( Name "x252" ) ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x253" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) @@ -615,15 +625,17 @@ UberModule ) ) ( Ref Nothing - ( Local ( Name "x253" ) ) + ( Local + ( Name "x253" ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x254" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) @@ -633,15 +645,15 @@ UberModule ( Ref Nothing ( Local ( Name "x254" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x255" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) @@ -651,15 +663,15 @@ UberModule ( Ref Nothing ( Local ( Name "x255" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x256" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) @@ -669,15 +681,15 @@ UberModule ( Ref Nothing ( Local ( Name "x256" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x257" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) @@ -687,15 +699,15 @@ UberModule ( Ref Nothing ( Local ( Name "x257" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x258" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) @@ -705,15 +717,15 @@ UberModule ( Ref Nothing ( Local ( Name "x258" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x259" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) @@ -723,15 +735,15 @@ UberModule ( Ref Nothing ( Local ( Name "x259" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x260" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) @@ -741,15 +753,15 @@ UberModule ( Ref Nothing ( Local ( Name "x260" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x261" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) @@ -759,15 +771,15 @@ UberModule ( Ref Nothing ( Local ( Name "x261" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x262" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) @@ -777,15 +789,15 @@ UberModule ( Ref Nothing ( Local ( Name "x262" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x263" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) @@ -795,15 +807,15 @@ UberModule ( Ref Nothing ( Local ( Name "x263" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x264" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) @@ -813,15 +825,15 @@ UberModule ( Ref Nothing ( Local ( Name "x264" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x265" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) @@ -831,15 +843,15 @@ UberModule ( Ref Nothing ( Local ( Name "x265" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x266" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) @@ -849,15 +861,15 @@ UberModule ( Ref Nothing ( Local ( Name "x266" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x267" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) @@ -867,15 +879,15 @@ UberModule ( Ref Nothing ( Local ( Name "x267" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x268" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) @@ -885,15 +897,15 @@ UberModule ( Ref Nothing ( Local ( Name "x268" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x269" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) @@ -903,15 +915,15 @@ UberModule ( Ref Nothing ( Local ( Name "x269" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x270" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) @@ -921,15 +933,15 @@ UberModule ( Ref Nothing ( Local ( Name "x270" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x271" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) @@ -939,15 +951,15 @@ UberModule ( Ref Nothing ( Local ( Name "x271" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x272" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) @@ -957,15 +969,15 @@ UberModule ( Ref Nothing ( Local ( Name "x272" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x273" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) @@ -975,15 +987,15 @@ UberModule ( Ref Nothing ( Local ( Name "x273" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x274" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) @@ -993,15 +1005,15 @@ UberModule ( Ref Nothing ( Local ( Name "x274" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x275" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) @@ -1011,15 +1023,15 @@ UberModule ( Ref Nothing ( Local ( Name "x275" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x276" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) @@ -1029,15 +1041,15 @@ UberModule ( Ref Nothing ( Local ( Name "x276" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x277" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) @@ -1047,15 +1059,15 @@ UberModule ( Ref Nothing ( Local ( Name "x277" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x278" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) @@ -1065,15 +1077,15 @@ UberModule ( Ref Nothing ( Local ( Name "x278" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x279" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) @@ -1083,14 +1095,14 @@ UberModule ( Ref Nothing ( Local ( Name "x279" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x280" ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Local ( Name "$kont182" ) @@ -1099,223 +1111,227 @@ UberModule ( Ref Nothing ( Local ( Name "x280" ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) ) ), Standalone ( Nothing, Name "$kont186", Abs Nothing ( ParamNamed Nothing ( Name "x200$187" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) ( Name "withInc" ) ) ) - ( Ref Nothing ( Local ( Name "x200$187" ) ) ) + ( Ref Nothing ( Local ( Name "x200$187" ) ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x201" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) ( Name "withInc" ) ) ) - ( Ref Nothing ( Local ( Name "x201" ) ) ) + ( Ref Nothing ( Local ( Name "x201" ) ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x202" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) ( Name "withInc" ) ) ) - ( Ref Nothing ( Local ( Name "x202" ) ) ) + ( Ref Nothing ( Local ( Name "x202" ) ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x203" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) ( Name "withInc" ) ) ) - ( Ref Nothing ( Local ( Name "x203" ) ) ) + ( Ref Nothing ( Local ( Name "x203" ) ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x204" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) ( Name "withInc" ) ) ) - ( Ref Nothing ( Local ( Name "x204" ) ) ) + ( Ref Nothing ( Local ( Name "x204" ) ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x205" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) ( Name "withInc" ) ) ) - ( Ref Nothing ( Local ( Name "x205" ) ) ) + ( Ref Nothing ( Local ( Name "x205" ) ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x206" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) ( Name "withInc" ) ) ) - ( Ref Nothing ( Local ( Name "x206" ) ) ) + ( Ref Nothing ( Local ( Name "x206" ) ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x207" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) ( Name "withInc" ) ) ) - ( Ref Nothing ( Local ( Name "x207" ) ) ) + ( Ref Nothing ( Local ( Name "x207" ) ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x208" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) ( Name "withInc" ) ) ) - ( Ref Nothing ( Local ( Name "x208" ) ) ) + ( Ref Nothing ( Local ( Name "x208" ) ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x209" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) ( Name "withInc" ) ) ) - ( Ref Nothing ( Local ( Name "x209" ) ) ) + ( Ref Nothing + ( Local ( Name "x209" ) ) :| [] + ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x210" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) ( Name "withInc" ) ) ) - ( Ref Nothing ( Local ( Name "x210" ) ) ) + ( Ref Nothing + ( Local ( Name "x210" ) ) :| [] + ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x211" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) @@ -1323,15 +1339,15 @@ UberModule ) ) ( Ref Nothing - ( Local ( Name "x211" ) ) + ( Local ( Name "x211" ) ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x212" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) @@ -1339,15 +1355,15 @@ UberModule ) ) ( Ref Nothing - ( Local ( Name "x212" ) ) + ( Local ( Name "x212" ) ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x213" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) @@ -1355,15 +1371,17 @@ UberModule ) ) ( Ref Nothing - ( Local ( Name "x213" ) ) + ( Local + ( Name "x213" ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x214" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) @@ -1373,15 +1391,15 @@ UberModule ( Ref Nothing ( Local ( Name "x214" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x215" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) @@ -1391,15 +1409,15 @@ UberModule ( Ref Nothing ( Local ( Name "x215" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x216" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) @@ -1409,15 +1427,15 @@ UberModule ( Ref Nothing ( Local ( Name "x216" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x217" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) @@ -1427,15 +1445,15 @@ UberModule ( Ref Nothing ( Local ( Name "x217" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x218" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) @@ -1445,15 +1463,15 @@ UberModule ( Ref Nothing ( Local ( Name "x218" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x219" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) @@ -1463,15 +1481,15 @@ UberModule ( Ref Nothing ( Local ( Name "x219" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x220" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) @@ -1481,15 +1499,15 @@ UberModule ( Ref Nothing ( Local ( Name "x220" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x221" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) @@ -1499,15 +1517,15 @@ UberModule ( Ref Nothing ( Local ( Name "x221" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x222" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) @@ -1517,15 +1535,15 @@ UberModule ( Ref Nothing ( Local ( Name "x222" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x223" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) @@ -1535,15 +1553,15 @@ UberModule ( Ref Nothing ( Local ( Name "x223" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x224" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) @@ -1553,15 +1571,15 @@ UberModule ( Ref Nothing ( Local ( Name "x224" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x225" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) @@ -1571,15 +1589,15 @@ UberModule ( Ref Nothing ( Local ( Name "x225" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x226" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) @@ -1589,15 +1607,15 @@ UberModule ( Ref Nothing ( Local ( Name "x226" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x227" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) @@ -1607,15 +1625,15 @@ UberModule ( Ref Nothing ( Local ( Name "x227" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x228" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) @@ -1625,15 +1643,15 @@ UberModule ( Ref Nothing ( Local ( Name "x228" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x229" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) @@ -1643,15 +1661,15 @@ UberModule ( Ref Nothing ( Local ( Name "x229" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x230" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) @@ -1661,15 +1679,15 @@ UberModule ( Ref Nothing ( Local ( Name "x230" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x231" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) @@ -1679,15 +1697,15 @@ UberModule ( Ref Nothing ( Local ( Name "x231" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x232" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) @@ -1697,15 +1715,15 @@ UberModule ( Ref Nothing ( Local ( Name "x232" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x233" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) @@ -1715,15 +1733,15 @@ UberModule ( Ref Nothing ( Local ( Name "x233" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x234" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) @@ -1733,15 +1751,15 @@ UberModule ( Ref Nothing ( Local ( Name "x234" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x235" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) @@ -1751,15 +1769,15 @@ UberModule ( Ref Nothing ( Local ( Name "x235" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x236" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) @@ -1769,15 +1787,15 @@ UberModule ( Ref Nothing ( Local ( Name "x236" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x237" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) @@ -1787,15 +1805,15 @@ UberModule ( Ref Nothing ( Local ( Name "x237" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x238" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) @@ -1805,15 +1823,15 @@ UberModule ( Ref Nothing ( Local ( Name "x238" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x239" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) @@ -1823,14 +1841,14 @@ UberModule ( Ref Nothing ( Local ( Name "x239" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x240" ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Local ( Name "$kont184" ) @@ -1839,223 +1857,227 @@ UberModule ( Ref Nothing ( Local ( Name "x240" ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) ) ), Standalone ( Nothing, Name "$kont188", Abs Nothing ( ParamNamed Nothing ( Name "x160$189" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) ( Name "withInc" ) ) ) - ( Ref Nothing ( Local ( Name "x160$189" ) ) ) + ( Ref Nothing ( Local ( Name "x160$189" ) ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x161" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) ( Name "withInc" ) ) ) - ( Ref Nothing ( Local ( Name "x161" ) ) ) + ( Ref Nothing ( Local ( Name "x161" ) ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x162" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) ( Name "withInc" ) ) ) - ( Ref Nothing ( Local ( Name "x162" ) ) ) + ( Ref Nothing ( Local ( Name "x162" ) ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x163" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) ( Name "withInc" ) ) ) - ( Ref Nothing ( Local ( Name "x163" ) ) ) + ( Ref Nothing ( Local ( Name "x163" ) ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x164" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) ( Name "withInc" ) ) ) - ( Ref Nothing ( Local ( Name "x164" ) ) ) + ( Ref Nothing ( Local ( Name "x164" ) ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x165" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) ( Name "withInc" ) ) ) - ( Ref Nothing ( Local ( Name "x165" ) ) ) + ( Ref Nothing ( Local ( Name "x165" ) ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x166" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) ( Name "withInc" ) ) ) - ( Ref Nothing ( Local ( Name "x166" ) ) ) + ( Ref Nothing ( Local ( Name "x166" ) ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x167" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) ( Name "withInc" ) ) ) - ( Ref Nothing ( Local ( Name "x167" ) ) ) + ( Ref Nothing ( Local ( Name "x167" ) ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x168" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) ( Name "withInc" ) ) ) - ( Ref Nothing ( Local ( Name "x168" ) ) ) + ( Ref Nothing ( Local ( Name "x168" ) ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x169" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) ( Name "withInc" ) ) ) - ( Ref Nothing ( Local ( Name "x169" ) ) ) + ( Ref Nothing + ( Local ( Name "x169" ) ) :| [] + ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x170" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) ( Name "withInc" ) ) ) - ( Ref Nothing ( Local ( Name "x170" ) ) ) + ( Ref Nothing + ( Local ( Name "x170" ) ) :| [] + ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x171" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) @@ -2063,15 +2085,15 @@ UberModule ) ) ( Ref Nothing - ( Local ( Name "x171" ) ) + ( Local ( Name "x171" ) ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x172" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) @@ -2079,15 +2101,15 @@ UberModule ) ) ( Ref Nothing - ( Local ( Name "x172" ) ) + ( Local ( Name "x172" ) ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x173" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) @@ -2095,15 +2117,17 @@ UberModule ) ) ( Ref Nothing - ( Local ( Name "x173" ) ) + ( Local + ( Name "x173" ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x174" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) @@ -2113,15 +2137,15 @@ UberModule ( Ref Nothing ( Local ( Name "x174" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x175" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) @@ -2131,15 +2155,15 @@ UberModule ( Ref Nothing ( Local ( Name "x175" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x176" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) @@ -2149,15 +2173,15 @@ UberModule ( Ref Nothing ( Local ( Name "x176" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x177" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) @@ -2167,15 +2191,15 @@ UberModule ( Ref Nothing ( Local ( Name "x177" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x178" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) @@ -2185,15 +2209,15 @@ UberModule ( Ref Nothing ( Local ( Name "x178" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x179" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) @@ -2203,15 +2227,15 @@ UberModule ( Ref Nothing ( Local ( Name "x179" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x180" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) @@ -2221,15 +2245,15 @@ UberModule ( Ref Nothing ( Local ( Name "x180" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x181" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) @@ -2239,15 +2263,15 @@ UberModule ( Ref Nothing ( Local ( Name "x181" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x182" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) @@ -2257,15 +2281,15 @@ UberModule ( Ref Nothing ( Local ( Name "x182" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x183" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) @@ -2275,15 +2299,15 @@ UberModule ( Ref Nothing ( Local ( Name "x183" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x184" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) @@ -2293,15 +2317,15 @@ UberModule ( Ref Nothing ( Local ( Name "x184" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x185" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) @@ -2311,15 +2335,15 @@ UberModule ( Ref Nothing ( Local ( Name "x185" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x186" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) @@ -2329,15 +2353,15 @@ UberModule ( Ref Nothing ( Local ( Name "x186" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x187" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) @@ -2347,15 +2371,15 @@ UberModule ( Ref Nothing ( Local ( Name "x187" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x188" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) @@ -2365,15 +2389,15 @@ UberModule ( Ref Nothing ( Local ( Name "x188" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x189" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) @@ -2383,15 +2407,15 @@ UberModule ( Ref Nothing ( Local ( Name "x189" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x190" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) @@ -2401,15 +2425,15 @@ UberModule ( Ref Nothing ( Local ( Name "x190" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x191" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) @@ -2419,15 +2443,15 @@ UberModule ( Ref Nothing ( Local ( Name "x191" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x192" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) @@ -2437,15 +2461,15 @@ UberModule ( Ref Nothing ( Local ( Name "x192" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x193" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) @@ -2455,15 +2479,15 @@ UberModule ( Ref Nothing ( Local ( Name "x193" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x194" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) @@ -2473,15 +2497,15 @@ UberModule ( Ref Nothing ( Local ( Name "x194" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x195" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) @@ -2491,15 +2515,15 @@ UberModule ( Ref Nothing ( Local ( Name "x195" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x196" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) @@ -2509,15 +2533,15 @@ UberModule ( Ref Nothing ( Local ( Name "x196" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x197" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) @@ -2527,15 +2551,15 @@ UberModule ( Ref Nothing ( Local ( Name "x197" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x198" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) @@ -2545,15 +2569,15 @@ UberModule ( Ref Nothing ( Local ( Name "x198" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x199" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) @@ -2563,14 +2587,14 @@ UberModule ( Ref Nothing ( Local ( Name "x199" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x200" ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Local ( Name "$kont186" ) @@ -2579,223 +2603,227 @@ UberModule ( Ref Nothing ( Local ( Name "x200" ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) ) ), Standalone ( Nothing, Name "$kont190", Abs Nothing ( ParamNamed Nothing ( Name "x120$191" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) ( Name "withInc" ) ) ) - ( Ref Nothing ( Local ( Name "x120$191" ) ) ) + ( Ref Nothing ( Local ( Name "x120$191" ) ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x121" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) ( Name "withInc" ) ) ) - ( Ref Nothing ( Local ( Name "x121" ) ) ) + ( Ref Nothing ( Local ( Name "x121" ) ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x122" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) ( Name "withInc" ) ) ) - ( Ref Nothing ( Local ( Name "x122" ) ) ) + ( Ref Nothing ( Local ( Name "x122" ) ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x123" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) ( Name "withInc" ) ) ) - ( Ref Nothing ( Local ( Name "x123" ) ) ) + ( Ref Nothing ( Local ( Name "x123" ) ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x124" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) ( Name "withInc" ) ) ) - ( Ref Nothing ( Local ( Name "x124" ) ) ) + ( Ref Nothing ( Local ( Name "x124" ) ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x125" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) ( Name "withInc" ) ) ) - ( Ref Nothing ( Local ( Name "x125" ) ) ) + ( Ref Nothing ( Local ( Name "x125" ) ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x126" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) ( Name "withInc" ) ) ) - ( Ref Nothing ( Local ( Name "x126" ) ) ) + ( Ref Nothing ( Local ( Name "x126" ) ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x127" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) ( Name "withInc" ) ) ) - ( Ref Nothing ( Local ( Name "x127" ) ) ) + ( Ref Nothing ( Local ( Name "x127" ) ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x128" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) ( Name "withInc" ) ) ) - ( Ref Nothing ( Local ( Name "x128" ) ) ) + ( Ref Nothing ( Local ( Name "x128" ) ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x129" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) ( Name "withInc" ) ) ) - ( Ref Nothing ( Local ( Name "x129" ) ) ) + ( Ref Nothing + ( Local ( Name "x129" ) ) :| [] + ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x130" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) ( Name "withInc" ) ) ) - ( Ref Nothing ( Local ( Name "x130" ) ) ) + ( Ref Nothing + ( Local ( Name "x130" ) ) :| [] + ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x131" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) @@ -2803,15 +2831,15 @@ UberModule ) ) ( Ref Nothing - ( Local ( Name "x131" ) ) + ( Local ( Name "x131" ) ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x132" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) @@ -2819,15 +2847,15 @@ UberModule ) ) ( Ref Nothing - ( Local ( Name "x132" ) ) + ( Local ( Name "x132" ) ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x133" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) @@ -2835,15 +2863,17 @@ UberModule ) ) ( Ref Nothing - ( Local ( Name "x133" ) ) + ( Local + ( Name "x133" ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x134" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) @@ -2853,15 +2883,15 @@ UberModule ( Ref Nothing ( Local ( Name "x134" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x135" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) @@ -2871,15 +2901,15 @@ UberModule ( Ref Nothing ( Local ( Name "x135" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x136" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) @@ -2889,15 +2919,15 @@ UberModule ( Ref Nothing ( Local ( Name "x136" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x137" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) @@ -2907,15 +2937,15 @@ UberModule ( Ref Nothing ( Local ( Name "x137" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x138" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) @@ -2925,15 +2955,15 @@ UberModule ( Ref Nothing ( Local ( Name "x138" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x139" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) @@ -2943,15 +2973,15 @@ UberModule ( Ref Nothing ( Local ( Name "x139" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x140" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) @@ -2961,15 +2991,15 @@ UberModule ( Ref Nothing ( Local ( Name "x140" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x141" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) @@ -2979,15 +3009,15 @@ UberModule ( Ref Nothing ( Local ( Name "x141" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x142" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) @@ -2997,15 +3027,15 @@ UberModule ( Ref Nothing ( Local ( Name "x142" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x143" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) @@ -3015,15 +3045,15 @@ UberModule ( Ref Nothing ( Local ( Name "x143" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x144" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) @@ -3033,15 +3063,15 @@ UberModule ( Ref Nothing ( Local ( Name "x144" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x145" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) @@ -3051,15 +3081,15 @@ UberModule ( Ref Nothing ( Local ( Name "x145" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x146" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) @@ -3069,15 +3099,15 @@ UberModule ( Ref Nothing ( Local ( Name "x146" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x147" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) @@ -3087,15 +3117,15 @@ UberModule ( Ref Nothing ( Local ( Name "x147" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x148" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) @@ -3105,15 +3135,15 @@ UberModule ( Ref Nothing ( Local ( Name "x148" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x149" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) @@ -3123,15 +3153,15 @@ UberModule ( Ref Nothing ( Local ( Name "x149" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x150" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) @@ -3141,15 +3171,15 @@ UberModule ( Ref Nothing ( Local ( Name "x150" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x151" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) @@ -3159,15 +3189,15 @@ UberModule ( Ref Nothing ( Local ( Name "x151" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x152" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) @@ -3177,15 +3207,15 @@ UberModule ( Ref Nothing ( Local ( Name "x152" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x153" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) @@ -3195,15 +3225,15 @@ UberModule ( Ref Nothing ( Local ( Name "x153" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x154" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) @@ -3213,15 +3243,15 @@ UberModule ( Ref Nothing ( Local ( Name "x154" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x155" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) @@ -3231,15 +3261,15 @@ UberModule ( Ref Nothing ( Local ( Name "x155" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x156" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) @@ -3249,15 +3279,15 @@ UberModule ( Ref Nothing ( Local ( Name "x156" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x157" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) @@ -3267,15 +3297,15 @@ UberModule ( Ref Nothing ( Local ( Name "x157" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x158" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) @@ -3285,15 +3315,15 @@ UberModule ( Ref Nothing ( Local ( Name "x158" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x159" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) @@ -3303,14 +3333,14 @@ UberModule ( Ref Nothing ( Local ( Name "x159" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x160" ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Local ( Name "$kont188" ) @@ -3319,223 +3349,225 @@ UberModule ( Ref Nothing ( Local ( Name "x160" ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) ) ), Standalone ( Nothing, Name "$kont192", Abs Nothing ( ParamNamed Nothing ( Name "x80$193" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) ( Name "withInc" ) ) ) - ( Ref Nothing ( Local ( Name "x80$193" ) ) ) + ( Ref Nothing ( Local ( Name "x80$193" ) ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x81" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) ( Name "withInc" ) ) ) - ( Ref Nothing ( Local ( Name "x81" ) ) ) + ( Ref Nothing ( Local ( Name "x81" ) ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x82" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) ( Name "withInc" ) ) ) - ( Ref Nothing ( Local ( Name "x82" ) ) ) + ( Ref Nothing ( Local ( Name "x82" ) ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x83" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) ( Name "withInc" ) ) ) - ( Ref Nothing ( Local ( Name "x83" ) ) ) + ( Ref Nothing ( Local ( Name "x83" ) ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x84" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) ( Name "withInc" ) ) ) - ( Ref Nothing ( Local ( Name "x84" ) ) ) + ( Ref Nothing ( Local ( Name "x84" ) ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x85" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) ( Name "withInc" ) ) ) - ( Ref Nothing ( Local ( Name "x85" ) ) ) + ( Ref Nothing ( Local ( Name "x85" ) ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x86" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) ( Name "withInc" ) ) ) - ( Ref Nothing ( Local ( Name "x86" ) ) ) + ( Ref Nothing ( Local ( Name "x86" ) ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x87" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) ( Name "withInc" ) ) ) - ( Ref Nothing ( Local ( Name "x87" ) ) ) + ( Ref Nothing ( Local ( Name "x87" ) ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x88" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) ( Name "withInc" ) ) ) - ( Ref Nothing ( Local ( Name "x88" ) ) ) + ( Ref Nothing ( Local ( Name "x88" ) ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x89" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) ( Name "withInc" ) ) ) - ( Ref Nothing ( Local ( Name "x89" ) ) ) + ( Ref Nothing ( Local ( Name "x89" ) ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x90" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) ( Name "withInc" ) ) ) - ( Ref Nothing ( Local ( Name "x90" ) ) ) + ( Ref Nothing + ( Local ( Name "x90" ) ) :| [] + ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x91" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) @@ -3543,13 +3575,13 @@ UberModule ) ) ( Ref Nothing - ( Local ( Name "x91" ) ) + ( Local ( Name "x91" ) ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x92" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) @@ -3557,15 +3589,15 @@ UberModule ) ) ( Ref Nothing - ( Local ( Name "x92" ) ) + ( Local ( Name "x92" ) ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x93" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) @@ -3573,15 +3605,17 @@ UberModule ) ) ( Ref Nothing - ( Local ( Name "x93" ) ) + ( Local + ( Name "x93" ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x94" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) @@ -3589,15 +3623,17 @@ UberModule ) ) ( Ref Nothing - ( Local ( Name "x94" ) ) + ( Local + ( Name "x94" ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x95" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) @@ -3607,15 +3643,15 @@ UberModule ( Ref Nothing ( Local ( Name "x95" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x96" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) @@ -3625,15 +3661,15 @@ UberModule ( Ref Nothing ( Local ( Name "x96" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x97" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) @@ -3643,15 +3679,15 @@ UberModule ( Ref Nothing ( Local ( Name "x97" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x98" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) @@ -3661,15 +3697,15 @@ UberModule ( Ref Nothing ( Local ( Name "x98" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x99" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) @@ -3679,15 +3715,15 @@ UberModule ( Ref Nothing ( Local ( Name "x99" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x100" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) @@ -3697,15 +3733,15 @@ UberModule ( Ref Nothing ( Local ( Name "x100" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x101" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) @@ -3715,15 +3751,15 @@ UberModule ( Ref Nothing ( Local ( Name "x101" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x102" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) @@ -3733,15 +3769,15 @@ UberModule ( Ref Nothing ( Local ( Name "x102" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x103" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) @@ -3751,15 +3787,15 @@ UberModule ( Ref Nothing ( Local ( Name "x103" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x104" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) @@ -3769,15 +3805,15 @@ UberModule ( Ref Nothing ( Local ( Name "x104" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x105" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) @@ -3787,15 +3823,15 @@ UberModule ( Ref Nothing ( Local ( Name "x105" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x106" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) @@ -3805,15 +3841,15 @@ UberModule ( Ref Nothing ( Local ( Name "x106" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x107" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) @@ -3823,15 +3859,15 @@ UberModule ( Ref Nothing ( Local ( Name "x107" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x108" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) @@ -3841,15 +3877,15 @@ UberModule ( Ref Nothing ( Local ( Name "x108" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x109" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) @@ -3859,15 +3895,15 @@ UberModule ( Ref Nothing ( Local ( Name "x109" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x110" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) @@ -3877,15 +3913,15 @@ UberModule ( Ref Nothing ( Local ( Name "x110" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x111" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) @@ -3895,15 +3931,15 @@ UberModule ( Ref Nothing ( Local ( Name "x111" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x112" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) @@ -3913,15 +3949,15 @@ UberModule ( Ref Nothing ( Local ( Name "x112" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x113" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) @@ -3931,15 +3967,15 @@ UberModule ( Ref Nothing ( Local ( Name "x113" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x114" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) @@ -3949,15 +3985,15 @@ UberModule ( Ref Nothing ( Local ( Name "x114" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x115" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) @@ -3967,15 +4003,15 @@ UberModule ( Ref Nothing ( Local ( Name "x115" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x116" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) @@ -3985,15 +4021,15 @@ UberModule ( Ref Nothing ( Local ( Name "x116" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x117" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) @@ -4003,15 +4039,15 @@ UberModule ( Ref Nothing ( Local ( Name "x117" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x118" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) @@ -4021,15 +4057,15 @@ UberModule ( Ref Nothing ( Local ( Name "x118" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x119" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) @@ -4039,14 +4075,14 @@ UberModule ( Ref Nothing ( Local ( Name "x119" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x120" ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Local ( Name "$kont190" ) @@ -4055,223 +4091,225 @@ UberModule ( Ref Nothing ( Local ( Name "x120" ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) ) ), Standalone ( Nothing, Name "$kont194", Abs Nothing ( ParamNamed Nothing ( Name "x40$195" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) ( Name "withInc" ) ) ) - ( Ref Nothing ( Local ( Name "x40$195" ) ) ) + ( Ref Nothing ( Local ( Name "x40$195" ) ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x41" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) ( Name "withInc" ) ) ) - ( Ref Nothing ( Local ( Name "x41" ) ) ) + ( Ref Nothing ( Local ( Name "x41" ) ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x42" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) ( Name "withInc" ) ) ) - ( Ref Nothing ( Local ( Name "x42" ) ) ) + ( Ref Nothing ( Local ( Name "x42" ) ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x43" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) ( Name "withInc" ) ) ) - ( Ref Nothing ( Local ( Name "x43" ) ) ) + ( Ref Nothing ( Local ( Name "x43" ) ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x44" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) ( Name "withInc" ) ) ) - ( Ref Nothing ( Local ( Name "x44" ) ) ) + ( Ref Nothing ( Local ( Name "x44" ) ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x45" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) ( Name "withInc" ) ) ) - ( Ref Nothing ( Local ( Name "x45" ) ) ) + ( Ref Nothing ( Local ( Name "x45" ) ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x46" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) ( Name "withInc" ) ) ) - ( Ref Nothing ( Local ( Name "x46" ) ) ) + ( Ref Nothing ( Local ( Name "x46" ) ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x47" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) ( Name "withInc" ) ) ) - ( Ref Nothing ( Local ( Name "x47" ) ) ) + ( Ref Nothing ( Local ( Name "x47" ) ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x48" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) ( Name "withInc" ) ) ) - ( Ref Nothing ( Local ( Name "x48" ) ) ) + ( Ref Nothing ( Local ( Name "x48" ) ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x49" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) ( Name "withInc" ) ) ) - ( Ref Nothing ( Local ( Name "x49" ) ) ) + ( Ref Nothing ( Local ( Name "x49" ) ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x50" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) ( Name "withInc" ) ) ) - ( Ref Nothing ( Local ( Name "x50" ) ) ) + ( Ref Nothing + ( Local ( Name "x50" ) ) :| [] + ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x51" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) @@ -4279,13 +4317,13 @@ UberModule ) ) ( Ref Nothing - ( Local ( Name "x51" ) ) + ( Local ( Name "x51" ) ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x52" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) @@ -4293,15 +4331,15 @@ UberModule ) ) ( Ref Nothing - ( Local ( Name "x52" ) ) + ( Local ( Name "x52" ) ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x53" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) @@ -4309,15 +4347,17 @@ UberModule ) ) ( Ref Nothing - ( Local ( Name "x53" ) ) + ( Local + ( Name "x53" ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x54" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) @@ -4325,15 +4365,17 @@ UberModule ) ) ( Ref Nothing - ( Local ( Name "x54" ) ) + ( Local + ( Name "x54" ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x55" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) @@ -4343,15 +4385,15 @@ UberModule ( Ref Nothing ( Local ( Name "x55" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x56" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) @@ -4361,15 +4403,15 @@ UberModule ( Ref Nothing ( Local ( Name "x56" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x57" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) @@ -4379,15 +4421,15 @@ UberModule ( Ref Nothing ( Local ( Name "x57" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x58" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) @@ -4397,15 +4439,15 @@ UberModule ( Ref Nothing ( Local ( Name "x58" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x59" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) @@ -4415,15 +4457,15 @@ UberModule ( Ref Nothing ( Local ( Name "x59" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x60" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) @@ -4433,15 +4475,15 @@ UberModule ( Ref Nothing ( Local ( Name "x60" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x61" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) @@ -4451,15 +4493,15 @@ UberModule ( Ref Nothing ( Local ( Name "x61" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x62" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) @@ -4469,15 +4511,15 @@ UberModule ( Ref Nothing ( Local ( Name "x62" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x63" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) @@ -4487,15 +4529,15 @@ UberModule ( Ref Nothing ( Local ( Name "x63" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x64" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) @@ -4505,15 +4547,15 @@ UberModule ( Ref Nothing ( Local ( Name "x64" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x65" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) @@ -4523,15 +4565,15 @@ UberModule ( Ref Nothing ( Local ( Name "x65" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x66" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) @@ -4541,15 +4583,15 @@ UberModule ( Ref Nothing ( Local ( Name "x66" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x67" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) @@ -4559,15 +4601,15 @@ UberModule ( Ref Nothing ( Local ( Name "x67" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x68" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) @@ -4577,15 +4619,15 @@ UberModule ( Ref Nothing ( Local ( Name "x68" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x69" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) @@ -4595,15 +4637,15 @@ UberModule ( Ref Nothing ( Local ( Name "x69" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x70" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) @@ -4613,15 +4655,15 @@ UberModule ( Ref Nothing ( Local ( Name "x70" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x71" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) @@ -4631,15 +4673,15 @@ UberModule ( Ref Nothing ( Local ( Name "x71" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x72" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) @@ -4649,15 +4691,15 @@ UberModule ( Ref Nothing ( Local ( Name "x72" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x73" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) @@ -4667,15 +4709,15 @@ UberModule ( Ref Nothing ( Local ( Name "x73" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x74" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) @@ -4685,15 +4727,15 @@ UberModule ( Ref Nothing ( Local ( Name "x74" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x75" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) @@ -4703,15 +4745,15 @@ UberModule ( Ref Nothing ( Local ( Name "x75" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x76" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) @@ -4721,15 +4763,15 @@ UberModule ( Ref Nothing ( Local ( Name "x76" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x77" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) @@ -4739,15 +4781,15 @@ UberModule ( Ref Nothing ( Local ( Name "x77" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x78" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) @@ -4757,15 +4799,15 @@ UberModule ( Ref Nothing ( Local ( Name "x78" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x79" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) @@ -4775,14 +4817,14 @@ UberModule ( Ref Nothing ( Local ( Name "x79" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x80" ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Local ( Name "$kont192" ) @@ -4791,241 +4833,245 @@ UberModule ( Ref Nothing ( Local ( Name "x80" ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) ) ) ] ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) ( Name "withInc" ) ) ) - ( LiteralInt Nothing 0 ) + ( LiteralInt Nothing 0 :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x1" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) ( Name "withInc" ) ) ) - ( Ref Nothing ( Local ( Name "x1" ) ) ) + ( Ref Nothing ( Local ( Name "x1" ) ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x2" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) ( Name "withInc" ) ) ) - ( Ref Nothing ( Local ( Name "x2" ) ) ) + ( Ref Nothing ( Local ( Name "x2" ) ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x3" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) ( Name "withInc" ) ) ) - ( Ref Nothing ( Local ( Name "x3" ) ) ) + ( Ref Nothing ( Local ( Name "x3" ) ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x4" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) ( Name "withInc" ) ) ) - ( Ref Nothing ( Local ( Name "x4" ) ) ) + ( Ref Nothing ( Local ( Name "x4" ) ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x5" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) ( Name "withInc" ) ) ) - ( Ref Nothing ( Local ( Name "x5" ) ) ) + ( Ref Nothing ( Local ( Name "x5" ) ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x6" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) ( Name "withInc" ) ) ) - ( Ref Nothing ( Local ( Name "x6" ) ) ) + ( Ref Nothing ( Local ( Name "x6" ) ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x7" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) ( Name "withInc" ) ) ) - ( Ref Nothing ( Local ( Name "x7" ) ) ) + ( Ref Nothing ( Local ( Name "x7" ) ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x8" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) ( Name "withInc" ) ) ) - ( Ref Nothing ( Local ( Name "x8" ) ) ) + ( Ref Nothing ( Local ( Name "x8" ) ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x9" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) ( Name "withInc" ) ) ) - ( Ref Nothing ( Local ( Name "x9" ) ) ) + ( Ref Nothing ( Local ( Name "x9" ) ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x10" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) ( Name "withInc" ) ) ) - ( Ref Nothing ( Local ( Name "x10" ) ) ) + ( Ref Nothing ( Local ( Name "x10" ) ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x11" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) ( Name "withInc" ) ) ) - ( Ref Nothing ( Local ( Name "x11" ) ) ) + ( Ref Nothing + ( Local ( Name "x11" ) ) :| [] + ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x12" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) ( Name "withInc" ) ) ) - ( Ref Nothing ( Local ( Name "x12" ) ) ) + ( Ref Nothing + ( Local ( Name "x12" ) ) :| [] + ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x13" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) @@ -5033,15 +5079,15 @@ UberModule ) ) ( Ref Nothing - ( Local ( Name "x13" ) ) + ( Local ( Name "x13" ) ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x14" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) @@ -5049,15 +5095,15 @@ UberModule ) ) ( Ref Nothing - ( Local ( Name "x14" ) ) + ( Local ( Name "x14" ) ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x15" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) @@ -5065,15 +5111,17 @@ UberModule ) ) ( Ref Nothing - ( Local ( Name "x15" ) ) + ( Local + ( Name "x15" ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x16" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) @@ -5083,15 +5131,15 @@ UberModule ( Ref Nothing ( Local ( Name "x16" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x17" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) @@ -5101,15 +5149,15 @@ UberModule ( Ref Nothing ( Local ( Name "x17" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x18" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) @@ -5119,15 +5167,15 @@ UberModule ( Ref Nothing ( Local ( Name "x18" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x19" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) @@ -5137,15 +5185,15 @@ UberModule ( Ref Nothing ( Local ( Name "x19" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x20" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) @@ -5155,15 +5203,15 @@ UberModule ( Ref Nothing ( Local ( Name "x20" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x21" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) @@ -5173,15 +5221,15 @@ UberModule ( Ref Nothing ( Local ( Name "x21" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x22" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) @@ -5191,15 +5239,15 @@ UberModule ( Ref Nothing ( Local ( Name "x22" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x23" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) @@ -5209,15 +5257,15 @@ UberModule ( Ref Nothing ( Local ( Name "x23" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x24" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) @@ -5227,15 +5275,15 @@ UberModule ( Ref Nothing ( Local ( Name "x24" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x25" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) @@ -5245,15 +5293,15 @@ UberModule ( Ref Nothing ( Local ( Name "x25" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x26" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) @@ -5263,15 +5311,15 @@ UberModule ( Ref Nothing ( Local ( Name "x26" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x27" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) @@ -5281,15 +5329,15 @@ UberModule ( Ref Nothing ( Local ( Name "x27" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x28" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) @@ -5299,15 +5347,15 @@ UberModule ( Ref Nothing ( Local ( Name "x28" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x29" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) @@ -5317,15 +5365,15 @@ UberModule ( Ref Nothing ( Local ( Name "x29" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x30" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) @@ -5335,15 +5383,15 @@ UberModule ( Ref Nothing ( Local ( Name "x30" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x31" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) @@ -5353,15 +5401,15 @@ UberModule ( Ref Nothing ( Local ( Name "x31" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x32" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) @@ -5371,15 +5419,15 @@ UberModule ( Ref Nothing ( Local ( Name "x32" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x33" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) @@ -5389,15 +5437,15 @@ UberModule ( Ref Nothing ( Local ( Name "x33" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x34" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) @@ -5407,15 +5455,15 @@ UberModule ( Ref Nothing ( Local ( Name "x34" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x35" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) @@ -5425,15 +5473,15 @@ UberModule ( Ref Nothing ( Local ( Name "x35" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x36" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) @@ -5443,15 +5491,15 @@ UberModule ( Ref Nothing ( Local ( Name "x36" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x37" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) @@ -5461,15 +5509,15 @@ UberModule ( Ref Nothing ( Local ( Name "x37" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x38" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) @@ -5479,15 +5527,15 @@ UberModule ( Ref Nothing ( Local ( Name "x38" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x39" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) @@ -5497,14 +5545,14 @@ UberModule ( Ref Nothing ( Local ( Name "x39" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x40" ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Local ( Name "$kont194" ) @@ -5513,87 +5561,87 @@ UberModule ( Ref Nothing ( Local ( Name "x40" ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) ) ) @@ -5605,19 +5653,19 @@ UberModule ( Name "compute", Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) ( Name "compute" ) ) ), - ( Name "main", App Nothing + ( Name "main", AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) - ( App Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Data.Show" ) ( Name "foreign" ) ) ) ( PropName "showIntImpl" ) ) ( Ref Nothing - ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) ( Name "compute" ) ) - ) + ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) ( Name "compute" ) ) :| [] + ) :| [] ) ) ] diff --git a/test/ps/output/Golden.LongDoBlock.Test/golden.ir b/test/ps/output/Golden.LongDoBlock.Test/golden.ir index 5d855a09..b3fdba1a 100644 --- a/test/ps/output/Golden.LongDoBlock.Test/golden.ir +++ b/test/ps/output/Golden.LongDoBlock.Test/golden.ir @@ -47,9 +47,9 @@ UberModule ( PropName "bindE" ) ), ( PropName "Apply0", Abs Nothing ( ParamUnused Nothing ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "Lazy_applyEffect" ) ) ) - ( LiteralInt Nothing 0 ) + ( LiteralInt Nothing 0 :| [] ) ) ) ] @@ -63,19 +63,19 @@ UberModule ( PropName "pureE" ) ), ( PropName "Apply0", Abs Nothing ( ParamUnused Nothing ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "Lazy_applyEffect" ) ) ) - ( LiteralInt Nothing 0 ) + ( LiteralInt Nothing 0 :| [] ) ) ) ] ), ( QName { qnameModuleName = ModuleName "Effect", qnameName = Name "Lazy_functorEffect" - }, App Nothing - ( App Nothing + }, AppN Nothing + ( AppN Nothing ( Ref Nothing ( Local ( Name "PSLUA_runtime_lazy" ) ) ) - ( LiteralString Nothing "functorEffect" ) + ( LiteralString Nothing "functorEffect" :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) ( LiteralObject Nothing @@ -84,10 +84,10 @@ UberModule ( ParamNamed Nothing ( Name "f$25" ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "a$26" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp Nothing - ( App Nothing + ( AppN Nothing ( ObjectProp Nothing ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "applicativeEffect" ) ) @@ -95,53 +95,58 @@ UberModule ( PropName "Apply0" ) ) ( Ref Nothing - ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) + ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ) ( PropName "apply" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Control.Applicative" ) ( Name "pure" ) ) ) ( Ref Nothing - ( Imported ( ModuleName "Effect" ) ( Name "applicativeEffect" ) ) + ( Imported + ( ModuleName "Effect" ) + ( Name "applicativeEffect" ) + ) :| [] ) ) - ( Ref Nothing ( Local ( Name "f$25" ) ) ) + ( Ref Nothing ( Local ( Name "f$25" ) ) :| [] ) :| [] ) ) - ( Ref Nothing ( Local ( Name "a$26" ) ) ) + ( Ref Nothing ( Local ( Name "a$26" ) ) :| [] ) ) ) ) ] - ) + ) :| [] ) ), ( QName { qnameModuleName = ModuleName "Effect", qnameName = Name "Lazy_applyEffect" - }, App Nothing - ( App Nothing + }, AppN Nothing + ( AppN Nothing ( Ref Nothing ( Local ( Name "PSLUA_runtime_lazy" ) ) ) - ( LiteralString Nothing "applyEffect" ) + ( LiteralString Nothing "applyEffect" :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) ( LiteralObject Nothing [ ( PropName "apply", Let Nothing ( Standalone - ( Nothing, Name "bind$4", App Nothing + ( Nothing, Name "bind$4", AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Control.Bind" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( ObjectProp Nothing ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "monadEffect" ) ) ) ( PropName "Bind1" ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing + ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] + ) :| [] ) ) :| [] ) @@ -149,29 +154,29 @@ UberModule ( ParamNamed Nothing ( Name "f$6" ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "a$7" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Local ( Name "bind$4" ) ) ) - ( Ref Nothing ( Local ( Name "f$6" ) ) ) + ( Ref Nothing ( Local ( Name "f$6" ) ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "f'$8" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Local ( Name "bind$4" ) ) ) - ( Ref Nothing ( Local ( Name "a$7" ) ) ) + ( Ref Nothing ( Local ( Name "a$7" ) ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "a'$9" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Control.Applicative" ) ( Name "pure" ) ) ) - ( App Nothing + ( AppN Nothing ( ObjectProp Nothing ( Ref Nothing ( Imported @@ -182,3360 +187,3363 @@ UberModule ( PropName "Applicative0" ) ) ( Ref Nothing - ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) - ) + ( Imported + ( ModuleName "Prim" ) + ( Name "undefined" ) + ) :| [] + ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Local ( Name "f'$8" ) ) ) - ( Ref Nothing ( Local ( Name "a'$9" ) ) ) + ( Ref Nothing ( Local ( Name "a'$9" ) ) :| [] ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) ) ) ) ), ( PropName "Functor0", Abs Nothing ( ParamUnused Nothing ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "Lazy_functorEffect" ) ) ) - ( LiteralInt Nothing 0 ) + ( LiteralInt Nothing 0 :| [] ) ) ) ] - ) + ) :| [] ) ) ] ), Standalone ( QName { qnameModuleName = ModuleName "Golden.LongDoBlock.Test", qnameName = Name "discard" - }, App Nothing + }, AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Control.Bind" ) ( Name "bind" ) ) ) - ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "bindEffect" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "bindEffect" ) ) :| [] ) ) ], uberModuleForeigns = [], uberModuleExports = [ ( Name "main", Abs Nothing ( ParamUnused Nothing ) ( Let Nothing ( Standalone - ( Nothing, Name "_", App Nothing - ( App Nothing + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) - ( LiteralString Nothing "1" ) + ( LiteralString Nothing "1" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ) :| [ Standalone - ( Nothing, Name "_", App Nothing - ( App Nothing + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) - ( LiteralString Nothing "2" ) + ( LiteralString Nothing "2" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ), Standalone - ( Nothing, Name "_", App Nothing - ( App Nothing + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) - ( LiteralString Nothing "3" ) + ( LiteralString Nothing "3" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ), Standalone - ( Nothing, Name "_", App Nothing - ( App Nothing + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) - ( LiteralString Nothing "4" ) + ( LiteralString Nothing "4" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ), Standalone - ( Nothing, Name "_", App Nothing - ( App Nothing + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) - ( LiteralString Nothing "5" ) + ( LiteralString Nothing "5" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ), Standalone - ( Nothing, Name "_", App Nothing - ( App Nothing + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) - ( LiteralString Nothing "6" ) + ( LiteralString Nothing "6" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ), Standalone - ( Nothing, Name "_", App Nothing - ( App Nothing + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) - ( LiteralString Nothing "7" ) + ( LiteralString Nothing "7" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ), Standalone - ( Nothing, Name "_", App Nothing - ( App Nothing + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) - ( LiteralString Nothing "8" ) + ( LiteralString Nothing "8" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ), Standalone - ( Nothing, Name "_", App Nothing - ( App Nothing + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) - ( LiteralString Nothing "9" ) + ( LiteralString Nothing "9" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ), Standalone - ( Nothing, Name "_", App Nothing - ( App Nothing + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) - ( LiteralString Nothing "10" ) + ( LiteralString Nothing "10" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ), Standalone - ( Nothing, Name "_", App Nothing - ( App Nothing + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) - ( LiteralString Nothing "11" ) + ( LiteralString Nothing "11" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ), Standalone - ( Nothing, Name "_", App Nothing - ( App Nothing + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) - ( LiteralString Nothing "12" ) + ( LiteralString Nothing "12" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ), Standalone - ( Nothing, Name "_", App Nothing - ( App Nothing + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) - ( LiteralString Nothing "13" ) + ( LiteralString Nothing "13" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ), Standalone - ( Nothing, Name "_", App Nothing - ( App Nothing + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) - ( LiteralString Nothing "14" ) + ( LiteralString Nothing "14" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ), Standalone - ( Nothing, Name "_", App Nothing - ( App Nothing + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) - ( LiteralString Nothing "15" ) + ( LiteralString Nothing "15" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ), Standalone - ( Nothing, Name "_", App Nothing - ( App Nothing + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) - ( LiteralString Nothing "16" ) + ( LiteralString Nothing "16" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ), Standalone - ( Nothing, Name "_", App Nothing - ( App Nothing + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) - ( LiteralString Nothing "17" ) + ( LiteralString Nothing "17" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ), Standalone - ( Nothing, Name "_", App Nothing - ( App Nothing + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) - ( LiteralString Nothing "18" ) + ( LiteralString Nothing "18" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ), Standalone - ( Nothing, Name "_", App Nothing - ( App Nothing + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) - ( LiteralString Nothing "19" ) + ( LiteralString Nothing "19" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ), Standalone - ( Nothing, Name "_", App Nothing - ( App Nothing + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) - ( LiteralString Nothing "20" ) + ( LiteralString Nothing "20" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ), Standalone - ( Nothing, Name "_", App Nothing - ( App Nothing + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) - ( LiteralString Nothing "21" ) + ( LiteralString Nothing "21" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ), Standalone - ( Nothing, Name "_", App Nothing - ( App Nothing + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) - ( LiteralString Nothing "22" ) + ( LiteralString Nothing "22" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ), Standalone - ( Nothing, Name "_", App Nothing - ( App Nothing + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) - ( LiteralString Nothing "23" ) + ( LiteralString Nothing "23" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ), Standalone - ( Nothing, Name "_", App Nothing - ( App Nothing + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) - ( LiteralString Nothing "24" ) + ( LiteralString Nothing "24" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ), Standalone - ( Nothing, Name "_", App Nothing - ( App Nothing + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) - ( LiteralString Nothing "25" ) + ( LiteralString Nothing "25" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ), Standalone - ( Nothing, Name "_", App Nothing - ( App Nothing + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) - ( LiteralString Nothing "26" ) + ( LiteralString Nothing "26" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ), Standalone - ( Nothing, Name "_", App Nothing - ( App Nothing + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) - ( LiteralString Nothing "27" ) + ( LiteralString Nothing "27" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ), Standalone - ( Nothing, Name "_", App Nothing - ( App Nothing + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) - ( LiteralString Nothing "28" ) + ( LiteralString Nothing "28" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ), Standalone - ( Nothing, Name "_", App Nothing - ( App Nothing + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) - ( LiteralString Nothing "29" ) + ( LiteralString Nothing "29" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ), Standalone - ( Nothing, Name "_", App Nothing - ( App Nothing + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) - ( LiteralString Nothing "30" ) + ( LiteralString Nothing "30" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ), Standalone - ( Nothing, Name "_", App Nothing - ( App Nothing + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) - ( LiteralString Nothing "31" ) + ( LiteralString Nothing "31" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ), Standalone - ( Nothing, Name "_", App Nothing - ( App Nothing + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) - ( LiteralString Nothing "32" ) + ( LiteralString Nothing "32" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ), Standalone - ( Nothing, Name "_", App Nothing - ( App Nothing + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) - ( LiteralString Nothing "33" ) + ( LiteralString Nothing "33" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ), Standalone - ( Nothing, Name "_", App Nothing - ( App Nothing + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) - ( LiteralString Nothing "34" ) + ( LiteralString Nothing "34" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ), Standalone - ( Nothing, Name "_", App Nothing - ( App Nothing + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) - ( LiteralString Nothing "35" ) + ( LiteralString Nothing "35" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ), Standalone - ( Nothing, Name "_", App Nothing - ( App Nothing + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) - ( LiteralString Nothing "36" ) + ( LiteralString Nothing "36" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ), Standalone - ( Nothing, Name "_", App Nothing - ( App Nothing + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) - ( LiteralString Nothing "37" ) + ( LiteralString Nothing "37" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ), Standalone - ( Nothing, Name "_", App Nothing - ( App Nothing + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) - ( LiteralString Nothing "38" ) + ( LiteralString Nothing "38" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ), Standalone - ( Nothing, Name "_", App Nothing - ( App Nothing + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) - ( LiteralString Nothing "39" ) + ( LiteralString Nothing "39" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ), Standalone - ( Nothing, Name "_", App Nothing - ( App Nothing + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) - ( LiteralString Nothing "40" ) + ( LiteralString Nothing "40" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ), Standalone - ( Nothing, Name "_", App Nothing - ( App Nothing + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) - ( LiteralString Nothing "41" ) + ( LiteralString Nothing "41" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ), Standalone - ( Nothing, Name "_", App Nothing - ( App Nothing + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) - ( LiteralString Nothing "42" ) + ( LiteralString Nothing "42" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ), Standalone - ( Nothing, Name "_", App Nothing - ( App Nothing + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) - ( LiteralString Nothing "43" ) + ( LiteralString Nothing "43" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ), Standalone - ( Nothing, Name "_", App Nothing - ( App Nothing + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) - ( LiteralString Nothing "44" ) + ( LiteralString Nothing "44" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ), Standalone - ( Nothing, Name "_", App Nothing - ( App Nothing + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) - ( LiteralString Nothing "45" ) + ( LiteralString Nothing "45" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ), Standalone - ( Nothing, Name "_", App Nothing - ( App Nothing + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) - ( LiteralString Nothing "46" ) + ( LiteralString Nothing "46" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ), Standalone - ( Nothing, Name "_", App Nothing - ( App Nothing + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) - ( LiteralString Nothing "47" ) + ( LiteralString Nothing "47" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ), Standalone - ( Nothing, Name "_", App Nothing - ( App Nothing + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) - ( LiteralString Nothing "48" ) + ( LiteralString Nothing "48" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ), Standalone - ( Nothing, Name "_", App Nothing - ( App Nothing + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) - ( LiteralString Nothing "49" ) + ( LiteralString Nothing "49" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ), Standalone - ( Nothing, Name "_", App Nothing - ( App Nothing + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) - ( LiteralString Nothing "50" ) + ( LiteralString Nothing "50" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ), Standalone - ( Nothing, Name "_", App Nothing - ( App Nothing + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) - ( LiteralString Nothing "51" ) + ( LiteralString Nothing "51" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ), Standalone - ( Nothing, Name "_", App Nothing - ( App Nothing + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) - ( LiteralString Nothing "52" ) + ( LiteralString Nothing "52" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ), Standalone - ( Nothing, Name "_", App Nothing - ( App Nothing + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) - ( LiteralString Nothing "53" ) + ( LiteralString Nothing "53" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ), Standalone - ( Nothing, Name "_", App Nothing - ( App Nothing + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) - ( LiteralString Nothing "54" ) + ( LiteralString Nothing "54" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ), Standalone - ( Nothing, Name "_", App Nothing - ( App Nothing + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) - ( LiteralString Nothing "55" ) + ( LiteralString Nothing "55" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ), Standalone - ( Nothing, Name "_", App Nothing - ( App Nothing + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) - ( LiteralString Nothing "56" ) + ( LiteralString Nothing "56" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ), Standalone - ( Nothing, Name "_", App Nothing - ( App Nothing + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) - ( LiteralString Nothing "57" ) + ( LiteralString Nothing "57" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ), Standalone - ( Nothing, Name "_", App Nothing - ( App Nothing + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) - ( LiteralString Nothing "58" ) + ( LiteralString Nothing "58" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ), Standalone - ( Nothing, Name "_", App Nothing - ( App Nothing + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) - ( LiteralString Nothing "59" ) + ( LiteralString Nothing "59" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ), Standalone - ( Nothing, Name "_", App Nothing - ( App Nothing + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) - ( LiteralString Nothing "60" ) + ( LiteralString Nothing "60" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ), Standalone - ( Nothing, Name "_", App Nothing - ( App Nothing + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) - ( LiteralString Nothing "61" ) + ( LiteralString Nothing "61" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ), Standalone - ( Nothing, Name "_", App Nothing - ( App Nothing + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) - ( LiteralString Nothing "62" ) + ( LiteralString Nothing "62" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ), Standalone - ( Nothing, Name "_", App Nothing - ( App Nothing + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) - ( LiteralString Nothing "63" ) + ( LiteralString Nothing "63" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ), Standalone - ( Nothing, Name "_", App Nothing - ( App Nothing + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) - ( LiteralString Nothing "64" ) + ( LiteralString Nothing "64" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ), Standalone - ( Nothing, Name "_", App Nothing - ( App Nothing + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) - ( LiteralString Nothing "65" ) + ( LiteralString Nothing "65" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ), Standalone - ( Nothing, Name "_", App Nothing - ( App Nothing + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) - ( LiteralString Nothing "66" ) + ( LiteralString Nothing "66" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ), Standalone - ( Nothing, Name "_", App Nothing - ( App Nothing + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) - ( LiteralString Nothing "67" ) + ( LiteralString Nothing "67" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ), Standalone - ( Nothing, Name "_", App Nothing - ( App Nothing + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) - ( LiteralString Nothing "68" ) + ( LiteralString Nothing "68" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ), Standalone - ( Nothing, Name "_", App Nothing - ( App Nothing + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) - ( LiteralString Nothing "69" ) + ( LiteralString Nothing "69" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ), Standalone - ( Nothing, Name "_", App Nothing - ( App Nothing + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) - ( LiteralString Nothing "70" ) + ( LiteralString Nothing "70" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ), Standalone - ( Nothing, Name "_", App Nothing - ( App Nothing + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) - ( LiteralString Nothing "71" ) + ( LiteralString Nothing "71" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ), Standalone - ( Nothing, Name "_", App Nothing - ( App Nothing + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) - ( LiteralString Nothing "72" ) + ( LiteralString Nothing "72" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ), Standalone - ( Nothing, Name "_", App Nothing - ( App Nothing + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) - ( LiteralString Nothing "73" ) + ( LiteralString Nothing "73" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ), Standalone - ( Nothing, Name "_", App Nothing - ( App Nothing + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) - ( LiteralString Nothing "74" ) + ( LiteralString Nothing "74" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ), Standalone - ( Nothing, Name "_", App Nothing - ( App Nothing + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) - ( LiteralString Nothing "75" ) + ( LiteralString Nothing "75" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ), Standalone - ( Nothing, Name "_", App Nothing - ( App Nothing + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) - ( LiteralString Nothing "76" ) + ( LiteralString Nothing "76" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ), Standalone - ( Nothing, Name "_", App Nothing - ( App Nothing + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) - ( LiteralString Nothing "77" ) + ( LiteralString Nothing "77" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ), Standalone - ( Nothing, Name "_", App Nothing - ( App Nothing + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) - ( LiteralString Nothing "78" ) + ( LiteralString Nothing "78" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ), Standalone - ( Nothing, Name "_", App Nothing - ( App Nothing + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) - ( LiteralString Nothing "79" ) + ( LiteralString Nothing "79" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ), Standalone - ( Nothing, Name "_", App Nothing - ( App Nothing + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) - ( LiteralString Nothing "80" ) + ( LiteralString Nothing "80" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ), Standalone - ( Nothing, Name "_", App Nothing - ( App Nothing + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) - ( LiteralString Nothing "81" ) + ( LiteralString Nothing "81" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ), Standalone - ( Nothing, Name "_", App Nothing - ( App Nothing + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) - ( LiteralString Nothing "82" ) + ( LiteralString Nothing "82" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ), Standalone - ( Nothing, Name "_", App Nothing - ( App Nothing + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) - ( LiteralString Nothing "83" ) + ( LiteralString Nothing "83" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ), Standalone - ( Nothing, Name "_", App Nothing - ( App Nothing + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) - ( LiteralString Nothing "84" ) + ( LiteralString Nothing "84" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ), Standalone - ( Nothing, Name "_", App Nothing - ( App Nothing + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) - ( LiteralString Nothing "85" ) + ( LiteralString Nothing "85" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ), Standalone - ( Nothing, Name "_", App Nothing - ( App Nothing + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) - ( LiteralString Nothing "86" ) + ( LiteralString Nothing "86" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ), Standalone - ( Nothing, Name "_", App Nothing - ( App Nothing + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) - ( LiteralString Nothing "87" ) + ( LiteralString Nothing "87" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ), Standalone - ( Nothing, Name "_", App Nothing - ( App Nothing + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) - ( LiteralString Nothing "88" ) + ( LiteralString Nothing "88" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ), Standalone - ( Nothing, Name "_", App Nothing - ( App Nothing + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) - ( LiteralString Nothing "89" ) + ( LiteralString Nothing "89" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ), Standalone - ( Nothing, Name "_", App Nothing - ( App Nothing + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) - ( LiteralString Nothing "90" ) + ( LiteralString Nothing "90" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ), Standalone - ( Nothing, Name "_", App Nothing - ( App Nothing + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) - ( LiteralString Nothing "91" ) + ( LiteralString Nothing "91" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ), Standalone - ( Nothing, Name "_", App Nothing - ( App Nothing + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) - ( LiteralString Nothing "92" ) + ( LiteralString Nothing "92" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ), Standalone - ( Nothing, Name "_", App Nothing - ( App Nothing + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) - ( LiteralString Nothing "93" ) + ( LiteralString Nothing "93" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ), Standalone - ( Nothing, Name "_", App Nothing - ( App Nothing + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) - ( LiteralString Nothing "94" ) + ( LiteralString Nothing "94" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ), Standalone - ( Nothing, Name "_", App Nothing - ( App Nothing + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) - ( LiteralString Nothing "95" ) + ( LiteralString Nothing "95" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ), Standalone - ( Nothing, Name "_", App Nothing - ( App Nothing + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) - ( LiteralString Nothing "96" ) + ( LiteralString Nothing "96" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ), Standalone - ( Nothing, Name "_", App Nothing - ( App Nothing + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) - ( LiteralString Nothing "97" ) + ( LiteralString Nothing "97" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ), Standalone - ( Nothing, Name "_", App Nothing - ( App Nothing + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) - ( LiteralString Nothing "98" ) + ( LiteralString Nothing "98" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ), Standalone - ( Nothing, Name "_", App Nothing - ( App Nothing + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) - ( LiteralString Nothing "99" ) + ( LiteralString Nothing "99" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ), Standalone - ( Nothing, Name "_", App Nothing - ( App Nothing + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) - ( LiteralString Nothing "100" ) + ( LiteralString Nothing "100" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ), Standalone - ( Nothing, Name "_", App Nothing - ( App Nothing + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) - ( LiteralString Nothing "101" ) + ( LiteralString Nothing "101" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ), Standalone - ( Nothing, Name "_", App Nothing - ( App Nothing + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) - ( LiteralString Nothing "102" ) + ( LiteralString Nothing "102" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ), Standalone - ( Nothing, Name "_", App Nothing - ( App Nothing + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) - ( LiteralString Nothing "103" ) + ( LiteralString Nothing "103" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ), Standalone - ( Nothing, Name "_", App Nothing - ( App Nothing + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) - ( LiteralString Nothing "104" ) + ( LiteralString Nothing "104" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ), Standalone - ( Nothing, Name "_", App Nothing - ( App Nothing + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) - ( LiteralString Nothing "105" ) + ( LiteralString Nothing "105" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ), Standalone - ( Nothing, Name "_", App Nothing - ( App Nothing + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) - ( LiteralString Nothing "106" ) + ( LiteralString Nothing "106" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ), Standalone - ( Nothing, Name "_", App Nothing - ( App Nothing + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) - ( LiteralString Nothing "107" ) + ( LiteralString Nothing "107" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ), Standalone - ( Nothing, Name "_", App Nothing - ( App Nothing + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) - ( LiteralString Nothing "108" ) + ( LiteralString Nothing "108" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ), Standalone - ( Nothing, Name "_", App Nothing - ( App Nothing + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) - ( LiteralString Nothing "109" ) + ( LiteralString Nothing "109" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ), Standalone - ( Nothing, Name "_", App Nothing - ( App Nothing + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) - ( LiteralString Nothing "110" ) + ( LiteralString Nothing "110" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ), Standalone - ( Nothing, Name "_", App Nothing - ( App Nothing + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) - ( LiteralString Nothing "111" ) + ( LiteralString Nothing "111" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ), Standalone - ( Nothing, Name "_", App Nothing - ( App Nothing + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) - ( LiteralString Nothing "112" ) + ( LiteralString Nothing "112" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ), Standalone - ( Nothing, Name "_", App Nothing - ( App Nothing + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) - ( LiteralString Nothing "113" ) + ( LiteralString Nothing "113" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ), Standalone - ( Nothing, Name "_", App Nothing - ( App Nothing + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) - ( LiteralString Nothing "114" ) + ( LiteralString Nothing "114" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ), Standalone - ( Nothing, Name "_", App Nothing - ( App Nothing + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) - ( LiteralString Nothing "115" ) + ( LiteralString Nothing "115" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ), Standalone - ( Nothing, Name "_", App Nothing - ( App Nothing + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) - ( LiteralString Nothing "116" ) + ( LiteralString Nothing "116" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ), Standalone - ( Nothing, Name "_", App Nothing - ( App Nothing + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) - ( LiteralString Nothing "117" ) + ( LiteralString Nothing "117" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ), Standalone - ( Nothing, Name "_", App Nothing - ( App Nothing + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) - ( LiteralString Nothing "118" ) + ( LiteralString Nothing "118" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ), Standalone - ( Nothing, Name "_", App Nothing - ( App Nothing + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) - ( LiteralString Nothing "119" ) + ( LiteralString Nothing "119" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ), Standalone - ( Nothing, Name "_", App Nothing - ( App Nothing + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) - ( LiteralString Nothing "120" ) + ( LiteralString Nothing "120" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ), Standalone - ( Nothing, Name "_", App Nothing - ( App Nothing + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) - ( LiteralString Nothing "121" ) + ( LiteralString Nothing "121" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ), Standalone - ( Nothing, Name "_", App Nothing - ( App Nothing + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) - ( LiteralString Nothing "122" ) + ( LiteralString Nothing "122" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ), Standalone - ( Nothing, Name "_", App Nothing - ( App Nothing + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) - ( LiteralString Nothing "123" ) + ( LiteralString Nothing "123" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ), Standalone - ( Nothing, Name "_", App Nothing - ( App Nothing + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) - ( LiteralString Nothing "124" ) + ( LiteralString Nothing "124" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ), Standalone - ( Nothing, Name "_", App Nothing - ( App Nothing + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) - ( LiteralString Nothing "125" ) + ( LiteralString Nothing "125" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ), Standalone - ( Nothing, Name "_", App Nothing - ( App Nothing + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) - ( LiteralString Nothing "126" ) + ( LiteralString Nothing "126" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ), Standalone - ( Nothing, Name "_", App Nothing - ( App Nothing + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) - ( LiteralString Nothing "127" ) + ( LiteralString Nothing "127" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ), Standalone - ( Nothing, Name "_", App Nothing - ( App Nothing + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) - ( LiteralString Nothing "128" ) + ( LiteralString Nothing "128" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ), Standalone - ( Nothing, Name "_", App Nothing - ( App Nothing + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) - ( LiteralString Nothing "129" ) + ( LiteralString Nothing "129" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ), Standalone - ( Nothing, Name "_", App Nothing - ( App Nothing + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) - ( LiteralString Nothing "130" ) + ( LiteralString Nothing "130" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ), Standalone - ( Nothing, Name "_", App Nothing - ( App Nothing + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) - ( LiteralString Nothing "131" ) + ( LiteralString Nothing "131" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ), Standalone - ( Nothing, Name "_", App Nothing - ( App Nothing + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) - ( LiteralString Nothing "132" ) + ( LiteralString Nothing "132" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ), Standalone - ( Nothing, Name "_", App Nothing - ( App Nothing + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) - ( LiteralString Nothing "133" ) + ( LiteralString Nothing "133" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ), Standalone - ( Nothing, Name "_", App Nothing - ( App Nothing + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) - ( LiteralString Nothing "134" ) + ( LiteralString Nothing "134" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ), Standalone - ( Nothing, Name "_", App Nothing - ( App Nothing + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) - ( LiteralString Nothing "135" ) + ( LiteralString Nothing "135" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ), Standalone - ( Nothing, Name "_", App Nothing - ( App Nothing + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) - ( LiteralString Nothing "136" ) + ( LiteralString Nothing "136" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ), Standalone - ( Nothing, Name "_", App Nothing - ( App Nothing + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) - ( LiteralString Nothing "137" ) + ( LiteralString Nothing "137" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ), Standalone - ( Nothing, Name "_", App Nothing - ( App Nothing + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) - ( LiteralString Nothing "138" ) + ( LiteralString Nothing "138" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ), Standalone - ( Nothing, Name "_", App Nothing - ( App Nothing + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) - ( LiteralString Nothing "139" ) + ( LiteralString Nothing "139" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ), Standalone - ( Nothing, Name "_", App Nothing - ( App Nothing + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) - ( LiteralString Nothing "140" ) + ( LiteralString Nothing "140" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ), Standalone - ( Nothing, Name "_", App Nothing - ( App Nothing + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) - ( LiteralString Nothing "141" ) + ( LiteralString Nothing "141" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ), Standalone - ( Nothing, Name "_", App Nothing - ( App Nothing + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) - ( LiteralString Nothing "142" ) + ( LiteralString Nothing "142" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ), Standalone - ( Nothing, Name "_", App Nothing - ( App Nothing + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) - ( LiteralString Nothing "143" ) + ( LiteralString Nothing "143" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ), Standalone - ( Nothing, Name "_", App Nothing - ( App Nothing + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) - ( LiteralString Nothing "144" ) + ( LiteralString Nothing "144" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ), Standalone - ( Nothing, Name "_", App Nothing - ( App Nothing + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) - ( LiteralString Nothing "145" ) + ( LiteralString Nothing "145" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ), Standalone - ( Nothing, Name "_", App Nothing - ( App Nothing + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) - ( LiteralString Nothing "146" ) + ( LiteralString Nothing "146" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ), Standalone - ( Nothing, Name "_", App Nothing - ( App Nothing + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) - ( LiteralString Nothing "147" ) + ( LiteralString Nothing "147" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ), Standalone - ( Nothing, Name "_", App Nothing - ( App Nothing + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) - ( LiteralString Nothing "148" ) + ( LiteralString Nothing "148" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ), Standalone - ( Nothing, Name "_", App Nothing - ( App Nothing + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) - ( LiteralString Nothing "149" ) + ( LiteralString Nothing "149" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ), Standalone - ( Nothing, Name "_", App Nothing - ( App Nothing + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) - ( LiteralString Nothing "150" ) + ( LiteralString Nothing "150" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ) ] ) - ( App Nothing + ( AppN Nothing ( Abs Nothing ( ParamUnused Nothing ) ( Let Nothing ( Standalone - ( Nothing, Name "_", App Nothing - ( App Nothing + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) - ( LiteralString Nothing "151" ) + ( LiteralString Nothing "151" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ) :| [ Standalone - ( Nothing, Name "_", App Nothing - ( App Nothing + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) - ( LiteralString Nothing "152" ) + ( LiteralString Nothing "152" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ), Standalone - ( Nothing, Name "_", App Nothing - ( App Nothing + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) - ( LiteralString Nothing "153" ) + ( LiteralString Nothing "153" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ), Standalone - ( Nothing, Name "_", App Nothing - ( App Nothing + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) - ( LiteralString Nothing "154" ) + ( LiteralString Nothing "154" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ), Standalone - ( Nothing, Name "_", App Nothing - ( App Nothing + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) - ( LiteralString Nothing "155" ) + ( LiteralString Nothing "155" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ), Standalone - ( Nothing, Name "_", App Nothing - ( App Nothing + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) - ( LiteralString Nothing "156" ) + ( LiteralString Nothing "156" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ), Standalone - ( Nothing, Name "_", App Nothing - ( App Nothing + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) - ( LiteralString Nothing "157" ) + ( LiteralString Nothing "157" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ), Standalone - ( Nothing, Name "_", App Nothing - ( App Nothing + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) - ( LiteralString Nothing "158" ) + ( LiteralString Nothing "158" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ), Standalone - ( Nothing, Name "_", App Nothing - ( App Nothing + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) - ( LiteralString Nothing "159" ) + ( LiteralString Nothing "159" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ), Standalone - ( Nothing, Name "_", App Nothing - ( App Nothing + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) - ( LiteralString Nothing "160" ) + ( LiteralString Nothing "160" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ), Standalone - ( Nothing, Name "_", App Nothing - ( App Nothing + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) - ( LiteralString Nothing "161" ) + ( LiteralString Nothing "161" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ), Standalone - ( Nothing, Name "_", App Nothing - ( App Nothing + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) - ( LiteralString Nothing "162" ) + ( LiteralString Nothing "162" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ), Standalone - ( Nothing, Name "_", App Nothing - ( App Nothing + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) - ( LiteralString Nothing "163" ) + ( LiteralString Nothing "163" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ), Standalone - ( Nothing, Name "_", App Nothing - ( App Nothing + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) - ( LiteralString Nothing "164" ) + ( LiteralString Nothing "164" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ), Standalone - ( Nothing, Name "_", App Nothing - ( App Nothing + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) - ( LiteralString Nothing "165" ) + ( LiteralString Nothing "165" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ), Standalone - ( Nothing, Name "_", App Nothing - ( App Nothing + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) - ( LiteralString Nothing "166" ) + ( LiteralString Nothing "166" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ), Standalone - ( Nothing, Name "_", App Nothing - ( App Nothing + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) - ( LiteralString Nothing "167" ) + ( LiteralString Nothing "167" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ), Standalone - ( Nothing, Name "_", App Nothing - ( App Nothing + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) - ( LiteralString Nothing "168" ) + ( LiteralString Nothing "168" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ), Standalone - ( Nothing, Name "_", App Nothing - ( App Nothing + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) - ( LiteralString Nothing "169" ) + ( LiteralString Nothing "169" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ), Standalone - ( Nothing, Name "_", App Nothing - ( App Nothing + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) - ( LiteralString Nothing "170" ) + ( LiteralString Nothing "170" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ), Standalone - ( Nothing, Name "_", App Nothing - ( App Nothing + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) - ( LiteralString Nothing "171" ) + ( LiteralString Nothing "171" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ), Standalone - ( Nothing, Name "_", App Nothing - ( App Nothing + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) - ( LiteralString Nothing "172" ) + ( LiteralString Nothing "172" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ), Standalone - ( Nothing, Name "_", App Nothing - ( App Nothing + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) - ( LiteralString Nothing "173" ) + ( LiteralString Nothing "173" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ), Standalone - ( Nothing, Name "_", App Nothing - ( App Nothing + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) - ( LiteralString Nothing "174" ) + ( LiteralString Nothing "174" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ), Standalone - ( Nothing, Name "_", App Nothing - ( App Nothing + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) - ( LiteralString Nothing "175" ) + ( LiteralString Nothing "175" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ), Standalone - ( Nothing, Name "_", App Nothing - ( App Nothing + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) - ( LiteralString Nothing "176" ) + ( LiteralString Nothing "176" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ), Standalone - ( Nothing, Name "_", App Nothing - ( App Nothing + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) - ( LiteralString Nothing "177" ) + ( LiteralString Nothing "177" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ), Standalone - ( Nothing, Name "_", App Nothing - ( App Nothing + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) - ( LiteralString Nothing "178" ) + ( LiteralString Nothing "178" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ), Standalone - ( Nothing, Name "_", App Nothing - ( App Nothing + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) - ( LiteralString Nothing "179" ) + ( LiteralString Nothing "179" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ), Standalone - ( Nothing, Name "_", App Nothing - ( App Nothing + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) - ( LiteralString Nothing "180" ) + ( LiteralString Nothing "180" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ), Standalone - ( Nothing, Name "_", App Nothing - ( App Nothing + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) - ( LiteralString Nothing "181" ) + ( LiteralString Nothing "181" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ), Standalone - ( Nothing, Name "_", App Nothing - ( App Nothing + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) - ( LiteralString Nothing "182" ) + ( LiteralString Nothing "182" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ), Standalone - ( Nothing, Name "_", App Nothing - ( App Nothing + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) - ( LiteralString Nothing "183" ) + ( LiteralString Nothing "183" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ), Standalone - ( Nothing, Name "_", App Nothing - ( App Nothing + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) - ( LiteralString Nothing "184" ) + ( LiteralString Nothing "184" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ), Standalone - ( Nothing, Name "_", App Nothing - ( App Nothing + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) - ( LiteralString Nothing "185" ) + ( LiteralString Nothing "185" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ), Standalone - ( Nothing, Name "_", App Nothing - ( App Nothing + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) - ( LiteralString Nothing "186" ) + ( LiteralString Nothing "186" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ), Standalone - ( Nothing, Name "_", App Nothing - ( App Nothing + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) - ( LiteralString Nothing "187" ) + ( LiteralString Nothing "187" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ), Standalone - ( Nothing, Name "_", App Nothing - ( App Nothing + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) - ( LiteralString Nothing "188" ) + ( LiteralString Nothing "188" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ), Standalone - ( Nothing, Name "_", App Nothing - ( App Nothing + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) - ( LiteralString Nothing "189" ) + ( LiteralString Nothing "189" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ), Standalone - ( Nothing, Name "_", App Nothing - ( App Nothing + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) - ( LiteralString Nothing "190" ) + ( LiteralString Nothing "190" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ), Standalone - ( Nothing, Name "_", App Nothing - ( App Nothing + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) - ( LiteralString Nothing "191" ) + ( LiteralString Nothing "191" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ), Standalone - ( Nothing, Name "_", App Nothing - ( App Nothing + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) - ( LiteralString Nothing "192" ) + ( LiteralString Nothing "192" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ), Standalone - ( Nothing, Name "_", App Nothing - ( App Nothing + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) - ( LiteralString Nothing "193" ) + ( LiteralString Nothing "193" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ), Standalone - ( Nothing, Name "_", App Nothing - ( App Nothing + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) - ( LiteralString Nothing "194" ) + ( LiteralString Nothing "194" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ), Standalone - ( Nothing, Name "_", App Nothing - ( App Nothing + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) - ( LiteralString Nothing "195" ) + ( LiteralString Nothing "195" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ), Standalone - ( Nothing, Name "_", App Nothing - ( App Nothing + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) - ( LiteralString Nothing "196" ) + ( LiteralString Nothing "196" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ), Standalone - ( Nothing, Name "_", App Nothing - ( App Nothing + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) - ( LiteralString Nothing "197" ) + ( LiteralString Nothing "197" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ), Standalone - ( Nothing, Name "_", App Nothing - ( App Nothing + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) - ( LiteralString Nothing "198" ) + ( LiteralString Nothing "198" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ), Standalone - ( Nothing, Name "_", App Nothing - ( App Nothing + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) - ( LiteralString Nothing "199" ) + ( LiteralString Nothing "199" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ), Standalone - ( Nothing, Name "_", App Nothing - ( App Nothing + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) - ( LiteralString Nothing "200" ) + ( LiteralString Nothing "200" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ), Standalone - ( Nothing, Name "_", App Nothing - ( App Nothing + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) - ( LiteralString Nothing "201" ) + ( LiteralString Nothing "201" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ), Standalone - ( Nothing, Name "_", App Nothing - ( App Nothing + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) - ( LiteralString Nothing "202" ) + ( LiteralString Nothing "202" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ), Standalone - ( Nothing, Name "_", App Nothing - ( App Nothing + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) - ( LiteralString Nothing "203" ) + ( LiteralString Nothing "203" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ), Standalone - ( Nothing, Name "_", App Nothing - ( App Nothing + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) - ( LiteralString Nothing "204" ) + ( LiteralString Nothing "204" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ), Standalone - ( Nothing, Name "_", App Nothing - ( App Nothing + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) - ( LiteralString Nothing "205" ) + ( LiteralString Nothing "205" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ), Standalone - ( Nothing, Name "_", App Nothing - ( App Nothing + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) - ( LiteralString Nothing "206" ) + ( LiteralString Nothing "206" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ), Standalone - ( Nothing, Name "_", App Nothing - ( App Nothing + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) - ( LiteralString Nothing "207" ) + ( LiteralString Nothing "207" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ), Standalone - ( Nothing, Name "_", App Nothing - ( App Nothing + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) - ( LiteralString Nothing "208" ) + ( LiteralString Nothing "208" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ), Standalone - ( Nothing, Name "_", App Nothing - ( App Nothing + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) - ( LiteralString Nothing "209" ) + ( LiteralString Nothing "209" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ), Standalone - ( Nothing, Name "_", App Nothing - ( App Nothing + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) - ( LiteralString Nothing "210" ) + ( LiteralString Nothing "210" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ), Standalone - ( Nothing, Name "_", App Nothing - ( App Nothing + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) - ( LiteralString Nothing "211" ) + ( LiteralString Nothing "211" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ), Standalone - ( Nothing, Name "_", App Nothing - ( App Nothing + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) - ( LiteralString Nothing "212" ) + ( LiteralString Nothing "212" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ), Standalone - ( Nothing, Name "_", App Nothing - ( App Nothing + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) - ( LiteralString Nothing "213" ) + ( LiteralString Nothing "213" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ), Standalone - ( Nothing, Name "_", App Nothing - ( App Nothing + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) - ( LiteralString Nothing "214" ) + ( LiteralString Nothing "214" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ), Standalone - ( Nothing, Name "_", App Nothing - ( App Nothing + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) - ( LiteralString Nothing "215" ) + ( LiteralString Nothing "215" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ), Standalone - ( Nothing, Name "_", App Nothing - ( App Nothing + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) - ( LiteralString Nothing "216" ) + ( LiteralString Nothing "216" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ), Standalone - ( Nothing, Name "_", App Nothing - ( App Nothing + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) - ( LiteralString Nothing "217" ) + ( LiteralString Nothing "217" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ), Standalone - ( Nothing, Name "_", App Nothing - ( App Nothing + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) - ( LiteralString Nothing "218" ) + ( LiteralString Nothing "218" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ), Standalone - ( Nothing, Name "_", App Nothing - ( App Nothing + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) - ( LiteralString Nothing "219" ) + ( LiteralString Nothing "219" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ), Standalone - ( Nothing, Name "_", App Nothing - ( App Nothing + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) - ( LiteralString Nothing "220" ) + ( LiteralString Nothing "220" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ), Standalone - ( Nothing, Name "_", App Nothing - ( App Nothing + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) - ( LiteralString Nothing "221" ) + ( LiteralString Nothing "221" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ), Standalone - ( Nothing, Name "_", App Nothing - ( App Nothing + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) - ( LiteralString Nothing "222" ) + ( LiteralString Nothing "222" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ), Standalone - ( Nothing, Name "_", App Nothing - ( App Nothing + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) - ( LiteralString Nothing "223" ) + ( LiteralString Nothing "223" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ), Standalone - ( Nothing, Name "_", App Nothing - ( App Nothing + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) - ( LiteralString Nothing "224" ) + ( LiteralString Nothing "224" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ), Standalone - ( Nothing, Name "_", App Nothing - ( App Nothing + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) - ( LiteralString Nothing "225" ) + ( LiteralString Nothing "225" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ), Standalone - ( Nothing, Name "_", App Nothing - ( App Nothing + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) - ( LiteralString Nothing "226" ) + ( LiteralString Nothing "226" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ), Standalone - ( Nothing, Name "_", App Nothing - ( App Nothing + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) - ( LiteralString Nothing "227" ) + ( LiteralString Nothing "227" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ), Standalone - ( Nothing, Name "_", App Nothing - ( App Nothing + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) - ( LiteralString Nothing "228" ) + ( LiteralString Nothing "228" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ), Standalone - ( Nothing, Name "_", App Nothing - ( App Nothing + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) - ( LiteralString Nothing "229" ) + ( LiteralString Nothing "229" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ), Standalone - ( Nothing, Name "_", App Nothing - ( App Nothing + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) - ( LiteralString Nothing "230" ) + ( LiteralString Nothing "230" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ), Standalone - ( Nothing, Name "_", App Nothing - ( App Nothing + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) - ( LiteralString Nothing "231" ) + ( LiteralString Nothing "231" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ), Standalone - ( Nothing, Name "_", App Nothing - ( App Nothing + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) - ( LiteralString Nothing "232" ) + ( LiteralString Nothing "232" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ), Standalone - ( Nothing, Name "_", App Nothing - ( App Nothing + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) - ( LiteralString Nothing "233" ) + ( LiteralString Nothing "233" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ), Standalone - ( Nothing, Name "_", App Nothing - ( App Nothing + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) - ( LiteralString Nothing "234" ) + ( LiteralString Nothing "234" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ), Standalone - ( Nothing, Name "_", App Nothing - ( App Nothing + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) - ( LiteralString Nothing "235" ) + ( LiteralString Nothing "235" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ), Standalone - ( Nothing, Name "_", App Nothing - ( App Nothing + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) - ( LiteralString Nothing "236" ) + ( LiteralString Nothing "236" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ), Standalone - ( Nothing, Name "_", App Nothing - ( App Nothing + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) - ( LiteralString Nothing "237" ) + ( LiteralString Nothing "237" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ), Standalone - ( Nothing, Name "_", App Nothing - ( App Nothing + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) - ( LiteralString Nothing "238" ) + ( LiteralString Nothing "238" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ), Standalone - ( Nothing, Name "_", App Nothing - ( App Nothing + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) - ( LiteralString Nothing "239" ) + ( LiteralString Nothing "239" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ), Standalone - ( Nothing, Name "_", App Nothing - ( App Nothing + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) - ( LiteralString Nothing "240" ) + ( LiteralString Nothing "240" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ), Standalone - ( Nothing, Name "_", App Nothing - ( App Nothing + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) - ( LiteralString Nothing "241" ) + ( LiteralString Nothing "241" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ), Standalone - ( Nothing, Name "_", App Nothing - ( App Nothing + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) - ( LiteralString Nothing "242" ) + ( LiteralString Nothing "242" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ), Standalone - ( Nothing, Name "_", App Nothing - ( App Nothing + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) - ( LiteralString Nothing "243" ) + ( LiteralString Nothing "243" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ), Standalone - ( Nothing, Name "_", App Nothing - ( App Nothing + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) - ( LiteralString Nothing "244" ) + ( LiteralString Nothing "244" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ), Standalone - ( Nothing, Name "_", App Nothing - ( App Nothing + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) - ( LiteralString Nothing "245" ) + ( LiteralString Nothing "245" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ), Standalone - ( Nothing, Name "_", App Nothing - ( App Nothing + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) - ( LiteralString Nothing "246" ) + ( LiteralString Nothing "246" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ), Standalone - ( Nothing, Name "_", App Nothing - ( App Nothing + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) - ( LiteralString Nothing "247" ) + ( LiteralString Nothing "247" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ), Standalone - ( Nothing, Name "_", App Nothing - ( App Nothing + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) - ( LiteralString Nothing "248" ) + ( LiteralString Nothing "248" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ), Standalone - ( Nothing, Name "_", App Nothing - ( App Nothing + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) - ( LiteralString Nothing "249" ) + ( LiteralString Nothing "249" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ), Standalone - ( Nothing, Name "_", App Nothing - ( App Nothing + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) - ( LiteralString Nothing "250" ) + ( LiteralString Nothing "250" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ), Standalone - ( Nothing, Name "_", App Nothing - ( App Nothing + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) - ( LiteralString Nothing "251" ) + ( LiteralString Nothing "251" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ), Standalone - ( Nothing, Name "_", App Nothing - ( App Nothing + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) - ( LiteralString Nothing "252" ) + ( LiteralString Nothing "252" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ), Standalone - ( Nothing, Name "_", App Nothing - ( App Nothing + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) - ( LiteralString Nothing "253" ) + ( LiteralString Nothing "253" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ), Standalone - ( Nothing, Name "_", App Nothing - ( App Nothing + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) - ( LiteralString Nothing "254" ) + ( LiteralString Nothing "254" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ), Standalone - ( Nothing, Name "_", App Nothing - ( App Nothing + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) - ( LiteralString Nothing "255" ) + ( LiteralString Nothing "255" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ), Standalone - ( Nothing, Name "_", App Nothing - ( App Nothing + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) - ( LiteralString Nothing "256" ) + ( LiteralString Nothing "256" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ), Standalone - ( Nothing, Name "_", App Nothing - ( App Nothing + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) - ( LiteralString Nothing "257" ) + ( LiteralString Nothing "257" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ), Standalone - ( Nothing, Name "_", App Nothing - ( App Nothing + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) - ( LiteralString Nothing "258" ) + ( LiteralString Nothing "258" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ), Standalone - ( Nothing, Name "_", App Nothing - ( App Nothing + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) - ( LiteralString Nothing "259" ) + ( LiteralString Nothing "259" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ), Standalone - ( Nothing, Name "_", App Nothing - ( App Nothing + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) - ( LiteralString Nothing "260" ) + ( LiteralString Nothing "260" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ), Standalone - ( Nothing, Name "_", App Nothing - ( App Nothing + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) - ( LiteralString Nothing "261" ) + ( LiteralString Nothing "261" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ), Standalone - ( Nothing, Name "_", App Nothing - ( App Nothing + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) - ( LiteralString Nothing "262" ) + ( LiteralString Nothing "262" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ), Standalone - ( Nothing, Name "_", App Nothing - ( App Nothing + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) - ( LiteralString Nothing "263" ) + ( LiteralString Nothing "263" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ), Standalone - ( Nothing, Name "_", App Nothing - ( App Nothing + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) - ( LiteralString Nothing "264" ) + ( LiteralString Nothing "264" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ), Standalone - ( Nothing, Name "_", App Nothing - ( App Nothing + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) - ( LiteralString Nothing "265" ) + ( LiteralString Nothing "265" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ), Standalone - ( Nothing, Name "_", App Nothing - ( App Nothing + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) - ( LiteralString Nothing "266" ) + ( LiteralString Nothing "266" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ), Standalone - ( Nothing, Name "_", App Nothing - ( App Nothing + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) - ( LiteralString Nothing "267" ) + ( LiteralString Nothing "267" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ), Standalone - ( Nothing, Name "_", App Nothing - ( App Nothing + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) - ( LiteralString Nothing "268" ) + ( LiteralString Nothing "268" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ), Standalone - ( Nothing, Name "_", App Nothing - ( App Nothing + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) - ( LiteralString Nothing "269" ) + ( LiteralString Nothing "269" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ), Standalone - ( Nothing, Name "_", App Nothing - ( App Nothing + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) - ( LiteralString Nothing "270" ) + ( LiteralString Nothing "270" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ), Standalone - ( Nothing, Name "_", App Nothing - ( App Nothing + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) - ( LiteralString Nothing "271" ) + ( LiteralString Nothing "271" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ), Standalone - ( Nothing, Name "_", App Nothing - ( App Nothing + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) - ( LiteralString Nothing "272" ) + ( LiteralString Nothing "272" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ), Standalone - ( Nothing, Name "_", App Nothing - ( App Nothing + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) - ( LiteralString Nothing "273" ) + ( LiteralString Nothing "273" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ), Standalone - ( Nothing, Name "_", App Nothing - ( App Nothing + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) - ( LiteralString Nothing "274" ) + ( LiteralString Nothing "274" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ), Standalone - ( Nothing, Name "_", App Nothing - ( App Nothing + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) - ( LiteralString Nothing "275" ) + ( LiteralString Nothing "275" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ), Standalone - ( Nothing, Name "_", App Nothing - ( App Nothing + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) - ( LiteralString Nothing "276" ) + ( LiteralString Nothing "276" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ), Standalone - ( Nothing, Name "_", App Nothing - ( App Nothing + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) - ( LiteralString Nothing "277" ) + ( LiteralString Nothing "277" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ), Standalone - ( Nothing, Name "_", App Nothing - ( App Nothing + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) - ( LiteralString Nothing "278" ) + ( LiteralString Nothing "278" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ), Standalone - ( Nothing, Name "_", App Nothing - ( App Nothing + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) - ( LiteralString Nothing "279" ) + ( LiteralString Nothing "279" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ), Standalone - ( Nothing, Name "_", App Nothing - ( App Nothing + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) - ( LiteralString Nothing "280" ) + ( LiteralString Nothing "280" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ), Standalone - ( Nothing, Name "_", App Nothing - ( App Nothing + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) - ( LiteralString Nothing "281" ) + ( LiteralString Nothing "281" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ), Standalone - ( Nothing, Name "_", App Nothing - ( App Nothing + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) - ( LiteralString Nothing "282" ) + ( LiteralString Nothing "282" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ), Standalone - ( Nothing, Name "_", App Nothing - ( App Nothing + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) - ( LiteralString Nothing "283" ) + ( LiteralString Nothing "283" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ), Standalone - ( Nothing, Name "_", App Nothing - ( App Nothing + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) - ( LiteralString Nothing "284" ) + ( LiteralString Nothing "284" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ), Standalone - ( Nothing, Name "_", App Nothing - ( App Nothing + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) - ( LiteralString Nothing "285" ) + ( LiteralString Nothing "285" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ), Standalone - ( Nothing, Name "_", App Nothing - ( App Nothing + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) - ( LiteralString Nothing "286" ) + ( LiteralString Nothing "286" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ), Standalone - ( Nothing, Name "_", App Nothing - ( App Nothing + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) - ( LiteralString Nothing "287" ) + ( LiteralString Nothing "287" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ), Standalone - ( Nothing, Name "_", App Nothing - ( App Nothing + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) - ( LiteralString Nothing "288" ) + ( LiteralString Nothing "288" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ), Standalone - ( Nothing, Name "_", App Nothing - ( App Nothing + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) - ( LiteralString Nothing "289" ) + ( LiteralString Nothing "289" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ), Standalone - ( Nothing, Name "_", App Nothing - ( App Nothing + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) - ( LiteralString Nothing "290" ) + ( LiteralString Nothing "290" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ), Standalone - ( Nothing, Name "_", App Nothing - ( App Nothing + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) - ( LiteralString Nothing "291" ) + ( LiteralString Nothing "291" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ), Standalone - ( Nothing, Name "_", App Nothing - ( App Nothing + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) - ( LiteralString Nothing "292" ) + ( LiteralString Nothing "292" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ), Standalone - ( Nothing, Name "_", App Nothing - ( App Nothing + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) - ( LiteralString Nothing "293" ) + ( LiteralString Nothing "293" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ), Standalone - ( Nothing, Name "_", App Nothing - ( App Nothing + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) - ( LiteralString Nothing "294" ) + ( LiteralString Nothing "294" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ), Standalone - ( Nothing, Name "_", App Nothing - ( App Nothing + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) - ( LiteralString Nothing "295" ) + ( LiteralString Nothing "295" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ), Standalone - ( Nothing, Name "_", App Nothing - ( App Nothing + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) - ( LiteralString Nothing "296" ) + ( LiteralString Nothing "296" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ), Standalone - ( Nothing, Name "_", App Nothing - ( App Nothing + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) - ( LiteralString Nothing "297" ) + ( LiteralString Nothing "297" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ), Standalone - ( Nothing, Name "_", App Nothing - ( App Nothing + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) - ( LiteralString Nothing "298" ) + ( LiteralString Nothing "298" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ), Standalone - ( Nothing, Name "_", App Nothing - ( App Nothing + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) - ( LiteralString Nothing "299" ) + ( LiteralString Nothing "299" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ) ] ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) - ( LiteralString Nothing "300" ) + ( LiteralString Nothing "300" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ) ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ) ) ) diff --git a/test/ps/output/Golden.LongEitherBind.Test/golden.ir b/test/ps/output/Golden.LongEitherBind.Test/golden.ir index 03645695..af833609 100644 --- a/test/ps/output/Golden.LongEitherBind.Test/golden.ir +++ b/test/ps/output/Golden.LongEitherBind.Test/golden.ir @@ -48,7 +48,7 @@ UberModule ( ReflectCtor Nothing ( Ref Nothing ( Local ( Name "v2$288" ) ) ) ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing + ( AppN Nothing ( Ctor Nothing SumType ( ModuleName "Data.Either" ) ( TyName "Either" ) @@ -57,7 +57,7 @@ UberModule ) ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "v2$288" ) ) ) - ( PropName "value0" ) + ( PropName "value0" ) :| [] ) ) ) @@ -68,11 +68,11 @@ UberModule ) ( Abs Nothing ( ParamNamed Nothing ( Name "f$285" ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Local ( Name "f$285" ) ) ) ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "v2$288" ) ) ) - ( PropName "value0" ) + ( PropName "value0" ) :| [] ) ) ) @@ -90,96 +90,96 @@ UberModule ( ParamNamed Nothing ( Name "x150$297" ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x280$298" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Data.Semiring" ) ( Name "foreign" ) ) ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x280$298" ) ) ) + ( Ref Nothing ( Local ( Name "x280$298" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x281" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Data.Semiring" ) ( Name "foreign" ) ) ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x281" ) ) ) + ( Ref Nothing ( Local ( Name "x281" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x282" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Data.Semiring" ) ( Name "foreign" ) ) ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x282" ) ) ) + ( Ref Nothing ( Local ( Name "x282" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x283" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -189,28 +189,28 @@ UberModule ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x283" ) ) ) + ( Ref Nothing ( Local ( Name "x283" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x284" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -220,31 +220,31 @@ UberModule ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x284" ) ) ) + ( Ref Nothing ( Local ( Name "x284" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x285" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -254,31 +254,31 @@ UberModule ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x285" ) ) ) + ( Ref Nothing ( Local ( Name "x285" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x286" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -288,31 +288,31 @@ UberModule ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x286" ) ) ) + ( Ref Nothing ( Local ( Name "x286" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x287" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -322,31 +322,33 @@ UberModule ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x287" ) ) ) + ( Ref Nothing + ( Local ( Name "x287" ) ) :| [] + ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x288" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -356,31 +358,33 @@ UberModule ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x288" ) ) ) + ( Ref Nothing + ( Local ( Name "x288" ) ) :| [] + ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x289" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -391,32 +395,32 @@ UberModule ( PropName "intAdd" ) ) ( Ref Nothing - ( Local ( Name "x289" ) ) + ( Local ( Name "x289" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x290" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -427,32 +431,32 @@ UberModule ( PropName "intAdd" ) ) ( Ref Nothing - ( Local ( Name "x290" ) ) + ( Local ( Name "x290" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x291" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -463,34 +467,36 @@ UberModule ( PropName "intAdd" ) ) ( Ref Nothing - ( Local ( Name "x291" ) ) + ( Local + ( Name "x291" ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x292" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -503,34 +509,34 @@ UberModule ( Ref Nothing ( Local ( Name "x292" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x293" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -543,34 +549,34 @@ UberModule ( Ref Nothing ( Local ( Name "x293" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x294" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -583,34 +589,34 @@ UberModule ( Ref Nothing ( Local ( Name "x294" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x295" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -623,34 +629,34 @@ UberModule ( Ref Nothing ( Local ( Name "x295" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x296" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -663,34 +669,34 @@ UberModule ( Ref Nothing ( Local ( Name "x296" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x297" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -703,34 +709,34 @@ UberModule ( Ref Nothing ( Local ( Name "x297" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x298" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -743,34 +749,34 @@ UberModule ( Ref Nothing ( Local ( Name "x298" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x299" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -783,26 +789,26 @@ UberModule ( Ref Nothing ( Local ( Name "x299" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x300" ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -812,8 +818,8 @@ UberModule ) ( PropName "intAdd" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -826,61 +832,61 @@ UberModule ( Ref Nothing ( Local ( Name "x1$296" ) - ) + ) :| [] ) ) ( Ref Nothing ( Local ( Name "x150$297" ) - ) - ) + ) :| [] + ) :| [] ) ) ( Ref Nothing ( Local ( Name "x300" ) - ) - ) + ) :| [] + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) ) ) @@ -893,68 +899,68 @@ UberModule ( ParamNamed Nothing ( Name "x150$301" ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x240$302" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Data.Semiring" ) ( Name "foreign" ) ) ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x240$302" ) ) ) + ( Ref Nothing ( Local ( Name "x240$302" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x241" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Data.Semiring" ) ( Name "foreign" ) ) ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x241" ) ) ) + ( Ref Nothing ( Local ( Name "x241" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x242" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -964,28 +970,28 @@ UberModule ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x242" ) ) ) + ( Ref Nothing ( Local ( Name "x242" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x243" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -995,28 +1001,28 @@ UberModule ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x243" ) ) ) + ( Ref Nothing ( Local ( Name "x243" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x244" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -1026,31 +1032,31 @@ UberModule ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x244" ) ) ) + ( Ref Nothing ( Local ( Name "x244" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x245" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -1060,31 +1066,31 @@ UberModule ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x245" ) ) ) + ( Ref Nothing ( Local ( Name "x245" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x246" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -1094,31 +1100,31 @@ UberModule ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x246" ) ) ) + ( Ref Nothing ( Local ( Name "x246" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x247" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -1128,31 +1134,33 @@ UberModule ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x247" ) ) ) + ( Ref Nothing + ( Local ( Name "x247" ) ) :| [] + ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x248" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -1163,32 +1171,32 @@ UberModule ( PropName "intAdd" ) ) ( Ref Nothing - ( Local ( Name "x248" ) ) + ( Local ( Name "x248" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x249" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -1199,32 +1207,32 @@ UberModule ( PropName "intAdd" ) ) ( Ref Nothing - ( Local ( Name "x249" ) ) + ( Local ( Name "x249" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x250" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -1235,34 +1243,36 @@ UberModule ( PropName "intAdd" ) ) ( Ref Nothing - ( Local ( Name "x250" ) ) + ( Local + ( Name "x250" ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x251" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -1273,34 +1283,36 @@ UberModule ( PropName "intAdd" ) ) ( Ref Nothing - ( Local ( Name "x251" ) ) + ( Local + ( Name "x251" ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x252" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -1313,34 +1325,34 @@ UberModule ( Ref Nothing ( Local ( Name "x252" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x253" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -1353,34 +1365,34 @@ UberModule ( Ref Nothing ( Local ( Name "x253" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x254" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -1393,34 +1405,34 @@ UberModule ( Ref Nothing ( Local ( Name "x254" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x255" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -1433,34 +1445,34 @@ UberModule ( Ref Nothing ( Local ( Name "x255" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x256" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -1473,34 +1485,34 @@ UberModule ( Ref Nothing ( Local ( Name "x256" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x257" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -1513,34 +1525,34 @@ UberModule ( Ref Nothing ( Local ( Name "x257" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x258" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -1553,34 +1565,34 @@ UberModule ( Ref Nothing ( Local ( Name "x258" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x259" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -1593,34 +1605,34 @@ UberModule ( Ref Nothing ( Local ( Name "x259" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x260" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -1633,34 +1645,34 @@ UberModule ( Ref Nothing ( Local ( Name "x260" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x261" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -1673,34 +1685,34 @@ UberModule ( Ref Nothing ( Local ( Name "x261" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x262" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -1713,34 +1725,34 @@ UberModule ( Ref Nothing ( Local ( Name "x262" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x263" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -1753,34 +1765,34 @@ UberModule ( Ref Nothing ( Local ( Name "x263" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x264" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -1793,34 +1805,34 @@ UberModule ( Ref Nothing ( Local ( Name "x264" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x265" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -1833,34 +1845,34 @@ UberModule ( Ref Nothing ( Local ( Name "x265" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x266" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -1873,34 +1885,34 @@ UberModule ( Ref Nothing ( Local ( Name "x266" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x267" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -1913,34 +1925,34 @@ UberModule ( Ref Nothing ( Local ( Name "x267" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x268" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -1953,34 +1965,34 @@ UberModule ( Ref Nothing ( Local ( Name "x268" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x269" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -1993,34 +2005,34 @@ UberModule ( Ref Nothing ( Local ( Name "x269" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x270" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -2033,34 +2045,34 @@ UberModule ( Ref Nothing ( Local ( Name "x270" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x271" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -2073,34 +2085,34 @@ UberModule ( Ref Nothing ( Local ( Name "x271" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x272" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -2113,34 +2125,34 @@ UberModule ( Ref Nothing ( Local ( Name "x272" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x273" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -2153,34 +2165,34 @@ UberModule ( Ref Nothing ( Local ( Name "x273" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x274" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -2193,34 +2205,34 @@ UberModule ( Ref Nothing ( Local ( Name "x274" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x275" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -2233,34 +2245,34 @@ UberModule ( Ref Nothing ( Local ( Name "x275" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x276" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -2273,34 +2285,34 @@ UberModule ( Ref Nothing ( Local ( Name "x276" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x277" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -2313,34 +2325,34 @@ UberModule ( Ref Nothing ( Local ( Name "x277" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x278" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -2353,34 +2365,34 @@ UberModule ( Ref Nothing ( Local ( Name "x278" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x279" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -2393,20 +2405,20 @@ UberModule ( Ref Nothing ( Local ( Name "x279" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x280" ) ) - ( App Nothing - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Local ( Name "$kont295" ) @@ -2415,99 +2427,99 @@ UberModule ( Ref Nothing ( Local ( Name "x1$300" ) - ) + ) :| [] ) ) ( Ref Nothing ( Local ( Name "x150$301" ) - ) + ) :| [] ) ) ( Ref Nothing ( Local ( Name "x280" ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) ) ) @@ -2519,68 +2531,68 @@ UberModule ( ParamNamed Nothing ( Name "x150$305" ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x200$306" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Data.Semiring" ) ( Name "foreign" ) ) ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x200$306" ) ) ) + ( Ref Nothing ( Local ( Name "x200$306" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x201" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Data.Semiring" ) ( Name "foreign" ) ) ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x201" ) ) ) + ( Ref Nothing ( Local ( Name "x201" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x202" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -2590,28 +2602,28 @@ UberModule ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x202" ) ) ) + ( Ref Nothing ( Local ( Name "x202" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x203" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -2621,28 +2633,28 @@ UberModule ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x203" ) ) ) + ( Ref Nothing ( Local ( Name "x203" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x204" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -2652,31 +2664,31 @@ UberModule ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x204" ) ) ) + ( Ref Nothing ( Local ( Name "x204" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x205" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -2686,31 +2698,31 @@ UberModule ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x205" ) ) ) + ( Ref Nothing ( Local ( Name "x205" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x206" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -2720,31 +2732,31 @@ UberModule ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x206" ) ) ) + ( Ref Nothing ( Local ( Name "x206" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x207" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -2754,31 +2766,33 @@ UberModule ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x207" ) ) ) + ( Ref Nothing + ( Local ( Name "x207" ) ) :| [] + ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x208" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -2789,32 +2803,32 @@ UberModule ( PropName "intAdd" ) ) ( Ref Nothing - ( Local ( Name "x208" ) ) + ( Local ( Name "x208" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x209" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -2825,32 +2839,32 @@ UberModule ( PropName "intAdd" ) ) ( Ref Nothing - ( Local ( Name "x209" ) ) + ( Local ( Name "x209" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x210" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -2861,34 +2875,36 @@ UberModule ( PropName "intAdd" ) ) ( Ref Nothing - ( Local ( Name "x210" ) ) + ( Local + ( Name "x210" ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x211" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -2899,34 +2915,36 @@ UberModule ( PropName "intAdd" ) ) ( Ref Nothing - ( Local ( Name "x211" ) ) + ( Local + ( Name "x211" ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x212" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -2939,34 +2957,34 @@ UberModule ( Ref Nothing ( Local ( Name "x212" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x213" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -2979,34 +2997,34 @@ UberModule ( Ref Nothing ( Local ( Name "x213" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x214" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -3019,34 +3037,34 @@ UberModule ( Ref Nothing ( Local ( Name "x214" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x215" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -3059,34 +3077,34 @@ UberModule ( Ref Nothing ( Local ( Name "x215" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x216" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -3099,34 +3117,34 @@ UberModule ( Ref Nothing ( Local ( Name "x216" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x217" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -3139,34 +3157,34 @@ UberModule ( Ref Nothing ( Local ( Name "x217" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x218" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -3179,34 +3197,34 @@ UberModule ( Ref Nothing ( Local ( Name "x218" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x219" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -3219,34 +3237,34 @@ UberModule ( Ref Nothing ( Local ( Name "x219" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x220" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -3259,34 +3277,34 @@ UberModule ( Ref Nothing ( Local ( Name "x220" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x221" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -3299,34 +3317,34 @@ UberModule ( Ref Nothing ( Local ( Name "x221" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x222" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -3339,34 +3357,34 @@ UberModule ( Ref Nothing ( Local ( Name "x222" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x223" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -3379,34 +3397,34 @@ UberModule ( Ref Nothing ( Local ( Name "x223" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x224" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -3419,34 +3437,34 @@ UberModule ( Ref Nothing ( Local ( Name "x224" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x225" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -3459,34 +3477,34 @@ UberModule ( Ref Nothing ( Local ( Name "x225" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x226" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -3499,34 +3517,34 @@ UberModule ( Ref Nothing ( Local ( Name "x226" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x227" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -3539,34 +3557,34 @@ UberModule ( Ref Nothing ( Local ( Name "x227" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x228" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -3579,34 +3597,34 @@ UberModule ( Ref Nothing ( Local ( Name "x228" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x229" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -3619,34 +3637,34 @@ UberModule ( Ref Nothing ( Local ( Name "x229" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x230" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -3659,34 +3677,34 @@ UberModule ( Ref Nothing ( Local ( Name "x230" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x231" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -3699,34 +3717,34 @@ UberModule ( Ref Nothing ( Local ( Name "x231" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x232" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -3739,34 +3757,34 @@ UberModule ( Ref Nothing ( Local ( Name "x232" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x233" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -3779,34 +3797,34 @@ UberModule ( Ref Nothing ( Local ( Name "x233" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x234" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -3819,34 +3837,34 @@ UberModule ( Ref Nothing ( Local ( Name "x234" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x235" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -3859,34 +3877,34 @@ UberModule ( Ref Nothing ( Local ( Name "x235" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x236" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -3899,34 +3917,34 @@ UberModule ( Ref Nothing ( Local ( Name "x236" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x237" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -3939,34 +3957,34 @@ UberModule ( Ref Nothing ( Local ( Name "x237" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x238" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -3979,34 +3997,34 @@ UberModule ( Ref Nothing ( Local ( Name "x238" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x239" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -4019,20 +4037,20 @@ UberModule ( Ref Nothing ( Local ( Name "x239" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x240" ) ) - ( App Nothing - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Local ( Name "$kont299" ) @@ -4041,99 +4059,99 @@ UberModule ( Ref Nothing ( Local ( Name "x1$304" ) - ) + ) :| [] ) ) ( Ref Nothing ( Local ( Name "x150$305" ) - ) + ) :| [] ) ) ( Ref Nothing ( Local ( Name "x240" ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) ) ) @@ -4145,68 +4163,68 @@ UberModule ( ParamNamed Nothing ( Name "x150$309" ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x160$310" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Data.Semiring" ) ( Name "foreign" ) ) ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x160$310" ) ) ) + ( Ref Nothing ( Local ( Name "x160$310" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x161" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Data.Semiring" ) ( Name "foreign" ) ) ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x161" ) ) ) + ( Ref Nothing ( Local ( Name "x161" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x162" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -4216,28 +4234,28 @@ UberModule ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x162" ) ) ) + ( Ref Nothing ( Local ( Name "x162" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x163" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -4247,28 +4265,28 @@ UberModule ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x163" ) ) ) + ( Ref Nothing ( Local ( Name "x163" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x164" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -4278,31 +4296,31 @@ UberModule ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x164" ) ) ) + ( Ref Nothing ( Local ( Name "x164" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x165" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -4312,31 +4330,31 @@ UberModule ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x165" ) ) ) + ( Ref Nothing ( Local ( Name "x165" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x166" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -4346,31 +4364,31 @@ UberModule ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x166" ) ) ) + ( Ref Nothing ( Local ( Name "x166" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x167" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -4380,31 +4398,33 @@ UberModule ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x167" ) ) ) + ( Ref Nothing + ( Local ( Name "x167" ) ) :| [] + ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x168" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -4415,32 +4435,32 @@ UberModule ( PropName "intAdd" ) ) ( Ref Nothing - ( Local ( Name "x168" ) ) + ( Local ( Name "x168" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x169" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -4451,32 +4471,32 @@ UberModule ( PropName "intAdd" ) ) ( Ref Nothing - ( Local ( Name "x169" ) ) + ( Local ( Name "x169" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x170" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -4487,34 +4507,36 @@ UberModule ( PropName "intAdd" ) ) ( Ref Nothing - ( Local ( Name "x170" ) ) + ( Local + ( Name "x170" ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x171" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -4525,34 +4547,36 @@ UberModule ( PropName "intAdd" ) ) ( Ref Nothing - ( Local ( Name "x171" ) ) + ( Local + ( Name "x171" ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x172" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -4565,34 +4589,34 @@ UberModule ( Ref Nothing ( Local ( Name "x172" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x173" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -4605,34 +4629,34 @@ UberModule ( Ref Nothing ( Local ( Name "x173" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x174" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -4645,34 +4669,34 @@ UberModule ( Ref Nothing ( Local ( Name "x174" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x175" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -4685,34 +4709,34 @@ UberModule ( Ref Nothing ( Local ( Name "x175" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x176" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -4725,34 +4749,34 @@ UberModule ( Ref Nothing ( Local ( Name "x176" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x177" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -4765,34 +4789,34 @@ UberModule ( Ref Nothing ( Local ( Name "x177" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x178" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -4805,34 +4829,34 @@ UberModule ( Ref Nothing ( Local ( Name "x178" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x179" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -4845,34 +4869,34 @@ UberModule ( Ref Nothing ( Local ( Name "x179" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x180" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -4885,34 +4909,34 @@ UberModule ( Ref Nothing ( Local ( Name "x180" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x181" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -4925,34 +4949,34 @@ UberModule ( Ref Nothing ( Local ( Name "x181" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x182" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -4965,34 +4989,34 @@ UberModule ( Ref Nothing ( Local ( Name "x182" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x183" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -5005,34 +5029,34 @@ UberModule ( Ref Nothing ( Local ( Name "x183" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x184" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -5045,34 +5069,34 @@ UberModule ( Ref Nothing ( Local ( Name "x184" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x185" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -5085,34 +5109,34 @@ UberModule ( Ref Nothing ( Local ( Name "x185" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x186" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -5125,34 +5149,34 @@ UberModule ( Ref Nothing ( Local ( Name "x186" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x187" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -5165,34 +5189,34 @@ UberModule ( Ref Nothing ( Local ( Name "x187" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x188" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -5205,34 +5229,34 @@ UberModule ( Ref Nothing ( Local ( Name "x188" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x189" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -5245,34 +5269,34 @@ UberModule ( Ref Nothing ( Local ( Name "x189" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x190" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -5285,34 +5309,34 @@ UberModule ( Ref Nothing ( Local ( Name "x190" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x191" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -5325,34 +5349,34 @@ UberModule ( Ref Nothing ( Local ( Name "x191" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x192" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -5365,34 +5389,34 @@ UberModule ( Ref Nothing ( Local ( Name "x192" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x193" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -5405,34 +5429,34 @@ UberModule ( Ref Nothing ( Local ( Name "x193" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x194" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -5445,34 +5469,34 @@ UberModule ( Ref Nothing ( Local ( Name "x194" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x195" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -5485,34 +5509,34 @@ UberModule ( Ref Nothing ( Local ( Name "x195" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x196" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -5525,34 +5549,34 @@ UberModule ( Ref Nothing ( Local ( Name "x196" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x197" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -5565,34 +5589,34 @@ UberModule ( Ref Nothing ( Local ( Name "x197" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x198" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -5605,34 +5629,34 @@ UberModule ( Ref Nothing ( Local ( Name "x198" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x199" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -5645,20 +5669,20 @@ UberModule ( Ref Nothing ( Local ( Name "x199" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x200" ) ) - ( App Nothing - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Local ( Name "$kont303" ) @@ -5667,99 +5691,99 @@ UberModule ( Ref Nothing ( Local ( Name "x1$308" ) - ) + ) :| [] ) ) ( Ref Nothing ( Local ( Name "x150$309" ) - ) + ) :| [] ) ) ( Ref Nothing ( Local ( Name "x200" ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) ) ) @@ -5769,96 +5793,96 @@ UberModule ( ParamNamed Nothing ( Name "x1$312" ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x120$313" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Data.Semiring" ) ( Name "foreign" ) ) ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x120$313" ) ) ) + ( Ref Nothing ( Local ( Name "x120$313" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x121" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Data.Semiring" ) ( Name "foreign" ) ) ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x121" ) ) ) + ( Ref Nothing ( Local ( Name "x121" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x122" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Data.Semiring" ) ( Name "foreign" ) ) ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x122" ) ) ) + ( Ref Nothing ( Local ( Name "x122" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x123" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -5868,28 +5892,28 @@ UberModule ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x123" ) ) ) + ( Ref Nothing ( Local ( Name "x123" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x124" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -5899,31 +5923,31 @@ UberModule ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x124" ) ) ) + ( Ref Nothing ( Local ( Name "x124" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x125" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -5933,31 +5957,31 @@ UberModule ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x125" ) ) ) + ( Ref Nothing ( Local ( Name "x125" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x126" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -5967,31 +5991,31 @@ UberModule ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x126" ) ) ) + ( Ref Nothing ( Local ( Name "x126" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x127" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -6001,31 +6025,33 @@ UberModule ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x127" ) ) ) + ( Ref Nothing + ( Local ( Name "x127" ) ) :| [] + ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x128" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -6035,31 +6061,33 @@ UberModule ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x128" ) ) ) + ( Ref Nothing + ( Local ( Name "x128" ) ) :| [] + ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x129" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -6070,32 +6098,32 @@ UberModule ( PropName "intAdd" ) ) ( Ref Nothing - ( Local ( Name "x129" ) ) + ( Local ( Name "x129" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x130" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -6106,32 +6134,32 @@ UberModule ( PropName "intAdd" ) ) ( Ref Nothing - ( Local ( Name "x130" ) ) + ( Local ( Name "x130" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x131" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -6142,34 +6170,36 @@ UberModule ( PropName "intAdd" ) ) ( Ref Nothing - ( Local ( Name "x131" ) ) + ( Local + ( Name "x131" ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x132" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -6182,34 +6212,34 @@ UberModule ( Ref Nothing ( Local ( Name "x132" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x133" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -6222,34 +6252,34 @@ UberModule ( Ref Nothing ( Local ( Name "x133" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x134" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -6262,34 +6292,34 @@ UberModule ( Ref Nothing ( Local ( Name "x134" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x135" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -6302,34 +6332,34 @@ UberModule ( Ref Nothing ( Local ( Name "x135" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x136" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -6342,34 +6372,34 @@ UberModule ( Ref Nothing ( Local ( Name "x136" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x137" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -6382,34 +6412,34 @@ UberModule ( Ref Nothing ( Local ( Name "x137" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x138" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -6422,34 +6452,34 @@ UberModule ( Ref Nothing ( Local ( Name "x138" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x139" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -6462,34 +6492,34 @@ UberModule ( Ref Nothing ( Local ( Name "x139" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x140" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -6502,34 +6532,34 @@ UberModule ( Ref Nothing ( Local ( Name "x140" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x141" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -6542,34 +6572,34 @@ UberModule ( Ref Nothing ( Local ( Name "x141" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x142" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -6582,34 +6612,34 @@ UberModule ( Ref Nothing ( Local ( Name "x142" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x143" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -6622,34 +6652,34 @@ UberModule ( Ref Nothing ( Local ( Name "x143" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x144" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -6662,34 +6692,34 @@ UberModule ( Ref Nothing ( Local ( Name "x144" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x145" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -6702,34 +6732,34 @@ UberModule ( Ref Nothing ( Local ( Name "x145" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x146" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -6742,34 +6772,34 @@ UberModule ( Ref Nothing ( Local ( Name "x146" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x147" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -6782,34 +6812,34 @@ UberModule ( Ref Nothing ( Local ( Name "x147" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x148" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -6822,34 +6852,34 @@ UberModule ( Ref Nothing ( Local ( Name "x148" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x149" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -6862,34 +6892,34 @@ UberModule ( Ref Nothing ( Local ( Name "x149" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x150" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -6902,34 +6932,34 @@ UberModule ( Ref Nothing ( Local ( Name "x150" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x151" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -6942,34 +6972,34 @@ UberModule ( Ref Nothing ( Local ( Name "x151" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x152" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -6982,34 +7012,34 @@ UberModule ( Ref Nothing ( Local ( Name "x152" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x153" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -7022,34 +7052,34 @@ UberModule ( Ref Nothing ( Local ( Name "x153" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x154" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -7062,34 +7092,34 @@ UberModule ( Ref Nothing ( Local ( Name "x154" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x155" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -7102,34 +7132,34 @@ UberModule ( Ref Nothing ( Local ( Name "x155" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x156" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -7142,34 +7172,34 @@ UberModule ( Ref Nothing ( Local ( Name "x156" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x157" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -7182,34 +7212,34 @@ UberModule ( Ref Nothing ( Local ( Name "x157" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x158" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -7222,34 +7252,34 @@ UberModule ( Ref Nothing ( Local ( Name "x158" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x159" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -7262,20 +7292,20 @@ UberModule ( Ref Nothing ( Local ( Name "x159" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x160" ) ) - ( App Nothing - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Local ( Name "$kont307" ) @@ -7284,99 +7314,99 @@ UberModule ( Ref Nothing ( Local ( Name "x1$312" ) - ) + ) :| [] ) ) ( Ref Nothing ( Local ( Name "x150" ) - ) + ) :| [] ) ) ( Ref Nothing ( Local ( Name "x160" ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) ) ) @@ -7385,96 +7415,96 @@ UberModule ( ParamNamed Nothing ( Name "x1$315" ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x80$316" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Data.Semiring" ) ( Name "foreign" ) ) ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x80$316" ) ) ) + ( Ref Nothing ( Local ( Name "x80$316" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x81" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Data.Semiring" ) ( Name "foreign" ) ) ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x81" ) ) ) + ( Ref Nothing ( Local ( Name "x81" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x82" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Data.Semiring" ) ( Name "foreign" ) ) ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x82" ) ) ) + ( Ref Nothing ( Local ( Name "x82" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x83" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -7484,28 +7514,28 @@ UberModule ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x83" ) ) ) + ( Ref Nothing ( Local ( Name "x83" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x84" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -7515,31 +7545,31 @@ UberModule ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x84" ) ) ) + ( Ref Nothing ( Local ( Name "x84" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x85" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -7549,31 +7579,31 @@ UberModule ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x85" ) ) ) + ( Ref Nothing ( Local ( Name "x85" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x86" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -7583,31 +7613,31 @@ UberModule ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x86" ) ) ) + ( Ref Nothing ( Local ( Name "x86" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x87" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -7617,31 +7647,31 @@ UberModule ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x87" ) ) ) + ( Ref Nothing ( Local ( Name "x87" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x88" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -7651,31 +7681,33 @@ UberModule ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x88" ) ) ) + ( Ref Nothing + ( Local ( Name "x88" ) ) :| [] + ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x89" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -7686,32 +7718,32 @@ UberModule ( PropName "intAdd" ) ) ( Ref Nothing - ( Local ( Name "x89" ) ) + ( Local ( Name "x89" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x90" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -7722,32 +7754,32 @@ UberModule ( PropName "intAdd" ) ) ( Ref Nothing - ( Local ( Name "x90" ) ) + ( Local ( Name "x90" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x91" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -7758,34 +7790,36 @@ UberModule ( PropName "intAdd" ) ) ( Ref Nothing - ( Local ( Name "x91" ) ) + ( Local + ( Name "x91" ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x92" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -7796,34 +7830,36 @@ UberModule ( PropName "intAdd" ) ) ( Ref Nothing - ( Local ( Name "x92" ) ) + ( Local + ( Name "x92" ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x93" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -7836,34 +7872,34 @@ UberModule ( Ref Nothing ( Local ( Name "x93" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x94" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -7876,34 +7912,34 @@ UberModule ( Ref Nothing ( Local ( Name "x94" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x95" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -7916,34 +7952,34 @@ UberModule ( Ref Nothing ( Local ( Name "x95" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x96" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -7956,34 +7992,34 @@ UberModule ( Ref Nothing ( Local ( Name "x96" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x97" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -7996,34 +8032,34 @@ UberModule ( Ref Nothing ( Local ( Name "x97" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x98" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -8036,34 +8072,34 @@ UberModule ( Ref Nothing ( Local ( Name "x98" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x99" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -8076,34 +8112,34 @@ UberModule ( Ref Nothing ( Local ( Name "x99" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x100" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -8116,34 +8152,34 @@ UberModule ( Ref Nothing ( Local ( Name "x100" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x101" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -8156,34 +8192,34 @@ UberModule ( Ref Nothing ( Local ( Name "x101" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x102" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -8196,34 +8232,34 @@ UberModule ( Ref Nothing ( Local ( Name "x102" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x103" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -8236,34 +8272,34 @@ UberModule ( Ref Nothing ( Local ( Name "x103" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x104" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -8276,34 +8312,34 @@ UberModule ( Ref Nothing ( Local ( Name "x104" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x105" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -8316,34 +8352,34 @@ UberModule ( Ref Nothing ( Local ( Name "x105" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x106" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -8356,34 +8392,34 @@ UberModule ( Ref Nothing ( Local ( Name "x106" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x107" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -8396,34 +8432,34 @@ UberModule ( Ref Nothing ( Local ( Name "x107" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x108" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -8436,34 +8472,34 @@ UberModule ( Ref Nothing ( Local ( Name "x108" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x109" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -8476,34 +8512,34 @@ UberModule ( Ref Nothing ( Local ( Name "x109" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x110" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -8516,34 +8552,34 @@ UberModule ( Ref Nothing ( Local ( Name "x110" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x111" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -8556,34 +8592,34 @@ UberModule ( Ref Nothing ( Local ( Name "x111" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x112" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -8596,34 +8632,34 @@ UberModule ( Ref Nothing ( Local ( Name "x112" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x113" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -8636,34 +8672,34 @@ UberModule ( Ref Nothing ( Local ( Name "x113" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x114" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -8676,34 +8712,34 @@ UberModule ( Ref Nothing ( Local ( Name "x114" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x115" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -8716,34 +8752,34 @@ UberModule ( Ref Nothing ( Local ( Name "x115" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x116" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -8756,34 +8792,34 @@ UberModule ( Ref Nothing ( Local ( Name "x116" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x117" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -8796,34 +8832,34 @@ UberModule ( Ref Nothing ( Local ( Name "x117" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x118" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -8836,34 +8872,34 @@ UberModule ( Ref Nothing ( Local ( Name "x118" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x119" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -8876,19 +8912,19 @@ UberModule ( Ref Nothing ( Local ( Name "x119" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x120" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Local ( Name "$kont311" ) @@ -8897,93 +8933,93 @@ UberModule ( Ref Nothing ( Local ( Name "x1$315" ) - ) + ) :| [] ) ) ( Ref Nothing ( Local ( Name "x120" ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) ) ) @@ -8992,96 +9028,96 @@ UberModule ( ParamNamed Nothing ( Name "x1$318" ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x40$319" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Data.Semiring" ) ( Name "foreign" ) ) ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x40$319" ) ) ) + ( Ref Nothing ( Local ( Name "x40$319" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x41" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Data.Semiring" ) ( Name "foreign" ) ) ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x41" ) ) ) + ( Ref Nothing ( Local ( Name "x41" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x42" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Data.Semiring" ) ( Name "foreign" ) ) ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x42" ) ) ) + ( Ref Nothing ( Local ( Name "x42" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x43" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -9091,28 +9127,28 @@ UberModule ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x43" ) ) ) + ( Ref Nothing ( Local ( Name "x43" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x44" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -9122,31 +9158,31 @@ UberModule ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x44" ) ) ) + ( Ref Nothing ( Local ( Name "x44" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x45" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -9156,31 +9192,31 @@ UberModule ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x45" ) ) ) + ( Ref Nothing ( Local ( Name "x45" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x46" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -9190,31 +9226,31 @@ UberModule ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x46" ) ) ) + ( Ref Nothing ( Local ( Name "x46" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x47" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -9224,31 +9260,31 @@ UberModule ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x47" ) ) ) + ( Ref Nothing ( Local ( Name "x47" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x48" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -9258,31 +9294,33 @@ UberModule ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x48" ) ) ) + ( Ref Nothing + ( Local ( Name "x48" ) ) :| [] + ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x49" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -9293,32 +9331,32 @@ UberModule ( PropName "intAdd" ) ) ( Ref Nothing - ( Local ( Name "x49" ) ) + ( Local ( Name "x49" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x50" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -9329,32 +9367,32 @@ UberModule ( PropName "intAdd" ) ) ( Ref Nothing - ( Local ( Name "x50" ) ) + ( Local ( Name "x50" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x51" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -9365,34 +9403,36 @@ UberModule ( PropName "intAdd" ) ) ( Ref Nothing - ( Local ( Name "x51" ) ) + ( Local + ( Name "x51" ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x52" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -9403,34 +9443,36 @@ UberModule ( PropName "intAdd" ) ) ( Ref Nothing - ( Local ( Name "x52" ) ) + ( Local + ( Name "x52" ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x53" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -9443,34 +9485,34 @@ UberModule ( Ref Nothing ( Local ( Name "x53" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x54" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -9483,34 +9525,34 @@ UberModule ( Ref Nothing ( Local ( Name "x54" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x55" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -9523,34 +9565,34 @@ UberModule ( Ref Nothing ( Local ( Name "x55" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x56" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -9563,34 +9605,34 @@ UberModule ( Ref Nothing ( Local ( Name "x56" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x57" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -9603,34 +9645,34 @@ UberModule ( Ref Nothing ( Local ( Name "x57" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x58" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -9643,34 +9685,34 @@ UberModule ( Ref Nothing ( Local ( Name "x58" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x59" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -9683,34 +9725,34 @@ UberModule ( Ref Nothing ( Local ( Name "x59" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x60" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -9723,34 +9765,34 @@ UberModule ( Ref Nothing ( Local ( Name "x60" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x61" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -9763,34 +9805,34 @@ UberModule ( Ref Nothing ( Local ( Name "x61" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x62" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -9803,34 +9845,34 @@ UberModule ( Ref Nothing ( Local ( Name "x62" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x63" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -9843,34 +9885,34 @@ UberModule ( Ref Nothing ( Local ( Name "x63" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x64" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -9883,34 +9925,34 @@ UberModule ( Ref Nothing ( Local ( Name "x64" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x65" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -9923,34 +9965,34 @@ UberModule ( Ref Nothing ( Local ( Name "x65" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x66" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -9963,34 +10005,34 @@ UberModule ( Ref Nothing ( Local ( Name "x66" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x67" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -10003,34 +10045,34 @@ UberModule ( Ref Nothing ( Local ( Name "x67" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x68" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -10043,34 +10085,34 @@ UberModule ( Ref Nothing ( Local ( Name "x68" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x69" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -10083,34 +10125,34 @@ UberModule ( Ref Nothing ( Local ( Name "x69" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x70" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -10123,34 +10165,34 @@ UberModule ( Ref Nothing ( Local ( Name "x70" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x71" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -10163,34 +10205,34 @@ UberModule ( Ref Nothing ( Local ( Name "x71" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x72" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -10203,34 +10245,34 @@ UberModule ( Ref Nothing ( Local ( Name "x72" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x73" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -10243,34 +10285,34 @@ UberModule ( Ref Nothing ( Local ( Name "x73" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x74" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -10283,34 +10325,34 @@ UberModule ( Ref Nothing ( Local ( Name "x74" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x75" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -10323,34 +10365,34 @@ UberModule ( Ref Nothing ( Local ( Name "x75" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x76" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -10363,34 +10405,34 @@ UberModule ( Ref Nothing ( Local ( Name "x76" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x77" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -10403,34 +10445,34 @@ UberModule ( Ref Nothing ( Local ( Name "x77" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x78" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -10443,34 +10485,34 @@ UberModule ( Ref Nothing ( Local ( Name "x78" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x79" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -10483,19 +10525,19 @@ UberModule ( Ref Nothing ( Local ( Name "x79" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x80" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Local ( Name "$kont314" ) @@ -10504,224 +10546,224 @@ UberModule ( Ref Nothing ( Local ( Name "x1$318" ) - ) + ) :| [] ) ) ( Ref Nothing ( Local ( Name "x80" ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) ) ) ) ] ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( LiteralInt Nothing 1 ) + ( LiteralInt Nothing 1 :| [] ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x1" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Data.Semiring" ) ( Name "foreign" ) ) ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x1" ) ) ) + ( Ref Nothing ( Local ( Name "x1" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x2" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Data.Semiring" ) ( Name "foreign" ) ) ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x2" ) ) ) + ( Ref Nothing ( Local ( Name "x2" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x3" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Data.Semiring" ) ( Name "foreign" ) ) ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x3" ) ) ) + ( Ref Nothing ( Local ( Name "x3" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x4" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Data.Semiring" ) ( Name "foreign" ) ) ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x4" ) ) ) + ( Ref Nothing ( Local ( Name "x4" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x5" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -10731,28 +10773,28 @@ UberModule ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x5" ) ) ) + ( Ref Nothing ( Local ( Name "x5" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x6" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -10762,31 +10804,31 @@ UberModule ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x6" ) ) ) + ( Ref Nothing ( Local ( Name "x6" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x7" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -10796,31 +10838,31 @@ UberModule ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x7" ) ) ) + ( Ref Nothing ( Local ( Name "x7" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x8" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -10830,31 +10872,31 @@ UberModule ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x8" ) ) ) + ( Ref Nothing ( Local ( Name "x8" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x9" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -10864,31 +10906,31 @@ UberModule ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x9" ) ) ) + ( Ref Nothing ( Local ( Name "x9" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x10" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -10898,31 +10940,33 @@ UberModule ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x10" ) ) ) + ( Ref Nothing + ( Local ( Name "x10" ) ) :| [] + ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x11" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -10933,32 +10977,32 @@ UberModule ( PropName "intAdd" ) ) ( Ref Nothing - ( Local ( Name "x11" ) ) + ( Local ( Name "x11" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x12" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -10969,32 +11013,32 @@ UberModule ( PropName "intAdd" ) ) ( Ref Nothing - ( Local ( Name "x12" ) ) + ( Local ( Name "x12" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x13" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -11005,34 +11049,36 @@ UberModule ( PropName "intAdd" ) ) ( Ref Nothing - ( Local ( Name "x13" ) ) + ( Local + ( Name "x13" ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x14" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -11043,34 +11089,36 @@ UberModule ( PropName "intAdd" ) ) ( Ref Nothing - ( Local ( Name "x14" ) ) + ( Local + ( Name "x14" ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x15" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -11083,34 +11131,34 @@ UberModule ( Ref Nothing ( Local ( Name "x15" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x16" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -11123,34 +11171,34 @@ UberModule ( Ref Nothing ( Local ( Name "x16" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x17" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -11163,34 +11211,34 @@ UberModule ( Ref Nothing ( Local ( Name "x17" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x18" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -11203,34 +11251,34 @@ UberModule ( Ref Nothing ( Local ( Name "x18" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x19" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -11243,34 +11291,34 @@ UberModule ( Ref Nothing ( Local ( Name "x19" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x20" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -11283,34 +11331,34 @@ UberModule ( Ref Nothing ( Local ( Name "x20" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x21" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -11323,34 +11371,34 @@ UberModule ( Ref Nothing ( Local ( Name "x21" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x22" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -11363,34 +11411,34 @@ UberModule ( Ref Nothing ( Local ( Name "x22" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x23" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -11403,34 +11451,34 @@ UberModule ( Ref Nothing ( Local ( Name "x23" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x24" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -11443,34 +11491,34 @@ UberModule ( Ref Nothing ( Local ( Name "x24" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x25" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -11483,34 +11531,34 @@ UberModule ( Ref Nothing ( Local ( Name "x25" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x26" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -11523,34 +11571,34 @@ UberModule ( Ref Nothing ( Local ( Name "x26" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x27" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -11563,34 +11611,34 @@ UberModule ( Ref Nothing ( Local ( Name "x27" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x28" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -11603,34 +11651,34 @@ UberModule ( Ref Nothing ( Local ( Name "x28" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x29" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -11643,34 +11691,34 @@ UberModule ( Ref Nothing ( Local ( Name "x29" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x30" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -11683,34 +11731,34 @@ UberModule ( Ref Nothing ( Local ( Name "x30" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x31" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -11723,34 +11771,34 @@ UberModule ( Ref Nothing ( Local ( Name "x31" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x32" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -11763,34 +11811,34 @@ UberModule ( Ref Nothing ( Local ( Name "x32" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x33" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -11803,34 +11851,34 @@ UberModule ( Ref Nothing ( Local ( Name "x33" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x34" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -11843,34 +11891,34 @@ UberModule ( Ref Nothing ( Local ( Name "x34" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x35" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -11883,34 +11931,34 @@ UberModule ( Ref Nothing ( Local ( Name "x35" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x36" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -11923,34 +11971,34 @@ UberModule ( Ref Nothing ( Local ( Name "x36" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x37" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -11963,34 +12011,34 @@ UberModule ( Ref Nothing ( Local ( Name "x37" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x38" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -12003,34 +12051,34 @@ UberModule ( Ref Nothing ( Local ( Name "x38" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x39" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -12043,19 +12091,19 @@ UberModule ( Ref Nothing ( Local ( Name "x39" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x40" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Local ( Name "$kont317" ) @@ -12064,93 +12112,93 @@ UberModule ( Ref Nothing ( Local ( Name "x1" ) - ) + ) :| [] ) ) ( Ref Nothing ( Local ( Name "x40" ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) ) ) @@ -12159,13 +12207,13 @@ UberModule ( Name "compute", Ref Nothing ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "compute" ) ) ), - ( Name "main", App Nothing + ( Name "main", AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Show" ) ( Name "show" ) ) ) ( LiteralObject Nothing [ @@ -12176,26 +12224,26 @@ UberModule ( LiteralString Nothing "Data.Either∷Either.Left" ) ( ReflectCtor Nothing ( Ref Nothing ( Local ( Name "v$7$294" ) ) ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Data.Semigroup" ) ( Name "foreign" ) ) ) ( PropName "concatString" ) ) - ( LiteralString Nothing "(Left " ) + ( LiteralString Nothing "(Left " :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Data.Semigroup" ) ( Name "foreign" ) ) ) ( PropName "concatString" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Show" ) ( Name "show" ) ) ) @@ -12207,16 +12255,16 @@ UberModule ) ( PropName "showStringImpl" ) ) - ] + ] :| [] ) ) ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "v$7$294" ) ) ) - ( PropName "value0" ) - ) + ( PropName "value0" ) :| [] + ) :| [] ) ) - ( LiteralString Nothing ")" ) + ( LiteralString Nothing ")" :| [] ) :| [] ) ) ( IfThenElse Nothing @@ -12224,26 +12272,26 @@ UberModule ( LiteralString Nothing "Data.Either∷Either.Right" ) ( ReflectCtor Nothing ( Ref Nothing ( Local ( Name "v$7$294" ) ) ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Data.Semigroup" ) ( Name "foreign" ) ) ) ( PropName "concatString" ) ) - ( LiteralString Nothing "(Right " ) + ( LiteralString Nothing "(Right " :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Data.Semigroup" ) ( Name "foreign" ) ) ) ( PropName "concatString" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Show" ) ( Name "show" ) ) ) @@ -12255,28 +12303,28 @@ UberModule ) ( PropName "showIntImpl" ) ) - ] + ] :| [] ) ) ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "v$7$294" ) ) ) - ( PropName "value0" ) - ) + ( PropName "value0" ) :| [] + ) :| [] ) ) - ( LiteralString Nothing ")" ) + ( LiteralString Nothing ")" :| [] ) :| [] ) ) ( Exception Nothing "No patterns matched" ) ) ) ) - ] + ] :| [] ) ) ( Ref Nothing - ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "compute" ) ) - ) + ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "compute" ) ) :| [] + ) :| [] ) ) ] diff --git a/test/ps/output/Golden.LongExceptBind.Test/golden.ir b/test/ps/output/Golden.LongExceptBind.Test/golden.ir index 918b7758..577cd3d8 100644 --- a/test/ps/output/Golden.LongExceptBind.Test/golden.ir +++ b/test/ps/output/Golden.LongExceptBind.Test/golden.ir @@ -41,11 +41,11 @@ UberModule ( ParamNamed Nothing ( Name "g" ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x" ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Local ( Name "f" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Local ( Name "g" ) ) ) - ( Ref Nothing ( Local ( Name "x" ) ) ) + ( Ref Nothing ( Local ( Name "x" ) ) :| [] ) :| [] ) ) ) @@ -104,9 +104,9 @@ UberModule ( ParamNamed Nothing ( Name "v" ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "v1" ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Local ( Name "v" ) ) ) - ( Ref Nothing ( Local ( Name "v1" ) ) ) + ( Ref Nothing ( Local ( Name "v1" ) ) :| [] ) ) ) ), @@ -117,9 +117,9 @@ UberModule ( ParamNamed Nothing ( Name "f$501" ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "m$502" ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Local ( Name "f$501" ) ) ) - ( Ref Nothing ( Local ( Name "m$502" ) ) ) + ( Ref Nothing ( Local ( Name "m$502" ) ) :| [] ) ) ) ) @@ -157,9 +157,9 @@ UberModule ( ParamNamed Nothing ( Name "v$87" ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "f$88" ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Local ( Name "f$88" ) ) ) - ( Ref Nothing ( Local ( Name "v$87" ) ) ) + ( Ref Nothing ( Local ( Name "v$87" ) ) :| [] ) ) ) ), @@ -175,9 +175,11 @@ UberModule ), Standalone ( QName { qnameModuleName = ModuleName "Control.Monad.Except.Trans", qnameName = Name "compose" - }, App Nothing + }, AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Control.Semigroupoid" ) ( Name "compose" ) ) ) - ( Ref Nothing ( Imported ( ModuleName "Control.Semigroupoid" ) ( Name "semigroupoidFn" ) ) ) + ( Ref Nothing + ( Imported ( ModuleName "Control.Semigroupoid" ) ( Name "semigroupoidFn" ) ) :| [] + ) ), Standalone ( QName { qnameModuleName = ModuleName "Control.Monad.Except.Trans", qnameName = Name "ExceptT" @@ -193,22 +195,22 @@ UberModule ( LiteralObject Nothing [ ( PropName "Applicative0", Abs Nothing ( ParamUnused Nothing ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Control.Monad.Except.Trans" ) ( Name "applicativeExceptT" ) ) ) - ( Ref Nothing ( Local ( Name "dictMonad" ) ) ) + ( Ref Nothing ( Local ( Name "dictMonad" ) ) :| [] ) ) ), ( PropName "Bind1", Abs Nothing ( ParamUnused Nothing ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Control.Monad.Except.Trans" ) ( Name "bindExceptT" ) ) ) - ( Ref Nothing ( Local ( Name "dictMonad" ) ) ) + ( Ref Nothing ( Local ( Name "dictMonad" ) ) :| [] ) ) ) ] @@ -225,21 +227,23 @@ UberModule ( ParamNamed Nothing ( Name "v" ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "k" ) ) - ( App Nothing - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Control.Bind" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "dictMonad" ) ) ) ( PropName "Bind1" ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing + ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] + ) :| [] ) ) - ( Ref Nothing ( Local ( Name "v" ) ) ) + ( Ref Nothing ( Local ( Name "v" ) ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "v2$506" ) ) @@ -248,40 +252,40 @@ UberModule ( LiteralString Nothing "Data.Either∷Either.Left" ) ( ReflectCtor Nothing ( Ref Nothing ( Local ( Name "v2$506" ) ) ) ) ) - ( App Nothing - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Control.Monad.Except.Trans" ) ( Name "compose" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Control.Applicative" ) ( Name "pure" ) ) ) - ( App Nothing + ( AppN Nothing ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "dictMonad" ) ) ) ( PropName "Applicative0" ) ) ( Ref Nothing - ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) - ) - ) + ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] + ) :| [] + ) :| [] ) ) ( Ref Nothing - ( Imported ( ModuleName "Data.Either" ) ( Name "Left" ) ) + ( Imported ( ModuleName "Data.Either" ) ( Name "Left" ) ) :| [] ) ) ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "v2$506" ) ) ) - ( PropName "value0" ) + ( PropName "value0" ) :| [] ) ) ( IfThenElse Nothing @@ -289,29 +293,29 @@ UberModule ( LiteralString Nothing "Data.Either∷Either.Right" ) ( ReflectCtor Nothing ( Ref Nothing ( Local ( Name "v2$506" ) ) ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Local ( Name "k" ) ) ) ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "v2$506" ) ) ) - ( PropName "value0" ) + ( PropName "value0" ) :| [] ) ) ( Exception Nothing "No patterns matched" ) ) - ) + ) :| [] ) ) ) ), ( PropName "Apply0", Abs Nothing ( ParamUnused Nothing ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Control.Monad.Except.Trans" ) ( Name "applyExceptT" ) ) ) - ( Ref Nothing ( Local ( Name "dictMonad" ) ) ) + ( Ref Nothing ( Local ( Name "dictMonad" ) ) :| [] ) ) ) ] @@ -325,26 +329,28 @@ UberModule [ ( PropName "apply", Let Nothing ( Standalone - ( Nothing, Name "dictMonad$509", App Nothing + ( Nothing, Name "dictMonad$509", AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Control.Monad.Except.Trans" ) ( Name "monadExceptT" ) ) ) - ( Ref Nothing ( Local ( Name "dictMonad" ) ) ) + ( Ref Nothing ( Local ( Name "dictMonad" ) ) :| [] ) ) :| [] ) ( Let Nothing ( Standalone - ( Nothing, Name "bind$510", App Nothing + ( Nothing, Name "bind$510", AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Control.Bind" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "dictMonad$509" ) ) ) ( PropName "Bind1" ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing + ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] + ) :| [] ) ) :| [] ) @@ -352,45 +358,48 @@ UberModule ( ParamNamed Nothing ( Name "f$511" ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "a$512" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Local ( Name "bind$510" ) ) ) - ( Ref Nothing ( Local ( Name "f$511" ) ) ) + ( Ref Nothing ( Local ( Name "f$511" ) ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "f'$513" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Local ( Name "bind$510" ) ) ) - ( Ref Nothing ( Local ( Name "a$512" ) ) ) + ( Ref Nothing ( Local ( Name "a$512" ) ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "a'$514" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Control.Applicative" ) ( Name "pure" ) ) ) - ( App Nothing + ( AppN Nothing ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "dictMonad$509" ) ) ) ( PropName "Applicative0" ) ) ( Ref Nothing - ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) - ) + ( Imported + ( ModuleName "Prim" ) + ( Name "undefined" ) + ) :| [] + ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Local ( Name "f'$513" ) ) ) - ( Ref Nothing ( Local ( Name "a'$514" ) ) ) + ( Ref Nothing ( Local ( Name "a'$514" ) ) :| [] ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) ) ) @@ -404,40 +413,46 @@ UberModule ( ParamNamed Nothing ( Name "f$498" ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "v$500" ) ) - ( App Nothing - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Functor" ) ( Name "map" ) ) ) - ( App Nothing + ( AppN Nothing ( ObjectProp Nothing - ( App Nothing + ( AppN Nothing ( ObjectProp Nothing - ( App Nothing + ( AppN Nothing ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "dictMonad" ) ) ) ( PropName "Bind1" ) ) ( Ref Nothing - ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) + ( Imported + ( ModuleName "Prim" ) + ( Name "undefined" ) + ) :| [] ) ) ( PropName "Apply0" ) ) ( Ref Nothing - ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) + ( Imported + ( ModuleName "Prim" ) + ( Name "undefined" ) + ) :| [] ) ) ( PropName "Functor0" ) ) ( Ref Nothing - ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) - ) + ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] + ) :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Functor" ) ( Name "map" ) ) ) @@ -454,7 +469,7 @@ UberModule ( Ref Nothing ( Local ( Name "m$508" ) ) ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) @@ -463,7 +478,7 @@ UberModule ) ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "m$508" ) ) ) - ( PropName "value0" ) + ( PropName "value0" ) :| [] ) ) ( IfThenElse Nothing @@ -473,19 +488,19 @@ UberModule ( Ref Nothing ( Local ( Name "m$508" ) ) ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Local ( Name "f$507" ) ) ) ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "m$508" ) ) ) - ( PropName "value0" ) - ) + ( PropName "value0" ) :| [] + ) :| [] ) ) ( Exception Nothing "No patterns matched" ) @@ -493,13 +508,13 @@ UberModule ) ) ) - ] + ] :| [] ) ) - ( Ref Nothing ( Local ( Name "f$498" ) ) ) + ( Ref Nothing ( Local ( Name "f$498" ) ) :| [] ) :| [] ) ) - ( Ref Nothing ( Local ( Name "v$500" ) ) ) + ( Ref Nothing ( Local ( Name "v$500" ) ) :| [] ) ) ) ) @@ -515,45 +530,52 @@ UberModule ( ParamNamed Nothing ( Name "dictMonad" ) ) ( LiteralObject Nothing [ - ( PropName "pure", App Nothing - ( App Nothing + ( PropName "pure", AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Control.Monad.Except.Trans" ) ( Name "compose" ) ) ) ( Ref Nothing - ( Imported ( ModuleName "Control.Monad.Except.Trans" ) ( Name "ExceptT" ) ) + ( Imported + ( ModuleName "Control.Monad.Except.Trans" ) + ( Name "ExceptT" ) + ) :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Control.Monad.Except.Trans" ) ( Name "compose" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Control.Applicative" ) ( Name "pure" ) ) ) - ( App Nothing + ( AppN Nothing ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "dictMonad" ) ) ) ( PropName "Applicative0" ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) - ) + ( Ref Nothing + ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] + ) :| [] + ) :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) + ( Ref Nothing + ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) :| [] + ) :| [] ) ), ( PropName "Apply0", Abs Nothing ( ParamUnused Nothing ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Control.Monad.Except.Trans" ) ( Name "applyExceptT" ) ) ) - ( Ref Nothing ( Local ( Name "dictMonad" ) ) ) + ( Ref Nothing ( Local ( Name "dictMonad" ) ) :| [] ) ) ) ] @@ -563,29 +585,33 @@ UberModule ), Standalone ( QName { qnameModuleName = ModuleName "Golden.LongExceptBind.Test", qnameName = Name "bind" - }, App Nothing + }, AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Control.Bind" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Control.Monad.Except.Trans" ) ( Name "bindExceptT" ) ) ) - ( Ref Nothing ( Imported ( ModuleName "Data.Identity" ) ( Name "monadIdentity" ) ) ) + ( Ref Nothing + ( Imported ( ModuleName "Data.Identity" ) ( Name "monadIdentity" ) ) :| [] + ) :| [] ) ), Standalone ( QName { qnameModuleName = ModuleName "Golden.LongExceptBind.Test", qnameName = Name "except" - }, App Nothing - ( App Nothing + }, AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Control.Monad.Except.Trans" ) ( Name "compose" ) ) ) ( Ref Nothing - ( Imported ( ModuleName "Control.Monad.Except.Trans" ) ( Name "ExceptT" ) ) + ( Imported ( ModuleName "Control.Monad.Except.Trans" ) ( Name "ExceptT" ) ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Control.Applicative" ) ( Name "pure" ) ) ) - ( Ref Nothing ( Imported ( ModuleName "Data.Identity" ) ( Name "applicativeIdentity" ) ) ) + ( Ref Nothing + ( Imported ( ModuleName "Data.Identity" ) ( Name "applicativeIdentity" ) ) :| [] + ) :| [] ) ), Standalone ( QName @@ -596,118 +622,118 @@ UberModule ( ParamNamed Nothing ( Name "x1$519" ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x160$520" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "except" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Data.Semiring" ) ( Name "foreign" ) ) ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x160$520" ) ) ) + ( Ref Nothing ( Local ( Name "x160$520" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x161" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "except" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Data.Semiring" ) ( Name "foreign" ) ) ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x161" ) ) ) + ( Ref Nothing ( Local ( Name "x161" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x162" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "except" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Data.Semiring" ) ( Name "foreign" ) ) ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x162" ) ) ) + ( Ref Nothing ( Local ( Name "x162" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x163" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "except" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -717,36 +743,36 @@ UberModule ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x163" ) ) ) + ( Ref Nothing ( Local ( Name "x163" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x164" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "except" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -756,39 +782,39 @@ UberModule ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x164" ) ) ) + ( Ref Nothing ( Local ( Name "x164" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x165" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "except" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -798,39 +824,39 @@ UberModule ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x165" ) ) ) + ( Ref Nothing ( Local ( Name "x165" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x166" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "except" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -840,39 +866,39 @@ UberModule ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x166" ) ) ) + ( Ref Nothing ( Local ( Name "x166" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x167" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "except" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -882,39 +908,41 @@ UberModule ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x167" ) ) ) + ( Ref Nothing + ( Local ( Name "x167" ) ) :| [] + ) ) - ( LiteralInt Nothing 1 ) - ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x168" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "except" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -924,39 +952,41 @@ UberModule ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x168" ) ) ) + ( Ref Nothing + ( Local ( Name "x168" ) ) :| [] + ) ) - ( LiteralInt Nothing 1 ) - ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x169" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "except" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -967,40 +997,40 @@ UberModule ( PropName "intAdd" ) ) ( Ref Nothing - ( Local ( Name "x169" ) ) + ( Local ( Name "x169" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x170" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "except" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -1011,40 +1041,40 @@ UberModule ( PropName "intAdd" ) ) ( Ref Nothing - ( Local ( Name "x170" ) ) + ( Local ( Name "x170" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x171" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "except" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -1055,42 +1085,44 @@ UberModule ( PropName "intAdd" ) ) ( Ref Nothing - ( Local ( Name "x171" ) ) + ( Local + ( Name "x171" ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x172" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "except" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -1103,42 +1135,42 @@ UberModule ( Ref Nothing ( Local ( Name "x172" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x173" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "except" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -1151,42 +1183,42 @@ UberModule ( Ref Nothing ( Local ( Name "x173" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x174" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "except" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -1199,42 +1231,42 @@ UberModule ( Ref Nothing ( Local ( Name "x174" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x175" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "except" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -1247,42 +1279,42 @@ UberModule ( Ref Nothing ( Local ( Name "x175" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x176" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "except" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -1295,42 +1327,42 @@ UberModule ( Ref Nothing ( Local ( Name "x176" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x177" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "except" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -1343,42 +1375,42 @@ UberModule ( Ref Nothing ( Local ( Name "x177" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x178" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "except" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -1391,42 +1423,42 @@ UberModule ( Ref Nothing ( Local ( Name "x178" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x179" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "except" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -1439,42 +1471,42 @@ UberModule ( Ref Nothing ( Local ( Name "x179" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x180" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "except" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -1487,42 +1519,42 @@ UberModule ( Ref Nothing ( Local ( Name "x180" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x181" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "except" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -1535,42 +1567,42 @@ UberModule ( Ref Nothing ( Local ( Name "x181" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x182" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "except" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -1583,42 +1615,42 @@ UberModule ( Ref Nothing ( Local ( Name "x182" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x183" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "except" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -1631,42 +1663,42 @@ UberModule ( Ref Nothing ( Local ( Name "x183" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x184" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "except" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -1679,42 +1711,42 @@ UberModule ( Ref Nothing ( Local ( Name "x184" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x185" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "except" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -1727,42 +1759,42 @@ UberModule ( Ref Nothing ( Local ( Name "x185" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x186" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "except" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -1775,42 +1807,42 @@ UberModule ( Ref Nothing ( Local ( Name "x186" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x187" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "except" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -1823,42 +1855,42 @@ UberModule ( Ref Nothing ( Local ( Name "x187" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x188" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "except" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -1871,42 +1903,42 @@ UberModule ( Ref Nothing ( Local ( Name "x188" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x189" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "except" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -1919,42 +1951,42 @@ UberModule ( Ref Nothing ( Local ( Name "x189" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x190" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "except" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -1967,42 +1999,42 @@ UberModule ( Ref Nothing ( Local ( Name "x190" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x191" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "except" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -2015,42 +2047,42 @@ UberModule ( Ref Nothing ( Local ( Name "x191" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x192" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "except" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -2063,42 +2095,42 @@ UberModule ( Ref Nothing ( Local ( Name "x192" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x193" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "except" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -2111,42 +2143,42 @@ UberModule ( Ref Nothing ( Local ( Name "x193" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x194" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "except" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -2159,42 +2191,42 @@ UberModule ( Ref Nothing ( Local ( Name "x194" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x195" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "except" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -2207,42 +2239,42 @@ UberModule ( Ref Nothing ( Local ( Name "x195" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x196" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "except" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -2255,42 +2287,42 @@ UberModule ( Ref Nothing ( Local ( Name "x196" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x197" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "except" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -2303,42 +2335,42 @@ UberModule ( Ref Nothing ( Local ( Name "x197" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x198" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "except" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -2351,42 +2383,42 @@ UberModule ( Ref Nothing ( Local ( Name "x198" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x199" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "except" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -2399,27 +2431,27 @@ UberModule ( Ref Nothing ( Local ( Name "x199" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x200" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Control.Applicative" ) ( Name "pure" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Control.Monad.Except.Trans" ) @@ -2430,12 +2462,12 @@ UberModule ( Imported ( ModuleName "Data.Identity" ) ( Name "monadIdentity" ) - ) - ) + ) :| [] + ) :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -2448,94 +2480,94 @@ UberModule ( Ref Nothing ( Local ( Name "x1$519" ) - ) + ) :| [] ) ) ( Ref Nothing ( Local ( Name "x200" ) - ) - ) + ) :| [] + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) ) ) @@ -2545,88 +2577,88 @@ UberModule ( ParamNamed Nothing ( Name "x1$522" ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x120$523" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "except" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Data.Semiring" ) ( Name "foreign" ) ) ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x120$523" ) ) ) + ( Ref Nothing ( Local ( Name "x120$523" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x121" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "except" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Data.Semiring" ) ( Name "foreign" ) ) ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x121" ) ) ) + ( Ref Nothing ( Local ( Name "x121" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x122" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "except" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -2636,36 +2668,36 @@ UberModule ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x122" ) ) ) + ( Ref Nothing ( Local ( Name "x122" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x123" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "except" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -2675,36 +2707,36 @@ UberModule ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x123" ) ) ) + ( Ref Nothing ( Local ( Name "x123" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x124" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "except" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -2714,39 +2746,39 @@ UberModule ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x124" ) ) ) + ( Ref Nothing ( Local ( Name "x124" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x125" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "except" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -2756,39 +2788,39 @@ UberModule ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x125" ) ) ) + ( Ref Nothing ( Local ( Name "x125" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x126" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "except" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -2798,39 +2830,39 @@ UberModule ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x126" ) ) ) + ( Ref Nothing ( Local ( Name "x126" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x127" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "except" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -2840,39 +2872,41 @@ UberModule ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x127" ) ) ) + ( Ref Nothing + ( Local ( Name "x127" ) ) :| [] + ) ) - ( LiteralInt Nothing 1 ) - ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x128" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "except" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -2883,40 +2917,40 @@ UberModule ( PropName "intAdd" ) ) ( Ref Nothing - ( Local ( Name "x128" ) ) + ( Local ( Name "x128" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x129" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "except" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -2927,40 +2961,40 @@ UberModule ( PropName "intAdd" ) ) ( Ref Nothing - ( Local ( Name "x129" ) ) + ( Local ( Name "x129" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x130" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "except" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -2971,40 +3005,42 @@ UberModule ( PropName "intAdd" ) ) ( Ref Nothing - ( Local ( Name "x130" ) ) + ( Local + ( Name "x130" ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x131" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "except" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -3015,42 +3051,44 @@ UberModule ( PropName "intAdd" ) ) ( Ref Nothing - ( Local ( Name "x131" ) ) + ( Local + ( Name "x131" ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x132" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "except" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -3063,42 +3101,42 @@ UberModule ( Ref Nothing ( Local ( Name "x132" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x133" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "except" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -3111,42 +3149,42 @@ UberModule ( Ref Nothing ( Local ( Name "x133" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x134" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "except" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -3159,42 +3197,42 @@ UberModule ( Ref Nothing ( Local ( Name "x134" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x135" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "except" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -3207,42 +3245,42 @@ UberModule ( Ref Nothing ( Local ( Name "x135" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x136" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "except" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -3255,42 +3293,42 @@ UberModule ( Ref Nothing ( Local ( Name "x136" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x137" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "except" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -3303,42 +3341,42 @@ UberModule ( Ref Nothing ( Local ( Name "x137" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x138" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "except" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -3351,42 +3389,42 @@ UberModule ( Ref Nothing ( Local ( Name "x138" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x139" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "except" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -3399,42 +3437,42 @@ UberModule ( Ref Nothing ( Local ( Name "x139" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x140" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "except" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -3447,42 +3485,42 @@ UberModule ( Ref Nothing ( Local ( Name "x140" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x141" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "except" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -3495,42 +3533,42 @@ UberModule ( Ref Nothing ( Local ( Name "x141" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x142" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "except" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -3543,42 +3581,42 @@ UberModule ( Ref Nothing ( Local ( Name "x142" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x143" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "except" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -3591,42 +3629,42 @@ UberModule ( Ref Nothing ( Local ( Name "x143" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x144" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "except" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -3639,42 +3677,42 @@ UberModule ( Ref Nothing ( Local ( Name "x144" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x145" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "except" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -3687,42 +3725,42 @@ UberModule ( Ref Nothing ( Local ( Name "x145" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x146" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "except" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -3735,42 +3773,42 @@ UberModule ( Ref Nothing ( Local ( Name "x146" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x147" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "except" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -3783,42 +3821,42 @@ UberModule ( Ref Nothing ( Local ( Name "x147" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x148" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "except" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -3831,42 +3869,42 @@ UberModule ( Ref Nothing ( Local ( Name "x148" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x149" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "except" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -3879,42 +3917,42 @@ UberModule ( Ref Nothing ( Local ( Name "x149" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x150" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "except" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -3927,42 +3965,42 @@ UberModule ( Ref Nothing ( Local ( Name "x150" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x151" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "except" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -3975,42 +4013,42 @@ UberModule ( Ref Nothing ( Local ( Name "x151" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x152" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "except" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -4023,42 +4061,42 @@ UberModule ( Ref Nothing ( Local ( Name "x152" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x153" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "except" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -4071,42 +4109,42 @@ UberModule ( Ref Nothing ( Local ( Name "x153" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x154" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "except" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -4119,42 +4157,42 @@ UberModule ( Ref Nothing ( Local ( Name "x154" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x155" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "except" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -4167,42 +4205,42 @@ UberModule ( Ref Nothing ( Local ( Name "x155" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x156" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "except" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -4215,42 +4253,42 @@ UberModule ( Ref Nothing ( Local ( Name "x156" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x157" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "except" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -4263,42 +4301,42 @@ UberModule ( Ref Nothing ( Local ( Name "x157" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x158" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "except" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -4311,42 +4349,42 @@ UberModule ( Ref Nothing ( Local ( Name "x158" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x159" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "except" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -4359,20 +4397,20 @@ UberModule ( Ref Nothing ( Local ( Name "x159" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x160" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Local ( Name "$kont518" ) @@ -4381,93 +4419,93 @@ UberModule ( Ref Nothing ( Local ( Name "x1$522" ) - ) + ) :| [] ) ) ( Ref Nothing ( Local ( Name "x160" ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) ) ) @@ -4476,88 +4514,88 @@ UberModule ( ParamNamed Nothing ( Name "x1$525" ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x80$526" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "except" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Data.Semiring" ) ( Name "foreign" ) ) ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x80$526" ) ) ) + ( Ref Nothing ( Local ( Name "x80$526" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x81" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "except" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Data.Semiring" ) ( Name "foreign" ) ) ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x81" ) ) ) + ( Ref Nothing ( Local ( Name "x81" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x82" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "except" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -4567,36 +4605,36 @@ UberModule ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x82" ) ) ) + ( Ref Nothing ( Local ( Name "x82" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x83" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "except" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -4606,36 +4644,36 @@ UberModule ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x83" ) ) ) + ( Ref Nothing ( Local ( Name "x83" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x84" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "except" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -4645,39 +4683,39 @@ UberModule ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x84" ) ) ) + ( Ref Nothing ( Local ( Name "x84" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x85" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "except" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -4687,39 +4725,39 @@ UberModule ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x85" ) ) ) + ( Ref Nothing ( Local ( Name "x85" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x86" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "except" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -4729,39 +4767,39 @@ UberModule ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x86" ) ) ) + ( Ref Nothing ( Local ( Name "x86" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x87" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "except" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -4771,39 +4809,41 @@ UberModule ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x87" ) ) ) + ( Ref Nothing + ( Local ( Name "x87" ) ) :| [] + ) ) - ( LiteralInt Nothing 1 ) - ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x88" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "except" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -4813,39 +4853,41 @@ UberModule ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x88" ) ) ) + ( Ref Nothing + ( Local ( Name "x88" ) ) :| [] + ) ) - ( LiteralInt Nothing 1 ) - ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x89" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "except" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -4856,40 +4898,40 @@ UberModule ( PropName "intAdd" ) ) ( Ref Nothing - ( Local ( Name "x89" ) ) + ( Local ( Name "x89" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x90" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "except" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -4900,40 +4942,40 @@ UberModule ( PropName "intAdd" ) ) ( Ref Nothing - ( Local ( Name "x90" ) ) + ( Local ( Name "x90" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x91" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "except" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -4944,42 +4986,44 @@ UberModule ( PropName "intAdd" ) ) ( Ref Nothing - ( Local ( Name "x91" ) ) + ( Local + ( Name "x91" ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x92" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "except" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -4992,42 +5036,42 @@ UberModule ( Ref Nothing ( Local ( Name "x92" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x93" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "except" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -5040,42 +5084,42 @@ UberModule ( Ref Nothing ( Local ( Name "x93" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x94" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "except" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -5088,42 +5132,42 @@ UberModule ( Ref Nothing ( Local ( Name "x94" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x95" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "except" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -5136,42 +5180,42 @@ UberModule ( Ref Nothing ( Local ( Name "x95" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x96" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "except" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -5184,42 +5228,42 @@ UberModule ( Ref Nothing ( Local ( Name "x96" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x97" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "except" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -5232,42 +5276,42 @@ UberModule ( Ref Nothing ( Local ( Name "x97" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x98" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "except" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -5280,42 +5324,42 @@ UberModule ( Ref Nothing ( Local ( Name "x98" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x99" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "except" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -5328,42 +5372,42 @@ UberModule ( Ref Nothing ( Local ( Name "x99" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x100" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "except" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -5376,42 +5420,42 @@ UberModule ( Ref Nothing ( Local ( Name "x100" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x101" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "except" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -5424,42 +5468,42 @@ UberModule ( Ref Nothing ( Local ( Name "x101" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x102" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "except" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -5472,42 +5516,42 @@ UberModule ( Ref Nothing ( Local ( Name "x102" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x103" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "except" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -5520,42 +5564,42 @@ UberModule ( Ref Nothing ( Local ( Name "x103" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x104" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "except" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -5568,42 +5612,42 @@ UberModule ( Ref Nothing ( Local ( Name "x104" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x105" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "except" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -5616,42 +5660,42 @@ UberModule ( Ref Nothing ( Local ( Name "x105" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x106" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "except" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -5664,42 +5708,42 @@ UberModule ( Ref Nothing ( Local ( Name "x106" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x107" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "except" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -5712,42 +5756,42 @@ UberModule ( Ref Nothing ( Local ( Name "x107" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x108" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "except" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -5760,42 +5804,42 @@ UberModule ( Ref Nothing ( Local ( Name "x108" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x109" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "except" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -5808,42 +5852,42 @@ UberModule ( Ref Nothing ( Local ( Name "x109" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x110" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "except" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -5856,42 +5900,42 @@ UberModule ( Ref Nothing ( Local ( Name "x110" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x111" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "except" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -5904,42 +5948,42 @@ UberModule ( Ref Nothing ( Local ( Name "x111" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x112" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "except" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -5952,42 +5996,42 @@ UberModule ( Ref Nothing ( Local ( Name "x112" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x113" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "except" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -6000,42 +6044,42 @@ UberModule ( Ref Nothing ( Local ( Name "x113" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x114" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "except" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -6048,42 +6092,42 @@ UberModule ( Ref Nothing ( Local ( Name "x114" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x115" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "except" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -6096,42 +6140,42 @@ UberModule ( Ref Nothing ( Local ( Name "x115" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x116" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "except" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -6144,42 +6188,42 @@ UberModule ( Ref Nothing ( Local ( Name "x116" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x117" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "except" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -6192,42 +6236,42 @@ UberModule ( Ref Nothing ( Local ( Name "x117" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x118" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "except" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -6240,42 +6284,42 @@ UberModule ( Ref Nothing ( Local ( Name "x118" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x119" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "except" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -6288,20 +6332,20 @@ UberModule ( Ref Nothing ( Local ( Name "x119" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x120" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Local ( Name "$kont521" ) @@ -6310,93 +6354,93 @@ UberModule ( Ref Nothing ( Local ( Name "x1$525" ) - ) + ) :| [] ) ) ( Ref Nothing ( Local ( Name "x120" ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) ) ) @@ -6405,88 +6449,88 @@ UberModule ( ParamNamed Nothing ( Name "x1$528" ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x40$529" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "except" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Data.Semiring" ) ( Name "foreign" ) ) ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x40$529" ) ) ) + ( Ref Nothing ( Local ( Name "x40$529" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x41" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "except" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Data.Semiring" ) ( Name "foreign" ) ) ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x41" ) ) ) + ( Ref Nothing ( Local ( Name "x41" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x42" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "except" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -6496,36 +6540,36 @@ UberModule ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x42" ) ) ) + ( Ref Nothing ( Local ( Name "x42" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x43" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "except" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -6535,36 +6579,36 @@ UberModule ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x43" ) ) ) + ( Ref Nothing ( Local ( Name "x43" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x44" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "except" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -6574,39 +6618,39 @@ UberModule ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x44" ) ) ) + ( Ref Nothing ( Local ( Name "x44" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x45" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "except" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -6616,39 +6660,39 @@ UberModule ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x45" ) ) ) + ( Ref Nothing ( Local ( Name "x45" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x46" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "except" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -6658,39 +6702,39 @@ UberModule ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x46" ) ) ) + ( Ref Nothing ( Local ( Name "x46" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x47" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "except" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -6700,39 +6744,41 @@ UberModule ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x47" ) ) ) + ( Ref Nothing + ( Local ( Name "x47" ) ) :| [] + ) ) - ( LiteralInt Nothing 1 ) - ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x48" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "except" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -6742,39 +6788,41 @@ UberModule ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x48" ) ) ) + ( Ref Nothing + ( Local ( Name "x48" ) ) :| [] + ) ) - ( LiteralInt Nothing 1 ) - ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x49" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "except" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -6785,40 +6833,40 @@ UberModule ( PropName "intAdd" ) ) ( Ref Nothing - ( Local ( Name "x49" ) ) + ( Local ( Name "x49" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x50" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "except" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -6829,40 +6877,40 @@ UberModule ( PropName "intAdd" ) ) ( Ref Nothing - ( Local ( Name "x50" ) ) + ( Local ( Name "x50" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x51" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "except" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -6873,42 +6921,44 @@ UberModule ( PropName "intAdd" ) ) ( Ref Nothing - ( Local ( Name "x51" ) ) + ( Local + ( Name "x51" ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x52" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "except" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -6921,42 +6971,42 @@ UberModule ( Ref Nothing ( Local ( Name "x52" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x53" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "except" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -6969,42 +7019,42 @@ UberModule ( Ref Nothing ( Local ( Name "x53" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x54" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "except" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -7017,42 +7067,42 @@ UberModule ( Ref Nothing ( Local ( Name "x54" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x55" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "except" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -7065,42 +7115,42 @@ UberModule ( Ref Nothing ( Local ( Name "x55" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x56" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "except" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -7113,42 +7163,42 @@ UberModule ( Ref Nothing ( Local ( Name "x56" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x57" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "except" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -7161,42 +7211,42 @@ UberModule ( Ref Nothing ( Local ( Name "x57" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x58" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "except" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -7209,42 +7259,42 @@ UberModule ( Ref Nothing ( Local ( Name "x58" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x59" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "except" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -7257,42 +7307,42 @@ UberModule ( Ref Nothing ( Local ( Name "x59" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x60" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "except" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -7305,42 +7355,42 @@ UberModule ( Ref Nothing ( Local ( Name "x60" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x61" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "except" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -7353,42 +7403,42 @@ UberModule ( Ref Nothing ( Local ( Name "x61" ) - ) + ) :| [] ) - ) - ( LiteralInt Nothing 1 ) - ) - ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x62" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "except" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -7401,42 +7451,42 @@ UberModule ( Ref Nothing ( Local ( Name "x62" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x63" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "except" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -7449,42 +7499,42 @@ UberModule ( Ref Nothing ( Local ( Name "x63" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x64" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "except" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -7497,42 +7547,42 @@ UberModule ( Ref Nothing ( Local ( Name "x64" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x65" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "except" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -7545,42 +7595,42 @@ UberModule ( Ref Nothing ( Local ( Name "x65" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x66" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "except" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -7593,42 +7643,42 @@ UberModule ( Ref Nothing ( Local ( Name "x66" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x67" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "except" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -7641,42 +7691,42 @@ UberModule ( Ref Nothing ( Local ( Name "x67" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x68" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "except" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -7689,42 +7739,42 @@ UberModule ( Ref Nothing ( Local ( Name "x68" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x69" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "except" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -7737,42 +7787,42 @@ UberModule ( Ref Nothing ( Local ( Name "x69" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x70" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "except" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -7785,42 +7835,42 @@ UberModule ( Ref Nothing ( Local ( Name "x70" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x71" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "except" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -7833,42 +7883,42 @@ UberModule ( Ref Nothing ( Local ( Name "x71" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x72" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "except" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -7881,42 +7931,42 @@ UberModule ( Ref Nothing ( Local ( Name "x72" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x73" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "except" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -7929,42 +7979,42 @@ UberModule ( Ref Nothing ( Local ( Name "x73" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x74" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "except" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -7977,42 +8027,42 @@ UberModule ( Ref Nothing ( Local ( Name "x74" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x75" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "except" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -8025,42 +8075,42 @@ UberModule ( Ref Nothing ( Local ( Name "x75" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x76" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "except" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -8073,42 +8123,42 @@ UberModule ( Ref Nothing ( Local ( Name "x76" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x77" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "except" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -8121,42 +8171,42 @@ UberModule ( Ref Nothing ( Local ( Name "x77" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x78" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "except" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -8169,42 +8219,42 @@ UberModule ( Ref Nothing ( Local ( Name "x78" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x79" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "except" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -8217,20 +8267,20 @@ UberModule ( Ref Nothing ( Local ( Name "x79" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x80" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Local ( Name "$kont524" ) @@ -8239,226 +8289,226 @@ UberModule ( Ref Nothing ( Local ( Name "x1$528" ) - ) + ) :| [] ) ) ( Ref Nothing ( Local ( Name "x80" ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) ) ) ) ] ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "except" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x1" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "except" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Data.Semiring" ) ( Name "foreign" ) ) ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x1" ) ) ) + ( Ref Nothing ( Local ( Name "x1" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x2" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "except" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Data.Semiring" ) ( Name "foreign" ) ) ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x2" ) ) ) + ( Ref Nothing ( Local ( Name "x2" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x3" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "except" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Data.Semiring" ) ( Name "foreign" ) ) ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x3" ) ) ) + ( Ref Nothing ( Local ( Name "x3" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x4" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "except" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -8468,36 +8518,36 @@ UberModule ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x4" ) ) ) + ( Ref Nothing ( Local ( Name "x4" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x5" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "except" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -8507,36 +8557,36 @@ UberModule ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x5" ) ) ) + ( Ref Nothing ( Local ( Name "x5" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x6" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "except" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -8546,39 +8596,39 @@ UberModule ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x6" ) ) ) + ( Ref Nothing ( Local ( Name "x6" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x7" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "except" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -8588,39 +8638,39 @@ UberModule ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x7" ) ) ) + ( Ref Nothing ( Local ( Name "x7" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x8" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "except" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -8630,39 +8680,39 @@ UberModule ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x8" ) ) ) + ( Ref Nothing ( Local ( Name "x8" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x9" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "except" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -8672,39 +8722,41 @@ UberModule ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x9" ) ) ) + ( Ref Nothing + ( Local ( Name "x9" ) ) :| [] + ) ) - ( LiteralInt Nothing 1 ) - ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x10" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "except" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -8714,39 +8766,41 @@ UberModule ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x10" ) ) ) + ( Ref Nothing + ( Local ( Name "x10" ) ) :| [] + ) ) - ( LiteralInt Nothing 1 ) - ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x11" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "except" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -8757,40 +8811,40 @@ UberModule ( PropName "intAdd" ) ) ( Ref Nothing - ( Local ( Name "x11" ) ) + ( Local ( Name "x11" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x12" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "except" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -8801,40 +8855,40 @@ UberModule ( PropName "intAdd" ) ) ( Ref Nothing - ( Local ( Name "x12" ) ) + ( Local ( Name "x12" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x13" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "except" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -8845,42 +8899,44 @@ UberModule ( PropName "intAdd" ) ) ( Ref Nothing - ( Local ( Name "x13" ) ) + ( Local + ( Name "x13" ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x14" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "except" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -8893,42 +8949,42 @@ UberModule ( Ref Nothing ( Local ( Name "x14" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x15" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "except" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -8941,42 +8997,42 @@ UberModule ( Ref Nothing ( Local ( Name "x15" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x16" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "except" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -8989,42 +9045,42 @@ UberModule ( Ref Nothing ( Local ( Name "x16" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x17" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "except" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -9037,42 +9093,42 @@ UberModule ( Ref Nothing ( Local ( Name "x17" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x18" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "except" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -9085,42 +9141,42 @@ UberModule ( Ref Nothing ( Local ( Name "x18" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x19" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "except" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -9133,42 +9189,42 @@ UberModule ( Ref Nothing ( Local ( Name "x19" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x20" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "except" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -9181,42 +9237,42 @@ UberModule ( Ref Nothing ( Local ( Name "x20" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x21" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "except" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -9229,42 +9285,42 @@ UberModule ( Ref Nothing ( Local ( Name "x21" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x22" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "except" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -9277,42 +9333,42 @@ UberModule ( Ref Nothing ( Local ( Name "x22" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x23" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "except" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -9325,42 +9381,42 @@ UberModule ( Ref Nothing ( Local ( Name "x23" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x24" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "except" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -9373,42 +9429,42 @@ UberModule ( Ref Nothing ( Local ( Name "x24" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x25" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "except" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -9421,42 +9477,42 @@ UberModule ( Ref Nothing ( Local ( Name "x25" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x26" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "except" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -9469,42 +9525,42 @@ UberModule ( Ref Nothing ( Local ( Name "x26" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x27" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "except" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -9517,42 +9573,42 @@ UberModule ( Ref Nothing ( Local ( Name "x27" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x28" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "except" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -9565,42 +9621,42 @@ UberModule ( Ref Nothing ( Local ( Name "x28" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x29" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "except" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -9613,42 +9669,42 @@ UberModule ( Ref Nothing ( Local ( Name "x29" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x30" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "except" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -9661,42 +9717,42 @@ UberModule ( Ref Nothing ( Local ( Name "x30" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x31" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "except" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -9709,42 +9765,42 @@ UberModule ( Ref Nothing ( Local ( Name "x31" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x32" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "except" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -9757,42 +9813,42 @@ UberModule ( Ref Nothing ( Local ( Name "x32" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x33" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "except" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -9805,42 +9861,42 @@ UberModule ( Ref Nothing ( Local ( Name "x33" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x34" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "except" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -9853,42 +9909,42 @@ UberModule ( Ref Nothing ( Local ( Name "x34" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x35" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "except" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -9901,42 +9957,42 @@ UberModule ( Ref Nothing ( Local ( Name "x35" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x36" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "except" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -9949,42 +10005,42 @@ UberModule ( Ref Nothing ( Local ( Name "x36" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x37" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "except" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -9997,42 +10053,42 @@ UberModule ( Ref Nothing ( Local ( Name "x37" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x38" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "except" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -10045,42 +10101,42 @@ UberModule ( Ref Nothing ( Local ( Name "x38" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x39" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "except" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -10093,20 +10149,20 @@ UberModule ( Ref Nothing ( Local ( Name "x39" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x40" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Local ( Name "$kont527" ) @@ -10115,118 +10171,118 @@ UberModule ( Ref Nothing ( Local ( Name "x1" ) - ) + ) :| [] ) ) ( Ref Nothing ( Local ( Name "x40" ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) ) ), Standalone ( QName { qnameModuleName = ModuleName "Golden.LongExceptBind.Test", qnameName = Name "compute" - }, App Nothing - ( App Nothing - ( App Nothing - ( App Nothing + }, AppN Nothing + ( AppN Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Control.Semigroupoid" ) ( Name "compose" ) ) ) ( Ref Nothing - ( Imported ( ModuleName "Control.Semigroupoid" ) ( Name "semigroupoidFn" ) ) + ( Imported ( ModuleName "Control.Semigroupoid" ) ( Name "semigroupoidFn" ) ) :| [] ) ) ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Unsafe.Coerce" ) ( Name "foreign" ) ) ) - ( PropName "unsafeCoerce" ) + ( PropName "unsafeCoerce" ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "v$39" ) ) - ( Ref Nothing ( Local ( Name "v$39" ) ) ) + ( Ref Nothing ( Local ( Name "v$39" ) ) ) :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "go" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "go" ) ) :| [] ) ) ], uberModuleForeigns = [], uberModuleExports = [ @@ -10236,13 +10292,13 @@ UberModule ( Name "compute", Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "compute" ) ) ), - ( Name "main", App Nothing + ( Name "main", AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Show" ) ( Name "show" ) ) ) ( LiteralObject Nothing [ @@ -10253,26 +10309,26 @@ UberModule ( LiteralString Nothing "Data.Either∷Either.Left" ) ( ReflectCtor Nothing ( Ref Nothing ( Local ( Name "v$189$517" ) ) ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Data.Semigroup" ) ( Name "foreign" ) ) ) ( PropName "concatString" ) ) - ( LiteralString Nothing "(Left " ) + ( LiteralString Nothing "(Left " :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Data.Semigroup" ) ( Name "foreign" ) ) ) ( PropName "concatString" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Show" ) ( Name "show" ) ) ) @@ -10284,16 +10340,16 @@ UberModule ) ( PropName "showStringImpl" ) ) - ] + ] :| [] ) ) ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "v$189$517" ) ) ) - ( PropName "value0" ) - ) + ( PropName "value0" ) :| [] + ) :| [] ) ) - ( LiteralString Nothing ")" ) + ( LiteralString Nothing ")" :| [] ) :| [] ) ) ( IfThenElse Nothing @@ -10301,26 +10357,26 @@ UberModule ( LiteralString Nothing "Data.Either∷Either.Right" ) ( ReflectCtor Nothing ( Ref Nothing ( Local ( Name "v$189$517" ) ) ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Data.Semigroup" ) ( Name "foreign" ) ) ) ( PropName "concatString" ) ) - ( LiteralString Nothing "(Right " ) + ( LiteralString Nothing "(Right " :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Data.Semigroup" ) ( Name "foreign" ) ) ) ( PropName "concatString" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Show" ) ( Name "show" ) ) ) @@ -10332,28 +10388,28 @@ UberModule ) ( PropName "showIntImpl" ) ) - ] + ] :| [] ) ) ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "v$189$517" ) ) ) - ( PropName "value0" ) - ) + ( PropName "value0" ) :| [] + ) :| [] ) ) - ( LiteralString Nothing ")" ) + ( LiteralString Nothing ")" :| [] ) :| [] ) ) ( Exception Nothing "No patterns matched" ) ) ) ) - ] + ] :| [] ) ) ( Ref Nothing - ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "compute" ) ) - ) + ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "compute" ) ) :| [] + ) :| [] ) ) ] diff --git a/test/ps/output/Golden.LongMaybeBind.Test/golden.ir b/test/ps/output/Golden.LongMaybeBind.Test/golden.ir index aab455d9..ed87c486 100644 --- a/test/ps/output/Golden.LongMaybeBind.Test/golden.ir +++ b/test/ps/output/Golden.LongMaybeBind.Test/golden.ir @@ -55,11 +55,11 @@ UberModule ( LiteralString Nothing "Data.Maybe∷Maybe.Just" ) ( ReflectCtor Nothing ( Ref Nothing ( Local ( Name "v$270" ) ) ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Local ( Name "v1$271" ) ) ) ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "v$270" ) ) ) - ( PropName "value0" ) + ( PropName "value0" ) :| [] ) ) ( IfThenElse Nothing @@ -85,91 +85,91 @@ UberModule ( ParamNamed Nothing ( Name "x1$280" ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x277$281" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Data.Semiring" ) ( Name "foreign" ) ) ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x277$281" ) ) ) + ( Ref Nothing ( Local ( Name "x277$281" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x278" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Data.Semiring" ) ( Name "foreign" ) ) ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x278" ) ) ) + ( Ref Nothing ( Local ( Name "x278" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x279" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Data.Semiring" ) ( Name "foreign" ) ) ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x279" ) ) ) + ( Ref Nothing ( Local ( Name "x279" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x280" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -179,28 +179,28 @@ UberModule ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x280" ) ) ) + ( Ref Nothing ( Local ( Name "x280" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x281" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -210,28 +210,28 @@ UberModule ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x281" ) ) ) + ( Ref Nothing ( Local ( Name "x281" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x282" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -241,31 +241,31 @@ UberModule ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x282" ) ) ) + ( Ref Nothing ( Local ( Name "x282" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x283" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -275,31 +275,31 @@ UberModule ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x283" ) ) ) + ( Ref Nothing ( Local ( Name "x283" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x284" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -309,31 +309,31 @@ UberModule ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x284" ) ) ) + ( Ref Nothing ( Local ( Name "x284" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x285" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -343,31 +343,33 @@ UberModule ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x285" ) ) ) + ( Ref Nothing + ( Local ( Name "x285" ) ) :| [] + ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x286" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -378,32 +380,32 @@ UberModule ( PropName "intAdd" ) ) ( Ref Nothing - ( Local ( Name "x286" ) ) + ( Local ( Name "x286" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x287" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -414,32 +416,32 @@ UberModule ( PropName "intAdd" ) ) ( Ref Nothing - ( Local ( Name "x287" ) ) + ( Local ( Name "x287" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x288" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -450,34 +452,36 @@ UberModule ( PropName "intAdd" ) ) ( Ref Nothing - ( Local ( Name "x288" ) ) + ( Local + ( Name "x288" ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x289" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -488,34 +492,36 @@ UberModule ( PropName "intAdd" ) ) ( Ref Nothing - ( Local ( Name "x289" ) ) + ( Local + ( Name "x289" ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x290" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -528,34 +534,34 @@ UberModule ( Ref Nothing ( Local ( Name "x290" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x291" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -568,34 +574,34 @@ UberModule ( Ref Nothing ( Local ( Name "x291" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x292" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -608,34 +614,34 @@ UberModule ( Ref Nothing ( Local ( Name "x292" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x293" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -648,34 +654,34 @@ UberModule ( Ref Nothing ( Local ( Name "x293" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x294" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -688,34 +694,34 @@ UberModule ( Ref Nothing ( Local ( Name "x294" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x295" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -728,34 +734,34 @@ UberModule ( Ref Nothing ( Local ( Name "x295" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x296" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -768,34 +774,34 @@ UberModule ( Ref Nothing ( Local ( Name "x296" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x297" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -808,34 +814,34 @@ UberModule ( Ref Nothing ( Local ( Name "x297" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x298" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -848,34 +854,34 @@ UberModule ( Ref Nothing ( Local ( Name "x298" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x299" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -888,26 +894,26 @@ UberModule ( Ref Nothing ( Local ( Name "x299" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x300" ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -920,60 +926,60 @@ UberModule ( Ref Nothing ( Local ( Name "x1$280" ) - ) + ) :| [] ) ) ( Ref Nothing ( Local ( Name "x300" ) - ) - ) + ) :| [] + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) ) ) @@ -983,94 +989,94 @@ UberModule ( ParamNamed Nothing ( Name "x1$283" ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x238$284" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Data.Semiring" ) ( Name "foreign" ) ) ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x238$284" ) ) ) + ( Ref Nothing ( Local ( Name "x238$284" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x239" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Data.Semiring" ) ( Name "foreign" ) ) ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x239" ) ) ) + ( Ref Nothing ( Local ( Name "x239" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x240" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Data.Semiring" ) ( Name "foreign" ) ) ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x240" ) ) ) + ( Ref Nothing ( Local ( Name "x240" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x241" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -1080,28 +1086,28 @@ UberModule ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x241" ) ) ) + ( Ref Nothing ( Local ( Name "x241" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x242" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -1111,28 +1117,28 @@ UberModule ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x242" ) ) ) + ( Ref Nothing ( Local ( Name "x242" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x243" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -1142,31 +1148,31 @@ UberModule ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x243" ) ) ) + ( Ref Nothing ( Local ( Name "x243" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x244" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -1176,31 +1182,31 @@ UberModule ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x244" ) ) ) + ( Ref Nothing ( Local ( Name "x244" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x245" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -1210,31 +1216,33 @@ UberModule ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x245" ) ) ) + ( Ref Nothing + ( Local ( Name "x245" ) ) :| [] + ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x246" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -1244,31 +1252,33 @@ UberModule ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x246" ) ) ) + ( Ref Nothing + ( Local ( Name "x246" ) ) :| [] + ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x247" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -1279,32 +1289,32 @@ UberModule ( PropName "intAdd" ) ) ( Ref Nothing - ( Local ( Name "x247" ) ) + ( Local ( Name "x247" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x248" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -1315,32 +1325,32 @@ UberModule ( PropName "intAdd" ) ) ( Ref Nothing - ( Local ( Name "x248" ) ) + ( Local ( Name "x248" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x249" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -1351,26 +1361,28 @@ UberModule ( PropName "intAdd" ) ) ( Ref Nothing - ( Local ( Name "x249" ) ) + ( Local + ( Name "x249" ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x250" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) @@ -1384,28 +1396,28 @@ UberModule ( Name "foreign" ) ) ) - ( PropName "unit" ) - ) + ( PropName "unit" ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -1418,34 +1430,34 @@ UberModule ( Ref Nothing ( Local ( Name "x250" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x251" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -1458,34 +1470,34 @@ UberModule ( Ref Nothing ( Local ( Name "x251" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x252" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -1498,34 +1510,34 @@ UberModule ( Ref Nothing ( Local ( Name "x252" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x253" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -1538,34 +1550,34 @@ UberModule ( Ref Nothing ( Local ( Name "x253" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x254" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -1578,34 +1590,34 @@ UberModule ( Ref Nothing ( Local ( Name "x254" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x255" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -1618,34 +1630,34 @@ UberModule ( Ref Nothing ( Local ( Name "x255" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x256" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -1658,34 +1670,34 @@ UberModule ( Ref Nothing ( Local ( Name "x256" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x257" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -1698,34 +1710,34 @@ UberModule ( Ref Nothing ( Local ( Name "x257" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x258" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -1738,34 +1750,34 @@ UberModule ( Ref Nothing ( Local ( Name "x258" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x259" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -1778,34 +1790,34 @@ UberModule ( Ref Nothing ( Local ( Name "x259" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x260" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -1818,34 +1830,34 @@ UberModule ( Ref Nothing ( Local ( Name "x260" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x261" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -1858,34 +1870,34 @@ UberModule ( Ref Nothing ( Local ( Name "x261" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x262" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -1898,34 +1910,34 @@ UberModule ( Ref Nothing ( Local ( Name "x262" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x263" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -1938,34 +1950,34 @@ UberModule ( Ref Nothing ( Local ( Name "x263" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x264" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -1978,34 +1990,34 @@ UberModule ( Ref Nothing ( Local ( Name "x264" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x265" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -2018,34 +2030,34 @@ UberModule ( Ref Nothing ( Local ( Name "x265" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x266" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -2058,34 +2070,34 @@ UberModule ( Ref Nothing ( Local ( Name "x266" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x267" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -2098,34 +2110,34 @@ UberModule ( Ref Nothing ( Local ( Name "x267" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x268" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -2138,34 +2150,34 @@ UberModule ( Ref Nothing ( Local ( Name "x268" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x269" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -2178,34 +2190,34 @@ UberModule ( Ref Nothing ( Local ( Name "x269" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x270" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -2218,34 +2230,34 @@ UberModule ( Ref Nothing ( Local ( Name "x270" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x271" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -2258,34 +2270,34 @@ UberModule ( Ref Nothing ( Local ( Name "x271" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x272" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -2298,34 +2310,34 @@ UberModule ( Ref Nothing ( Local ( Name "x272" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x273" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -2338,34 +2350,34 @@ UberModule ( Ref Nothing ( Local ( Name "x273" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x274" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -2378,34 +2390,34 @@ UberModule ( Ref Nothing ( Local ( Name "x274" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x275" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -2418,34 +2430,34 @@ UberModule ( Ref Nothing ( Local ( Name "x275" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x276" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -2458,19 +2470,19 @@ UberModule ( Ref Nothing ( Local ( Name "x276" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x277" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Local ( Name "$kont279" ) @@ -2479,93 +2491,93 @@ UberModule ( Ref Nothing ( Local ( Name "x1$283" ) - ) + ) :| [] ) ) ( Ref Nothing ( Local ( Name "x277" ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) ) ) @@ -2574,94 +2586,94 @@ UberModule ( ParamNamed Nothing ( Name "x1$286" ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x198$287" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Data.Semiring" ) ( Name "foreign" ) ) ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x198$287" ) ) ) + ( Ref Nothing ( Local ( Name "x198$287" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x199" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Data.Semiring" ) ( Name "foreign" ) ) ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x199" ) ) ) + ( Ref Nothing ( Local ( Name "x199" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x200" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Data.Semiring" ) ( Name "foreign" ) ) ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x200" ) ) ) + ( Ref Nothing ( Local ( Name "x200" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x201" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -2671,28 +2683,28 @@ UberModule ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x201" ) ) ) + ( Ref Nothing ( Local ( Name "x201" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x202" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -2702,28 +2714,28 @@ UberModule ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x202" ) ) ) + ( Ref Nothing ( Local ( Name "x202" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x203" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -2733,31 +2745,31 @@ UberModule ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x203" ) ) ) + ( Ref Nothing ( Local ( Name "x203" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x204" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -2767,31 +2779,31 @@ UberModule ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x204" ) ) ) + ( Ref Nothing ( Local ( Name "x204" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x205" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -2801,31 +2813,33 @@ UberModule ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x205" ) ) ) + ( Ref Nothing + ( Local ( Name "x205" ) ) :| [] + ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x206" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -2835,31 +2849,33 @@ UberModule ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x206" ) ) ) + ( Ref Nothing + ( Local ( Name "x206" ) ) :| [] + ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x207" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -2870,32 +2886,32 @@ UberModule ( PropName "intAdd" ) ) ( Ref Nothing - ( Local ( Name "x207" ) ) + ( Local ( Name "x207" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x208" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -2906,32 +2922,32 @@ UberModule ( PropName "intAdd" ) ) ( Ref Nothing - ( Local ( Name "x208" ) ) + ( Local ( Name "x208" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x209" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -2942,34 +2958,36 @@ UberModule ( PropName "intAdd" ) ) ( Ref Nothing - ( Local ( Name "x209" ) ) + ( Local + ( Name "x209" ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x210" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -2982,34 +3000,34 @@ UberModule ( Ref Nothing ( Local ( Name "x210" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x211" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -3022,34 +3040,34 @@ UberModule ( Ref Nothing ( Local ( Name "x211" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x212" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -3062,34 +3080,34 @@ UberModule ( Ref Nothing ( Local ( Name "x212" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x213" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -3102,34 +3120,34 @@ UberModule ( Ref Nothing ( Local ( Name "x213" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x214" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -3142,34 +3160,34 @@ UberModule ( Ref Nothing ( Local ( Name "x214" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x215" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -3182,34 +3200,34 @@ UberModule ( Ref Nothing ( Local ( Name "x215" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x216" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -3222,34 +3240,34 @@ UberModule ( Ref Nothing ( Local ( Name "x216" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x217" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -3262,34 +3280,34 @@ UberModule ( Ref Nothing ( Local ( Name "x217" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x218" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -3302,34 +3320,34 @@ UberModule ( Ref Nothing ( Local ( Name "x218" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x219" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -3342,34 +3360,34 @@ UberModule ( Ref Nothing ( Local ( Name "x219" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x220" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -3382,34 +3400,34 @@ UberModule ( Ref Nothing ( Local ( Name "x220" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x221" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -3422,34 +3440,34 @@ UberModule ( Ref Nothing ( Local ( Name "x221" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x222" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -3462,34 +3480,34 @@ UberModule ( Ref Nothing ( Local ( Name "x222" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x223" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -3502,34 +3520,34 @@ UberModule ( Ref Nothing ( Local ( Name "x223" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x224" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -3542,34 +3560,34 @@ UberModule ( Ref Nothing ( Local ( Name "x224" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x225" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -3582,34 +3600,34 @@ UberModule ( Ref Nothing ( Local ( Name "x225" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x226" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -3622,34 +3640,34 @@ UberModule ( Ref Nothing ( Local ( Name "x226" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x227" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -3662,34 +3680,34 @@ UberModule ( Ref Nothing ( Local ( Name "x227" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x228" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -3702,34 +3720,34 @@ UberModule ( Ref Nothing ( Local ( Name "x228" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x229" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -3742,34 +3760,34 @@ UberModule ( Ref Nothing ( Local ( Name "x229" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x230" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -3782,34 +3800,34 @@ UberModule ( Ref Nothing ( Local ( Name "x230" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x231" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -3822,34 +3840,34 @@ UberModule ( Ref Nothing ( Local ( Name "x231" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x232" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -3862,34 +3880,34 @@ UberModule ( Ref Nothing ( Local ( Name "x232" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x233" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -3902,34 +3920,34 @@ UberModule ( Ref Nothing ( Local ( Name "x233" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x234" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -3942,34 +3960,34 @@ UberModule ( Ref Nothing ( Local ( Name "x234" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x235" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -3982,34 +4000,34 @@ UberModule ( Ref Nothing ( Local ( Name "x235" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x236" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -4022,34 +4040,34 @@ UberModule ( Ref Nothing ( Local ( Name "x236" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x237" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -4062,19 +4080,19 @@ UberModule ( Ref Nothing ( Local ( Name "x237" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x238" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Local ( Name "$kont282" ) @@ -4083,93 +4101,93 @@ UberModule ( Ref Nothing ( Local ( Name "x1$286" ) - ) + ) :| [] ) ) ( Ref Nothing ( Local ( Name "x238" ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) ) ) @@ -4178,94 +4196,94 @@ UberModule ( ParamNamed Nothing ( Name "x1$289" ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x158$290" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Data.Semiring" ) ( Name "foreign" ) ) ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x158$290" ) ) ) + ( Ref Nothing ( Local ( Name "x158$290" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x159" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Data.Semiring" ) ( Name "foreign" ) ) ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x159" ) ) ) + ( Ref Nothing ( Local ( Name "x159" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x160" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Data.Semiring" ) ( Name "foreign" ) ) ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x160" ) ) ) + ( Ref Nothing ( Local ( Name "x160" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x161" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -4275,28 +4293,28 @@ UberModule ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x161" ) ) ) + ( Ref Nothing ( Local ( Name "x161" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x162" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -4306,28 +4324,28 @@ UberModule ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x162" ) ) ) + ( Ref Nothing ( Local ( Name "x162" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x163" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -4337,31 +4355,31 @@ UberModule ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x163" ) ) ) + ( Ref Nothing ( Local ( Name "x163" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x164" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -4371,31 +4389,31 @@ UberModule ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x164" ) ) ) + ( Ref Nothing ( Local ( Name "x164" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x165" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -4405,31 +4423,33 @@ UberModule ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x165" ) ) ) + ( Ref Nothing + ( Local ( Name "x165" ) ) :| [] + ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x166" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -4439,31 +4459,33 @@ UberModule ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x166" ) ) ) + ( Ref Nothing + ( Local ( Name "x166" ) ) :| [] + ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x167" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -4474,32 +4496,32 @@ UberModule ( PropName "intAdd" ) ) ( Ref Nothing - ( Local ( Name "x167" ) ) + ( Local ( Name "x167" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x168" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -4510,32 +4532,32 @@ UberModule ( PropName "intAdd" ) ) ( Ref Nothing - ( Local ( Name "x168" ) ) + ( Local ( Name "x168" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x169" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -4546,34 +4568,36 @@ UberModule ( PropName "intAdd" ) ) ( Ref Nothing - ( Local ( Name "x169" ) ) + ( Local + ( Name "x169" ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x170" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -4586,34 +4610,34 @@ UberModule ( Ref Nothing ( Local ( Name "x170" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x171" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -4626,34 +4650,34 @@ UberModule ( Ref Nothing ( Local ( Name "x171" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x172" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -4666,34 +4690,34 @@ UberModule ( Ref Nothing ( Local ( Name "x172" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x173" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -4706,34 +4730,34 @@ UberModule ( Ref Nothing ( Local ( Name "x173" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x174" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -4746,34 +4770,34 @@ UberModule ( Ref Nothing ( Local ( Name "x174" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x175" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -4786,34 +4810,34 @@ UberModule ( Ref Nothing ( Local ( Name "x175" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x176" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -4826,34 +4850,34 @@ UberModule ( Ref Nothing ( Local ( Name "x176" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x177" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -4866,34 +4890,34 @@ UberModule ( Ref Nothing ( Local ( Name "x177" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x178" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -4906,34 +4930,34 @@ UberModule ( Ref Nothing ( Local ( Name "x178" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x179" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -4946,34 +4970,34 @@ UberModule ( Ref Nothing ( Local ( Name "x179" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x180" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -4986,34 +5010,34 @@ UberModule ( Ref Nothing ( Local ( Name "x180" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x181" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -5026,34 +5050,34 @@ UberModule ( Ref Nothing ( Local ( Name "x181" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x182" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -5066,34 +5090,34 @@ UberModule ( Ref Nothing ( Local ( Name "x182" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x183" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -5106,34 +5130,34 @@ UberModule ( Ref Nothing ( Local ( Name "x183" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x184" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -5146,34 +5170,34 @@ UberModule ( Ref Nothing ( Local ( Name "x184" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x185" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -5186,34 +5210,34 @@ UberModule ( Ref Nothing ( Local ( Name "x185" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x186" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -5226,34 +5250,34 @@ UberModule ( Ref Nothing ( Local ( Name "x186" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x187" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -5266,34 +5290,34 @@ UberModule ( Ref Nothing ( Local ( Name "x187" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x188" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -5306,34 +5330,34 @@ UberModule ( Ref Nothing ( Local ( Name "x188" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x189" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -5346,34 +5370,34 @@ UberModule ( Ref Nothing ( Local ( Name "x189" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x190" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -5386,34 +5410,34 @@ UberModule ( Ref Nothing ( Local ( Name "x190" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x191" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -5426,34 +5450,34 @@ UberModule ( Ref Nothing ( Local ( Name "x191" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x192" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -5466,34 +5490,34 @@ UberModule ( Ref Nothing ( Local ( Name "x192" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x193" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -5506,34 +5530,34 @@ UberModule ( Ref Nothing ( Local ( Name "x193" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x194" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -5546,34 +5570,34 @@ UberModule ( Ref Nothing ( Local ( Name "x194" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x195" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -5586,34 +5610,34 @@ UberModule ( Ref Nothing ( Local ( Name "x195" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x196" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -5626,34 +5650,34 @@ UberModule ( Ref Nothing ( Local ( Name "x196" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x197" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -5666,19 +5690,19 @@ UberModule ( Ref Nothing ( Local ( Name "x197" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x198" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Local ( Name "$kont285" ) @@ -5687,93 +5711,93 @@ UberModule ( Ref Nothing ( Local ( Name "x1$289" ) - ) + ) :| [] ) ) ( Ref Nothing ( Local ( Name "x198" ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) ) ) @@ -5782,94 +5806,94 @@ UberModule ( ParamNamed Nothing ( Name "x1$292" ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x119$293" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Data.Semiring" ) ( Name "foreign" ) ) ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x119$293" ) ) ) + ( Ref Nothing ( Local ( Name "x119$293" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x120" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Data.Semiring" ) ( Name "foreign" ) ) ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x120" ) ) ) + ( Ref Nothing ( Local ( Name "x120" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x121" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Data.Semiring" ) ( Name "foreign" ) ) ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x121" ) ) ) + ( Ref Nothing ( Local ( Name "x121" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x122" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -5879,28 +5903,28 @@ UberModule ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x122" ) ) ) + ( Ref Nothing ( Local ( Name "x122" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x123" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -5910,28 +5934,28 @@ UberModule ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x123" ) ) ) + ( Ref Nothing ( Local ( Name "x123" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x124" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -5941,31 +5965,31 @@ UberModule ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x124" ) ) ) + ( Ref Nothing ( Local ( Name "x124" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x125" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -5975,31 +5999,31 @@ UberModule ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x125" ) ) ) + ( Ref Nothing ( Local ( Name "x125" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x126" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -6009,31 +6033,33 @@ UberModule ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x126" ) ) ) + ( Ref Nothing + ( Local ( Name "x126" ) ) :| [] + ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x127" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -6043,31 +6069,33 @@ UberModule ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x127" ) ) ) + ( Ref Nothing + ( Local ( Name "x127" ) ) :| [] + ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x128" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -6078,32 +6106,32 @@ UberModule ( PropName "intAdd" ) ) ( Ref Nothing - ( Local ( Name "x128" ) ) + ( Local ( Name "x128" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x129" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -6114,32 +6142,32 @@ UberModule ( PropName "intAdd" ) ) ( Ref Nothing - ( Local ( Name "x129" ) ) + ( Local ( Name "x129" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x130" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -6150,34 +6178,36 @@ UberModule ( PropName "intAdd" ) ) ( Ref Nothing - ( Local ( Name "x130" ) ) + ( Local + ( Name "x130" ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x131" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -6190,34 +6220,34 @@ UberModule ( Ref Nothing ( Local ( Name "x131" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x132" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -6230,34 +6260,34 @@ UberModule ( Ref Nothing ( Local ( Name "x132" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x133" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -6270,34 +6300,34 @@ UberModule ( Ref Nothing ( Local ( Name "x133" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x134" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -6310,34 +6340,34 @@ UberModule ( Ref Nothing ( Local ( Name "x134" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x135" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -6350,34 +6380,34 @@ UberModule ( Ref Nothing ( Local ( Name "x135" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x136" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -6390,34 +6420,34 @@ UberModule ( Ref Nothing ( Local ( Name "x136" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x137" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -6430,34 +6460,34 @@ UberModule ( Ref Nothing ( Local ( Name "x137" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x138" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -6470,34 +6500,34 @@ UberModule ( Ref Nothing ( Local ( Name "x138" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x139" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -6510,34 +6540,34 @@ UberModule ( Ref Nothing ( Local ( Name "x139" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x140" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -6550,34 +6580,34 @@ UberModule ( Ref Nothing ( Local ( Name "x140" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x141" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -6590,34 +6620,34 @@ UberModule ( Ref Nothing ( Local ( Name "x141" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x142" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -6630,34 +6660,34 @@ UberModule ( Ref Nothing ( Local ( Name "x142" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x143" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -6670,34 +6700,34 @@ UberModule ( Ref Nothing ( Local ( Name "x143" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x144" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -6710,34 +6740,34 @@ UberModule ( Ref Nothing ( Local ( Name "x144" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x145" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -6750,34 +6780,34 @@ UberModule ( Ref Nothing ( Local ( Name "x145" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x146" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -6790,34 +6820,34 @@ UberModule ( Ref Nothing ( Local ( Name "x146" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x147" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -6830,34 +6860,34 @@ UberModule ( Ref Nothing ( Local ( Name "x147" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x148" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -6870,34 +6900,34 @@ UberModule ( Ref Nothing ( Local ( Name "x148" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x149" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -6910,26 +6940,26 @@ UberModule ( Ref Nothing ( Local ( Name "x149" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x150" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) @@ -6943,28 +6973,28 @@ UberModule ( Name "foreign" ) ) ) - ( PropName "unit" ) - ) + ( PropName "unit" ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -6977,34 +7007,34 @@ UberModule ( Ref Nothing ( Local ( Name "x150" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x151" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -7017,34 +7047,34 @@ UberModule ( Ref Nothing ( Local ( Name "x151" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x152" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -7057,34 +7087,34 @@ UberModule ( Ref Nothing ( Local ( Name "x152" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x153" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -7097,34 +7127,34 @@ UberModule ( Ref Nothing ( Local ( Name "x153" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x154" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -7137,34 +7167,34 @@ UberModule ( Ref Nothing ( Local ( Name "x154" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x155" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -7177,34 +7207,34 @@ UberModule ( Ref Nothing ( Local ( Name "x155" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x156" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -7217,34 +7247,34 @@ UberModule ( Ref Nothing ( Local ( Name "x156" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x157" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -7257,19 +7287,19 @@ UberModule ( Ref Nothing ( Local ( Name "x157" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x158" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Local ( Name "$kont288" ) @@ -7278,93 +7308,93 @@ UberModule ( Ref Nothing ( Local ( Name "x1$292" ) - ) + ) :| [] ) ) ( Ref Nothing ( Local ( Name "x158" ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) ) ) @@ -7373,94 +7403,94 @@ UberModule ( ParamNamed Nothing ( Name "x1$295" ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x79$296" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Data.Semiring" ) ( Name "foreign" ) ) ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x79$296" ) ) ) + ( Ref Nothing ( Local ( Name "x79$296" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x80" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Data.Semiring" ) ( Name "foreign" ) ) ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x80" ) ) ) + ( Ref Nothing ( Local ( Name "x80" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x81" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Data.Semiring" ) ( Name "foreign" ) ) ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x81" ) ) ) + ( Ref Nothing ( Local ( Name "x81" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x82" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -7470,28 +7500,28 @@ UberModule ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x82" ) ) ) + ( Ref Nothing ( Local ( Name "x82" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x83" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -7501,28 +7531,28 @@ UberModule ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x83" ) ) ) + ( Ref Nothing ( Local ( Name "x83" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x84" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -7532,31 +7562,31 @@ UberModule ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x84" ) ) ) + ( Ref Nothing ( Local ( Name "x84" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x85" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -7566,31 +7596,31 @@ UberModule ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x85" ) ) ) + ( Ref Nothing ( Local ( Name "x85" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x86" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -7600,31 +7630,31 @@ UberModule ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x86" ) ) ) + ( Ref Nothing ( Local ( Name "x86" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x87" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -7634,31 +7664,33 @@ UberModule ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x87" ) ) ) + ( Ref Nothing + ( Local ( Name "x87" ) ) :| [] + ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x88" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -7669,32 +7701,32 @@ UberModule ( PropName "intAdd" ) ) ( Ref Nothing - ( Local ( Name "x88" ) ) + ( Local ( Name "x88" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x89" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -7705,32 +7737,32 @@ UberModule ( PropName "intAdd" ) ) ( Ref Nothing - ( Local ( Name "x89" ) ) + ( Local ( Name "x89" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x90" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -7741,34 +7773,36 @@ UberModule ( PropName "intAdd" ) ) ( Ref Nothing - ( Local ( Name "x90" ) ) + ( Local + ( Name "x90" ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x91" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -7779,34 +7813,36 @@ UberModule ( PropName "intAdd" ) ) ( Ref Nothing - ( Local ( Name "x91" ) ) + ( Local + ( Name "x91" ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x92" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -7819,34 +7855,34 @@ UberModule ( Ref Nothing ( Local ( Name "x92" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x93" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -7859,34 +7895,34 @@ UberModule ( Ref Nothing ( Local ( Name "x93" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x94" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -7899,34 +7935,34 @@ UberModule ( Ref Nothing ( Local ( Name "x94" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x95" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -7939,34 +7975,34 @@ UberModule ( Ref Nothing ( Local ( Name "x95" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x96" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -7979,34 +8015,34 @@ UberModule ( Ref Nothing ( Local ( Name "x96" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x97" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -8019,34 +8055,34 @@ UberModule ( Ref Nothing ( Local ( Name "x97" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x98" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -8059,34 +8095,34 @@ UberModule ( Ref Nothing ( Local ( Name "x98" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x99" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -8099,34 +8135,34 @@ UberModule ( Ref Nothing ( Local ( Name "x99" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x100" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -8139,34 +8175,34 @@ UberModule ( Ref Nothing ( Local ( Name "x100" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x101" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -8179,34 +8215,34 @@ UberModule ( Ref Nothing ( Local ( Name "x101" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x102" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -8219,34 +8255,34 @@ UberModule ( Ref Nothing ( Local ( Name "x102" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x103" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -8259,34 +8295,34 @@ UberModule ( Ref Nothing ( Local ( Name "x103" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x104" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -8299,34 +8335,34 @@ UberModule ( Ref Nothing ( Local ( Name "x104" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x105" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -8339,34 +8375,34 @@ UberModule ( Ref Nothing ( Local ( Name "x105" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x106" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -8379,34 +8415,34 @@ UberModule ( Ref Nothing ( Local ( Name "x106" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x107" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -8419,34 +8455,34 @@ UberModule ( Ref Nothing ( Local ( Name "x107" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x108" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -8459,34 +8495,34 @@ UberModule ( Ref Nothing ( Local ( Name "x108" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x109" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -8499,34 +8535,34 @@ UberModule ( Ref Nothing ( Local ( Name "x109" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x110" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -8539,34 +8575,34 @@ UberModule ( Ref Nothing ( Local ( Name "x110" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x111" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -8579,34 +8615,34 @@ UberModule ( Ref Nothing ( Local ( Name "x111" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x112" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -8619,34 +8655,34 @@ UberModule ( Ref Nothing ( Local ( Name "x112" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x113" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -8659,34 +8695,34 @@ UberModule ( Ref Nothing ( Local ( Name "x113" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x114" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -8699,34 +8735,34 @@ UberModule ( Ref Nothing ( Local ( Name "x114" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x115" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -8739,34 +8775,34 @@ UberModule ( Ref Nothing ( Local ( Name "x115" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x116" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -8779,34 +8815,34 @@ UberModule ( Ref Nothing ( Local ( Name "x116" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x117" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -8819,34 +8855,34 @@ UberModule ( Ref Nothing ( Local ( Name "x117" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x118" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -8859,19 +8895,19 @@ UberModule ( Ref Nothing ( Local ( Name "x118" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x119" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Local ( Name "$kont291" ) @@ -8880,93 +8916,93 @@ UberModule ( Ref Nothing ( Local ( Name "x1$295" ) - ) + ) :| [] ) ) ( Ref Nothing ( Local ( Name "x119" ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) ) ) @@ -8975,94 +9011,94 @@ UberModule ( ParamNamed Nothing ( Name "x1$298" ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x40$299" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Data.Semiring" ) ( Name "foreign" ) ) ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x40$299" ) ) ) + ( Ref Nothing ( Local ( Name "x40$299" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x41" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Data.Semiring" ) ( Name "foreign" ) ) ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x41" ) ) ) + ( Ref Nothing ( Local ( Name "x41" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x42" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Data.Semiring" ) ( Name "foreign" ) ) ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x42" ) ) ) + ( Ref Nothing ( Local ( Name "x42" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x43" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -9072,28 +9108,28 @@ UberModule ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x43" ) ) ) + ( Ref Nothing ( Local ( Name "x43" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x44" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -9103,28 +9139,28 @@ UberModule ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x44" ) ) ) + ( Ref Nothing ( Local ( Name "x44" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x45" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -9134,31 +9170,31 @@ UberModule ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x45" ) ) ) + ( Ref Nothing ( Local ( Name "x45" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x46" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -9168,31 +9204,31 @@ UberModule ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x46" ) ) ) + ( Ref Nothing ( Local ( Name "x46" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x47" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -9202,31 +9238,31 @@ UberModule ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x47" ) ) ) + ( Ref Nothing ( Local ( Name "x47" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x48" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -9236,31 +9272,33 @@ UberModule ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x48" ) ) ) + ( Ref Nothing + ( Local ( Name "x48" ) ) :| [] + ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x49" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -9271,24 +9309,24 @@ UberModule ( PropName "intAdd" ) ) ( Ref Nothing - ( Local ( Name "x49" ) ) + ( Local ( Name "x49" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x50" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) @@ -9302,28 +9340,28 @@ UberModule ( Name "foreign" ) ) ) - ( PropName "unit" ) - ) + ( PropName "unit" ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -9334,34 +9372,36 @@ UberModule ( PropName "intAdd" ) ) ( Ref Nothing - ( Local ( Name "x50" ) ) + ( Local + ( Name "x50" ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x51" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -9372,34 +9412,36 @@ UberModule ( PropName "intAdd" ) ) ( Ref Nothing - ( Local ( Name "x51" ) ) + ( Local + ( Name "x51" ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x52" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -9412,34 +9454,34 @@ UberModule ( Ref Nothing ( Local ( Name "x52" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x53" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -9452,34 +9494,34 @@ UberModule ( Ref Nothing ( Local ( Name "x53" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x54" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -9492,34 +9534,34 @@ UberModule ( Ref Nothing ( Local ( Name "x54" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x55" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -9532,34 +9574,34 @@ UberModule ( Ref Nothing ( Local ( Name "x55" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x56" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -9572,34 +9614,34 @@ UberModule ( Ref Nothing ( Local ( Name "x56" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x57" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -9612,34 +9654,34 @@ UberModule ( Ref Nothing ( Local ( Name "x57" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x58" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -9652,34 +9694,34 @@ UberModule ( Ref Nothing ( Local ( Name "x58" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x59" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -9692,34 +9734,34 @@ UberModule ( Ref Nothing ( Local ( Name "x59" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x60" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -9732,34 +9774,34 @@ UberModule ( Ref Nothing ( Local ( Name "x60" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x61" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -9772,34 +9814,34 @@ UberModule ( Ref Nothing ( Local ( Name "x61" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x62" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -9812,34 +9854,34 @@ UberModule ( Ref Nothing ( Local ( Name "x62" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x63" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -9852,34 +9894,34 @@ UberModule ( Ref Nothing ( Local ( Name "x63" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x64" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -9892,34 +9934,34 @@ UberModule ( Ref Nothing ( Local ( Name "x64" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x65" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -9932,34 +9974,34 @@ UberModule ( Ref Nothing ( Local ( Name "x65" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x66" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -9972,34 +10014,34 @@ UberModule ( Ref Nothing ( Local ( Name "x66" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x67" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -10012,34 +10054,34 @@ UberModule ( Ref Nothing ( Local ( Name "x67" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x68" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -10052,34 +10094,34 @@ UberModule ( Ref Nothing ( Local ( Name "x68" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x69" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -10092,34 +10134,34 @@ UberModule ( Ref Nothing ( Local ( Name "x69" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x70" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -10132,34 +10174,34 @@ UberModule ( Ref Nothing ( Local ( Name "x70" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x71" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -10172,34 +10214,34 @@ UberModule ( Ref Nothing ( Local ( Name "x71" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x72" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -10212,34 +10254,34 @@ UberModule ( Ref Nothing ( Local ( Name "x72" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x73" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -10252,34 +10294,34 @@ UberModule ( Ref Nothing ( Local ( Name "x73" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x74" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -10292,34 +10334,34 @@ UberModule ( Ref Nothing ( Local ( Name "x74" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x75" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -10332,34 +10374,34 @@ UberModule ( Ref Nothing ( Local ( Name "x75" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x76" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -10372,34 +10414,34 @@ UberModule ( Ref Nothing ( Local ( Name "x76" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x77" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -10412,34 +10454,34 @@ UberModule ( Ref Nothing ( Local ( Name "x77" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x78" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -10452,19 +10494,19 @@ UberModule ( Ref Nothing ( Local ( Name "x78" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x79" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Local ( Name "$kont294" ) @@ -10473,220 +10515,220 @@ UberModule ( Ref Nothing ( Local ( Name "x1$298" ) - ) + ) :| [] ) ) ( Ref Nothing ( Local ( Name "x79" ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) ) ) ) ] ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 1 ) + ( LiteralInt Nothing 1 :| [] ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x1" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Data.Semiring" ) ( Name "foreign" ) ) ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x1" ) ) ) + ( Ref Nothing ( Local ( Name "x1" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x2" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Data.Semiring" ) ( Name "foreign" ) ) ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x2" ) ) ) + ( Ref Nothing ( Local ( Name "x2" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x3" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Data.Semiring" ) ( Name "foreign" ) ) ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x3" ) ) ) + ( Ref Nothing ( Local ( Name "x3" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x4" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Data.Semiring" ) ( Name "foreign" ) ) ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x4" ) ) ) + ( Ref Nothing ( Local ( Name "x4" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x5" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -10696,28 +10738,28 @@ UberModule ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x5" ) ) ) + ( Ref Nothing ( Local ( Name "x5" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x6" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -10727,28 +10769,28 @@ UberModule ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x6" ) ) ) + ( Ref Nothing ( Local ( Name "x6" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x7" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -10758,31 +10800,31 @@ UberModule ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x7" ) ) ) + ( Ref Nothing ( Local ( Name "x7" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x8" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -10792,31 +10834,31 @@ UberModule ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x8" ) ) ) + ( Ref Nothing ( Local ( Name "x8" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x9" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -10826,31 +10868,31 @@ UberModule ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x9" ) ) ) + ( Ref Nothing ( Local ( Name "x9" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x10" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -10860,31 +10902,33 @@ UberModule ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x10" ) ) ) + ( Ref Nothing + ( Local ( Name "x10" ) ) :| [] + ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x11" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -10895,32 +10939,32 @@ UberModule ( PropName "intAdd" ) ) ( Ref Nothing - ( Local ( Name "x11" ) ) + ( Local ( Name "x11" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x12" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -10931,32 +10975,32 @@ UberModule ( PropName "intAdd" ) ) ( Ref Nothing - ( Local ( Name "x12" ) ) + ( Local ( Name "x12" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x13" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -10967,34 +11011,36 @@ UberModule ( PropName "intAdd" ) ) ( Ref Nothing - ( Local ( Name "x13" ) ) + ( Local + ( Name "x13" ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x14" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -11005,34 +11051,36 @@ UberModule ( PropName "intAdd" ) ) ( Ref Nothing - ( Local ( Name "x14" ) ) + ( Local + ( Name "x14" ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x15" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -11045,34 +11093,34 @@ UberModule ( Ref Nothing ( Local ( Name "x15" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x16" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -11085,34 +11133,34 @@ UberModule ( Ref Nothing ( Local ( Name "x16" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x17" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -11125,34 +11173,34 @@ UberModule ( Ref Nothing ( Local ( Name "x17" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x18" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -11165,34 +11213,34 @@ UberModule ( Ref Nothing ( Local ( Name "x18" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x19" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -11205,34 +11253,34 @@ UberModule ( Ref Nothing ( Local ( Name "x19" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x20" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -11245,34 +11293,34 @@ UberModule ( Ref Nothing ( Local ( Name "x20" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x21" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -11285,34 +11333,34 @@ UberModule ( Ref Nothing ( Local ( Name "x21" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x22" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -11325,34 +11373,34 @@ UberModule ( Ref Nothing ( Local ( Name "x22" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x23" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -11365,34 +11413,34 @@ UberModule ( Ref Nothing ( Local ( Name "x23" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x24" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -11405,34 +11453,34 @@ UberModule ( Ref Nothing ( Local ( Name "x24" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x25" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -11445,34 +11493,34 @@ UberModule ( Ref Nothing ( Local ( Name "x25" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x26" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -11485,34 +11533,34 @@ UberModule ( Ref Nothing ( Local ( Name "x26" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x27" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -11525,34 +11573,34 @@ UberModule ( Ref Nothing ( Local ( Name "x27" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x28" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -11565,34 +11613,34 @@ UberModule ( Ref Nothing ( Local ( Name "x28" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x29" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -11605,34 +11653,34 @@ UberModule ( Ref Nothing ( Local ( Name "x29" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x30" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -11645,34 +11693,34 @@ UberModule ( Ref Nothing ( Local ( Name "x30" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x31" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -11685,34 +11733,34 @@ UberModule ( Ref Nothing ( Local ( Name "x31" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x32" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -11725,34 +11773,34 @@ UberModule ( Ref Nothing ( Local ( Name "x32" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x33" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -11765,34 +11813,34 @@ UberModule ( Ref Nothing ( Local ( Name "x33" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x34" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -11805,34 +11853,34 @@ UberModule ( Ref Nothing ( Local ( Name "x34" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x35" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -11845,34 +11893,34 @@ UberModule ( Ref Nothing ( Local ( Name "x35" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x36" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -11885,34 +11933,34 @@ UberModule ( Ref Nothing ( Local ( Name "x36" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x37" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -11925,34 +11973,34 @@ UberModule ( Ref Nothing ( Local ( Name "x37" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x38" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -11965,34 +12013,34 @@ UberModule ( Ref Nothing ( Local ( Name "x38" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x39" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -12005,19 +12053,19 @@ UberModule ( Ref Nothing ( Local ( Name "x39" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x40" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Local ( Name "$kont297" ) @@ -12026,93 +12074,93 @@ UberModule ( Ref Nothing ( Local ( Name "x1" ) - ) + ) :| [] ) ) ( Ref Nothing ( Local ( Name "x40" ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) ) ) @@ -12121,13 +12169,13 @@ UberModule ( Name "compute", Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "compute" ) ) ), - ( Name "main", App Nothing + ( Name "main", AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Show" ) ( Name "show" ) ) ) ( LiteralObject Nothing [ @@ -12138,26 +12186,26 @@ UberModule ( LiteralString Nothing "Data.Maybe∷Maybe.Just" ) ( ReflectCtor Nothing ( Ref Nothing ( Local ( Name "v$16$278" ) ) ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Data.Semigroup" ) ( Name "foreign" ) ) ) ( PropName "concatString" ) ) - ( LiteralString Nothing "(Just " ) + ( LiteralString Nothing "(Just " :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Data.Semigroup" ) ( Name "foreign" ) ) ) ( PropName "concatString" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Show" ) ( Name "show" ) ) ) @@ -12169,16 +12217,16 @@ UberModule ) ( PropName "showIntImpl" ) ) - ] + ] :| [] ) ) ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "v$16$278" ) ) ) - ( PropName "value0" ) - ) + ( PropName "value0" ) :| [] + ) :| [] ) ) - ( LiteralString Nothing ")" ) + ( LiteralString Nothing ")" :| [] ) :| [] ) ) ( IfThenElse Nothing @@ -12191,10 +12239,12 @@ UberModule ) ) ) - ] + ] :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "compute" ) ) ) + ( Ref Nothing + ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "compute" ) ) :| [] + ) :| [] ) ) ] diff --git a/test/ps/output/Golden.LongMaybeBindModule.Test/golden.ir b/test/ps/output/Golden.LongMaybeBindModule.Test/golden.ir index 92520259..1a4f9b52 100644 --- a/test/ps/output/Golden.LongMaybeBindModule.Test/golden.ir +++ b/test/ps/output/Golden.LongMaybeBindModule.Test/golden.ir @@ -32,11 +32,11 @@ UberModule ( LiteralString Nothing "Data.Maybe∷Maybe.Just" ) ( ReflectCtor Nothing ( Ref Nothing ( Local ( Name "v$545" ) ) ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Local ( Name "v1$546" ) ) ) ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "v$545" ) ) ) - ( PropName "value0" ) + ( PropName "value0" ) :| [] ) ) ( IfThenElse Nothing @@ -62,97 +62,97 @@ UberModule ( ParamNamed Nothing ( Name "x1$0$552" ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x277$276$553" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Data.Semiring" ) ( Name "foreign" ) ) ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x277$276$553" ) ) ) + ( Ref Nothing ( Local ( Name "x277$276$553" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x278$277" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Data.Semiring" ) ( Name "foreign" ) ) ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x278$277" ) ) ) + ( Ref Nothing ( Local ( Name "x278$277" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x279$278" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Data.Semiring" ) ( Name "foreign" ) ) ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x279$278" ) ) ) + ( Ref Nothing ( Local ( Name "x279$278" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x280$279" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -162,28 +162,28 @@ UberModule ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x280$279" ) ) ) + ( Ref Nothing ( Local ( Name "x280$279" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x281$280" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -193,28 +193,28 @@ UberModule ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x281$280" ) ) ) + ( Ref Nothing ( Local ( Name "x281$280" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x282$281" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -224,31 +224,31 @@ UberModule ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x282$281" ) ) ) + ( Ref Nothing ( Local ( Name "x282$281" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x283$282" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -258,31 +258,31 @@ UberModule ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x283$282" ) ) ) + ( Ref Nothing ( Local ( Name "x283$282" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x284$283" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -292,31 +292,33 @@ UberModule ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x284$283" ) ) ) + ( Ref Nothing + ( Local ( Name "x284$283" ) ) :| [] + ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x285$284" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -327,32 +329,32 @@ UberModule ( PropName "intAdd" ) ) ( Ref Nothing - ( Local ( Name "x285$284" ) ) + ( Local ( Name "x285$284" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x286$285" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -363,32 +365,32 @@ UberModule ( PropName "intAdd" ) ) ( Ref Nothing - ( Local ( Name "x286$285" ) ) + ( Local ( Name "x286$285" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x287$286" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -399,34 +401,36 @@ UberModule ( PropName "intAdd" ) ) ( Ref Nothing - ( Local ( Name "x287$286" ) ) + ( Local + ( Name "x287$286" ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x288$287" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -437,34 +441,36 @@ UberModule ( PropName "intAdd" ) ) ( Ref Nothing - ( Local ( Name "x288$287" ) ) + ( Local + ( Name "x288$287" ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x289$288" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -477,34 +483,34 @@ UberModule ( Ref Nothing ( Local ( Name "x289$288" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x290$289" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -517,34 +523,34 @@ UberModule ( Ref Nothing ( Local ( Name "x290$289" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x291$290" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -557,34 +563,34 @@ UberModule ( Ref Nothing ( Local ( Name "x291$290" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x292$291" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -597,34 +603,34 @@ UberModule ( Ref Nothing ( Local ( Name "x292$291" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x293$292" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -637,34 +643,34 @@ UberModule ( Ref Nothing ( Local ( Name "x293$292" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x294$293" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -677,34 +683,34 @@ UberModule ( Ref Nothing ( Local ( Name "x294$293" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x295$294" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -717,34 +723,34 @@ UberModule ( Ref Nothing ( Local ( Name "x295$294" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x296$295" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -757,34 +763,34 @@ UberModule ( Ref Nothing ( Local ( Name "x296$295" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x297$296" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -797,34 +803,34 @@ UberModule ( Ref Nothing ( Local ( Name "x297$296" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x298$297" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -837,34 +843,34 @@ UberModule ( Ref Nothing ( Local ( Name "x298$297" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x299$298" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -877,26 +883,26 @@ UberModule ( Ref Nothing ( Local ( Name "x299$298" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x300$299" ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -909,60 +915,60 @@ UberModule ( Ref Nothing ( Local ( Name "x1$0$552" ) - ) + ) :| [] ) ) ( Ref Nothing ( Local ( Name "x300$299" ) - ) - ) + ) :| [] + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) ) ) @@ -972,97 +978,97 @@ UberModule ( ParamNamed Nothing ( Name "x1$0$555" ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x238$237$556" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Data.Semiring" ) ( Name "foreign" ) ) ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x238$237$556" ) ) ) + ( Ref Nothing ( Local ( Name "x238$237$556" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x239$238" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Data.Semiring" ) ( Name "foreign" ) ) ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x239$238" ) ) ) + ( Ref Nothing ( Local ( Name "x239$238" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x240$239" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Data.Semiring" ) ( Name "foreign" ) ) ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x240$239" ) ) ) + ( Ref Nothing ( Local ( Name "x240$239" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x241$240" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -1072,28 +1078,28 @@ UberModule ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x241$240" ) ) ) + ( Ref Nothing ( Local ( Name "x241$240" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x242$241" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -1103,28 +1109,28 @@ UberModule ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x242$241" ) ) ) + ( Ref Nothing ( Local ( Name "x242$241" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x243$242" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -1134,31 +1140,31 @@ UberModule ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x243$242" ) ) ) + ( Ref Nothing ( Local ( Name "x243$242" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x244$243" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -1168,31 +1174,33 @@ UberModule ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x244$243" ) ) ) + ( Ref Nothing + ( Local ( Name "x244$243" ) ) :| [] + ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x245$244" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -1202,31 +1210,33 @@ UberModule ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x245$244" ) ) ) + ( Ref Nothing + ( Local ( Name "x245$244" ) ) :| [] + ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x246$245" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -1237,32 +1247,32 @@ UberModule ( PropName "intAdd" ) ) ( Ref Nothing - ( Local ( Name "x246$245" ) ) + ( Local ( Name "x246$245" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x247$246" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -1273,32 +1283,32 @@ UberModule ( PropName "intAdd" ) ) ( Ref Nothing - ( Local ( Name "x247$246" ) ) + ( Local ( Name "x247$246" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x248$247" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -1309,34 +1319,36 @@ UberModule ( PropName "intAdd" ) ) ( Ref Nothing - ( Local ( Name "x248$247" ) ) + ( Local + ( Name "x248$247" ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x249$248" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -1349,26 +1361,26 @@ UberModule ( Ref Nothing ( Local ( Name "x249$248" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x250$249" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) @@ -1382,28 +1394,28 @@ UberModule ( Name "foreign" ) ) ) - ( PropName "unit" ) - ) + ( PropName "unit" ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -1416,34 +1428,34 @@ UberModule ( Ref Nothing ( Local ( Name "x250$249" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x251$250" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -1456,34 +1468,34 @@ UberModule ( Ref Nothing ( Local ( Name "x251$250" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x252$251" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -1496,34 +1508,34 @@ UberModule ( Ref Nothing ( Local ( Name "x252$251" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x253$252" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -1536,34 +1548,34 @@ UberModule ( Ref Nothing ( Local ( Name "x253$252" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x254$253" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -1576,34 +1588,34 @@ UberModule ( Ref Nothing ( Local ( Name "x254$253" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x255$254" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -1616,34 +1628,34 @@ UberModule ( Ref Nothing ( Local ( Name "x255$254" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x256$255" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -1656,34 +1668,34 @@ UberModule ( Ref Nothing ( Local ( Name "x256$255" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x257$256" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -1696,34 +1708,34 @@ UberModule ( Ref Nothing ( Local ( Name "x257$256" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x258$257" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -1736,34 +1748,34 @@ UberModule ( Ref Nothing ( Local ( Name "x258$257" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x259$258" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -1776,34 +1788,34 @@ UberModule ( Ref Nothing ( Local ( Name "x259$258" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x260$259" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -1816,34 +1828,34 @@ UberModule ( Ref Nothing ( Local ( Name "x260$259" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x261$260" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -1856,34 +1868,34 @@ UberModule ( Ref Nothing ( Local ( Name "x261$260" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x262$261" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -1896,34 +1908,34 @@ UberModule ( Ref Nothing ( Local ( Name "x262$261" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x263$262" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -1936,34 +1948,34 @@ UberModule ( Ref Nothing ( Local ( Name "x263$262" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x264$263" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -1976,34 +1988,34 @@ UberModule ( Ref Nothing ( Local ( Name "x264$263" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x265$264" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -2016,34 +2028,34 @@ UberModule ( Ref Nothing ( Local ( Name "x265$264" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x266$265" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -2056,34 +2068,34 @@ UberModule ( Ref Nothing ( Local ( Name "x266$265" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x267$266" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -2096,34 +2108,34 @@ UberModule ( Ref Nothing ( Local ( Name "x267$266" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x268$267" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -2136,34 +2148,34 @@ UberModule ( Ref Nothing ( Local ( Name "x268$267" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x269$268" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -2176,34 +2188,34 @@ UberModule ( Ref Nothing ( Local ( Name "x269$268" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x270$269" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -2216,34 +2228,34 @@ UberModule ( Ref Nothing ( Local ( Name "x270$269" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x271$270" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -2256,34 +2268,34 @@ UberModule ( Ref Nothing ( Local ( Name "x271$270" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x272$271" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -2296,34 +2308,34 @@ UberModule ( Ref Nothing ( Local ( Name "x272$271" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x273$272" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -2336,34 +2348,34 @@ UberModule ( Ref Nothing ( Local ( Name "x273$272" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x274$273" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -2376,34 +2388,34 @@ UberModule ( Ref Nothing ( Local ( Name "x274$273" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x275$274" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -2416,34 +2428,34 @@ UberModule ( Ref Nothing ( Local ( Name "x275$274" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x276$275" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -2456,19 +2468,19 @@ UberModule ( Ref Nothing ( Local ( Name "x276$275" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x277$276" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Local ( Name "$kont551" ) @@ -2477,93 +2489,93 @@ UberModule ( Ref Nothing ( Local ( Name "x1$0$555" ) - ) + ) :| [] ) ) ( Ref Nothing ( Local ( Name "x277$276" ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) ) ) @@ -2572,97 +2584,97 @@ UberModule ( ParamNamed Nothing ( Name "x1$0$558" ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x198$197$559" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Data.Semiring" ) ( Name "foreign" ) ) ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x198$197$559" ) ) ) + ( Ref Nothing ( Local ( Name "x198$197$559" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x199$198" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Data.Semiring" ) ( Name "foreign" ) ) ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x199$198" ) ) ) + ( Ref Nothing ( Local ( Name "x199$198" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x200$199" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Data.Semiring" ) ( Name "foreign" ) ) ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x200$199" ) ) ) + ( Ref Nothing ( Local ( Name "x200$199" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x201$200" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -2672,28 +2684,28 @@ UberModule ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x201$200" ) ) ) + ( Ref Nothing ( Local ( Name "x201$200" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x202$201" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -2703,28 +2715,28 @@ UberModule ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x202$201" ) ) ) + ( Ref Nothing ( Local ( Name "x202$201" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x203$202" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -2734,31 +2746,31 @@ UberModule ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x203$202" ) ) ) + ( Ref Nothing ( Local ( Name "x203$202" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x204$203" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -2768,31 +2780,33 @@ UberModule ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x204$203" ) ) ) + ( Ref Nothing + ( Local ( Name "x204$203" ) ) :| [] + ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x205$204" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -2802,31 +2816,33 @@ UberModule ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x205$204" ) ) ) + ( Ref Nothing + ( Local ( Name "x205$204" ) ) :| [] + ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x206$205" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -2837,32 +2853,32 @@ UberModule ( PropName "intAdd" ) ) ( Ref Nothing - ( Local ( Name "x206$205" ) ) + ( Local ( Name "x206$205" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x207$206" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -2873,32 +2889,32 @@ UberModule ( PropName "intAdd" ) ) ( Ref Nothing - ( Local ( Name "x207$206" ) ) + ( Local ( Name "x207$206" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x208$207" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -2909,34 +2925,36 @@ UberModule ( PropName "intAdd" ) ) ( Ref Nothing - ( Local ( Name "x208$207" ) ) + ( Local + ( Name "x208$207" ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x209$208" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -2949,34 +2967,34 @@ UberModule ( Ref Nothing ( Local ( Name "x209$208" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x210$209" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -2989,34 +3007,34 @@ UberModule ( Ref Nothing ( Local ( Name "x210$209" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x211$210" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -3029,34 +3047,34 @@ UberModule ( Ref Nothing ( Local ( Name "x211$210" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x212$211" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -3069,34 +3087,34 @@ UberModule ( Ref Nothing ( Local ( Name "x212$211" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x213$212" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -3109,34 +3127,34 @@ UberModule ( Ref Nothing ( Local ( Name "x213$212" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x214$213" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -3149,34 +3167,34 @@ UberModule ( Ref Nothing ( Local ( Name "x214$213" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x215$214" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -3189,34 +3207,34 @@ UberModule ( Ref Nothing ( Local ( Name "x215$214" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x216$215" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -3229,34 +3247,34 @@ UberModule ( Ref Nothing ( Local ( Name "x216$215" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x217$216" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -3269,34 +3287,34 @@ UberModule ( Ref Nothing ( Local ( Name "x217$216" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x218$217" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -3309,34 +3327,34 @@ UberModule ( Ref Nothing ( Local ( Name "x218$217" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x219$218" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -3349,34 +3367,34 @@ UberModule ( Ref Nothing ( Local ( Name "x219$218" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x220$219" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -3389,34 +3407,34 @@ UberModule ( Ref Nothing ( Local ( Name "x220$219" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x221$220" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -3429,34 +3447,34 @@ UberModule ( Ref Nothing ( Local ( Name "x221$220" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x222$221" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -3469,34 +3487,34 @@ UberModule ( Ref Nothing ( Local ( Name "x222$221" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x223$222" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -3509,34 +3527,34 @@ UberModule ( Ref Nothing ( Local ( Name "x223$222" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x224$223" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -3549,34 +3567,34 @@ UberModule ( Ref Nothing ( Local ( Name "x224$223" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x225$224" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -3589,34 +3607,34 @@ UberModule ( Ref Nothing ( Local ( Name "x225$224" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x226$225" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -3629,34 +3647,34 @@ UberModule ( Ref Nothing ( Local ( Name "x226$225" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x227$226" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -3669,34 +3687,34 @@ UberModule ( Ref Nothing ( Local ( Name "x227$226" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x228$227" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -3709,34 +3727,34 @@ UberModule ( Ref Nothing ( Local ( Name "x228$227" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x229$228" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -3749,34 +3767,34 @@ UberModule ( Ref Nothing ( Local ( Name "x229$228" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x230$229" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -3789,34 +3807,34 @@ UberModule ( Ref Nothing ( Local ( Name "x230$229" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x231$230" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -3829,34 +3847,34 @@ UberModule ( Ref Nothing ( Local ( Name "x231$230" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x232$231" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -3869,34 +3887,34 @@ UberModule ( Ref Nothing ( Local ( Name "x232$231" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x233$232" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -3909,34 +3927,34 @@ UberModule ( Ref Nothing ( Local ( Name "x233$232" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x234$233" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -3949,34 +3967,34 @@ UberModule ( Ref Nothing ( Local ( Name "x234$233" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x235$234" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -3989,34 +4007,34 @@ UberModule ( Ref Nothing ( Local ( Name "x235$234" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x236$235" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -4029,34 +4047,34 @@ UberModule ( Ref Nothing ( Local ( Name "x236$235" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x237$236" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -4069,19 +4087,19 @@ UberModule ( Ref Nothing ( Local ( Name "x237$236" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x238$237" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Local ( Name "$kont554" ) @@ -4090,93 +4108,93 @@ UberModule ( Ref Nothing ( Local ( Name "x1$0$558" ) - ) + ) :| [] ) ) ( Ref Nothing ( Local ( Name "x238$237" ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) ) ) @@ -4185,97 +4203,97 @@ UberModule ( ParamNamed Nothing ( Name "x1$0$561" ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x158$157$562" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Data.Semiring" ) ( Name "foreign" ) ) ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x158$157$562" ) ) ) + ( Ref Nothing ( Local ( Name "x158$157$562" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x159$158" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Data.Semiring" ) ( Name "foreign" ) ) ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x159$158" ) ) ) + ( Ref Nothing ( Local ( Name "x159$158" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x160$159" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Data.Semiring" ) ( Name "foreign" ) ) ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x160$159" ) ) ) + ( Ref Nothing ( Local ( Name "x160$159" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x161$160" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -4285,28 +4303,28 @@ UberModule ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x161$160" ) ) ) + ( Ref Nothing ( Local ( Name "x161$160" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x162$161" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -4316,28 +4334,28 @@ UberModule ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x162$161" ) ) ) + ( Ref Nothing ( Local ( Name "x162$161" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x163$162" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -4347,31 +4365,31 @@ UberModule ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x163$162" ) ) ) + ( Ref Nothing ( Local ( Name "x163$162" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x164$163" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -4381,31 +4399,33 @@ UberModule ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x164$163" ) ) ) + ( Ref Nothing + ( Local ( Name "x164$163" ) ) :| [] + ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x165$164" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -4415,31 +4435,33 @@ UberModule ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x165$164" ) ) ) + ( Ref Nothing + ( Local ( Name "x165$164" ) ) :| [] + ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x166$165" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -4450,32 +4472,32 @@ UberModule ( PropName "intAdd" ) ) ( Ref Nothing - ( Local ( Name "x166$165" ) ) + ( Local ( Name "x166$165" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x167$166" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -4486,32 +4508,32 @@ UberModule ( PropName "intAdd" ) ) ( Ref Nothing - ( Local ( Name "x167$166" ) ) + ( Local ( Name "x167$166" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x168$167" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -4522,34 +4544,36 @@ UberModule ( PropName "intAdd" ) ) ( Ref Nothing - ( Local ( Name "x168$167" ) ) + ( Local + ( Name "x168$167" ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x169$168" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -4562,34 +4586,34 @@ UberModule ( Ref Nothing ( Local ( Name "x169$168" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x170$169" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -4602,34 +4626,34 @@ UberModule ( Ref Nothing ( Local ( Name "x170$169" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x171$170" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -4642,34 +4666,34 @@ UberModule ( Ref Nothing ( Local ( Name "x171$170" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x172$171" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -4682,34 +4706,34 @@ UberModule ( Ref Nothing ( Local ( Name "x172$171" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x173$172" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -4722,34 +4746,34 @@ UberModule ( Ref Nothing ( Local ( Name "x173$172" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x174$173" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -4762,34 +4786,34 @@ UberModule ( Ref Nothing ( Local ( Name "x174$173" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x175$174" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -4802,34 +4826,34 @@ UberModule ( Ref Nothing ( Local ( Name "x175$174" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x176$175" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -4842,34 +4866,34 @@ UberModule ( Ref Nothing ( Local ( Name "x176$175" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x177$176" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -4882,34 +4906,34 @@ UberModule ( Ref Nothing ( Local ( Name "x177$176" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x178$177" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -4922,34 +4946,34 @@ UberModule ( Ref Nothing ( Local ( Name "x178$177" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x179$178" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -4962,34 +4986,34 @@ UberModule ( Ref Nothing ( Local ( Name "x179$178" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x180$179" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -5002,34 +5026,34 @@ UberModule ( Ref Nothing ( Local ( Name "x180$179" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x181$180" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -5042,34 +5066,34 @@ UberModule ( Ref Nothing ( Local ( Name "x181$180" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x182$181" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -5082,34 +5106,34 @@ UberModule ( Ref Nothing ( Local ( Name "x182$181" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x183$182" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -5122,34 +5146,34 @@ UberModule ( Ref Nothing ( Local ( Name "x183$182" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x184$183" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -5162,34 +5186,34 @@ UberModule ( Ref Nothing ( Local ( Name "x184$183" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x185$184" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -5202,34 +5226,34 @@ UberModule ( Ref Nothing ( Local ( Name "x185$184" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x186$185" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -5242,34 +5266,34 @@ UberModule ( Ref Nothing ( Local ( Name "x186$185" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x187$186" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -5282,34 +5306,34 @@ UberModule ( Ref Nothing ( Local ( Name "x187$186" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x188$187" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -5322,34 +5346,34 @@ UberModule ( Ref Nothing ( Local ( Name "x188$187" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x189$188" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -5362,34 +5386,34 @@ UberModule ( Ref Nothing ( Local ( Name "x189$188" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x190$189" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -5402,34 +5426,34 @@ UberModule ( Ref Nothing ( Local ( Name "x190$189" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x191$190" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -5442,34 +5466,34 @@ UberModule ( Ref Nothing ( Local ( Name "x191$190" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x192$191" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -5482,34 +5506,34 @@ UberModule ( Ref Nothing ( Local ( Name "x192$191" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x193$192" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -5522,34 +5546,34 @@ UberModule ( Ref Nothing ( Local ( Name "x193$192" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x194$193" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -5562,34 +5586,34 @@ UberModule ( Ref Nothing ( Local ( Name "x194$193" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x195$194" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -5602,34 +5626,34 @@ UberModule ( Ref Nothing ( Local ( Name "x195$194" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x196$195" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -5642,34 +5666,34 @@ UberModule ( Ref Nothing ( Local ( Name "x196$195" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x197$196" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -5682,19 +5706,19 @@ UberModule ( Ref Nothing ( Local ( Name "x197$196" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x198$197" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Local ( Name "$kont557" ) @@ -5703,93 +5727,93 @@ UberModule ( Ref Nothing ( Local ( Name "x1$0$561" ) - ) + ) :| [] ) ) ( Ref Nothing ( Local ( Name "x198$197" ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) ) ) @@ -5798,97 +5822,97 @@ UberModule ( ParamNamed Nothing ( Name "x1$0$564" ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x119$118$565" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Data.Semiring" ) ( Name "foreign" ) ) ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x119$118$565" ) ) ) + ( Ref Nothing ( Local ( Name "x119$118$565" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x120$119" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Data.Semiring" ) ( Name "foreign" ) ) ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x120$119" ) ) ) + ( Ref Nothing ( Local ( Name "x120$119" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x121$120" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Data.Semiring" ) ( Name "foreign" ) ) ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x121$120" ) ) ) + ( Ref Nothing ( Local ( Name "x121$120" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x122$121" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -5898,28 +5922,28 @@ UberModule ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x122$121" ) ) ) + ( Ref Nothing ( Local ( Name "x122$121" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x123$122" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -5929,28 +5953,28 @@ UberModule ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x123$122" ) ) ) + ( Ref Nothing ( Local ( Name "x123$122" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x124$123" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -5960,31 +5984,31 @@ UberModule ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x124$123" ) ) ) + ( Ref Nothing ( Local ( Name "x124$123" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x125$124" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -5994,31 +6018,33 @@ UberModule ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x125$124" ) ) ) + ( Ref Nothing + ( Local ( Name "x125$124" ) ) :| [] + ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x126$125" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -6028,31 +6054,33 @@ UberModule ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x126$125" ) ) ) + ( Ref Nothing + ( Local ( Name "x126$125" ) ) :| [] + ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x127$126" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -6063,32 +6091,32 @@ UberModule ( PropName "intAdd" ) ) ( Ref Nothing - ( Local ( Name "x127$126" ) ) + ( Local ( Name "x127$126" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x128$127" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -6099,32 +6127,32 @@ UberModule ( PropName "intAdd" ) ) ( Ref Nothing - ( Local ( Name "x128$127" ) ) + ( Local ( Name "x128$127" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x129$128" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -6135,34 +6163,36 @@ UberModule ( PropName "intAdd" ) ) ( Ref Nothing - ( Local ( Name "x129$128" ) ) + ( Local + ( Name "x129$128" ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x130$129" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -6175,34 +6205,34 @@ UberModule ( Ref Nothing ( Local ( Name "x130$129" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x131$130" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -6215,34 +6245,34 @@ UberModule ( Ref Nothing ( Local ( Name "x131$130" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x132$131" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -6255,34 +6285,34 @@ UberModule ( Ref Nothing ( Local ( Name "x132$131" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x133$132" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -6295,34 +6325,34 @@ UberModule ( Ref Nothing ( Local ( Name "x133$132" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x134$133" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -6335,34 +6365,34 @@ UberModule ( Ref Nothing ( Local ( Name "x134$133" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x135$134" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -6375,34 +6405,34 @@ UberModule ( Ref Nothing ( Local ( Name "x135$134" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x136$135" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -6415,34 +6445,34 @@ UberModule ( Ref Nothing ( Local ( Name "x136$135" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x137$136" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -6455,34 +6485,34 @@ UberModule ( Ref Nothing ( Local ( Name "x137$136" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x138$137" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -6495,34 +6525,34 @@ UberModule ( Ref Nothing ( Local ( Name "x138$137" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x139$138" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -6535,34 +6565,34 @@ UberModule ( Ref Nothing ( Local ( Name "x139$138" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x140$139" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -6575,34 +6605,34 @@ UberModule ( Ref Nothing ( Local ( Name "x140$139" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x141$140" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -6615,34 +6645,34 @@ UberModule ( Ref Nothing ( Local ( Name "x141$140" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x142$141" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -6655,34 +6685,34 @@ UberModule ( Ref Nothing ( Local ( Name "x142$141" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x143$142" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -6695,34 +6725,34 @@ UberModule ( Ref Nothing ( Local ( Name "x143$142" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x144$143" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -6735,34 +6765,34 @@ UberModule ( Ref Nothing ( Local ( Name "x144$143" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x145$144" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -6775,34 +6805,34 @@ UberModule ( Ref Nothing ( Local ( Name "x145$144" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x146$145" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -6815,34 +6845,34 @@ UberModule ( Ref Nothing ( Local ( Name "x146$145" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x147$146" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -6855,34 +6885,34 @@ UberModule ( Ref Nothing ( Local ( Name "x147$146" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x148$147" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -6895,34 +6925,34 @@ UberModule ( Ref Nothing ( Local ( Name "x148$147" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x149$148" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -6935,26 +6965,26 @@ UberModule ( Ref Nothing ( Local ( Name "x149$148" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x150$149" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) @@ -6968,28 +6998,28 @@ UberModule ( Name "foreign" ) ) ) - ( PropName "unit" ) - ) + ( PropName "unit" ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -7002,34 +7032,34 @@ UberModule ( Ref Nothing ( Local ( Name "x150$149" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x151$150" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -7042,34 +7072,34 @@ UberModule ( Ref Nothing ( Local ( Name "x151$150" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x152$151" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -7082,34 +7112,34 @@ UberModule ( Ref Nothing ( Local ( Name "x152$151" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x153$152" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -7122,34 +7152,34 @@ UberModule ( Ref Nothing ( Local ( Name "x153$152" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x154$153" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -7162,34 +7192,34 @@ UberModule ( Ref Nothing ( Local ( Name "x154$153" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x155$154" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -7202,34 +7232,34 @@ UberModule ( Ref Nothing ( Local ( Name "x155$154" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x156$155" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -7242,34 +7272,34 @@ UberModule ( Ref Nothing ( Local ( Name "x156$155" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x157$156" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -7282,19 +7312,19 @@ UberModule ( Ref Nothing ( Local ( Name "x157$156" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x158$157" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Local ( Name "$kont560" ) @@ -7303,93 +7333,93 @@ UberModule ( Ref Nothing ( Local ( Name "x1$0$564" ) - ) + ) :| [] ) ) ( Ref Nothing ( Local ( Name "x158$157" ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) ) ) @@ -7398,97 +7428,97 @@ UberModule ( ParamNamed Nothing ( Name "x1$0$567" ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x79$78$568" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Data.Semiring" ) ( Name "foreign" ) ) ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x79$78$568" ) ) ) + ( Ref Nothing ( Local ( Name "x79$78$568" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x80$79" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Data.Semiring" ) ( Name "foreign" ) ) ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x80$79" ) ) ) + ( Ref Nothing ( Local ( Name "x80$79" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x81$80" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Data.Semiring" ) ( Name "foreign" ) ) ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x81$80" ) ) ) + ( Ref Nothing ( Local ( Name "x81$80" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x82$81" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -7498,28 +7528,28 @@ UberModule ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x82$81" ) ) ) + ( Ref Nothing ( Local ( Name "x82$81" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x83$82" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -7529,28 +7559,28 @@ UberModule ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x83$82" ) ) ) + ( Ref Nothing ( Local ( Name "x83$82" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x84$83" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -7560,31 +7590,31 @@ UberModule ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x84$83" ) ) ) + ( Ref Nothing ( Local ( Name "x84$83" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x85$84" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -7594,31 +7624,31 @@ UberModule ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x85$84" ) ) ) + ( Ref Nothing ( Local ( Name "x85$84" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x86$85" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -7628,31 +7658,33 @@ UberModule ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x86$85" ) ) ) + ( Ref Nothing + ( Local ( Name "x86$85" ) ) :| [] + ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x87$86" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -7663,32 +7695,32 @@ UberModule ( PropName "intAdd" ) ) ( Ref Nothing - ( Local ( Name "x87$86" ) ) + ( Local ( Name "x87$86" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x88$87" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -7699,32 +7731,32 @@ UberModule ( PropName "intAdd" ) ) ( Ref Nothing - ( Local ( Name "x88$87" ) ) + ( Local ( Name "x88$87" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x89$88" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -7735,34 +7767,36 @@ UberModule ( PropName "intAdd" ) ) ( Ref Nothing - ( Local ( Name "x89$88" ) ) + ( Local + ( Name "x89$88" ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x90$89" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -7773,34 +7807,36 @@ UberModule ( PropName "intAdd" ) ) ( Ref Nothing - ( Local ( Name "x90$89" ) ) + ( Local + ( Name "x90$89" ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x91$90" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -7813,34 +7849,34 @@ UberModule ( Ref Nothing ( Local ( Name "x91$90" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x92$91" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -7853,34 +7889,34 @@ UberModule ( Ref Nothing ( Local ( Name "x92$91" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x93$92" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -7893,34 +7929,34 @@ UberModule ( Ref Nothing ( Local ( Name "x93$92" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x94$93" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -7933,34 +7969,34 @@ UberModule ( Ref Nothing ( Local ( Name "x94$93" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x95$94" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -7973,34 +8009,34 @@ UberModule ( Ref Nothing ( Local ( Name "x95$94" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x96$95" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -8013,34 +8049,34 @@ UberModule ( Ref Nothing ( Local ( Name "x96$95" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x97$96" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -8053,34 +8089,34 @@ UberModule ( Ref Nothing ( Local ( Name "x97$96" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x98$97" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -8093,34 +8129,34 @@ UberModule ( Ref Nothing ( Local ( Name "x98$97" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x99$98" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -8133,34 +8169,34 @@ UberModule ( Ref Nothing ( Local ( Name "x99$98" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x100$99" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -8173,34 +8209,34 @@ UberModule ( Ref Nothing ( Local ( Name "x100$99" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x101$100" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -8213,34 +8249,34 @@ UberModule ( Ref Nothing ( Local ( Name "x101$100" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x102$101" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -8253,34 +8289,34 @@ UberModule ( Ref Nothing ( Local ( Name "x102$101" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x103$102" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -8293,34 +8329,34 @@ UberModule ( Ref Nothing ( Local ( Name "x103$102" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x104$103" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -8333,34 +8369,34 @@ UberModule ( Ref Nothing ( Local ( Name "x104$103" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x105$104" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -8373,34 +8409,34 @@ UberModule ( Ref Nothing ( Local ( Name "x105$104" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x106$105" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -8413,34 +8449,34 @@ UberModule ( Ref Nothing ( Local ( Name "x106$105" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x107$106" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -8453,34 +8489,34 @@ UberModule ( Ref Nothing ( Local ( Name "x107$106" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x108$107" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -8493,34 +8529,34 @@ UberModule ( Ref Nothing ( Local ( Name "x108$107" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x109$108" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -8533,34 +8569,34 @@ UberModule ( Ref Nothing ( Local ( Name "x109$108" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x110$109" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -8573,34 +8609,34 @@ UberModule ( Ref Nothing ( Local ( Name "x110$109" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x111$110" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -8613,34 +8649,34 @@ UberModule ( Ref Nothing ( Local ( Name "x111$110" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x112$111" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -8653,34 +8689,34 @@ UberModule ( Ref Nothing ( Local ( Name "x112$111" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x113$112" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -8693,34 +8729,34 @@ UberModule ( Ref Nothing ( Local ( Name "x113$112" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x114$113" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -8733,34 +8769,34 @@ UberModule ( Ref Nothing ( Local ( Name "x114$113" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x115$114" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -8773,34 +8809,34 @@ UberModule ( Ref Nothing ( Local ( Name "x115$114" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x116$115" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -8813,34 +8849,34 @@ UberModule ( Ref Nothing ( Local ( Name "x116$115" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x117$116" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -8853,34 +8889,34 @@ UberModule ( Ref Nothing ( Local ( Name "x117$116" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x118$117" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -8893,19 +8929,19 @@ UberModule ( Ref Nothing ( Local ( Name "x118$117" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x119$118" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Local ( Name "$kont563" ) @@ -8914,93 +8950,93 @@ UberModule ( Ref Nothing ( Local ( Name "x1$0$567" ) - ) + ) :| [] ) ) ( Ref Nothing ( Local ( Name "x119$118" ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) ) ) @@ -9009,97 +9045,97 @@ UberModule ( ParamNamed Nothing ( Name "x1$0$570" ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x40$39$571" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Data.Semiring" ) ( Name "foreign" ) ) ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x40$39$571" ) ) ) + ( Ref Nothing ( Local ( Name "x40$39$571" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x41$40" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Data.Semiring" ) ( Name "foreign" ) ) ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x41$40" ) ) ) + ( Ref Nothing ( Local ( Name "x41$40" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x42$41" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Data.Semiring" ) ( Name "foreign" ) ) ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x42$41" ) ) ) + ( Ref Nothing ( Local ( Name "x42$41" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x43$42" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -9109,28 +9145,28 @@ UberModule ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x43$42" ) ) ) + ( Ref Nothing ( Local ( Name "x43$42" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x44$43" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -9140,28 +9176,28 @@ UberModule ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x44$43" ) ) ) + ( Ref Nothing ( Local ( Name "x44$43" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x45$44" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -9171,31 +9207,31 @@ UberModule ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x45$44" ) ) ) + ( Ref Nothing ( Local ( Name "x45$44" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x46$45" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -9205,31 +9241,31 @@ UberModule ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x46$45" ) ) ) + ( Ref Nothing ( Local ( Name "x46$45" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x47$46" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -9239,31 +9275,33 @@ UberModule ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x47$46" ) ) ) + ( Ref Nothing + ( Local ( Name "x47$46" ) ) :| [] + ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x48$47" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -9274,32 +9312,32 @@ UberModule ( PropName "intAdd" ) ) ( Ref Nothing - ( Local ( Name "x48$47" ) ) + ( Local ( Name "x48$47" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x49$48" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -9310,24 +9348,24 @@ UberModule ( PropName "intAdd" ) ) ( Ref Nothing - ( Local ( Name "x49$48" ) ) + ( Local ( Name "x49$48" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x50$49" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) @@ -9341,28 +9379,28 @@ UberModule ( Name "foreign" ) ) ) - ( PropName "unit" ) - ) + ( PropName "unit" ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -9373,34 +9411,36 @@ UberModule ( PropName "intAdd" ) ) ( Ref Nothing - ( Local ( Name "x50$49" ) ) + ( Local + ( Name "x50$49" ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x51$50" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -9413,34 +9453,34 @@ UberModule ( Ref Nothing ( Local ( Name "x51$50" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x52$51" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -9453,34 +9493,34 @@ UberModule ( Ref Nothing ( Local ( Name "x52$51" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x53$52" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -9493,34 +9533,34 @@ UberModule ( Ref Nothing ( Local ( Name "x53$52" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x54$53" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -9533,34 +9573,34 @@ UberModule ( Ref Nothing ( Local ( Name "x54$53" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x55$54" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -9573,34 +9613,34 @@ UberModule ( Ref Nothing ( Local ( Name "x55$54" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x56$55" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -9613,34 +9653,34 @@ UberModule ( Ref Nothing ( Local ( Name "x56$55" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x57$56" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -9653,34 +9693,34 @@ UberModule ( Ref Nothing ( Local ( Name "x57$56" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x58$57" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -9693,34 +9733,34 @@ UberModule ( Ref Nothing ( Local ( Name "x58$57" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x59$58" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -9733,34 +9773,34 @@ UberModule ( Ref Nothing ( Local ( Name "x59$58" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x60$59" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -9773,34 +9813,34 @@ UberModule ( Ref Nothing ( Local ( Name "x60$59" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x61$60" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -9813,34 +9853,34 @@ UberModule ( Ref Nothing ( Local ( Name "x61$60" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x62$61" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -9853,34 +9893,34 @@ UberModule ( Ref Nothing ( Local ( Name "x62$61" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x63$62" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -9893,34 +9933,34 @@ UberModule ( Ref Nothing ( Local ( Name "x63$62" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x64$63" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -9933,34 +9973,34 @@ UberModule ( Ref Nothing ( Local ( Name "x64$63" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x65$64" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -9973,34 +10013,34 @@ UberModule ( Ref Nothing ( Local ( Name "x65$64" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x66$65" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -10013,34 +10053,34 @@ UberModule ( Ref Nothing ( Local ( Name "x66$65" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x67$66" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -10053,34 +10093,34 @@ UberModule ( Ref Nothing ( Local ( Name "x67$66" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x68$67" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -10093,34 +10133,34 @@ UberModule ( Ref Nothing ( Local ( Name "x68$67" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x69$68" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -10133,34 +10173,34 @@ UberModule ( Ref Nothing ( Local ( Name "x69$68" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x70$69" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -10173,34 +10213,34 @@ UberModule ( Ref Nothing ( Local ( Name "x70$69" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x71$70" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -10213,34 +10253,34 @@ UberModule ( Ref Nothing ( Local ( Name "x71$70" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x72$71" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -10253,34 +10293,34 @@ UberModule ( Ref Nothing ( Local ( Name "x72$71" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x73$72" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -10293,34 +10333,34 @@ UberModule ( Ref Nothing ( Local ( Name "x73$72" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x74$73" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -10333,34 +10373,34 @@ UberModule ( Ref Nothing ( Local ( Name "x74$73" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x75$74" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -10373,34 +10413,34 @@ UberModule ( Ref Nothing ( Local ( Name "x75$74" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x76$75" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -10413,34 +10453,34 @@ UberModule ( Ref Nothing ( Local ( Name "x76$75" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x77$76" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -10453,34 +10493,34 @@ UberModule ( Ref Nothing ( Local ( Name "x77$76" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x78$77" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -10493,19 +10533,19 @@ UberModule ( Ref Nothing ( Local ( Name "x78$77" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x79$78" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Local ( Name "$kont566" ) @@ -10514,225 +10554,225 @@ UberModule ( Ref Nothing ( Local ( Name "x1$0$570" ) - ) + ) :| [] ) ) ( Ref Nothing ( Local ( Name "x79$78" ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) ) ) ) ] ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 1 ) + ( LiteralInt Nothing 1 :| [] ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x1$0" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Data.Semiring" ) ( Name "foreign" ) ) ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x1$0" ) ) ) + ( Ref Nothing ( Local ( Name "x1$0" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x2$1" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Data.Semiring" ) ( Name "foreign" ) ) ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x2$1" ) ) ) + ( Ref Nothing ( Local ( Name "x2$1" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x3$2" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Data.Semiring" ) ( Name "foreign" ) ) ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x3$2" ) ) ) + ( Ref Nothing ( Local ( Name "x3$2" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x4$3" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Data.Semiring" ) ( Name "foreign" ) ) ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x4$3" ) ) ) + ( Ref Nothing ( Local ( Name "x4$3" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x5$4" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -10742,28 +10782,28 @@ UberModule ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x5$4" ) ) ) + ( Ref Nothing ( Local ( Name "x5$4" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x6$5" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -10773,28 +10813,28 @@ UberModule ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x6$5" ) ) ) + ( Ref Nothing ( Local ( Name "x6$5" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x7$6" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -10804,31 +10844,31 @@ UberModule ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x7$6" ) ) ) + ( Ref Nothing ( Local ( Name "x7$6" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x8$7" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -10838,31 +10878,31 @@ UberModule ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x8$7" ) ) ) + ( Ref Nothing ( Local ( Name "x8$7" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x9$8" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -10872,31 +10912,33 @@ UberModule ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x9$8" ) ) ) + ( Ref Nothing + ( Local ( Name "x9$8" ) ) :| [] + ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x10$9" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -10906,31 +10948,33 @@ UberModule ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x10$9" ) ) ) + ( Ref Nothing + ( Local ( Name "x10$9" ) ) :| [] + ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x11$10" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -10941,32 +10985,32 @@ UberModule ( PropName "intAdd" ) ) ( Ref Nothing - ( Local ( Name "x11$10" ) ) + ( Local ( Name "x11$10" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x12$11" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -10977,34 +11021,36 @@ UberModule ( PropName "intAdd" ) ) ( Ref Nothing - ( Local ( Name "x12$11" ) ) + ( Local + ( Name "x12$11" ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x13$12" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -11015,34 +11061,36 @@ UberModule ( PropName "intAdd" ) ) ( Ref Nothing - ( Local ( Name "x13$12" ) ) + ( Local + ( Name "x13$12" ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x14$13" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -11055,34 +11103,34 @@ UberModule ( Ref Nothing ( Local ( Name "x14$13" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x15$14" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -11095,34 +11143,34 @@ UberModule ( Ref Nothing ( Local ( Name "x15$14" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x16$15" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -11135,34 +11183,34 @@ UberModule ( Ref Nothing ( Local ( Name "x16$15" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x17$16" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -11175,34 +11223,34 @@ UberModule ( Ref Nothing ( Local ( Name "x17$16" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x18$17" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -11215,34 +11263,34 @@ UberModule ( Ref Nothing ( Local ( Name "x18$17" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x19$18" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -11255,34 +11303,34 @@ UberModule ( Ref Nothing ( Local ( Name "x19$18" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x20$19" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -11295,34 +11343,34 @@ UberModule ( Ref Nothing ( Local ( Name "x20$19" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x21$20" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -11335,34 +11383,34 @@ UberModule ( Ref Nothing ( Local ( Name "x21$20" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x22$21" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -11375,34 +11423,34 @@ UberModule ( Ref Nothing ( Local ( Name "x22$21" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x23$22" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -11415,34 +11463,34 @@ UberModule ( Ref Nothing ( Local ( Name "x23$22" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x24$23" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -11455,34 +11503,34 @@ UberModule ( Ref Nothing ( Local ( Name "x24$23" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x25$24" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -11495,34 +11543,34 @@ UberModule ( Ref Nothing ( Local ( Name "x25$24" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x26$25" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -11535,34 +11583,34 @@ UberModule ( Ref Nothing ( Local ( Name "x26$25" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x27$26" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -11575,34 +11623,34 @@ UberModule ( Ref Nothing ( Local ( Name "x27$26" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x28$27" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -11615,34 +11663,34 @@ UberModule ( Ref Nothing ( Local ( Name "x28$27" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x29$28" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -11655,34 +11703,34 @@ UberModule ( Ref Nothing ( Local ( Name "x29$28" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x30$29" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -11695,34 +11743,34 @@ UberModule ( Ref Nothing ( Local ( Name "x30$29" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x31$30" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -11735,34 +11783,34 @@ UberModule ( Ref Nothing ( Local ( Name "x31$30" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x32$31" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -11775,34 +11823,34 @@ UberModule ( Ref Nothing ( Local ( Name "x32$31" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x33$32" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -11815,34 +11863,34 @@ UberModule ( Ref Nothing ( Local ( Name "x33$32" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x34$33" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -11855,34 +11903,34 @@ UberModule ( Ref Nothing ( Local ( Name "x34$33" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x35$34" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -11895,34 +11943,34 @@ UberModule ( Ref Nothing ( Local ( Name "x35$34" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x36$35" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -11935,34 +11983,34 @@ UberModule ( Ref Nothing ( Local ( Name "x36$35" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x37$36" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -11975,34 +12023,34 @@ UberModule ( Ref Nothing ( Local ( Name "x37$36" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x38$37" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -12015,34 +12063,34 @@ UberModule ( Ref Nothing ( Local ( Name "x38$37" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x39$38" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -12055,19 +12103,19 @@ UberModule ( Ref Nothing ( Local ( Name "x39$38" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x40$39" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Local ( Name "$kont569" ) @@ -12076,93 +12124,93 @@ UberModule ( Ref Nothing ( Local ( Name "x1$0" ) - ) + ) :| [] ) ) ( Ref Nothing ( Local ( Name "x40$39" ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) ) ) diff --git a/test/ps/output/Golden.LongReaderBind.Test/golden.ir b/test/ps/output/Golden.LongReaderBind.Test/golden.ir index e2581635..f0ee0cca 100644 --- a/test/ps/output/Golden.LongReaderBind.Test/golden.ir +++ b/test/ps/output/Golden.LongReaderBind.Test/golden.ir @@ -35,11 +35,11 @@ UberModule ( ParamNamed Nothing ( Name "g" ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x" ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Local ( Name "f" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Local ( Name "g" ) ) ) - ( Ref Nothing ( Local ( Name "x" ) ) ) + ( Ref Nothing ( Local ( Name "x" ) ) :| [] ) :| [] ) ) ) @@ -72,9 +72,9 @@ UberModule ( ParamNamed Nothing ( Name "v" ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "v1" ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Local ( Name "v" ) ) ) - ( Ref Nothing ( Local ( Name "v1" ) ) ) + ( Ref Nothing ( Local ( Name "v1" ) ) :| [] ) ) ) ), @@ -85,9 +85,9 @@ UberModule ( ParamNamed Nothing ( Name "f$461" ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "m$462" ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Local ( Name "f$461" ) ) ) - ( Ref Nothing ( Local ( Name "m$462" ) ) ) + ( Ref Nothing ( Local ( Name "m$462" ) ) :| [] ) ) ) ) @@ -104,9 +104,9 @@ UberModule ( ParamNamed Nothing ( Name "v" ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "f" ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Local ( Name "f" ) ) ) - ( Ref Nothing ( Local ( Name "v" ) ) ) + ( Ref Nothing ( Local ( Name "v" ) ) :| [] ) ) ) ), @@ -130,9 +130,11 @@ UberModule ), Standalone ( QName { qnameModuleName = ModuleName "Control.Monad.Reader.Trans", qnameName = Name "compose" - }, App Nothing + }, AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Control.Semigroupoid" ) ( Name "compose" ) ) ) - ( Ref Nothing ( Imported ( ModuleName "Control.Semigroupoid" ) ( Name "semigroupoidFn" ) ) ) + ( Ref Nothing + ( Imported ( ModuleName "Control.Semigroupoid" ) ( Name "semigroupoidFn" ) ) :| [] + ) ), Standalone ( QName { qnameModuleName = ModuleName "Control.Monad.Reader.Trans", qnameName = Name "applyReaderT" @@ -146,20 +148,20 @@ UberModule ( ParamNamed Nothing ( Name "v1" ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "r" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "dictApply" ) ) ) ( PropName "apply" ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Local ( Name "v" ) ) ) - ( Ref Nothing ( Local ( Name "r" ) ) ) + ( Ref Nothing ( Local ( Name "r" ) ) :| [] ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Local ( Name "v1" ) ) ) - ( Ref Nothing ( Local ( Name "r" ) ) ) + ( Ref Nothing ( Local ( Name "r" ) ) :| [] ) :| [] ) ) ) @@ -168,8 +170,8 @@ UberModule ( PropName "Functor0", Abs Nothing ( ParamUnused Nothing ) ( LiteralObject Nothing [ - ( PropName "map", App Nothing - ( App Nothing + ( PropName "map", AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Control.Monad.Reader.Trans" ) ( Name "compose" ) ) ) @@ -177,30 +179,32 @@ UberModule ( ParamNamed Nothing ( Name "f$458" ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "v$459" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Control.Monad.Reader.Trans" ) ( Name "compose" ) ) ) - ( Ref Nothing ( Local ( Name "f$458" ) ) ) + ( Ref Nothing ( Local ( Name "f$458" ) ) :| [] ) ) - ( Ref Nothing ( Local ( Name "v$459" ) ) ) + ( Ref Nothing ( Local ( Name "v$459" ) ) :| [] ) ) - ) + ) :| [] ) ) ( ObjectProp Nothing - ( App Nothing + ( AppN Nothing ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "dictApply" ) ) ) ( PropName "Functor0" ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing + ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] + ) ) - ( PropName "map" ) + ( PropName "map" ) :| [] ) ) ] @@ -221,42 +225,44 @@ UberModule ( ParamNamed Nothing ( Name "k" ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "r" ) ) - ( App Nothing - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Control.Bind" ) ( Name "bind" ) ) ) - ( Ref Nothing ( Local ( Name "dictBind" ) ) ) + ( Ref Nothing ( Local ( Name "dictBind" ) ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Local ( Name "v" ) ) ) - ( Ref Nothing ( Local ( Name "r" ) ) ) + ( Ref Nothing ( Local ( Name "r" ) ) :| [] ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "a" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Local ( Name "k" ) ) ) - ( Ref Nothing ( Local ( Name "a" ) ) ) + ( Ref Nothing ( Local ( Name "a" ) ) :| [] ) ) - ( Ref Nothing ( Local ( Name "r" ) ) ) - ) + ( Ref Nothing ( Local ( Name "r" ) ) :| [] ) + ) :| [] ) ) ) ) ), ( PropName "Apply0", Abs Nothing ( ParamUnused Nothing ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Control.Monad.Reader.Trans" ) ( Name "applyReaderT" ) ) ) - ( App Nothing + ( AppN Nothing ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "dictBind" ) ) ) ( PropName "Apply0" ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing + ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] + ) :| [] ) ) ) @@ -269,18 +275,18 @@ UberModule ( ParamNamed Nothing ( Name "dictApplicative" ) ) ( LiteralObject Nothing [ - ( PropName "pure", App Nothing - ( App Nothing + ( PropName "pure", AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Control.Monad.Reader.Trans" ) ( Name "compose" ) ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x$460" ) ) - ( Ref Nothing ( Local ( Name "x$460" ) ) ) + ( Ref Nothing ( Local ( Name "x$460" ) ) ) :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Control.Monad.Reader.Trans" ) ( Name "compose" ) ) ) @@ -288,26 +294,28 @@ UberModule ( ParamNamed Nothing ( Name "a$306" ) ) ( Abs Nothing ( ParamUnused Nothing ) ( Ref Nothing ( Local ( Name "a$306" ) ) ) - ) + ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Control.Applicative" ) ( Name "pure" ) ) ) - ( Ref Nothing ( Local ( Name "dictApplicative" ) ) ) - ) + ( Ref Nothing ( Local ( Name "dictApplicative" ) ) :| [] ) :| [] + ) :| [] ) ), ( PropName "Apply0", Abs Nothing ( ParamUnused Nothing ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Control.Monad.Reader.Trans" ) ( Name "applyReaderT" ) ) ) - ( App Nothing + ( AppN Nothing ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "dictApplicative" ) ) ) ( PropName "Apply0" ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing + ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] + ) :| [] ) ) ) @@ -316,13 +324,15 @@ UberModule ), Standalone ( QName { qnameModuleName = ModuleName "Golden.LongReaderBind.Test", qnameName = Name "bind" - }, App Nothing + }, AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Control.Bind" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Control.Monad.Reader.Trans" ) ( Name "bindReaderT" ) ) ) - ( Ref Nothing ( Imported ( ModuleName "Data.Identity" ) ( Name "bindIdentity" ) ) ) + ( Ref Nothing + ( Imported ( ModuleName "Data.Identity" ) ( Name "bindIdentity" ) ) :| [] + ) :| [] ) ), Standalone ( QName @@ -347,50 +357,56 @@ UberModule ) ( LiteralObject Nothing [ - ( PropName "ask", App Nothing + ( PropName "ask", AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Control.Applicative" ) ( Name "pure" ) ) ) - ( App Nothing + ( AppN Nothing ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "dictMonad$455" ) ) ) ( PropName "Applicative0" ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing + ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] + ) :| [] ) ), ( PropName "Monad0", Abs Nothing ( ParamUnused Nothing ) ( LiteralObject Nothing [ ( PropName "Applicative0", Abs Nothing ( ParamUnused Nothing ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Control.Monad.Reader.Trans" ) ( Name "applicativeReaderT" ) ) ) - ( App Nothing + ( AppN Nothing ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "dictMonad$455" ) ) ) ( PropName "Applicative0" ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing + ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] + ) :| [] ) ) ), ( PropName "Bind1", Abs Nothing ( ParamUnused Nothing ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Control.Monad.Reader.Trans" ) ( Name "bindReaderT" ) ) ) - ( App Nothing + ( AppN Nothing ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "dictMonad$455" ) ) ) ( PropName "Bind1" ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing + ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] + ) :| [] ) ) ) @@ -410,38 +426,44 @@ UberModule ( ParamNamed Nothing ( Name "x1$470" ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x100$471" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) ( Name "bind" ) ) ) ( Ref Nothing - ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) ( Name "ask" ) ) + ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) ( Name "ask" ) ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) ( Name "bind" ) ) ) ( Ref Nothing - ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) ( Name "ask" ) ) + ( Imported + ( ModuleName "Golden.LongReaderBind.Test" ) + ( Name "ask" ) + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) ( Name "bind" ) ) ) ( Ref Nothing - ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) ( Name "ask" ) ) + ( Imported + ( ModuleName "Golden.LongReaderBind.Test" ) + ( Name "ask" ) + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) @@ -452,12 +474,12 @@ UberModule ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) ( Name "ask" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) @@ -468,12 +490,12 @@ UberModule ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) ( Name "ask" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) @@ -484,12 +506,12 @@ UberModule ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) ( Name "ask" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) @@ -500,12 +522,12 @@ UberModule ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) ( Name "ask" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) @@ -516,12 +538,12 @@ UberModule ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) ( Name "ask" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) @@ -532,12 +554,12 @@ UberModule ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) ( Name "ask" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) @@ -548,12 +570,12 @@ UberModule ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) ( Name "ask" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) @@ -564,12 +586,12 @@ UberModule ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) ( Name "ask" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) @@ -580,12 +602,12 @@ UberModule ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) ( Name "ask" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) @@ -596,12 +618,12 @@ UberModule ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) ( Name "ask" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) @@ -612,12 +634,12 @@ UberModule ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) ( Name "ask" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) @@ -628,12 +650,12 @@ UberModule ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) ( Name "ask" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) @@ -644,12 +666,12 @@ UberModule ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) ( Name "ask" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) @@ -660,12 +682,12 @@ UberModule ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) ( Name "ask" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) @@ -676,12 +698,12 @@ UberModule ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) ( Name "ask" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) @@ -692,12 +714,12 @@ UberModule ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) ( Name "ask" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) @@ -708,12 +730,12 @@ UberModule ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) ( Name "ask" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) @@ -724,12 +746,12 @@ UberModule ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) ( Name "ask" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) @@ -740,12 +762,12 @@ UberModule ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) ( Name "ask" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) @@ -756,12 +778,12 @@ UberModule ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) ( Name "ask" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) @@ -772,12 +794,12 @@ UberModule ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) ( Name "ask" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) @@ -788,12 +810,12 @@ UberModule ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) ( Name "ask" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) @@ -804,12 +826,12 @@ UberModule ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) ( Name "ask" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) @@ -820,12 +842,12 @@ UberModule ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) ( Name "ask" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) @@ -836,12 +858,12 @@ UberModule ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) ( Name "ask" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) @@ -852,12 +874,12 @@ UberModule ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) ( Name "ask" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) @@ -868,12 +890,12 @@ UberModule ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) ( Name "ask" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) @@ -884,12 +906,12 @@ UberModule ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) ( Name "ask" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) @@ -900,12 +922,12 @@ UberModule ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) ( Name "ask" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) @@ -916,12 +938,12 @@ UberModule ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) ( Name "ask" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) @@ -932,12 +954,12 @@ UberModule ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) ( Name "ask" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) @@ -948,12 +970,12 @@ UberModule ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) ( Name "ask" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) @@ -964,12 +986,12 @@ UberModule ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) ( Name "ask" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) @@ -980,12 +1002,12 @@ UberModule ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) ( Name "ask" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) @@ -996,12 +1018,12 @@ UberModule ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) ( Name "ask" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) @@ -1012,12 +1034,12 @@ UberModule ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) ( Name "ask" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) @@ -1028,22 +1050,22 @@ UberModule ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) ( Name "ask" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x200" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Control.Applicative" ) ( Name "pure" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Control.Monad.Reader.Trans" ) @@ -1054,12 +1076,12 @@ UberModule ( Imported ( ModuleName "Data.Identity" ) ( Name "applicativeIdentity" ) - ) - ) + ) :| [] + ) :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -1069,8 +1091,8 @@ UberModule ) ( PropName "intAdd" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -1083,101 +1105,101 @@ UberModule ( Ref Nothing ( Local ( Name "x1$470" ) - ) + ) :| [] ) ) ( Ref Nothing ( Local ( Name "x100$471" ) - ) - ) + ) :| [] + ) :| [] ) ) ( Ref Nothing ( Local ( Name "x200" ) - ) - ) + ) :| [] + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) ) ) @@ -1187,28 +1209,31 @@ UberModule ( ParamNamed Nothing ( Name "x1$473" ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x100$474" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) ( Name "bind" ) ) ) ( Ref Nothing - ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) ( Name "ask" ) ) + ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) ( Name "ask" ) ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) ( Name "bind" ) ) ) ( Ref Nothing - ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) ( Name "ask" ) ) + ( Imported + ( ModuleName "Golden.LongReaderBind.Test" ) + ( Name "ask" ) + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) @@ -1219,12 +1244,12 @@ UberModule ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) ( Name "ask" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) @@ -1235,12 +1260,12 @@ UberModule ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) ( Name "ask" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) @@ -1251,12 +1276,12 @@ UberModule ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) ( Name "ask" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) @@ -1267,12 +1292,12 @@ UberModule ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) ( Name "ask" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) @@ -1283,12 +1308,12 @@ UberModule ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) ( Name "ask" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) @@ -1299,12 +1324,12 @@ UberModule ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) ( Name "ask" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) @@ -1315,12 +1340,12 @@ UberModule ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) ( Name "ask" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) @@ -1331,12 +1356,12 @@ UberModule ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) ( Name "ask" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) @@ -1347,12 +1372,12 @@ UberModule ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) ( Name "ask" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) @@ -1363,12 +1388,12 @@ UberModule ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) ( Name "ask" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) @@ -1379,12 +1404,12 @@ UberModule ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) ( Name "ask" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) @@ -1395,12 +1420,12 @@ UberModule ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) ( Name "ask" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) @@ -1411,12 +1436,12 @@ UberModule ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) ( Name "ask" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) @@ -1427,12 +1452,12 @@ UberModule ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) ( Name "ask" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) @@ -1443,12 +1468,12 @@ UberModule ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) ( Name "ask" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) @@ -1459,12 +1484,12 @@ UberModule ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) ( Name "ask" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) @@ -1475,12 +1500,12 @@ UberModule ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) ( Name "ask" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) @@ -1491,12 +1516,12 @@ UberModule ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) ( Name "ask" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) @@ -1507,12 +1532,12 @@ UberModule ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) ( Name "ask" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) @@ -1523,12 +1548,12 @@ UberModule ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) ( Name "ask" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) @@ -1539,12 +1564,12 @@ UberModule ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) ( Name "ask" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) @@ -1555,12 +1580,12 @@ UberModule ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) ( Name "ask" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) @@ -1571,12 +1596,12 @@ UberModule ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) ( Name "ask" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) @@ -1587,12 +1612,12 @@ UberModule ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) ( Name "ask" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) @@ -1603,12 +1628,12 @@ UberModule ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) ( Name "ask" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) @@ -1619,12 +1644,12 @@ UberModule ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) ( Name "ask" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) @@ -1635,12 +1660,12 @@ UberModule ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) ( Name "ask" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) @@ -1651,12 +1676,12 @@ UberModule ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) ( Name "ask" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) @@ -1667,12 +1692,12 @@ UberModule ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) ( Name "ask" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) @@ -1683,12 +1708,12 @@ UberModule ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) ( Name "ask" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) @@ -1699,12 +1724,12 @@ UberModule ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) ( Name "ask" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) @@ -1715,12 +1740,12 @@ UberModule ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) ( Name "ask" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) @@ -1731,12 +1756,12 @@ UberModule ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) ( Name "ask" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) @@ -1747,12 +1772,12 @@ UberModule ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) ( Name "ask" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) @@ -1763,12 +1788,12 @@ UberModule ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) ( Name "ask" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) @@ -1779,12 +1804,12 @@ UberModule ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) ( Name "ask" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) @@ -1795,12 +1820,12 @@ UberModule ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) ( Name "ask" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) @@ -1811,12 +1836,12 @@ UberModule ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) ( Name "ask" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Local ( Name "$kont469" ) @@ -1825,131 +1850,137 @@ UberModule ( Ref Nothing ( Local ( Name "x1$473" ) - ) + ) :| [] ) ) ( Ref Nothing ( Local ( Name "x100$474" ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) ) ) ), Standalone ( Nothing, Name "$kont475", Abs Nothing ( ParamNamed Nothing ( Name "x1$476" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) ( Name "bind" ) ) ) ( Ref Nothing - ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) ( Name "ask" ) ) + ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) ( Name "ask" ) ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) ( Name "bind" ) ) ) ( Ref Nothing - ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) ( Name "ask" ) ) + ( Imported + ( ModuleName "Golden.LongReaderBind.Test" ) + ( Name "ask" ) + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) ( Name "bind" ) ) ) ( Ref Nothing - ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) ( Name "ask" ) ) + ( Imported + ( ModuleName "Golden.LongReaderBind.Test" ) + ( Name "ask" ) + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) @@ -1960,12 +1991,12 @@ UberModule ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) ( Name "ask" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) @@ -1976,12 +2007,12 @@ UberModule ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) ( Name "ask" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) @@ -1992,12 +2023,12 @@ UberModule ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) ( Name "ask" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) @@ -2008,12 +2039,12 @@ UberModule ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) ( Name "ask" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) @@ -2024,12 +2055,12 @@ UberModule ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) ( Name "ask" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) @@ -2040,12 +2071,12 @@ UberModule ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) ( Name "ask" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) @@ -2056,12 +2087,12 @@ UberModule ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) ( Name "ask" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) @@ -2072,12 +2103,12 @@ UberModule ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) ( Name "ask" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) @@ -2088,12 +2119,12 @@ UberModule ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) ( Name "ask" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) @@ -2104,12 +2135,12 @@ UberModule ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) ( Name "ask" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) @@ -2120,12 +2151,12 @@ UberModule ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) ( Name "ask" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) @@ -2136,12 +2167,12 @@ UberModule ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) ( Name "ask" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) @@ -2152,12 +2183,12 @@ UberModule ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) ( Name "ask" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) @@ -2168,12 +2199,12 @@ UberModule ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) ( Name "ask" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) @@ -2184,12 +2215,12 @@ UberModule ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) ( Name "ask" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) @@ -2200,12 +2231,12 @@ UberModule ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) ( Name "ask" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) @@ -2216,15 +2247,15 @@ UberModule ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) ( Name "ask" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x100" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) @@ -2235,12 +2266,12 @@ UberModule ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) ( Name "ask" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) @@ -2251,12 +2282,12 @@ UberModule ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) ( Name "ask" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) @@ -2267,12 +2298,12 @@ UberModule ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) ( Name "ask" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) @@ -2283,12 +2314,12 @@ UberModule ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) ( Name "ask" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) @@ -2299,12 +2330,12 @@ UberModule ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) ( Name "ask" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) @@ -2315,12 +2346,12 @@ UberModule ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) ( Name "ask" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) @@ -2331,12 +2362,12 @@ UberModule ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) ( Name "ask" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) @@ -2347,12 +2378,12 @@ UberModule ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) ( Name "ask" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) @@ -2363,12 +2394,12 @@ UberModule ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) ( Name "ask" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) @@ -2379,12 +2410,12 @@ UberModule ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) ( Name "ask" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) @@ -2395,12 +2426,12 @@ UberModule ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) ( Name "ask" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) @@ -2411,12 +2442,12 @@ UberModule ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) ( Name "ask" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) @@ -2427,12 +2458,12 @@ UberModule ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) ( Name "ask" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) @@ -2443,12 +2474,12 @@ UberModule ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) ( Name "ask" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) @@ -2459,12 +2490,12 @@ UberModule ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) ( Name "ask" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) @@ -2475,12 +2506,12 @@ UberModule ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) ( Name "ask" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) @@ -2491,12 +2522,12 @@ UberModule ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) ( Name "ask" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) @@ -2507,12 +2538,12 @@ UberModule ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) ( Name "ask" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) @@ -2523,12 +2554,12 @@ UberModule ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) ( Name "ask" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) @@ -2539,12 +2570,12 @@ UberModule ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) ( Name "ask" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Local ( Name "$kont472" ) @@ -2553,130 +2584,136 @@ UberModule ( Ref Nothing ( Local ( Name "x1$476" ) - ) + ) :| [] ) ) ( Ref Nothing ( Local ( Name "x100" ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) ) ), Standalone ( Nothing, Name "$kont477", Abs Nothing ( ParamNamed Nothing ( Name "x1$478" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) ( Name "bind" ) ) ) ( Ref Nothing - ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) ( Name "ask" ) ) + ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) ( Name "ask" ) ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) ( Name "bind" ) ) ) ( Ref Nothing - ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) ( Name "ask" ) ) + ( Imported + ( ModuleName "Golden.LongReaderBind.Test" ) + ( Name "ask" ) + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) ( Name "bind" ) ) ) ( Ref Nothing - ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) ( Name "ask" ) ) + ( Imported + ( ModuleName "Golden.LongReaderBind.Test" ) + ( Name "ask" ) + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) @@ -2687,12 +2724,12 @@ UberModule ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) ( Name "ask" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) @@ -2703,12 +2740,12 @@ UberModule ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) ( Name "ask" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) @@ -2719,12 +2756,12 @@ UberModule ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) ( Name "ask" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) @@ -2735,12 +2772,12 @@ UberModule ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) ( Name "ask" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) @@ -2751,12 +2788,12 @@ UberModule ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) ( Name "ask" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) @@ -2767,12 +2804,12 @@ UberModule ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) ( Name "ask" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) @@ -2783,12 +2820,12 @@ UberModule ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) ( Name "ask" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) @@ -2799,12 +2836,12 @@ UberModule ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) ( Name "ask" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) @@ -2815,12 +2852,12 @@ UberModule ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) ( Name "ask" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) @@ -2831,12 +2868,12 @@ UberModule ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) ( Name "ask" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) @@ -2847,12 +2884,12 @@ UberModule ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) ( Name "ask" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) @@ -2863,12 +2900,12 @@ UberModule ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) ( Name "ask" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) @@ -2879,12 +2916,12 @@ UberModule ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) ( Name "ask" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) @@ -2895,12 +2932,12 @@ UberModule ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) ( Name "ask" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) @@ -2911,12 +2948,12 @@ UberModule ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) ( Name "ask" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) @@ -2927,12 +2964,12 @@ UberModule ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) ( Name "ask" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) @@ -2943,12 +2980,12 @@ UberModule ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) ( Name "ask" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) @@ -2959,12 +2996,12 @@ UberModule ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) ( Name "ask" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) @@ -2975,12 +3012,12 @@ UberModule ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) ( Name "ask" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) @@ -2991,12 +3028,12 @@ UberModule ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) ( Name "ask" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) @@ -3007,12 +3044,12 @@ UberModule ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) ( Name "ask" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) @@ -3023,12 +3060,12 @@ UberModule ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) ( Name "ask" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) @@ -3039,12 +3076,12 @@ UberModule ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) ( Name "ask" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) @@ -3055,12 +3092,12 @@ UberModule ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) ( Name "ask" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) @@ -3071,12 +3108,12 @@ UberModule ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) ( Name "ask" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) @@ -3087,12 +3124,12 @@ UberModule ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) ( Name "ask" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) @@ -3103,12 +3140,12 @@ UberModule ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) ( Name "ask" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) @@ -3119,12 +3156,12 @@ UberModule ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) ( Name "ask" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) @@ -3135,12 +3172,12 @@ UberModule ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) ( Name "ask" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) @@ -3151,12 +3188,12 @@ UberModule ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) ( Name "ask" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) @@ -3167,12 +3204,12 @@ UberModule ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) ( Name "ask" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) @@ -3183,12 +3220,12 @@ UberModule ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) ( Name "ask" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) @@ -3199,12 +3236,12 @@ UberModule ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) ( Name "ask" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) @@ -3215,12 +3252,12 @@ UberModule ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) ( Name "ask" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) @@ -3231,12 +3268,12 @@ UberModule ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) ( Name "ask" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) @@ -3247,12 +3284,12 @@ UberModule ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) ( Name "ask" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) @@ -3263,11 +3300,11 @@ UberModule ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) ( Name "ask" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Local ( Name "$kont475" ) @@ -3276,133 +3313,138 @@ UberModule ( Ref Nothing ( Local ( Name "x1$478" ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) ) ) ] ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) ( Name "bind" ) ) ) - ( Ref Nothing ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) ( Name "ask" ) ) ) + ( Ref Nothing + ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) ( Name "ask" ) ) :| [] + ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x1" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) ( Name "bind" ) ) ) ( Ref Nothing - ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) ( Name "ask" ) ) + ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) ( Name "ask" ) ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) ( Name "bind" ) ) ) ( Ref Nothing - ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) ( Name "ask" ) ) + ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) ( Name "ask" ) ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) ( Name "bind" ) ) ) ( Ref Nothing - ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) ( Name "ask" ) ) + ( Imported + ( ModuleName "Golden.LongReaderBind.Test" ) + ( Name "ask" ) + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) @@ -3413,12 +3455,12 @@ UberModule ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) ( Name "ask" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) @@ -3429,12 +3471,12 @@ UberModule ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) ( Name "ask" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) @@ -3445,12 +3487,12 @@ UberModule ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) ( Name "ask" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) @@ -3461,12 +3503,12 @@ UberModule ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) ( Name "ask" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) @@ -3477,12 +3519,12 @@ UberModule ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) ( Name "ask" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) @@ -3493,12 +3535,12 @@ UberModule ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) ( Name "ask" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) @@ -3509,12 +3551,12 @@ UberModule ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) ( Name "ask" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) @@ -3525,12 +3567,12 @@ UberModule ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) ( Name "ask" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) @@ -3541,12 +3583,12 @@ UberModule ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) ( Name "ask" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) @@ -3557,12 +3599,12 @@ UberModule ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) ( Name "ask" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) @@ -3573,12 +3615,12 @@ UberModule ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) ( Name "ask" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) @@ -3589,12 +3631,12 @@ UberModule ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) ( Name "ask" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) @@ -3605,12 +3647,12 @@ UberModule ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) ( Name "ask" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) @@ -3621,12 +3663,12 @@ UberModule ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) ( Name "ask" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) @@ -3637,12 +3679,12 @@ UberModule ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) ( Name "ask" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) @@ -3653,12 +3695,12 @@ UberModule ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) ( Name "ask" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) @@ -3669,12 +3711,12 @@ UberModule ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) ( Name "ask" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) @@ -3685,12 +3727,12 @@ UberModule ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) ( Name "ask" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) @@ -3701,12 +3743,12 @@ UberModule ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) ( Name "ask" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) @@ -3717,12 +3759,12 @@ UberModule ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) ( Name "ask" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) @@ -3733,12 +3775,12 @@ UberModule ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) ( Name "ask" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) @@ -3749,12 +3791,12 @@ UberModule ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) ( Name "ask" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) @@ -3765,12 +3807,12 @@ UberModule ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) ( Name "ask" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) @@ -3781,12 +3823,12 @@ UberModule ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) ( Name "ask" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) @@ -3797,12 +3839,12 @@ UberModule ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) ( Name "ask" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) @@ -3813,12 +3855,12 @@ UberModule ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) ( Name "ask" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) @@ -3829,12 +3871,12 @@ UberModule ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) ( Name "ask" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) @@ -3845,12 +3887,12 @@ UberModule ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) ( Name "ask" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) @@ -3861,12 +3903,12 @@ UberModule ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) ( Name "ask" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) @@ -3877,12 +3919,12 @@ UberModule ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) ( Name "ask" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) @@ -3893,12 +3935,12 @@ UberModule ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) ( Name "ask" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) @@ -3909,12 +3951,12 @@ UberModule ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) ( Name "ask" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) @@ -3925,12 +3967,12 @@ UberModule ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) ( Name "ask" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) @@ -3941,12 +3983,12 @@ UberModule ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) ( Name "ask" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) @@ -3957,12 +3999,12 @@ UberModule ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) ( Name "ask" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) @@ -3973,11 +4015,11 @@ UberModule ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) ( Name "ask" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Local ( Name "$kont477" ) @@ -3986,109 +4028,111 @@ UberModule ( Ref Nothing ( Local ( Name "x1" ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) ) ), Standalone ( QName { qnameModuleName = ModuleName "Golden.LongReaderBind.Test", qnameName = Name "compute" - }, App Nothing - ( App Nothing - ( App Nothing - ( App Nothing + }, AppN Nothing + ( AppN Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Control.Semigroupoid" ) ( Name "compose" ) ) ) ( Ref Nothing - ( Imported ( ModuleName "Control.Semigroupoid" ) ( Name "semigroupoidFn" ) ) + ( Imported ( ModuleName "Control.Semigroupoid" ) ( Name "semigroupoidFn" ) ) :| [] ) ) ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Unsafe.Coerce" ) ( Name "foreign" ) ) ) - ( PropName "unsafeCoerce" ) + ( PropName "unsafeCoerce" ) :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) ( Name "go" ) ) ) + ( Ref Nothing + ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) ( Name "go" ) ) :| [] + ) ) - ( LiteralInt Nothing 3 ) + ( LiteralInt Nothing 3 :| [] ) ) ], uberModuleForeigns = [], uberModuleExports = [ @@ -4098,19 +4142,19 @@ UberModule ( Name "compute", Ref Nothing ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) ( Name "compute" ) ) ), - ( Name "main", App Nothing + ( Name "main", AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) - ( App Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Data.Show" ) ( Name "foreign" ) ) ) ( PropName "showIntImpl" ) ) ( Ref Nothing - ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) ( Name "compute" ) ) - ) + ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) ( Name "compute" ) ) :| [] + ) :| [] ) ) ] diff --git a/test/ps/output/Golden.LongStackBind.Test/golden.ir b/test/ps/output/Golden.LongStackBind.Test/golden.ir index 5e9d778e..2f3c3cf8 100644 --- a/test/ps/output/Golden.LongStackBind.Test/golden.ir +++ b/test/ps/output/Golden.LongStackBind.Test/golden.ir @@ -47,11 +47,11 @@ UberModule ( ParamNamed Nothing ( Name "g" ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x" ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Local ( Name "f" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Local ( Name "g" ) ) ) - ( Ref Nothing ( Local ( Name "x" ) ) ) + ( Ref Nothing ( Local ( Name "x" ) ) :| [] ) :| [] ) ) ) @@ -91,14 +91,14 @@ UberModule ( ParamNamed Nothing ( Name "dictMonad" ) ) ( Let Nothing ( Standalone - ( Nothing, Name "bind", App Nothing + ( Nothing, Name "bind", AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Control.Bind" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "dictMonad" ) ) ) ( PropName "Bind1" ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) :| [] ) ) :| [] ) @@ -106,40 +106,42 @@ UberModule ( ParamNamed Nothing ( Name "f" ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "a" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Local ( Name "bind" ) ) ) - ( Ref Nothing ( Local ( Name "f" ) ) ) + ( Ref Nothing ( Local ( Name "f" ) ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "f'" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Local ( Name "bind" ) ) ) - ( Ref Nothing ( Local ( Name "a" ) ) ) + ( Ref Nothing ( Local ( Name "a" ) ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "a'" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Control.Applicative" ) ( Name "pure" ) ) ) - ( App Nothing + ( AppN Nothing ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "dictMonad" ) ) ) ( PropName "Applicative0" ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing + ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] + ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Local ( Name "f'" ) ) ) - ( Ref Nothing ( Local ( Name "a'" ) ) ) + ( Ref Nothing ( Local ( Name "a'" ) ) :| [] ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) ) ) @@ -178,9 +180,9 @@ UberModule ( ParamNamed Nothing ( Name "f" ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "m" ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Local ( Name "f" ) ) ) - ( Ref Nothing ( Local ( Name "m" ) ) ) + ( Ref Nothing ( Local ( Name "m" ) ) :| [] ) ) ) ) @@ -194,9 +196,9 @@ UberModule ( ParamNamed Nothing ( Name "v" ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "v1" ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Local ( Name "v" ) ) ) - ( Ref Nothing ( Local ( Name "v1" ) ) ) + ( Ref Nothing ( Local ( Name "v1" ) ) :| [] ) ) ) ), @@ -213,9 +215,11 @@ UberModule ), Standalone ( QName { qnameModuleName = ModuleName "Control.Monad.Except.Trans", qnameName = Name "compose" - }, App Nothing + }, AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Control.Semigroupoid" ) ( Name "compose" ) ) ) - ( Ref Nothing ( Imported ( ModuleName "Control.Semigroupoid" ) ( Name "semigroupoidFn" ) ) ) + ( Ref Nothing + ( Imported ( ModuleName "Control.Semigroupoid" ) ( Name "semigroupoidFn" ) ) :| [] + ) ), Standalone ( QName { qnameModuleName = ModuleName "Control.Monad.Except.Trans", qnameName = Name "functorExceptT" @@ -227,14 +231,14 @@ UberModule ( ParamNamed Nothing ( Name "f" ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "v$542" ) ) - ( App Nothing - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Functor" ) ( Name "map" ) ) ) - ( Ref Nothing ( Local ( Name "dictFunctor" ) ) ) + ( Ref Nothing ( Local ( Name "dictFunctor" ) ) :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Functor" ) ( Name "map" ) ) ) ( LiteralObject Nothing [ @@ -249,13 +253,13 @@ UberModule ( Ref Nothing ( Local ( Name "m$552" ) ) ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Left" ) ) ) ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "m$552" ) ) ) - ( PropName "value0" ) + ( PropName "value0" ) :| [] ) ) ( IfThenElse Nothing @@ -265,16 +269,16 @@ UberModule ( Ref Nothing ( Local ( Name "m$552" ) ) ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Local ( Name "f$551" ) ) ) ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "m$552" ) ) ) - ( PropName "value0" ) - ) + ( PropName "value0" ) :| [] + ) :| [] ) ) ( Exception Nothing "No patterns matched" ) @@ -282,13 +286,13 @@ UberModule ) ) ) - ] + ] :| [] ) ) - ( Ref Nothing ( Local ( Name "f" ) ) ) + ( Ref Nothing ( Local ( Name "f" ) ) :| [] ) :| [] ) ) - ( Ref Nothing ( Local ( Name "v$542" ) ) ) + ( Ref Nothing ( Local ( Name "v$542" ) ) :| [] ) ) ) ) @@ -303,22 +307,22 @@ UberModule ( LiteralObject Nothing [ ( PropName "Applicative0", Abs Nothing ( ParamUnused Nothing ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Control.Monad.Except.Trans" ) ( Name "applicativeExceptT" ) ) ) - ( Ref Nothing ( Local ( Name "dictMonad" ) ) ) + ( Ref Nothing ( Local ( Name "dictMonad" ) ) :| [] ) ) ), ( PropName "Bind1", Abs Nothing ( ParamUnused Nothing ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Control.Monad.Except.Trans" ) ( Name "bindExceptT" ) ) ) - ( Ref Nothing ( Local ( Name "dictMonad" ) ) ) + ( Ref Nothing ( Local ( Name "dictMonad" ) ) :| [] ) ) ) ] @@ -335,21 +339,23 @@ UberModule ( ParamNamed Nothing ( Name "v" ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "k" ) ) - ( App Nothing - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Control.Bind" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "dictMonad" ) ) ) ( PropName "Bind1" ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing + ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] + ) :| [] ) ) - ( Ref Nothing ( Local ( Name "v" ) ) ) + ( Ref Nothing ( Local ( Name "v" ) ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "v2$550" ) ) @@ -358,40 +364,40 @@ UberModule ( LiteralString Nothing "Data.Either∷Either.Left" ) ( ReflectCtor Nothing ( Ref Nothing ( Local ( Name "v2$550" ) ) ) ) ) - ( App Nothing - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Control.Monad.Except.Trans" ) ( Name "compose" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Control.Applicative" ) ( Name "pure" ) ) ) - ( App Nothing + ( AppN Nothing ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "dictMonad" ) ) ) ( PropName "Applicative0" ) ) ( Ref Nothing - ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) - ) - ) + ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] + ) :| [] + ) :| [] ) ) ( Ref Nothing - ( Imported ( ModuleName "Data.Either" ) ( Name "Left" ) ) + ( Imported ( ModuleName "Data.Either" ) ( Name "Left" ) ) :| [] ) ) ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "v2$550" ) ) ) - ( PropName "value0" ) + ( PropName "value0" ) :| [] ) ) ( IfThenElse Nothing @@ -399,29 +405,29 @@ UberModule ( LiteralString Nothing "Data.Either∷Either.Right" ) ( ReflectCtor Nothing ( Ref Nothing ( Local ( Name "v2$550" ) ) ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Local ( Name "k" ) ) ) ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "v2$550" ) ) ) - ( PropName "value0" ) + ( PropName "value0" ) :| [] ) ) ( Exception Nothing "No patterns matched" ) ) - ) + ) :| [] ) ) ) ), ( PropName "Apply0", Abs Nothing ( ParamUnused Nothing ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Control.Monad.Except.Trans" ) ( Name "applyExceptT" ) ) ) - ( Ref Nothing ( Local ( Name "dictMonad" ) ) ) + ( Ref Nothing ( Local ( Name "dictMonad" ) ) :| [] ) ) ) ] @@ -433,46 +439,50 @@ UberModule ( ParamNamed Nothing ( Name "dictMonad" ) ) ( LiteralObject Nothing [ - ( PropName "apply", App Nothing + ( PropName "apply", AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Control.Monad" ) ( Name "ap" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Control.Monad.Except.Trans" ) ( Name "monadExceptT" ) ) ) - ( Ref Nothing ( Local ( Name "dictMonad" ) ) ) + ( Ref Nothing ( Local ( Name "dictMonad" ) ) :| [] ) :| [] ) ), ( PropName "Functor0", Abs Nothing ( ParamUnused Nothing ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Control.Monad.Except.Trans" ) ( Name "functorExceptT" ) ) ) - ( App Nothing + ( AppN Nothing ( ObjectProp Nothing - ( App Nothing + ( AppN Nothing ( ObjectProp Nothing - ( App Nothing + ( AppN Nothing ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "dictMonad" ) ) ) ( PropName "Bind1" ) ) ( Ref Nothing - ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) + ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ) ( PropName "Apply0" ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing + ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] + ) ) ( PropName "Functor0" ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing + ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] + ) :| [] ) ) ) @@ -485,46 +495,50 @@ UberModule ( ParamNamed Nothing ( Name "dictMonad" ) ) ( LiteralObject Nothing [ - ( PropName "pure", App Nothing - ( App Nothing + ( PropName "pure", AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Control.Monad.Except.Trans" ) ( Name "compose" ) ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x$543" ) ) - ( Ref Nothing ( Local ( Name "x$543" ) ) ) + ( Ref Nothing ( Local ( Name "x$543" ) ) ) :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Control.Monad.Except.Trans" ) ( Name "compose" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Control.Applicative" ) ( Name "pure" ) ) ) - ( App Nothing + ( AppN Nothing ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "dictMonad" ) ) ) ( PropName "Applicative0" ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) - ) + ( Ref Nothing + ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] + ) :| [] + ) :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) + ( Ref Nothing + ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) :| [] + ) :| [] ) ), ( PropName "Apply0", Abs Nothing ( ParamUnused Nothing ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Control.Monad.Except.Trans" ) ( Name "applyExceptT" ) ) ) - ( Ref Nothing ( Local ( Name "dictMonad" ) ) ) + ( Ref Nothing ( Local ( Name "dictMonad" ) ) :| [] ) ) ) ] @@ -540,22 +554,22 @@ UberModule ( LiteralObject Nothing [ ( PropName "Applicative0", Abs Nothing ( ParamUnused Nothing ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Control.Monad.State.Trans" ) ( Name "applicativeStateT" ) ) ) - ( Ref Nothing ( Local ( Name "dictMonad" ) ) ) + ( Ref Nothing ( Local ( Name "dictMonad" ) ) :| [] ) ) ), ( PropName "Bind1", Abs Nothing ( ParamUnused Nothing ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Control.Monad.State.Trans" ) ( Name "bindStateT" ) ) ) - ( Ref Nothing ( Local ( Name "dictMonad" ) ) ) + ( Ref Nothing ( Local ( Name "dictMonad" ) ) :| [] ) ) ) ] @@ -574,53 +588,53 @@ UberModule ( ParamNamed Nothing ( Name "f" ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "s" ) ) - ( App Nothing - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Control.Bind" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "dictMonad" ) ) ) ( PropName "Bind1" ) ) ( Ref Nothing - ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) - ) + ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] + ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Local ( Name "v" ) ) ) - ( Ref Nothing ( Local ( Name "s" ) ) ) + ( Ref Nothing ( Local ( Name "s" ) ) :| [] ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "v1" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Local ( Name "f" ) ) ) ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "v1" ) ) ) - ( PropName "value0" ) + ( PropName "value0" ) :| [] ) ) ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "v1" ) ) ) - ( PropName "value1" ) + ( PropName "value1" ) :| [] ) - ) + ) :| [] ) ) ) ) ), ( PropName "Apply0", Abs Nothing ( ParamUnused Nothing ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Control.Monad.State.Trans" ) ( Name "applyStateT" ) ) ) - ( Ref Nothing ( Local ( Name "dictMonad" ) ) ) + ( Ref Nothing ( Local ( Name "dictMonad" ) ) :| [] ) ) ) ] @@ -632,13 +646,13 @@ UberModule ( ParamNamed Nothing ( Name "dictMonad" ) ) ( LiteralObject Nothing [ - ( PropName "apply", App Nothing + ( PropName "apply", AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Control.Monad" ) ( Name "ap" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Control.Monad.State.Trans" ) ( Name "monadStateT" ) ) ) - ( Ref Nothing ( Local ( Name "dictMonad" ) ) ) + ( Ref Nothing ( Local ( Name "dictMonad" ) ) :| [] ) :| [] ) ), ( PropName "Functor0", Abs Nothing ( ParamUnused Nothing ) @@ -650,17 +664,17 @@ UberModule ( ParamNamed Nothing ( Name "v$538" ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "s$539" ) ) - ( App Nothing - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Functor" ) ( Name "map" ) ) ) - ( App Nothing + ( AppN Nothing ( ObjectProp Nothing - ( App Nothing + ( AppN Nothing ( ObjectProp Nothing - ( App Nothing + ( AppN Nothing ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "dictMonad" ) ) ) ( PropName "Bind1" ) @@ -669,47 +683,50 @@ UberModule ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) - ) + ) :| [] ) ) ( PropName "Apply0" ) ) ( Ref Nothing - ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) + ( Imported + ( ModuleName "Prim" ) + ( Name "undefined" ) + ) :| [] ) ) ( PropName "Functor0" ) ) ( Ref Nothing - ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) - ) + ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "v1$540" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Tuple" ) ( Name "Tuple" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Local ( Name "f$537" ) ) ) ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "v1$540" ) ) ) - ( PropName "value0" ) - ) + ( PropName "value0" ) :| [] + ) :| [] ) ) ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "v1$540" ) ) ) - ( PropName "value1" ) + ( PropName "value1" ) :| [] ) - ) + ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Local ( Name "v$538" ) ) ) - ( Ref Nothing ( Local ( Name "s$539" ) ) ) + ( Ref Nothing ( Local ( Name "s$539" ) ) :| [] ) :| [] ) ) ) @@ -731,35 +748,37 @@ UberModule ( ParamNamed Nothing ( Name "a" ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "s" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Control.Applicative" ) ( Name "pure" ) ) ) - ( App Nothing + ( AppN Nothing ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "dictMonad" ) ) ) ( PropName "Applicative0" ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing + ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] + ) :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Tuple" ) ( Name "Tuple" ) ) ) - ( Ref Nothing ( Local ( Name "a" ) ) ) + ( Ref Nothing ( Local ( Name "a" ) ) :| [] ) ) - ( Ref Nothing ( Local ( Name "s" ) ) ) + ( Ref Nothing ( Local ( Name "s" ) ) :| [] ) :| [] ) ) ) ), ( PropName "Apply0", Abs Nothing ( ParamUnused Nothing ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Control.Monad.State.Trans" ) ( Name "applyStateT" ) ) ) - ( Ref Nothing ( Local ( Name "dictMonad" ) ) ) + ( Ref Nothing ( Local ( Name "dictMonad" ) ) :| [] ) ) ) ] @@ -769,7 +788,7 @@ UberModule ), Standalone ( QName { qnameModuleName = ModuleName "Golden.LongStackBind.Test", qnameName = Name "monadExceptT" - }, App Nothing + }, AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Control.Monad.Except.Trans" ) ( Name "monadExceptT" ) ) ) @@ -797,9 +816,9 @@ UberModule ( ParamNamed Nothing ( Name "v$128$544" ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "f$129$545" ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Local ( Name "f$129$545" ) ) ) - ( Ref Nothing ( Local ( Name "v$128$544" ) ) ) + ( Ref Nothing ( Local ( Name "v$128$544" ) ) :| [] ) ) ) ), @@ -811,25 +830,25 @@ UberModule ] ) ) - ] + ] :| [] ) ), Standalone ( QName { qnameModuleName = ModuleName "Golden.LongStackBind.Test", qnameName = Name "bindStateT" - }, App Nothing + }, AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Control.Monad.State.Trans" ) ( Name "bindStateT" ) ) ) ( Ref Nothing - ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "monadExceptT" ) ) + ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "monadExceptT" ) ) :| [] ) ), Standalone ( QName { qnameModuleName = ModuleName "Golden.LongStackBind.Test", qnameName = Name "bind" - }, App Nothing + }, AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Control.Bind" ) ( Name "bind" ) ) ) ( Ref Nothing - ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "bindStateT" ) ) + ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "bindStateT" ) ) :| [] ) ), Standalone ( QName @@ -838,19 +857,22 @@ UberModule [ ( PropName "state", Abs Nothing ( ParamNamed Nothing ( Name "f$21" ) ) - ( App Nothing - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Control.Semigroupoid" ) ( Name "compose" ) ) ) ( Ref Nothing - ( Imported ( ModuleName "Control.Semigroupoid" ) ( Name "semigroupoidFn" ) ) + ( Imported + ( ModuleName "Control.Semigroupoid" ) + ( Name "semigroupoidFn" ) + ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Control.Applicative" ) ( Name "pure" ) ) ) - ( App Nothing + ( AppN Nothing ( ObjectProp Nothing ( Ref Nothing ( Imported @@ -860,20 +882,25 @@ UberModule ) ( PropName "Applicative0" ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) - ) + ( Ref Nothing + ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] + ) :| [] + ) :| [] ) ) - ( Ref Nothing ( Local ( Name "f$21" ) ) ) + ( Ref Nothing ( Local ( Name "f$21" ) ) :| [] ) ) ), ( PropName "Monad0", Abs Nothing ( ParamUnused Nothing ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Control.Monad.State.Trans" ) ( Name "monadStateT" ) ) ) ( Ref Nothing - ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "monadExceptT" ) ) + ( Imported + ( ModuleName "Golden.LongStackBind.Test" ) + ( Name "monadExceptT" ) + ) :| [] ) ) ) @@ -881,56 +908,62 @@ UberModule ), Standalone ( QName { qnameModuleName = ModuleName "Golden.LongStackBind.Test", qnameName = Name "get" - }, App Nothing - ( App Nothing + }, AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Control.Monad.State.Class" ) ( Name "state" ) ) ) ( Ref Nothing - ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "monadStateStateT" ) ) + ( Imported + ( ModuleName "Golden.LongStackBind.Test" ) + ( Name "monadStateStateT" ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "s$106" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Tuple" ) ( Name "Tuple" ) ) ) - ( Ref Nothing ( Local ( Name "s$106" ) ) ) + ( Ref Nothing ( Local ( Name "s$106" ) ) :| [] ) ) - ( Ref Nothing ( Local ( Name "s$106" ) ) ) - ) + ( Ref Nothing ( Local ( Name "s$106" ) ) :| [] ) + ) :| [] ) ), Standalone ( QName { qnameModuleName = ModuleName "Golden.LongStackBind.Test", qnameName = Name "discard" - }, App Nothing + }, AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Control.Bind" ) ( Name "bind" ) ) ) ( Ref Nothing - ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "bindStateT" ) ) + ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "bindStateT" ) ) :| [] ) ), Standalone ( QName { qnameModuleName = ModuleName "Golden.LongStackBind.Test", qnameName = Name "put" }, Abs Nothing ( ParamNamed Nothing ( Name "s$109" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Control.Monad.State.Class" ) ( Name "state" ) ) ) ( Ref Nothing - ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "monadStateStateT" ) ) + ( Imported + ( ModuleName "Golden.LongStackBind.Test" ) + ( Name "monadStateStateT" ) + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Tuple" ) ( Name "Tuple" ) ) ) ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Data.Unit" ) ( Name "foreign" ) ) ) - ( PropName "unit" ) + ( PropName "unit" ) :| [] ) ) - ( Ref Nothing ( Local ( Name "s$109" ) ) ) - ) + ( Ref Nothing ( Local ( Name "s$109" ) ) :| [] ) + ) :| [] ) ) ), Standalone @@ -940,84 +973,87 @@ UberModule ( Standalone ( Nothing, Name "$kont558", Abs Nothing ( ParamNamed Nothing ( Name "x1$559" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "bind" ) ) ) ( Ref Nothing - ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "get" ) ) + ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "get" ) ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x141" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "put" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Data.Semiring" ) ( Name "foreign" ) ) ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x141" ) ) ) + ( Ref Nothing ( Local ( Name "x141" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "bind" ) ) ) ( Ref Nothing - ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "get" ) ) + ( Imported + ( ModuleName "Golden.LongStackBind.Test" ) + ( Name "get" ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x142" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "put" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Data.Semiring" ) ( Name "foreign" ) ) ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x142" ) ) ) + ( Ref Nothing ( Local ( Name "x142" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) @@ -1028,28 +1064,28 @@ UberModule ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "get" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x143" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "put" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -1059,15 +1095,15 @@ UberModule ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x143" ) ) ) + ( Ref Nothing ( Local ( Name "x143" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) @@ -1078,28 +1114,28 @@ UberModule ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "get" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x144" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "put" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -1109,15 +1145,15 @@ UberModule ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x144" ) ) ) + ( Ref Nothing ( Local ( Name "x144" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) @@ -1128,28 +1164,28 @@ UberModule ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "get" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x145" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "put" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -1159,15 +1195,17 @@ UberModule ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x145" ) ) ) + ( Ref Nothing + ( Local ( Name "x145" ) ) :| [] + ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) @@ -1178,28 +1216,28 @@ UberModule ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "get" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x146" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "put" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -1210,16 +1248,16 @@ UberModule ( PropName "intAdd" ) ) ( Ref Nothing - ( Local ( Name "x146" ) ) + ( Local ( Name "x146" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) @@ -1230,30 +1268,30 @@ UberModule ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "get" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x147" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "put" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -1266,16 +1304,16 @@ UberModule ( Ref Nothing ( Local ( Name "x147" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) @@ -1286,30 +1324,30 @@ UberModule ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "get" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x148" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "put" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -1322,16 +1360,16 @@ UberModule ( Ref Nothing ( Local ( Name "x148" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) @@ -1342,30 +1380,30 @@ UberModule ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "get" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x149" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "put" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -1378,16 +1416,16 @@ UberModule ( Ref Nothing ( Local ( Name "x149" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) @@ -1398,30 +1436,30 @@ UberModule ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "get" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x150" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "put" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -1434,16 +1472,16 @@ UberModule ( Ref Nothing ( Local ( Name "x150" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) @@ -1454,22 +1492,22 @@ UberModule ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "get" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "final" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Control.Applicative" ) ( Name "pure" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Control.Monad.State.Trans" ) @@ -1480,12 +1518,12 @@ UberModule ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "monadExceptT" ) - ) - ) + ) :| [] + ) :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -1498,125 +1536,128 @@ UberModule ( Ref Nothing ( Local ( Name "x1$559" ) - ) + ) :| [] ) ) ( Ref Nothing ( Local ( Name "final" ) - ) - ) + ) :| [] + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) ) ) :| [ Standalone ( Nothing, Name "$kont560", Abs Nothing ( ParamNamed Nothing ( Name "x1$561" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "bind" ) ) ) ( Ref Nothing - ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "get" ) ) + ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "get" ) ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x121" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "put" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Data.Semiring" ) ( Name "foreign" ) ) ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x121" ) ) ) + ( Ref Nothing ( Local ( Name "x121" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "bind" ) ) ) ( Ref Nothing - ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "get" ) ) + ( Imported + ( ModuleName "Golden.LongStackBind.Test" ) + ( Name "get" ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x122" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "put" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -1626,15 +1667,15 @@ UberModule ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x122" ) ) ) + ( Ref Nothing ( Local ( Name "x122" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) @@ -1645,28 +1686,28 @@ UberModule ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "get" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x123" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "put" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -1676,15 +1717,15 @@ UberModule ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x123" ) ) ) + ( Ref Nothing ( Local ( Name "x123" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) @@ -1695,28 +1736,28 @@ UberModule ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "get" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x124" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "put" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -1726,15 +1767,15 @@ UberModule ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x124" ) ) ) + ( Ref Nothing ( Local ( Name "x124" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) @@ -1745,28 +1786,28 @@ UberModule ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "get" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x125" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "put" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -1777,16 +1818,16 @@ UberModule ( PropName "intAdd" ) ) ( Ref Nothing - ( Local ( Name "x125" ) ) + ( Local ( Name "x125" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) @@ -1797,28 +1838,28 @@ UberModule ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "get" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x126" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "put" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -1829,16 +1870,18 @@ UberModule ( PropName "intAdd" ) ) ( Ref Nothing - ( Local ( Name "x126" ) ) + ( Local + ( Name "x126" ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) @@ -1849,30 +1892,30 @@ UberModule ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "get" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x127" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "put" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -1885,16 +1928,16 @@ UberModule ( Ref Nothing ( Local ( Name "x127" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) @@ -1905,30 +1948,30 @@ UberModule ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "get" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x128" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "put" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -1941,16 +1984,16 @@ UberModule ( Ref Nothing ( Local ( Name "x128" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) @@ -1961,30 +2004,30 @@ UberModule ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "get" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x129" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "put" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -1997,16 +2040,16 @@ UberModule ( Ref Nothing ( Local ( Name "x129" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) @@ -2017,30 +2060,30 @@ UberModule ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "get" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x130" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "put" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -2053,16 +2096,16 @@ UberModule ( Ref Nothing ( Local ( Name "x130" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) @@ -2073,30 +2116,30 @@ UberModule ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "get" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x131" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "put" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -2109,16 +2152,16 @@ UberModule ( Ref Nothing ( Local ( Name "x131" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) @@ -2129,30 +2172,30 @@ UberModule ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "get" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x132" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "put" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -2165,16 +2208,16 @@ UberModule ( Ref Nothing ( Local ( Name "x132" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) @@ -2185,30 +2228,30 @@ UberModule ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "get" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x133" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "put" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -2221,16 +2264,16 @@ UberModule ( Ref Nothing ( Local ( Name "x133" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) @@ -2241,30 +2284,30 @@ UberModule ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "get" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x134" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "put" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -2277,16 +2320,16 @@ UberModule ( Ref Nothing ( Local ( Name "x134" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) @@ -2297,30 +2340,30 @@ UberModule ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "get" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x135" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "put" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -2333,16 +2376,16 @@ UberModule ( Ref Nothing ( Local ( Name "x135" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) @@ -2353,30 +2396,30 @@ UberModule ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "get" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x136" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "put" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -2389,16 +2432,16 @@ UberModule ( Ref Nothing ( Local ( Name "x136" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) @@ -2409,30 +2452,30 @@ UberModule ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "get" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x137" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "put" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -2445,16 +2488,16 @@ UberModule ( Ref Nothing ( Local ( Name "x137" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) @@ -2465,30 +2508,30 @@ UberModule ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "get" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x138" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "put" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -2501,16 +2544,16 @@ UberModule ( Ref Nothing ( Local ( Name "x138" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) @@ -2521,30 +2564,30 @@ UberModule ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "get" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x139" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "put" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -2557,16 +2600,16 @@ UberModule ( Ref Nothing ( Local ( Name "x139" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) @@ -2577,30 +2620,30 @@ UberModule ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "get" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x140" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "put" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -2613,15 +2656,15 @@ UberModule ( Ref Nothing ( Local ( Name "x140" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Local ( Name "$kont558" ) @@ -2630,155 +2673,158 @@ UberModule ( Ref Nothing ( Local ( Name "x1$561" ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) ) ), Standalone ( Nothing, Name "$kont562", Abs Nothing ( ParamNamed Nothing ( Name "x1$563" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "bind" ) ) ) ( Ref Nothing - ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "get" ) ) + ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "get" ) ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x101" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "put" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Data.Semiring" ) ( Name "foreign" ) ) ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x101" ) ) ) + ( Ref Nothing ( Local ( Name "x101" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "bind" ) ) ) ( Ref Nothing - ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "get" ) ) + ( Imported + ( ModuleName "Golden.LongStackBind.Test" ) + ( Name "get" ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x102" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "put" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -2788,15 +2834,15 @@ UberModule ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x102" ) ) ) + ( Ref Nothing ( Local ( Name "x102" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) @@ -2807,28 +2853,28 @@ UberModule ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "get" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x103" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "put" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -2838,15 +2884,15 @@ UberModule ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x103" ) ) ) + ( Ref Nothing ( Local ( Name "x103" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) @@ -2857,28 +2903,28 @@ UberModule ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "get" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x104" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "put" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -2888,15 +2934,15 @@ UberModule ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x104" ) ) ) + ( Ref Nothing ( Local ( Name "x104" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) @@ -2907,28 +2953,28 @@ UberModule ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "get" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x105" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "put" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -2939,16 +2985,16 @@ UberModule ( PropName "intAdd" ) ) ( Ref Nothing - ( Local ( Name "x105" ) ) + ( Local ( Name "x105" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) @@ -2959,28 +3005,28 @@ UberModule ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "get" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x106" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "put" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -2991,16 +3037,18 @@ UberModule ( PropName "intAdd" ) ) ( Ref Nothing - ( Local ( Name "x106" ) ) + ( Local + ( Name "x106" ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) @@ -3011,30 +3059,30 @@ UberModule ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "get" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x107" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "put" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -3047,16 +3095,16 @@ UberModule ( Ref Nothing ( Local ( Name "x107" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) @@ -3067,30 +3115,30 @@ UberModule ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "get" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x108" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "put" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -3103,16 +3151,16 @@ UberModule ( Ref Nothing ( Local ( Name "x108" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) @@ -3123,30 +3171,30 @@ UberModule ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "get" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x109" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "put" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -3159,16 +3207,16 @@ UberModule ( Ref Nothing ( Local ( Name "x109" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) @@ -3179,30 +3227,30 @@ UberModule ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "get" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x110" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "put" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -3215,16 +3263,16 @@ UberModule ( Ref Nothing ( Local ( Name "x110" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) @@ -3235,30 +3283,30 @@ UberModule ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "get" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x111" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "put" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -3271,16 +3319,16 @@ UberModule ( Ref Nothing ( Local ( Name "x111" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) @@ -3291,30 +3339,30 @@ UberModule ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "get" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x112" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "put" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -3327,16 +3375,16 @@ UberModule ( Ref Nothing ( Local ( Name "x112" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) @@ -3347,30 +3395,30 @@ UberModule ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "get" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x113" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "put" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -3383,16 +3431,16 @@ UberModule ( Ref Nothing ( Local ( Name "x113" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) @@ -3403,30 +3451,30 @@ UberModule ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "get" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x114" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "put" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -3439,16 +3487,16 @@ UberModule ( Ref Nothing ( Local ( Name "x114" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) @@ -3459,30 +3507,30 @@ UberModule ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "get" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x115" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "put" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -3495,16 +3543,16 @@ UberModule ( Ref Nothing ( Local ( Name "x115" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) @@ -3515,30 +3563,30 @@ UberModule ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "get" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x116" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "put" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -3551,16 +3599,16 @@ UberModule ( Ref Nothing ( Local ( Name "x116" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) @@ -3571,30 +3619,30 @@ UberModule ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "get" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x117" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "put" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -3607,16 +3655,16 @@ UberModule ( Ref Nothing ( Local ( Name "x117" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) @@ -3627,30 +3675,30 @@ UberModule ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "get" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x118" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "put" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -3663,16 +3711,16 @@ UberModule ( Ref Nothing ( Local ( Name "x118" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) @@ -3683,30 +3731,30 @@ UberModule ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "get" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x119" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "put" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -3719,16 +3767,16 @@ UberModule ( Ref Nothing ( Local ( Name "x119" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) @@ -3739,30 +3787,30 @@ UberModule ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "get" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x120" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "put" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -3775,15 +3823,15 @@ UberModule ( Ref Nothing ( Local ( Name "x120" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Local ( Name "$kont560" ) @@ -3792,155 +3840,158 @@ UberModule ( Ref Nothing ( Local ( Name "x1$563" ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) ) ), Standalone ( Nothing, Name "$kont564", Abs Nothing ( ParamNamed Nothing ( Name "x1$565" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "bind" ) ) ) ( Ref Nothing - ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "get" ) ) + ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "get" ) ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x81" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "put" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Data.Semiring" ) ( Name "foreign" ) ) ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x81" ) ) ) + ( Ref Nothing ( Local ( Name "x81" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "bind" ) ) ) ( Ref Nothing - ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "get" ) ) + ( Imported + ( ModuleName "Golden.LongStackBind.Test" ) + ( Name "get" ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x82" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "put" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -3950,15 +4001,15 @@ UberModule ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x82" ) ) ) + ( Ref Nothing ( Local ( Name "x82" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) @@ -3969,28 +4020,28 @@ UberModule ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "get" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x83" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "put" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -4000,15 +4051,15 @@ UberModule ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x83" ) ) ) + ( Ref Nothing ( Local ( Name "x83" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) @@ -4019,28 +4070,28 @@ UberModule ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "get" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x84" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "put" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -4050,15 +4101,15 @@ UberModule ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x84" ) ) ) + ( Ref Nothing ( Local ( Name "x84" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) @@ -4069,28 +4120,28 @@ UberModule ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "get" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x85" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "put" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -4100,15 +4151,17 @@ UberModule ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x85" ) ) ) + ( Ref Nothing + ( Local ( Name "x85" ) ) :| [] + ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) @@ -4119,28 +4172,28 @@ UberModule ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "get" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x86" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "put" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -4151,16 +4204,16 @@ UberModule ( PropName "intAdd" ) ) ( Ref Nothing - ( Local ( Name "x86" ) ) + ( Local ( Name "x86" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) @@ -4171,30 +4224,30 @@ UberModule ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "get" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x87" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "put" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -4207,16 +4260,16 @@ UberModule ( Ref Nothing ( Local ( Name "x87" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) @@ -4227,30 +4280,30 @@ UberModule ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "get" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x88" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "put" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -4263,16 +4316,16 @@ UberModule ( Ref Nothing ( Local ( Name "x88" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) @@ -4283,30 +4336,30 @@ UberModule ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "get" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x89" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "put" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -4319,16 +4372,16 @@ UberModule ( Ref Nothing ( Local ( Name "x89" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) @@ -4339,30 +4392,30 @@ UberModule ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "get" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x90" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "put" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -4375,16 +4428,16 @@ UberModule ( Ref Nothing ( Local ( Name "x90" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) @@ -4395,30 +4448,30 @@ UberModule ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "get" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x91" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "put" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -4431,16 +4484,16 @@ UberModule ( Ref Nothing ( Local ( Name "x91" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) @@ -4451,30 +4504,30 @@ UberModule ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "get" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x92" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "put" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -4487,16 +4540,16 @@ UberModule ( Ref Nothing ( Local ( Name "x92" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) @@ -4507,30 +4560,30 @@ UberModule ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "get" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x93" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "put" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -4543,16 +4596,16 @@ UberModule ( Ref Nothing ( Local ( Name "x93" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) @@ -4563,30 +4616,30 @@ UberModule ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "get" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x94" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "put" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -4599,16 +4652,16 @@ UberModule ( Ref Nothing ( Local ( Name "x94" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) @@ -4619,30 +4672,30 @@ UberModule ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "get" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x95" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "put" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -4655,16 +4708,16 @@ UberModule ( Ref Nothing ( Local ( Name "x95" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) @@ -4675,30 +4728,30 @@ UberModule ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "get" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x96" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "put" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -4711,16 +4764,16 @@ UberModule ( Ref Nothing ( Local ( Name "x96" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) @@ -4731,30 +4784,30 @@ UberModule ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "get" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x97" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "put" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -4767,16 +4820,16 @@ UberModule ( Ref Nothing ( Local ( Name "x97" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) @@ -4787,30 +4840,30 @@ UberModule ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "get" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x98" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "put" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -4823,16 +4876,16 @@ UberModule ( Ref Nothing ( Local ( Name "x98" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) @@ -4843,30 +4896,30 @@ UberModule ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "get" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x99" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "put" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -4879,16 +4932,16 @@ UberModule ( Ref Nothing ( Local ( Name "x99" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) @@ -4899,30 +4952,30 @@ UberModule ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "get" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x100" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "put" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -4935,15 +4988,15 @@ UberModule ( Ref Nothing ( Local ( Name "x100" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Local ( Name "$kont562" ) @@ -4952,155 +5005,158 @@ UberModule ( Ref Nothing ( Local ( Name "x1$565" ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) ) ), Standalone ( Nothing, Name "$kont566", Abs Nothing ( ParamNamed Nothing ( Name "x1$567" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "bind" ) ) ) ( Ref Nothing - ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "get" ) ) + ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "get" ) ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x61" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "put" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Data.Semiring" ) ( Name "foreign" ) ) ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x61" ) ) ) + ( Ref Nothing ( Local ( Name "x61" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "bind" ) ) ) ( Ref Nothing - ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "get" ) ) + ( Imported + ( ModuleName "Golden.LongStackBind.Test" ) + ( Name "get" ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x62" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "put" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -5110,15 +5166,15 @@ UberModule ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x62" ) ) ) + ( Ref Nothing ( Local ( Name "x62" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) @@ -5129,28 +5185,28 @@ UberModule ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "get" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x63" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "put" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -5160,15 +5216,15 @@ UberModule ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x63" ) ) ) + ( Ref Nothing ( Local ( Name "x63" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) @@ -5179,28 +5235,28 @@ UberModule ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "get" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x64" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "put" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -5210,15 +5266,15 @@ UberModule ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x64" ) ) ) + ( Ref Nothing ( Local ( Name "x64" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) @@ -5229,28 +5285,28 @@ UberModule ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "get" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x65" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "put" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -5260,15 +5316,17 @@ UberModule ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x65" ) ) ) + ( Ref Nothing + ( Local ( Name "x65" ) ) :| [] + ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) @@ -5279,28 +5337,28 @@ UberModule ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "get" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x66" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "put" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -5311,16 +5369,16 @@ UberModule ( PropName "intAdd" ) ) ( Ref Nothing - ( Local ( Name "x66" ) ) + ( Local ( Name "x66" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) @@ -5331,30 +5389,30 @@ UberModule ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "get" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x67" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "put" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -5367,16 +5425,16 @@ UberModule ( Ref Nothing ( Local ( Name "x67" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) @@ -5387,30 +5445,30 @@ UberModule ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "get" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x68" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "put" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -5423,16 +5481,16 @@ UberModule ( Ref Nothing ( Local ( Name "x68" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) @@ -5443,30 +5501,30 @@ UberModule ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "get" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x69" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "put" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -5479,16 +5537,16 @@ UberModule ( Ref Nothing ( Local ( Name "x69" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) @@ -5499,30 +5557,30 @@ UberModule ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "get" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x70" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "put" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -5535,16 +5593,16 @@ UberModule ( Ref Nothing ( Local ( Name "x70" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) @@ -5555,30 +5613,30 @@ UberModule ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "get" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x71" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "put" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -5591,16 +5649,16 @@ UberModule ( Ref Nothing ( Local ( Name "x71" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) @@ -5611,30 +5669,30 @@ UberModule ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "get" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x72" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "put" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -5647,16 +5705,16 @@ UberModule ( Ref Nothing ( Local ( Name "x72" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) @@ -5667,30 +5725,30 @@ UberModule ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "get" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x73" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "put" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -5703,16 +5761,16 @@ UberModule ( Ref Nothing ( Local ( Name "x73" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) @@ -5723,30 +5781,30 @@ UberModule ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "get" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x74" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "put" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -5759,16 +5817,16 @@ UberModule ( Ref Nothing ( Local ( Name "x74" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) @@ -5779,30 +5837,30 @@ UberModule ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "get" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x75" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "put" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -5815,16 +5873,16 @@ UberModule ( Ref Nothing ( Local ( Name "x75" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) @@ -5835,30 +5893,30 @@ UberModule ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "get" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x76" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "put" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -5871,16 +5929,16 @@ UberModule ( Ref Nothing ( Local ( Name "x76" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) @@ -5891,30 +5949,30 @@ UberModule ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "get" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x77" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "put" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -5927,16 +5985,16 @@ UberModule ( Ref Nothing ( Local ( Name "x77" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) @@ -5947,30 +6005,30 @@ UberModule ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "get" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x78" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "put" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -5983,16 +6041,16 @@ UberModule ( Ref Nothing ( Local ( Name "x78" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) @@ -6003,30 +6061,30 @@ UberModule ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "get" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x79" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "put" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -6039,16 +6097,16 @@ UberModule ( Ref Nothing ( Local ( Name "x79" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) @@ -6059,30 +6117,30 @@ UberModule ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "get" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x80" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "put" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -6095,15 +6153,15 @@ UberModule ( Ref Nothing ( Local ( Name "x80" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Local ( Name "$kont564" ) @@ -6112,155 +6170,158 @@ UberModule ( Ref Nothing ( Local ( Name "x1$567" ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) ) ), Standalone ( Nothing, Name "$kont568", Abs Nothing ( ParamNamed Nothing ( Name "x1$569" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "bind" ) ) ) ( Ref Nothing - ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "get" ) ) + ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "get" ) ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x41" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "put" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Data.Semiring" ) ( Name "foreign" ) ) ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x41" ) ) ) + ( Ref Nothing ( Local ( Name "x41" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "bind" ) ) ) ( Ref Nothing - ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "get" ) ) + ( Imported + ( ModuleName "Golden.LongStackBind.Test" ) + ( Name "get" ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x42" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "put" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -6270,15 +6331,15 @@ UberModule ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x42" ) ) ) + ( Ref Nothing ( Local ( Name "x42" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) @@ -6289,28 +6350,28 @@ UberModule ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "get" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x43" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "put" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -6320,15 +6381,15 @@ UberModule ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x43" ) ) ) + ( Ref Nothing ( Local ( Name "x43" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) @@ -6339,28 +6400,28 @@ UberModule ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "get" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x44" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "put" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -6370,15 +6431,15 @@ UberModule ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x44" ) ) ) + ( Ref Nothing ( Local ( Name "x44" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) @@ -6389,28 +6450,28 @@ UberModule ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "get" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x45" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "put" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -6420,15 +6481,17 @@ UberModule ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x45" ) ) ) + ( Ref Nothing + ( Local ( Name "x45" ) ) :| [] + ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) @@ -6439,28 +6502,28 @@ UberModule ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "get" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x46" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "put" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -6471,16 +6534,16 @@ UberModule ( PropName "intAdd" ) ) ( Ref Nothing - ( Local ( Name "x46" ) ) + ( Local ( Name "x46" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) @@ -6491,30 +6554,30 @@ UberModule ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "get" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x47" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "put" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -6527,16 +6590,16 @@ UberModule ( Ref Nothing ( Local ( Name "x47" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) @@ -6547,30 +6610,30 @@ UberModule ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "get" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x48" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "put" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -6583,16 +6646,16 @@ UberModule ( Ref Nothing ( Local ( Name "x48" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) @@ -6603,30 +6666,30 @@ UberModule ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "get" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x49" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "put" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -6639,16 +6702,16 @@ UberModule ( Ref Nothing ( Local ( Name "x49" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) @@ -6659,30 +6722,30 @@ UberModule ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "get" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x50" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "put" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -6695,16 +6758,16 @@ UberModule ( Ref Nothing ( Local ( Name "x50" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) @@ -6715,30 +6778,30 @@ UberModule ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "get" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x51" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "put" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -6751,16 +6814,16 @@ UberModule ( Ref Nothing ( Local ( Name "x51" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) @@ -6771,30 +6834,30 @@ UberModule ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "get" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x52" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "put" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -6807,16 +6870,16 @@ UberModule ( Ref Nothing ( Local ( Name "x52" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) @@ -6827,30 +6890,30 @@ UberModule ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "get" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x53" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "put" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -6863,16 +6926,16 @@ UberModule ( Ref Nothing ( Local ( Name "x53" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) @@ -6883,30 +6946,30 @@ UberModule ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "get" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x54" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "put" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -6919,16 +6982,16 @@ UberModule ( Ref Nothing ( Local ( Name "x54" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) @@ -6939,30 +7002,30 @@ UberModule ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "get" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x55" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "put" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -6975,16 +7038,16 @@ UberModule ( Ref Nothing ( Local ( Name "x55" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) @@ -6995,30 +7058,30 @@ UberModule ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "get" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x56" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "put" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -7031,16 +7094,16 @@ UberModule ( Ref Nothing ( Local ( Name "x56" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) @@ -7051,30 +7114,30 @@ UberModule ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "get" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x57" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "put" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -7087,16 +7150,16 @@ UberModule ( Ref Nothing ( Local ( Name "x57" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) @@ -7107,30 +7170,30 @@ UberModule ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "get" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x58" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "put" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -7143,16 +7206,16 @@ UberModule ( Ref Nothing ( Local ( Name "x58" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) @@ -7163,30 +7226,30 @@ UberModule ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "get" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x59" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "put" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -7199,16 +7262,16 @@ UberModule ( Ref Nothing ( Local ( Name "x59" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) @@ -7219,30 +7282,30 @@ UberModule ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "get" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x60" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "put" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -7255,15 +7318,15 @@ UberModule ( Ref Nothing ( Local ( Name "x60" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Local ( Name "$kont566" ) @@ -7272,155 +7335,158 @@ UberModule ( Ref Nothing ( Local ( Name "x1$569" ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) ) ), Standalone ( Nothing, Name "$kont570", Abs Nothing ( ParamNamed Nothing ( Name "x1$571" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "bind" ) ) ) ( Ref Nothing - ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "get" ) ) + ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "get" ) ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x21" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "put" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Data.Semiring" ) ( Name "foreign" ) ) ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x21" ) ) ) + ( Ref Nothing ( Local ( Name "x21" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "bind" ) ) ) ( Ref Nothing - ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "get" ) ) + ( Imported + ( ModuleName "Golden.LongStackBind.Test" ) + ( Name "get" ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x22" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "put" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -7430,15 +7496,15 @@ UberModule ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x22" ) ) ) + ( Ref Nothing ( Local ( Name "x22" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) @@ -7449,28 +7515,28 @@ UberModule ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "get" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x23" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "put" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -7480,15 +7546,15 @@ UberModule ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x23" ) ) ) + ( Ref Nothing ( Local ( Name "x23" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) @@ -7499,28 +7565,28 @@ UberModule ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "get" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x24" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "put" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -7530,15 +7596,15 @@ UberModule ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x24" ) ) ) + ( Ref Nothing ( Local ( Name "x24" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) @@ -7549,28 +7615,28 @@ UberModule ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "get" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x25" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "put" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -7580,15 +7646,17 @@ UberModule ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x25" ) ) ) + ( Ref Nothing + ( Local ( Name "x25" ) ) :| [] + ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) @@ -7599,28 +7667,28 @@ UberModule ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "get" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x26" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "put" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -7631,16 +7699,16 @@ UberModule ( PropName "intAdd" ) ) ( Ref Nothing - ( Local ( Name "x26" ) ) + ( Local ( Name "x26" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) @@ -7651,30 +7719,30 @@ UberModule ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "get" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x27" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "put" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -7687,16 +7755,16 @@ UberModule ( Ref Nothing ( Local ( Name "x27" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) @@ -7707,30 +7775,30 @@ UberModule ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "get" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x28" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "put" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -7743,16 +7811,16 @@ UberModule ( Ref Nothing ( Local ( Name "x28" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) @@ -7763,30 +7831,30 @@ UberModule ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "get" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x29" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "put" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -7799,16 +7867,16 @@ UberModule ( Ref Nothing ( Local ( Name "x29" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) @@ -7819,30 +7887,30 @@ UberModule ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "get" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x30" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "put" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -7855,16 +7923,16 @@ UberModule ( Ref Nothing ( Local ( Name "x30" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) @@ -7875,30 +7943,30 @@ UberModule ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "get" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x31" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "put" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -7911,16 +7979,16 @@ UberModule ( Ref Nothing ( Local ( Name "x31" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) @@ -7931,30 +7999,30 @@ UberModule ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "get" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x32" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "put" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -7967,16 +8035,16 @@ UberModule ( Ref Nothing ( Local ( Name "x32" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) @@ -7987,30 +8055,30 @@ UberModule ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "get" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x33" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "put" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -8023,16 +8091,16 @@ UberModule ( Ref Nothing ( Local ( Name "x33" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) @@ -8043,30 +8111,30 @@ UberModule ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "get" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x34" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "put" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -8079,16 +8147,16 @@ UberModule ( Ref Nothing ( Local ( Name "x34" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) @@ -8099,30 +8167,30 @@ UberModule ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "get" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x35" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "put" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -8135,16 +8203,16 @@ UberModule ( Ref Nothing ( Local ( Name "x35" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) @@ -8155,30 +8223,30 @@ UberModule ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "get" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x36" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "put" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -8191,16 +8259,16 @@ UberModule ( Ref Nothing ( Local ( Name "x36" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) @@ -8211,30 +8279,30 @@ UberModule ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "get" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x37" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "put" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -8247,16 +8315,16 @@ UberModule ( Ref Nothing ( Local ( Name "x37" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) @@ -8267,30 +8335,30 @@ UberModule ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "get" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x38" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "put" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -8303,16 +8371,16 @@ UberModule ( Ref Nothing ( Local ( Name "x38" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) @@ -8323,30 +8391,30 @@ UberModule ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "get" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x39" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "put" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -8359,16 +8427,16 @@ UberModule ( Ref Nothing ( Local ( Name "x39" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) @@ -8379,30 +8447,30 @@ UberModule ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "get" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x40" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "put" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -8415,15 +8483,15 @@ UberModule ( Ref Nothing ( Local ( Name "x40" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Local ( Name "$kont568" ) @@ -8432,160 +8500,162 @@ UberModule ( Ref Nothing ( Local ( Name "x1$571" ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) ) ) ] ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "bind" ) ) ) - ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "get" ) ) ) + ( Ref Nothing + ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "get" ) ) :| [] + ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x1" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "put" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Data.Semiring" ) ( Name "foreign" ) ) ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x1" ) ) ) + ( Ref Nothing ( Local ( Name "x1" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "bind" ) ) ) ( Ref Nothing - ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "get" ) ) + ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "get" ) ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x2" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "put" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Data.Semiring" ) ( Name "foreign" ) ) ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x2" ) ) ) + ( Ref Nothing ( Local ( Name "x2" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) @@ -8593,28 +8663,31 @@ UberModule ) ) ( Ref Nothing - ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "get" ) ) + ( Imported + ( ModuleName "Golden.LongStackBind.Test" ) + ( Name "get" ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x3" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "put" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -8624,15 +8697,15 @@ UberModule ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x3" ) ) ) + ( Ref Nothing ( Local ( Name "x3" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) @@ -8643,28 +8716,28 @@ UberModule ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "get" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x4" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "put" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -8674,15 +8747,15 @@ UberModule ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x4" ) ) ) + ( Ref Nothing ( Local ( Name "x4" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) @@ -8693,28 +8766,28 @@ UberModule ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "get" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x5" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "put" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -8724,15 +8797,15 @@ UberModule ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x5" ) ) ) + ( Ref Nothing ( Local ( Name "x5" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) @@ -8743,28 +8816,28 @@ UberModule ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "get" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x6" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "put" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -8775,16 +8848,16 @@ UberModule ( PropName "intAdd" ) ) ( Ref Nothing - ( Local ( Name "x6" ) ) + ( Local ( Name "x6" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) @@ -8795,28 +8868,28 @@ UberModule ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "get" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x7" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "put" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -8827,16 +8900,18 @@ UberModule ( PropName "intAdd" ) ) ( Ref Nothing - ( Local ( Name "x7" ) ) + ( Local + ( Name "x7" ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) @@ -8847,30 +8922,30 @@ UberModule ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "get" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x8" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "put" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -8883,16 +8958,16 @@ UberModule ( Ref Nothing ( Local ( Name "x8" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) @@ -8903,30 +8978,30 @@ UberModule ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "get" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x9" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "put" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -8939,16 +9014,16 @@ UberModule ( Ref Nothing ( Local ( Name "x9" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) @@ -8959,30 +9034,30 @@ UberModule ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "get" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x10" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "put" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -8995,16 +9070,16 @@ UberModule ( Ref Nothing ( Local ( Name "x10" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) @@ -9015,30 +9090,30 @@ UberModule ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "get" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x11" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "put" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -9051,16 +9126,16 @@ UberModule ( Ref Nothing ( Local ( Name "x11" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) @@ -9071,30 +9146,30 @@ UberModule ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "get" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x12" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "put" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -9107,16 +9182,16 @@ UberModule ( Ref Nothing ( Local ( Name "x12" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) @@ -9127,30 +9202,30 @@ UberModule ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "get" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x13" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "put" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -9163,16 +9238,16 @@ UberModule ( Ref Nothing ( Local ( Name "x13" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) @@ -9183,30 +9258,30 @@ UberModule ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "get" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x14" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "put" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -9219,16 +9294,16 @@ UberModule ( Ref Nothing ( Local ( Name "x14" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) @@ -9239,30 +9314,30 @@ UberModule ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "get" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x15" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "put" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -9275,16 +9350,16 @@ UberModule ( Ref Nothing ( Local ( Name "x15" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) @@ -9295,30 +9370,30 @@ UberModule ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "get" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x16" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "put" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -9331,16 +9406,16 @@ UberModule ( Ref Nothing ( Local ( Name "x16" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) @@ -9351,30 +9426,30 @@ UberModule ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "get" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x17" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "put" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -9387,16 +9462,16 @@ UberModule ( Ref Nothing ( Local ( Name "x17" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) @@ -9407,30 +9482,30 @@ UberModule ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "get" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x18" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "put" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -9443,16 +9518,16 @@ UberModule ( Ref Nothing ( Local ( Name "x18" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) @@ -9463,30 +9538,30 @@ UberModule ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "get" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x19" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "put" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -9499,16 +9574,16 @@ UberModule ( Ref Nothing ( Local ( Name "x19" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) @@ -9519,30 +9594,30 @@ UberModule ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "get" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x20" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "put" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -9555,15 +9630,15 @@ UberModule ( Ref Nothing ( Local ( Name "x20" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Local ( Name "$kont570" ) @@ -9572,122 +9647,122 @@ UberModule ( Ref Nothing ( Local ( Name "x1" ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) ) ), Standalone ( QName { qnameModuleName = ModuleName "Golden.LongStackBind.Test", qnameName = Name "compute" - }, App Nothing - ( App Nothing - ( App Nothing - ( App Nothing + }, AppN Nothing + ( AppN Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Control.Semigroupoid" ) ( Name "compose" ) ) ) ( Ref Nothing - ( Imported ( ModuleName "Control.Semigroupoid" ) ( Name "semigroupoidFn" ) ) + ( Imported ( ModuleName "Control.Semigroupoid" ) ( Name "semigroupoidFn" ) ) :| [] ) ) ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Unsafe.Coerce" ) ( Name "foreign" ) ) ) - ( PropName "unsafeCoerce" ) + ( PropName "unsafeCoerce" ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "v$82" ) ) - ( Ref Nothing ( Local ( Name "v$82" ) ) ) + ( Ref Nothing ( Local ( Name "v$82" ) ) ) :| [] ) ) - ( App Nothing - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Functor" ) ( Name "map" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Control.Monad.Except.Trans" ) ( Name "functorExceptT" ) ) ) ( Ref Nothing - ( Imported ( ModuleName "Data.Identity" ) ( Name "functorIdentity" ) ) - ) + ( Imported ( ModuleName "Data.Identity" ) ( Name "functorIdentity" ) ) :| [] + ) :| [] ) ) ( Abs Nothing @@ -9695,13 +9770,13 @@ UberModule ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "v$547" ) ) ) ( PropName "value0" ) - ) + ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "go" ) ) ) - ( LiteralInt Nothing 0 ) - ) + ( LiteralInt Nothing 0 :| [] ) :| [] + ) :| [] ) ) ], uberModuleForeigns = [], uberModuleExports = @@ -9712,13 +9787,13 @@ UberModule ( Name "compute", Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "compute" ) ) ), - ( Name "main", App Nothing + ( Name "main", AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Show" ) ( Name "show" ) ) ) ( LiteralObject Nothing [ @@ -9729,26 +9804,26 @@ UberModule ( LiteralString Nothing "Data.Either∷Either.Left" ) ( ReflectCtor Nothing ( Ref Nothing ( Local ( Name "v$228$557" ) ) ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Data.Semigroup" ) ( Name "foreign" ) ) ) ( PropName "concatString" ) ) - ( LiteralString Nothing "(Left " ) + ( LiteralString Nothing "(Left " :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Data.Semigroup" ) ( Name "foreign" ) ) ) ( PropName "concatString" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Show" ) ( Name "show" ) ) ) @@ -9760,16 +9835,16 @@ UberModule ) ( PropName "showStringImpl" ) ) - ] + ] :| [] ) ) ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "v$228$557" ) ) ) - ( PropName "value0" ) - ) + ( PropName "value0" ) :| [] + ) :| [] ) ) - ( LiteralString Nothing ")" ) + ( LiteralString Nothing ")" :| [] ) :| [] ) ) ( IfThenElse Nothing @@ -9777,26 +9852,26 @@ UberModule ( LiteralString Nothing "Data.Either∷Either.Right" ) ( ReflectCtor Nothing ( Ref Nothing ( Local ( Name "v$228$557" ) ) ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Data.Semigroup" ) ( Name "foreign" ) ) ) ( PropName "concatString" ) ) - ( LiteralString Nothing "(Right " ) + ( LiteralString Nothing "(Right " :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Data.Semigroup" ) ( Name "foreign" ) ) ) ( PropName "concatString" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Show" ) ( Name "show" ) ) ) @@ -9808,26 +9883,28 @@ UberModule ) ( PropName "showIntImpl" ) ) - ] + ] :| [] ) ) ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "v$228$557" ) ) ) - ( PropName "value0" ) - ) + ( PropName "value0" ) :| [] + ) :| [] ) ) - ( LiteralString Nothing ")" ) + ( LiteralString Nothing ")" :| [] ) :| [] ) ) ( Exception Nothing "No patterns matched" ) ) ) ) - ] + ] :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "compute" ) ) ) + ( Ref Nothing + ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "compute" ) ) :| [] + ) :| [] ) ) ] diff --git a/test/ps/output/Golden.LongStateBind.Test/golden.ir b/test/ps/output/Golden.LongStateBind.Test/golden.ir index b3390e86..63d61a2e 100644 --- a/test/ps/output/Golden.LongStateBind.Test/golden.ir +++ b/test/ps/output/Golden.LongStateBind.Test/golden.ir @@ -52,9 +52,9 @@ UberModule ( ParamNamed Nothing ( Name "v" ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "v1" ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Local ( Name "v" ) ) ) - ( Ref Nothing ( Local ( Name "v1" ) ) ) + ( Ref Nothing ( Local ( Name "v1" ) ) :| [] ) ) ) ), @@ -65,9 +65,9 @@ UberModule ( ParamNamed Nothing ( Name "f$486" ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "m$487" ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Local ( Name "f$486" ) ) ) - ( Ref Nothing ( Local ( Name "m$487" ) ) ) + ( Ref Nothing ( Local ( Name "m$487" ) ) :| [] ) ) ) ) @@ -102,9 +102,9 @@ UberModule ( ParamNamed Nothing ( Name "v$78" ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "f$79" ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Local ( Name "f$79" ) ) ) - ( Ref Nothing ( Local ( Name "v$78" ) ) ) + ( Ref Nothing ( Local ( Name "v$78" ) ) :| [] ) ) ) ), @@ -132,22 +132,22 @@ UberModule ( LiteralObject Nothing [ ( PropName "Applicative0", Abs Nothing ( ParamUnused Nothing ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Control.Monad.State.Trans" ) ( Name "applicativeStateT" ) ) ) - ( Ref Nothing ( Local ( Name "dictMonad" ) ) ) + ( Ref Nothing ( Local ( Name "dictMonad" ) ) :| [] ) ) ), ( PropName "Bind1", Abs Nothing ( ParamUnused Nothing ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Control.Monad.State.Trans" ) ( Name "bindStateT" ) ) ) - ( Ref Nothing ( Local ( Name "dictMonad" ) ) ) + ( Ref Nothing ( Local ( Name "dictMonad" ) ) :| [] ) ) ) ] @@ -166,53 +166,53 @@ UberModule ( ParamNamed Nothing ( Name "f" ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "s" ) ) - ( App Nothing - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Control.Bind" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "dictMonad" ) ) ) ( PropName "Bind1" ) ) ( Ref Nothing - ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) - ) + ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] + ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Local ( Name "v" ) ) ) - ( Ref Nothing ( Local ( Name "s" ) ) ) + ( Ref Nothing ( Local ( Name "s" ) ) :| [] ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "v1" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Local ( Name "f" ) ) ) ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "v1" ) ) ) - ( PropName "value0" ) + ( PropName "value0" ) :| [] ) ) ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "v1" ) ) ) - ( PropName "value1" ) + ( PropName "value1" ) :| [] ) - ) + ) :| [] ) ) ) ) ), ( PropName "Apply0", Abs Nothing ( ParamUnused Nothing ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Control.Monad.State.Trans" ) ( Name "applyStateT" ) ) ) - ( Ref Nothing ( Local ( Name "dictMonad" ) ) ) + ( Ref Nothing ( Local ( Name "dictMonad" ) ) :| [] ) ) ) ] @@ -226,26 +226,28 @@ UberModule [ ( PropName "apply", Let Nothing ( Standalone - ( Nothing, Name "dictMonad$489", App Nothing + ( Nothing, Name "dictMonad$489", AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Control.Monad.State.Trans" ) ( Name "monadStateT" ) ) ) - ( Ref Nothing ( Local ( Name "dictMonad" ) ) ) + ( Ref Nothing ( Local ( Name "dictMonad" ) ) :| [] ) ) :| [] ) ( Let Nothing ( Standalone - ( Nothing, Name "bind$490", App Nothing + ( Nothing, Name "bind$490", AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Control.Bind" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "dictMonad$489" ) ) ) ( PropName "Bind1" ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing + ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] + ) :| [] ) ) :| [] ) @@ -253,45 +255,48 @@ UberModule ( ParamNamed Nothing ( Name "f$491" ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "a$492" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Local ( Name "bind$490" ) ) ) - ( Ref Nothing ( Local ( Name "f$491" ) ) ) + ( Ref Nothing ( Local ( Name "f$491" ) ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "f'$493" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Local ( Name "bind$490" ) ) ) - ( Ref Nothing ( Local ( Name "a$492" ) ) ) + ( Ref Nothing ( Local ( Name "a$492" ) ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "a'$494" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Control.Applicative" ) ( Name "pure" ) ) ) - ( App Nothing + ( AppN Nothing ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "dictMonad$489" ) ) ) ( PropName "Applicative0" ) ) ( Ref Nothing - ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) - ) + ( Imported + ( ModuleName "Prim" ) + ( Name "undefined" ) + ) :| [] + ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Local ( Name "f'$493" ) ) ) - ( Ref Nothing ( Local ( Name "a'$494" ) ) ) + ( Ref Nothing ( Local ( Name "a'$494" ) ) :| [] ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) ) ) @@ -307,14 +312,14 @@ UberModule ( ParamNamed Nothing ( Name "v$483" ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "s$484" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp Nothing - ( App Nothing + ( AppN Nothing ( ObjectProp Nothing - ( App Nothing + ( AppN Nothing ( ObjectProp Nothing - ( App Nothing + ( AppN Nothing ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "dictMonad" ) ) ) ( PropName "Bind1" ) @@ -323,48 +328,51 @@ UberModule ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) - ) + ) :| [] ) ) ( PropName "Apply0" ) ) ( Ref Nothing - ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) + ( Imported + ( ModuleName "Prim" ) + ( Name "undefined" ) + ) :| [] ) ) ( PropName "Functor0" ) ) ( Ref Nothing - ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) + ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ) ( PropName "map" ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "v1$485" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Tuple" ) ( Name "Tuple" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Local ( Name "f$482" ) ) ) ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "v1$485" ) ) ) - ( PropName "value0" ) - ) + ( PropName "value0" ) :| [] + ) :| [] ) ) ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "v1$485" ) ) ) - ( PropName "value1" ) + ( PropName "value1" ) :| [] ) - ) + ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Local ( Name "v$483" ) ) ) - ( Ref Nothing ( Local ( Name "s$484" ) ) ) + ( Ref Nothing ( Local ( Name "s$484" ) ) :| [] ) :| [] ) ) ) @@ -386,35 +394,37 @@ UberModule ( ParamNamed Nothing ( Name "a" ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "s" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Control.Applicative" ) ( Name "pure" ) ) ) - ( App Nothing + ( AppN Nothing ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "dictMonad" ) ) ) ( PropName "Applicative0" ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing + ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] + ) :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Tuple" ) ( Name "Tuple" ) ) ) - ( Ref Nothing ( Local ( Name "a" ) ) ) + ( Ref Nothing ( Local ( Name "a" ) ) :| [] ) ) - ( Ref Nothing ( Local ( Name "s" ) ) ) + ( Ref Nothing ( Local ( Name "s" ) ) :| [] ) :| [] ) ) ) ), ( PropName "Apply0", Abs Nothing ( ParamUnused Nothing ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Control.Monad.State.Trans" ) ( Name "applyStateT" ) ) ) - ( Ref Nothing ( Local ( Name "dictMonad" ) ) ) + ( Ref Nothing ( Local ( Name "dictMonad" ) ) :| [] ) ) ) ] @@ -424,18 +434,18 @@ UberModule ), Standalone ( QName { qnameModuleName = ModuleName "Golden.LongStateBind.Test", qnameName = Name "bindStateT" - }, App Nothing + }, AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Control.Monad.State.Trans" ) ( Name "bindStateT" ) ) ) - ( Ref Nothing ( Imported ( ModuleName "Data.Identity" ) ( Name "monadIdentity" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Data.Identity" ) ( Name "monadIdentity" ) ) :| [] ) ), Standalone ( QName { qnameModuleName = ModuleName "Golden.LongStateBind.Test", qnameName = Name "bind" - }, App Nothing + }, AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Control.Bind" ) ( Name "bind" ) ) ) ( Ref Nothing - ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "bindStateT" ) ) + ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "bindStateT" ) ) :| [] ) ), Standalone ( QName @@ -446,88 +456,98 @@ UberModule ( ParamNamed Nothing ( Name "f$27" ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x$503" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Control.Applicative" ) ( Name "pure" ) ) ) - ( App Nothing + ( AppN Nothing ( ObjectProp Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Identity" ) ( Name "monadIdentity" ) ) ) ( PropName "Applicative0" ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing + ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] + ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Local ( Name "f$27" ) ) ) - ( Ref Nothing ( Local ( Name "x$503" ) ) ) + ( Ref Nothing ( Local ( Name "x$503" ) ) :| [] ) :| [] ) ) ) ), ( PropName "Monad0", Abs Nothing ( ParamUnused Nothing ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Control.Monad.State.Trans" ) ( Name "monadStateT" ) ) ) - ( Ref Nothing ( Imported ( ModuleName "Data.Identity" ) ( Name "monadIdentity" ) ) ) + ( Ref Nothing + ( Imported ( ModuleName "Data.Identity" ) ( Name "monadIdentity" ) ) :| [] + ) ) ) ] ), Standalone ( QName { qnameModuleName = ModuleName "Golden.LongStateBind.Test", qnameName = Name "get" - }, App Nothing - ( App Nothing + }, AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Control.Monad.State.Class" ) ( Name "state" ) ) ) ( Ref Nothing - ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "monadStateStateT" ) ) + ( Imported + ( ModuleName "Golden.LongStateBind.Test" ) + ( Name "monadStateStateT" ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "s$54" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Tuple" ) ( Name "Tuple" ) ) ) - ( Ref Nothing ( Local ( Name "s$54" ) ) ) + ( Ref Nothing ( Local ( Name "s$54" ) ) :| [] ) ) - ( Ref Nothing ( Local ( Name "s$54" ) ) ) - ) + ( Ref Nothing ( Local ( Name "s$54" ) ) :| [] ) + ) :| [] ) ), Standalone ( QName { qnameModuleName = ModuleName "Golden.LongStateBind.Test", qnameName = Name "discard" - }, App Nothing + }, AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Control.Bind" ) ( Name "bind" ) ) ) ( Ref Nothing - ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "bindStateT" ) ) + ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "bindStateT" ) ) :| [] ) ), Standalone ( QName { qnameModuleName = ModuleName "Golden.LongStateBind.Test", qnameName = Name "put" }, Abs Nothing ( ParamNamed Nothing ( Name "s$57" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Control.Monad.State.Class" ) ( Name "state" ) ) ) ( Ref Nothing - ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "monadStateStateT" ) ) + ( Imported + ( ModuleName "Golden.LongStateBind.Test" ) + ( Name "monadStateStateT" ) + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Tuple" ) ( Name "Tuple" ) ) ) ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Data.Unit" ) ( Name "foreign" ) ) ) - ( PropName "unit" ) + ( PropName "unit" ) :| [] ) ) - ( Ref Nothing ( Local ( Name "s$57" ) ) ) - ) + ( Ref Nothing ( Local ( Name "s$57" ) ) :| [] ) + ) :| [] ) ) ), Standalone @@ -539,69 +559,72 @@ UberModule ( ParamNamed Nothing ( Name "x1$505" ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x100$506" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "bind" ) ) ) ( Ref Nothing - ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "get" ) ) + ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "get" ) ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x141" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "put" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Data.Semiring" ) ( Name "foreign" ) ) ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x141" ) ) ) + ( Ref Nothing ( Local ( Name "x141" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "bind" ) ) ) ( Ref Nothing - ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "get" ) ) + ( Imported + ( ModuleName "Golden.LongStateBind.Test" ) + ( Name "get" ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x142" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "put" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -611,15 +634,15 @@ UberModule ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x142" ) ) ) + ( Ref Nothing ( Local ( Name "x142" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) @@ -630,28 +653,28 @@ UberModule ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "get" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x143" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "put" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -661,15 +684,15 @@ UberModule ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x143" ) ) ) + ( Ref Nothing ( Local ( Name "x143" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) @@ -680,28 +703,28 @@ UberModule ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "get" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x144" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "put" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -711,15 +734,15 @@ UberModule ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x144" ) ) ) + ( Ref Nothing ( Local ( Name "x144" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) @@ -730,28 +753,28 @@ UberModule ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "get" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x145" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "put" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -762,16 +785,16 @@ UberModule ( PropName "intAdd" ) ) ( Ref Nothing - ( Local ( Name "x145" ) ) + ( Local ( Name "x145" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) @@ -782,28 +805,28 @@ UberModule ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "get" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x146" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "put" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -814,16 +837,18 @@ UberModule ( PropName "intAdd" ) ) ( Ref Nothing - ( Local ( Name "x146" ) ) + ( Local + ( Name "x146" ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) @@ -834,30 +859,30 @@ UberModule ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "get" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x147" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "put" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -870,16 +895,16 @@ UberModule ( Ref Nothing ( Local ( Name "x147" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) @@ -890,30 +915,30 @@ UberModule ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "get" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x148" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "put" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -926,16 +951,16 @@ UberModule ( Ref Nothing ( Local ( Name "x148" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) @@ -946,30 +971,30 @@ UberModule ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "get" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x149" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "put" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -982,16 +1007,16 @@ UberModule ( Ref Nothing ( Local ( Name "x149" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) @@ -1002,30 +1027,30 @@ UberModule ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "get" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x150" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "put" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -1038,16 +1063,16 @@ UberModule ( Ref Nothing ( Local ( Name "x150" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) @@ -1058,22 +1083,22 @@ UberModule ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "get" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "final" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Control.Applicative" ) ( Name "pure" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Control.Monad.State.Trans" ) @@ -1084,12 +1109,12 @@ UberModule ( Imported ( ModuleName "Data.Identity" ) ( Name "monadIdentity" ) - ) - ) + ) :| [] + ) :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -1099,8 +1124,8 @@ UberModule ) ( PropName "intAdd" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -1113,63 +1138,63 @@ UberModule ( Ref Nothing ( Local ( Name "x1$505" ) - ) + ) :| [] ) ) ( Ref Nothing ( Local ( Name "x100$506" ) - ) - ) + ) :| [] + ) :| [] ) ) ( Ref Nothing ( Local ( Name "final" ) - ) - ) + ) :| [] + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) ) ) @@ -1179,43 +1204,43 @@ UberModule ( ParamNamed Nothing ( Name "x1$508" ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x100$509" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "bind" ) ) ) ( Ref Nothing - ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "get" ) ) + ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "get" ) ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x121" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "put" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Data.Semiring" ) ( Name "foreign" ) ) ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x121" ) ) ) + ( Ref Nothing ( Local ( Name "x121" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) @@ -1223,28 +1248,31 @@ UberModule ) ) ( Ref Nothing - ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "get" ) ) + ( Imported + ( ModuleName "Golden.LongStateBind.Test" ) + ( Name "get" ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x122" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "put" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -1254,15 +1282,15 @@ UberModule ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x122" ) ) ) + ( Ref Nothing ( Local ( Name "x122" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) @@ -1273,28 +1301,28 @@ UberModule ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "get" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x123" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "put" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -1304,15 +1332,15 @@ UberModule ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x123" ) ) ) + ( Ref Nothing ( Local ( Name "x123" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) @@ -1323,28 +1351,28 @@ UberModule ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "get" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x124" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "put" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -1354,15 +1382,17 @@ UberModule ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x124" ) ) ) + ( Ref Nothing + ( Local ( Name "x124" ) ) :| [] + ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) @@ -1373,28 +1403,28 @@ UberModule ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "get" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x125" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "put" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -1405,16 +1435,16 @@ UberModule ( PropName "intAdd" ) ) ( Ref Nothing - ( Local ( Name "x125" ) ) + ( Local ( Name "x125" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) @@ -1425,28 +1455,28 @@ UberModule ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "get" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x126" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "put" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -1457,16 +1487,18 @@ UberModule ( PropName "intAdd" ) ) ( Ref Nothing - ( Local ( Name "x126" ) ) + ( Local + ( Name "x126" ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) @@ -1477,30 +1509,30 @@ UberModule ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "get" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x127" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "put" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -1513,16 +1545,16 @@ UberModule ( Ref Nothing ( Local ( Name "x127" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) @@ -1533,30 +1565,30 @@ UberModule ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "get" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x128" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "put" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -1569,16 +1601,16 @@ UberModule ( Ref Nothing ( Local ( Name "x128" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) @@ -1589,30 +1621,30 @@ UberModule ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "get" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x129" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "put" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -1625,16 +1657,16 @@ UberModule ( Ref Nothing ( Local ( Name "x129" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) @@ -1645,30 +1677,30 @@ UberModule ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "get" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x130" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "put" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -1681,16 +1713,16 @@ UberModule ( Ref Nothing ( Local ( Name "x130" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) @@ -1701,30 +1733,30 @@ UberModule ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "get" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x131" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "put" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -1737,16 +1769,16 @@ UberModule ( Ref Nothing ( Local ( Name "x131" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) @@ -1757,30 +1789,30 @@ UberModule ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "get" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x132" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "put" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -1793,16 +1825,16 @@ UberModule ( Ref Nothing ( Local ( Name "x132" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) @@ -1813,30 +1845,30 @@ UberModule ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "get" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x133" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "put" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -1849,16 +1881,16 @@ UberModule ( Ref Nothing ( Local ( Name "x133" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) @@ -1869,30 +1901,30 @@ UberModule ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "get" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x134" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "put" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -1905,16 +1937,16 @@ UberModule ( Ref Nothing ( Local ( Name "x134" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) @@ -1925,30 +1957,30 @@ UberModule ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "get" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x135" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "put" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -1961,16 +1993,16 @@ UberModule ( Ref Nothing ( Local ( Name "x135" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) @@ -1981,30 +2013,30 @@ UberModule ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "get" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x136" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "put" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -2017,16 +2049,16 @@ UberModule ( Ref Nothing ( Local ( Name "x136" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) @@ -2037,30 +2069,30 @@ UberModule ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "get" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x137" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "put" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -2073,16 +2105,16 @@ UberModule ( Ref Nothing ( Local ( Name "x137" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) @@ -2093,30 +2125,30 @@ UberModule ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "get" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x138" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "put" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -2129,16 +2161,16 @@ UberModule ( Ref Nothing ( Local ( Name "x138" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) @@ -2149,30 +2181,30 @@ UberModule ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "get" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x139" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "put" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -2185,16 +2217,16 @@ UberModule ( Ref Nothing ( Local ( Name "x139" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) @@ -2205,30 +2237,30 @@ UberModule ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "get" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x140" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "put" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -2241,16 +2273,16 @@ UberModule ( Ref Nothing ( Local ( Name "x140" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Local ( Name "$kont504" ) @@ -2259,93 +2291,93 @@ UberModule ( Ref Nothing ( Local ( Name "x1$508" ) - ) + ) :| [] ) ) ( Ref Nothing ( Local ( Name "x100$509" ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) ) ) @@ -2354,43 +2386,43 @@ UberModule ( ParamNamed Nothing ( Name "x1$511" ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x100$512" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "bind" ) ) ) ( Ref Nothing - ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "get" ) ) + ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "get" ) ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x101" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "put" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Data.Semiring" ) ( Name "foreign" ) ) ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x101" ) ) ) + ( Ref Nothing ( Local ( Name "x101" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) @@ -2398,28 +2430,31 @@ UberModule ) ) ( Ref Nothing - ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "get" ) ) + ( Imported + ( ModuleName "Golden.LongStateBind.Test" ) + ( Name "get" ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x102" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "put" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -2429,15 +2464,15 @@ UberModule ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x102" ) ) ) + ( Ref Nothing ( Local ( Name "x102" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) @@ -2448,28 +2483,28 @@ UberModule ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "get" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x103" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "put" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -2479,15 +2514,15 @@ UberModule ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x103" ) ) ) + ( Ref Nothing ( Local ( Name "x103" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) @@ -2498,28 +2533,28 @@ UberModule ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "get" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x104" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "put" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -2529,15 +2564,17 @@ UberModule ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x104" ) ) ) + ( Ref Nothing + ( Local ( Name "x104" ) ) :| [] + ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) @@ -2548,28 +2585,28 @@ UberModule ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "get" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x105" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "put" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -2580,16 +2617,16 @@ UberModule ( PropName "intAdd" ) ) ( Ref Nothing - ( Local ( Name "x105" ) ) + ( Local ( Name "x105" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) @@ -2600,28 +2637,28 @@ UberModule ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "get" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x106" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "put" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -2632,16 +2669,18 @@ UberModule ( PropName "intAdd" ) ) ( Ref Nothing - ( Local ( Name "x106" ) ) + ( Local + ( Name "x106" ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) @@ -2652,30 +2691,30 @@ UberModule ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "get" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x107" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "put" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -2688,16 +2727,16 @@ UberModule ( Ref Nothing ( Local ( Name "x107" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) @@ -2708,30 +2747,30 @@ UberModule ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "get" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x108" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "put" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -2744,16 +2783,16 @@ UberModule ( Ref Nothing ( Local ( Name "x108" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) @@ -2764,30 +2803,30 @@ UberModule ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "get" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x109" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "put" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -2800,16 +2839,16 @@ UberModule ( Ref Nothing ( Local ( Name "x109" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) @@ -2820,30 +2859,30 @@ UberModule ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "get" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x110" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "put" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -2856,16 +2895,16 @@ UberModule ( Ref Nothing ( Local ( Name "x110" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) @@ -2876,30 +2915,30 @@ UberModule ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "get" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x111" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "put" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -2912,16 +2951,16 @@ UberModule ( Ref Nothing ( Local ( Name "x111" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) @@ -2932,30 +2971,30 @@ UberModule ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "get" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x112" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "put" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -2968,16 +3007,16 @@ UberModule ( Ref Nothing ( Local ( Name "x112" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) @@ -2988,30 +3027,30 @@ UberModule ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "get" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x113" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "put" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -3024,16 +3063,16 @@ UberModule ( Ref Nothing ( Local ( Name "x113" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) @@ -3044,30 +3083,30 @@ UberModule ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "get" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x114" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "put" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -3080,16 +3119,16 @@ UberModule ( Ref Nothing ( Local ( Name "x114" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) @@ -3100,30 +3139,30 @@ UberModule ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "get" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x115" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "put" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -3136,16 +3175,16 @@ UberModule ( Ref Nothing ( Local ( Name "x115" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) @@ -3156,30 +3195,30 @@ UberModule ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "get" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x116" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "put" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -3192,16 +3231,16 @@ UberModule ( Ref Nothing ( Local ( Name "x116" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) @@ -3212,30 +3251,30 @@ UberModule ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "get" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x117" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "put" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -3248,16 +3287,16 @@ UberModule ( Ref Nothing ( Local ( Name "x117" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) @@ -3268,30 +3307,30 @@ UberModule ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "get" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x118" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "put" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -3304,16 +3343,16 @@ UberModule ( Ref Nothing ( Local ( Name "x118" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) @@ -3324,30 +3363,30 @@ UberModule ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "get" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x119" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "put" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -3360,16 +3399,16 @@ UberModule ( Ref Nothing ( Local ( Name "x119" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) @@ -3380,30 +3419,30 @@ UberModule ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "get" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x120" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "put" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -3416,16 +3455,16 @@ UberModule ( Ref Nothing ( Local ( Name "x120" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Local ( Name "$kont507" ) @@ -3434,162 +3473,165 @@ UberModule ( Ref Nothing ( Local ( Name "x1$511" ) - ) + ) :| [] ) ) ( Ref Nothing ( Local ( Name "x100$512" ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) ) ) ), Standalone ( Nothing, Name "$kont513", Abs Nothing ( ParamNamed Nothing ( Name "x1$514" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "bind" ) ) ) ( Ref Nothing - ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "get" ) ) + ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "get" ) ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x81" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "put" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Data.Semiring" ) ( Name "foreign" ) ) ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x81" ) ) ) + ( Ref Nothing ( Local ( Name "x81" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "bind" ) ) ) ( Ref Nothing - ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "get" ) ) + ( Imported + ( ModuleName "Golden.LongStateBind.Test" ) + ( Name "get" ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x82" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "put" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -3599,15 +3641,15 @@ UberModule ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x82" ) ) ) + ( Ref Nothing ( Local ( Name "x82" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) @@ -3618,28 +3660,28 @@ UberModule ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "get" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x83" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "put" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -3649,15 +3691,15 @@ UberModule ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x83" ) ) ) + ( Ref Nothing ( Local ( Name "x83" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) @@ -3668,28 +3710,28 @@ UberModule ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "get" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x84" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "put" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -3699,15 +3741,15 @@ UberModule ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x84" ) ) ) + ( Ref Nothing ( Local ( Name "x84" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) @@ -3718,28 +3760,28 @@ UberModule ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "get" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x85" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "put" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -3749,15 +3791,17 @@ UberModule ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x85" ) ) ) + ( Ref Nothing + ( Local ( Name "x85" ) ) :| [] + ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) @@ -3768,28 +3812,28 @@ UberModule ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "get" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x86" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "put" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -3800,16 +3844,16 @@ UberModule ( PropName "intAdd" ) ) ( Ref Nothing - ( Local ( Name "x86" ) ) + ( Local ( Name "x86" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) @@ -3820,30 +3864,30 @@ UberModule ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "get" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x87" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "put" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -3856,16 +3900,16 @@ UberModule ( Ref Nothing ( Local ( Name "x87" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) @@ -3876,30 +3920,30 @@ UberModule ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "get" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x88" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "put" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -3912,16 +3956,16 @@ UberModule ( Ref Nothing ( Local ( Name "x88" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) @@ -3932,30 +3976,30 @@ UberModule ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "get" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x89" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "put" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -3968,16 +4012,16 @@ UberModule ( Ref Nothing ( Local ( Name "x89" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) @@ -3988,30 +4032,30 @@ UberModule ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "get" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x90" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "put" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -4024,16 +4068,16 @@ UberModule ( Ref Nothing ( Local ( Name "x90" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) @@ -4044,30 +4088,30 @@ UberModule ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "get" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x91" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "put" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -4080,16 +4124,16 @@ UberModule ( Ref Nothing ( Local ( Name "x91" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) @@ -4100,30 +4144,30 @@ UberModule ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "get" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x92" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "put" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -4136,16 +4180,16 @@ UberModule ( Ref Nothing ( Local ( Name "x92" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) @@ -4156,30 +4200,30 @@ UberModule ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "get" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x93" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "put" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -4192,16 +4236,16 @@ UberModule ( Ref Nothing ( Local ( Name "x93" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) @@ -4212,30 +4256,30 @@ UberModule ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "get" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x94" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "put" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -4248,16 +4292,16 @@ UberModule ( Ref Nothing ( Local ( Name "x94" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) @@ -4268,30 +4312,30 @@ UberModule ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "get" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x95" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "put" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -4304,16 +4348,16 @@ UberModule ( Ref Nothing ( Local ( Name "x95" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) @@ -4324,30 +4368,30 @@ UberModule ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "get" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x96" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "put" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -4360,16 +4404,16 @@ UberModule ( Ref Nothing ( Local ( Name "x96" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) @@ -4380,30 +4424,30 @@ UberModule ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "get" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x97" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "put" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -4416,16 +4460,16 @@ UberModule ( Ref Nothing ( Local ( Name "x97" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) @@ -4436,30 +4480,30 @@ UberModule ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "get" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x98" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "put" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -4472,16 +4516,16 @@ UberModule ( Ref Nothing ( Local ( Name "x98" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) @@ -4492,30 +4536,30 @@ UberModule ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "get" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x99" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "put" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -4528,16 +4572,16 @@ UberModule ( Ref Nothing ( Local ( Name "x99" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) @@ -4548,30 +4592,30 @@ UberModule ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "get" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x100" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "put" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -4584,16 +4628,16 @@ UberModule ( Ref Nothing ( Local ( Name "x100" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Local ( Name "$kont510" ) @@ -4602,161 +4646,164 @@ UberModule ( Ref Nothing ( Local ( Name "x1$514" ) - ) + ) :| [] ) ) ( Ref Nothing ( Local ( Name "x100" ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) ) ), Standalone ( Nothing, Name "$kont515", Abs Nothing ( ParamNamed Nothing ( Name "x1$516" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "bind" ) ) ) ( Ref Nothing - ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "get" ) ) + ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "get" ) ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x61" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "put" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Data.Semiring" ) ( Name "foreign" ) ) ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x61" ) ) ) + ( Ref Nothing ( Local ( Name "x61" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "bind" ) ) ) ( Ref Nothing - ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "get" ) ) + ( Imported + ( ModuleName "Golden.LongStateBind.Test" ) + ( Name "get" ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x62" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "put" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -4766,15 +4813,15 @@ UberModule ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x62" ) ) ) + ( Ref Nothing ( Local ( Name "x62" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) @@ -4785,28 +4832,28 @@ UberModule ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "get" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x63" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "put" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -4816,15 +4863,15 @@ UberModule ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x63" ) ) ) + ( Ref Nothing ( Local ( Name "x63" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) @@ -4835,28 +4882,28 @@ UberModule ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "get" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x64" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "put" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -4866,15 +4913,15 @@ UberModule ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x64" ) ) ) + ( Ref Nothing ( Local ( Name "x64" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) @@ -4885,28 +4932,28 @@ UberModule ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "get" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x65" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "put" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -4916,15 +4963,17 @@ UberModule ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x65" ) ) ) + ( Ref Nothing + ( Local ( Name "x65" ) ) :| [] + ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) @@ -4935,28 +4984,28 @@ UberModule ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "get" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x66" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "put" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -4967,16 +5016,16 @@ UberModule ( PropName "intAdd" ) ) ( Ref Nothing - ( Local ( Name "x66" ) ) + ( Local ( Name "x66" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) @@ -4987,30 +5036,30 @@ UberModule ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "get" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x67" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "put" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -5023,16 +5072,16 @@ UberModule ( Ref Nothing ( Local ( Name "x67" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) @@ -5043,30 +5092,30 @@ UberModule ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "get" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x68" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "put" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -5079,16 +5128,16 @@ UberModule ( Ref Nothing ( Local ( Name "x68" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) @@ -5099,30 +5148,30 @@ UberModule ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "get" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x69" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "put" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -5135,16 +5184,16 @@ UberModule ( Ref Nothing ( Local ( Name "x69" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) @@ -5155,30 +5204,30 @@ UberModule ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "get" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x70" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "put" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -5191,16 +5240,16 @@ UberModule ( Ref Nothing ( Local ( Name "x70" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) @@ -5211,30 +5260,30 @@ UberModule ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "get" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x71" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "put" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -5247,16 +5296,16 @@ UberModule ( Ref Nothing ( Local ( Name "x71" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) @@ -5267,30 +5316,30 @@ UberModule ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "get" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x72" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "put" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -5303,16 +5352,16 @@ UberModule ( Ref Nothing ( Local ( Name "x72" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) @@ -5323,30 +5372,30 @@ UberModule ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "get" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x73" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "put" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -5359,16 +5408,16 @@ UberModule ( Ref Nothing ( Local ( Name "x73" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) @@ -5379,30 +5428,30 @@ UberModule ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "get" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x74" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "put" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -5415,16 +5464,16 @@ UberModule ( Ref Nothing ( Local ( Name "x74" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) @@ -5435,30 +5484,30 @@ UberModule ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "get" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x75" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "put" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -5471,16 +5520,16 @@ UberModule ( Ref Nothing ( Local ( Name "x75" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) @@ -5491,30 +5540,30 @@ UberModule ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "get" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x76" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "put" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -5527,16 +5576,16 @@ UberModule ( Ref Nothing ( Local ( Name "x76" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) @@ -5547,30 +5596,30 @@ UberModule ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "get" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x77" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "put" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -5583,16 +5632,16 @@ UberModule ( Ref Nothing ( Local ( Name "x77" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) @@ -5603,30 +5652,30 @@ UberModule ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "get" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x78" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "put" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -5639,16 +5688,16 @@ UberModule ( Ref Nothing ( Local ( Name "x78" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) @@ -5659,30 +5708,30 @@ UberModule ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "get" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x79" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "put" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -5695,16 +5744,16 @@ UberModule ( Ref Nothing ( Local ( Name "x79" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) @@ -5715,30 +5764,30 @@ UberModule ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "get" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x80" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "put" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -5751,15 +5800,15 @@ UberModule ( Ref Nothing ( Local ( Name "x80" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Local ( Name "$kont513" ) @@ -5768,155 +5817,158 @@ UberModule ( Ref Nothing ( Local ( Name "x1$516" ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) ) ), Standalone ( Nothing, Name "$kont517", Abs Nothing ( ParamNamed Nothing ( Name "x1$518" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "bind" ) ) ) ( Ref Nothing - ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "get" ) ) + ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "get" ) ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x41" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "put" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Data.Semiring" ) ( Name "foreign" ) ) ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x41" ) ) ) + ( Ref Nothing ( Local ( Name "x41" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "bind" ) ) ) ( Ref Nothing - ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "get" ) ) + ( Imported + ( ModuleName "Golden.LongStateBind.Test" ) + ( Name "get" ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x42" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "put" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -5926,15 +5978,15 @@ UberModule ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x42" ) ) ) + ( Ref Nothing ( Local ( Name "x42" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) @@ -5945,28 +5997,28 @@ UberModule ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "get" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x43" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "put" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -5976,15 +6028,15 @@ UberModule ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x43" ) ) ) + ( Ref Nothing ( Local ( Name "x43" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) @@ -5995,28 +6047,28 @@ UberModule ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "get" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x44" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "put" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -6026,15 +6078,15 @@ UberModule ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x44" ) ) ) + ( Ref Nothing ( Local ( Name "x44" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) @@ -6045,28 +6097,28 @@ UberModule ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "get" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x45" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "put" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -6076,15 +6128,17 @@ UberModule ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x45" ) ) ) + ( Ref Nothing + ( Local ( Name "x45" ) ) :| [] + ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) @@ -6095,28 +6149,28 @@ UberModule ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "get" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x46" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "put" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -6127,16 +6181,16 @@ UberModule ( PropName "intAdd" ) ) ( Ref Nothing - ( Local ( Name "x46" ) ) + ( Local ( Name "x46" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) @@ -6147,30 +6201,30 @@ UberModule ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "get" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x47" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "put" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -6183,16 +6237,16 @@ UberModule ( Ref Nothing ( Local ( Name "x47" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) @@ -6203,30 +6257,30 @@ UberModule ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "get" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x48" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "put" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -6239,16 +6293,16 @@ UberModule ( Ref Nothing ( Local ( Name "x48" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) @@ -6259,30 +6313,30 @@ UberModule ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "get" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x49" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "put" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -6295,16 +6349,16 @@ UberModule ( Ref Nothing ( Local ( Name "x49" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) @@ -6315,30 +6369,30 @@ UberModule ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "get" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x50" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "put" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -6351,16 +6405,16 @@ UberModule ( Ref Nothing ( Local ( Name "x50" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) @@ -6371,30 +6425,30 @@ UberModule ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "get" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x51" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "put" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -6407,16 +6461,16 @@ UberModule ( Ref Nothing ( Local ( Name "x51" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) @@ -6427,30 +6481,30 @@ UberModule ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "get" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x52" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "put" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -6463,16 +6517,16 @@ UberModule ( Ref Nothing ( Local ( Name "x52" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) @@ -6483,30 +6537,30 @@ UberModule ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "get" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x53" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "put" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -6519,16 +6573,16 @@ UberModule ( Ref Nothing ( Local ( Name "x53" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) @@ -6539,30 +6593,30 @@ UberModule ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "get" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x54" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "put" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -6575,16 +6629,16 @@ UberModule ( Ref Nothing ( Local ( Name "x54" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) @@ -6595,30 +6649,30 @@ UberModule ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "get" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x55" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "put" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -6631,16 +6685,16 @@ UberModule ( Ref Nothing ( Local ( Name "x55" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) @@ -6651,30 +6705,30 @@ UberModule ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "get" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x56" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "put" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -6687,16 +6741,16 @@ UberModule ( Ref Nothing ( Local ( Name "x56" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) @@ -6707,30 +6761,30 @@ UberModule ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "get" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x57" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "put" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -6743,16 +6797,16 @@ UberModule ( Ref Nothing ( Local ( Name "x57" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) @@ -6763,30 +6817,30 @@ UberModule ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "get" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x58" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "put" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -6799,16 +6853,16 @@ UberModule ( Ref Nothing ( Local ( Name "x58" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) @@ -6819,30 +6873,30 @@ UberModule ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "get" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x59" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "put" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -6855,16 +6909,16 @@ UberModule ( Ref Nothing ( Local ( Name "x59" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) @@ -6875,30 +6929,30 @@ UberModule ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "get" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x60" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "put" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -6911,15 +6965,15 @@ UberModule ( Ref Nothing ( Local ( Name "x60" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Local ( Name "$kont515" ) @@ -6928,155 +6982,158 @@ UberModule ( Ref Nothing ( Local ( Name "x1$518" ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) ) ), Standalone ( Nothing, Name "$kont519", Abs Nothing ( ParamNamed Nothing ( Name "x1$520" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "bind" ) ) ) ( Ref Nothing - ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "get" ) ) + ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "get" ) ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x21" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "put" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Data.Semiring" ) ( Name "foreign" ) ) ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x21" ) ) ) + ( Ref Nothing ( Local ( Name "x21" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "bind" ) ) ) ( Ref Nothing - ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "get" ) ) + ( Imported + ( ModuleName "Golden.LongStateBind.Test" ) + ( Name "get" ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x22" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "put" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -7086,15 +7143,15 @@ UberModule ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x22" ) ) ) + ( Ref Nothing ( Local ( Name "x22" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) @@ -7105,28 +7162,28 @@ UberModule ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "get" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x23" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "put" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -7136,15 +7193,15 @@ UberModule ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x23" ) ) ) + ( Ref Nothing ( Local ( Name "x23" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) @@ -7155,28 +7212,28 @@ UberModule ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "get" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x24" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "put" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -7186,15 +7243,15 @@ UberModule ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x24" ) ) ) + ( Ref Nothing ( Local ( Name "x24" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) @@ -7205,28 +7262,28 @@ UberModule ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "get" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x25" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "put" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -7236,15 +7293,17 @@ UberModule ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x25" ) ) ) + ( Ref Nothing + ( Local ( Name "x25" ) ) :| [] + ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) @@ -7255,28 +7314,28 @@ UberModule ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "get" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x26" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "put" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -7287,16 +7346,16 @@ UberModule ( PropName "intAdd" ) ) ( Ref Nothing - ( Local ( Name "x26" ) ) + ( Local ( Name "x26" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) @@ -7307,30 +7366,30 @@ UberModule ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "get" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x27" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "put" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -7343,16 +7402,16 @@ UberModule ( Ref Nothing ( Local ( Name "x27" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) @@ -7363,30 +7422,30 @@ UberModule ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "get" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x28" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "put" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -7399,16 +7458,16 @@ UberModule ( Ref Nothing ( Local ( Name "x28" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) @@ -7419,30 +7478,30 @@ UberModule ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "get" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x29" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "put" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -7455,16 +7514,16 @@ UberModule ( Ref Nothing ( Local ( Name "x29" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) @@ -7475,30 +7534,30 @@ UberModule ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "get" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x30" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "put" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -7511,16 +7570,16 @@ UberModule ( Ref Nothing ( Local ( Name "x30" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) @@ -7531,30 +7590,30 @@ UberModule ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "get" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x31" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "put" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -7567,16 +7626,16 @@ UberModule ( Ref Nothing ( Local ( Name "x31" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) @@ -7587,30 +7646,30 @@ UberModule ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "get" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x32" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "put" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -7623,16 +7682,16 @@ UberModule ( Ref Nothing ( Local ( Name "x32" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) @@ -7643,30 +7702,30 @@ UberModule ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "get" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x33" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "put" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -7679,16 +7738,16 @@ UberModule ( Ref Nothing ( Local ( Name "x33" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) @@ -7699,30 +7758,30 @@ UberModule ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "get" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x34" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "put" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -7735,16 +7794,16 @@ UberModule ( Ref Nothing ( Local ( Name "x34" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) @@ -7755,30 +7814,30 @@ UberModule ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "get" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x35" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "put" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -7791,16 +7850,16 @@ UberModule ( Ref Nothing ( Local ( Name "x35" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) @@ -7811,30 +7870,30 @@ UberModule ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "get" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x36" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "put" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -7847,16 +7906,16 @@ UberModule ( Ref Nothing ( Local ( Name "x36" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) @@ -7867,30 +7926,30 @@ UberModule ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "get" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x37" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "put" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -7903,16 +7962,16 @@ UberModule ( Ref Nothing ( Local ( Name "x37" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) @@ -7923,30 +7982,30 @@ UberModule ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "get" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x38" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "put" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -7959,16 +8018,16 @@ UberModule ( Ref Nothing ( Local ( Name "x38" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) @@ -7979,30 +8038,30 @@ UberModule ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "get" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x39" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "put" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -8015,16 +8074,16 @@ UberModule ( Ref Nothing ( Local ( Name "x39" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) @@ -8035,30 +8094,30 @@ UberModule ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "get" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x40" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "put" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -8071,15 +8130,15 @@ UberModule ( Ref Nothing ( Local ( Name "x40" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Local ( Name "$kont517" ) @@ -8088,160 +8147,162 @@ UberModule ( Ref Nothing ( Local ( Name "x1$520" ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) ) ) ] ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "bind" ) ) ) - ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "get" ) ) ) + ( Ref Nothing + ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "get" ) ) :| [] + ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x1" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "put" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Data.Semiring" ) ( Name "foreign" ) ) ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x1" ) ) ) + ( Ref Nothing ( Local ( Name "x1" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "bind" ) ) ) ( Ref Nothing - ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "get" ) ) + ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "get" ) ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x2" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "put" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Data.Semiring" ) ( Name "foreign" ) ) ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x2" ) ) ) + ( Ref Nothing ( Local ( Name "x2" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) @@ -8249,28 +8310,31 @@ UberModule ) ) ( Ref Nothing - ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "get" ) ) + ( Imported + ( ModuleName "Golden.LongStateBind.Test" ) + ( Name "get" ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x3" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "put" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -8280,15 +8344,15 @@ UberModule ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x3" ) ) ) + ( Ref Nothing ( Local ( Name "x3" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) @@ -8299,28 +8363,28 @@ UberModule ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "get" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x4" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "put" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -8330,15 +8394,15 @@ UberModule ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x4" ) ) ) + ( Ref Nothing ( Local ( Name "x4" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) @@ -8349,28 +8413,28 @@ UberModule ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "get" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x5" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "put" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -8380,15 +8444,15 @@ UberModule ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x5" ) ) ) + ( Ref Nothing ( Local ( Name "x5" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) @@ -8399,28 +8463,28 @@ UberModule ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "get" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x6" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "put" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -8431,16 +8495,16 @@ UberModule ( PropName "intAdd" ) ) ( Ref Nothing - ( Local ( Name "x6" ) ) + ( Local ( Name "x6" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) @@ -8451,28 +8515,28 @@ UberModule ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "get" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x7" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "put" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -8483,16 +8547,18 @@ UberModule ( PropName "intAdd" ) ) ( Ref Nothing - ( Local ( Name "x7" ) ) + ( Local + ( Name "x7" ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) @@ -8503,30 +8569,30 @@ UberModule ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "get" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x8" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "put" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -8539,16 +8605,16 @@ UberModule ( Ref Nothing ( Local ( Name "x8" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) @@ -8559,30 +8625,30 @@ UberModule ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "get" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x9" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "put" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -8595,16 +8661,16 @@ UberModule ( Ref Nothing ( Local ( Name "x9" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) @@ -8615,30 +8681,30 @@ UberModule ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "get" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x10" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "put" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -8651,16 +8717,16 @@ UberModule ( Ref Nothing ( Local ( Name "x10" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) @@ -8671,30 +8737,30 @@ UberModule ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "get" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x11" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "put" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -8707,16 +8773,16 @@ UberModule ( Ref Nothing ( Local ( Name "x11" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) @@ -8727,30 +8793,30 @@ UberModule ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "get" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x12" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "put" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -8763,16 +8829,16 @@ UberModule ( Ref Nothing ( Local ( Name "x12" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) @@ -8783,30 +8849,30 @@ UberModule ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "get" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x13" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "put" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -8819,16 +8885,16 @@ UberModule ( Ref Nothing ( Local ( Name "x13" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) @@ -8839,30 +8905,30 @@ UberModule ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "get" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x14" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "put" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -8875,16 +8941,16 @@ UberModule ( Ref Nothing ( Local ( Name "x14" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) @@ -8895,30 +8961,30 @@ UberModule ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "get" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x15" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "put" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -8931,16 +8997,16 @@ UberModule ( Ref Nothing ( Local ( Name "x15" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) @@ -8951,30 +9017,30 @@ UberModule ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "get" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x16" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "put" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -8987,16 +9053,16 @@ UberModule ( Ref Nothing ( Local ( Name "x16" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) @@ -9007,30 +9073,30 @@ UberModule ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "get" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x17" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "put" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -9043,16 +9109,16 @@ UberModule ( Ref Nothing ( Local ( Name "x17" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) @@ -9063,30 +9129,30 @@ UberModule ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "get" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x18" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "put" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -9099,16 +9165,16 @@ UberModule ( Ref Nothing ( Local ( Name "x18" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) @@ -9119,30 +9185,30 @@ UberModule ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "get" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x19" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "put" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -9155,16 +9221,16 @@ UberModule ( Ref Nothing ( Local ( Name "x19" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) @@ -9175,30 +9241,30 @@ UberModule ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "get" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x20" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "put" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -9211,15 +9277,15 @@ UberModule ( Ref Nothing ( Local ( Name "x20" ) - ) + ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Local ( Name "$kont519" ) @@ -9228,96 +9294,96 @@ UberModule ( Ref Nothing ( Local ( Name "x1" ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) ) ), Standalone ( QName { qnameModuleName = ModuleName "Golden.LongStateBind.Test", qnameName = Name "compute" }, ObjectProp Nothing - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "go" ) ) ) - ( LiteralInt Nothing 0 ) + ( LiteralInt Nothing 0 :| [] ) ) ( PropName "value0" ) ) @@ -9329,17 +9395,19 @@ UberModule ( Name "compute", Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "compute" ) ) ), - ( Name "main", App Nothing + ( Name "main", AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) - ( App Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Data.Show" ) ( Name "foreign" ) ) ) ( PropName "showIntImpl" ) ) - ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "compute" ) ) ) + ( Ref Nothing + ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "compute" ) ) :| [] + ) :| [] ) ) ] diff --git a/test/ps/output/Golden.LongWriterBind.Test/golden.ir b/test/ps/output/Golden.LongWriterBind.Test/golden.ir index fa2efd4f..d9588b4b 100644 --- a/test/ps/output/Golden.LongWriterBind.Test/golden.ir +++ b/test/ps/output/Golden.LongWriterBind.Test/golden.ir @@ -41,11 +41,11 @@ UberModule ( ParamNamed Nothing ( Name "g" ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x" ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Local ( Name "f" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Local ( Name "g" ) ) ) - ( Ref Nothing ( Local ( Name "x" ) ) ) + ( Ref Nothing ( Local ( Name "x" ) ) :| [] ) :| [] ) ) ) @@ -116,9 +116,9 @@ UberModule ( ParamNamed Nothing ( Name "v" ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "v1" ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Local ( Name "v" ) ) ) - ( Ref Nothing ( Local ( Name "v1" ) ) ) + ( Ref Nothing ( Local ( Name "v1" ) ) :| [] ) ) ) ), @@ -129,9 +129,9 @@ UberModule ( ParamNamed Nothing ( Name "f$468" ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "m$469" ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Local ( Name "f$468" ) ) ) - ( Ref Nothing ( Local ( Name "m$469" ) ) ) + ( Ref Nothing ( Local ( Name "m$469" ) ) :| [] ) ) ) ) @@ -148,9 +148,9 @@ UberModule ( ParamNamed Nothing ( Name "v" ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "f" ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Local ( Name "f" ) ) ) - ( Ref Nothing ( Local ( Name "v" ) ) ) + ( Ref Nothing ( Local ( Name "v" ) ) :| [] ) ) ) ), @@ -174,9 +174,11 @@ UberModule ), Standalone ( QName { qnameModuleName = ModuleName "Control.Monad.Writer.Trans", qnameName = Name "compose" - }, App Nothing + }, AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Control.Semigroupoid" ) ( Name "compose" ) ) ) - ( Ref Nothing ( Imported ( ModuleName "Control.Semigroupoid" ) ( Name "semigroupoidFn" ) ) ) + ( Ref Nothing + ( Imported ( ModuleName "Control.Semigroupoid" ) ( Name "semigroupoidFn" ) ) :| [] + ) ), Standalone ( QName { qnameModuleName = ModuleName "Control.Monad.Writer.Trans", qnameName = Name "applyWriterT" @@ -186,12 +188,12 @@ UberModule ( ParamNamed Nothing ( Name "dictApply" ) ) ( Let Nothing ( Standalone - ( Nothing, Name "Functor0", App Nothing + ( Nothing, Name "Functor0", AppN Nothing ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "dictApply" ) ) ) ( PropName "Functor0" ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ) :| [] ) ( LiteralObject Nothing @@ -200,69 +202,69 @@ UberModule ( ParamNamed Nothing ( Name "v" ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "v1" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "dictApply" ) ) ) ( PropName "apply" ) ) - ( App Nothing - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Functor" ) ( Name "map" ) ) ) - ( Ref Nothing ( Local ( Name "Functor0" ) ) ) + ( Ref Nothing ( Local ( Name "Functor0" ) ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "v3$33" ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "v4$34" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Tuple" ) ( Name "Tuple" ) ) ) - ( App Nothing + ( AppN Nothing ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "v3$33" ) ) ) ( PropName "value0" ) ) ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "v4$34" ) ) ) - ( PropName "value0" ) - ) + ( PropName "value0" ) :| [] + ) :| [] ) ) - ( App Nothing - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Semigroup" ) ( Name "append" ) ) ) - ( Ref Nothing ( Local ( Name "dictSemigroup" ) ) ) + ( Ref Nothing ( Local ( Name "dictSemigroup" ) ) :| [] ) ) ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "v3$33" ) ) ) - ( PropName "value1" ) + ( PropName "value1" ) :| [] ) ) ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "v4$34" ) ) ) - ( PropName "value1" ) - ) + ( PropName "value1" ) :| [] + ) :| [] ) ) - ) + ) :| [] ) ) - ( Ref Nothing ( Local ( Name "v" ) ) ) + ( Ref Nothing ( Local ( Name "v" ) ) :| [] ) :| [] ) ) - ( Ref Nothing ( Local ( Name "v1" ) ) ) + ( Ref Nothing ( Local ( Name "v1" ) ) :| [] ) ) ) ), @@ -273,37 +275,37 @@ UberModule ( ParamNamed Nothing ( Name "f$463" ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "v$466" ) ) - ( App Nothing - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Functor" ) ( Name "map" ) ) ) - ( Ref Nothing ( Local ( Name "Functor0" ) ) ) + ( Ref Nothing ( Local ( Name "Functor0" ) ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "v$464" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Tuple" ) ( Name "Tuple" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Local ( Name "f$463" ) ) ) ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "v$464" ) ) ) - ( PropName "value0" ) - ) + ( PropName "value0" ) :| [] + ) :| [] ) ) ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "v$464" ) ) ) - ( PropName "value1" ) + ( PropName "value1" ) :| [] ) - ) + ) :| [] ) ) - ( Ref Nothing ( Local ( Name "v$466" ) ) ) + ( Ref Nothing ( Local ( Name "v$466" ) ) :| [] ) ) ) ) @@ -323,12 +325,12 @@ UberModule ( ParamNamed Nothing ( Name "dictBind" ) ) ( Let Nothing ( Standalone - ( Nothing, Name "Apply0", App Nothing + ( Nothing, Name "Apply0", AppN Nothing ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "dictBind" ) ) ) ( PropName "Apply0" ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ) :| [] ) ( LiteralObject Nothing @@ -337,94 +339,94 @@ UberModule ( ParamNamed Nothing ( Name "v" ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "k" ) ) - ( App Nothing - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Control.Bind" ) ( Name "bind" ) ) ) - ( Ref Nothing ( Local ( Name "dictBind" ) ) ) + ( Ref Nothing ( Local ( Name "dictBind" ) ) :| [] ) ) - ( Ref Nothing ( Local ( Name "v" ) ) ) + ( Ref Nothing ( Local ( Name "v" ) ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "v1" ) ) - ( App Nothing - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Functor" ) ( Name "map" ) ) ) - ( App Nothing + ( AppN Nothing ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "Apply0" ) ) ) ( PropName "Functor0" ) ) ( Ref Nothing - ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) - ) + ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "v3" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Tuple" ) ( Name "Tuple" ) ) ) ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "v3" ) ) ) - ( PropName "value0" ) + ( PropName "value0" ) :| [] ) ) - ( App Nothing - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Semigroup" ) ( Name "append" ) ) ) - ( Ref Nothing ( Local ( Name "dictSemigroup" ) ) ) + ( Ref Nothing ( Local ( Name "dictSemigroup" ) ) :| [] ) ) ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "v1" ) ) ) - ( PropName "value1" ) + ( PropName "value1" ) :| [] ) ) ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "v3" ) ) ) - ( PropName "value1" ) - ) + ( PropName "value1" ) :| [] + ) :| [] ) - ) + ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Local ( Name "k" ) ) ) ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "v1" ) ) ) - ( PropName "value0" ) - ) + ( PropName "value0" ) :| [] + ) :| [] ) - ) + ) :| [] ) ) ) ), ( PropName "Apply0", Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Control.Monad.Writer.Trans" ) ( Name "applyWriterT" ) ) ) - ( Ref Nothing ( Local ( Name "dictSemigroup" ) ) ) + ( Ref Nothing ( Local ( Name "dictSemigroup" ) ) :| [] ) ) - ( Ref Nothing ( Local ( Name "Apply0" ) ) ) + ( Ref Nothing ( Local ( Name "Apply0" ) ) :| [] ) ) ) ] @@ -442,48 +444,52 @@ UberModule [ ( PropName "pure", Abs Nothing ( ParamNamed Nothing ( Name "a" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Control.Applicative" ) ( Name "pure" ) ) ) - ( Ref Nothing ( Local ( Name "dictApplicative" ) ) ) + ( Ref Nothing ( Local ( Name "dictApplicative" ) ) :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Tuple" ) ( Name "Tuple" ) ) ) - ( Ref Nothing ( Local ( Name "a" ) ) ) + ( Ref Nothing ( Local ( Name "a" ) ) :| [] ) ) ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "dictMonoid" ) ) ) - ( PropName "mempty" ) - ) + ( PropName "mempty" ) :| [] + ) :| [] ) ) ), ( PropName "Apply0", Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Control.Monad.Writer.Trans" ) ( Name "applyWriterT" ) ) ) - ( App Nothing + ( AppN Nothing ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "dictMonoid" ) ) ) ( PropName "Semigroup0" ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing + ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] + ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "dictApplicative" ) ) ) ( PropName "Apply0" ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing + ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] + ) :| [] ) ) ) @@ -493,16 +499,20 @@ UberModule ), Standalone ( QName { qnameModuleName = ModuleName "Golden.LongWriterBind.Test", qnameName = Name "discard" - }, App Nothing + }, AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Control.Bind" ) ( Name "bind" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Control.Monad.Writer.Trans" ) ( Name "bindWriterT" ) ) ) - ( Ref Nothing ( Imported ( ModuleName "Data.Semigroup" ) ( Name "semigroupArray" ) ) ) + ( Ref Nothing + ( Imported ( ModuleName "Data.Semigroup" ) ( Name "semigroupArray" ) ) :| [] + ) ) - ( Ref Nothing ( Imported ( ModuleName "Data.Identity" ) ( Name "bindIdentity" ) ) ) + ( Ref Nothing + ( Imported ( ModuleName "Data.Identity" ) ( Name "bindIdentity" ) ) :| [] + ) :| [] ) ), Standalone ( QName @@ -527,60 +537,62 @@ UberModule ) ( LiteralObject Nothing [ - ( PropName "tell", App Nothing - ( App Nothing + ( PropName "tell", AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Control.Monad.Writer.Trans" ) ( Name "compose" ) ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x$467$479" ) ) - ( Ref Nothing ( Local ( Name "x$467$479" ) ) ) + ( Ref Nothing ( Local ( Name "x$467$479" ) ) ) :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Control.Monad.Writer.Trans" ) ( Name "compose" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Control.Applicative" ) ( Name "pure" ) ) ) - ( App Nothing + ( AppN Nothing ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "dictMonad$478" ) ) ) ( PropName "Applicative0" ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) - ) + ( Ref Nothing + ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] + ) :| [] + ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Tuple" ) ( Name "Tuple" ) ) ) ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Data.Unit" ) ( Name "foreign" ) ) ) - ( PropName "unit" ) - ) - ) + ( PropName "unit" ) :| [] + ) :| [] + ) :| [] ) ), ( PropName "Semigroup0", Abs Nothing ( ParamUnused Nothing ) - ( App Nothing + ( AppN Nothing ( ObjectProp Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Monoid" ) ( Name "monoidArray" ) ) ) ( PropName "Semigroup0" ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ) ), ( PropName "Monad1", Abs Nothing ( ParamUnused Nothing ) ( LiteralObject Nothing [ ( PropName "Applicative0", Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Control.Monad.Writer.Trans" ) @@ -588,43 +600,49 @@ UberModule ) ) ( Ref Nothing - ( Imported ( ModuleName "Data.Monoid" ) ( Name "monoidArray" ) ) + ( Imported ( ModuleName "Data.Monoid" ) ( Name "monoidArray" ) ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "dictMonad$478" ) ) ) ( PropName "Applicative0" ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing + ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] + ) :| [] ) ) ), ( PropName "Bind1", Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Control.Monad.Writer.Trans" ) ( Name "bindWriterT" ) ) ) - ( App Nothing + ( AppN Nothing ( ObjectProp Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Monoid" ) ( Name "monoidArray" ) ) ) ( PropName "Semigroup0" ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing + ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] + ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "dictMonad$478" ) ) ) ( PropName "Bind1" ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing + ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] + ) :| [] ) ) ) @@ -640,168 +658,174 @@ UberModule { qnameModuleName = ModuleName "Golden.LongWriterBind.Test", qnameName = Name "go" }, Let Nothing ( Standalone - ( Nothing, Name "$kont482", App Nothing - ( App Nothing + ( Nothing, Name "$kont482", AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) ( Name "tell" ) ) ) - ( LiteralArray Nothing [ LiteralInt Nothing 161 ] ) + ( LiteralArray Nothing [ LiteralInt Nothing 161 ] :| [] ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) ( Name "tell" ) ) ) - ( LiteralArray Nothing [ LiteralInt Nothing 162 ] ) + ( LiteralArray Nothing [ LiteralInt Nothing 162 ] :| [] ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) ( Name "tell" ) ) ) - ( LiteralArray Nothing [ LiteralInt Nothing 163 ] ) + ( LiteralArray Nothing [ LiteralInt Nothing 163 ] :| [] ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) ( Name "tell" ) ) ) - ( LiteralArray Nothing [ LiteralInt Nothing 164 ] ) + ( LiteralArray Nothing [ LiteralInt Nothing 164 ] :| [] ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) ( Name "tell" ) ) ) - ( LiteralArray Nothing [ LiteralInt Nothing 165 ] ) + ( LiteralArray Nothing [ LiteralInt Nothing 165 ] :| [] ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) ( Name "tell" ) ) ) - ( LiteralArray Nothing [ LiteralInt Nothing 166 ] ) + ( LiteralArray Nothing [ LiteralInt Nothing 166 ] :| [] ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) ( Name "tell" ) ) ) - ( LiteralArray Nothing [ LiteralInt Nothing 167 ] ) + ( LiteralArray Nothing + [ LiteralInt Nothing 167 ] :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) ( Name "tell" ) ) ) - ( LiteralArray Nothing [ LiteralInt Nothing 168 ] ) + ( LiteralArray Nothing + [ LiteralInt Nothing 168 ] :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) ( Name "tell" ) ) ) - ( LiteralArray Nothing [ LiteralInt Nothing 169 ] ) + ( LiteralArray Nothing + [ LiteralInt Nothing 169 ] :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) @@ -809,20 +833,20 @@ UberModule ) ) ( LiteralArray Nothing - [ LiteralInt Nothing 170 ] - ) + [ LiteralInt Nothing 170 ] :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) @@ -830,20 +854,20 @@ UberModule ) ) ( LiteralArray Nothing - [ LiteralInt Nothing 171 ] - ) + [ LiteralInt Nothing 171 ] :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) @@ -851,20 +875,20 @@ UberModule ) ) ( LiteralArray Nothing - [ LiteralInt Nothing 172 ] - ) + [ LiteralInt Nothing 172 ] :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) @@ -872,20 +896,20 @@ UberModule ) ) ( LiteralArray Nothing - [ LiteralInt Nothing 173 ] - ) + [ LiteralInt Nothing 173 ] :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) @@ -893,20 +917,20 @@ UberModule ) ) ( LiteralArray Nothing - [ LiteralInt Nothing 174 ] - ) + [ LiteralInt Nothing 174 ] :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) @@ -914,20 +938,20 @@ UberModule ) ) ( LiteralArray Nothing - [ LiteralInt Nothing 175 ] - ) + [ LiteralInt Nothing 175 ] :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) @@ -935,20 +959,20 @@ UberModule ) ) ( LiteralArray Nothing - [ LiteralInt Nothing 176 ] - ) + [ LiteralInt Nothing 176 ] :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) @@ -956,20 +980,20 @@ UberModule ) ) ( LiteralArray Nothing - [ LiteralInt Nothing 177 ] - ) + [ LiteralInt Nothing 177 ] :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) @@ -977,20 +1001,20 @@ UberModule ) ) ( LiteralArray Nothing - [ LiteralInt Nothing 178 ] - ) + [ LiteralInt Nothing 178 ] :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) @@ -998,20 +1022,20 @@ UberModule ) ) ( LiteralArray Nothing - [ LiteralInt Nothing 179 ] - ) + [ LiteralInt Nothing 179 ] :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) @@ -1019,20 +1043,20 @@ UberModule ) ) ( LiteralArray Nothing - [ LiteralInt Nothing 180 ] - ) + [ LiteralInt Nothing 180 ] :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) @@ -1040,20 +1064,20 @@ UberModule ) ) ( LiteralArray Nothing - [ LiteralInt Nothing 181 ] - ) + [ LiteralInt Nothing 181 ] :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) @@ -1061,20 +1085,20 @@ UberModule ) ) ( LiteralArray Nothing - [ LiteralInt Nothing 182 ] - ) + [ LiteralInt Nothing 182 ] :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) @@ -1082,20 +1106,20 @@ UberModule ) ) ( LiteralArray Nothing - [ LiteralInt Nothing 183 ] - ) + [ LiteralInt Nothing 183 ] :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) @@ -1103,20 +1127,20 @@ UberModule ) ) ( LiteralArray Nothing - [ LiteralInt Nothing 184 ] - ) + [ LiteralInt Nothing 184 ] :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) @@ -1124,20 +1148,20 @@ UberModule ) ) ( LiteralArray Nothing - [ LiteralInt Nothing 185 ] - ) + [ LiteralInt Nothing 185 ] :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) @@ -1145,20 +1169,20 @@ UberModule ) ) ( LiteralArray Nothing - [ LiteralInt Nothing 186 ] - ) + [ LiteralInt Nothing 186 ] :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) @@ -1166,20 +1190,20 @@ UberModule ) ) ( LiteralArray Nothing - [ LiteralInt Nothing 187 ] - ) + [ LiteralInt Nothing 187 ] :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) @@ -1187,20 +1211,20 @@ UberModule ) ) ( LiteralArray Nothing - [ LiteralInt Nothing 188 ] - ) + [ LiteralInt Nothing 188 ] :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) @@ -1208,20 +1232,20 @@ UberModule ) ) ( LiteralArray Nothing - [ LiteralInt Nothing 189 ] - ) + [ LiteralInt Nothing 189 ] :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) @@ -1229,20 +1253,20 @@ UberModule ) ) ( LiteralArray Nothing - [ LiteralInt Nothing 190 ] - ) + [ LiteralInt Nothing 190 ] :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) @@ -1250,20 +1274,20 @@ UberModule ) ) ( LiteralArray Nothing - [ LiteralInt Nothing 191 ] - ) + [ LiteralInt Nothing 191 ] :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) @@ -1271,20 +1295,20 @@ UberModule ) ) ( LiteralArray Nothing - [ LiteralInt Nothing 192 ] - ) + [ LiteralInt Nothing 192 ] :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) @@ -1292,20 +1316,20 @@ UberModule ) ) ( LiteralArray Nothing - [ LiteralInt Nothing 193 ] - ) + [ LiteralInt Nothing 193 ] :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) @@ -1313,20 +1337,20 @@ UberModule ) ) ( LiteralArray Nothing - [ LiteralInt Nothing 194 ] - ) + [ LiteralInt Nothing 194 ] :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) @@ -1334,20 +1358,20 @@ UberModule ) ) ( LiteralArray Nothing - [ LiteralInt Nothing 195 ] - ) + [ LiteralInt Nothing 195 ] :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) @@ -1355,20 +1379,20 @@ UberModule ) ) ( LiteralArray Nothing - [ LiteralInt Nothing 196 ] - ) + [ LiteralInt Nothing 196 ] :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) @@ -1376,20 +1400,20 @@ UberModule ) ) ( LiteralArray Nothing - [ LiteralInt Nothing 197 ] - ) + [ LiteralInt Nothing 197 ] :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) @@ -1397,20 +1421,20 @@ UberModule ) ) ( LiteralArray Nothing - [ LiteralInt Nothing 198 ] - ) + [ LiteralInt Nothing 198 ] :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) @@ -1418,20 +1442,20 @@ UberModule ) ) ( LiteralArray Nothing - [ LiteralInt Nothing 199 ] - ) + [ LiteralInt Nothing 199 ] :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) @@ -1439,21 +1463,21 @@ UberModule ) ) ( LiteralArray Nothing - [ LiteralInt Nothing 200 ] - ) + [ LiteralInt Nothing 200 ] :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Control.Applicative" ) ( Name "pure" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Control.Monad.Writer.Trans" ) @@ -1464,246 +1488,252 @@ UberModule ( Imported ( ModuleName "Data.Monoid" ) ( Name "monoidArray" ) - ) + ) :| [] ) ) ( Ref Nothing ( Imported ( ModuleName "Data.Identity" ) ( Name "applicativeIdentity" ) - ) - ) + ) :| [] + ) :| [] ) ) - ( LiteralInt Nothing 42 ) - ) + ( LiteralInt Nothing 42 :| [] ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) ) :| [ Standalone - ( Nothing, Name "$kont483", App Nothing - ( App Nothing + ( Nothing, Name "$kont483", AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) ( Name "tell" ) ) ) - ( LiteralArray Nothing [ LiteralInt Nothing 121 ] ) + ( LiteralArray Nothing [ LiteralInt Nothing 121 ] :| [] ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) ( Name "tell" ) ) ) - ( LiteralArray Nothing [ LiteralInt Nothing 122 ] ) + ( LiteralArray Nothing [ LiteralInt Nothing 122 ] :| [] ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) ( Name "tell" ) ) ) - ( LiteralArray Nothing [ LiteralInt Nothing 123 ] ) + ( LiteralArray Nothing [ LiteralInt Nothing 123 ] :| [] ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) ( Name "tell" ) ) ) - ( LiteralArray Nothing [ LiteralInt Nothing 124 ] ) + ( LiteralArray Nothing [ LiteralInt Nothing 124 ] :| [] ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) ( Name "tell" ) ) ) - ( LiteralArray Nothing [ LiteralInt Nothing 125 ] ) + ( LiteralArray Nothing [ LiteralInt Nothing 125 ] :| [] ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) ( Name "tell" ) ) ) - ( LiteralArray Nothing [ LiteralInt Nothing 126 ] ) + ( LiteralArray Nothing + [ LiteralInt Nothing 126 ] :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) ( Name "tell" ) ) ) - ( LiteralArray Nothing [ LiteralInt Nothing 127 ] ) + ( LiteralArray Nothing + [ LiteralInt Nothing 127 ] :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) ( Name "tell" ) ) ) - ( LiteralArray Nothing [ LiteralInt Nothing 128 ] ) + ( LiteralArray Nothing + [ LiteralInt Nothing 128 ] :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) @@ -1711,20 +1741,20 @@ UberModule ) ) ( LiteralArray Nothing - [ LiteralInt Nothing 129 ] - ) + [ LiteralInt Nothing 129 ] :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) @@ -1732,20 +1762,20 @@ UberModule ) ) ( LiteralArray Nothing - [ LiteralInt Nothing 130 ] - ) + [ LiteralInt Nothing 130 ] :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) @@ -1753,20 +1783,20 @@ UberModule ) ) ( LiteralArray Nothing - [ LiteralInt Nothing 131 ] - ) + [ LiteralInt Nothing 131 ] :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) @@ -1774,20 +1804,20 @@ UberModule ) ) ( LiteralArray Nothing - [ LiteralInt Nothing 132 ] - ) + [ LiteralInt Nothing 132 ] :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) @@ -1795,20 +1825,20 @@ UberModule ) ) ( LiteralArray Nothing - [ LiteralInt Nothing 133 ] - ) + [ LiteralInt Nothing 133 ] :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) @@ -1816,20 +1846,20 @@ UberModule ) ) ( LiteralArray Nothing - [ LiteralInt Nothing 134 ] - ) + [ LiteralInt Nothing 134 ] :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) @@ -1837,20 +1867,20 @@ UberModule ) ) ( LiteralArray Nothing - [ LiteralInt Nothing 135 ] - ) + [ LiteralInt Nothing 135 ] :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) @@ -1858,20 +1888,20 @@ UberModule ) ) ( LiteralArray Nothing - [ LiteralInt Nothing 136 ] - ) + [ LiteralInt Nothing 136 ] :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) @@ -1879,20 +1909,20 @@ UberModule ) ) ( LiteralArray Nothing - [ LiteralInt Nothing 137 ] - ) + [ LiteralInt Nothing 137 ] :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) @@ -1900,20 +1930,20 @@ UberModule ) ) ( LiteralArray Nothing - [ LiteralInt Nothing 138 ] - ) + [ LiteralInt Nothing 138 ] :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) @@ -1921,20 +1951,20 @@ UberModule ) ) ( LiteralArray Nothing - [ LiteralInt Nothing 139 ] - ) + [ LiteralInt Nothing 139 ] :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) @@ -1942,20 +1972,20 @@ UberModule ) ) ( LiteralArray Nothing - [ LiteralInt Nothing 140 ] - ) + [ LiteralInt Nothing 140 ] :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) @@ -1963,20 +1993,20 @@ UberModule ) ) ( LiteralArray Nothing - [ LiteralInt Nothing 141 ] - ) + [ LiteralInt Nothing 141 ] :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) @@ -1984,20 +2014,20 @@ UberModule ) ) ( LiteralArray Nothing - [ LiteralInt Nothing 142 ] - ) + [ LiteralInt Nothing 142 ] :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) @@ -2005,20 +2035,20 @@ UberModule ) ) ( LiteralArray Nothing - [ LiteralInt Nothing 143 ] - ) + [ LiteralInt Nothing 143 ] :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) @@ -2026,20 +2056,20 @@ UberModule ) ) ( LiteralArray Nothing - [ LiteralInt Nothing 144 ] - ) + [ LiteralInt Nothing 144 ] :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) @@ -2047,20 +2077,20 @@ UberModule ) ) ( LiteralArray Nothing - [ LiteralInt Nothing 145 ] - ) + [ LiteralInt Nothing 145 ] :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) @@ -2068,20 +2098,20 @@ UberModule ) ) ( LiteralArray Nothing - [ LiteralInt Nothing 146 ] - ) + [ LiteralInt Nothing 146 ] :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) @@ -2089,20 +2119,20 @@ UberModule ) ) ( LiteralArray Nothing - [ LiteralInt Nothing 147 ] - ) + [ LiteralInt Nothing 147 ] :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) @@ -2110,20 +2140,20 @@ UberModule ) ) ( LiteralArray Nothing - [ LiteralInt Nothing 148 ] - ) + [ LiteralInt Nothing 148 ] :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) @@ -2131,20 +2161,20 @@ UberModule ) ) ( LiteralArray Nothing - [ LiteralInt Nothing 149 ] - ) + [ LiteralInt Nothing 149 ] :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) @@ -2152,20 +2182,20 @@ UberModule ) ) ( LiteralArray Nothing - [ LiteralInt Nothing 150 ] - ) + [ LiteralInt Nothing 150 ] :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) @@ -2173,20 +2203,20 @@ UberModule ) ) ( LiteralArray Nothing - [ LiteralInt Nothing 151 ] - ) + [ LiteralInt Nothing 151 ] :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) @@ -2194,20 +2224,20 @@ UberModule ) ) ( LiteralArray Nothing - [ LiteralInt Nothing 152 ] - ) + [ LiteralInt Nothing 152 ] :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) @@ -2215,20 +2245,20 @@ UberModule ) ) ( LiteralArray Nothing - [ LiteralInt Nothing 153 ] - ) + [ LiteralInt Nothing 153 ] :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) @@ -2236,20 +2266,20 @@ UberModule ) ) ( LiteralArray Nothing - [ LiteralInt Nothing 154 ] - ) + [ LiteralInt Nothing 154 ] :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) @@ -2257,20 +2287,20 @@ UberModule ) ) ( LiteralArray Nothing - [ LiteralInt Nothing 155 ] - ) + [ LiteralInt Nothing 155 ] :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) @@ -2278,20 +2308,20 @@ UberModule ) ) ( LiteralArray Nothing - [ LiteralInt Nothing 156 ] - ) + [ LiteralInt Nothing 156 ] :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) @@ -2299,20 +2329,20 @@ UberModule ) ) ( LiteralArray Nothing - [ LiteralInt Nothing 157 ] - ) + [ LiteralInt Nothing 157 ] :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) @@ -2320,20 +2350,20 @@ UberModule ) ) ( LiteralArray Nothing - [ LiteralInt Nothing 158 ] - ) + [ LiteralInt Nothing 158 ] :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) @@ -2341,20 +2371,20 @@ UberModule ) ) ( LiteralArray Nothing - [ LiteralInt Nothing 159 ] - ) + [ LiteralInt Nothing 159 ] :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) @@ -2362,8 +2392,8 @@ UberModule ) ) ( LiteralArray Nothing - [ LiteralInt Nothing 160 ] - ) + [ LiteralInt Nothing 160 ] :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) @@ -2371,252 +2401,258 @@ UberModule ( Local ( Name "$kont482" ) ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) ), Standalone - ( Nothing, Name "$kont484", App Nothing - ( App Nothing + ( Nothing, Name "$kont484", AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) ( Name "tell" ) ) ) - ( LiteralArray Nothing [ LiteralInt Nothing 81 ] ) + ( LiteralArray Nothing [ LiteralInt Nothing 81 ] :| [] ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) ( Name "tell" ) ) ) - ( LiteralArray Nothing [ LiteralInt Nothing 82 ] ) + ( LiteralArray Nothing [ LiteralInt Nothing 82 ] :| [] ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) ( Name "tell" ) ) ) - ( LiteralArray Nothing [ LiteralInt Nothing 83 ] ) + ( LiteralArray Nothing [ LiteralInt Nothing 83 ] :| [] ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) ( Name "tell" ) ) ) - ( LiteralArray Nothing [ LiteralInt Nothing 84 ] ) + ( LiteralArray Nothing [ LiteralInt Nothing 84 ] :| [] ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) ( Name "tell" ) ) ) - ( LiteralArray Nothing [ LiteralInt Nothing 85 ] ) + ( LiteralArray Nothing [ LiteralInt Nothing 85 ] :| [] ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) ( Name "tell" ) ) ) - ( LiteralArray Nothing [ LiteralInt Nothing 86 ] ) + ( LiteralArray Nothing [ LiteralInt Nothing 86 ] :| [] ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) ( Name "tell" ) ) ) - ( LiteralArray Nothing [ LiteralInt Nothing 87 ] ) + ( LiteralArray Nothing + [ LiteralInt Nothing 87 ] :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) ( Name "tell" ) ) ) - ( LiteralArray Nothing [ LiteralInt Nothing 88 ] ) + ( LiteralArray Nothing + [ LiteralInt Nothing 88 ] :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) ( Name "tell" ) ) ) - ( LiteralArray Nothing [ LiteralInt Nothing 89 ] ) + ( LiteralArray Nothing + [ LiteralInt Nothing 89 ] :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) @@ -2624,20 +2660,20 @@ UberModule ) ) ( LiteralArray Nothing - [ LiteralInt Nothing 90 ] - ) + [ LiteralInt Nothing 90 ] :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) @@ -2645,20 +2681,20 @@ UberModule ) ) ( LiteralArray Nothing - [ LiteralInt Nothing 91 ] - ) + [ LiteralInt Nothing 91 ] :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) @@ -2666,20 +2702,20 @@ UberModule ) ) ( LiteralArray Nothing - [ LiteralInt Nothing 92 ] - ) + [ LiteralInt Nothing 92 ] :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) @@ -2687,20 +2723,20 @@ UberModule ) ) ( LiteralArray Nothing - [ LiteralInt Nothing 93 ] - ) + [ LiteralInt Nothing 93 ] :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) @@ -2708,20 +2744,20 @@ UberModule ) ) ( LiteralArray Nothing - [ LiteralInt Nothing 94 ] - ) + [ LiteralInt Nothing 94 ] :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) @@ -2729,20 +2765,20 @@ UberModule ) ) ( LiteralArray Nothing - [ LiteralInt Nothing 95 ] - ) + [ LiteralInt Nothing 95 ] :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) @@ -2750,20 +2786,20 @@ UberModule ) ) ( LiteralArray Nothing - [ LiteralInt Nothing 96 ] - ) + [ LiteralInt Nothing 96 ] :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) @@ -2771,20 +2807,20 @@ UberModule ) ) ( LiteralArray Nothing - [ LiteralInt Nothing 97 ] - ) + [ LiteralInt Nothing 97 ] :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) @@ -2792,20 +2828,20 @@ UberModule ) ) ( LiteralArray Nothing - [ LiteralInt Nothing 98 ] - ) + [ LiteralInt Nothing 98 ] :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) @@ -2813,20 +2849,20 @@ UberModule ) ) ( LiteralArray Nothing - [ LiteralInt Nothing 99 ] - ) + [ LiteralInt Nothing 99 ] :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) @@ -2834,20 +2870,20 @@ UberModule ) ) ( LiteralArray Nothing - [ LiteralInt Nothing 100 ] - ) + [ LiteralInt Nothing 100 ] :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) @@ -2855,20 +2891,20 @@ UberModule ) ) ( LiteralArray Nothing - [ LiteralInt Nothing 101 ] - ) + [ LiteralInt Nothing 101 ] :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) @@ -2876,20 +2912,20 @@ UberModule ) ) ( LiteralArray Nothing - [ LiteralInt Nothing 102 ] - ) + [ LiteralInt Nothing 102 ] :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) @@ -2897,20 +2933,20 @@ UberModule ) ) ( LiteralArray Nothing - [ LiteralInt Nothing 103 ] - ) + [ LiteralInt Nothing 103 ] :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) @@ -2918,20 +2954,20 @@ UberModule ) ) ( LiteralArray Nothing - [ LiteralInt Nothing 104 ] - ) + [ LiteralInt Nothing 104 ] :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) @@ -2939,20 +2975,20 @@ UberModule ) ) ( LiteralArray Nothing - [ LiteralInt Nothing 105 ] - ) + [ LiteralInt Nothing 105 ] :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) @@ -2960,20 +2996,20 @@ UberModule ) ) ( LiteralArray Nothing - [ LiteralInt Nothing 106 ] - ) + [ LiteralInt Nothing 106 ] :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) @@ -2981,20 +3017,20 @@ UberModule ) ) ( LiteralArray Nothing - [ LiteralInt Nothing 107 ] - ) + [ LiteralInt Nothing 107 ] :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) @@ -3002,20 +3038,20 @@ UberModule ) ) ( LiteralArray Nothing - [ LiteralInt Nothing 108 ] - ) + [ LiteralInt Nothing 108 ] :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) @@ -3023,20 +3059,20 @@ UberModule ) ) ( LiteralArray Nothing - [ LiteralInt Nothing 109 ] - ) + [ LiteralInt Nothing 109 ] :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) @@ -3044,20 +3080,20 @@ UberModule ) ) ( LiteralArray Nothing - [ LiteralInt Nothing 110 ] - ) + [ LiteralInt Nothing 110 ] :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) @@ -3065,20 +3101,20 @@ UberModule ) ) ( LiteralArray Nothing - [ LiteralInt Nothing 111 ] - ) + [ LiteralInt Nothing 111 ] :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) @@ -3086,20 +3122,20 @@ UberModule ) ) ( LiteralArray Nothing - [ LiteralInt Nothing 112 ] - ) + [ LiteralInt Nothing 112 ] :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) @@ -3107,20 +3143,20 @@ UberModule ) ) ( LiteralArray Nothing - [ LiteralInt Nothing 113 ] - ) + [ LiteralInt Nothing 113 ] :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) @@ -3128,20 +3164,20 @@ UberModule ) ) ( LiteralArray Nothing - [ LiteralInt Nothing 114 ] - ) + [ LiteralInt Nothing 114 ] :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) @@ -3149,20 +3185,20 @@ UberModule ) ) ( LiteralArray Nothing - [ LiteralInt Nothing 115 ] - ) + [ LiteralInt Nothing 115 ] :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) @@ -3170,20 +3206,20 @@ UberModule ) ) ( LiteralArray Nothing - [ LiteralInt Nothing 116 ] - ) + [ LiteralInt Nothing 116 ] :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) @@ -3191,20 +3227,20 @@ UberModule ) ) ( LiteralArray Nothing - [ LiteralInt Nothing 117 ] - ) + [ LiteralInt Nothing 117 ] :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) @@ -3212,20 +3248,20 @@ UberModule ) ) ( LiteralArray Nothing - [ LiteralInt Nothing 118 ] - ) + [ LiteralInt Nothing 118 ] :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) @@ -3233,20 +3269,20 @@ UberModule ) ) ( LiteralArray Nothing - [ LiteralInt Nothing 119 ] - ) + [ LiteralInt Nothing 119 ] :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) @@ -3254,8 +3290,8 @@ UberModule ) ) ( LiteralArray Nothing - [ LiteralInt Nothing 120 ] - ) + [ LiteralInt Nothing 120 ] :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) @@ -3263,252 +3299,258 @@ UberModule ( Local ( Name "$kont483" ) ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) ), Standalone - ( Nothing, Name "$kont485", App Nothing - ( App Nothing + ( Nothing, Name "$kont485", AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) ( Name "tell" ) ) ) - ( LiteralArray Nothing [ LiteralInt Nothing 41 ] ) + ( LiteralArray Nothing [ LiteralInt Nothing 41 ] :| [] ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) ( Name "tell" ) ) ) - ( LiteralArray Nothing [ LiteralInt Nothing 42 ] ) + ( LiteralArray Nothing [ LiteralInt Nothing 42 ] :| [] ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) ( Name "tell" ) ) ) - ( LiteralArray Nothing [ LiteralInt Nothing 43 ] ) + ( LiteralArray Nothing [ LiteralInt Nothing 43 ] :| [] ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) ( Name "tell" ) ) ) - ( LiteralArray Nothing [ LiteralInt Nothing 44 ] ) + ( LiteralArray Nothing [ LiteralInt Nothing 44 ] :| [] ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) ( Name "tell" ) ) ) - ( LiteralArray Nothing [ LiteralInt Nothing 45 ] ) + ( LiteralArray Nothing [ LiteralInt Nothing 45 ] :| [] ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) ( Name "tell" ) ) ) - ( LiteralArray Nothing [ LiteralInt Nothing 46 ] ) + ( LiteralArray Nothing [ LiteralInt Nothing 46 ] :| [] ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) ( Name "tell" ) ) ) - ( LiteralArray Nothing [ LiteralInt Nothing 47 ] ) + ( LiteralArray Nothing + [ LiteralInt Nothing 47 ] :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) ( Name "tell" ) ) ) - ( LiteralArray Nothing [ LiteralInt Nothing 48 ] ) + ( LiteralArray Nothing + [ LiteralInt Nothing 48 ] :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) ( Name "tell" ) ) ) - ( LiteralArray Nothing [ LiteralInt Nothing 49 ] ) + ( LiteralArray Nothing + [ LiteralInt Nothing 49 ] :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) @@ -3516,20 +3558,20 @@ UberModule ) ) ( LiteralArray Nothing - [ LiteralInt Nothing 50 ] - ) + [ LiteralInt Nothing 50 ] :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) @@ -3537,20 +3579,20 @@ UberModule ) ) ( LiteralArray Nothing - [ LiteralInt Nothing 51 ] - ) + [ LiteralInt Nothing 51 ] :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) @@ -3558,20 +3600,20 @@ UberModule ) ) ( LiteralArray Nothing - [ LiteralInt Nothing 52 ] - ) + [ LiteralInt Nothing 52 ] :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) @@ -3579,20 +3621,20 @@ UberModule ) ) ( LiteralArray Nothing - [ LiteralInt Nothing 53 ] - ) + [ LiteralInt Nothing 53 ] :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) @@ -3600,20 +3642,20 @@ UberModule ) ) ( LiteralArray Nothing - [ LiteralInt Nothing 54 ] - ) + [ LiteralInt Nothing 54 ] :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) @@ -3621,20 +3663,20 @@ UberModule ) ) ( LiteralArray Nothing - [ LiteralInt Nothing 55 ] - ) + [ LiteralInt Nothing 55 ] :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) @@ -3642,20 +3684,20 @@ UberModule ) ) ( LiteralArray Nothing - [ LiteralInt Nothing 56 ] - ) + [ LiteralInt Nothing 56 ] :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) @@ -3663,20 +3705,20 @@ UberModule ) ) ( LiteralArray Nothing - [ LiteralInt Nothing 57 ] - ) + [ LiteralInt Nothing 57 ] :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) @@ -3684,20 +3726,20 @@ UberModule ) ) ( LiteralArray Nothing - [ LiteralInt Nothing 58 ] - ) + [ LiteralInt Nothing 58 ] :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) @@ -3705,20 +3747,20 @@ UberModule ) ) ( LiteralArray Nothing - [ LiteralInt Nothing 59 ] - ) + [ LiteralInt Nothing 59 ] :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) @@ -3726,20 +3768,20 @@ UberModule ) ) ( LiteralArray Nothing - [ LiteralInt Nothing 60 ] - ) + [ LiteralInt Nothing 60 ] :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) @@ -3747,20 +3789,20 @@ UberModule ) ) ( LiteralArray Nothing - [ LiteralInt Nothing 61 ] - ) + [ LiteralInt Nothing 61 ] :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) @@ -3768,20 +3810,20 @@ UberModule ) ) ( LiteralArray Nothing - [ LiteralInt Nothing 62 ] - ) + [ LiteralInt Nothing 62 ] :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) @@ -3789,20 +3831,20 @@ UberModule ) ) ( LiteralArray Nothing - [ LiteralInt Nothing 63 ] - ) + [ LiteralInt Nothing 63 ] :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) @@ -3810,20 +3852,20 @@ UberModule ) ) ( LiteralArray Nothing - [ LiteralInt Nothing 64 ] - ) + [ LiteralInt Nothing 64 ] :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) @@ -3831,20 +3873,20 @@ UberModule ) ) ( LiteralArray Nothing - [ LiteralInt Nothing 65 ] - ) + [ LiteralInt Nothing 65 ] :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) @@ -3852,20 +3894,20 @@ UberModule ) ) ( LiteralArray Nothing - [ LiteralInt Nothing 66 ] - ) + [ LiteralInt Nothing 66 ] :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) @@ -3873,20 +3915,20 @@ UberModule ) ) ( LiteralArray Nothing - [ LiteralInt Nothing 67 ] - ) + [ LiteralInt Nothing 67 ] :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) @@ -3894,20 +3936,20 @@ UberModule ) ) ( LiteralArray Nothing - [ LiteralInt Nothing 68 ] - ) + [ LiteralInt Nothing 68 ] :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) @@ -3915,20 +3957,20 @@ UberModule ) ) ( LiteralArray Nothing - [ LiteralInt Nothing 69 ] - ) + [ LiteralInt Nothing 69 ] :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) @@ -3936,20 +3978,20 @@ UberModule ) ) ( LiteralArray Nothing - [ LiteralInt Nothing 70 ] - ) + [ LiteralInt Nothing 70 ] :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) @@ -3957,20 +3999,20 @@ UberModule ) ) ( LiteralArray Nothing - [ LiteralInt Nothing 71 ] - ) + [ LiteralInt Nothing 71 ] :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) @@ -3978,20 +4020,20 @@ UberModule ) ) ( LiteralArray Nothing - [ LiteralInt Nothing 72 ] - ) + [ LiteralInt Nothing 72 ] :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) @@ -3999,20 +4041,20 @@ UberModule ) ) ( LiteralArray Nothing - [ LiteralInt Nothing 73 ] - ) + [ LiteralInt Nothing 73 ] :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) @@ -4020,20 +4062,20 @@ UberModule ) ) ( LiteralArray Nothing - [ LiteralInt Nothing 74 ] - ) + [ LiteralInt Nothing 74 ] :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) @@ -4041,20 +4083,20 @@ UberModule ) ) ( LiteralArray Nothing - [ LiteralInt Nothing 75 ] - ) + [ LiteralInt Nothing 75 ] :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) @@ -4062,20 +4104,20 @@ UberModule ) ) ( LiteralArray Nothing - [ LiteralInt Nothing 76 ] - ) + [ LiteralInt Nothing 76 ] :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) @@ -4083,20 +4125,20 @@ UberModule ) ) ( LiteralArray Nothing - [ LiteralInt Nothing 77 ] - ) + [ LiteralInt Nothing 77 ] :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) @@ -4104,20 +4146,20 @@ UberModule ) ) ( LiteralArray Nothing - [ LiteralInt Nothing 78 ] - ) + [ LiteralInt Nothing 78 ] :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) @@ -4125,20 +4167,20 @@ UberModule ) ) ( LiteralArray Nothing - [ LiteralInt Nothing 79 ] - ) + [ LiteralInt Nothing 79 ] :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) @@ -4146,8 +4188,8 @@ UberModule ) ) ( LiteralArray Nothing - [ LiteralInt Nothing 80 ] - ) + [ LiteralInt Nothing 80 ] :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) @@ -4155,267 +4197,273 @@ UberModule ( Local ( Name "$kont484" ) ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) ) ] ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) ( Name "tell" ) ) ) - ( LiteralArray Nothing [ LiteralInt Nothing 1 ] ) + ( LiteralArray Nothing [ LiteralInt Nothing 1 ] :| [] ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) ( Name "tell" ) ) ) - ( LiteralArray Nothing [ LiteralInt Nothing 2 ] ) + ( LiteralArray Nothing [ LiteralInt Nothing 2 ] :| [] ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) ( Name "tell" ) ) ) - ( LiteralArray Nothing [ LiteralInt Nothing 3 ] ) + ( LiteralArray Nothing [ LiteralInt Nothing 3 ] :| [] ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) ( Name "tell" ) ) ) - ( LiteralArray Nothing [ LiteralInt Nothing 4 ] ) + ( LiteralArray Nothing [ LiteralInt Nothing 4 ] :| [] ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) ( Name "tell" ) ) ) - ( LiteralArray Nothing [ LiteralInt Nothing 5 ] ) + ( LiteralArray Nothing [ LiteralInt Nothing 5 ] :| [] ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) ( Name "tell" ) ) ) - ( LiteralArray Nothing [ LiteralInt Nothing 6 ] ) + ( LiteralArray Nothing [ LiteralInt Nothing 6 ] :| [] ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) ( Name "tell" ) ) ) - ( LiteralArray Nothing [ LiteralInt Nothing 7 ] ) + ( LiteralArray Nothing [ LiteralInt Nothing 7 ] :| [] ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) ( Name "tell" ) ) ) - ( LiteralArray Nothing [ LiteralInt Nothing 8 ] ) + ( LiteralArray Nothing + [ LiteralInt Nothing 8 ] :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) ( Name "tell" ) ) ) - ( LiteralArray Nothing [ LiteralInt Nothing 9 ] ) + ( LiteralArray Nothing + [ LiteralInt Nothing 9 ] :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) ( Name "tell" ) ) ) - ( LiteralArray Nothing [ LiteralInt Nothing 10 ] ) + ( LiteralArray Nothing + [ LiteralInt Nothing 10 ] :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) @@ -4423,20 +4471,20 @@ UberModule ) ) ( LiteralArray Nothing - [ LiteralInt Nothing 11 ] - ) + [ LiteralInt Nothing 11 ] :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) @@ -4444,20 +4492,20 @@ UberModule ) ) ( LiteralArray Nothing - [ LiteralInt Nothing 12 ] - ) + [ LiteralInt Nothing 12 ] :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) @@ -4465,20 +4513,20 @@ UberModule ) ) ( LiteralArray Nothing - [ LiteralInt Nothing 13 ] - ) + [ LiteralInt Nothing 13 ] :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) @@ -4486,20 +4534,20 @@ UberModule ) ) ( LiteralArray Nothing - [ LiteralInt Nothing 14 ] - ) + [ LiteralInt Nothing 14 ] :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) @@ -4507,20 +4555,20 @@ UberModule ) ) ( LiteralArray Nothing - [ LiteralInt Nothing 15 ] - ) + [ LiteralInt Nothing 15 ] :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) @@ -4528,20 +4576,20 @@ UberModule ) ) ( LiteralArray Nothing - [ LiteralInt Nothing 16 ] - ) + [ LiteralInt Nothing 16 ] :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) @@ -4549,20 +4597,20 @@ UberModule ) ) ( LiteralArray Nothing - [ LiteralInt Nothing 17 ] - ) + [ LiteralInt Nothing 17 ] :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) @@ -4570,20 +4618,20 @@ UberModule ) ) ( LiteralArray Nothing - [ LiteralInt Nothing 18 ] - ) + [ LiteralInt Nothing 18 ] :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) @@ -4591,20 +4639,20 @@ UberModule ) ) ( LiteralArray Nothing - [ LiteralInt Nothing 19 ] - ) + [ LiteralInt Nothing 19 ] :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) @@ -4612,20 +4660,20 @@ UberModule ) ) ( LiteralArray Nothing - [ LiteralInt Nothing 20 ] - ) + [ LiteralInt Nothing 20 ] :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) @@ -4633,20 +4681,20 @@ UberModule ) ) ( LiteralArray Nothing - [ LiteralInt Nothing 21 ] - ) + [ LiteralInt Nothing 21 ] :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) @@ -4654,20 +4702,20 @@ UberModule ) ) ( LiteralArray Nothing - [ LiteralInt Nothing 22 ] - ) + [ LiteralInt Nothing 22 ] :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) @@ -4675,20 +4723,20 @@ UberModule ) ) ( LiteralArray Nothing - [ LiteralInt Nothing 23 ] - ) + [ LiteralInt Nothing 23 ] :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) @@ -4696,20 +4744,20 @@ UberModule ) ) ( LiteralArray Nothing - [ LiteralInt Nothing 24 ] - ) + [ LiteralInt Nothing 24 ] :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) @@ -4717,20 +4765,20 @@ UberModule ) ) ( LiteralArray Nothing - [ LiteralInt Nothing 25 ] - ) + [ LiteralInt Nothing 25 ] :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) @@ -4738,20 +4786,20 @@ UberModule ) ) ( LiteralArray Nothing - [ LiteralInt Nothing 26 ] - ) + [ LiteralInt Nothing 26 ] :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) @@ -4759,20 +4807,20 @@ UberModule ) ) ( LiteralArray Nothing - [ LiteralInt Nothing 27 ] - ) + [ LiteralInt Nothing 27 ] :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) @@ -4780,20 +4828,20 @@ UberModule ) ) ( LiteralArray Nothing - [ LiteralInt Nothing 28 ] - ) + [ LiteralInt Nothing 28 ] :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) @@ -4801,20 +4849,20 @@ UberModule ) ) ( LiteralArray Nothing - [ LiteralInt Nothing 29 ] - ) + [ LiteralInt Nothing 29 ] :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) @@ -4822,20 +4870,20 @@ UberModule ) ) ( LiteralArray Nothing - [ LiteralInt Nothing 30 ] - ) + [ LiteralInt Nothing 30 ] :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) @@ -4843,20 +4891,20 @@ UberModule ) ) ( LiteralArray Nothing - [ LiteralInt Nothing 31 ] - ) + [ LiteralInt Nothing 31 ] :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) @@ -4864,20 +4912,20 @@ UberModule ) ) ( LiteralArray Nothing - [ LiteralInt Nothing 32 ] - ) + [ LiteralInt Nothing 32 ] :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) @@ -4885,20 +4933,20 @@ UberModule ) ) ( LiteralArray Nothing - [ LiteralInt Nothing 33 ] - ) + [ LiteralInt Nothing 33 ] :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) @@ -4906,20 +4954,20 @@ UberModule ) ) ( LiteralArray Nothing - [ LiteralInt Nothing 34 ] - ) + [ LiteralInt Nothing 34 ] :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) @@ -4927,20 +4975,20 @@ UberModule ) ) ( LiteralArray Nothing - [ LiteralInt Nothing 35 ] - ) + [ LiteralInt Nothing 35 ] :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) @@ -4948,20 +4996,20 @@ UberModule ) ) ( LiteralArray Nothing - [ LiteralInt Nothing 36 ] - ) + [ LiteralInt Nothing 36 ] :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) @@ -4969,20 +5017,20 @@ UberModule ) ) ( LiteralArray Nothing - [ LiteralInt Nothing 37 ] - ) + [ LiteralInt Nothing 37 ] :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) @@ -4990,20 +5038,20 @@ UberModule ) ) ( LiteralArray Nothing - [ LiteralInt Nothing 38 ] - ) + [ LiteralInt Nothing 38 ] :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) @@ -5011,20 +5059,20 @@ UberModule ) ) ( LiteralArray Nothing - [ LiteralInt Nothing 39 ] - ) + [ LiteralInt Nothing 39 ] :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) ( Name "discard" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) @@ -5032,8 +5080,8 @@ UberModule ) ) ( LiteralArray Nothing - [ LiteralInt Nothing 40 ] - ) + [ LiteralInt Nothing 40 ] :| [] + ) :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) @@ -5041,113 +5089,115 @@ UberModule ( Local ( Name "$kont485" ) ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) ) ), Standalone ( QName { qnameModuleName = ModuleName "Golden.LongWriterBind.Test", qnameName = Name "compute" }, ObjectProp Nothing - ( App Nothing - ( App Nothing - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Control.Semigroupoid" ) ( Name "compose" ) ) ) ( Ref Nothing - ( Imported ( ModuleName "Control.Semigroupoid" ) ( Name "semigroupoidFn" ) ) + ( Imported ( ModuleName "Control.Semigroupoid" ) ( Name "semigroupoidFn" ) ) :| [] ) ) ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Unsafe.Coerce" ) ( Name "foreign" ) ) ) - ( PropName "unsafeCoerce" ) + ( PropName "unsafeCoerce" ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "v$39$461" ) ) - ( Ref Nothing ( Local ( Name "v$39$461" ) ) ) + ( Ref Nothing ( Local ( Name "v$39$461" ) ) ) :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) ( Name "go" ) ) ) + ( Ref Nothing + ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) ( Name "go" ) ) :| [] + ) ) ( PropName "value0" ) ) @@ -5159,19 +5209,19 @@ UberModule ( Name "compute", Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) ( Name "compute" ) ) ), - ( Name "main", App Nothing + ( Name "main", AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) - ( App Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Data.Show" ) ( Name "foreign" ) ) ) ( PropName "showIntImpl" ) ) ( Ref Nothing - ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) ( Name "compute" ) ) - ) + ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) ( Name "compute" ) ) :| [] + ) :| [] ) ) ] diff --git a/test/ps/output/Golden.MaybeChain.Test/golden.ir b/test/ps/output/Golden.MaybeChain.Test/golden.ir index 2ca331a2..065094e2 100644 --- a/test/ps/output/Golden.MaybeChain.Test/golden.ir +++ b/test/ps/output/Golden.MaybeChain.Test/golden.ir @@ -63,11 +63,11 @@ UberModule ( LiteralString Nothing "Data.Maybe∷Maybe.Just" ) ( ReflectCtor Nothing ( Ref Nothing ( Local ( Name "v2" ) ) ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Local ( Name "v1" ) ) ) ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "v2" ) ) ) - ( PropName "value0" ) + ( PropName "value0" ) :| [] ) ) ( Exception Nothing "No patterns matched" ) @@ -99,9 +99,9 @@ UberModule ( PropName "bindE" ) ), ( PropName "Apply0", Abs Nothing ( ParamUnused Nothing ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "Lazy_applyEffect" ) ) ) - ( LiteralInt Nothing 0 ) + ( LiteralInt Nothing 0 :| [] ) ) ) ] @@ -115,19 +115,19 @@ UberModule ( PropName "pureE" ) ), ( PropName "Apply0", Abs Nothing ( ParamUnused Nothing ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "Lazy_applyEffect" ) ) ) - ( LiteralInt Nothing 0 ) + ( LiteralInt Nothing 0 :| [] ) ) ) ] ), ( QName { qnameModuleName = ModuleName "Effect", qnameName = Name "Lazy_functorEffect" - }, App Nothing - ( App Nothing + }, AppN Nothing + ( AppN Nothing ( Ref Nothing ( Local ( Name "PSLUA_runtime_lazy" ) ) ) - ( LiteralString Nothing "functorEffect" ) + ( LiteralString Nothing "functorEffect" :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) ( LiteralObject Nothing @@ -136,10 +136,10 @@ UberModule ( ParamNamed Nothing ( Name "f$121" ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "a$122" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp Nothing - ( App Nothing + ( AppN Nothing ( ObjectProp Nothing ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "applicativeEffect" ) ) @@ -147,53 +147,58 @@ UberModule ( PropName "Apply0" ) ) ( Ref Nothing - ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) + ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ) ( PropName "apply" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Control.Applicative" ) ( Name "pure" ) ) ) ( Ref Nothing - ( Imported ( ModuleName "Effect" ) ( Name "applicativeEffect" ) ) + ( Imported + ( ModuleName "Effect" ) + ( Name "applicativeEffect" ) + ) :| [] ) ) - ( Ref Nothing ( Local ( Name "f$121" ) ) ) + ( Ref Nothing ( Local ( Name "f$121" ) ) :| [] ) :| [] ) ) - ( Ref Nothing ( Local ( Name "a$122" ) ) ) + ( Ref Nothing ( Local ( Name "a$122" ) ) :| [] ) ) ) ) ] - ) + ) :| [] ) ), ( QName { qnameModuleName = ModuleName "Effect", qnameName = Name "Lazy_applyEffect" - }, App Nothing - ( App Nothing + }, AppN Nothing + ( AppN Nothing ( Ref Nothing ( Local ( Name "PSLUA_runtime_lazy" ) ) ) - ( LiteralString Nothing "applyEffect" ) + ( LiteralString Nothing "applyEffect" :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) ( LiteralObject Nothing [ ( PropName "apply", Let Nothing ( Standalone - ( Nothing, Name "bind$101", App Nothing + ( Nothing, Name "bind$101", AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Control.Bind" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( ObjectProp Nothing ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "monadEffect" ) ) ) ( PropName "Bind1" ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing + ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] + ) :| [] ) ) :| [] ) @@ -201,29 +206,29 @@ UberModule ( ParamNamed Nothing ( Name "f$103" ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "a$104" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Local ( Name "bind$101" ) ) ) - ( Ref Nothing ( Local ( Name "f$103" ) ) ) + ( Ref Nothing ( Local ( Name "f$103" ) ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "f'$105" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Local ( Name "bind$101" ) ) ) - ( Ref Nothing ( Local ( Name "a$104" ) ) ) + ( Ref Nothing ( Local ( Name "a$104" ) ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "a'$106" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Control.Applicative" ) ( Name "pure" ) ) ) - ( App Nothing + ( AppN Nothing ( ObjectProp Nothing ( Ref Nothing ( Imported @@ -234,32 +239,35 @@ UberModule ( PropName "Applicative0" ) ) ( Ref Nothing - ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) - ) + ( Imported + ( ModuleName "Prim" ) + ( Name "undefined" ) + ) :| [] + ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Local ( Name "f'$105" ) ) ) - ( Ref Nothing ( Local ( Name "a'$106" ) ) ) + ( Ref Nothing ( Local ( Name "a'$106" ) ) :| [] ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) ) ) ) ), ( PropName "Functor0", Abs Nothing ( ParamUnused Nothing ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "Lazy_functorEffect" ) ) ) - ( LiteralInt Nothing 0 ) + ( LiteralInt Nothing 0 :| [] ) ) ) ] - ) + ) :| [] ) ) ] @@ -268,17 +276,17 @@ UberModule { qnameModuleName = ModuleName "Golden.MaybeChain.Test", qnameName = Name "logShow" }, Abs Nothing ( ParamNamed Nothing ( Name "a$4" ) ) - ( App Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) - ( App Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Data.Show" ) ( Name "foreign" ) ) ) ( PropName "showIntImpl" ) ) - ( Ref Nothing ( Local ( Name "a$4" ) ) ) + ( Ref Nothing ( Local ( Name "a$4" ) ) :| [] ) :| [] ) ) ), Standalone @@ -299,14 +307,14 @@ UberModule ( LiteralString Nothing "Data.Maybe∷Maybe.Just" ) ( ReflectCtor Nothing ( Ref Nothing ( Local ( Name "v1$276" ) ) ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Local ( Name "v$275" ) ) ) ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "v1$276" ) ) ) - ( PropName "value0" ) - ) + ( PropName "value0" ) :| [] + ) :| [] ) ) ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Nothing" ) ) ) @@ -318,89 +326,95 @@ UberModule ( Name "main", Abs Nothing ( ParamUnused Nothing ) ( Let Nothing ( Standalone - ( Nothing, Name "_", App Nothing - ( App Nothing + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.MaybeChain.Test" ) ( Name "logShow" ) ) ) - ( App Nothing - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "maybe" ) ) ) - ( LiteralInt Nothing 0 ) + ( LiteralInt Nothing 0 :| [] ) ) ( Ref Nothing - ( Imported ( ModuleName "Golden.MaybeChain.Test" ) ( Name "identity" ) ) + ( Imported ( ModuleName "Golden.MaybeChain.Test" ) ( Name "identity" ) ) :| [] ) ) - ( App Nothing - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "maybe" ) ) ) - ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Nothing" ) ) ) + ( Ref Nothing + ( Imported ( ModuleName "Data.Maybe" ) ( Name "Nothing" ) ) :| [] + ) ) - ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.MaybeChain.Test" ) ( Name "map" ) ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x$0" ) ) - ( Ref Nothing ( Local ( Name "x$0" ) ) ) + ( Ref Nothing ( Local ( Name "x$0" ) ) ) :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Nothing" ) ) ) - ) - ) + ( Ref Nothing + ( Imported ( ModuleName "Data.Maybe" ) ( Name "Nothing" ) ) :| [] + ) :| [] + ) :| [] + ) :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ) :| [] ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.MaybeChain.Test" ) ( Name "logShow" ) ) ) - ( App Nothing - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "maybe" ) ) ) - ( LiteralInt Nothing 0 ) + ( LiteralInt Nothing 0 :| [] ) ) ( Ref Nothing - ( Imported ( ModuleName "Golden.MaybeChain.Test" ) ( Name "identity" ) ) + ( Imported ( ModuleName "Golden.MaybeChain.Test" ) ( Name "identity" ) ) :| [] ) ) - ( App Nothing - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "maybe" ) ) ) - ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Nothing" ) ) ) + ( Ref Nothing + ( Imported ( ModuleName "Data.Maybe" ) ( Name "Nothing" ) ) :| [] + ) ) - ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.MaybeChain.Test" ) ( Name "map" ) ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x0$1" ) ) - ( Ref Nothing ( Local ( Name "x0$1" ) ) ) + ( Ref Nothing ( Local ( Name "x0$1" ) ) ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 42 ) - ) - ) - ) + ( LiteralInt Nothing 42 :| [] ) :| [] + ) :| [] + ) :| [] + ) :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ) ) ) diff --git a/test/ps/output/Golden.MaybeChainModule.Test/golden.ir b/test/ps/output/Golden.MaybeChainModule.Test/golden.ir index 0340b5d5..265e1e4f 100644 --- a/test/ps/output/Golden.MaybeChainModule.Test/golden.ir +++ b/test/ps/output/Golden.MaybeChainModule.Test/golden.ir @@ -34,11 +34,11 @@ UberModule ( LiteralString Nothing "Data.Maybe∷Maybe.Just" ) ( ReflectCtor Nothing ( Ref Nothing ( Local ( Name "v2" ) ) ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Local ( Name "v1" ) ) ) ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "v2" ) ) ) - ( PropName "value0" ) + ( PropName "value0" ) :| [] ) ) ( Exception Nothing "No patterns matched" ) @@ -64,14 +64,14 @@ UberModule ( LiteralString Nothing "Data.Maybe∷Maybe.Just" ) ( ReflectCtor Nothing ( Ref Nothing ( Local ( Name "v1$252" ) ) ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Local ( Name "v$251" ) ) ) ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "v1$252" ) ) ) - ( PropName "value0" ) - ) + ( PropName "value0" ) :| [] + ) :| [] ) ) ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Nothing" ) ) ) @@ -80,71 +80,71 @@ UberModule ) ], uberModuleForeigns = [], uberModuleExports = [ - ( Name "chainedNothing", App Nothing - ( App Nothing - ( App Nothing + ( Name "chainedNothing", AppN Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "maybe" ) ) ) - ( LiteralInt Nothing 0 ) + ( LiteralInt Nothing 0 :| [] ) ) ( Ref Nothing - ( Imported ( ModuleName "Golden.MaybeChainModule.Test" ) ( Name "identity" ) ) + ( Imported ( ModuleName "Golden.MaybeChainModule.Test" ) ( Name "identity" ) ) :| [] ) ) - ( App Nothing - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "maybe" ) ) ) - ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Nothing" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Nothing" ) ) :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.MaybeChainModule.Test" ) ( Name "map" ) ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x$1" ) ) - ( Ref Nothing ( Local ( Name "x$1" ) ) ) + ( Ref Nothing ( Local ( Name "x$1" ) ) ) :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Nothing" ) ) ) - ) + ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Nothing" ) ) :| [] ) :| [] + ) :| [] ) ), - ( Name "chainedJust", App Nothing - ( App Nothing - ( App Nothing + ( Name "chainedJust", AppN Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "maybe" ) ) ) - ( LiteralInt Nothing 0 ) + ( LiteralInt Nothing 0 :| [] ) ) ( Ref Nothing - ( Imported ( ModuleName "Golden.MaybeChainModule.Test" ) ( Name "identity" ) ) + ( Imported ( ModuleName "Golden.MaybeChainModule.Test" ) ( Name "identity" ) ) :| [] ) ) - ( App Nothing - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "maybe" ) ) ) - ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Nothing" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Nothing" ) ) :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.MaybeChainModule.Test" ) ( Name "map" ) ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x$0" ) ) - ( Ref Nothing ( Local ( Name "x$0" ) ) ) + ( Ref Nothing ( Local ( Name "x$0" ) ) ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 42 ) - ) - ) + ( LiteralInt Nothing 42 :| [] ) :| [] + ) :| [] + ) :| [] ) ) ] diff --git a/test/ps/output/Golden.NameShadowing.Test/golden.ir b/test/ps/output/Golden.NameShadowing.Test/golden.ir index 24b76ca0..cc74ec68 100644 --- a/test/ps/output/Golden.NameShadowing.Test/golden.ir +++ b/test/ps/output/Golden.NameShadowing.Test/golden.ir @@ -24,27 +24,27 @@ UberModule ( ParamNamed Nothing ( Name "x$0" ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x1$1" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.NameShadowing.Test" ) ( Name "f" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.NameShadowing.Test" ) ( Name "f" ) ) ) - ( Ref Nothing ( Local ( Name "x$0" ) ) ) + ( Ref Nothing ( Local ( Name "x$0" ) ) :| [] ) ) - ( Ref Nothing ( Local ( Name "x1$1" ) ) ) + ( Ref Nothing ( Local ( Name "x1$1" ) ) :| [] ) :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.NameShadowing.Test" ) ( Name "f" ) ) ) - ( LiteralInt Nothing 42 ) + ( LiteralInt Nothing 42 :| [] ) ) - ( LiteralInt Nothing 1 ) + ( LiteralInt Nothing 1 :| [] ) :| [] ) ) ) @@ -53,12 +53,12 @@ UberModule ( ParamNamed Nothing ( Name "x$3" ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x1$4" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.NameShadowing.Test" ) ( Name "f" ) ) ) - ( Ref Nothing ( Local ( Name "x1$4" ) ) ) + ( Ref Nothing ( Local ( Name "x1$4" ) ) :| [] ) ) - ( Ref Nothing ( Local ( Name "x$3" ) ) ) + ( Ref Nothing ( Local ( Name "x$3" ) ) :| [] ) ) ) ) diff --git a/test/ps/output/Golden.Nested.Test/golden.ir b/test/ps/output/Golden.Nested.Test/golden.ir index 75072ffd..8cc4041a 100644 --- a/test/ps/output/Golden.Nested.Test/golden.ir +++ b/test/ps/output/Golden.Nested.Test/golden.ir @@ -18,22 +18,22 @@ UberModule ( Imported ( ModuleName "Golden.Nested.Test" ) ( Name "isZero" ) ) ), ( Name "main", IfThenElse Nothing - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.Nested.Test" ) ( Name "isZero" ) ) ) - ( LiteralInt Nothing 1 ) + ( LiteralInt Nothing 1 :| [] ) ) ( IfThenElse Nothing - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.Nested.Test" ) ( Name "isZero" ) ) ) - ( LiteralInt Nothing 1 ) + ( LiteralInt Nothing 1 :| [] ) ) ( LiteralString Nothing "ok" ) ( LiteralString Nothing "fine" ) ) ( IfThenElse Nothing - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.Nested.Test" ) ( Name "isZero" ) ) ) - ( LiteralInt Nothing 0 ) + ( LiteralInt Nothing 0 :| [] ) ) ( LiteralString Nothing "ha" ) ( LiteralString Nothing "cool" ) diff --git a/test/ps/output/Golden.PatternMatching.Test2/golden.ir b/test/ps/output/Golden.PatternMatching.Test2/golden.ir index 44e34ab7..d218cab8 100644 --- a/test/ps/output/Golden.PatternMatching.Test2/golden.ir +++ b/test/ps/output/Golden.PatternMatching.Test2/golden.ir @@ -17,11 +17,14 @@ UberModule ( LiteralString Nothing "Golden.PatternMatching.Test1∷N.Succ" ) ( ReflectCtor Nothing ( Ref Nothing ( Local ( Name "n" ) ) ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.PatternMatching.Test2" ) ( Name "bat" ) ) ) - ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "n" ) ) ) ( PropName "value0" ) ) + ( ObjectProp Nothing + ( Ref Nothing ( Local ( Name "n" ) ) ) + ( PropName "value0" ) :| [] + ) ) ( Exception Nothing "No patterns matched" ) ) diff --git a/test/ps/output/Golden.ProfunctorDictLens.Test/golden.ir b/test/ps/output/Golden.ProfunctorDictLens.Test/golden.ir index 8c7f18d3..c33ac855 100644 --- a/test/ps/output/Golden.ProfunctorDictLens.Test/golden.ir +++ b/test/ps/output/Golden.ProfunctorDictLens.Test/golden.ir @@ -80,11 +80,11 @@ UberModule ( ParamNamed Nothing ( Name "g$264" ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x$274" ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Local ( Name "g$264" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Local ( Name "f$263" ) ) ) - ( Ref Nothing ( Local ( Name "x$274" ) ) ) + ( Ref Nothing ( Local ( Name "x$274" ) ) :| [] ) :| [] ) ) ) @@ -100,21 +100,21 @@ UberModule ( ParamNamed Nothing ( Name "c2d" ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "b2c" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Profunctor" ) ( Name "composeFlipped" ) ) ) - ( Ref Nothing ( Local ( Name "a2b" ) ) ) + ( Ref Nothing ( Local ( Name "a2b" ) ) :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Profunctor" ) ( Name "composeFlipped" ) ) ) - ( Ref Nothing ( Local ( Name "b2c" ) ) ) + ( Ref Nothing ( Local ( Name "b2c" ) ) :| [] ) ) - ( Ref Nothing ( Local ( Name "c2d" ) ) ) + ( Ref Nothing ( Local ( Name "c2d" ) ) :| [] ) :| [] ) ) ) @@ -150,9 +150,9 @@ UberModule ( PropName "bindE" ) ), ( PropName "Apply0", Abs Nothing ( ParamUnused Nothing ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "Lazy_applyEffect" ) ) ) - ( LiteralInt Nothing 0 ) + ( LiteralInt Nothing 0 :| [] ) ) ) ] @@ -166,19 +166,19 @@ UberModule ( PropName "pureE" ) ), ( PropName "Apply0", Abs Nothing ( ParamUnused Nothing ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "Lazy_applyEffect" ) ) ) - ( LiteralInt Nothing 0 ) + ( LiteralInt Nothing 0 :| [] ) ) ) ] ), ( QName { qnameModuleName = ModuleName "Effect", qnameName = Name "Lazy_functorEffect" - }, App Nothing - ( App Nothing + }, AppN Nothing + ( AppN Nothing ( Ref Nothing ( Local ( Name "PSLUA_runtime_lazy" ) ) ) - ( LiteralString Nothing "functorEffect" ) + ( LiteralString Nothing "functorEffect" :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) ( LiteralObject Nothing @@ -187,10 +187,10 @@ UberModule ( ParamNamed Nothing ( Name "f$111" ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "a$112" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp Nothing - ( App Nothing + ( AppN Nothing ( ObjectProp Nothing ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "applicativeEffect" ) ) @@ -198,53 +198,58 @@ UberModule ( PropName "Apply0" ) ) ( Ref Nothing - ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) + ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ) ( PropName "apply" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Control.Applicative" ) ( Name "pure" ) ) ) ( Ref Nothing - ( Imported ( ModuleName "Effect" ) ( Name "applicativeEffect" ) ) + ( Imported + ( ModuleName "Effect" ) + ( Name "applicativeEffect" ) + ) :| [] ) ) - ( Ref Nothing ( Local ( Name "f$111" ) ) ) + ( Ref Nothing ( Local ( Name "f$111" ) ) :| [] ) :| [] ) ) - ( Ref Nothing ( Local ( Name "a$112" ) ) ) + ( Ref Nothing ( Local ( Name "a$112" ) ) :| [] ) ) ) ) ] - ) + ) :| [] ) ), ( QName { qnameModuleName = ModuleName "Effect", qnameName = Name "Lazy_applyEffect" - }, App Nothing - ( App Nothing + }, AppN Nothing + ( AppN Nothing ( Ref Nothing ( Local ( Name "PSLUA_runtime_lazy" ) ) ) - ( LiteralString Nothing "applyEffect" ) + ( LiteralString Nothing "applyEffect" :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) ( LiteralObject Nothing [ ( PropName "apply", Let Nothing ( Standalone - ( Nothing, Name "bind$90", App Nothing + ( Nothing, Name "bind$90", AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Control.Bind" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( ObjectProp Nothing ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "monadEffect" ) ) ) ( PropName "Bind1" ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing + ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] + ) :| [] ) ) :| [] ) @@ -252,29 +257,29 @@ UberModule ( ParamNamed Nothing ( Name "f$92" ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "a$93" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Local ( Name "bind$90" ) ) ) - ( Ref Nothing ( Local ( Name "f$92" ) ) ) + ( Ref Nothing ( Local ( Name "f$92" ) ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "f'$94" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Local ( Name "bind$90" ) ) ) - ( Ref Nothing ( Local ( Name "a$93" ) ) ) + ( Ref Nothing ( Local ( Name "a$93" ) ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "a'$95" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Control.Applicative" ) ( Name "pure" ) ) ) - ( App Nothing + ( AppN Nothing ( ObjectProp Nothing ( Ref Nothing ( Imported @@ -285,63 +290,66 @@ UberModule ( PropName "Applicative0" ) ) ( Ref Nothing - ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) - ) + ( Imported + ( ModuleName "Prim" ) + ( Name "undefined" ) + ) :| [] + ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Local ( Name "f'$94" ) ) ) - ( Ref Nothing ( Local ( Name "a'$95" ) ) ) + ( Ref Nothing ( Local ( Name "a'$95" ) ) :| [] ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) ) ) ) ), ( PropName "Functor0", Abs Nothing ( ParamUnused Nothing ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "Lazy_functorEffect" ) ) ) - ( LiteralInt Nothing 0 ) + ( LiteralInt Nothing 0 :| [] ) ) ) ] - ) + ) :| [] ) ) ] ), Standalone ( QName { qnameModuleName = ModuleName "Golden.ProfunctorDictLens.Test", qnameName = Name "unwrap" - }, App Nothing + }, AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Newtype" ) ( Name "unwrap" ) ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ), Standalone ( QName { qnameModuleName = ModuleName "Golden.ProfunctorDictLens.Test", qnameName = Name "discard" - }, App Nothing + }, AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Control.Bind" ) ( Name "bind" ) ) ) - ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "bindEffect" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "bindEffect" ) ) :| [] ) ), Standalone ( QName { qnameModuleName = ModuleName "Golden.ProfunctorDictLens.Test", qnameName = Name "logShow" }, Abs Nothing ( ParamNamed Nothing ( Name "a$5" ) ) - ( App Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) - ( App Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Data.Show" ) ( Name "foreign" ) ) ) ( PropName "showIntImpl" ) ) - ( Ref Nothing ( Local ( Name "a$5" ) ) ) + ( Ref Nothing ( Local ( Name "a$5" ) ) :| [] ) :| [] ) ) ), Standalone @@ -355,28 +363,28 @@ UberModule { qnameModuleName = ModuleName "Golden.ProfunctorDictLens.Test", qnameName = Name "_Wrapped" }, Abs Nothing ( ParamNamed Nothing ( Name "dictProfunctor" ) ) - ( App Nothing - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Profunctor" ) ( Name "dimap" ) ) ) - ( Ref Nothing ( Local ( Name "dictProfunctor" ) ) ) + ( Ref Nothing ( Local ( Name "dictProfunctor" ) ) :| [] ) ) ( Ref Nothing - ( Imported ( ModuleName "Golden.ProfunctorDictLens.Test" ) ( Name "unwrap" ) ) + ( Imported ( ModuleName "Golden.ProfunctorDictLens.Test" ) ( Name "unwrap" ) ) :| [] ) ) ( Ref Nothing - ( Imported ( ModuleName "Golden.ProfunctorDictLens.Test" ) ( Name "Wrapped" ) ) + ( Imported ( ModuleName "Golden.ProfunctorDictLens.Test" ) ( Name "Wrapped" ) ) :| [] ) ) ), Standalone ( QName { qnameModuleName = ModuleName "Golden.ProfunctorDictLens.Test", qnameName = Name "_Wrapped1" - }, App Nothing + }, AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.ProfunctorDictLens.Test" ) ( Name "_Wrapped" ) ) ) - ( Ref Nothing ( Imported ( ModuleName "Data.Profunctor" ) ( Name "profunctorFn" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Data.Profunctor" ) ( Name "profunctorFn" ) ) :| [] ) ) ], uberModuleForeigns = [], uberModuleExports = [ @@ -389,17 +397,17 @@ UberModule ( Name "main", Abs Nothing ( ParamUnused Nothing ) ( Let Nothing ( Standalone - ( Nothing, Name "_", App Nothing - ( App Nothing + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.ProfunctorDictLens.Test" ) ( Name "logShow" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.ProfunctorDictLens.Test" ) ( Name "unwrap" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.ProfunctorDictLens.Test" ) @@ -408,38 +416,38 @@ UberModule ) ( Abs Nothing ( ParamNamed Nothing ( Name "v$0" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Semiring" ) ( Name "semiringInt" ) ) ) ( PropName "add" ) ) - ( Ref Nothing ( Local ( Name "v$0" ) ) ) + ( Ref Nothing ( Local ( Name "v$0" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) - ) + ( LiteralInt Nothing 1 :| [] ) + ) :| [] ) ) - ( LiteralInt Nothing 10 ) - ) + ( LiteralInt Nothing 10 :| [] ) :| [] + ) :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ) :| [ Standalone - ( Nothing, Name "_", App Nothing - ( App Nothing + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.ProfunctorDictLens.Test" ) ( Name "logShow" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.ProfunctorDictLens.Test" ) ( Name "unwrap" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.ProfunctorDictLens.Test" ) @@ -448,84 +456,89 @@ UberModule ) ( Abs Nothing ( ParamNamed Nothing ( Name "v0$1" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Semiring" ) ( Name "semiringInt" ) ) ) ( PropName "mul" ) ) - ( Ref Nothing ( Local ( Name "v0$1" ) ) ) + ( Ref Nothing ( Local ( Name "v0$1" ) ) :| [] ) ) - ( LiteralInt Nothing 2 ) - ) + ( LiteralInt Nothing 2 :| [] ) + ) :| [] ) ) - ( LiteralInt Nothing 10 ) - ) + ( LiteralInt Nothing 10 :| [] ) :| [] + ) :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ) ] ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.ProfunctorDictLens.Test" ) ( Name "logShow" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.ProfunctorDictLens.Test" ) ( Name "unwrap" ) ) ) - ( App Nothing - ( App Nothing - ( App Nothing - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing + ( AppN Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Profunctor" ) ( Name "dimap" ) ) ) ( Ref Nothing - ( Imported ( ModuleName "Data.Profunctor" ) ( Name "profunctorFn" ) ) + ( Imported + ( ModuleName "Data.Profunctor" ) + ( Name "profunctorFn" ) + ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Newtype" ) ( Name "unwrap" ) ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing + ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] + ) :| [] ) ) ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Unsafe.Coerce" ) ( Name "foreign" ) ) ) - ( PropName "unsafeCoerce" ) + ( PropName "unsafeCoerce" ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "v1$2" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Data.Ring" ) ( Name "foreign" ) ) ) ( PropName "intSub" ) ) - ( Ref Nothing ( Local ( Name "v1$2" ) ) ) + ( Ref Nothing ( Local ( Name "v1$2" ) ) :| [] ) ) - ( LiteralInt Nothing 5 ) - ) + ( LiteralInt Nothing 5 :| [] ) + ) :| [] ) ) - ( LiteralInt Nothing 10 ) - ) + ( LiteralInt Nothing 10 :| [] ) :| [] + ) :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ) ) ), diff --git a/test/ps/output/Golden.RecDataDefs.Test/golden.ir b/test/ps/output/Golden.RecDataDefs.Test/golden.ir index 67c213aa..07801796 100644 --- a/test/ps/output/Golden.RecDataDefs.Test/golden.ir +++ b/test/ps/output/Golden.RecDataDefs.Test/golden.ir @@ -33,9 +33,9 @@ UberModule ), Standalone ( QName { qnameModuleName = ModuleName "Golden.RecDataDefs.Test", qnameName = Name "ab" - }, App Nothing + }, AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.RecDataDefs.Test" ) ( Name "AB" ) ) ) - ( Ref Nothing ( Imported ( ModuleName "Golden.RecDataDefs.Test" ) ( Name "B" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Golden.RecDataDefs.Test" ) ( Name "B" ) ) :| [] ) ) ], uberModuleForeigns = [], uberModuleExports = [ @@ -52,9 +52,9 @@ UberModule ( Name "ab", Ref Nothing ( Imported ( ModuleName "Golden.RecDataDefs.Test" ) ( Name "ab" ) ) ), - ( Name "ba", App Nothing + ( Name "ba", AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.RecDataDefs.Test" ) ( Name "BA" ) ) ) - ( Ref Nothing ( Imported ( ModuleName "Golden.RecDataDefs.Test" ) ( Name "ab" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Golden.RecDataDefs.Test" ) ( Name "ab" ) ) :| [] ) ) ] } \ No newline at end of file diff --git a/test/ps/output/Golden.RecGroupOrder.Test/golden.ir b/test/ps/output/Golden.RecGroupOrder.Test/golden.ir index 40af04f8..90f09852 100644 --- a/test/ps/output/Golden.RecGroupOrder.Test/golden.ir +++ b/test/ps/output/Golden.RecGroupOrder.Test/golden.ir @@ -32,47 +32,47 @@ UberModule ( Name "main", Let Nothing ( RecursiveGroup ( - ( Nothing, Name "Lazy_record$0", App Nothing - ( App Nothing + ( Nothing, Name "Lazy_record$0", AppN Nothing + ( AppN Nothing ( Ref Nothing ( Local ( Name "PSLUA_runtime_lazy" ) ) ) - ( LiteralString Nothing "record" ) + ( LiteralString Nothing "record" :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.RecGroupOrder.Test" ) ( Name "store" ) ) ) ( Abs Nothing ( ParamUnused Nothing ) ( ObjectProp Nothing - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Local ( Name "Lazy_record$0" ) ) ) - ( LiteralInt Nothing 0 ) + ( LiteralInt Nothing 0 :| [] ) ) ( PropName "tag" ) - ) + ) :| [] ) - ) + ) :| [] ) ) :| [ - ( Nothing, Name "record$1", App Nothing + ( Nothing, Name "record$1", AppN Nothing ( Ref Nothing ( Local ( Name "Lazy_record$0" ) ) ) - ( LiteralInt Nothing 0 ) + ( LiteralInt Nothing 0 :| [] ) ) ] ) :| [] ) - ( App Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) - ( App Nothing + ( AppN Nothing ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "record$1" ) ) ) ( PropName "run" ) ) ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Data.Unit" ) ( Name "foreign" ) ) ) - ( PropName "unit" ) - ) + ( PropName "unit" ) :| [] + ) :| [] ) ) ) diff --git a/test/ps/output/Golden.RecursiveBindings.Test/golden.ir b/test/ps/output/Golden.RecursiveBindings.Test/golden.ir index 321d4e75..08a7736a 100644 --- a/test/ps/output/Golden.RecursiveBindings.Test/golden.ir +++ b/test/ps/output/Golden.RecursiveBindings.Test/golden.ir @@ -8,15 +8,17 @@ UberModule ( ParamNamed Nothing ( Name "v$2" ) ) ( IfThenElse Nothing ( Ref Nothing ( Local ( Name "v$2" ) ) ) - ( App Nothing - ( Ref Nothing ( Local ( Name "no$1" ) ) ) ( LiteralBool Nothing False ) + ( AppN Nothing + ( Ref Nothing ( Local ( Name "no$1" ) ) ) + ( LiteralBool Nothing False :| [] ) ) ( IfThenElse Nothing ( Eq Nothing ( LiteralBool Nothing False ) ( Ref Nothing ( Local ( Name "v$2" ) ) ) ) - ( App Nothing - ( Ref Nothing ( Local ( Name "no$1" ) ) ) ( LiteralBool Nothing True ) + ( AppN Nothing + ( Ref Nothing ( Local ( Name "no$1" ) ) ) + ( LiteralBool Nothing True :| [] ) ) ( Exception Nothing "No patterns matched" ) ) @@ -27,15 +29,17 @@ UberModule ( ParamNamed Nothing ( Name "v0$3" ) ) ( IfThenElse Nothing ( Ref Nothing ( Local ( Name "v0$3" ) ) ) - ( App Nothing - ( Ref Nothing ( Local ( Name "yes$0" ) ) ) ( LiteralBool Nothing False ) + ( AppN Nothing + ( Ref Nothing ( Local ( Name "yes$0" ) ) ) + ( LiteralBool Nothing False :| [] ) ) ( IfThenElse Nothing ( Eq Nothing ( LiteralBool Nothing False ) ( Ref Nothing ( Local ( Name "v0$3" ) ) ) ) - ( App Nothing - ( Ref Nothing ( Local ( Name "yes$0" ) ) ) ( LiteralBool Nothing True ) + ( AppN Nothing + ( Ref Nothing ( Local ( Name "yes$0" ) ) ) + ( LiteralBool Nothing True :| [] ) ) ( Exception Nothing "No patterns matched" ) ) @@ -44,7 +48,10 @@ UberModule ] ) :| [] ) - ( App Nothing ( Ref Nothing ( Local ( Name "no$1" ) ) ) ( LiteralBool Nothing False ) ) + ( AppN Nothing + ( Ref Nothing ( Local ( Name "no$1" ) ) ) + ( LiteralBool Nothing False :| [] ) + ) ), ( Name "whereRec", Let Nothing ( RecursiveGroup @@ -53,15 +60,17 @@ UberModule ( ParamNamed Nothing ( Name "v$16" ) ) ( IfThenElse Nothing ( Ref Nothing ( Local ( Name "v$16" ) ) ) - ( App Nothing - ( Ref Nothing ( Local ( Name "no$15" ) ) ) ( LiteralBool Nothing False ) + ( AppN Nothing + ( Ref Nothing ( Local ( Name "no$15" ) ) ) + ( LiteralBool Nothing False :| [] ) ) ( IfThenElse Nothing ( Eq Nothing ( LiteralBool Nothing False ) ( Ref Nothing ( Local ( Name "v$16" ) ) ) ) - ( App Nothing - ( Ref Nothing ( Local ( Name "no$15" ) ) ) ( LiteralBool Nothing True ) + ( AppN Nothing + ( Ref Nothing ( Local ( Name "no$15" ) ) ) + ( LiteralBool Nothing True :| [] ) ) ( Exception Nothing "No patterns matched" ) ) @@ -72,15 +81,17 @@ UberModule ( ParamNamed Nothing ( Name "v0$17" ) ) ( IfThenElse Nothing ( Ref Nothing ( Local ( Name "v0$17" ) ) ) - ( App Nothing - ( Ref Nothing ( Local ( Name "yes$14" ) ) ) ( LiteralBool Nothing False ) + ( AppN Nothing + ( Ref Nothing ( Local ( Name "yes$14" ) ) ) + ( LiteralBool Nothing False :| [] ) ) ( IfThenElse Nothing ( Eq Nothing ( LiteralBool Nothing False ) ( Ref Nothing ( Local ( Name "v0$17" ) ) ) ) - ( App Nothing - ( Ref Nothing ( Local ( Name "yes$14" ) ) ) ( LiteralBool Nothing True ) + ( AppN Nothing + ( Ref Nothing ( Local ( Name "yes$14" ) ) ) + ( LiteralBool Nothing True :| [] ) ) ( Exception Nothing "No patterns matched" ) ) @@ -89,7 +100,10 @@ UberModule ] ) :| [] ) - ( App Nothing ( Ref Nothing ( Local ( Name "no$15" ) ) ) ( LiteralBool Nothing False ) ) + ( AppN Nothing + ( Ref Nothing ( Local ( Name "no$15" ) ) ) + ( LiteralBool Nothing False :| [] ) + ) ), ( Name "letRecMixed", Let Nothing ( Standalone @@ -97,16 +111,16 @@ UberModule [ RecursiveGroup ( ( Nothing, Name "b$5", Abs Nothing ( ParamUnused Nothing ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Local ( Name "a$6" ) ) ) - ( Ref Nothing ( Local ( Name "z$4" ) ) ) + ( Ref Nothing ( Local ( Name "z$4" ) ) :| [] ) ) ) :| [ ( Nothing, Name "a$6", Abs Nothing ( ParamUnused Nothing ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Local ( Name "b$5" ) ) ) - ( Ref Nothing ( Local ( Name "z$4" ) ) ) + ( Ref Nothing ( Local ( Name "z$4" ) ) :| [] ) ) ) ] @@ -114,38 +128,38 @@ UberModule ( Nothing, Name "f$7", Abs Nothing ( ParamUnused Nothing ) ( Abs Nothing ( ParamNamed Nothing ( Name "k$13" ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Local ( Name "a$6" ) ) ) - ( Ref Nothing ( Local ( Name "k$13" ) ) ) + ( Ref Nothing ( Local ( Name "k$13" ) ) :| [] ) ) ) ), Standalone - ( Nothing, Name "y$8", App Nothing - ( App Nothing + ( Nothing, Name "y$8", AppN Nothing + ( AppN Nothing ( Ref Nothing ( Local ( Name "f$7" ) ) ) - ( Ref Nothing ( Local ( Name "z$4" ) ) ) + ( Ref Nothing ( Local ( Name "z$4" ) ) :| [] ) ) - ( Ref Nothing ( Local ( Name "z$4" ) ) ) + ( Ref Nothing ( Local ( Name "z$4" ) ) :| [] ) ) ] ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Local ( Name "f$7" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Local ( Name "f$7" ) ) ) - ( Ref Nothing ( Local ( Name "y$8" ) ) ) + ( Ref Nothing ( Local ( Name "y$8" ) ) :| [] ) ) - ( Ref Nothing ( Local ( Name "y$8" ) ) ) + ( Ref Nothing ( Local ( Name "y$8" ) ) :| [] ) :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Local ( Name "f$7" ) ) ) - ( Ref Nothing ( Local ( Name "y$8" ) ) ) + ( Ref Nothing ( Local ( Name "y$8" ) ) :| [] ) ) - ( LiteralInt Nothing 0 ) + ( LiteralInt Nothing 0 :| [] ) :| [] ) ) ) diff --git a/test/ps/output/Golden.StringCodePoints.Test/golden.ir b/test/ps/output/Golden.StringCodePoints.Test/golden.ir index 408bdd6a..b3f40aca 100644 --- a/test/ps/output/Golden.StringCodePoints.Test/golden.ir +++ b/test/ps/output/Golden.StringCodePoints.Test/golden.ir @@ -136,11 +136,11 @@ UberModule ( ParamNamed Nothing ( Name "g" ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x" ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Local ( Name "f" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Local ( Name "g" ) ) ) - ( Ref Nothing ( Local ( Name "x" ) ) ) + ( Ref Nothing ( Local ( Name "x" ) ) :| [] ) :| [] ) ) ) @@ -165,8 +165,8 @@ UberModule ( ParamNamed Nothing ( Name "a" ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "b" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp Nothing ( Ref Nothing ( Imported @@ -176,7 +176,7 @@ UberModule ) ( PropName "disj" ) ) - ( App Nothing + ( AppN Nothing ( ObjectProp Nothing ( Ref Nothing ( Imported @@ -186,10 +186,10 @@ UberModule ) ( PropName "not" ) ) - ( Ref Nothing ( Local ( Name "a" ) ) ) + ( Ref Nothing ( Local ( Name "a" ) ) :| [] ) :| [] ) ) - ( Ref Nothing ( Local ( Name "b" ) ) ) + ( Ref Nothing ( Local ( Name "b" ) ) :| [] ) ) ) ), @@ -322,18 +322,18 @@ UberModule { qnameModuleName = ModuleName "Data.Ord", qnameName = Name "ordInt" }, LiteralObject Nothing [ - ( PropName "compare", App Nothing - ( App Nothing - ( App Nothing + ( PropName "compare", AppN Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Data.Ord" ) ( Name "foreign" ) ) ) ( PropName "ordIntImpl" ) ) - ( Ref Nothing ( Imported ( ModuleName "Data.Ordering" ) ( Name "LT" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Data.Ordering" ) ( Name "LT" ) ) :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Data.Ordering" ) ( Name "EQ" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Data.Ordering" ) ( Name "EQ" ) ) :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Data.Ordering" ) ( Name "GT" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Data.Ordering" ) ( Name "GT" ) ) :| [] ) ), ( PropName "Eq0", Abs Nothing ( ParamUnused Nothing ) ( Ref Nothing ( Imported ( ModuleName "Data.Eq" ) ( Name "eqInt" ) ) ) @@ -344,18 +344,18 @@ UberModule { qnameModuleName = ModuleName "Data.Ord", qnameName = Name "ordChar" }, LiteralObject Nothing [ - ( PropName "compare", App Nothing - ( App Nothing - ( App Nothing + ( PropName "compare", AppN Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Data.Ord" ) ( Name "foreign" ) ) ) ( PropName "ordCharImpl" ) ) - ( Ref Nothing ( Imported ( ModuleName "Data.Ordering" ) ( Name "LT" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Data.Ordering" ) ( Name "LT" ) ) :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Data.Ordering" ) ( Name "EQ" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Data.Ordering" ) ( Name "EQ" ) ) :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Data.Ordering" ) ( Name "GT" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Data.Ordering" ) ( Name "GT" ) ) :| [] ) ), ( PropName "Eq0", Abs Nothing ( ParamUnused Nothing ) ( LiteralObject Nothing @@ -386,15 +386,15 @@ UberModule ( Eq Nothing ( LiteralString Nothing "Data.Ordering∷Ordering.LT" ) ( ReflectCtor Nothing - ( App Nothing - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Ord" ) ( Name "compare" ) ) ) - ( Ref Nothing ( Local ( Name "dictOrd" ) ) ) + ( Ref Nothing ( Local ( Name "dictOrd" ) ) :| [] ) ) - ( Ref Nothing ( Local ( Name "a1" ) ) ) + ( Ref Nothing ( Local ( Name "a1" ) ) :| [] ) ) - ( Ref Nothing ( Local ( Name "a2" ) ) ) + ( Ref Nothing ( Local ( Name "a2" ) ) :| [] ) ) ) ) ( LiteralBool Nothing False ) ( LiteralBool Nothing True ) @@ -413,15 +413,15 @@ UberModule ( Eq Nothing ( LiteralString Nothing "Data.Ordering∷Ordering.LT" ) ( ReflectCtor Nothing - ( App Nothing - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Ord" ) ( Name "compare" ) ) ) - ( Ref Nothing ( Local ( Name "dictOrd" ) ) ) + ( Ref Nothing ( Local ( Name "dictOrd" ) ) :| [] ) ) - ( Ref Nothing ( Local ( Name "a1" ) ) ) + ( Ref Nothing ( Local ( Name "a1" ) ) :| [] ) ) - ( Ref Nothing ( Local ( Name "a2" ) ) ) + ( Ref Nothing ( Local ( Name "a2" ) ) :| [] ) ) ) ) ( LiteralBool Nothing True ) ( LiteralBool Nothing False ) @@ -440,15 +440,15 @@ UberModule ( Eq Nothing ( LiteralString Nothing "Data.Ordering∷Ordering.GT" ) ( ReflectCtor Nothing - ( App Nothing - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Ord" ) ( Name "compare" ) ) ) - ( Ref Nothing ( Local ( Name "dictOrd" ) ) ) + ( Ref Nothing ( Local ( Name "dictOrd" ) ) :| [] ) ) - ( Ref Nothing ( Local ( Name "a1" ) ) ) + ( Ref Nothing ( Local ( Name "a1" ) ) :| [] ) ) - ( Ref Nothing ( Local ( Name "a2" ) ) ) + ( Ref Nothing ( Local ( Name "a2" ) ) :| [] ) ) ) ) ( LiteralBool Nothing False ) ( LiteralBool Nothing True ) @@ -527,9 +527,11 @@ UberModule ] ), Standalone ( QName - { qnameModuleName = ModuleName "Data.Maybe", qnameName = Name "append" }, App Nothing + { qnameModuleName = ModuleName "Data.Maybe", qnameName = Name "append" }, AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Semigroup" ) ( Name "append" ) ) ) - ( Ref Nothing ( Imported ( ModuleName "Data.Semigroup" ) ( Name "semigroupString" ) ) ) + ( Ref Nothing + ( Imported ( ModuleName "Data.Semigroup" ) ( Name "semigroupString" ) ) :| [] + ) ), Standalone ( QName { qnameModuleName = ModuleName "Data.Maybe", qnameName = Name "Nothing" @@ -558,26 +560,26 @@ UberModule ( LiteralString Nothing "Data.Maybe∷Maybe.Just" ) ( ReflectCtor Nothing ( Ref Nothing ( Local ( Name "v" ) ) ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "append" ) ) ) - ( LiteralString Nothing "(Just " ) + ( LiteralString Nothing "(Just " :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "append" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Show" ) ( Name "show" ) ) ) - ( Ref Nothing ( Local ( Name "dictShow" ) ) ) + ( Ref Nothing ( Local ( Name "dictShow" ) ) :| [] ) ) ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "v" ) ) ) - ( PropName "value0" ) - ) + ( PropName "value0" ) :| [] + ) :| [] ) ) - ( LiteralString Nothing ")" ) + ( LiteralString Nothing ")" :| [] ) :| [] ) ) ( IfThenElse Nothing @@ -606,14 +608,14 @@ UberModule ( LiteralString Nothing "Data.Maybe∷Maybe.Just" ) ( ReflectCtor Nothing ( Ref Nothing ( Local ( Name "v1" ) ) ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Local ( Name "v" ) ) ) ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "v1" ) ) ) - ( PropName "value0" ) - ) + ( PropName "value0" ) :| [] + ) :| [] ) ) ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Nothing" ) ) ) @@ -660,9 +662,9 @@ UberModule ( PropName "bindE" ) ), ( PropName "Apply0", Abs Nothing ( ParamUnused Nothing ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "Lazy_applyEffect" ) ) ) - ( LiteralInt Nothing 0 ) + ( LiteralInt Nothing 0 :| [] ) ) ) ] @@ -676,19 +678,19 @@ UberModule ( PropName "pureE" ) ), ( PropName "Apply0", Abs Nothing ( ParamUnused Nothing ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "Lazy_applyEffect" ) ) ) - ( LiteralInt Nothing 0 ) + ( LiteralInt Nothing 0 :| [] ) ) ) ] ), ( QName { qnameModuleName = ModuleName "Effect", qnameName = Name "Lazy_functorEffect" - }, App Nothing - ( App Nothing + }, AppN Nothing + ( AppN Nothing ( Ref Nothing ( Local ( Name "PSLUA_runtime_lazy" ) ) ) - ( LiteralString Nothing "functorEffect" ) + ( LiteralString Nothing "functorEffect" :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) ( LiteralObject Nothing @@ -697,10 +699,10 @@ UberModule ( ParamNamed Nothing ( Name "f$997" ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "a$998" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp Nothing - ( App Nothing + ( AppN Nothing ( ObjectProp Nothing ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "applicativeEffect" ) ) @@ -708,53 +710,58 @@ UberModule ( PropName "Apply0" ) ) ( Ref Nothing - ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) + ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ) ( PropName "apply" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Control.Applicative" ) ( Name "pure" ) ) ) ( Ref Nothing - ( Imported ( ModuleName "Effect" ) ( Name "applicativeEffect" ) ) + ( Imported + ( ModuleName "Effect" ) + ( Name "applicativeEffect" ) + ) :| [] ) ) - ( Ref Nothing ( Local ( Name "f$997" ) ) ) + ( Ref Nothing ( Local ( Name "f$997" ) ) :| [] ) :| [] ) ) - ( Ref Nothing ( Local ( Name "a$998" ) ) ) + ( Ref Nothing ( Local ( Name "a$998" ) ) :| [] ) ) ) ) ] - ) + ) :| [] ) ), ( QName { qnameModuleName = ModuleName "Effect", qnameName = Name "Lazy_applyEffect" - }, App Nothing - ( App Nothing + }, AppN Nothing + ( AppN Nothing ( Ref Nothing ( Local ( Name "PSLUA_runtime_lazy" ) ) ) - ( LiteralString Nothing "applyEffect" ) + ( LiteralString Nothing "applyEffect" :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) ( LiteralObject Nothing [ ( PropName "apply", Let Nothing ( Standalone - ( Nothing, Name "bind$1317", App Nothing + ( Nothing, Name "bind$1317", AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Control.Bind" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( ObjectProp Nothing ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "monadEffect" ) ) ) ( PropName "Bind1" ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing + ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] + ) :| [] ) ) :| [] ) @@ -762,29 +769,29 @@ UberModule ( ParamNamed Nothing ( Name "f$1318" ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "a$1319" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Local ( Name "bind$1317" ) ) ) - ( Ref Nothing ( Local ( Name "f$1318" ) ) ) + ( Ref Nothing ( Local ( Name "f$1318" ) ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "f'$1320" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Local ( Name "bind$1317" ) ) ) - ( Ref Nothing ( Local ( Name "a$1319" ) ) ) + ( Ref Nothing ( Local ( Name "a$1319" ) ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "a'$1321" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Control.Applicative" ) ( Name "pure" ) ) ) - ( App Nothing + ( AppN Nothing ( ObjectProp Nothing ( Ref Nothing ( Imported @@ -795,50 +802,53 @@ UberModule ( PropName "Applicative0" ) ) ( Ref Nothing - ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) - ) + ( Imported + ( ModuleName "Prim" ) + ( Name "undefined" ) + ) :| [] + ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Local ( Name "f'$1320" ) ) ) - ( Ref Nothing ( Local ( Name "a'$1321" ) ) ) + ( Ref Nothing ( Local ( Name "a'$1321" ) ) :| [] ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) ) ) ) ), ( PropName "Functor0", Abs Nothing ( ParamUnused Nothing ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "Lazy_functorEffect" ) ) ) - ( LiteralInt Nothing 0 ) + ( LiteralInt Nothing 0 :| [] ) ) ) ] - ) + ) :| [] ) ) ] ), Standalone ( QName - { qnameModuleName = ModuleName "Data.Enum", qnameName = Name "sub" }, App Nothing + { qnameModuleName = ModuleName "Data.Enum", qnameName = Name "sub" }, AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Ring" ) ( Name "sub" ) ) ) - ( Ref Nothing ( Imported ( ModuleName "Data.Ring" ) ( Name "ringInt" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Data.Ring" ) ( Name "ringInt" ) ) :| [] ) ), Standalone ( QName - { qnameModuleName = ModuleName "Data.Enum", qnameName = Name "bottom1" }, App Nothing + { qnameModuleName = ModuleName "Data.Enum", qnameName = Name "bottom1" }, AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Bounded" ) ( Name "bottom" ) ) ) - ( Ref Nothing ( Imported ( ModuleName "Data.Bounded" ) ( Name "boundedChar" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Data.Bounded" ) ( Name "boundedChar" ) ) :| [] ) ), Standalone ( QName - { qnameModuleName = ModuleName "Data.Enum", qnameName = Name "top1" }, App Nothing + { qnameModuleName = ModuleName "Data.Enum", qnameName = Name "top1" }, AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Bounded" ) ( Name "top" ) ) ) - ( Ref Nothing ( Imported ( ModuleName "Data.Bounded" ) ( Name "boundedChar" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Data.Bounded" ) ( Name "boundedChar" ) ) :| [] ) ), Standalone ( QName { qnameModuleName = ModuleName "Data.Enum", qnameName = Name "toEnum" }, Abs Nothing @@ -857,22 +867,22 @@ UberModule ( ParamNamed Nothing ( Name "fromEnum'" ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "a" ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Local ( Name "toEnum'" ) ) ) - ( App Nothing - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Semiring" ) ( Name "add" ) ) ) ( Ref Nothing - ( Imported ( ModuleName "Data.Semiring" ) ( Name "semiringInt" ) ) + ( Imported ( ModuleName "Data.Semiring" ) ( Name "semiringInt" ) ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Local ( Name "fromEnum'" ) ) ) - ( Ref Nothing ( Local ( Name "a" ) ) ) + ( Ref Nothing ( Local ( Name "a" ) ) :| [] ) :| [] ) ) - ( LiteralInt Nothing 1 ) + ( LiteralInt Nothing 1 :| [] ) :| [] ) ) ) @@ -885,17 +895,17 @@ UberModule ( ParamNamed Nothing ( Name "fromEnum'" ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "a" ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Local ( Name "toEnum'" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Enum" ) ( Name "sub" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Local ( Name "fromEnum'" ) ) ) - ( Ref Nothing ( Local ( Name "a" ) ) ) + ( Ref Nothing ( Local ( Name "a" ) ) :| [] ) :| [] ) ) - ( LiteralInt Nothing 1 ) + ( LiteralInt Nothing 1 :| [] ) :| [] ) ) ) @@ -905,58 +915,63 @@ UberModule { qnameModuleName = ModuleName "Data.Enum", qnameName = Name "charToEnum" }, Abs Nothing ( ParamNamed Nothing ( Name "v" ) ) ( IfThenElse Nothing - ( App Nothing - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.HeytingAlgebra" ) ( Name "conj" ) ) ) ( Ref Nothing - ( Imported ( ModuleName "Data.HeytingAlgebra" ) ( Name "heytingAlgebraBoolean" ) ) + ( Imported + ( ModuleName "Data.HeytingAlgebra" ) + ( Name "heytingAlgebraBoolean" ) + ) :| [] ) ) - ( App Nothing - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Ord" ) ( Name "greaterThanOrEq" ) ) ) - ( Ref Nothing ( Imported ( ModuleName "Data.Ord" ) ( Name "ordInt" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Data.Ord" ) ( Name "ordInt" ) ) :| [] ) ) - ( Ref Nothing ( Local ( Name "v" ) ) ) + ( Ref Nothing ( Local ( Name "v" ) ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Data.Enum" ) ( Name "foreign" ) ) ) ( PropName "toCharCode" ) ) - ( Ref Nothing ( Imported ( ModuleName "Data.Enum" ) ( Name "bottom1" ) ) ) - ) + ( Ref Nothing + ( Imported ( ModuleName "Data.Enum" ) ( Name "bottom1" ) ) :| [] + ) :| [] + ) :| [] ) ) - ( App Nothing - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Ord" ) ( Name "lessThanOrEq" ) ) ) - ( Ref Nothing ( Imported ( ModuleName "Data.Ord" ) ( Name "ordInt" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Data.Ord" ) ( Name "ordInt" ) ) :| [] ) ) - ( Ref Nothing ( Local ( Name "v" ) ) ) + ( Ref Nothing ( Local ( Name "v" ) ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Data.Enum" ) ( Name "foreign" ) ) ) ( PropName "toCharCode" ) ) - ( Ref Nothing ( Imported ( ModuleName "Data.Enum" ) ( Name "top1" ) ) ) - ) + ( Ref Nothing ( Imported ( ModuleName "Data.Enum" ) ( Name "top1" ) ) :| [] ) :| [] + ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Data.Enum" ) ( Name "foreign" ) ) ) ( PropName "fromCharCode" ) ) - ( Ref Nothing ( Local ( Name "v" ) ) ) + ( Ref Nothing ( Local ( Name "v" ) ) :| [] ) :| [] ) ) ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Nothing" ) ) ) @@ -966,23 +981,23 @@ UberModule { qnameModuleName = ModuleName "Data.Enum", qnameName = Name "boundedEnumChar" }, LiteralObject Nothing [ - ( PropName "cardinality", App Nothing - ( App Nothing + ( PropName "cardinality", AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Enum" ) ( Name "sub" ) ) ) - ( App Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Data.Enum" ) ( Name "foreign" ) ) ) ( PropName "toCharCode" ) ) - ( Ref Nothing ( Imported ( ModuleName "Data.Enum" ) ( Name "top1" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Data.Enum" ) ( Name "top1" ) ) :| [] ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Data.Enum" ) ( Name "foreign" ) ) ) ( PropName "toCharCode" ) ) - ( Ref Nothing ( Imported ( ModuleName "Data.Enum" ) ( Name "bottom1" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Data.Enum" ) ( Name "bottom1" ) ) :| [] ) :| [] ) ), ( PropName "toEnum", Ref Nothing @@ -998,24 +1013,28 @@ UberModule ( PropName "Enum1", Abs Nothing ( ParamUnused Nothing ) ( LiteralObject Nothing [ - ( PropName "succ", App Nothing - ( App Nothing + ( PropName "succ", AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Enum" ) ( Name "defaultSucc" ) ) ) - ( Ref Nothing ( Imported ( ModuleName "Data.Enum" ) ( Name "charToEnum" ) ) ) + ( Ref Nothing + ( Imported ( ModuleName "Data.Enum" ) ( Name "charToEnum" ) ) :| [] + ) ) ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Data.Enum" ) ( Name "foreign" ) ) ) - ( PropName "toCharCode" ) + ( PropName "toCharCode" ) :| [] ) ), - ( PropName "pred", App Nothing - ( App Nothing + ( PropName "pred", AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Enum" ) ( Name "defaultPred" ) ) ) - ( Ref Nothing ( Imported ( ModuleName "Data.Enum" ) ( Name "charToEnum" ) ) ) + ( Ref Nothing + ( Imported ( ModuleName "Data.Enum" ) ( Name "charToEnum" ) ) :| [] + ) ) ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Data.Enum" ) ( Name "foreign" ) ) ) - ( PropName "toCharCode" ) + ( PropName "toCharCode" ) :| [] ) ), ( PropName "Ord0", Abs Nothing ( ParamUnused Nothing ) @@ -1028,63 +1047,67 @@ UberModule ), Standalone ( QName { qnameModuleName = ModuleName "Data.String.CodePoints", qnameName = Name "add" - }, App Nothing + }, AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Semiring" ) ( Name "add" ) ) ) - ( Ref Nothing ( Imported ( ModuleName "Data.Semiring" ) ( Name "semiringInt" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Data.Semiring" ) ( Name "semiringInt" ) ) :| [] ) ), Standalone ( QName { qnameModuleName = ModuleName "Data.String.CodePoints", qnameName = Name "sub" - }, App Nothing + }, AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Ring" ) ( Name "sub" ) ) ) - ( Ref Nothing ( Imported ( ModuleName "Data.Ring" ) ( Name "ringInt" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Data.Ring" ) ( Name "ringInt" ) ) :| [] ) ), Standalone ( QName { qnameModuleName = ModuleName "Data.String.CodePoints", qnameName = Name "append" - }, App Nothing + }, AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Semigroup" ) ( Name "append" ) ) ) - ( Ref Nothing ( Imported ( ModuleName "Data.Semigroup" ) ( Name "semigroupString" ) ) ) + ( Ref Nothing + ( Imported ( ModuleName "Data.Semigroup" ) ( Name "semigroupString" ) ) :| [] + ) ), Standalone ( QName { qnameModuleName = ModuleName "Data.String.CodePoints", qnameName = Name "conj" - }, App Nothing + }, AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.HeytingAlgebra" ) ( Name "conj" ) ) ) ( Ref Nothing - ( Imported ( ModuleName "Data.HeytingAlgebra" ) ( Name "heytingAlgebraBoolean" ) ) + ( Imported ( ModuleName "Data.HeytingAlgebra" ) ( Name "heytingAlgebraBoolean" ) ) :| [] ) ), Standalone ( QName { qnameModuleName = ModuleName "Data.String.CodePoints", qnameName = Name "lessThanOrEq" - }, App Nothing + }, AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Ord" ) ( Name "lessThanOrEq" ) ) ) - ( Ref Nothing ( Imported ( ModuleName "Data.Ord" ) ( Name "ordInt" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Data.Ord" ) ( Name "ordInt" ) ) :| [] ) ), Standalone ( QName { qnameModuleName = ModuleName "Data.String.CodePoints", qnameName = Name "fromEnum" - }, App Nothing + }, AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Enum" ) ( Name "fromEnum" ) ) ) - ( Ref Nothing ( Imported ( ModuleName "Data.Enum" ) ( Name "boundedEnumChar" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Data.Enum" ) ( Name "boundedEnumChar" ) ) :| [] ) ), Standalone ( QName { qnameModuleName = ModuleName "Data.String.CodePoints", qnameName = Name "compose" - }, App Nothing + }, AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Control.Semigroupoid" ) ( Name "compose" ) ) ) - ( Ref Nothing ( Imported ( ModuleName "Control.Semigroupoid" ) ( Name "semigroupoidFn" ) ) ) + ( Ref Nothing + ( Imported ( ModuleName "Control.Semigroupoid" ) ( Name "semigroupoidFn" ) ) :| [] + ) ), Standalone ( QName { qnameModuleName = ModuleName "Data.String.CodePoints", qnameName = Name "eq" - }, App Nothing + }, AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Eq" ) ( Name "eq" ) ) ) - ( Ref Nothing ( Imported ( ModuleName "Data.Eq" ) ( Name "eqInt" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Data.Eq" ) ( Name "eqInt" ) ) :| [] ) ), Standalone ( QName { qnameModuleName = ModuleName "Data.String.CodePoints", qnameName = Name "lessThan" - }, App Nothing + }, AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Ord" ) ( Name "lessThan" ) ) ) - ( Ref Nothing ( Imported ( ModuleName "Data.Ord" ) ( Name "ordInt" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Data.Ord" ) ( Name "ordInt" ) ) :| [] ) ), Standalone ( QName { qnameModuleName = ModuleName "Data.String.CodePoints", qnameName = Name "unsafeCodePointAt0" - }, App Nothing + }, AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Data.String.CodePoints" ) ( Name "foreign" ) ) ) ( PropName "_unsafeCodePointAt0" ) @@ -1093,75 +1116,77 @@ UberModule ( ParamNamed Nothing ( Name "s$27" ) ) ( Let Nothing ( Standalone - ( Nothing, Name "cu0$28", App Nothing + ( Nothing, Name "cu0$28", AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.String.CodePoints" ) ( Name "fromEnum" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Data.String.Unsafe" ) ( Name "foreign" ) ) ) ( PropName "charAt" ) ) - ( LiteralInt Nothing 0 ) + ( LiteralInt Nothing 0 :| [] ) ) - ( Ref Nothing ( Local ( Name "s$27" ) ) ) + ( Ref Nothing ( Local ( Name "s$27" ) ) :| [] ) :| [] ) ) :| [] ) ( IfThenElse Nothing - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.String.CodePoints" ) ( Name "conj" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.String.CodePoints" ) ( Name "conj" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.String.CodePoints" ) ( Name "lessThanOrEq" ) ) ) - ( LiteralInt Nothing 55296 ) + ( LiteralInt Nothing 55296 :| [] ) ) - ( Ref Nothing ( Local ( Name "cu0$28" ) ) ) + ( Ref Nothing ( Local ( Name "cu0$28" ) ) :| [] ) :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.String.CodePoints" ) ( Name "lessThanOrEq" ) ) ) - ( Ref Nothing ( Local ( Name "cu0$28" ) ) ) + ( Ref Nothing ( Local ( Name "cu0$28" ) ) :| [] ) ) - ( LiteralInt Nothing 56319 ) - ) + ( LiteralInt Nothing 56319 :| [] ) :| [] + ) :| [] ) ) ( IfThenElse Nothing ( Eq Nothing ( LiteralString Nothing "Data.Ordering∷Ordering.GT" ) ( ReflectCtor Nothing - ( App Nothing - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Ord" ) ( Name "compare" ) ) ) - ( Ref Nothing ( Imported ( ModuleName "Data.Ord" ) ( Name "ordInt" ) ) ) + ( Ref Nothing + ( Imported ( ModuleName "Data.Ord" ) ( Name "ordInt" ) ) :| [] + ) ) - ( App Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -1171,142 +1196,144 @@ UberModule ) ( PropName "length" ) ) - ( Ref Nothing ( Local ( Name "s$27" ) ) ) + ( Ref Nothing ( Local ( Name "s$27" ) ) :| [] ) :| [] ) ) - ( LiteralInt Nothing 1 ) + ( LiteralInt Nothing 1 :| [] ) ) ) - ) ( LiteralBool Nothing True ) ( LiteralBool Nothing False ) + ) ( LiteralBool Nothing True ) ( LiteralBool Nothing False ) :| [] ) ) ( Let Nothing ( Standalone - ( Nothing, Name "cu1$30", App Nothing + ( Nothing, Name "cu1$30", AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.String.CodePoints" ) ( Name "fromEnum" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Data.String.Unsafe" ) ( Name "foreign" ) ) ) ( PropName "charAt" ) ) - ( LiteralInt Nothing 1 ) + ( LiteralInt Nothing 1 :| [] ) ) - ( Ref Nothing ( Local ( Name "s$27" ) ) ) + ( Ref Nothing ( Local ( Name "s$27" ) ) :| [] ) :| [] ) ) :| [] ) ( IfThenElse Nothing - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.String.CodePoints" ) ( Name "conj" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.String.CodePoints" ) ( Name "lessThanOrEq" ) ) ) - ( LiteralInt Nothing 56320 ) + ( LiteralInt Nothing 56320 :| [] ) ) - ( Ref Nothing ( Local ( Name "cu1$30" ) ) ) + ( Ref Nothing ( Local ( Name "cu1$30" ) ) :| [] ) :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.String.CodePoints" ) ( Name "lessThanOrEq" ) ) ) - ( Ref Nothing ( Local ( Name "cu1$30" ) ) ) + ( Ref Nothing ( Local ( Name "cu1$30" ) ) :| [] ) ) - ( LiteralInt Nothing 57343 ) + ( LiteralInt Nothing 57343 :| [] ) :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.String.CodePoints" ) ( Name "add" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.String.CodePoints" ) ( Name "add" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Semiring" ) ( Name "semiringInt" ) ) ) ( PropName "mul" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.String.CodePoints" ) ( Name "sub" ) ) ) - ( Ref Nothing ( Local ( Name "cu0$28" ) ) ) + ( Ref Nothing ( Local ( Name "cu0$28" ) ) :| [] ) ) - ( LiteralInt Nothing 55296 ) + ( LiteralInt Nothing 55296 :| [] ) :| [] ) ) - ( LiteralInt Nothing 1024 ) + ( LiteralInt Nothing 1024 :| [] ) :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.String.CodePoints" ) ( Name "sub" ) ) ) - ( Ref Nothing ( Local ( Name "cu1$30" ) ) ) + ( Ref Nothing ( Local ( Name "cu1$30" ) ) :| [] ) ) - ( LiteralInt Nothing 56320 ) - ) + ( LiteralInt Nothing 56320 :| [] ) :| [] + ) :| [] ) ) - ( LiteralInt Nothing 65536 ) + ( LiteralInt Nothing 65536 :| [] ) ) ( Ref Nothing ( Local ( Name "cu0$28" ) ) ) ) ) ( Ref Nothing ( Local ( Name "cu0$28" ) ) ) ) - ) + ) :| [] ) ), Standalone ( QName { qnameModuleName = ModuleName "Data.String.CodePoints", qnameName = Name "fromCharCode" - }, App Nothing - ( App Nothing + }, AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.String.CodePoints" ) ( Name "compose" ) ) ) ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Data.String.CodeUnits" ) ( Name "foreign" ) ) ) - ( PropName "singleton" ) + ( PropName "singleton" ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "x$62" ) ) ( Let Nothing ( Standalone - ( Nothing, Name "v$63", App Nothing - ( App Nothing + ( Nothing, Name "v$63", AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Enum" ) ( Name "toEnum" ) ) ) - ( Ref Nothing ( Imported ( ModuleName "Data.Enum" ) ( Name "boundedEnumChar" ) ) ) + ( Ref Nothing + ( Imported ( ModuleName "Data.Enum" ) ( Name "boundedEnumChar" ) ) :| [] + ) ) - ( Ref Nothing ( Local ( Name "x$62" ) ) ) + ( Ref Nothing ( Local ( Name "x$62" ) ) :| [] ) ) :| [] ) ( IfThenElse Nothing @@ -1324,54 +1351,58 @@ UberModule ( ReflectCtor Nothing ( Ref Nothing ( Local ( Name "v$63" ) ) ) ) ) ( IfThenElse Nothing - ( App Nothing - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Ord" ) ( Name "lessThan" ) ) ) - ( Ref Nothing ( Imported ( ModuleName "Data.Ord" ) ( Name "ordInt" ) ) ) + ( Ref Nothing + ( Imported ( ModuleName "Data.Ord" ) ( Name "ordInt" ) ) :| [] + ) ) - ( Ref Nothing ( Local ( Name "x$62" ) ) ) + ( Ref Nothing ( Local ( Name "x$62" ) ) :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Enum" ) ( Name "fromEnum" ) ) ) ( Ref Nothing - ( Imported ( ModuleName "Data.Enum" ) ( Name "boundedEnumChar" ) ) + ( Imported ( ModuleName "Data.Enum" ) ( Name "boundedEnumChar" ) ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Bounded" ) ( Name "bottom" ) ) ) - ( App Nothing + ( AppN Nothing ( ObjectProp Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Enum" ) ( Name "boundedEnumChar" ) ) ) ( PropName "Bounded0" ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) - ) - ) + ( Ref Nothing + ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] + ) :| [] + ) :| [] + ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Bounded" ) ( Name "bottom" ) ) ) ( Ref Nothing - ( Imported ( ModuleName "Data.Bounded" ) ( Name "boundedChar" ) ) + ( Imported ( ModuleName "Data.Bounded" ) ( Name "boundedChar" ) ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Bounded" ) ( Name "top" ) ) ) ( Ref Nothing - ( Imported ( ModuleName "Data.Bounded" ) ( Name "boundedChar" ) ) + ( Imported ( ModuleName "Data.Bounded" ) ( Name "boundedChar" ) ) :| [] ) ) ) ( Exception Nothing "No patterns matched" ) ) ) - ) + ) :| [] ) ), Standalone ( QName @@ -1379,37 +1410,37 @@ UberModule }, Abs Nothing ( ParamNamed Nothing ( Name "v" ) ) ( IfThenElse Nothing - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.String.CodePoints" ) ( Name "lessThanOrEq" ) ) ) - ( Ref Nothing ( Local ( Name "v" ) ) ) + ( Ref Nothing ( Local ( Name "v" ) ) :| [] ) ) - ( LiteralInt Nothing 65535 ) + ( LiteralInt Nothing 65535 :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.String.CodePoints" ) ( Name "fromCharCode" ) ) ) - ( Ref Nothing ( Local ( Name "v" ) ) ) + ( Ref Nothing ( Local ( Name "v" ) ) :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.String.CodePoints" ) ( Name "append" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.String.CodePoints" ) ( Name "fromCharCode" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.String.CodePoints" ) ( Name "add" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp Nothing ( Ref Nothing ( Imported @@ -1419,34 +1450,34 @@ UberModule ) ( PropName "div" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.String.CodePoints" ) ( Name "sub" ) ) ) - ( Ref Nothing ( Local ( Name "v" ) ) ) + ( Ref Nothing ( Local ( Name "v" ) ) :| [] ) ) - ( LiteralInt Nothing 65536 ) + ( LiteralInt Nothing 65536 :| [] ) :| [] ) ) - ( LiteralInt Nothing 1024 ) + ( LiteralInt Nothing 1024 :| [] ) :| [] ) ) - ( LiteralInt Nothing 55296 ) - ) + ( LiteralInt Nothing 55296 :| [] ) :| [] + ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.String.CodePoints" ) ( Name "fromCharCode" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.String.CodePoints" ) ( Name "add" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp Nothing ( Ref Nothing ( Imported @@ -1456,34 +1487,34 @@ UberModule ) ( PropName "mod" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.String.CodePoints" ) ( Name "sub" ) ) ) - ( Ref Nothing ( Local ( Name "v" ) ) ) + ( Ref Nothing ( Local ( Name "v" ) ) :| [] ) ) - ( LiteralInt Nothing 65536 ) + ( LiteralInt Nothing 65536 :| [] ) :| [] ) ) - ( LiteralInt Nothing 1024 ) + ( LiteralInt Nothing 1024 :| [] ) :| [] ) ) - ( LiteralInt Nothing 56320 ) - ) + ( LiteralInt Nothing 56320 :| [] ) :| [] + ) :| [] ) ) ) ), Standalone ( QName { qnameModuleName = ModuleName "Data.String.CodePoints", qnameName = Name "singleton" - }, App Nothing + }, AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Data.String.CodePoints" ) ( Name "foreign" ) ) ) ( PropName "_singleton" ) ) ( Ref Nothing - ( Imported ( ModuleName "Data.String.CodePoints" ) ( Name "singletonFallback" ) ) + ( Imported ( ModuleName "Data.String.CodePoints" ) ( Name "singletonFallback" ) ) :| [] ) ), Standalone ( QName @@ -1494,15 +1525,15 @@ UberModule ( ParamNamed Nothing ( Name "x" ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "y" ) ) - ( App Nothing - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Ord" ) ( Name "compare" ) ) ) - ( Ref Nothing ( Imported ( ModuleName "Data.Ord" ) ( Name "ordInt" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Data.Ord" ) ( Name "ordInt" ) ) :| [] ) ) - ( Ref Nothing ( Local ( Name "x" ) ) ) + ( Ref Nothing ( Local ( Name "x" ) ) :| [] ) ) - ( Ref Nothing ( Local ( Name "y" ) ) ) + ( Ref Nothing ( Local ( Name "y" ) ) :| [] ) ) ) ), @@ -1513,14 +1544,14 @@ UberModule ( ParamNamed Nothing ( Name "x$20" ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "y$21" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.String.CodePoints" ) ( Name "eq" ) ) ) - ( Ref Nothing ( Local ( Name "x$20" ) ) ) + ( Ref Nothing ( Local ( Name "x$20" ) ) :| [] ) ) - ( Ref Nothing ( Local ( Name "y$21" ) ) ) + ( Ref Nothing ( Local ( Name "y$21" ) ) :| [] ) ) ) ) @@ -1535,45 +1566,45 @@ UberModule }, Abs Nothing ( ParamNamed Nothing ( Name "s" ) ) ( IfThenElse Nothing - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.String.CodePoints" ) ( Name "eq" ) ) ) - ( App Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Data.String.CodeUnits" ) ( Name "foreign" ) ) ) ( PropName "length" ) ) - ( Ref Nothing ( Local ( Name "s" ) ) ) + ( Ref Nothing ( Local ( Name "s" ) ) :| [] ) :| [] ) ) - ( LiteralInt Nothing 0 ) + ( LiteralInt Nothing 0 :| [] ) ) ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Nothing" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) ( LiteralObject Nothing [ - ( PropName "head", App Nothing + ( PropName "head", AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.String.CodePoints" ) ( Name "unsafeCodePointAt0" ) ) ) - ( Ref Nothing ( Local ( Name "s" ) ) ) + ( Ref Nothing ( Local ( Name "s" ) ) :| [] ) ), - ( PropName "tail", App Nothing - ( App Nothing + ( PropName "tail", AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.String.CodePoints" ) ( Name "drop" ) ) ) - ( LiteralInt Nothing 1 ) + ( LiteralInt Nothing 1 :| [] ) ) - ( Ref Nothing ( Local ( Name "s" ) ) ) + ( Ref Nothing ( Local ( Name "s" ) ) :| [] ) ) - ] + ] :| [] ) ) ) @@ -1586,23 +1617,23 @@ UberModule ( Abs Nothing ( ParamNamed Nothing ( Name "v1" ) ) ( IfThenElse Nothing - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.String.CodePoints" ) ( Name "lessThan" ) ) ) - ( Ref Nothing ( Local ( Name "v" ) ) ) + ( Ref Nothing ( Local ( Name "v" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) + ( LiteralInt Nothing 1 :| [] ) ) ( LiteralString Nothing "" ) ( Let Nothing ( Standalone - ( Nothing, Name "v2$17", App Nothing + ( Nothing, Name "v2$17", AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.String.CodePoints" ) ( Name "uncons" ) ) ) - ( Ref Nothing ( Local ( Name "v1" ) ) ) + ( Ref Nothing ( Local ( Name "v1" ) ) :| [] ) ) :| [] ) ( IfThenElse Nothing @@ -1610,12 +1641,12 @@ UberModule ( LiteralString Nothing "Data.Maybe∷Maybe.Just" ) ( ReflectCtor Nothing ( Ref Nothing ( Local ( Name "v2$17" ) ) ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.String.CodePoints" ) ( Name "append" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.String.CodePoints" ) @@ -1627,26 +1658,26 @@ UberModule ( Ref Nothing ( Local ( Name "v2$17" ) ) ) ( PropName "value0" ) ) - ( PropName "head" ) - ) + ( PropName "head" ) :| [] + ) :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.String.CodePoints" ) ( Name "takeFallback" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.String.CodePoints" ) ( Name "sub" ) ) ) - ( Ref Nothing ( Local ( Name "v" ) ) ) + ( Ref Nothing ( Local ( Name "v" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) + ( LiteralInt Nothing 1 :| [] ) :| [] ) ) ( ObjectProp Nothing @@ -1654,8 +1685,8 @@ UberModule ( Ref Nothing ( Local ( Name "v2$17" ) ) ) ( PropName "value0" ) ) - ( PropName "tail" ) - ) + ( PropName "tail" ) :| [] + ) :| [] ) ) ( Ref Nothing ( Local ( Name "v1" ) ) ) @@ -1670,9 +1701,9 @@ UberModule ( ParamNamed Nothing ( Name "n" ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "s" ) ) - ( App Nothing - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Data.String.CodePoints" ) ( Name "foreign" ) ) @@ -1680,12 +1711,15 @@ UberModule ( PropName "_take" ) ) ( Ref Nothing - ( Imported ( ModuleName "Data.String.CodePoints" ) ( Name "takeFallback" ) ) + ( Imported + ( ModuleName "Data.String.CodePoints" ) + ( Name "takeFallback" ) + ) :| [] ) ) - ( Ref Nothing ( Local ( Name "n" ) ) ) + ( Ref Nothing ( Local ( Name "n" ) ) :| [] ) ) - ( Ref Nothing ( Local ( Name "s" ) ) ) + ( Ref Nothing ( Local ( Name "s" ) ) :| [] ) ) ) ), @@ -1695,33 +1729,33 @@ UberModule ( ParamNamed Nothing ( Name "n" ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "s" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Data.String.CodeUnits" ) ( Name "foreign" ) ) ) ( PropName "drop" ) ) - ( App Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Data.String.CodeUnits" ) ( Name "foreign" ) ) ) ( PropName "length" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.String.CodePoints" ) ( Name "take" ) ) ) - ( Ref Nothing ( Local ( Name "n" ) ) ) + ( Ref Nothing ( Local ( Name "n" ) ) :| [] ) ) - ( Ref Nothing ( Local ( Name "s" ) ) ) - ) + ( Ref Nothing ( Local ( Name "s" ) ) :| [] ) :| [] + ) :| [] ) ) - ( Ref Nothing ( Local ( Name "s" ) ) ) + ( Ref Nothing ( Local ( Name "s" ) ) :| [] ) ) ) ) @@ -1729,20 +1763,20 @@ UberModule ), Standalone ( QName { qnameModuleName = ModuleName "Data.String.CodePoints", qnameName = Name "toCodePointArray" - }, App Nothing - ( App Nothing + }, AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Data.String.CodePoints" ) ( Name "foreign" ) ) ) ( PropName "_toCodePointArray" ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "s$10" ) ) - ( App Nothing - ( App Nothing - ( App Nothing - ( App Nothing - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing + ( AppN Nothing + ( AppN Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Data.Unfoldable" ) ( Name "foreign" ) ) @@ -1767,10 +1801,10 @@ UberModule ) ( LiteralBool Nothing False ) ( Exception Nothing "No patterns matched" ) ) - ) + ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Partial.Unsafe" ) ( Name "foreign" ) ) @@ -1778,13 +1812,15 @@ UberModule ( PropName "_unsafePartial" ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "fromJust" ) ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) - ) - ) + ( Ref Nothing + ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] + ) + ) :| [] + ) :| [] ) ) ( Abs Nothing @@ -1792,7 +1828,7 @@ UberModule ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "v$1333" ) ) ) ( PropName "value0" ) - ) + ) :| [] ) ) ( Abs Nothing @@ -1800,23 +1836,23 @@ UberModule ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "v$1334" ) ) ) ( PropName "value1" ) - ) + ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "s$11" ) ) - ( App Nothing - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Functor" ) ( Name "map" ) ) ) ( Ref Nothing - ( Imported ( ModuleName "Data.Maybe" ) ( Name "functorMaybe" ) ) + ( Imported ( ModuleName "Data.Maybe" ) ( Name "functorMaybe" ) ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "v$12" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ctor Nothing ProductType ( ModuleName "Data.Tuple" ) ( TyName "Tuple" ) @@ -1825,31 +1861,31 @@ UberModule ) ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "v$12" ) ) ) - ( PropName "head" ) + ( PropName "head" ) :| [] ) ) ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "v$12" ) ) ) - ( PropName "tail" ) + ( PropName "tail" ) :| [] ) - ) + ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.String.CodePoints" ) ( Name "uncons" ) ) ) - ( Ref Nothing ( Local ( Name "s$11" ) ) ) + ( Ref Nothing ( Local ( Name "s$11" ) ) :| [] ) :| [] ) - ) + ) :| [] ) ) - ( Ref Nothing ( Local ( Name "s$10" ) ) ) - ) + ( Ref Nothing ( Local ( Name "s$10" ) ) :| [] ) + ) :| [] ) ) ( Ref Nothing - ( Imported ( ModuleName "Data.String.CodePoints" ) ( Name "unsafeCodePointAt0" ) ) + ( Imported ( ModuleName "Data.String.CodePoints" ) ( Name "unsafeCodePointAt0" ) ) :| [] ) ), RecursiveGroup ( @@ -1861,11 +1897,11 @@ UberModule ( ParamNamed Nothing ( Name "s" ) ) ( Let Nothing ( Standalone - ( Nothing, Name "v", App Nothing + ( Nothing, Name "v", AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.String.CodePoints" ) ( Name "uncons" ) ) ) - ( Ref Nothing ( Local ( Name "s" ) ) ) + ( Ref Nothing ( Local ( Name "s" ) ) :| [] ) ) :| [] ) ( IfThenElse Nothing @@ -1874,41 +1910,41 @@ UberModule ( ReflectCtor Nothing ( Ref Nothing ( Local ( Name "v" ) ) ) ) ) ( IfThenElse Nothing - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.String.CodePoints" ) ( Name "eq" ) ) ) - ( Ref Nothing ( Local ( Name "n" ) ) ) + ( Ref Nothing ( Local ( Name "n" ) ) :| [] ) ) - ( LiteralInt Nothing 0 ) + ( LiteralInt Nothing 0 :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) ( ObjectProp Nothing ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "v" ) ) ) ( PropName "value0" ) ) - ( PropName "head" ) + ( PropName "head" ) :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.String.CodePoints" ) ( Name "codePointAtFallback" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.String.CodePoints" ) ( Name "sub" ) ) ) - ( Ref Nothing ( Local ( Name "n" ) ) ) + ( Ref Nothing ( Local ( Name "n" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) + ( LiteralInt Nothing 1 :| [] ) :| [] ) ) ( ObjectProp Nothing @@ -1916,7 +1952,7 @@ UberModule ( Ref Nothing ( Local ( Name "v" ) ) ) ( PropName "value0" ) ) - ( PropName "tail" ) + ( PropName "tail" ) :| [] ) ) ) @@ -1933,14 +1969,14 @@ UberModule ( Abs Nothing ( ParamNamed Nothing ( Name "v1" ) ) ( IfThenElse Nothing - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.String.CodePoints" ) ( Name "lessThan" ) ) ) - ( Ref Nothing ( Local ( Name "v" ) ) ) + ( Ref Nothing ( Local ( Name "v" ) ) :| [] ) ) - ( LiteralInt Nothing 0 ) + ( LiteralInt Nothing 0 :| [] ) ) ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Nothing" ) ) ) ( IfThenElse Nothing @@ -1950,24 +1986,24 @@ UberModule ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Nothing" ) ) ) ( IfThenElse Nothing ( Eq Nothing ( LiteralInt Nothing 0 ) ( Ref Nothing ( Local ( Name "v" ) ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.String.CodePoints" ) ( Name "unsafeCodePointAt0" ) ) ) - ( Ref Nothing ( Local ( Name "v1" ) ) ) + ( Ref Nothing ( Local ( Name "v1" ) ) :| [] ) :| [] ) ) - ( App Nothing - ( App Nothing - ( App Nothing - ( App Nothing - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing + ( AppN Nothing + ( AppN Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -1981,48 +2017,50 @@ UberModule ( Imported ( ModuleName "Data.String.CodePoints" ) ( Name "codePointAtFallback" ) - ) + ) :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) + ( Ref Nothing + ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) :| [] + ) ) ( Ref Nothing - ( Imported ( ModuleName "Data.Maybe" ) ( Name "Nothing" ) ) + ( Imported ( ModuleName "Data.Maybe" ) ( Name "Nothing" ) ) :| [] ) ) ( Ref Nothing ( Imported ( ModuleName "Data.String.CodePoints" ) ( Name "unsafeCodePointAt0" ) - ) + ) :| [] ) ) - ( Ref Nothing ( Local ( Name "v" ) ) ) + ( Ref Nothing ( Local ( Name "v" ) ) :| [] ) ) - ( Ref Nothing ( Local ( Name "v1" ) ) ) + ( Ref Nothing ( Local ( Name "v1" ) ) :| [] ) ) ) ) ( IfThenElse Nothing ( Eq Nothing ( LiteralInt Nothing 0 ) ( Ref Nothing ( Local ( Name "v" ) ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.String.CodePoints" ) ( Name "unsafeCodePointAt0" ) ) ) - ( Ref Nothing ( Local ( Name "v1" ) ) ) + ( Ref Nothing ( Local ( Name "v1" ) ) :| [] ) :| [] ) ) - ( App Nothing - ( App Nothing - ( App Nothing - ( App Nothing - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing + ( AppN Nothing + ( AppN Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -2036,23 +2074,27 @@ UberModule ( Imported ( ModuleName "Data.String.CodePoints" ) ( Name "codePointAtFallback" ) - ) + ) :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) + ( Ref Nothing + ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) :| [] + ) + ) + ( Ref Nothing + ( Imported ( ModuleName "Data.Maybe" ) ( Name "Nothing" ) ) :| [] ) - ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Nothing" ) ) ) ) ( Ref Nothing ( Imported ( ModuleName "Data.String.CodePoints" ) ( Name "unsafeCodePointAt0" ) - ) + ) :| [] ) ) - ( Ref Nothing ( Local ( Name "v" ) ) ) + ( Ref Nothing ( Local ( Name "v" ) ) :| [] ) ) - ( Ref Nothing ( Local ( Name "v1" ) ) ) + ( Ref Nothing ( Local ( Name "v1" ) ) :| [] ) ) ) ) @@ -2064,12 +2106,12 @@ UberModule { qnameModuleName = ModuleName "Data.String.CodePoints", qnameName = Name "boundedEnumCodePoint" }, LiteralObject Nothing [ - ( PropName "cardinality", App Nothing - ( App Nothing + ( PropName "cardinality", AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.String.CodePoints" ) ( Name "add" ) ) ) - ( LiteralInt Nothing 1114111 ) + ( LiteralInt Nothing 1114111 :| [] ) ) - ( LiteralInt Nothing 1 ) + ( LiteralInt Nothing 1 :| [] ) ), ( PropName "fromEnum", Abs Nothing ( ParamNamed Nothing ( Name "v" ) ) @@ -2078,37 +2120,39 @@ UberModule ( PropName "toEnum", Abs Nothing ( ParamNamed Nothing ( Name "n0" ) ) ( IfThenElse Nothing - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.String.CodePoints" ) ( Name "conj" ) ) ) - ( App Nothing - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Ord" ) ( Name "greaterThanOrEq" ) ) ) - ( Ref Nothing ( Imported ( ModuleName "Data.Ord" ) ( Name "ordInt" ) ) ) + ( Ref Nothing + ( Imported ( ModuleName "Data.Ord" ) ( Name "ordInt" ) ) :| [] + ) ) - ( Ref Nothing ( Local ( Name "n0" ) ) ) + ( Ref Nothing ( Local ( Name "n0" ) ) :| [] ) ) - ( LiteralInt Nothing 0 ) + ( LiteralInt Nothing 0 :| [] ) :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.String.CodePoints" ) ( Name "lessThanOrEq" ) ) ) - ( Ref Nothing ( Local ( Name "n0" ) ) ) + ( Ref Nothing ( Local ( Name "n0" ) ) :| [] ) ) - ( LiteralInt Nothing 1114111 ) + ( LiteralInt Nothing 1114111 :| [] ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( Ref Nothing ( Local ( Name "n0" ) ) ) + ( Ref Nothing ( Local ( Name "n0" ) ) :| [] ) ) ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Nothing" ) ) ) ) @@ -2127,11 +2171,11 @@ UberModule ) ), ( PropName "Enum1", Abs Nothing ( ParamUnused Nothing ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.String.CodePoints" ) ( Name "Lazy_enumCodePoint" ) ) ) - ( LiteralInt Nothing 0 ) + ( LiteralInt Nothing 0 :| [] ) ) ) ] @@ -2139,62 +2183,62 @@ UberModule [ ( QName { qnameModuleName = ModuleName "Data.String.CodePoints", qnameName = Name "Lazy_enumCodePoint" - }, App Nothing - ( App Nothing + }, AppN Nothing + ( AppN Nothing ( Ref Nothing ( Local ( Name "PSLUA_runtime_lazy" ) ) ) - ( LiteralString Nothing "enumCodePoint" ) + ( LiteralString Nothing "enumCodePoint" :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) ( LiteralObject Nothing [ - ( PropName "succ", App Nothing - ( App Nothing + ( PropName "succ", AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Enum" ) ( Name "defaultSucc" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Enum" ) ( Name "toEnum" ) ) ) ( Ref Nothing ( Imported ( ModuleName "Data.String.CodePoints" ) ( Name "boundedEnumCodePoint" ) - ) - ) + ) :| [] + ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Enum" ) ( Name "fromEnum" ) ) ) ( Ref Nothing ( Imported ( ModuleName "Data.String.CodePoints" ) ( Name "boundedEnumCodePoint" ) - ) - ) + ) :| [] + ) :| [] ) ), - ( PropName "pred", App Nothing - ( App Nothing + ( PropName "pred", AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Enum" ) ( Name "defaultPred" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Enum" ) ( Name "toEnum" ) ) ) ( Ref Nothing ( Imported ( ModuleName "Data.String.CodePoints" ) ( Name "boundedEnumCodePoint" ) - ) - ) + ) :| [] + ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Enum" ) ( Name "fromEnum" ) ) ) ( Ref Nothing ( Imported ( ModuleName "Data.String.CodePoints" ) ( Name "boundedEnumCodePoint" ) - ) - ) + ) :| [] + ) :| [] ) ), ( PropName "Ord0", Abs Nothing ( ParamUnused Nothing ) @@ -2203,7 +2247,7 @@ UberModule ) ) ] - ) + ) :| [] ) ) ] @@ -2213,122 +2257,127 @@ UberModule ( ParamNamed Nothing ( Name "dictShow" ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "a" ) ) - ( App Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Show" ) ( Name "show" ) ) ) - ( Ref Nothing ( Local ( Name "dictShow" ) ) ) + ( Ref Nothing ( Local ( Name "dictShow" ) ) :| [] ) ) - ( Ref Nothing ( Local ( Name "a" ) ) ) + ( Ref Nothing ( Local ( Name "a" ) ) :| [] ) :| [] ) ) ) ), Standalone ( QName { qnameModuleName = ModuleName "Golden.StringCodePoints.Test", qnameName = Name "compose" - }, App Nothing + }, AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Control.Semigroupoid" ) ( Name "compose" ) ) ) - ( Ref Nothing ( Imported ( ModuleName "Control.Semigroupoid" ) ( Name "semigroupoidFn" ) ) ) + ( Ref Nothing + ( Imported ( ModuleName "Control.Semigroupoid" ) ( Name "semigroupoidFn" ) ) :| [] + ) ), Standalone ( QName { qnameModuleName = ModuleName "Golden.StringCodePoints.Test", qnameName = Name "fromEnum" - }, App Nothing + }, AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Enum" ) ( Name "fromEnum" ) ) ) ( Ref Nothing - ( Imported ( ModuleName "Data.String.CodePoints" ) ( Name "boundedEnumCodePoint" ) ) + ( Imported ( ModuleName "Data.String.CodePoints" ) ( Name "boundedEnumCodePoint" ) ) :| [] ) ), Standalone ( QName { qnameModuleName = ModuleName "Golden.StringCodePoints.Test", qnameName = Name "discard" - }, App Nothing + }, AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Control.Bind" ) ( Name "bind" ) ) ) - ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "bindEffect" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "bindEffect" ) ) :| [] ) ), Standalone ( QName { qnameModuleName = ModuleName "Golden.StringCodePoints.Test", qnameName = Name "showArray" }, LiteralObject Nothing [ - ( PropName "show", App Nothing + ( PropName "show", AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Data.Show" ) ( Name "foreign" ) ) ) ( PropName "showArrayImpl" ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Show" ) ( Name "show" ) ) ) - ( Ref Nothing ( Imported ( ModuleName "Data.Show" ) ( Name "showInt" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Data.Show" ) ( Name "showInt" ) ) :| [] ) :| [] ) ) ] ), Standalone ( QName { qnameModuleName = ModuleName "Golden.StringCodePoints.Test", qnameName = Name "logShow" - }, App Nothing + }, AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "logShow" ) ) ) ( Ref Nothing - ( Imported ( ModuleName "Golden.StringCodePoints.Test" ) ( Name "showArray" ) ) + ( Imported ( ModuleName "Golden.StringCodePoints.Test" ) ( Name "showArray" ) ) :| [] ) ), Standalone ( QName { qnameModuleName = ModuleName "Golden.StringCodePoints.Test", qnameName = Name "logShow1" - }, App Nothing + }, AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "logShow" ) ) ) - ( Ref Nothing ( Imported ( ModuleName "Data.Show" ) ( Name "showInt" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Data.Show" ) ( Name "showInt" ) ) :| [] ) ), Standalone ( QName { qnameModuleName = ModuleName "Golden.StringCodePoints.Test", qnameName = Name "logShow2" - }, App Nothing + }, AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "logShow" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "showMaybe" ) ) ) - ( Ref Nothing ( Imported ( ModuleName "Data.Show" ) ( Name "showInt" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Data.Show" ) ( Name "showInt" ) ) :| [] ) :| [] ) ), Standalone ( QName { qnameModuleName = ModuleName "Golden.StringCodePoints.Test", qnameName = Name "map" - }, App Nothing + }, AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Functor" ) ( Name "map" ) ) ) - ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "functorMaybe" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "functorMaybe" ) ) :| [] ) ), Standalone ( QName { qnameModuleName = ModuleName "Golden.StringCodePoints.Test", qnameName = Name "cp" - }, App Nothing - ( App Nothing + }, AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.StringCodePoints.Test" ) ( Name "compose" ) ) ) - ( App Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Partial.Unsafe" ) ( Name "foreign" ) ) ) ( PropName "_unsafePartial" ) ) ( Abs Nothing ( ParamUnused Nothing ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "fromJust" ) ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) - ) - ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ) :| [] + ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Enum" ) ( Name "toEnum" ) ) ) ( Ref Nothing - ( Imported ( ModuleName "Data.String.CodePoints" ) ( Name "boundedEnumCodePoint" ) ) - ) + ( Imported + ( ModuleName "Data.String.CodePoints" ) + ( Name "boundedEnumCodePoint" ) + ) :| [] + ) :| [] ) ), Standalone ( QName { qnameModuleName = ModuleName "Golden.StringCodePoints.Test", qnameName = Name "codes" - }, App Nothing - ( App Nothing + }, AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.StringCodePoints.Test" ) ( Name "compose" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Functor" ) ( Name "map" ) ) ) ( LiteralObject Nothing [ @@ -2336,16 +2385,16 @@ UberModule ( Ref Nothing ( Imported ( ModuleName "Data.Functor" ) ( Name "foreign" ) ) ) ( PropName "arrayMap" ) ) - ] + ] :| [] ) ) ( Ref Nothing - ( Imported ( ModuleName "Golden.StringCodePoints.Test" ) ( Name "fromEnum" ) ) - ) + ( Imported ( ModuleName "Golden.StringCodePoints.Test" ) ( Name "fromEnum" ) ) :| [] + ) :| [] ) ) ( Ref Nothing - ( Imported ( ModuleName "Data.String.CodePoints" ) ( Name "toCodePointArray" ) ) + ( Imported ( ModuleName "Data.String.CodePoints" ) ( Name "toCodePointArray" ) ) :| [] ) ) ], uberModuleForeigns = [], uberModuleExports = @@ -2357,29 +2406,29 @@ UberModule ( Name "main", Abs Nothing ( ParamUnused Nothing ) ( Let Nothing ( Standalone - ( Nothing, Name "_", App Nothing - ( App Nothing + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.StringCodePoints.Test" ) ( Name "logShow" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.StringCodePoints.Test" ) ( Name "codes" ) ) ) - ( LiteralString Nothing "aéЯ𝐀z" ) + ( LiteralString Nothing "aéЯ𝐀z" :| [] ) :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ) :| [ Standalone - ( Nothing, Name "_", App Nothing - ( App Nothing + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.StringCodePoints.Test" ) ( Name "logShow1" ) ) ) - ( App Nothing - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.String.CodePoints" ) ( Name "compose" ) ) ) @@ -2387,89 +2436,89 @@ UberModule ( Ref Nothing ( Imported ( ModuleName "Data.Array" ) ( Name "foreign" ) ) ) - ( PropName "length" ) + ( PropName "length" ) :| [] ) ) ( Ref Nothing ( Imported ( ModuleName "Data.String.CodePoints" ) ( Name "toCodePointArray" ) - ) + ) :| [] ) ) - ( LiteralString Nothing "aéЯ𝐀z" ) + ( LiteralString Nothing "aéЯ𝐀z" :| [] ) :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ), Standalone - ( Nothing, Name "_", App Nothing - ( App Nothing + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.StringCodePoints.Test" ) ( Name "logShow1" ) ) ) - ( App Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Data.String.CodeUnits" ) ( Name "foreign" ) ) ) ( PropName "length" ) ) - ( LiteralString Nothing "aéЯ𝐀z" ) + ( LiteralString Nothing "aéЯ𝐀z" :| [] ) :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ), Standalone - ( Nothing, Name "_", App Nothing - ( App Nothing + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.StringCodePoints.Test" ) ( Name "logShow" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.StringCodePoints.Test" ) ( Name "codes" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.String.CodePoints" ) ( Name "take" ) ) ) - ( LiteralInt Nothing 2 ) + ( LiteralInt Nothing 2 :| [] ) ) - ( LiteralString Nothing "aéЯ𝐀z" ) - ) + ( LiteralString Nothing "aéЯ𝐀z" :| [] ) :| [] + ) :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ), Standalone - ( Nothing, Name "_", App Nothing - ( App Nothing + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.StringCodePoints.Test" ) ( Name "logShow" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.StringCodePoints.Test" ) ( Name "codes" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.String.CodePoints" ) ( Name "drop" ) ) ) - ( LiteralInt Nothing 2 ) + ( LiteralInt Nothing 2 :| [] ) ) - ( LiteralString Nothing "aéЯ𝐀z" ) - ) + ( LiteralString Nothing "aéЯ𝐀z" :| [] ) :| [] + ) :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ), Standalone - ( Nothing, Name "_", App Nothing - ( App Nothing + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.StringCodePoints.Test" ) ( Name "logShow2" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.StringCodePoints.Test" ) ( Name "map" ) ) ) @@ -2477,32 +2526,32 @@ UberModule ( Imported ( ModuleName "Golden.StringCodePoints.Test" ) ( Name "fromEnum" ) - ) + ) :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.String.CodePoints" ) ( Name "codePointAt" ) ) ) - ( LiteralInt Nothing 0 ) + ( LiteralInt Nothing 0 :| [] ) ) - ( LiteralString Nothing "aéЯ𝐀z" ) - ) + ( LiteralString Nothing "aéЯ𝐀z" :| [] ) :| [] + ) :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ), Standalone - ( Nothing, Name "_", App Nothing - ( App Nothing + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.StringCodePoints.Test" ) ( Name "logShow2" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.StringCodePoints.Test" ) ( Name "map" ) ) ) @@ -2510,32 +2559,32 @@ UberModule ( Imported ( ModuleName "Golden.StringCodePoints.Test" ) ( Name "fromEnum" ) - ) + ) :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.String.CodePoints" ) ( Name "codePointAt" ) ) ) - ( LiteralInt Nothing 3 ) + ( LiteralInt Nothing 3 :| [] ) ) - ( LiteralString Nothing "aéЯ𝐀z" ) - ) + ( LiteralString Nothing "aéЯ𝐀z" :| [] ) :| [] + ) :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ), Standalone - ( Nothing, Name "_", App Nothing - ( App Nothing + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.StringCodePoints.Test" ) ( Name "logShow2" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.StringCodePoints.Test" ) ( Name "map" ) ) ) @@ -2543,37 +2592,37 @@ UberModule ( Imported ( ModuleName "Golden.StringCodePoints.Test" ) ( Name "fromEnum" ) - ) + ) :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.String.CodePoints" ) ( Name "codePointAt" ) ) ) - ( LiteralInt Nothing 5 ) + ( LiteralInt Nothing 5 :| [] ) ) - ( LiteralString Nothing "aéЯ𝐀z" ) - ) + ( LiteralString Nothing "aéЯ𝐀z" :| [] ) :| [] + ) :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ), Standalone - ( Nothing, Name "_", App Nothing - ( App Nothing + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.StringCodePoints.Test" ) ( Name "logShow2" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.StringCodePoints.Test" ) ( Name "map" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.StringCodePoints.Test" ) @@ -2584,7 +2633,7 @@ UberModule ( Imported ( ModuleName "Golden.StringCodePoints.Test" ) ( Name "fromEnum" ) - ) + ) :| [] ) ) ( Abs Nothing @@ -2592,41 +2641,41 @@ UberModule ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "v$0" ) ) ) ( PropName "head" ) - ) - ) + ) :| [] + ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.String.CodePoints" ) ( Name "uncons" ) ) ) - ( LiteralString Nothing "aéЯ𝐀z" ) - ) + ( LiteralString Nothing "aéЯ𝐀z" :| [] ) :| [] + ) :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ), Standalone - ( Nothing, Name "_", App Nothing - ( App Nothing - ( App Nothing + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "logShow" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "showMaybe" ) ) ) ( Ref Nothing ( Imported ( ModuleName "Golden.StringCodePoints.Test" ) ( Name "showArray" ) - ) - ) + ) :| [] + ) :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.StringCodePoints.Test" ) ( Name "map" ) ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.StringCodePoints.Test" ) @@ -2637,7 +2686,7 @@ UberModule ( Imported ( ModuleName "Golden.StringCodePoints.Test" ) ( Name "codes" ) - ) + ) :| [] ) ) ( Abs Nothing @@ -2645,23 +2694,23 @@ UberModule ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "v0$1" ) ) ) ( PropName "tail" ) - ) - ) + ) :| [] + ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.String.CodePoints" ) ( Name "uncons" ) ) ) - ( LiteralString Nothing "aéЯ𝐀z" ) - ) + ( LiteralString Nothing "aéЯ𝐀z" :| [] ) :| [] + ) :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ), Standalone - ( Nothing, Name "_", App Nothing - ( App Nothing - ( App Nothing + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "logShow" ) ) ) ( LiteralObject Nothing [ @@ -2679,12 +2728,12 @@ UberModule ) ) ) - ] + ] :| [] ) ) - ( App Nothing - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Eq" ) ( Name "eq" ) ) ) ( LiteralObject Nothing [ @@ -2694,11 +2743,11 @@ UberModule ) ( PropName "eqStringImpl" ) ) - ] + ] :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -2712,50 +2761,50 @@ UberModule ( Imported ( ModuleName "Data.String.CodePoints" ) ( Name "singletonFallback" ) - ) + ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.String.CodePoints" ) ( Name "toCodePointArray" ) ) ) - ( LiteralString Nothing "aéЯ𝐀z" ) - ) + ( LiteralString Nothing "aéЯ𝐀z" :| [] ) :| [] + ) :| [] ) ) - ( LiteralString Nothing "aéЯ𝐀z" ) + ( LiteralString Nothing "aéЯ𝐀z" :| [] ) :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ) ] ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.StringCodePoints.Test" ) ( Name "logShow" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.StringCodePoints.Test" ) ( Name "codes" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.String.CodePoints" ) ( Name "singleton" ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.StringCodePoints.Test" ) ( Name "cp" ) ) ) - ( LiteralInt Nothing 119808 ) - ) - ) + ( LiteralInt Nothing 119808 :| [] ) :| [] + ) :| [] + ) :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ) ) ), diff --git a/test/ps/output/Golden.StringEscapes.Test/golden.ir b/test/ps/output/Golden.StringEscapes.Test/golden.ir index d52a6140..91d42b78 100644 --- a/test/ps/output/Golden.StringEscapes.Test/golden.ir +++ b/test/ps/output/Golden.StringEscapes.Test/golden.ir @@ -9,12 +9,12 @@ UberModule ) ], uberModuleForeigns = [], uberModuleExports = [ - ( Name "main", App Nothing + ( Name "main", AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) - ( LiteralString Nothing "\27[31mred\27[0m" ) + ( LiteralString Nothing "\27[31mred\27[0m" :| [] ) ) ] } \ No newline at end of file diff --git a/test/ps/output/Golden.TailRecM2Shadow.Test/golden.ir b/test/ps/output/Golden.TailRecM2Shadow.Test/golden.ir index 141a27c3..6c02e2a0 100644 --- a/test/ps/output/Golden.TailRecM2Shadow.Test/golden.ir +++ b/test/ps/output/Golden.TailRecM2Shadow.Test/golden.ir @@ -77,9 +77,9 @@ UberModule ( PropName "bindE" ) ), ( PropName "Apply0", Abs Nothing ( ParamUnused Nothing ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "Lazy_applyEffect" ) ) ) - ( LiteralInt Nothing 0 ) + ( LiteralInt Nothing 0 :| [] ) ) ) ] @@ -93,19 +93,19 @@ UberModule ( PropName "pureE" ) ), ( PropName "Apply0", Abs Nothing ( ParamUnused Nothing ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "Lazy_applyEffect" ) ) ) - ( LiteralInt Nothing 0 ) + ( LiteralInt Nothing 0 :| [] ) ) ) ] ), ( QName { qnameModuleName = ModuleName "Effect", qnameName = Name "Lazy_functorEffect" - }, App Nothing - ( App Nothing + }, AppN Nothing + ( AppN Nothing ( Ref Nothing ( Local ( Name "PSLUA_runtime_lazy" ) ) ) - ( LiteralString Nothing "functorEffect" ) + ( LiteralString Nothing "functorEffect" :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) ( LiteralObject Nothing @@ -114,10 +114,10 @@ UberModule ( ParamNamed Nothing ( Name "f$239" ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "a$240" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp Nothing - ( App Nothing + ( AppN Nothing ( ObjectProp Nothing ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "applicativeEffect" ) ) @@ -125,53 +125,58 @@ UberModule ( PropName "Apply0" ) ) ( Ref Nothing - ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) + ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ) ( PropName "apply" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Control.Applicative" ) ( Name "pure" ) ) ) ( Ref Nothing - ( Imported ( ModuleName "Effect" ) ( Name "applicativeEffect" ) ) + ( Imported + ( ModuleName "Effect" ) + ( Name "applicativeEffect" ) + ) :| [] ) ) - ( Ref Nothing ( Local ( Name "f$239" ) ) ) + ( Ref Nothing ( Local ( Name "f$239" ) ) :| [] ) :| [] ) ) - ( Ref Nothing ( Local ( Name "a$240" ) ) ) + ( Ref Nothing ( Local ( Name "a$240" ) ) :| [] ) ) ) ) ] - ) + ) :| [] ) ), ( QName { qnameModuleName = ModuleName "Effect", qnameName = Name "Lazy_applyEffect" - }, App Nothing - ( App Nothing + }, AppN Nothing + ( AppN Nothing ( Ref Nothing ( Local ( Name "PSLUA_runtime_lazy" ) ) ) - ( LiteralString Nothing "applyEffect" ) + ( LiteralString Nothing "applyEffect" :| [] ) ) ( Abs Nothing ( ParamUnused Nothing ) ( LiteralObject Nothing [ ( PropName "apply", Let Nothing ( Standalone - ( Nothing, Name "bind$219", App Nothing + ( Nothing, Name "bind$219", AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Control.Bind" ) ( Name "bind" ) ) ) - ( App Nothing + ( AppN Nothing ( ObjectProp Nothing ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "monadEffect" ) ) ) ( PropName "Bind1" ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing + ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] + ) :| [] ) ) :| [] ) @@ -179,29 +184,29 @@ UberModule ( ParamNamed Nothing ( Name "f$221" ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "a$222" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Local ( Name "bind$219" ) ) ) - ( Ref Nothing ( Local ( Name "f$221" ) ) ) + ( Ref Nothing ( Local ( Name "f$221" ) ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "f'$223" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Local ( Name "bind$219" ) ) ) - ( Ref Nothing ( Local ( Name "a$222" ) ) ) + ( Ref Nothing ( Local ( Name "a$222" ) ) :| [] ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "a'$224" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Control.Applicative" ) ( Name "pure" ) ) ) - ( App Nothing + ( AppN Nothing ( ObjectProp Nothing ( Ref Nothing ( Imported @@ -212,53 +217,56 @@ UberModule ( PropName "Applicative0" ) ) ( Ref Nothing - ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) - ) + ( Imported + ( ModuleName "Prim" ) + ( Name "undefined" ) + ) :| [] + ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Local ( Name "f'$223" ) ) ) - ( Ref Nothing ( Local ( Name "a'$224" ) ) ) + ( Ref Nothing ( Local ( Name "a'$224" ) ) :| [] ) :| [] ) - ) + ) :| [] ) - ) + ) :| [] ) ) ) ) ), ( PropName "Functor0", Abs Nothing ( ParamUnused Nothing ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "Lazy_functorEffect" ) ) ) - ( LiteralInt Nothing 0 ) + ( LiteralInt Nothing 0 :| [] ) ) ) ] - ) + ) :| [] ) ), ( QName { qnameModuleName = ModuleName "Effect", qnameName = Name "functorEffect" - }, App Nothing + }, AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "Lazy_functorEffect" ) ) ) - ( LiteralInt Nothing 0 ) + ( LiteralInt Nothing 0 :| [] ) ) ] ), Standalone ( QName { qnameModuleName = ModuleName "Control.Monad.Rec.Class", qnameName = Name "bind" - }, App Nothing + }, AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Control.Bind" ) ( Name "bind" ) ) ) - ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "bindEffect" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "bindEffect" ) ) :| [] ) ), Standalone ( QName { qnameModuleName = ModuleName "Control.Monad.Rec.Class", qnameName = Name "pure" - }, App Nothing + }, AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Control.Applicative" ) ( Name "pure" ) ) ) - ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "applicativeEffect" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "applicativeEffect" ) ) :| [] ) ), Standalone ( QName { qnameModuleName = ModuleName "Golden.TailRecM2Shadow.Test", qnameName = Name "sumFrom" @@ -266,20 +274,20 @@ UberModule ( ParamNamed Nothing ( Name "dictMonadRec" ) ) ( Let Nothing ( Standalone - ( Nothing, Name "pure", App Nothing + ( Nothing, Name "pure", AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Control.Applicative" ) ( Name "pure" ) ) ) - ( App Nothing + ( AppN Nothing ( ObjectProp Nothing - ( App Nothing + ( AppN Nothing ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "dictMonadRec" ) ) ) ( PropName "Monad0" ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ) ( PropName "Applicative0" ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) :| [] ) ) :| [] ) @@ -287,15 +295,15 @@ UberModule ( ParamNamed Nothing ( Name "b" ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "n" ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "dictMonadRec" ) ) ) ( PropName "tailRecM" ) ) ( Abs Nothing ( ParamNamed Nothing ( Name "o$450" ) ) - ( App Nothing + ( AppN Nothing ( Let Nothing ( Standalone ( Nothing, Name "acc$1", ObjectProp Nothing @@ -310,11 +318,11 @@ UberModule ( Eq Nothing ( LiteralString Nothing "Data.Ordering∷Ordering.LT" ) ( ReflectCtor Nothing - ( App Nothing - ( App Nothing - ( App Nothing - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing + ( AppN Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -327,43 +335,43 @@ UberModule ( Ctor Nothing SumType ( ModuleName "Data.Ordering" ) ( TyName "Ordering" ) - ( CtorName "LT" ) [] + ( CtorName "LT" ) [] :| [] ) ) ( Ctor Nothing SumType ( ModuleName "Data.Ordering" ) ( TyName "Ordering" ) - ( CtorName "EQ" ) [] + ( CtorName "EQ" ) [] :| [] ) ) ( Ctor Nothing SumType ( ModuleName "Data.Ordering" ) ( TyName "Ordering" ) - ( CtorName "GT" ) [] + ( CtorName "GT" ) [] :| [] ) ) - ( Ref Nothing ( Local ( Name "i$2" ) ) ) + ( Ref Nothing ( Local ( Name "i$2" ) ) :| [] ) ) - ( Ref Nothing ( Local ( Name "n" ) ) ) + ( Ref Nothing ( Local ( Name "n" ) ) :| [] ) ) ) ) ( LiteralBool Nothing False ) ( LiteralBool Nothing True ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Local ( Name "pure" ) ) ) - ( App Nothing + ( AppN Nothing ( Ctor Nothing SumType ( ModuleName "Control.Monad.Rec.Class" ) ( TyName "Step" ) ( CtorName "Done" ) [ FieldName "value0" ] ) - ( Ref Nothing ( Local ( Name "acc$1" ) ) ) + ( Ref Nothing ( Local ( Name "acc$1" ) ) :| [] ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Local ( Name "pure" ) ) ) - ( App Nothing + ( AppN Nothing ( Ctor Nothing SumType ( ModuleName "Control.Monad.Rec.Class" ) ( TyName "Step" ) @@ -372,8 +380,8 @@ UberModule ) ( LiteralObject Nothing [ - ( PropName "a", App Nothing - ( App Nothing + ( PropName "a", AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -383,12 +391,12 @@ UberModule ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "acc$1" ) ) ) + ( Ref Nothing ( Local ( Name "acc$1" ) ) :| [] ) ) - ( Ref Nothing ( Local ( Name "i$2" ) ) ) + ( Ref Nothing ( Local ( Name "i$2" ) ) :| [] ) ), - ( PropName "b", App Nothing - ( App Nothing + ( PropName "b", AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -398,12 +406,12 @@ UberModule ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "i$2" ) ) ) + ( Ref Nothing ( Local ( Name "i$2" ) ) :| [] ) ) - ( LiteralInt Nothing 1 ) + ( LiteralInt Nothing 1 :| [] ) ) - ] - ) + ] :| [] + ) :| [] ) ) ) @@ -411,16 +419,16 @@ UberModule ) ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "o$450" ) ) ) - ( PropName "b" ) + ( PropName "b" ) :| [] ) - ) + ) :| [] ) ) ( LiteralObject Nothing [ ( PropName "a", Ref Nothing ( Local ( Name "b" ) ) ), ( PropName "b", LiteralInt Nothing 0 ) - ] + ] :| [] ) ) ) @@ -435,10 +443,10 @@ UberModule ( Name "main", Abs Nothing ( ParamUnused Nothing ) ( Let Nothing ( Standalone - ( Nothing, Name "r$0", App Nothing - ( App Nothing - ( App Nothing - ( App Nothing + ( Nothing, Name "r$0", AppN Nothing + ( AppN Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.TailRecM2Shadow.Test" ) ( Name "sumFrom" ) ) ) @@ -451,10 +459,10 @@ UberModule ( Abs Nothing ( ParamUnused Nothing ) ( Let Nothing ( Standalone - ( Nothing, Name "r$16", App Nothing - ( App Nothing - ( App Nothing - ( App Nothing + ( Nothing, Name "r$16", AppN Nothing + ( AppN Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Control.Bind" ) @@ -465,12 +473,12 @@ UberModule ( Imported ( ModuleName "Effect" ) ( Name "bindEffect" ) - ) + ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Local ( Name "f$11" ) ) ) - ( Ref Nothing ( Local ( Name "a$12" ) ) ) + ( Ref Nothing ( Local ( Name "a$12" ) ) :| [] ) :| [] ) ) ( ObjectProp ( Just Always ) @@ -480,16 +488,16 @@ UberModule ( Name "foreign" ) ) ) - ( PropName "_new" ) + ( PropName "_new" ) :| [] ) ) ( Ref Nothing - ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) + ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ) :| [ Standalone - ( Nothing, Name "_", App Nothing - ( App Nothing + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "foreign" ) ) @@ -499,8 +507,8 @@ UberModule ( Abs Nothing ( ParamUnused Nothing ) ( Let Nothing ( Standalone - ( Nothing, Name "v0$17", App Nothing - ( App Nothing + ( Nothing, Name "v0$17", AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -510,17 +518,17 @@ UberModule ) ( PropName "read" ) ) - ( Ref Nothing ( Local ( Name "r$16" ) ) ) + ( Ref Nothing ( Local ( Name "r$16" ) ) :| [] ) ) ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) - ) + ) :| [] ) ) :| [] ) - ( App Nothing + ( AppN Nothing ( IfThenElse Nothing ( Eq Nothing ( LiteralString Nothing "Control.Monad.Rec.Class∷Step.Loop" ) @@ -531,27 +539,27 @@ UberModule ( Abs Nothing ( ParamUnused Nothing ) ( Let Nothing ( Standalone - ( Nothing, Name "e$19", App Nothing - ( App Nothing + ( Nothing, Name "e$19", AppN Nothing + ( AppN Nothing ( Ref Nothing ( Local ( Name "f$11" ) ) ) ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "v0$17" ) ) ) - ( PropName "value0" ) + ( PropName "value0" ) :| [] ) ) ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) - ) + ) :| [] ) ) :| [ Standalone - ( Nothing, Name "_", App Nothing - ( App Nothing - ( App Nothing + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -562,36 +570,37 @@ UberModule ( PropName "write" ) ) ( Ref Nothing - ( Local ( Name "e$19" ) ) + ( Local ( Name "e$19" ) ) :| [] ) ) ( Ref Nothing - ( Local ( Name "r$16" ) ) + ( Local ( Name "r$16" ) ) :| [] ) ) ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) - ) + ) :| [] ) ) ] ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Control.Monad.Rec.Class" ) ( Name "pure" ) ) - ) ( LiteralBool Nothing False ) + ) + ( LiteralBool Nothing False :| [] ) ) ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) - ) + ) :| [] ) ) ) @@ -603,13 +612,14 @@ UberModule ( Ref Nothing ( Local ( Name "v0$17" ) ) ) ) ) - ( App Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Control.Monad.Rec.Class" ) ( Name "pure" ) ) - ) ( LiteralBool Nothing True ) + ) + ( LiteralBool Nothing True :| [] ) ) ( Exception Nothing "No patterns matched" ) ) @@ -618,21 +628,24 @@ UberModule ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) - ) + ) :| [] ) ) - ) + ) :| [] ) ) ( Ref Nothing - ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) + ( Imported + ( ModuleName "Prim" ) + ( Name "undefined" ) + ) :| [] ) ) ] ) - ( App Nothing - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp Nothing ( Ref Nothing ( Imported @@ -642,7 +655,7 @@ UberModule ) ( PropName "map" ) ) - ( App Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -668,11 +681,11 @@ UberModule ) ( Exception Nothing "No patterns matched" ) ) - ) - ) + ) :| [] + ) :| [] ) ) - ( App Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported @@ -682,11 +695,11 @@ UberModule ) ( PropName "read" ) ) - ( Ref Nothing ( Local ( Name "r$16" ) ) ) + ( Ref Nothing ( Local ( Name "r$16" ) ) :| [] ) :| [] ) ) ( Ref Nothing - ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) + ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ) ) @@ -698,31 +711,31 @@ UberModule ( Imported ( ModuleName "Effect" ) ( Name "monadEffect" ) ) ) ) - ] + ] :| [] ) ) - ( LiteralInt Nothing 0 ) + ( LiteralInt Nothing 0 :| [] ) ) - ( LiteralInt Nothing 5 ) + ( LiteralInt Nothing 5 :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ) :| [] ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) - ( App Nothing + ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Data.Show" ) ( Name "foreign" ) ) ) ( PropName "showIntImpl" ) ) - ( Ref Nothing ( Local ( Name "r$0" ) ) ) + ( Ref Nothing ( Local ( Name "r$0" ) ) :| [] ) :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ) ) ) diff --git a/test/ps/output/Golden.Unbinding.Test/golden.ir b/test/ps/output/Golden.Unbinding.Test/golden.ir index 3cc3d89c..08368d43 100644 --- a/test/ps/output/Golden.Unbinding.Test/golden.ir +++ b/test/ps/output/Golden.Unbinding.Test/golden.ir @@ -11,17 +11,17 @@ UberModule ( Name "a", LiteralInt Nothing 1 ), ( Name "b", LiteralInt Nothing 2 ), ( Name "f", Ref Nothing ( Imported ( ModuleName "Golden.Unbinding.Test" ) ( Name "f" ) ) ), - ( Name "c", App Nothing - ( App Nothing + ( Name "c", AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.Unbinding.Test" ) ( Name "f" ) ) ) - ( LiteralInt Nothing 1 ) + ( LiteralInt Nothing 1 :| [] ) ) - ( App Nothing - ( App Nothing + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.Unbinding.Test" ) ( Name "f" ) ) ) - ( LiteralInt Nothing 2 ) + ( LiteralInt Nothing 2 :| [] ) ) - ( LiteralInt Nothing 1 ) + ( LiteralInt Nothing 1 :| [] ) :| [] ) ) ]