diff --git a/CLAUDE.md b/CLAUDE.md index cc4640f6..41227a82 100644 --- a/CLAUDE.md +++ b/CLAUDE.md @@ -190,6 +190,9 @@ PureScript Source → CoreFn → IR → Lua → Optimized Lua - Case-of-case transformation - **Inliner** (`IR.Inliner`): Marks expressions for inlining - **Dead Code Elimination** (`IR.DCE`): Removes unused bindings + - **Uncurrying** (`IR.Uncurry`): Splits curried bindings into n-ary + workers plus curried wrappers and rewrites saturated call sites to + direct worker calls 4. **Linking** (`Language.PureScript.Backend.IR.Linker`) - Creates an "UberModule" containing all reachable code diff --git a/bench/goldens/fnew_Bench.BindChain.txt b/bench/goldens/fnew_Bench.BindChain.txt index be1de208..f07641b8 100644 --- a/bench/goldens/fnew_Bench.BindChain.txt +++ b/bench/goldens/fnew_Bench.BindChain.txt @@ -1,11 +1,10 @@ chunk: Bench.BindChain.lua runtime: LuaJIT 2.1.1741730670 main-chunk FNEW: 4 -function-body FNEW: 4 -total FNEW: 8 -prototypes: 9 +function-body FNEW: 3 +total FNEW: 7 +prototypes: 8 function-body FNEW sites: Bench.BindChain.lua:3 - Bench.BindChain.lua:17 - Bench.BindChain.lua:25 - Bench.BindChain.lua:24 + Bench.BindChain.lua:23 + Bench.BindChain.lua:22 diff --git a/bench/goldens/fnew_Bench.CurriedStep.txt b/bench/goldens/fnew_Bench.CurriedStep.txt new file mode 100644 index 00000000..872f5059 --- /dev/null +++ b/bench/goldens/fnew_Bench.CurriedStep.txt @@ -0,0 +1,12 @@ +chunk: Bench.CurriedStep.lua +runtime: LuaJIT 2.1.1741730670 +main-chunk FNEW: 4 +function-body FNEW: 5 +total FNEW: 9 +prototypes: 10 +function-body FNEW sites: + Bench.CurriedStep.lua:3 + Bench.CurriedStep.lua:3 + Bench.CurriedStep.lua:7 + Bench.CurriedStep.lua:10 + Bench.CurriedStep.lua:21 diff --git a/bench/goldens/trace_bind_chain.txt b/bench/goldens/trace_bind_chain.txt index ded1127a..30518bf1 100644 --- a/bench/goldens/trace_bind_chain.txt +++ b/bench/goldens/trace_bind_chain.txt @@ -2,18 +2,16 @@ spec: bind_chain runtime: LuaJIT 2.1.1741730670 workload: n=1000000 reps=2 result=3000000 aborts (distinct site -- reason): - Bench.BindChain.lua:17 -- NYI: bytecode FNEW Bench.BindChain.lua:3 -- NYI: bytecode FNEW bytecode end state (J*=compiled, I*=blacklisted): + Bench.BindChain.lua:18 IFUNCF + Bench.BindChain.lua:19 IFUNCF Bench.BindChain.lua:20 IFUNCF - Bench.BindChain.lua:21 IFUNCF - Bench.BindChain.lua:22 IFUNCF Bench.BindChain.lua:3 IFUNCF Bench.BindChain.lua:3 JFUNCF Bench.BindChain.lua:5 JFUNCF Bench.BindChain.lua:8 IFUNCF - Bench.BindChain.lua:9 IFUNCF bind_chain.lua:10 IFORL bind_chain.lua:17 JFORI bind_chain.lua:17 JFORL -counts: aborts=2 compiled=4 blacklisted=7 +counts: aborts=1 compiled=4 blacklisted=6 diff --git a/bench/goldens/trace_curried_step.txt b/bench/goldens/trace_curried_step.txt new file mode 100644 index 00000000..7d74555d --- /dev/null +++ b/bench/goldens/trace_curried_step.txt @@ -0,0 +1,18 @@ +spec: curried_step +runtime: LuaJIT 2.1.1741730670 +workload: n=100000 reps=2 result=5000050000 +aborts (distinct site -- reason): + Bench.CurriedStep.lua:10 -- NYI: bytecode FNEW + Bench.CurriedStep.lua:3 -- NYI: bytecode FNEW + Bench.CurriedStep.lua:7 -- NYI: bytecode FNEW +bytecode end state (J*=compiled, I*=blacklisted): + Bench.CurriedStep.lua:10 IFUNCF + Bench.CurriedStep.lua:10 JFUNCF + Bench.CurriedStep.lua:15 IFUNCF + Bench.CurriedStep.lua:3 IFUNCF + Bench.CurriedStep.lua:3 JFUNCF + Bench.CurriedStep.lua:7 IFUNCF + Bench.CurriedStep.lua:7 JFUNCF + curried_step.lua:12 JFORI + curried_step.lua:12 JFORL +counts: aborts=3 compiled=5 blacklisted=4 diff --git a/bench/macro/curried_step.lua b/bench/macro/curried_step.lua new file mode 100644 index 00000000..dff36ef7 --- /dev/null +++ b/bench/macro/curried_step.lua @@ -0,0 +1,15 @@ +-- A hot two-argument loop, always fully applied: uncurried into a direct +-- n-ary worker call, it is the canonical trace-compilable loop; curried, +-- every iteration allocates closures and the loop gets blacklisted. +return { + artifact = "Bench.CurriedStep", + n = 100000, + drive = function(mod, n) + return mod.run(n) + end, + ideal = function(n) + local acc = 0 + for i = n, 1, -1 do acc = acc + i end + return acc + end, +} diff --git a/changelog.d/20260707_190000_unisay_uncurry_worker_wrapper.md b/changelog.d/20260707_190000_unisay_uncurry_worker_wrapper.md new file mode 100644 index 00000000..2ddfaa5e --- /dev/null +++ b/changelog.d/20260707_190000_unisay_uncurry_worker_wrapper.md @@ -0,0 +1,14 @@ +### Added + +- Functions are uncurried through a worker/wrapper split (#24): every binding + with a manifest arity of two or more and at least one saturated call site + becomes an n-ary Lua worker plus a curried wrapper under the original name, + and the saturated sites call the worker directly — `add(x)(y)` becomes + `add$w(x, y)`. Partial applications and functions passed as values keep + going through the wrapper, so behavior is unchanged; unreferenced wrappers + are removed by dead-code elimination. This removes per-application closure + allocation on saturated calls — the main LuaJIT trace-compilation unlock, + since closure creation aborts trace recording. The definition-side `AbsN` + node mirrors `AppN` (`Abs` is now its singleton pattern synonym), beta + reduction handles exact-arity n-ary redexes, and the deep-bind flattening + recognises n-ary chains and spines. diff --git a/lib/Language/PureScript/Backend/IR/DCE.hs b/lib/Language/PureScript/Backend/IR/DCE.hs index 95ab87d0..d204ee48 100644 --- a/lib/Language/PureScript/Backend/IR/DCE.hs +++ b/lib/Language/PureScript/Backend/IR/DCE.hs @@ -156,11 +156,16 @@ eliminateDeadCode uber@UberModule {..} = first deannotateExp . rewriteExpBottomUp \case -- Under GUC a dead binder is unreferenced by definition, so -- blanking its name touches no reference elsewhere (the hazard - -- behind issue #56). Requiring 'ParamNamed' keeps the rule - -- precise: an already-blank parameter is left alone. - Abs ann (ParamNamed pann@(paramId, _) _name) b - | not (paramId `member` reachableIds) → - Just (Abs ann (ParamUnused pann) b) + -- behind issue #56). Only a dead /suffix/ of the parameter list + -- is blanked: 'ParamUnused' must stay a trailing run + -- (Note [n-ary abstraction]), so a dead parameter followed by a + -- live one keeps its name. Firing only when a name was actually + -- blanked keeps the rule precise: an already-blank parameter is + -- left alone. + AbsN ann params b + | let params' = blankDeadSuffix params + , params' /= params → + Just (AbsN ann params' b) Let ann binds body -- Under GUC dropping a dead binder touches no reference -- elsewhere in the Let (later grouping RHSs or the body): a @@ -191,6 +196,26 @@ eliminateDeadCode uber@UberModule {..} = members ∷ [Grouping ((Id, Ann), Name, AExp)] → Int members = length . (listGrouping =<<) + -- Right-to-left: blank dead named parameters until the first + -- parameter that must stay named (a live one, or an interior one + -- once the suffix is broken). + blankDeadSuffix + ∷ NonEmpty (Parameter (Id, Ann)) + → NonEmpty (Parameter (Id, Ann)) + blankDeadSuffix = NE.fromList . snd . foldr step (True, []) . toList + where + step + ∷ Parameter (Id, Ann) + → (Bool, [Parameter (Id, Ann)]) + → (Bool, [Parameter (Id, Ann)]) + step p (inSuffix, ps) = case p of + ParamNamed pann@(paramId, _ann) _name + | inSuffix && not (paramId `member` reachableIds) → + (True, ParamUnused pann : ps) + ParamUnused _pann + | inSuffix → (True, p : ps) + _ → (False, p : ps) + reachableIds ∷ Set Id = Set.fromList [ node @@ -297,13 +322,17 @@ eliminateDeadCode uber@UberModule {..} = adjacencyListForExpr scope expr = mkNode (nodeId expr) (expressionDependsOnIds scope expr) `DL.cons` case expr of - Abs _ann param b → - case param of - ParamUnused _ann' → adjacencyListForExpr scope b - ParamNamed (paramId, _ann) name → - DL.cons - (mkNode paramId []) - (adjacencyListForExpr (addLocalToScope paramId name scope) b) + AbsN _ann params b → + paramNodes <> adjacencyListForExpr scopeWithParams b + where + (scopeWithParams, paramNodes) = + foldl' bindParam (scope, DL.empty) (toList params) + bindParam (sc, nodes) = \case + ParamUnused _ann' → (sc, nodes) + ParamNamed (paramId, _ann') name → + ( addLocalToScope paramId name sc + , DL.snoc nodes (mkNode paramId []) + ) Let _ann groupings body → adjacencyListForExpr bodyScope body <> groupingsAdjacency where diff --git a/lib/Language/PureScript/Backend/IR/FlattenDeepBinds.hs b/lib/Language/PureScript/Backend/IR/FlattenDeepBinds.hs index 71911804..f42ce2d6 100644 --- a/lib/Language/PureScript/Backend/IR/FlattenDeepBinds.hs +++ b/lib/Language/PureScript/Backend/IR/FlattenDeepBinds.hs @@ -136,6 +136,7 @@ module Language.PureScript.Backend.IR.FlattenDeepBinds ) where import Data.List qualified as List +import Data.List.NonEmpty qualified as NE import Data.Map.Strict qualified as Map import Data.Set qualified as Set import Language.PureScript.Backend.IR.Linker (UberModule (..)) @@ -156,6 +157,7 @@ import Language.PureScript.Backend.IR.Types , refLocal , rewriteExpTopDownM , substituteCopyM + , pattern Abs , pattern App ) @@ -202,11 +204,13 @@ flattenRule expr -------------------------------------------------------------------------------- -- Strategy A: continuation lambda-lifting ------------------------------------- -{- | One step of a continuation chain: @f action (\param -> …)@. Fields: the -head, the continuation parameter, and the action — all kept verbatim (only the -continuation /structure/ is rewritten). +{- | One step of a continuation chain: @f action (\param -> …)@ or its n-ary +call shape @f(action, \param -> …)@. Fields: a rebuild closure that +reconstructs the step node verbatim around a rewritten continuation body — +preserving the call shape, which distinguishes programs +(Note [n-ary application]) — and the continuation parameter. -} -data Step = Step Exp (Parameter Ann) Exp +data Step = Step (Exp → Exp) (Parameter Ann) {- | Peel a maximal prefix of @f action (\param -> rest)@ steps, returning them together with the first expression that is not such a step (the chain's final @@ -221,12 +225,25 @@ peelChain = go Just (step, rest) → first (step :) (go rest) Nothing → ([], expr) --- | Recognise @f action (\param -> rest)@ as a step plus its continuation body. +{- | Recognise @f action (\param -> rest)@ — through either call shape, the +curried @(f action) (\param -> rest)@ or the n-ary @f(action, \param -> +rest)@ of an uncurried worker — as a step plus its continuation body. +Recognition is purely structural: any head applied to exactly two operands +of which the trailing one is a lambda is a step, regardless of the monad or +combinator. +-} asStep ∷ Exp → Maybe (Step, Exp) -asStep expr = case spine expr of - (hd, [action, k]) - | Abs _ann param rest ← k → - Just (Step hd param action, rest) +asStep expr = case expr of + App ann fa (Abs annK param rest) + | (_hd, [_action]) ← spine fa → + Just (Step (App ann fa . Abs annK param) param, rest) + AppN ann hd (action :| [Abs annK param rest]) → + Just + ( Step + (\rest' → AppN ann hd (action :| [Abs annK param rest'])) + param + , rest + ) _ → Nothing {- | Lambda-lift a recognised chain into a flat @let@ of @$kontN@ helpers. @@ -259,7 +276,7 @@ lambdaLift steps finalAction = bindOrder = Map.fromList [ (name, i) - | (i, Step _ (ParamNamed _ name) _) ← zip [0 ..] steps + | (i, Step _ (ParamNamed _ name)) ← zip [0 ..] steps ] chainBound ∷ Set Name chainBound = Map.keysSet bindOrder @@ -307,14 +324,15 @@ lambdaLift steps finalAction = b' ← substituteCopyM (Local name) (refLocal name') b pure (freshNames <> [name'], b') --- | Rebuild a segment's nested @f action (\param -> …)@ wrapping a tail. +{- | Rebuild a segment's nested steps wrapping a tail, each step through its +own rebuild closure so the original call shapes survive verbatim. +-} buildSteps ∷ [Step] → Exp → Exp buildSteps steps tailExp = foldr step tailExp steps where step ∷ Step → Exp → Exp - step (Step hd param action) rest = - App noAnn (App noAnn hd action) (Abs noAnn param rest) + step (Step rebuild _param) = rebuild -- | @\\p1 -> \\p2 -> … -> body@ (p1 outermost). curryAbs ∷ [Name] → Exp → Exp @@ -328,40 +346,54 @@ applyToVars = foldl' \f p → App noAnn f (refLocal p) -------------------------------------------------------------------------------- -- Strategy B: application-spine sequentialisation ----------------------------- -{- | Length of the longest contiguous chain of strict 'App' nodes reachable from -this expression — the parse nesting Strategy B can flatten. Counts both the -callee and the argument side of each 'App' (Lua nests both @f(…)@ and its -argument) and stops at every non-'App' node: 'Abs' bodies and branch positions -are deferred (and handled by Strategy A or a later descent), and other -constructs carry their own depth that 'sequentialiseSpine' leaves in place. +{- | Length of the longest contiguous chain of strict 'AppN' nodes reachable +from this expression — the parse nesting Strategy B can flatten. Counts the +callee and every argument side of each call (Lua nests @f(…)@ and each of +its arguments) and stops at every non-application node: 'AbsN' bodies and +branch positions are deferred (and handled by Strategy A or a later +descent), and other constructs carry their own depth that +'sequentialiseSpine' leaves in place. -} spineDepth ∷ RawExp ann → Int spineDepth = \case - App _ann f a → 1 + max (spineDepth f) (spineDepth a) + AppN _ann f args → + 1 + foldl' max (spineDepth f) (spineDepth <$> args) _ → 0 -{- | One 'App' node on a spine's deepest path, holding the off-path operand -verbatim. 'rebuildFrame' reattaches it to the deep child. +{- | One 'AppN' node on a spine's deepest path, holding the off-path operands +verbatim. 'rebuildFrame' reattaches them around the deep child. -} data Frame - = -- | @App deep sibling@ — the deep child is the callee. - OnCallee Ann Exp - | -- | @App sibling deep@ — the deep child is the argument. - OnArg Ann Exp + = -- | @deep(args…)@ — the deep child is the callee. + OnCallee Ann (NonEmpty Exp) + | -- | @callee(before…, deep, after…)@ — the deep child is one argument. + OnArg Ann Exp [Exp] [Exp] rebuildFrame ∷ Frame → Exp → Exp -rebuildFrame (OnCallee ann sibling) deep = App ann deep sibling -rebuildFrame (OnArg ann sibling) deep = App ann sibling deep +rebuildFrame (OnCallee ann args) deep = AppN ann deep args +rebuildFrame (OnArg ann callee before after) deep = + AppN ann callee (NE.prependList before (deep :| after)) {- | Peel the deepest contiguous application path, outermost frame first, down -to the innermost non-'App' base. Following the deeper child at each node makes -@length (fst (decompose e)) == 'spineDepth' e@. +to the innermost non-application base. Following the deepest child at each +node makes @length (fst (decompose e)) == 'spineDepth' e@. -} decompose ∷ Exp → ([Frame], Exp) decompose = \case - App ann f a - | spineDepth f >= spineDepth a → first (OnCallee ann a :) (decompose f) - | otherwise → first (OnArg ann f :) (decompose a) + AppN ann f args + | fDepth >= foldl' max 0 argDepths → + first (OnCallee ann args :) (decompose f) + | otherwise → + first (OnArg ann f before after :) (decompose deep) + where + fDepth = spineDepth f + argDepths = spineDepth <$> toList args + deepIndex = + fromMaybe 0 (List.elemIndex (foldl' max 0 argDepths) argDepths) + (before, deep, after) = case splitAt deepIndex (toList args) of + (bs, d : as) → (bs, d, as) + -- Unreachable: 'deepIndex' points into 'args'. + (bs, []) → (bs, error "decompose: empty deep argument", []) base → ([], base) {- | Sequentialise a deep strict-application spine: rebuild its deepest path @@ -404,12 +436,16 @@ letHelpers ∷ [Grouping (Ann, Name, Exp)] → Exp → Exp letHelpers [] body = body letHelpers (h : hs) body = Let noAnn (h :| hs) body --- | Unwind an application into its head and arguments (left to right). +{- | Unwind an application into its head and operands (left to right), +through both call shapes. The result deliberately flattens the shape +distinction of Note [n-ary application], so it is only for /counting/ +operands ('asStep'), never for rebuilding. +-} spine ∷ Exp → (Exp, [Exp]) spine = go [] where go ∷ [Exp] → Exp → (Exp, [Exp]) - go acc (App _ann f a) = go (a : acc) f + go acc (AppN _ann f args) = go (toList args <> acc) f go acc h = (h, acc) freshKontName ∷ SupplyM Name diff --git a/lib/Language/PureScript/Backend/IR/Linker.hs b/lib/Language/PureScript/Backend/IR/Linker.hs index d903525d..5b9b0a14 100644 --- a/lib/Language/PureScript/Backend/IR/Linker.hs +++ b/lib/Language/PureScript/Backend/IR/Linker.hs @@ -127,13 +127,14 @@ qualifyTopRefs moduleName = go Ref ann (Local refName) | isTopLevel refName → Ref ann (Imported moduleName refName) - Abs ann parameter body → - Abs ann parameter (go topNames' body) + AbsN ann parameters body → + AbsN ann parameters (go topNames' body) where topNames' ∷ Set Name = - case parameter of - ParamNamed _ann argName → Set.delete argName topNames - ParamUnused _ann → topNames + foldl' shadowParam topNames parameters + shadowParam names = \case + ParamNamed _ann argName → Set.delete argName names + ParamUnused _ann → names -- See Note [Sequential scoping of Let bindings] Let ann groupings body → Let ann groupings' (go topNamesAfterBinds body) diff --git a/lib/Language/PureScript/Backend/IR/Linter.hs b/lib/Language/PureScript/Backend/IR/Linter.hs index f2d2a031..b68b4590 100644 --- a/lib/Language/PureScript/Backend/IR/Linter.hs +++ b/lib/Language/PureScript/Backend/IR/Linter.hs @@ -54,13 +54,21 @@ 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 + | {- | A literal lambda applied, in a single call, to a number of + arguments different from the number of parameters it binds + ('WellApplied'). A lambda compiles to a Lua function of exactly its + parameter count (Note [n-ary abstraction]), so surplus arguments are + silently dropped and missing ones read as nil instead of currying. + Carries the lambda's parameter count and the offending call's argument count. -} - OverApplied Site Natural + LambdaArityMismatch Site Natural Natural + | {- | An 'AbsN' parameter list with a 'ParamUnused' in non-trailing + position ('WellApplied'). The Lua backend drops unused parameters, + which is arity-preserving only for a trailing run + (Note [n-ary abstraction]). + -} + NonTrailingUnusedParam Site deriving stock (Eq, Show) -- | The top-level entry of the module a violation was found in. @@ -91,17 +99,22 @@ 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. +{- | Check the @WellApplied@ invariant — the well-formedness conditions +of the n-ary nodes (Note [n-ary abstraction]): + + * every 'AppN' with a literal lambda head passes exactly as many + arguments as the lambda binds parameters — anything else silently + drops arguments or nil-fills parameters instead of currying; + + * every 'AbsN' keeps its 'ParamUnused' parameters in a trailing run, + so the Lua backend can drop them without shifting the rest. + +An empty result means the module holds the invariant. -} lintWellApplied ∷ UberModule → [Violation] lintWellApplied = overSites \site e → - OverApplied site <$> overApplications e + (uncurry (LambdaArityMismatch site) <$> lambdaArityMismatches e) + <> [NonTrailingUnusedParam site | hasNonTrailingUnusedParam e] {- | Run a per-site check over every top-level binding, foreign binding, and export of the module. @@ -133,7 +146,8 @@ unboundLocals = go (Set.singleton (Name runtimeLazyName)) Ref _ (Local nm) | Set.member nm scope → [] | otherwise → [nm] - Abs _ param body → go (bindName (paramName param) scope) body + AbsN _ params body → + go (foldl' (\sc p → bindName (paramName p) sc) scope (toList params)) body Let _ binds body → let (bodyScope, errs) = foldl' letGrouping (scope, []) (toList binds) in errs <> go bodyScope body @@ -176,7 +190,7 @@ duplicateBinders e = where binders ∷ Exp → [Name] binders = \case - Abs _ param _ → maybeToList (paramName param) + AbsN _ params _ → mapMaybe paramName (toList params) Let _ binds _ → bindingNames =<< toList binds _ → [] @@ -191,13 +205,28 @@ hasRefToDiscard e = | 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. +{- | The (parameter count, argument count) of every 'AppN' that applies a +literal lambda to a number of arguments different from its parameter +count. Each such node is a miscompile: the lambda is a Lua function of +exactly its parameter count, so surplus arguments are dropped and +missing parameters read as nil. -} -overApplications ∷ Exp → [Natural] -overApplications e = - [ fromIntegral (length args) - | AppN _ (Abs {}) args ← toListOf (cosmosOf subexpressions) e - , length args > (1 ∷ Int) +lambdaArityMismatches ∷ Exp → [(Natural, Natural)] +lambdaArityMismatches e = + [ (fromIntegral (length params), fromIntegral (length args)) + | AppN _ (AbsN _ params _) args ← toListOf (cosmosOf subexpressions) e + , length args /= length params ] + +{- | Whether any 'AbsN' of the expression binds a named parameter after +an unused one. Reported as a single violation per site, like +'RefToDiscard'. +-} +hasNonTrailingUnusedParam ∷ Exp → Bool +hasNonTrailingUnusedParam e = + or + [ any (isJust . paramName) fromFirstUnused + | AbsN _ params _ ← toListOf (cosmosOf subexpressions) e + , let (_named, fromFirstUnused) = + break (isNothing . paramName) (toList params) + ] diff --git a/lib/Language/PureScript/Backend/IR/MagicDo.hs b/lib/Language/PureScript/Backend/IR/MagicDo.hs index 77da8c2e..e8b5c7a0 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 Abs , pattern App ) diff --git a/lib/Language/PureScript/Backend/IR/Optimizer.hs b/lib/Language/PureScript/Backend/IR/Optimizer.hs index bed33b4f..b7ae4003 100644 --- a/lib/Language/PureScript/Backend/IR/Optimizer.hs +++ b/lib/Language/PureScript/Backend/IR/Optimizer.hs @@ -3,6 +3,7 @@ module Language.PureScript.Backend.IR.Optimizer where import Control.Monad.Writer.CPS (WriterT, runWriterT, tell) import Data.Foldable (foldrM) import Data.List qualified as List +import Data.List.NonEmpty qualified as NE import Data.Map qualified as Map import Data.Set qualified as Set import Language.PureScript.Backend.IR.DCE (eliminateDeadCode) @@ -42,13 +43,16 @@ import Language.PureScript.Backend.IR.Types , isNonRecursiveLiteral , lets , literalBool + , paramName , rewriteExpBottomUpM , setAnn , substituteCopyM , substituteMoveM , thenRewrite + , pattern Abs , pattern App ) +import Language.PureScript.Backend.IR.Uncurry (uncurryWorkerWrapper) import Language.PureScript.Backend.IR.Uniquify (uniquifyNames) optimizedUberModule ∷ UberModule → UberModule @@ -79,6 +83,16 @@ optimizerPipeline neverNames = -- unblock even more optimizations, e.g. inline foreign bindings. RunPass mergeForeignsPass , RunFixpoint "optimize+dce-post-merge" (optimizePass :| [dcePass]) + , -- Split curried bindings into n-ary workers and curried wrappers + -- and rewrite the saturated call sites to direct worker calls + -- (issue #24). Runs after the post-merge fixpoint, so manifest + -- arities are measured once inlining has settled. See + -- Language.PureScript.Backend.IR.Uncurry. + RunPass uncurryPass + , -- The post-uncurry fixpoint dead-code-eliminates wrappers with no + -- remaining references and reduces the n-ary redexes that pasting + -- a single-use worker into its one call site produces. + RunFixpoint "optimize+dce-post-uncurry" (optimizePass :| [dcePass]) , -- Float a Let-bound value down into the single IfThenElse branch that -- uses it (issue #136). Runs after DCE (a dead binding is simply gone, -- never worth sinking) and outside any fixpoint: it preserves every @@ -129,6 +143,13 @@ optimizerPipeline neverNames = , passEnsures = guc } mergeForeignsPass = gucPass "mergeForeigns" mergeForeignsIntoBindings + uncurryPass = + Pass + { passName = "uncurry" + , passRun = pure . uncurryWorkerWrapper neverNames + , passRequires = guc + , passEnsures = guc + } floatInPass = gucPass "float-in" floatIn magicDoPass = Pass @@ -162,8 +183,12 @@ optimizerPipeline neverNames = wellScoped ∷ Set Invariant wellScoped = Set.singleton WellScoped + -- 'WellApplied' rides along with GUC at every boundary after the + -- entry pass: it holds trivially while all nodes are unary, and once + -- a pass introduces n-ary nodes, the pass that breaks their + -- well-formedness is blamed at its own boundary. guc ∷ Set Invariant - guc = Set.fromList [WellScoped, UniqueBinders] + guc = Set.fromList [WellScoped, UniqueBinders, WellApplied] mergeForeignsIntoBindings ∷ UberModule → UberModule mergeForeignsIntoBindings uberModule@UberModule {..} = @@ -349,7 +374,6 @@ optimizedExpressionM = ( constantFolding `thenRewrite` reduceObjectProp `thenRewrite` betaReduce - `thenRewrite` betaReduceUnusedParams `thenRewrite` removeUnreachableThenBranch `thenRewrite` removeUnreachableElseBranch `thenRewrite` removeIfWithEqualBranches @@ -432,20 +456,54 @@ expression. Because the guards match, it declines too, so the pair reaches a fixpoint in one bottom-up pass instead of oscillating. -} --- (λx. M) N ===> M[x := N] --- See Note [IR is assumed well-typed] +{- | (λx₁ … xₙ. M) N₁ … Nₙ ===> M[x₁ := N₁, …, xₙ := Nₙ] + +Fires only at exact arity: any other argument count on a literal lambda +head is ill-formed ('WellApplied', Note [n-ary abstraction]). The unary +redex is the singleton case. Each pair reduces by the shared guard: the +argument is substituted when trivial or used at most once, and bound by +a 'Let' otherwise; an argument at a 'ParamUnused' position is dropped +with its evaluation — the same call DCE makes when it drops an unused +binding unconditionally. See Note [IR is assumed well-typed]. +-} betaReduce ∷ RewriteRuleM SupplyM Ann betaReduce = \case - App _ (Abs _ (ParamNamed paramAnn param) body) r - -- See Note [Beta reduction and local inlining share an inlining guard] - | isInlinableExpr r || countFreeRef (Local param) body <= 1 → - -- The λ is consumed by the rewrite, so the first inserted occurrence - -- of the argument may keep its binder names ('substituteMoveM'). - Just <$> substituteMoveM (Local param) r body - | otherwise → - -- Bind the argument once; its evaluation now happens a single time. - pure . Just $ lets (Standalone (paramAnn, param, r) :| []) body + AppN _ (AbsN _ params body) args + | length args == length params + , -- Under GUC the parameters are pairwise-distinct binders. The rule + -- is also exercised standalone on non-GUC input, where a repeated + -- parameter name would let the first substitution steal the + -- occurrences belonging to the last same-named parameter (the one + -- Lua binds), so it declines rather than mis-substitute. + distinctParamNames params → do + (body', letBinds) ← + foldlM reduceOne (body, []) (NE.zip params args) + pure . Just $ case nonEmpty (reverse letBinds) of + Nothing → body' + Just binds → lets (Standalone <$> binds) body' _ → pure Nothing + where + reduceOne + ∷ (Exp, [(Ann, Name, Exp)]) + → (Parameter Ann, Exp) + → SupplyM (Exp, [(Ann, Name, Exp)]) + reduceOne (body, letBinds) (param, arg) = case param of + ParamUnused _ann → pure (body, letBinds) + ParamNamed paramAnn name + -- See Note [Beta reduction and local inlining share an inlining guard] + | isInlinableExpr arg || countFreeRef (Local name) body <= 1 → + -- The λ is consumed by the rewrite, so the first inserted + -- occurrence of the argument may keep its binder names + -- ('substituteMoveM'). + (,letBinds) <$> substituteMoveM (Local name) arg body + | otherwise → + -- Bind the argument once; its evaluation happens a single time. + pure (body, (paramAnn, name, arg) : letBinds) + + distinctParamNames ∷ NonEmpty (Parameter Ann) → Bool + distinctParamNames params = length names == length (ordNub names) + where + names = mapMaybe paramName (toList params) {- Note [Eta reduction is unsound] ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ @@ -490,13 +548,6 @@ Reducing only special cases of M does not help either: Hence no eta reduction is performed at all. -} -betaReduceUnusedParams ∷ Applicative m ⇒ RewriteRuleM m Ann -betaReduceUnusedParams = - pure . \case - App _ (Abs _ (ParamUnused _) body) _arg → - Just body - _ → Nothing - removeIfWithEqualBranches ∷ Applicative m ⇒ RewriteRuleM m Ann removeIfWithEqualBranches e = pure case e of diff --git a/lib/Language/PureScript/Backend/IR/Pass.hs b/lib/Language/PureScript/Backend/IR/Pass.hs index e1142e1c..66f9fb38 100644 --- a/lib/Language/PureScript/Backend/IR/Pass.hs +++ b/lib/Language/PureScript/Backend/IR/Pass.hs @@ -68,9 +68,13 @@ 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); - * '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. + * 'WellApplied' — every application of a literal lambda passes exactly + as many arguments as the lambda binds parameters, and every 'AbsN' + keeps its 'ParamUnused' parameters in a trailing run + (Note [n-ary application], Note [n-ary abstraction]). Holds + trivially while all nodes are unary; a pass that introduces + multi-argument 'AppN' or multi-parameter 'AbsN' nodes must uphold + it. 'UniqueBinders' is the global-uniqueness condition (GUC): a local reference resolves to its binder unambiguously by name. diff --git a/lib/Language/PureScript/Backend/IR/Query.hs b/lib/Language/PureScript/Backend/IR/Query.hs index d4587842..25df40ac 100644 --- a/lib/Language/PureScript/Backend/IR/Query.hs +++ b/lib/Language/PureScript/Backend/IR/Query.hs @@ -52,8 +52,8 @@ collectBoundNames ∷ Exp → Set Name collectBoundNames = (`execAccum` Set.empty) . transformMOf subexpressions \e → case e of - IR.Abs _ann (IR.ParamNamed _paramAnn name) _body → - e <$ add (Set.singleton name) + IR.AbsN _ann params _body → + e <$ add (Set.fromList (mapMaybe IR.paramName (toList params))) IR.Let _ann groupings _body → e <$ add do Set.fromList diff --git a/lib/Language/PureScript/Backend/IR/Types.hs b/lib/Language/PureScript/Backend/IR/Types.hs index 90a65cc2..76bcfdc6 100644 --- a/lib/Language/PureScript/Backend/IR/Types.hs +++ b/lib/Language/PureScript/Backend/IR/Types.hs @@ -17,6 +17,7 @@ import Data.Map qualified as Map import Data.MonoidMap (MonoidMap) import Data.MonoidMap qualified as MMap import Data.Set qualified as Set +import Data.Traversable (mapAccumM) import Language.PureScript.Backend.IR.Inliner qualified as Inliner import Language.PureScript.Backend.IR.Names ( CtorName (renderCtorName) @@ -98,7 +99,7 @@ data RawExp ann | ArrayIndex ann (RawExp ann) Natural | ObjectProp ann (RawExp ann) PropName | ObjectUpdate ann (RawExp ann) (NonEmpty (PropName, RawExp ann)) - | Abs ann (Parameter ann) (RawExp ann) + | AbsN ann (NonEmpty (Parameter ann)) (RawExp ann) | AppN ann (RawExp ann) (NonEmpty (RawExp ann)) | Ref ann (Qualified Name) | Let ann (NonEmpty (Grouping (ann, Name, RawExp ann))) (RawExp ann) @@ -118,11 +119,14 @@ 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. +pass that can prove the callee consumes every argument in one call: +today the uncurrying worker/wrapper split +("Language.PureScript.Backend.IR.Uncurry"), and eventually the lifting +of the uncurried @*.Uncurried@ wrappers to direct calls. The linter's +'Language.PureScript.Backend.IR.Linter.lintWellApplied' invariant rejects +the ill-formed shapes such a pass must never emit: a literal lambda +applied to a number of arguments different from the number of parameters +it binds. -} {- | The unary application @f a@ — the singleton 'AppN'. As a constructor @@ -133,6 +137,46 @@ 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 [n-ary abstraction] +~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ +The definition-side counterpart of Note [n-ary application]. +'AbsN (p₁ :| [p₂, …, pₙ]) body' is a single Lua function +@function(p₁, p₂, …, pₙ)@. The parameter list is not a flattened lambda +chain: 'AbsN [p, q] b' (one function of two parameters, both bound at +one call) and 'AbsN [p] (AbsN [q] b)' (a function returning a closure) +denote different programs, for the same reason as on the application +side: Lua fills missing arguments with nil instead of currying. +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 'Abs' pattern synonym below. A multi-parameter +node is introduced only by a pass that guarantees every application of +it is saturated (the worker half of the uncurrying worker/wrapper +split). Two well-formedness conditions accompany the node, both checked +by 'Language.PureScript.Backend.IR.Linter.lintWellApplied': + + * a literal 'AbsN' head is applied to exactly as many arguments as it + binds parameters (see Note [n-ary application]); + + * 'ParamUnused' occurs only as a trailing run of the parameter list. + The Lua backend must drop unused parameters (see + Note [Nullary functions and Prim.undefined] in + "Language.PureScript.Backend.Lua"), and dropping a non-trailing one + would shift every parameter after it. Producers uphold this by + construction; dead-code elimination blanks only a dead /suffix/ of + an 'AbsN' parameter list. +-} + +{- | The unary abstraction @λp. body@ — the singleton 'AbsN'. As a +constructor it builds the one-parameter function; as a pattern it +matches exactly the one-parameter functions, leaving genuinely n-ary +nodes to fall through to a later alternative. Every unary rule keeps +using it unchanged. +-} +pattern Abs ∷ ann → Parameter ann → RawExp ann → RawExp ann +pattern Abs ann param body = AbsN ann (param :| []) body + {- Note [Sequential scoping of Let bindings] ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ A local variable is referenced by name ('Ref _ (Local name)') and @@ -228,7 +272,7 @@ getAnn = \case ArrayIndex ann _ _ → ann ObjectProp ann _ _ → ann ObjectUpdate ann _ _ → ann - Abs ann _ _ → ann + AbsN ann _ _ → ann AppN ann _ _ → ann Ref ann _ → ann Let ann _ _ → ann @@ -258,7 +302,7 @@ setAnn ann = \case ArrayIndex _ e i → ArrayIndex ann e i ObjectProp _ e prop → ObjectProp ann e prop ObjectUpdate _ e patches → ObjectUpdate ann e patches - Abs _ param body → Abs ann param body + AbsN _ params body → AbsN ann params body AppN _ f args → AppN ann f args Ref _ qname → Ref ann qname Let _ binds body → Let ann binds body @@ -327,6 +371,9 @@ ctor = Ctor noAnn abstraction ∷ Parameter Ann → Exp → Exp abstraction = Abs noAnn +abstractionN ∷ NonEmpty (Parameter Ann) → Exp → Exp +abstractionN = AbsN noAnn + identity ∷ Exp identity = let name = Name "x" @@ -449,8 +496,8 @@ subexpressions go = \case ObjectUpdate ann <$> go a <*> traverse (traverse go) ps AppN ann f args → AppN ann <$> go f <*> traverse go args - Abs ann arg a → - Abs ann arg <$> go a + AbsN ann params a → + AbsN ann params <$> go a Let ann bs body → Let ann <$> traverse (traverse (\(a, n, expr) → (a,n,) <$> go expr)) bs @@ -561,11 +608,12 @@ countFreeRefs = fmap getSum . MMap.toMap . countFreeRefs' mempty Local name | Set.member name bound → mempty _ → MMap.singleton qname (Sum 1) - Abs _ann param body → - case param of - ParamNamed _paramAnn name → - countFreeRefs' (Set.insert name bound) body - ParamUnused _paramAnn → countFreeRefs' bound body + AbsN _ann params body → + countFreeRefs' (foldl' bindParam bound params) body + where + bindParam names = \case + ParamNamed _paramAnn name → Set.insert name names + ParamUnused _paramAnn → names -- See Note [Sequential scoping of Let bindings] Let _ann binds body → fold (countsInBody : countsInBinds) where @@ -633,19 +681,16 @@ alphaEq = go 0 Map.empty Map.empty (Just levelL, Just levelR) → levelL == levelR (Nothing, Nothing) → nameL == nameR _ → False - (Abs annL paramL bodyL, Abs annR paramR bodyR) → - annL == annR && case (paramL, paramR) of - (ParamUnused paL, ParamUnused paR) → - paL == paR && go lvl scopeL scopeR bodyL bodyR - (ParamNamed paL nameL, ParamNamed paR nameR) → - paL == paR - && go - (lvl + 1) - (bindLevel nameL lvl scopeL) - (bindLevel nameR lvl scopeR) - bodyL - bodyR - _ → False + (AbsN annL paramsL bodyL, AbsN annR paramsR bodyR) → + annL == annR + && goAbs + lvl + scopeL + scopeR + (toList paramsL) + (toList paramsR) + bodyL + bodyR (Let annL bindsL bodyL, Let annR bindsR bodyR) → annL == annR && goLet lvl scopeL scopeR (toList bindsL) (toList bindsR) bodyL bodyR @@ -685,6 +730,35 @@ alphaEq = go 0 Map.empty Map.empty -- different constructors: _ → exprL == exprR + -- Parameters are compared positionally, binding levels in lockstep; + -- a length mismatch falls through to False. + goAbs + ∷ Eq ann + ⇒ Natural + → Map Name Natural + → Map Name Natural + → [Parameter ann] + → [Parameter ann] + → RawExp ann + → RawExp ann + → Bool + goAbs lvl scopeL scopeR paramsL paramsR bodyL bodyR = + case (paramsL, paramsR) of + ([], []) → go lvl scopeL scopeR bodyL bodyR + (ParamUnused paL : psL, ParamUnused paR : psR) → + paL == paR && goAbs lvl scopeL scopeR psL psR bodyL bodyR + (ParamNamed paL nameL : psL, ParamNamed paR nameR : psR) → + paL == paR + && goAbs + (lvl + 1) + (bindLevel nameL lvl scopeL) + (bindLevel nameR lvl scopeR) + psL + psR + bodyL + bodyR + _ → False + goLet ∷ Eq ann ⇒ Natural @@ -778,13 +852,15 @@ freshenBinders = go Map.empty , Just renamed ← Map.lookup name renames → pure (Ref ann (Local renamed)) | otherwise → pure r - Abs ann param body → - case param of - ParamUnused _paramAnn → Abs ann param <$> go renames body + AbsN ann params body → do + (renames', params') ← mapAccumM freshenParam renames params + AbsN ann params' <$> go renames' body + where + freshenParam rs = \case + p@(ParamUnused _paramAnn) → pure (rs, p) ParamNamed paramAnn name → do name' ← freshNameFor name - Abs ann (ParamNamed paramAnn name') - <$> go (Map.insert name name' renames) body + pure (Map.insert name name' rs, ParamNamed paramAnn name') Let ann binds body → do -- Under unique binders no Let name can be referenced before it is -- bound, so all the groupings can enter the rename map up front. diff --git a/lib/Language/PureScript/Backend/IR/Uncurry.hs b/lib/Language/PureScript/Backend/IR/Uncurry.hs new file mode 100644 index 00000000..87d38d9b --- /dev/null +++ b/lib/Language/PureScript/Backend/IR/Uncurry.hs @@ -0,0 +1,391 @@ +{- | Uncurry functions via a worker/wrapper split (issue #24). + +A curried function compiles to nested closures: every application is a +separate Lua call allocating an intermediate closure — ~4.3x per +application under PUC Lua 5.1, and a trace-abort cliff under LuaJIT +(closure creation is NYI for the trace recorder, so every hot curried +loop gets blacklisted). + +== The split + +Every binding — top-level or 'Let'-bound — whose right-hand side is a +manifest chain of unary lambdas @λp₁.…λpₙ. body@ with n ≥ 2, and which +has at least one saturated call site in the program, splits in place +into + + * a /worker/ @f$w = AbsN [p₁…pₙ] body@ — one n-ary Lua function + holding the original body and binders, and + + * a /wrapper/ @f = λf$p1.…λf$pn. f$w(f$p1, …, f$pn)@ — the original + name, still curried, delegating to the worker. + +Every saturated call site — a nested unary application spine of exactly +n arguments headed by a reference to the binding — is rewritten to the +direct worker call @f$w(a₁, …, aₙ)@; partial applications keep going +through the wrapper, and a reference passed as a value keeps denoting +the shared curried function. Semantics is unchanged by construction: +the worker body runs only on full saturation, so no work moves to +construction time and Note [Eta reduction is unsound] is not disturbed. + +== Saturated-site precondition + +A binding with no saturated site is left alone. Splitting it anyway +would leave a worker referenced only by its wrapper, and the revert +path through the use-once inliner plus n-ary beta reduction does not +exist everywhere: recursive-group members are never inlined, and a +local worker referenced from its sibling wrapper's right-hand side is +outside 'inlineLocalBindings'' reach (it only inlines into the 'Let' +body). With the precondition, a split that later loses its sites only +degrades to a harmless extra indirection. + +== Scoping of the candidate maps + +After 'Language.PureScript.Backend.IR.Linker.qualifyTopRefs' every +reference to a top-level binding is 'Imported', and QNames are globally +unique, so top-level candidates live in one module-wide map. Local +binder names are unique only per top-level site +('Language.PureScript.Backend.IR.Uniquify' — GUC is per-site), so local +candidates are collected, counted, and rewritten independently per +site: a saturated site in one site must not qualify a same-named binder +of another. + +== Names + +All minted names are deterministic — the shared supply is deliberately +not used, since a draw here would shift the numbering of every +@$kont@\/@$tmp@ name minted downstream (see +"Language.PureScript.Backend.IR.Supply"). The schemes @\$w@ +(worker), @\$p\@ (wrapper parameters) and @\$u\@ (named +interior unused parameters) cannot collide with source identifiers +(no @$@ in PureScript identifiers), with freshened binders +(@\$\@), with flattening helpers (@$kont\@, +@$tmp\@), or with CoreFn 'GenIdent's (which start with @$@). + +The worker keeps the original chain's binders, so GUC is preserved: the +wrapper's parameters are fresh, and worker/wrapper of a top-level split +are separate sites anyway. An /interior/ 'ParamUnused' of the chain +becomes a fresh named parameter of the worker (never referenced), so +'ParamUnused' stays a trailing run (Note [n-ary abstraction]); the +trailing run itself is kept unused and dropped by the Lua backend. + +== Pipeline placement + +Runs once, between the post-merge optimize\/dce fixpoint (so manifest +arities are measured after inlining settles) and the post-uncurry +fixpoint (which dead-code-eliminates wrappers with no remaining +references and beta-reduces worker pastes), ahead of +floatIn\/magicDo\/flattenDeepBinds — the latter recognises the n-ary +chains and spines this pass emits. Effect-shaped bindings are mostly +left curried at this point: thunk-forcing call sites only appear once +magicDo has run, so their spines are still partial here. +-} +module Language.PureScript.Backend.IR.Uncurry + ( uncurryWorkerWrapper + ) where + +import Control.Lens (cosmosOf, toListOf, transformOf) +import Data.List.NonEmpty qualified as NE +import Data.Map.Strict qualified as Map +import Data.Set qualified as Set +import Data.Text qualified as Text +import Language.PureScript.Backend.IR.Linker (UberModule (..)) +import Language.PureScript.Backend.IR.Names + ( Name (..) + , QName (..) + , Qualified (..) + , nameToText + ) +import Language.PureScript.Backend.IR.Types + ( Ann + , Exp + , Grouping (..) + , Parameter (..) + , RawExp (..) + , WasRewritten + , getAnn + , listGrouping + , noAnn + , paramName + , refLocal + , rewrittenIf + , setAnn + , subexpressions + , pattern Abs + , pattern App + ) + +{- | Split every qualifying binding into worker and wrapper and rewrite +the saturated call sites to direct worker calls. The 'Set' argument is +the @inline never@ veto collected by the optimizer; those bindings are +left alone (the pragma declares sharing intent for the name as-is). +-} +uncurryWorkerWrapper ∷ Set QName → UberModule → (UberModule, WasRewritten) +uncurryWorkerWrapper neverNames uber@UberModule {..} = + ( uber + { uberModuleBindings = bindings' + , uberModuleExports = exports' + } + , rewrittenIf (not (Map.null topSplit) || anyLocalSplit) + ) + where + -- Top-level candidates: manifest arity ≥ 2, not vetoed. + topParams ∷ Map (Qualified Name) (NonEmpty (Parameter Ann)) + topParams = + Map.fromList + [ (Imported modname name, params) + | (QName modname name, expr) ← listGrouping =<< uberModuleBindings + , QName modname name `Set.notMember` neverNames + , Just (params, _body) ← [manifestChain expr] + ] + + -- One saturated site anywhere in the module qualifies a top-level + -- candidate; sites are every binding right-hand side and every export. + siteExprs ∷ [Exp] + siteExprs = + (snd <$> (listGrouping =<< uberModuleBindings)) + <> (snd <$> uberModuleExports) + + topCounts ∷ Map (Qualified Name) Int + topCounts = + Map.unionsWith (+) (censusIn (length <$> topParams) <$> siteExprs) + + topSplit ∷ Map (Qualified Name) (NonEmpty (Parameter Ann)) + topSplit = + Map.filterWithKey + (\q _ → Map.findWithDefault 0 q topCounts > 0) + topParams + + topSplitArities ∷ Map (Qualified Name) Int + topSplitArities = length <$> topSplit + + processedBindings ∷ [Grouping (QName, Exp)] + bindingSplits ∷ [Bool] + (processedBindings, bindingSplits) = + unzip (processGrouping <$> uberModuleBindings) + where + processGrouping ∷ Grouping (QName, Exp) → (Grouping (QName, Exp), Bool) + processGrouping grouping = + ( fmap (second fst) processed + , any (snd . snd) (listGrouping processed) + ) + where + processed = fmap (second processSite) grouping + + processedExports ∷ [(Name, Exp)] + exportSplits ∷ [Bool] + (processedExports, exportSplits) = + unzip + [ ((name, e), split) + | (name, expr) ← uberModuleExports + , let (e, split) = processSite expr + ] + + anyLocalSplit ∷ Bool + anyLocalSplit = or bindingSplits || or exportSplits + + exports' = processedExports + + -- Split the qualifying top-level bindings of the processed module, + -- worker to the left of its wrapper (Note [Incremental free-reference + -- counting] visits right to left, so a binding may only be referenced + -- by material to its right). + bindings' ∷ [Grouping (QName, Exp)] + bindings' = splitTop =<< processedBindings + where + splitTop = \case + Standalone (qname, expr) → + Standalone <$> splitMember (qname, expr) + RecursiveGroup members → + [RecursiveGroup (NE.fromList (splitMember =<< toList members))] + + splitMember ∷ (QName, Exp) → [(QName, Exp)] + splitMember (qname@(QName modname name), expr) + | Imported modname name `Map.member` topSplit + , Just (params, body) ← manifestChain expr = + let workerQName = QName modname (workerName name) + workerRef = Imported modname (workerName name) + (worker, wrapper) = + workerAndWrapper (getAnn expr) name workerRef params body + in [(workerQName, worker), (qname, wrapper)] + | otherwise = [(qname, expr)] + + -- Process one top-level site: collect its local candidates, qualify + -- them by their in-site saturated-site counts, then in one bottom-up + -- sweep rewrite the saturated sites (top-level and local) and splice + -- the qualifying Let bindings into worker/wrapper pairs. + processSite ∷ Exp → (Exp, Bool) + processSite expr = (transformOf subexpressions step expr, splitsHappen) + where + localParams ∷ Map Name (NonEmpty (Parameter Ann)) + localParams = + Map.fromList + [ (name, params) + | Let _ groupings _ ← toListOf (cosmosOf subexpressions) expr + , (_ann, name, rhs) ← listGrouping =<< toList groupings + , Just (params, _body) ← [manifestChain rhs] + ] + + localCounts ∷ Map (Qualified Name) Int + localCounts = censusIn (Map.mapKeys Local (length <$> localParams)) expr + + localSplit ∷ Map Name (NonEmpty (Parameter Ann)) + localSplit = + Map.filterWithKey + (\n _ → Map.findWithDefault 0 (Local n) localCounts > 0) + localParams + + splitsHappen ∷ Bool + splitsHappen = not (Map.null localSplit) + + actives ∷ Map (Qualified Name) Int + actives = + Map.union topSplitArities (Map.mapKeys Local (length <$> localSplit)) + + step ∷ Exp → Exp + step e = case saturatedSite actives e of + Just (q, args) → + AppN (getAnn e) (Ref noAnn (workerOf q)) (NE.fromList args) + Nothing → case e of + Let ann groupings body + | any memberSplits (listGrouping =<< toList groupings) → + Let ann (NE.fromList (spliceGrouping =<< toList groupings)) body + _ → e + + memberSplits ∷ (Ann, Name, Exp) → Bool + memberSplits (_ann, name, _rhs) = name `Map.member` localSplit + + spliceGrouping + ∷ Grouping (Ann, Name, Exp) → [Grouping (Ann, Name, Exp)] + spliceGrouping = \case + Standalone member → Standalone <$> spliceMember member + RecursiveGroup members → + [RecursiveGroup (NE.fromList (spliceMember =<< toList members))] + + spliceMember ∷ (Ann, Name, Exp) → [(Ann, Name, Exp)] + spliceMember member@(ann, name, rhs) + | name `Map.member` localSplit + , Just (params, body) ← manifestChain rhs = + let (worker, wrapper) = + workerAndWrapper + (getAnn rhs) + name + (Local (workerName name)) + params + body + in [(noAnn, workerName name, worker), (ann, name, wrapper)] + | otherwise = [member] + +-------------------------------------------------------------------------------- +-- Worker and wrapper construction --------------------------------------------- + +{- | Build the worker (the n-ary lambda over the original binders and +body) and the wrapper (the curried delegate under the original name). +The wrapper takes over the original root annotation: an @inline@ pragma +stays attached to the name it was declared for. +-} +workerAndWrapper + ∷ Ann + -- ^ The original right-hand side's root annotation + → Name + -- ^ The binding's own name (the wrapper keeps it) + → Qualified Name + -- ^ How call sites reference the worker + → NonEmpty (Parameter Ann) + -- ^ The manifest chain's parameters + → Exp + -- ^ The manifest chain's body + → (Exp, Exp) +workerAndWrapper rootAnn name workerRef params body = (worker, wrapper) + where + worker = AbsN noAnn (nameInteriorUnused name params) body + wrapper = + setAnn rootAnn $ + foldr + (Abs noAnn . ParamNamed noAnn) + (AppN noAnn (Ref noAnn workerRef) (refLocal <$> wrapperParams)) + (toList wrapperParams) + wrapperParams ∷ NonEmpty Name + wrapperParams = + NE.fromList + [ Name (nameToText name <> "$p" <> Text.pack (show i)) + | i ← [1 .. length params] + ] + +{- | Replace each /interior/ 'ParamUnused' with a fresh named (never +referenced) parameter, keeping the trailing run unused: 'ParamUnused' +must stay a trailing run (Note [n-ary abstraction]). +-} +nameInteriorUnused + ∷ Name → NonEmpty (Parameter Ann) → NonEmpty (Parameter Ann) +nameInteriorUnused fname params = NE.fromList (zipWith rename [1 ..] ps) + where + ps = toList params + trailingUnused = + length (takeWhile (isNothing . paramName) (reverse ps)) + interiorCount = length ps - trailingUnused + rename ∷ Int → Parameter Ann → Parameter Ann + rename i = \case + ParamUnused ann + | i <= interiorCount → + ParamNamed + ann + (Name (nameToText fname <> "$u" <> Text.pack (show i))) + p → p + +-------------------------------------------------------------------------------- +-- Recognition ----------------------------------------------------------------- + +{- | The manifest chain of a right-hand side: the parameters of the +directly-nested unary lambdas (nothing may intervene) and the innermost +body, when the chain is at least two deep — the shapes worth splitting. +-} +manifestChain ∷ Exp → Maybe (NonEmpty (Parameter Ann), Exp) +manifestChain expr = case peel expr of + (p1 : p2 : ps, body) → Just (p1 :| (p2 : ps), body) + _ → Nothing + where + peel ∷ Exp → ([Parameter Ann], Exp) + peel = \case + -- The singleton pattern: a multi-parameter 'AbsN' is already a + -- worker and is not peeled. + Abs _ann param body → first (param :) (peel body) + e → ([], e) + +{- | Match a saturated call site: a nested /unary/ application spine +headed by a reference to a candidate, applying exactly as many +arguments as the candidate's arity. An over-application contains this +node as its inner prefix, and a longer flattened look-through is never +taken: 'AppN' argument lists are not spines (Note [n-ary application]). +-} +saturatedSite + ∷ Map (Qualified Name) Int → Exp → Maybe (Qualified Name, [Exp]) +saturatedSite arities e = case unwind e [] of + (Ref _ann q, args) + | Just arity ← Map.lookup q arities + , length args == arity → + Just (q, args) + _ → Nothing + where + unwind ∷ Exp → [Exp] → (Exp, [Exp]) + unwind (App _ann fn a) acc = unwind fn (a : acc) + unwind hd acc = (hd, acc) + +{- | Count the saturated sites of each candidate within one expression. +Absent keys have no sites. +-} +censusIn ∷ Map (Qualified Name) Int → Exp → Map (Qualified Name) Int +censusIn arities expr = + Map.fromListWith + (+) + [ (q, 1) + | node ← toListOf (cosmosOf subexpressions) expr + , Just (q, _args) ← [saturatedSite arities node] + ] + +workerName ∷ Name → Name +workerName name = Name (nameToText name <> "$w") + +workerOf ∷ Qualified Name → Qualified Name +workerOf = \case + Imported modname name → Imported modname (workerName name) + Local name → Local (workerName name) diff --git a/lib/Language/PureScript/Backend/IR/Uniquify.hs b/lib/Language/PureScript/Backend/IR/Uniquify.hs index 328ea9c3..70fa0c57 100644 --- a/lib/Language/PureScript/Backend/IR/Uniquify.hs +++ b/lib/Language/PureScript/Backend/IR/Uniquify.hs @@ -72,12 +72,18 @@ uniquifyNamesInExpr e = where go ∷ RenamesInScope → Exp → State (Set Name) Exp go scope = \case - Abs ann param body → - case param of - ParamUnused _ann → Abs ann param <$> go scope body - ParamNamed paramAnn name → do - (name', scope') ← bindName scope name - Abs ann (ParamNamed paramAnn name') <$> go scope' body + AbsN ann params body → do + (scope', reverse → params') ← + foldlM + ( \(sc, ps) param → case param of + ParamUnused _ann → pure (sc, param : ps) + ParamNamed paramAnn name → do + (name', sc') ← bindName sc name + pure (sc', ParamNamed paramAnn name' : ps) + ) + (scope, []) + (toList params) + AbsN ann (NE.fromList params') <$> go scope' body Ref ann qname → pure case qname of Local lname diff --git a/lib/Language/PureScript/Backend/Lua.hs b/lib/Language/PureScript/Backend/Lua.hs index f8de5b76..e4a3bac4 100644 --- a/lib/Language/PureScript/Backend/Lua.hs +++ b/lib/Language/PureScript/Backend/Lua.hs @@ -214,23 +214,31 @@ fromIR foreigns topLevelNames modname ir = case ir of pure . Right $ Lua.functionCall (Lua.varName Fixture.objectUpdateName) [obj, vals] -- See Note [Nullary functions and Prim.undefined] - IR.Abs _ann param expr → do + IR.AbsN _ann params expr → do body ← go expr - let luaParams = case param of - IR.ParamUnused _ann → [] - IR.ParamNamed _ann name → [ParamNamed (fromName name)] + let luaParams = + -- The trailing run of unused parameters is dropped; a + -- non-trailing 'ParamUnused' cannot occur + -- (Note [n-ary abstraction] in ...Backend.IR.Types). + [ ParamNamed (fromName name) + | IR.ParamNamed _pann name ← + List.dropWhileEnd isUnusedParam (toList params) + ] pure . Right $ case body of Left chunk → Lua.functionDef luaParams chunk Right e → Lua.functionDef luaParams [Lua.return e] 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 so - -- a nullary function is emitted as f() rather than f(nil). - IR.Ref _ann (IR.Imported (IR.ModuleName "Prim") (IR.Name "undefined")) :| [] → - pure [] - _ → traverse goExp (toList args) + -- See Note [Nullary functions and Prim.undefined]. PS inserts a + -- synthetic unused argument "Prim.undefined" to force a thunk. The + -- trailing run of such arguments is elided (the nullary call + -- included, so it is emitted as f() rather than f(nil)), mirroring + -- the dropped trailing run of unused parameters above. A + -- non-trailing one can only face an unused (named-dummy) parameter + -- of an uncurried worker, so it lowers to an explicit nil. + let keptArgs = List.dropWhileEnd isPrimUndefined (toList args) + Right . Lua.functionCall e <$> for keptArgs \arg → + if isPrimUndefined arg then pure Lua.Nil else goExp arg IR.Ref _ann qualifiedName → case qualifiedName of IR.Local name @@ -330,3 +338,13 @@ keyCtor = Lua.String "$ctor" qualifyName ∷ ModuleName → Lua.Name → Lua.Name qualifyName modname = Name.join2 (fromModuleName modname) + +isUnusedParam ∷ IR.Parameter ann → Bool +isUnusedParam = isNothing . IR.paramName + +-- | The synthetic argument PureScript passes to force a thunk. +isPrimUndefined ∷ IR.Exp → Bool +isPrimUndefined = \case + IR.Ref _ann (IR.Imported (IR.ModuleName "Prim") (IR.Name "undefined")) → + True + _ → False diff --git a/pslua.cabal b/pslua.cabal index 2d9809a7..ddf1da9c 100644 --- a/pslua.cabal +++ b/pslua.cabal @@ -141,6 +141,7 @@ library Language.PureScript.Backend.IR.Query Language.PureScript.Backend.IR.Supply Language.PureScript.Backend.IR.Types + Language.PureScript.Backend.IR.Uncurry Language.PureScript.Backend.IR.Uniquify Language.PureScript.Backend.Lua Language.PureScript.Backend.Lua.Fixture @@ -186,6 +187,7 @@ test-suite spec Language.PureScript.Backend.IR.Spec Language.PureScript.Backend.IR.SpecUtils Language.PureScript.Backend.IR.Types.Spec + Language.PureScript.Backend.IR.Uncurry.Spec Language.PureScript.Backend.IR.Uniquify.Spec Language.PureScript.Backend.Lua.Differential.Spec Language.PureScript.Backend.Lua.Gen diff --git a/test/Language/PureScript/Backend/IR/FlattenDeepBinds/Spec.hs b/test/Language/PureScript/Backend/IR/FlattenDeepBinds/Spec.hs index 1a570a09..50628600 100644 --- a/test/Language/PureScript/Backend/IR/FlattenDeepBinds/Spec.hs +++ b/test/Language/PureScript/Backend/IR/FlattenDeepBinds/Spec.hs @@ -21,6 +21,7 @@ import Language.PureScript.Backend.IR.Types , RawExp (..) , abstraction , application + , applicationN , countFreeRefs , eq , literalInt @@ -81,6 +82,26 @@ spec = describe "FlattenDeepBinds" do kontNames flat `shouldSatisfy` (not . null) countFreeRefs flat `shouldBe` countFreeRefs e + -- After uncurrying, a saturated CPS step is one n-ary call + -- @w(action, \x -> rest)@; the chain must flatten exactly like its + -- curried @w action (\x -> rest)@ ancestor. + it "flattens a chain of n-ary worker-call steps" do + let e = naryChainExpr 200 + flat = chainExpr (flattenDeepBinds (chainModuleOf e)) + kontNames flat `shouldSatisfy` (not . null) + countFreeRefs flat `shouldBe` countFreeRefs e + maxAbsDepth flat `shouldSatisfy` (< maxAbsDepth e) + + it "preserves the n-ary call shape when rebuilding steps" do + -- Every rebuilt step must stay one two-argument call w(a, k): + -- splitting it into w(a)(k) denotes a different program + -- (Note [n-ary application]). + let flat = + chainExpr (flattenDeepBinds (chainModuleOf (naryChainExpr 200))) + arities = workerCallArities flat + length arities `shouldBe` 200 + arities `shouldSatisfy` all (== 2) + -- A real `do` block interleaves statement-only lines (a `discard`, here a -- second head). The chain must flatten as one, not split into sub-threshold -- fragments at each interleaved head. @@ -132,6 +153,16 @@ spec = describe "FlattenDeepBinds" do countFreeRefs flat `shouldBe` countFreeRefs e maxSpineDepth flat `shouldSatisfy` (< maxSpineDepth e) + -- After uncurrying, an applicative spine runs through argument + -- positions of n-ary worker calls; its depth must be measured and + -- sealed exactly like the curried apply(…)(…) spine. + it "sequentialises a deep spine of n-ary calls" do + let e = narySpineExpr 200 + flat = chainExpr (flattenDeepBinds (chainModuleOf e)) + tmpNames flat `shouldSatisfy` (not . null) + countFreeRefs flat `shouldBe` countFreeRefs e + maxSpineDepth flat `shouldSatisfy` (< maxSpineDepth e) + it "leaves a shallow spine untouched (below threshold)" do let m = chainModuleOf (applyChainExpr 10) flattenDeepBinds m `shouldBe` m @@ -235,6 +266,30 @@ chainExprWith hd n = go 1 chainExpr' ∷ Int → Exp chainExpr' = chainExprWith bindHead +-- | The n-ary head: a saturated CPS combinator's uncurried worker. +workerHead ∷ Exp +workerHead = refImported testModule (Name "withInc$w") + +{- | Like 'chainExprWith', but each step is one n-ary worker call +@w(a_i, \x_i -> rest)@ — the shape a saturated two-argument CPS step +takes after uncurrying. +-} +naryChainExpr ∷ Int → Exp +naryChainExpr n = go 1 + where + go ∷ Int → Exp + go i + | i > n = eq (refLocal (xName 1)) (refLocal (xName n)) + | otherwise = + applicationN + workerHead + (action i :| [abstraction (paramNamed (xName i)) (go (i + 1))]) + + action ∷ Int → Exp + action i + | i <= 1 = literalInt 0 + | otherwise = eq (refLocal (xName (i - 1))) (literalInt (fromIntegral i)) + chainModule ∷ Int → UberModule chainModule = chainModuleOf . chainExpr' @@ -371,6 +426,15 @@ bindFlippedChainExpr n = go 1 (application bindFlippedHead (literalInt (fromIntegral i))) (go (i + 1)) +{- | A deep spine of n-ary calls, depth running through the first argument +position: @w(w(… w(x1, 2) …, n-1), n)@. +-} +narySpineExpr ∷ Int → Exp +narySpineExpr n = foldl' step (refLocal (xName 1)) [2 .. n] + where + step ∷ Exp → Int → Exp + step acc i = applicationN workerHead (acc :| [literalInt (fromIntegral i)]) + -- | A deep spine, randomly left- or right-nested, always above the threshold. genDeepSpineExpr ∷ Gen Exp genDeepSpineExpr = do @@ -388,11 +452,11 @@ genSpineExpr = do -------------------------------------------------------------------------------- -- Measures -------------------------------------------------------------------- --- | The longest root-to-leaf path through 'Abs' binders. +-- | The longest root-to-leaf path through 'AbsN' binders. maxAbsDepth ∷ Exp → Int maxAbsDepth e = here + foldl' max 0 (maxAbsDepth <$> toListOf subexpressions e) where - here = case e of Abs {} → 1; _ → 0 + here = case e of AbsN {} → 1; _ → 0 {- | The deepest contiguous chain of 'App' nodes anywhere in the expression — the parse nesting Strategy B flattens (mirrors the pass's own @spineDepth@). @@ -403,9 +467,18 @@ maxSpineDepth e = where spineDepthAt ∷ Exp → Int spineDepthAt = \case - App _ann f a → 1 + max (spineDepthAt f) (spineDepthAt a) + AppN _ann f args → + 1 + foldl' max (spineDepthAt f) (spineDepthAt <$> toList args) _ → 0 +-- | Argument counts of every call whose head is 'workerHead'. +workerCallArities ∷ Exp → [Int] +workerCallArities e = + [ length args + | AppN _ann hd args ← universeOf subexpressions e + , hd == workerHead + ] + -- | Occurrences of the @bind@ head reference. countBinds ∷ Exp → Natural countBinds = Map.findWithDefault 0 (Imported testModule (Name "bind")) . countFreeRefs diff --git a/test/Language/PureScript/Backend/IR/Gen.hs b/test/Language/PureScript/Backend/IR/Gen.hs index 59a8dd2c..c169d13b 100644 --- a/test/Language/PureScript/Backend/IR/Gen.hs +++ b/test/Language/PureScript/Backend/IR/Gen.hs @@ -52,6 +52,10 @@ exp = ( 5 , Gen.subtermM exp \e → (`IR.abstraction` e) <$> parameter ) + , + ( 2 + , Gen.subtermM exp \e → (`IR.abstractionN` e) <$> parameters + ) , ( 6 , Gen.subtermM exp \e → @@ -95,6 +99,7 @@ scopedExpIn scope = ) , (5, genAbs) , (4, genRedex) + , (2, genRedexN) , (4, genLet) , ( 2 @@ -124,6 +129,21 @@ scopedExpIn scope = IR.ParamUnused _ → scope body ← scopedExpIn scope' pure (param, body) + -- An exactly-saturated application of an n-ary lambda — the only shape + -- a multi-parameter 'AbsN' may be applied in ('WellApplied', see + -- Note [n-ary abstraction]). Generated as a redex so the generic + -- application case above cannot pair the lambda with a wrong argument + -- count. + genRedexN = do + names ← Gen.nonEmpty (Range.linear 2 3) name + let scope' = foldr Set.insert scope (toList names) + body ← scopedExpIn scope' + args ← forM names \_nm → scopedExpIn scope + pure + ( IR.applicationN + (IR.abstractionN (IR.paramNamed <$> names) body) + args + ) -- A Let with 1–3 groupings. The scope threads sequentially, following -- Note [Sequential scoping of Let bindings]. Names come from the same -- small pool as everywhere else, so shadowing and parallel duplicates @@ -225,6 +245,16 @@ parameter = , (9, IR.ParamNamed noAnn <$> name) ] +{- | A multi-parameter list for an 'AbsN': named parameters with an +optional trailing 'ParamUnused' run — the only well-formed placement +(Note [n-ary abstraction]). +-} +parameters ∷ MonadGen m ⇒ m (NonEmpty (IR.Parameter IR.Ann)) +parameters = do + named ← Gen.nonEmpty (Range.linear 2 3) (IR.paramNamed <$> name) + unusedCount ← Gen.int (Range.linear 0 1) + pure (NE.appendList named (replicate unusedCount IR.paramUnused)) + qualified ∷ MonadGen m ⇒ m a → m (IR.Qualified a) qualified q = Gen.frequency diff --git a/test/Language/PureScript/Backend/IR/Linter/Spec.hs b/test/Language/PureScript/Backend/IR/Linter/Spec.hs index bb964dc5..f006473c 100644 --- a/test/Language/PureScript/Backend/IR/Linter/Spec.hs +++ b/test/Language/PureScript/Backend/IR/Linter/Spec.hs @@ -21,12 +21,14 @@ import Language.PureScript.Backend.IR.Types ( Exp , Grouping (..) , abstraction + , abstractionN , application , applicationN , lets , literalInt , noAnn , paramNamed + , paramUnused , refLocal ) import Language.PureScript.Names (runtimeLazyName) @@ -144,7 +146,12 @@ spec = describe "IR Linter" do describe "WellApplied" do let x = Name "x" + y = Name "y" lam = abstraction (paramNamed x) (refLocal x) + lam2 = + abstractionN + (paramNamed x :| [paramNamed y]) + (refLocal x) a = literalInt 1 b = literalInt 2 c = literalInt 3 @@ -157,21 +164,29 @@ spec = describe "IR Linter" do (inBinding (applicationN (refLocal (Name "f")) (a :| [b, c]))) `shouldBe` [] + it "accepts an exactly-saturated application of an n-ary lambda" do + lintWellApplied (inBinding (applicationN lam2 (a :| [b]))) + `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] + `shouldBe` [LambdaArityMismatch (InBinding itQName) 1 2] + + it "flags an n-ary lambda applied to too few arguments in one call" do + -- Lua fills the missing parameter with nil instead of currying. + lintWellApplied (inBinding (application lam2 a)) + `shouldBe` [LambdaArityMismatch (InBinding itQName) 2 1] 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 = + let curried = abstraction (paramNamed x) (abstraction (paramNamed y) (refLocal x)) lintWellApplied (inBinding (applicationN curried (a :| [b]))) - `shouldBe` [OverApplied (InBinding itQName) 2] + `shouldBe` [LambdaArityMismatch (InBinding itQName) 1 2] it "descends into call arguments to find nested over-applications" do -- A well-formed outer call whose second argument is itself an @@ -179,4 +194,21 @@ spec = describe "IR Linter" do let nested = applicationN lam (a :| [b]) outer = applicationN (refLocal (Name "g")) (a :| [nested]) lintWellApplied (inBinding outer) - `shouldBe` [OverApplied (InBinding itQName) 2] + `shouldBe` [LambdaArityMismatch (InBinding itQName) 1 2] + + it "accepts a trailing run of unused parameters" do + lintWellApplied + ( inBinding + ( abstractionN + (paramNamed x :| [paramUnused, paramUnused]) + (refLocal x) + ) + ) + `shouldBe` [] + + it "flags a named parameter after an unused one" do + lintWellApplied + ( inBinding + (abstractionN (paramUnused :| [paramNamed x]) (refLocal x)) + ) + `shouldBe` [NonTrailingUnusedParam (InBinding itQName)] diff --git a/test/Language/PureScript/Backend/IR/Optimizer/Spec.hs b/test/Language/PureScript/Backend/IR/Optimizer/Spec.hs index 72250709..b78a1c80 100644 --- a/test/Language/PureScript/Backend/IR/Optimizer/Spec.hs +++ b/test/Language/PureScript/Backend/IR/Optimizer/Spec.hs @@ -1,6 +1,7 @@ module Language.PureScript.Backend.IR.Optimizer.Spec where import Data.Map qualified as Map +import Data.Text qualified as Text import Hedgehog (PropertyT, annotateShow, diff, forAll, (===)) import Hedgehog.Gen qualified as Gen import Language.PureScript.Backend.IR.Gen qualified as Gen @@ -23,6 +24,7 @@ import Language.PureScript.Backend.IR.Optimizer ( optimizeModule , optimizedExpression , optimizedUberModule + , optimizedUberModuleChecked ) import Language.PureScript.Backend.IR.Supply (runSupply) import Language.PureScript.Backend.IR.Types @@ -31,8 +33,10 @@ import Language.PureScript.Backend.IR.Types , Module (..) , RawExp (..) , abstraction + , abstractionN , alphaEq , application + , applicationN , countFreeRef , eq , getAnn @@ -49,8 +53,17 @@ import Language.PureScript.Backend.IR.Types , paramUnused , refImported , refLocal + , setAnn + ) +import Test.Hspec + ( Spec + , SpecWith + , describe + , expectationFailure + , it + , shouldBe + , shouldSatisfy ) -import Test.Hspec (Spec, SpecWith, describe, it, shouldBe) import Test.Hspec.Hedgehog (hedgehog, modifyMaxShrinks, modifyMaxSuccess) import Test.Hspec.Hedgehog.Extended (test) @@ -139,6 +152,62 @@ spec = describe "IR Optimizer" do application (abstraction (paramNamed x) (literalInt 7)) nonTrivial optimizedExpression original `shouldBe` literalInt 7 + -- The n-ary redex — one call binding every parameter of a literal + -- 'AbsN' (Note [n-ary abstraction]). Reduces only at exact arity; + -- each pair is decided by the same guard as the unary rule. + describe "n-ary beta reduction" do + let m = moduleNameFromString "M" + x = Name "x" + y = Name "y" + nonTrivial = application (refImported m (Name "g")) (literalInt 1) + + it "substitutes every trivial argument of a saturated call" do + let a = refImported m (Name "a") + b = refImported m (Name "b") + body = eq (refLocal x) (refLocal y) + original = + applicationN + (abstractionN (paramNamed x :| [paramNamed y]) body) + (a :| [b]) + optimizedExpression original `shouldBe` eq a b + + it "let-binds the non-trivial multiply-used argument only" do + let body = eq (refLocal y) (eq (refLocal x) (refLocal y)) + original = + applicationN + (abstractionN (paramNamed x :| [paramNamed y]) body) + (literalInt 1 :| [nonTrivial]) + optimizedExpression original + `shouldBe` let1 + y + nonTrivial + (eq (refLocal y) (eq (literalInt 1) (refLocal y))) + + it "drops the argument at a ParamUnused position" do + let original = + applicationN + (abstractionN (paramNamed x :| [paramUnused]) (refLocal x)) + (literalInt 1 :| [nonTrivial]) + optimizedExpression original `shouldBe` literalInt 1 + + it "does not reduce an under-applied n-ary lambda" do + -- Ill-formed input ('WellApplied'); the rule must decline rather + -- than pretend the call curries. + let original = + application + (abstractionN (paramNamed x :| [paramNamed y]) (refLocal x)) + (literalInt 1) + optimizedExpression original `shouldBe` original + + it "does not reduce a lambda with repeated parameter names" do + -- Non-GUC input: substituting left to right would steal the + -- occurrences belonging to the last same-named parameter. + let original = + applicationN + (abstractionN (paramNamed x :| [paramNamed x]) (refLocal x)) + (literalInt 1 :| [literalInt 2]) + optimizedExpression original `shouldBe` original + describe "folds record-literal projections" do let foo = PropName "foo" bar = PropName "bar" @@ -322,6 +391,126 @@ spec = describe "IR Optimizer" do annotateShow optimized fooKept === [QName mainModule (Name "foo")] + -- What a worker/wrapper split turns into is decided by the passes + -- downstream of the uncurrying pass — the post-uncurry optimize+dce + -- fixpoint drops dead wrappers and inlines use-once workers — so + -- these run the whole checked pipeline and assert the final shape. + describe "composes uncurrying with inlining and DCE (issue #24)" do + let mainModule = moduleNameFromString "Main" + extern = moduleNameFromString "Extern" + g = refImported extern (Name "g") + fName = QName mainModule (Name "f") + fRef = refImported mainModule (Name "f") + -- λa. λb. g a b — non-foldable, so every shape survives on + -- its own merit. + fDef = + abstraction (paramNamed (Name "a")) $ + abstraction (paramNamed (Name "b")) $ + application + (application g (refLocal (Name "a"))) + (refLocal (Name "b")) + saturated x y = + application (application fRef (literalInt x)) (literalInt y) + checked = either (fail . show) pure . optimizedUberModuleChecked + namesOf uber = + [ name + | Standalone (QName _ (Name name), _) ← + Linker.uberModuleBindings uber + ] + + it "drops the wrapper once every site calls the worker directly" do + -- Two saturated sites and no other use: the split sends both to + -- f$w, the wrapper loses its last reference, and the post-uncurry + -- fixpoint removes it. The worker (used twice) stays a shared + -- binding. + optimized ← + checked + Linker.UberModule + { uberModuleForeigns = [] + , uberModuleBindings = [Standalone (fName, fDef)] + , uberModuleExports = + [(Name "main1", saturated 1 2), (Name "main2", saturated 3 4)] + } + namesOf optimized `shouldBe` ["f$w"] + + it "leaves no residue for a used-once function" do + -- A single saturated site: the use-once inliner claims the whole + -- binding (before or after the split, either path must end the + -- same), and beta reduction pastes the body into the site. + optimized ← + checked + Linker.UberModule + { uberModuleForeigns = [] + , uberModuleBindings = [Standalone (fName, fDef)] + , uberModuleExports = [(Name "main", saturated 1 2)] + } + Linker.uberModuleBindings optimized `shouldBe` [] + Linker.uberModuleExports optimized + `shouldBe` [ + ( Name "main" + , application (application g (literalInt 1)) (literalInt 2) + ) + ] + + it "keeps an exported function curried when its saturated consumer dies" do + -- The only saturated site sits in a binding unreachable from the + -- exports: DCE removes it before the uncurry pass measures sites, + -- so the exported name must come out unsplit — alpha-equal to the + -- original curried definition, with no worker left anywhere. + optimized ← + checked + Linker.UberModule + { uberModuleForeigns = [] + , uberModuleBindings = + [ Standalone (fName, fDef) + , Standalone (QName mainModule (Name "dead"), saturated 1 2) + ] + , uberModuleExports = [(Name "main1", fRef), (Name "main2", fRef)] + } + filter ("$w" `Text.isSuffixOf`) (namesOf optimized) `shouldBe` [] + case [ e + | Standalone (q, e) ← Linker.uberModuleBindings optimized + , q == fName + ] of + [e] → e `shouldSatisfy` (`alphaEq` fDef) + es → expectationFailure ("expected exactly one f binding: " <> show es) + + it "lets @inline always claim the binding before the split" do + -- An Always-annotated standalone binding is pasted at every + -- occurrence by the first optimize+dce fixpoint, so the uncurry + -- pass never sees it: the pragma wins over the split. The checked + -- pipeline must stay clean through that interaction — the + -- saturated paste beta-reduces away, the partial one becomes a + -- manifest lambda, and neither the name nor a worker survives. + optimized ← + checked + Linker.UberModule + { uberModuleForeigns = [] + , uberModuleBindings = + [Standalone (fName, setAnn (Just Always) fDef)] + , uberModuleExports = + [ (Name "main1", saturated 1 2) + , (Name "main2", application fRef (literalInt 5)) + ] + } + namesOf optimized `shouldBe` [] + case Linker.uberModuleExports optimized of + [(Name "main1", e1), (Name "main2", e2)] → do + e1 + `shouldBe` application + (application g (literalInt 1)) + (literalInt 2) + e2 + `shouldSatisfy` ( `alphaEq` + abstraction + (paramNamed (Name "b")) + ( application + (application g (literalInt 5)) + (refLocal (Name "b")) + ) + ) + es → expectationFailure ("unexpected exports: " <> show es) + describe "keeps foreign module tables hoisted (issue #175)" do -- A foreign module's value table must stay a single shared binding: -- its export values (some of which are Lua table constructors with diff --git a/test/Language/PureScript/Backend/IR/Types/Spec.hs b/test/Language/PureScript/Backend/IR/Types/Spec.hs index 540f3bd0..db119880 100644 --- a/test/Language/PureScript/Backend/IR/Types/Spec.hs +++ b/test/Language/PureScript/Backend/IR/Types/Spec.hs @@ -17,6 +17,7 @@ import Language.PureScript.Backend.IR.Types , RewriteRule , WasRewritten (..) , abstraction + , abstractionN , alphaEq , application , applicationN @@ -87,6 +88,19 @@ spec = describe "Types" do lets (Standalone (noAnn, x, refLocal x) :| []) (literalInt 0) countFreeRef (Local x) e === 1 + test "countFreeRefs: every parameter of an n-ary lambda binds" do + let x = Name "x" + y = Name "y" + z = Name "z" + e = + abstractionN + (paramNamed x :| [paramUnused, paramNamed y]) + ( application + (application (refLocal x) (refLocal y)) + (refLocal z) + ) + countFreeRefs e === Map.fromList [(Local z, 1)] + describe "alphaEq" do let x = Name "x" y = Name "y" @@ -149,6 +163,30 @@ spec = describe "Types" do (applicationN f (refLocal x :| [refLocal y])) === True + -- A flat parameter list is one Lua function, not a lambda chain, so + -- alphaEq must compare arity and bind parameters positionally. + test "distinguishes an n-ary lambda from the curried chain" do + alphaEq + (abstractionN (paramNamed x :| [paramNamed y]) (refLocal x)) + (abstraction (paramNamed x) (abstraction (paramNamed y) (refLocal x))) + === False + + test "identifies n-ary lambdas differing only in binder names" do + let a = Name "a" + b = Name "b" + alphaEq + (abstractionN (paramNamed x :| [paramNamed y]) (refLocal y)) + (abstractionN (paramNamed a :| [paramNamed b]) (refLocal b)) + === True + + test "distinguishes n-ary lambdas bound to different parameters" do + let a = Name "a" + b = Name "b" + alphaEq + (abstractionN (paramNamed x :| [paramNamed y]) (refLocal y)) + (abstractionN (paramNamed a :| [paramNamed b]) (refLocal a)) + === False + -- 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/IR/Uncurry/Spec.hs b/test/Language/PureScript/Backend/IR/Uncurry/Spec.hs new file mode 100644 index 00000000..cb1ab0c0 --- /dev/null +++ b/test/Language/PureScript/Backend/IR/Uncurry/Spec.hs @@ -0,0 +1,444 @@ +module Language.PureScript.Backend.IR.Uncurry.Spec where + +import Data.Set qualified as Set +import Data.Text qualified as Text +import Hedgehog (Gen, annotateShow, forAll, (===)) +import Hedgehog.Gen qualified as Gen +import Hedgehog.Range qualified as Range +import Language.PureScript.Backend.IR.Inliner qualified as Inline +import Language.PureScript.Backend.IR.Linker (UberModule (..)) +import Language.PureScript.Backend.IR.Linter + ( Violation + , lintUniqueBinders + , lintWellApplied + , lintWellScoped + ) +import Language.PureScript.Backend.IR.Names + ( ModuleName + , Name (..) + , QName (..) + , moduleNameFromString + ) +import Language.PureScript.Backend.IR.Types + ( Exp + , Grouping (..) + , RawExp (..) + , WasRewritten (..) + , abstraction + , abstractionN + , application + , applicationN + , eq + , lets + , literalInt + , noAnn + , paramNamed + , paramUnused + , refImported + , refLocal + , setAnn + ) +import Language.PureScript.Backend.IR.Uncurry (uncurryWorkerWrapper) +import Test.Hspec (Spec, describe, it, shouldBe) +import Test.Hspec.Hedgehog.Extended (prop) + +spec ∷ Spec +spec = describe "IR Uncurry (worker/wrapper)" do + it "splits a saturated binding into worker and wrapper, rewriting the site" do + let m = + moduleOf + [Standalone (qn "f", def2)] + [(Name "main", saturatedCall)] + uncurryWorkerWrapper mempty m + `shouldBe` ( moduleOf + [ Standalone (qn "f$w", worker2) + , Standalone (qn "f", wrapper2) + ] + [(Name "main", applicationN fw (literalInt 1 :| [literalInt 2]))] + , Rewritten + ) + + it "leaves a binding with no saturated application untouched" do + let m = + moduleOf + [Standalone (qn "f", def2)] + [(Name "main", application f (literalInt 1))] + uncurryWorkerWrapper mempty m `shouldBe` (m, Unmodified) + + it "keeps partial applications going through the wrapper" do + let m = + moduleOf + [Standalone (qn "f", def2)] + [ (Name "main", saturatedCall) + , (Name "partial", application f (literalInt 1)) + ] + let (m', _) = uncurryWorkerWrapper mempty m + uberModuleExports m' + `shouldBe` [ (Name "main", applicationN fw (literalInt 1 :| [literalInt 2])) + , (Name "partial", application f (literalInt 1)) + ] + + it "rewrites the inner node of an over-application" do + let m = + moduleOf + [Standalone (qn "f", def2)] + [(Name "main", application saturatedCall (literalInt 3))] + let (m', _) = uncurryWorkerWrapper mempty m + uberModuleExports m' + `shouldBe` [ + ( Name "main" + , application + (applicationN fw (literalInt 1 :| [literalInt 2])) + (literalInt 3) + ) + ] + + it "uncurries a recursive-group member and its self-call" do + let body = + application + (application f (refLocal (Name "a"))) + (refLocal (Name "b")) + member = + abstraction + (paramNamed (Name "a")) + (abstraction (paramNamed (Name "b")) body) + m = + moduleOf + [RecursiveGroup ((qn "f", member) :| [])] + [(Name "main", saturatedCall)] + workerBody = + applicationN + fw + (refLocal (Name "a") :| [refLocal (Name "b")]) + worker = + abstractionN + (paramNamed (Name "a") :| [paramNamed (Name "b")]) + workerBody + uncurryWorkerWrapper mempty m + `shouldBe` ( moduleOf + [ RecursiveGroup + ((qn "f$w", worker) :| [(qn "f", wrapper2)]) + ] + [(Name "main", applicationN fw (literalInt 1 :| [literalInt 2]))] + , Rewritten + ) + + it "uncurries a local Let binding in place" do + let go = Name "go" + goDef = + abstraction + (paramNamed (Name "a")) + ( abstraction + (paramNamed (Name "b")) + (eq (refLocal (Name "a")) (refLocal (Name "b"))) + ) + site = + application + (application (refLocal go) (literalInt 1)) + (literalInt 2) + m = + moduleOf + [Standalone (qn "g", lets (Standalone (noAnn, go, goDef) :| []) site)] + [] + goWorker = + abstractionN + (paramNamed (Name "a") :| [paramNamed (Name "b")]) + (eq (refLocal (Name "a")) (refLocal (Name "b"))) + goWrapper = + abstraction + (paramNamed (Name "go$p1")) + ( abstraction + (paramNamed (Name "go$p2")) + ( applicationN + (refLocal (Name "go$w")) + (refLocal (Name "go$p1") :| [refLocal (Name "go$p2")]) + ) + ) + expected = + lets + ( Standalone (noAnn, Name "go$w", goWorker) + :| [Standalone (noAnn, go, goWrapper)] + ) + ( applicationN + (refLocal (Name "go$w")) + (literalInt 1 :| [literalInt 2]) + ) + uncurryWorkerWrapper mempty m + `shouldBe` (moduleOf [Standalone (qn "g", expected)] [], Rewritten) + + it "does not split an @inline never binding" do + let m = + moduleOf + [Standalone (qn "f", def2)] + [(Name "main", saturatedCall)] + uncurryWorkerWrapper (Set.singleton (qn "f")) m + `shouldBe` (m, Unmodified) + + it "keeps a trailing unused parameter unused in the worker" do + let def = + abstraction + (paramNamed (Name "x")) + (abstraction paramUnused (refLocal (Name "x"))) + m = + moduleOf + [Standalone (qn "f", def)] + [(Name "main", saturatedCall)] + worker = + abstractionN + (paramNamed (Name "x") :| [paramUnused]) + (refLocal (Name "x")) + let (m', _) = uncurryWorkerWrapper mempty m + uberModuleBindings m' + `shouldBe` [ Standalone (qn "f$w", worker) + , Standalone (qn "f", wrapper2) + ] + + it "names an interior unused parameter of the worker" do + -- ParamUnused must stay a trailing run (Note [n-ary abstraction]), + -- so an unused parameter followed by a named one becomes a fresh + -- never-referenced binder. + let def = + abstraction + paramUnused + (abstraction (paramNamed (Name "y")) (refLocal (Name "y"))) + m = + moduleOf + [Standalone (qn "f", def)] + [(Name "main", saturatedCall)] + worker = + abstractionN + (paramNamed (Name "f$u1") :| [paramNamed (Name "y")]) + (refLocal (Name "y")) + let (m', _) = uncurryWorkerWrapper mempty m + uberModuleBindings m' + `shouldBe` [ Standalone (qn "f$w", worker) + , Standalone (qn "f", wrapper2) + ] + + it "preserves the wrapper's root annotation" do + let m = + moduleOf + [Standalone (qn "f", setAnn (Just Inline.Always) def2)] + [(Name "main", saturatedCall)] + let (m', _) = uncurryWorkerWrapper mempty m + uberModuleBindings m' + `shouldBe` [ Standalone (qn "f$w", worker2) + , Standalone (qn "f", setAnn (Just Inline.Always) wrapper2) + ] + + it "scopes local candidates per top-level site" do + -- Two sites both bind a local `go`: a saturated site in one site + -- must not qualify the same-named binder of the other site. + let go = Name "go" + goDef = + abstraction + (paramNamed (Name "a")) + (abstraction (paramNamed (Name "b")) (refLocal (Name "a"))) + saturated = + application (application (refLocal go) (literalInt 1)) (literalInt 2) + partial = application (refLocal go) (literalInt 1) + siteWith = lets (Standalone (noAnn, go, goDef) :| []) + m = + moduleOf + [ Standalone (qn "g1", siteWith saturated) + , Standalone (qn "g2", siteWith partial) + ] + [] + let (m', _) = uncurryWorkerWrapper mempty m + exprOf name = + fromMaybe (error "binding missing") $ + listToMaybe + [e | Standalone (q, e) ← uberModuleBindings m', q == qn name] + -- g1's go is split… + case exprOf "g1" of + Let _ binds _ → length (toList binds) `shouldBe` 2 + _ → error "g1 lost its Let" + -- …g2's same-named go is not. + exprOf "g2" `shouldBe` siteWith partial + + -- The pass's module-level contract, over generated modules (see the + -- generators below): whatever mix of candidates, vetoes and call + -- shapes the module holds, the output lints clean, a second run is a + -- no-op, and the 'WasRewritten' signal is precise. + describe "contract properties (generated modules)" do + prop 200 "preserves the GUC and WellApplied invariants" do + (m, veto) ← forAll genModuleAndVeto + lintAll m === [] -- generator sanity: the contract starts clean + let (m', _) = uncurryWorkerWrapper veto m + annotateShow m' + lintAll m' === [] + + prop 200 "is idempotent" do + (m, veto) ← forAll genModuleAndVeto + let (once, _) = uncurryWorkerWrapper veto m + uncurryWorkerWrapper veto once === (once, Unmodified) + + prop 200 "signals Rewritten exactly when the module changed" do + (m, veto) ← forAll genModuleAndVeto + let (m', rewritten) = uncurryWorkerWrapper veto m + annotateShow m' + (rewritten == Unmodified) === (m' == m) + +-------------------------------------------------------------------------------- +-- Fixture --------------------------------------------------------------------- + +mn ∷ ModuleName +mn = moduleNameFromString "M" + +qn ∷ Text → QName +qn = QName mn . Name + +f ∷ Exp +f = refImported mn (Name "f") + +fw ∷ Exp +fw = refImported mn (Name "f$w") + +-- | @λa. λb. a == b@ — the curried two-parameter definition. +def2 ∷ Exp +def2 = + abstraction + (paramNamed (Name "a")) + ( abstraction + (paramNamed (Name "b")) + (eq (refLocal (Name "a")) (refLocal (Name "b"))) + ) + +-- | The worker 'def2' splits into. +worker2 ∷ Exp +worker2 = + abstractionN + (paramNamed (Name "a") :| [paramNamed (Name "b")]) + (eq (refLocal (Name "a")) (refLocal (Name "b"))) + +-- | The wrapper @f@ becomes: @λf$p1. λf$p2. f$w(f$p1, f$p2)@. +wrapper2 ∷ Exp +wrapper2 = + abstraction + (paramNamed (Name "f$p1")) + ( abstraction + (paramNamed (Name "f$p2")) + ( applicationN + fw + (refLocal (Name "f$p1") :| [refLocal (Name "f$p2")]) + ) + ) + +-- | @f(1)(2)@ — a saturated curried call of the arity-2 candidate. +saturatedCall ∷ Exp +saturatedCall = + application (application f (literalInt 1)) (literalInt 2) + +moduleOf ∷ [Grouping (QName, Exp)] → [(Name, Exp)] → UberModule +moduleOf bindings exports = + UberModule + { uberModuleBindings = bindings + , uberModuleForeigns = [] + , uberModuleExports = exports + } + +-------------------------------------------------------------------------------- +-- Generators ------------------------------------------------------------------ + +-- | All three invariant lints the pass's contract set requires. +lintAll ∷ UberModule → [Violation] +lintAll m = lintWellScoped m <> lintUniqueBinders m <> lintWellApplied m + +{- | A structurally valid module: 1–3 candidate functions of arity 1–3 +(arity 1 is the negative case — below the split threshold) under +indexed names, so binders are unique per top-level site (GUC by +construction), and 1–3 consumer expressions mixing saturated, partial +and over-applied call shapes. The first consumer is the @main@ export — +sites in exports are counted too — the rest are bindings. Returned +together with a random @inline never@ veto subset of the candidates. +-} +genModuleAndVeto ∷ Gen (UberModule, Set QName) +genModuleAndVeto = do + arities ← Gen.nonEmpty (Range.linear 1 3) (Gen.int (Range.linear 1 3)) + let candidates = zip [1 ∷ Int ..] (toList arities) + candidateBindings ← forM candidates \(i, arity) → + Standalone . (qn (fnName i),) <$> genCandidateDef i arity + consumerCount ← Gen.int (Range.linear 1 3) + consumerExprs ← forM [1 .. consumerCount] (genConsumer candidates) + veto ← + Set.fromList . map (qn . fnName . fst) <$> Gen.subsequence candidates + let consumerBindings = + [ Standalone (qn ("use" <> Text.pack (show i)), e) + | (i, e) ← zip [2 ∷ Int ..] (drop 1 consumerExprs) + ] + exports = [(Name "main", e) | e ← take 1 consumerExprs] + pure (moduleOf (candidateBindings <> consumerBindings) exports, veto) + +fnName ∷ Int → Text +fnName i = "fn" <> Text.pack (show i) + +-- | @λp\x1. … λp\xk. body@ — a curried candidate definition. +genCandidateDef ∷ Int → Int → Gen Exp +genCandidateDef i arity = do + let params = + [ Name ("p" <> Text.pack (show i) <> "x" <> Text.pack (show j)) + | j ← [1 .. arity] + ] + body ← genBody params + pure (foldr (abstraction . paramNamed) body params) + +-- | A small expression over the candidate's own parameters. +genBody ∷ [Name] → Gen Exp +genBody params = + Gen.choice + [ ref + , eq <$> ref <*> ref + , eq (literalInt 0) <$> ref + ] + where + ref = refLocal <$> Gen.element params + +{- | One consumer: 1–3 call shapes of random candidates folded into one +expression, optionally wrapped in a local 'Let' candidate site. +-} +genConsumer ∷ [(Int, Int)] → Int → Gen Exp +genConsumer candidates i = do + calls ← + Gen.nonEmpty (Range.linear 1 3) (Gen.element candidates >>= genCallShape) + let combined = foldl' eq (head calls) (tail calls) + withLocal ← Gen.bool + if withLocal then genLocalSite i combined else pure combined + +{- | A unary application spine of a candidate: saturated (exactly the +arity), partial (anything below, a bare reference included), or +over-applied (one argument past the arity). +-} +genCallShape ∷ (Int, Int) → Gen Exp +genCallShape (i, arity) = do + argCount ← + Gen.choice + [ pure arity + , Gen.int (Range.linear 0 (arity - 1)) + , pure (arity + 1) + ] + pure $ + foldl' + application + (refImported mn (Name (fnName i))) + [literalInt (fromIntegral j) | j ← [1 .. argCount]] + +{- | Wrap a consumer in a local arity-2 candidate with one site of its +own — saturated, partial, or a bare reference. +-} +genLocalSite ∷ Int → Exp → Gen Exp +genLocalSite i body = do + let suffix = Text.pack (show i) + go = Name ("go" <> suffix) + a = Name ("a" <> suffix) + b = Name ("b" <> suffix) + goDef = + abstraction + (paramNamed a) + (abstraction (paramNamed b) (eq (refLocal a) (refLocal b))) + argCount ← Gen.int (Range.linear 0 2) + let call = + foldl' + application + (refLocal go) + [literalInt (fromIntegral j) | j ← [1 .. argCount]] + pure (lets (Standalone (noAnn, go, goDef) :| []) (eq call body)) diff --git a/test/Language/PureScript/Backend/Lua/Spec.hs b/test/Language/PureScript/Backend/Lua/Spec.hs index 2fd0fc3b..a96925be 100644 --- a/test/Language/PureScript/Backend/Lua/Spec.hs +++ b/test/Language/PureScript/Backend/Lua/Spec.hs @@ -39,6 +39,25 @@ spec = describe "Lua.fromUberModule" do rendered `shouldSatisfy` Text.isInfixOf "f(a, b, c)" rendered `shouldSatisfy` (not . Text.isInfixOf "f(a)(b)(c)") + it "emits one n-ary Lua function for a multi-parameter AbsN" do + rendered ← compileExportedExpr naryAbs + -- One function binding both parameters, not a curried chain. + rendered `shouldSatisfy` Text.isInfixOf "function(a, b)" + rendered `shouldSatisfy` (not . Text.isInfixOf "function(a)") + + it "drops the trailing run of unused AbsN parameters" do + rendered ← compileExportedExpr naryAbsTrailingUnused + rendered `shouldSatisfy` Text.isInfixOf "function(a)" + rendered `shouldSatisfy` (not . Text.isInfixOf "function(a,") + + it "elides the trailing run of Prim.undefined arguments" do + rendered ← compileExportedExpr (naryCallOn [ref "a", primUndefined]) + rendered `shouldSatisfy` Text.isInfixOf "f(a)" + + it "lowers a non-trailing Prim.undefined argument to nil" do + rendered ← compileExportedExpr (naryCallOn [primUndefined, ref "b"]) + rendered `shouldSatisfy` Text.isInfixOf "f(nil, b)" + compileExportedExpr ∷ IR.Exp → IO Text compileExportedExpr expr = do foreignPath ← Tagged <$> getCurrentDir @@ -99,13 +118,39 @@ absWithIfBody = -- @f(a, b, c)@: one call, three arguments, head is a plain reference. naryCall ∷ IR.Exp -naryCall = - IR.AppN +naryCall = naryCallOn [ref "a", ref "b", ref "c"] + +naryCallOn ∷ [IR.Exp] → IR.Exp +naryCallOn = \case + arg : args → IR.AppN IR.noAnn (ref "f") (arg :| args) + [] → error "naryCallOn: needs at least one argument" + +ref ∷ Text → IR.Exp +ref = IR.Ref IR.noAnn . IR.Local . IR.Name + +primUndefined ∷ IR.Exp +primUndefined = + IR.Ref IR.noAnn (IR.Imported (IR.ModuleName "Prim") (IR.Name "undefined")) + +-- @function(a, b) return a end@: one function, two parameters. +naryAbs ∷ IR.Exp +naryAbs = + IR.AbsN + IR.noAnn + ( IR.ParamNamed IR.noAnn (IR.Name "a") + :| [IR.ParamNamed IR.noAnn (IR.Name "b")] + ) + (ref "a") + +-- @function(a) return a end@: the trailing unused parameters are dropped. +naryAbsTrailingUnused ∷ IR.Exp +naryAbsTrailingUnused = + IR.AbsN IR.noAnn - (localRef "f") - (localRef "a" :| [localRef "b", localRef "c"]) - where - localRef = IR.Ref IR.noAnn . IR.Local . IR.Name + ( IR.ParamNamed IR.noAnn (IR.Name "a") + :| [IR.ParamUnused IR.noAnn, IR.ParamUnused IR.noAnn] + ) + (ref "a") ctorExpr ∷ IR.AlgebraicType → IR.Exp ctorExpr algebraicTy = diff --git a/test/Main.hs b/test/Main.hs index 70dfd5b3..06e2c8a2 100644 --- a/test/Main.hs +++ b/test/Main.hs @@ -10,6 +10,7 @@ import Language.PureScript.Backend.IR.Optimizer.Spec qualified as IROptimizer import Language.PureScript.Backend.IR.Pass.Spec qualified as IRPass import Language.PureScript.Backend.IR.Spec qualified as IR import Language.PureScript.Backend.IR.Types.Spec qualified as Types +import Language.PureScript.Backend.IR.Uncurry.Spec qualified as IRUncurry import Language.PureScript.Backend.IR.Uniquify.Spec qualified as IRUniquify import Language.PureScript.Backend.Lua.Differential.Spec qualified as LuaDifferential import Language.PureScript.Backend.Lua.Golden.Spec qualified as Golden @@ -36,6 +37,7 @@ main = hspec do IRLinter.spec IROptimizer.spec IRPass.spec + IRUncurry.spec IRUniquify.spec LuaOptimizer.spec Lua.spec diff --git a/test/ps/output/Golden.Annotations.M1/golden.ir b/test/ps/output/Golden.Annotations.M1/golden.ir index 794bf347..d848db85 100644 --- a/test/ps/output/Golden.Annotations.M1/golden.ir +++ b/test/ps/output/Golden.Annotations.M1/golden.ir @@ -9,8 +9,8 @@ UberModule ) ], uberModuleForeigns = [], uberModuleExports = [ - ( Name "inlineMe", Abs ( Just Always ) - ( ParamNamed Nothing ( Name "v$0" ) ) + ( Name "inlineMe", AbsN ( Just Always ) + ( ParamNamed Nothing ( Name "v$0" ) :| [] ) ( IfThenElse Nothing ( Eq Nothing ( LiteralInt Nothing 1 ) ( Ref Nothing ( Local ( Name "v$0" ) ) ) ) ( LiteralInt Nothing 2 ) diff --git a/test/ps/output/Golden.Annotations.M2/golden.ir b/test/ps/output/Golden.Annotations.M2/golden.ir index 68e45fd3..88d6fc35 100644 --- a/test/ps/output/Golden.Annotations.M2/golden.ir +++ b/test/ps/output/Golden.Annotations.M2/golden.ir @@ -9,8 +9,8 @@ UberModule ) ], uberModuleForeigns = [], uberModuleExports = [ - ( Name "inlineIntoMe", Abs Nothing - ( ParamNamed Nothing ( Name "i$0" ) ) + ( Name "inlineIntoMe", AbsN Nothing + ( ParamNamed Nothing ( Name "i$0" ) :| [] ) ( Let Nothing ( Standalone ( Nothing, Name "v$2", Let Nothing diff --git a/test/ps/output/Golden.ArrayOfUnits.Test/golden.ir b/test/ps/output/Golden.ArrayOfUnits.Test/golden.ir index b6480c7d..41bff2b9 100644 --- a/test/ps/output/Golden.ArrayOfUnits.Test/golden.ir +++ b/test/ps/output/Golden.ArrayOfUnits.Test/golden.ir @@ -54,24 +54,24 @@ UberModule ] ), Standalone ( QName - { qnameModuleName = ModuleName "Control.Apply", qnameName = Name "apply" }, Abs Nothing - ( ParamNamed Nothing ( Name "dict" ) ) + { qnameModuleName = ModuleName "Control.Apply", qnameName = Name "apply" }, AbsN Nothing + ( ParamNamed Nothing ( Name "dict" ) :| [] ) ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "dict" ) ) ) ( PropName "apply" ) ) ), Standalone ( QName { qnameModuleName = ModuleName "Control.Applicative", qnameName = Name "pure" - }, Abs Nothing - ( ParamNamed Nothing ( Name "dict" ) ) + }, AbsN Nothing + ( ParamNamed Nothing ( Name "dict" ) :| [] ) ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "dict" ) ) ) ( PropName "pure" ) ) ), Standalone ( QName - { qnameModuleName = ModuleName "Control.Bind", qnameName = Name "bind" }, Abs Nothing - ( ParamNamed Nothing ( Name "dict" ) ) + { qnameModuleName = ModuleName "Control.Bind", qnameName = Name "bind" }, AbsN Nothing + ( ParamNamed Nothing ( Name "dict" ) :| [] ) ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "dict" ) ) ) ( PropName "bind" ) ) ), Standalone ( QName - { qnameModuleName = ModuleName "Data.Foldable", qnameName = Name "foldr" }, Abs Nothing - ( ParamNamed Nothing ( Name "dict" ) ) + { qnameModuleName = ModuleName "Data.Foldable", qnameName = Name "foldr" }, AbsN Nothing + ( ParamNamed Nothing ( Name "dict" ) :| [] ) ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "dict" ) ) ) ( PropName "foldr" ) ) ), RecursiveGroup ( @@ -87,10 +87,10 @@ UberModule ( Ref Nothing ( Imported ( ModuleName "Data.Foldable" ) ( Name "foreign" ) ) ) ( PropName "foldlArray" ) ), - ( PropName "foldMap", Abs Nothing - ( ParamNamed Nothing ( Name "dictMonoid" ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "f$884" ) ) + ( PropName "foldMap", AbsN Nothing + ( ParamNamed Nothing ( Name "dictMonoid" ) :| [] ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "f$884" ) :| [] ) ( AppN Nothing ( AppN Nothing ( AppN Nothing @@ -99,10 +99,10 @@ UberModule ( Imported ( ModuleName "Data.Foldable" ) ( Name "foldableArray" ) ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x$885" ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "acc$886" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x$885" ) :| [] ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "acc$886" ) :| [] ) ( AppN Nothing ( AppN Nothing ( ObjectProp Nothing @@ -142,10 +142,12 @@ UberModule { qnameModuleName = ModuleName "Effect", qnameName = Name "monadEffect" }, LiteralObject Nothing [ - ( PropName "Applicative0", Abs Nothing ( ParamUnused Nothing ) + ( PropName "Applicative0", AbsN Nothing + ( ParamUnused Nothing :| [] ) ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "applicativeEffect" ) ) ) ), - ( PropName "Bind1", Abs Nothing ( ParamUnused Nothing ) + ( PropName "Bind1", AbsN Nothing + ( ParamUnused Nothing :| [] ) ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "bindEffect" ) ) ) ) ] @@ -159,7 +161,8 @@ UberModule ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "foreign" ) ) ) ( PropName "bindE" ) ), - ( PropName "Apply0", Abs Nothing ( ParamUnused Nothing ) + ( PropName "Apply0", AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "Lazy_applyEffect" ) ) ) ( LiteralInt Nothing 0 :| [] ) @@ -175,7 +178,8 @@ UberModule ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "foreign" ) ) ) ( PropName "pureE" ) ), - ( PropName "Apply0", Abs Nothing ( ParamUnused Nothing ) + ( PropName "Apply0", AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "Lazy_applyEffect" ) ) ) ( LiteralInt Nothing 0 :| [] ) @@ -190,13 +194,14 @@ UberModule ( Ref Nothing ( Local ( Name "PSLUA_runtime_lazy" ) ) ) ( LiteralString Nothing "functorEffect" :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( LiteralObject Nothing [ - ( PropName "map", Abs Nothing - ( ParamNamed Nothing ( Name "f$707" ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "a$708" ) ) + ( PropName "map", AbsN Nothing + ( ParamNamed Nothing ( Name "f$707" ) :| [] ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "a$708" ) :| [] ) ( AppN Nothing ( AppN Nothing ( AppN Nothing @@ -245,7 +250,8 @@ UberModule ( Ref Nothing ( Local ( Name "PSLUA_runtime_lazy" ) ) ) ( LiteralString Nothing "applyEffect" :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( LiteralObject Nothing [ ( PropName "apply", Let Nothing @@ -265,24 +271,24 @@ UberModule ) ) :| [] ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "f$689" ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "a$690" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "f$689" ) :| [] ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "a$690" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing ( Local ( Name "bind$687" ) ) ) ( Ref Nothing ( Local ( Name "f$689" ) ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "f'$691" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "f'$691" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing ( Local ( Name "bind$687" ) ) ) ( Ref Nothing ( Local ( Name "a$690" ) ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "a'$692" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "a'$692" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -321,7 +327,8 @@ UberModule ) ) ), - ( PropName "Functor0", Abs Nothing ( ParamUnused Nothing ) + ( PropName "Functor0", AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "Lazy_functorEffect" ) ) @@ -336,22 +343,20 @@ UberModule ] ), Standalone ( QName - { qnameModuleName = ModuleName "Effect.Console", qnameName = Name "logShow" }, Abs Nothing - ( ParamNamed Nothing ( Name "dictShow" ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "a" ) ) + { qnameModuleName = ModuleName "Effect.Console", qnameName = Name "logShow$w" + }, AbsN Nothing + ( ParamNamed Nothing ( Name "dictShow" ) :| [ ParamNamed Nothing ( Name "a" ) ] ) + ( AppN Nothing + ( ObjectProp ( Just Always ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) + ( PropName "log" ) + ) ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) - ( PropName "log" ) - ) - ( AppN Nothing - ( ObjectProp Nothing - ( Ref Nothing ( Local ( Name "dictShow" ) ) ) - ( PropName "show" ) - ) - ( Ref Nothing ( Local ( Name "a" ) ) :| [] ) :| [] + ( ObjectProp Nothing + ( Ref Nothing ( Local ( Name "dictShow" ) ) ) + ( PropName "show" ) ) + ( Ref Nothing ( Local ( Name "a" ) ) :| [] ) :| [] ) ) ) @@ -370,7 +375,8 @@ UberModule ] ) :| [] ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( Let Nothing ( Standalone ( Nothing, Name "_", AppN Nothing @@ -385,8 +391,8 @@ UberModule ( Imported ( ModuleName "Data.Foldable" ) ( Name "foldableArray" ) ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x$907" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x$907" ) :| [] ) ( AppN Nothing ( Let Nothing ( Standalone @@ -405,10 +411,10 @@ UberModule ) ) :| [] ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "a$893" ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "b$894" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "a$893" ) :| [] ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "b$894" ) :| [] ) ( AppN Nothing ( AppN Nothing ( AppN Nothing @@ -434,9 +440,10 @@ UberModule ) ( PropName "map" ) ) - ( Abs Nothing ( ParamUnused Nothing ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x$901" ) ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x$901" ) :| [] ) ( Ref Nothing ( Local ( Name "x$901" ) ) ) ) :| [] ) @@ -450,19 +457,18 @@ UberModule ) ) ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Effect.Console" ) ( Name "logShow" ) ) - ) - ( LiteralObject Nothing - [ - ( PropName "show", Abs Nothing ( ParamUnused Nothing ) - ( LiteralString Nothing "unit" ) - ) - ] :| [] - ) + ( Ref Nothing + ( Imported ( ModuleName "Effect.Console" ) ( Name "logShow$w" ) ) ) - ( Ref Nothing ( Local ( Name "x$907" ) ) :| [] ) :| [] + ( LiteralObject Nothing + [ + ( PropName "show", AbsN Nothing + ( ParamUnused Nothing :| [] ) + ( LiteralString Nothing "unit" ) + ) + ] :| + [ Ref Nothing ( Local ( Name "x$907" ) ) ] + ) :| [] ) ) :| [] ) @@ -489,57 +495,62 @@ UberModule ) ( AppN Nothing ( AppN Nothing - ( AppN Nothing - ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "logShow" ) ) ) - ( LiteralObject Nothing - [ - ( PropName "show", ObjectProp ( Just Always ) - ( Ref Nothing ( Imported ( ModuleName "Data.Show" ) ( Name "foreign" ) ) ) - ( PropName "showIntImpl" ) - ) - ] :| [] - ) - ) - ( AppN Nothing - ( AppN Nothing + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "logShow$w" ) ) ) + ( LiteralObject Nothing + [ + ( PropName "show", ObjectProp ( Just Always ) + ( Ref Nothing ( Imported ( ModuleName "Data.Show" ) ( Name "foreign" ) ) ) + ( PropName "showIntImpl" ) + ) + ] :| + [ AppN Nothing ( AppN Nothing - ( ObjectProp Nothing - ( Ref Nothing - ( Imported ( ModuleName "Data.Foldable" ) ( Name "foldableArray" ) ) + ( AppN Nothing + ( ObjectProp Nothing + ( Ref Nothing + ( Imported ( ModuleName "Data.Foldable" ) ( Name "foldableArray" ) ) + ) + ( PropName "foldl" ) ) - ( PropName "foldl" ) - ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "c$372$881" ) ) - ( Abs Nothing ( ParamUnused Nothing ) - ( AppN Nothing + ( AbsN Nothing + ( ParamNamed Nothing ( Name "c$372$881" ) :| [] ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing - ( ObjectProp Nothing - ( Ref Nothing - ( Imported ( ModuleName "Data.Semiring" ) ( Name "semiringInt" ) ) + ( AppN Nothing + ( ObjectProp Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "semiringInt" ) + ) + ) + ( PropName "add" ) ) - ( PropName "add" ) - ) - ( ObjectProp Nothing - ( Ref Nothing - ( Imported ( ModuleName "Data.Semiring" ) ( Name "semiringInt" ) ) + ( ObjectProp Nothing + ( 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" ) ) + ( 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" ) ) :| [] ) diff --git a/test/ps/output/Golden.ArrayOfUnits.Test/golden.lua b/test/ps/output/Golden.ArrayOfUnits.Test/golden.lua index 4a7d7c5e..bd2b6f14 100644 --- a/test/ps/output/Golden.ArrayOfUnits.Test/golden.lua +++ b/test/ps/output/Golden.ArrayOfUnits.Test/golden.lua @@ -115,8 +115,8 @@ M.Effect_Lazy_applyEffect = PSLUA_runtime_lazy("applyEffect")(function() Functor0 = function() return M.Effect_Lazy_functorEffect(0) end } end) -M.Effect_Console_logShow = function(dictShow) - return function(a) return M.Effect_Console_foreign.log(dictShow.show(a)) end +M.Effect_Console_logShow_S_w = function(dictShow, a) + return M.Effect_Console_foreign.log(dictShow.show(a)) end return (function() local arr_S_0 = { @@ -135,13 +135,13 @@ return (function() end)(a_S_893))(b_S_894) end end - end)()(M.Effect_Console_logShow({ + end)()(M.Effect_Console_logShow_S_w({ show = function() return "unit" end - })(x_S_907)) + }, x_S_907)) end)(M.Control_Applicative_pure(M.Effect_applicativeEffect)(M.Data_Unit_foreign.unit))(arr_S_0)() - return M.Effect_Console_logShow({ + return M.Effect_Console_logShow_S_w({ show = M.Data_Show_foreign.showIntImpl - })(M.Data_Foldable_foldableArray.foldl(function(c_S_372_S_881) + }, M.Data_Foldable_foldableArray.foldl(function(c_S_372_S_881) return function() return M.Data_Semiring_semiringInt.add(M.Data_Semiring_semiringInt.one)(c_S_372_S_881) end diff --git a/test/ps/output/Golden.ArrayPatternMatch.Test/golden.ir b/test/ps/output/Golden.ArrayPatternMatch.Test/golden.ir index 3139dad8..e2d60e3a 100644 --- a/test/ps/output/Golden.ArrayPatternMatch.Test/golden.ir +++ b/test/ps/output/Golden.ArrayPatternMatch.Test/golden.ir @@ -55,20 +55,21 @@ UberModule ( Ref Nothing ( Imported ( ModuleName "Data.Ring" ) ( Name "foreign" ) ) ) ( PropName "intSub" ) ), - ( PropName "Semiring0", Abs Nothing ( ParamUnused Nothing ) + ( PropName "Semiring0", AbsN Nothing + ( ParamUnused Nothing :| [] ) ( Ref Nothing ( Imported ( ModuleName "Data.Semiring" ) ( Name "semiringInt" ) ) ) ) ] ), Standalone ( QName { qnameModuleName = ModuleName "Control.Applicative", qnameName = Name "pure" - }, Abs Nothing - ( ParamNamed Nothing ( Name "dict" ) ) + }, AbsN Nothing + ( ParamNamed Nothing ( Name "dict" ) :| [] ) ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "dict" ) ) ) ( PropName "pure" ) ) ), Standalone ( QName - { qnameModuleName = ModuleName "Control.Bind", qnameName = Name "bind" }, Abs Nothing - ( ParamNamed Nothing ( Name "dict" ) ) + { qnameModuleName = ModuleName "Control.Bind", qnameName = Name "bind" }, AbsN Nothing + ( ParamNamed Nothing ( Name "dict" ) :| [] ) ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "dict" ) ) ) ( PropName "bind" ) ) ), RecursiveGroup ( @@ -76,10 +77,12 @@ UberModule { qnameModuleName = ModuleName "Effect", qnameName = Name "monadEffect" }, LiteralObject Nothing [ - ( PropName "Applicative0", Abs Nothing ( ParamUnused Nothing ) + ( PropName "Applicative0", AbsN Nothing + ( ParamUnused Nothing :| [] ) ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "applicativeEffect" ) ) ) ), - ( PropName "Bind1", Abs Nothing ( ParamUnused Nothing ) + ( PropName "Bind1", AbsN Nothing + ( ParamUnused Nothing :| [] ) ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "bindEffect" ) ) ) ) ] @@ -93,7 +96,8 @@ UberModule ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "foreign" ) ) ) ( PropName "bindE" ) ), - ( PropName "Apply0", Abs Nothing ( ParamUnused Nothing ) + ( PropName "Apply0", AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "Lazy_applyEffect" ) ) ) ( LiteralInt Nothing 0 :| [] ) @@ -109,7 +113,8 @@ UberModule ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "foreign" ) ) ) ( PropName "pureE" ) ), - ( PropName "Apply0", Abs Nothing ( ParamUnused Nothing ) + ( PropName "Apply0", AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "Lazy_applyEffect" ) ) ) ( LiteralInt Nothing 0 :| [] ) @@ -124,13 +129,14 @@ UberModule ( Ref Nothing ( Local ( Name "PSLUA_runtime_lazy" ) ) ) ( LiteralString Nothing "functorEffect" :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( LiteralObject Nothing [ - ( PropName "map", Abs Nothing - ( ParamNamed Nothing ( Name "f$28" ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "a$29" ) ) + ( PropName "map", AbsN Nothing + ( ParamNamed Nothing ( Name "f$28" ) :| [] ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "a$29" ) :| [] ) ( AppN Nothing ( AppN Nothing ( ObjectProp Nothing @@ -177,7 +183,8 @@ UberModule ( Ref Nothing ( Local ( Name "PSLUA_runtime_lazy" ) ) ) ( LiteralString Nothing "applyEffect" :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( LiteralObject Nothing [ ( PropName "apply", Let Nothing @@ -197,24 +204,24 @@ UberModule ) ) :| [] ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "f$9" ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "a$10" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "f$9" ) :| [] ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "a$10" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing ( Local ( Name "bind$7" ) ) ) ( Ref Nothing ( Local ( Name "f$9" ) ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "f'$11" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "f'$11" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing ( Local ( Name "bind$7" ) ) ) ( Ref Nothing ( Local ( Name "a$10" ) ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "a'$12" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "a'$12" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -253,7 +260,8 @@ UberModule ) ) ), - ( PropName "Functor0", Abs Nothing ( ParamUnused Nothing ) + ( PropName "Functor0", AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "Lazy_functorEffect" ) ) @@ -269,8 +277,8 @@ UberModule ), Standalone ( QName { qnameModuleName = ModuleName "Golden.ArrayPatternMatch.Test", qnameName = Name "negate" - }, Abs Nothing - ( ParamNamed Nothing ( Name "a$86" ) ) + }, AbsN Nothing + ( ParamNamed Nothing ( Name "a$86" ) :| [] ) ( AppN Nothing ( AppN Nothing ( ObjectProp Nothing @@ -299,8 +307,8 @@ UberModule ), Standalone ( QName { qnameModuleName = ModuleName "Golden.ArrayPatternMatch.Test", qnameName = Name "logShow" - }, Abs Nothing - ( ParamNamed Nothing ( Name "a$2" ) ) + }, AbsN Nothing + ( ParamNamed Nothing ( Name "a$2" ) :| [] ) ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) @@ -317,8 +325,8 @@ UberModule ), Standalone ( QName { qnameModuleName = ModuleName "Golden.ArrayPatternMatch.Test", qnameName = Name "lastOfThree" - }, Abs Nothing - ( ParamNamed Nothing ( Name "v" ) ) + }, AbsN Nothing + ( ParamNamed Nothing ( Name "v" ) :| [] ) ( IfThenElse Nothing ( Eq Nothing ( LiteralInt Nothing 3 ) @@ -335,8 +343,8 @@ UberModule ), Standalone ( QName { qnameModuleName = ModuleName "Golden.ArrayPatternMatch.Test", qnameName = Name "firstTwo" - }, Abs Nothing - ( ParamNamed Nothing ( Name "v" ) ) + }, AbsN Nothing + ( ParamNamed Nothing ( Name "v" ) :| [] ) ( IfThenElse Nothing ( Eq Nothing ( LiteralInt Nothing 2 ) @@ -368,7 +376,8 @@ UberModule ( Name "lastOfThree", Ref Nothing ( Imported ( ModuleName "Golden.ArrayPatternMatch.Test" ) ( Name "lastOfThree" ) ) ), - ( Name "main", Abs Nothing ( ParamUnused Nothing ) + ( Name "main", AbsN Nothing + ( ParamUnused Nothing :| [] ) ( Let Nothing ( Standalone ( Nothing, Name "_", AppN Nothing diff --git a/test/ps/output/Golden.Beta.Test/golden.ir b/test/ps/output/Golden.Beta.Test/golden.ir index f76af71d..7df415d8 100644 --- a/test/ps/output/Golden.Beta.Test/golden.ir +++ b/test/ps/output/Golden.Beta.Test/golden.ir @@ -1,8 +1,8 @@ UberModule { uberModuleBindings = [], uberModuleForeigns = [], uberModuleExports = [ - ( Name "g", Abs Nothing - ( ParamNamed Nothing ( Name "x$0" ) ) + ( Name "g", AbsN Nothing + ( ParamNamed Nothing ( Name "x$0" ) :| [] ) ( IfThenElse Nothing ( Eq Nothing ( LiteralInt Nothing 42 ) ( Ref Nothing ( Local ( Name "x$0" ) ) ) ) ( LiteralInt Nothing 42 ) diff --git a/test/ps/output/Golden.BugListGenericEq.Test/golden.ir b/test/ps/output/Golden.BugListGenericEq.Test/golden.ir index 8403346e..c03b2227 100644 --- a/test/ps/output/Golden.BugListGenericEq.Test/golden.ir +++ b/test/ps/output/Golden.BugListGenericEq.Test/golden.ir @@ -45,10 +45,10 @@ UberModule [ ( PropName "ff", LiteralBool Nothing False ), ( PropName "tt", LiteralBool Nothing True ), - ( PropName "implies", Abs Nothing - ( ParamNamed Nothing ( Name "a" ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "b" ) ) + ( PropName "implies", AbsN Nothing + ( ParamNamed Nothing ( Name "a" ) :| [] ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "b" ) :| [] ) ( AppN Nothing ( AppN Nothing ( ObjectProp Nothing @@ -93,138 +93,136 @@ UberModule ) :| [] ), Standalone ( QName - { qnameModuleName = ModuleName "Data.Eq", qnameName = Name "eqRecord" }, Abs Nothing - ( ParamNamed Nothing ( Name "dict" ) ) + { qnameModuleName = ModuleName "Data.Eq", qnameName = Name "eqRecord" }, AbsN Nothing + ( ParamNamed Nothing ( Name "dict" ) :| [] ) ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "dict" ) ) ) ( PropName "eqRecord" ) ) ), Standalone ( QName - { qnameModuleName = ModuleName "Data.Eq", qnameName = Name "eq" }, Abs Nothing - ( ParamNamed Nothing ( Name "dict" ) ) + { qnameModuleName = ModuleName "Data.Eq", qnameName = Name "eq" }, AbsN Nothing + ( ParamNamed Nothing ( Name "dict" ) :| [] ) ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "dict" ) ) ) ( PropName "eq" ) ) ), Standalone ( QName - { qnameModuleName = ModuleName "Data.Eq", qnameName = Name "eqRowCons" }, Abs Nothing - ( ParamNamed Nothing ( Name "dictEqRecord" ) ) - ( Abs Nothing ( ParamUnused Nothing ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "dictIsSymbol" ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "dictEq" ) ) - ( LiteralObject Nothing - [ - ( PropName "eqRecord", Abs Nothing ( ParamUnused Nothing ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "ra" ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "rb" ) ) - ( Let Nothing - ( Standalone - ( Nothing, Name "key", AppN Nothing - ( ObjectProp Nothing - ( Ref Nothing ( Local ( Name "dictIsSymbol" ) ) ) - ( PropName "reflectSymbol" ) - ) - ( Ref Nothing - ( Imported ( ModuleName "Type.Proxy" ) ( Name "Proxy" ) ) :| [] - ) - ) :| - [ Standalone - ( Nothing, Name "get", AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported ( ModuleName "Record.Unsafe" ) ( Name "foreign" ) ) - ) - ( PropName "unsafeGet" ) - ) - ( Ref Nothing ( Local ( Name "key" ) ) :| [] ) - ) - ] + { qnameModuleName = ModuleName "Data.Eq", qnameName = Name "eqRowCons$w" }, AbsN Nothing + ( ParamNamed Nothing + ( Name "dictEqRecord" ) :| + [ ParamNamed Nothing + ( Name "eqRowCons$u2" ), ParamNamed Nothing + ( Name "dictIsSymbol" ), ParamNamed Nothing + ( Name "dictEq" ) + ] + ) + ( LiteralObject Nothing + [ + ( PropName "eqRecord", AbsN Nothing + ( ParamUnused Nothing :| [] ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "ra" ) :| [] ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "rb" ) :| [] ) + ( Let Nothing + ( Standalone + ( Nothing, Name "key", AppN Nothing + ( ObjectProp Nothing + ( Ref Nothing ( Local ( Name "dictIsSymbol" ) ) ) + ( PropName "reflectSymbol" ) + ) + ( Ref Nothing + ( Imported ( ModuleName "Type.Proxy" ) ( Name "Proxy" ) ) :| [] + ) + ) :| + [ Standalone + ( Nothing, Name "get", AppN Nothing + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported ( ModuleName "Record.Unsafe" ) ( Name "foreign" ) ) + ) + ( PropName "unsafeGet" ) ) + ( Ref Nothing ( Local ( Name "key" ) ) :| [] ) + ) + ] + ) + ( AppN Nothing + ( AppN Nothing + ( ObjectProp Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.HeytingAlgebra" ) + ( Name "heytingAlgebraBoolean" ) + ) + ) + ( PropName "conj" ) + ) + ( AppN Nothing ( AppN Nothing ( AppN Nothing - ( ObjectProp Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.HeytingAlgebra" ) - ( Name "heytingAlgebraBoolean" ) - ) - ) - ( PropName "conj" ) - ) - ( AppN Nothing - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Data.Eq" ) ( Name "eq" ) ) - ) - ( Ref Nothing ( Local ( Name "dictEq" ) ) :| [] ) - ) - ( AppN Nothing - ( Ref Nothing ( Local ( Name "get" ) ) ) - ( Ref Nothing ( Local ( Name "ra" ) ) :| [] ) :| [] - ) - ) - ( AppN Nothing - ( Ref Nothing ( Local ( Name "get" ) ) ) - ( Ref Nothing ( Local ( Name "rb" ) ) :| [] ) :| [] - ) :| [] - ) + ( Ref Nothing ( Imported ( ModuleName "Data.Eq" ) ( Name "eq" ) ) ) + ( Ref Nothing ( Local ( Name "dictEq" ) ) :| [] ) ) ( AppN Nothing - ( AppN Nothing - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Data.Eq" ) ( Name "eqRecord" ) ) - ) - ( Ref Nothing ( Local ( Name "dictEqRecord" ) ) :| [] ) - ) - ( Ref Nothing - ( Imported ( ModuleName "Type.Proxy" ) ( Name "Proxy" ) ) :| [] - ) - ) - ( Ref Nothing ( Local ( Name "ra" ) ) :| [] ) + ( Ref Nothing ( Local ( Name "get" ) ) ) + ( Ref Nothing ( Local ( Name "ra" ) ) :| [] ) :| [] + ) + ) + ( AppN Nothing + ( Ref Nothing ( Local ( Name "get" ) ) ) + ( Ref Nothing ( Local ( Name "rb" ) ) :| [] ) :| [] + ) :| [] + ) + ) + ( AppN Nothing + ( AppN Nothing + ( AppN Nothing + ( AppN Nothing + ( Ref Nothing + ( Imported ( ModuleName "Data.Eq" ) ( Name "eqRecord" ) ) ) - ( Ref Nothing ( Local ( Name "rb" ) ) :| [] ) :| [] + ( Ref Nothing ( Local ( Name "dictEqRecord" ) ) :| [] ) + ) + ( Ref Nothing + ( Imported ( ModuleName "Type.Proxy" ) ( Name "Proxy" ) ) :| [] ) ) + ( Ref Nothing ( Local ( Name "ra" ) ) :| [] ) ) + ( Ref Nothing ( Local ( Name "rb" ) ) :| [] ) :| [] ) ) ) - ] + ) ) ) - ) + ] ) ), Standalone ( QName { qnameModuleName = ModuleName "Control.Applicative", qnameName = Name "pure" - }, Abs Nothing - ( ParamNamed Nothing ( Name "dict" ) ) + }, AbsN Nothing + ( ParamNamed Nothing ( Name "dict" ) :| [] ) ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "dict" ) ) ) ( PropName "pure" ) ) ), Standalone ( QName - { qnameModuleName = ModuleName "Control.Bind", qnameName = Name "bind" }, Abs Nothing - ( ParamNamed Nothing ( Name "dict" ) ) + { qnameModuleName = ModuleName "Control.Bind", qnameName = Name "bind" }, AbsN Nothing + ( ParamNamed Nothing ( Name "dict" ) :| [] ) ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "dict" ) ) ) ( PropName "bind" ) ) ), Standalone ( QName { qnameModuleName = ModuleName "Data.Eq.Generic", qnameName = Name "genericEq'" - }, Abs Nothing - ( ParamNamed Nothing ( Name "dict" ) ) + }, AbsN Nothing + ( ParamNamed Nothing ( Name "dict" ) :| [] ) ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "dict" ) ) ) ( PropName "genericEq'" ) ) ), Standalone ( QName { qnameModuleName = ModuleName "Data.Eq.Generic", qnameName = Name "genericEqConstructor" - }, Abs Nothing - ( ParamNamed Nothing ( Name "dictGenericEq" ) ) + }, AbsN Nothing + ( ParamNamed Nothing ( Name "dictGenericEq" ) :| [] ) ( LiteralObject Nothing [ - ( PropName "genericEq'", Abs Nothing - ( ParamNamed Nothing ( Name "v" ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "v1" ) ) + ( PropName "genericEq'", AbsN Nothing + ( ParamNamed Nothing ( Name "v" ) :| [] ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "v1" ) :| [] ) ( AppN Nothing ( AppN Nothing ( AppN Nothing @@ -247,10 +245,12 @@ UberModule { qnameModuleName = ModuleName "Effect", qnameName = Name "monadEffect" }, LiteralObject Nothing [ - ( PropName "Applicative0", Abs Nothing ( ParamUnused Nothing ) + ( PropName "Applicative0", AbsN Nothing + ( ParamUnused Nothing :| [] ) ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "applicativeEffect" ) ) ) ), - ( PropName "Bind1", Abs Nothing ( ParamUnused Nothing ) + ( PropName "Bind1", AbsN Nothing + ( ParamUnused Nothing :| [] ) ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "bindEffect" ) ) ) ) ] @@ -264,7 +264,8 @@ UberModule ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "foreign" ) ) ) ( PropName "bindE" ) ), - ( PropName "Apply0", Abs Nothing ( ParamUnused Nothing ) + ( PropName "Apply0", AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "Lazy_applyEffect" ) ) ) ( LiteralInt Nothing 0 :| [] ) @@ -280,7 +281,8 @@ UberModule ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "foreign" ) ) ) ( PropName "pureE" ) ), - ( PropName "Apply0", Abs Nothing ( ParamUnused Nothing ) + ( PropName "Apply0", AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "Lazy_applyEffect" ) ) ) ( LiteralInt Nothing 0 :| [] ) @@ -295,13 +297,14 @@ UberModule ( Ref Nothing ( Local ( Name "PSLUA_runtime_lazy" ) ) ) ( LiteralString Nothing "functorEffect" :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( LiteralObject Nothing [ - ( PropName "map", Abs Nothing - ( ParamNamed Nothing ( Name "f$54" ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "a$55" ) ) + ( PropName "map", AbsN Nothing + ( ParamNamed Nothing ( Name "f$54" ) :| [] ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "a$55" ) :| [] ) ( AppN Nothing ( AppN Nothing ( ObjectProp Nothing @@ -348,7 +351,8 @@ UberModule ( Ref Nothing ( Local ( Name "PSLUA_runtime_lazy" ) ) ) ( LiteralString Nothing "applyEffect" :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( LiteralObject Nothing [ ( PropName "apply", Let Nothing @@ -368,24 +372,24 @@ UberModule ) ) :| [] ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "f$35" ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "a$36" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "f$35" ) :| [] ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "a$36" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing ( Local ( Name "bind$33" ) ) ) ( Ref Nothing ( Local ( Name "f$35" ) ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "f'$37" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "f'$37" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing ( Local ( Name "bind$33" ) ) ) ( Ref Nothing ( Local ( Name "a$36" ) ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "a'$38" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "a'$38" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -424,7 +428,8 @@ UberModule ) ) ), - ( PropName "Functor0", Abs Nothing ( ParamUnused Nothing ) + ( PropName "Functor0", AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "Lazy_functorEffect" ) ) @@ -446,8 +451,8 @@ UberModule ), Standalone ( QName { qnameModuleName = ModuleName "Golden.BugListGenericEq.Test", qnameName = Name "logShow" - }, Abs Nothing - ( ParamNamed Nothing ( Name "a$2" ) ) + }, AbsN Nothing + ( ParamNamed Nothing ( Name "a$2" ) :| [] ) ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) @@ -483,8 +488,8 @@ UberModule { qnameModuleName = ModuleName "Golden.BugListGenericEq.Test", qnameName = Name "genericList" }, LiteralObject Nothing [ - ( PropName "to", Abs Nothing - ( ParamNamed Nothing ( Name "x" ) ) + ( PropName "to", AbsN Nothing + ( ParamNamed Nothing ( Name "x" ) :| [] ) ( IfThenElse Nothing ( Eq Nothing ( LiteralString Nothing "Data.Generic.Rep∷Sum.Inl" ) @@ -511,8 +516,8 @@ UberModule ) ) ), - ( PropName "from", Abs Nothing - ( ParamNamed Nothing ( Name "x0" ) ) + ( PropName "from", AbsN Nothing + ( ParamNamed Nothing ( Name "x0" ) :| [] ) ( IfThenElse Nothing ( Eq Nothing ( LiteralString Nothing "Golden.BugListGenericEq.Test∷List.Nil" ) @@ -557,14 +562,14 @@ UberModule ( ( QName { qnameModuleName = ModuleName "Golden.BugListGenericEq.Test", qnameName = Name "eqList" - }, Abs Nothing - ( ParamNamed Nothing ( Name "dictEq" ) ) + }, AbsN Nothing + ( ParamNamed Nothing ( Name "dictEq" ) :| [] ) ( LiteralObject Nothing [ - ( PropName "eq", Abs Nothing - ( ParamNamed Nothing ( Name "x" ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "y" ) ) + ( PropName "eq", AbsN Nothing + ( ParamNamed Nothing ( Name "x" ) :| [] ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "y" ) :| [] ) ( AppN Nothing ( AppN Nothing ( AppN Nothing @@ -580,12 +585,12 @@ UberModule ( PropName "from" ) ) :| [] ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "dictGenericEq$5" ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x$7" ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "y$8" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "dictGenericEq$5" ) :| [] ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x$7" ) :| [] ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "y$8" ) :| [] ) ( AppN Nothing ( AppN Nothing ( AppN Nothing @@ -613,10 +618,10 @@ UberModule ) ( LiteralObject Nothing [ - ( PropName "genericEq'", Abs Nothing - ( ParamNamed Nothing ( Name "v$13" ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "v1$14" ) ) + ( PropName "genericEq'", AbsN Nothing + ( ParamNamed Nothing ( Name "v$13" ) :| [] ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "v1$14" ) :| [] ) ( IfThenElse Nothing ( Eq Nothing ( LiteralString Nothing "Data.Generic.Rep∷Sum.Inl" ) @@ -649,8 +654,11 @@ UberModule ) ( LiteralObject Nothing [ - ( PropName "genericEq'", Abs Nothing ( ParamUnused Nothing ) - ( Abs Nothing ( ParamUnused Nothing ) ( LiteralBool Nothing True ) ) + ( PropName "genericEq'", AbsN Nothing + ( ParamUnused Nothing :| [] ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( LiteralBool Nothing True ) + ) ) ] :| [] ) :| [] @@ -699,10 +707,10 @@ UberModule ) ( LiteralObject Nothing [ - ( PropName "genericEq'", Abs Nothing - ( ParamNamed Nothing ( Name "v$21" ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "v1$22" ) ) + ( PropName "genericEq'", AbsN Nothing + ( ParamNamed Nothing ( Name "v$21" ) :| [] ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "v1$22" ) :| [] ) ( AppN Nothing ( AppN Nothing ( AppN Nothing @@ -723,84 +731,70 @@ UberModule ) ) ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Eq" ) + ( Name "eqRowCons$w" ) + ) + ) ( AppN Nothing - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Eq" ) - ( Name "eqRowCons" ) - ) - ) - ( AppN Nothing - ( AppN Nothing - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Eq" ) - ( Name "eqRowCons" ) - ) - ) - ( LiteralObject Nothing - [ - ( PropName "eqRecord", Abs Nothing ( ParamUnused Nothing ) - ( Abs Nothing ( ParamUnused Nothing ) - ( Abs Nothing ( ParamUnused Nothing ) ( LiteralBool Nothing True ) ) - ) - ) - ] :| [] - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Prim" ) - ( Name "undefined" ) - ) :| [] - ) - ) - ( LiteralObject Nothing - [ - ( PropName "reflectSymbol", Abs Nothing ( ParamUnused Nothing ) - ( LiteralString Nothing "tail" ) - ) - ] :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Eq" ) + ( Name "eqRowCons$w" ) + ) + ) + ( LiteralObject Nothing + [ + ( PropName "eqRecord", AbsN Nothing + ( ParamUnused Nothing :| [] ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( LiteralBool Nothing True ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.BugListGenericEq.Test" ) - ( Name "eqList" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "dictEq" ) - ) :| [] - ) :| [] - ) :| [] ) - ) - ( Ref Nothing + ] :| + [ Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) - ) :| [] - ) - ) - ( LiteralObject Nothing + ), LiteralObject Nothing + [ + ( PropName "reflectSymbol", AbsN Nothing + ( ParamUnused Nothing :| [] ) + ( LiteralString Nothing "tail" ) + ) + ], AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.BugListGenericEq.Test" ) + ( Name "eqList" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "dictEq" ) + ) :| [] + ) + ] + ) :| + [ Ref Nothing + ( Imported + ( ModuleName "Prim" ) + ( Name "undefined" ) + ), LiteralObject Nothing [ - ( PropName "reflectSymbol", Abs Nothing ( ParamUnused Nothing ) + ( PropName "reflectSymbol", AbsN Nothing + ( ParamUnused Nothing :| [] ) ( LiteralString Nothing "head" ) ) - ] :| [] - ) - ) - ( Ref Nothing - ( Local - ( Name "dictEq" ) - ) :| [] + ], Ref Nothing + ( Local + ( Name "dictEq" ) + ) + ] ) :| [] ) ) @@ -875,21 +869,18 @@ UberModule ) ), Standalone ( QName - { qnameModuleName = ModuleName "Golden.BugListGenericEq.Test", qnameName = Name "cons" - }, Abs Nothing - ( ParamNamed Nothing ( Name "head" ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "tail" ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Golden.BugListGenericEq.Test" ) ( Name "Cons" ) ) - ) - ( LiteralObject Nothing - [ - ( PropName "head", Ref Nothing ( Local ( Name "head" ) ) ), - ( PropName "tail", Ref Nothing ( Local ( Name "tail" ) ) ) - ] :| [] - ) + { qnameModuleName = ModuleName "Golden.BugListGenericEq.Test", qnameName = Name "cons$w" + }, AbsN Nothing + ( ParamNamed Nothing ( Name "head" ) :| [ ParamNamed Nothing ( Name "tail" ) ] ) + ( AppN Nothing + ( Ref Nothing + ( Imported ( ModuleName "Golden.BugListGenericEq.Test" ) ( Name "Cons" ) ) + ) + ( LiteralObject Nothing + [ + ( PropName "head", Ref Nothing ( Local ( Name "head" ) ) ), + ( PropName "tail", Ref Nothing ( Local ( Name "tail" ) ) ) + ] :| [] ) ) ) @@ -901,10 +892,23 @@ UberModule ( Name "Cons", Ref Nothing ( Imported ( ModuleName "Golden.BugListGenericEq.Test" ) ( Name "Cons" ) ) ), - ( Name "cons", Ref Nothing - ( Imported ( ModuleName "Golden.BugListGenericEq.Test" ) ( Name "cons" ) ) + ( Name "cons", AbsN Nothing + ( ParamNamed Nothing ( Name "cons$p1$210" ) :| [] ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "cons$p2$211" ) :| [] ) + ( AppN Nothing + ( Ref Nothing + ( Imported ( ModuleName "Golden.BugListGenericEq.Test" ) ( Name "cons$w" ) ) + ) + ( Ref Nothing + ( Local ( Name "cons$p1$210" ) ) :| + [ Ref Nothing ( Local ( Name "cons$p2$211" ) ) ] + ) + ) + ) ), - ( Name "main", Abs Nothing ( ParamUnused Nothing ) + ( Name "main", AbsN Nothing + ( ParamUnused Nothing :| [] ) ( Let Nothing ( Standalone ( Nothing, Name "_", AppN Nothing @@ -943,57 +947,53 @@ UberModule ( Imported ( ModuleName "Golden.BugListGenericEq.Test" ) ( Name "eq" ) ) ) ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.BugListGenericEq.Test" ) - ( Name "cons" ) - ) + ( Ref Nothing + ( Imported + ( ModuleName "Golden.BugListGenericEq.Test" ) + ( Name "cons$w" ) ) - ( LiteralInt Nothing 1 :| [] ) ) - ( AppN Nothing - ( AppN Nothing + ( LiteralInt Nothing 1 :| + [ AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.BugListGenericEq.Test" ) - ( Name "cons" ) + ( Name "cons$w" ) ) ) - ( LiteralInt Nothing 2 :| [] ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.BugListGenericEq.Test" ) - ( Name "Nil" ) - ) :| [] - ) :| [] + ( LiteralInt Nothing 2 :| + [ Ref Nothing + ( Imported + ( ModuleName "Golden.BugListGenericEq.Test" ) + ( Name "Nil" ) + ) + ] + ) + ] ) :| [] ) ) ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Golden.BugListGenericEq.Test" ) ( Name "cons" ) ) - ) - ( LiteralInt Nothing 1 :| [] ) + ( Ref Nothing + ( Imported ( ModuleName "Golden.BugListGenericEq.Test" ) ( Name "cons$w" ) ) ) - ( AppN Nothing - ( AppN Nothing + ( LiteralInt Nothing 1 :| + [ AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.BugListGenericEq.Test" ) - ( Name "cons" ) + ( Name "cons$w" ) ) ) - ( LiteralInt Nothing 2 :| [] ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.BugListGenericEq.Test" ) - ( Name "Nil" ) - ) :| [] - ) :| [] + ( LiteralInt Nothing 2 :| + [ Ref Nothing + ( Imported + ( ModuleName "Golden.BugListGenericEq.Test" ) + ( Name "Nil" ) + ) + ] + ) + ] ) :| [] ) :| [] ) @@ -1013,29 +1013,24 @@ UberModule ( Imported ( ModuleName "Golden.BugListGenericEq.Test" ) ( Name "eq" ) ) ) ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Golden.BugListGenericEq.Test" ) ( Name "cons" ) ) - ) - ( LiteralInt Nothing 1 :| [] ) - ) ( Ref Nothing - ( Imported - ( ModuleName "Golden.BugListGenericEq.Test" ) - ( Name "Nil" ) - ) :| [] + ( Imported ( ModuleName "Golden.BugListGenericEq.Test" ) ( Name "cons$w" ) ) + ) + ( LiteralInt Nothing 1 :| + [ Ref Nothing + ( Imported ( ModuleName "Golden.BugListGenericEq.Test" ) ( Name "Nil" ) ) + ] ) :| [] ) ) ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Golden.BugListGenericEq.Test" ) ( Name "cons" ) ) - ) - ( LiteralInt Nothing 2 :| [] ) - ) ( Ref Nothing - ( Imported ( ModuleName "Golden.BugListGenericEq.Test" ) ( Name "Nil" ) ) :| [] + ( Imported ( ModuleName "Golden.BugListGenericEq.Test" ) ( Name "cons$w" ) ) + ) + ( LiteralInt Nothing 2 :| + [ Ref Nothing + ( Imported ( ModuleName "Golden.BugListGenericEq.Test" ) ( Name "Nil" ) ) + ] ) :| [] ) :| [] ) diff --git a/test/ps/output/Golden.BugListGenericEq.Test/golden.lua b/test/ps/output/Golden.BugListGenericEq.Test/golden.lua index b4ddce14..e48824f5 100644 --- a/test/ps/output/Golden.BugListGenericEq.Test/golden.lua +++ b/test/ps/output/Golden.BugListGenericEq.Test/golden.lua @@ -53,24 +53,21 @@ M.Data_HeytingAlgebra_heytingAlgebraBoolean = { } M.Data_Eq_eqRecord = function(dict) return dict.eqRecord end M.Data_Eq_eq = function(dict) return dict.eq end -M.Data_Eq_eqRowCons = function(dictEqRecord) - return function() - return function(dictIsSymbol) - return function(dictEq) - return { - eqRecord = function() - return function(ra) - return function(rb) - local key = dictIsSymbol.reflectSymbol(M.Type_Proxy_Proxy) - local get = M.Record_Unsafe_foreign.unsafeGet(key) - return M.Data_HeytingAlgebra_heytingAlgebraBoolean.conj(M.Data_Eq_eq(dictEq)(get(ra))(get(rb)))(M.Data_Eq_eqRecord(dictEqRecord)(M.Type_Proxy_Proxy)(ra)(rb)) - end - end - end - } +M.Data_Eq_eqRowCons_S_w = function( dictEqRecord +, eqRowCons_S_u2 +, dictIsSymbol +, dictEq ) + return { + eqRecord = function() + return function(ra) + return function(rb) + local key = dictIsSymbol.reflectSymbol(M.Type_Proxy_Proxy) + local get = M.Record_Unsafe_foreign.unsafeGet(key) + return M.Data_HeytingAlgebra_heytingAlgebraBoolean.conj(M.Data_Eq_eq(dictEq)(get(ra))(get(rb)))(M.Data_Eq_eqRecord(dictEqRecord)(M.Type_Proxy_Proxy)(ra)(rb)) + end end end - end + } end M.Control_Applicative_pure = function(dict) return dict.pure end M.Control_Bind_bind = function(dict) return dict.bind end @@ -199,17 +196,17 @@ M.Golden_BugListGenericEq_Test_eqList = function(dictEq) genericEqPrime = function(v_S_21) return function(v1_S_22) return M.Data_Eq_eq({ - eq = M.Data_Eq_eqRecord(M.Data_Eq_eqRowCons(M.Data_Eq_eqRowCons({ + eq = M.Data_Eq_eqRecord(M.Data_Eq_eqRowCons_S_w(M.Data_Eq_eqRowCons_S_w({ eqRecord = function() return function() return function() return true end end end - })()({ + }, nil, { reflectSymbol = function() return "tail" end - })(M.Golden_BugListGenericEq_Test_eqList(dictEq)))()({ + }, M.Golden_BugListGenericEq_Test_eqList(dictEq)), nil, { reflectSymbol = function() return "head" end - })(dictEq))(M.Type_Proxy_Proxy) + }, dictEq))(M.Type_Proxy_Proxy) })(v_S_21)(v1_S_22) end end @@ -230,13 +227,11 @@ end M.Golden_BugListGenericEq_Test_eq = M.Data_Eq_eq(M.Golden_BugListGenericEq_Test_eqList({ eq = M.Data_Eq_foreign.eqIntImpl })) -M.Golden_BugListGenericEq_Test_cons = function(head) - return function(tail) - return M.Golden_BugListGenericEq_Test_Cons({ head = head, tail = tail }) - end +M.Golden_BugListGenericEq_Test_cons_S_w = function(head, tail) + return M.Golden_BugListGenericEq_Test_Cons({ head = head, tail = tail }) end return (function() local _ = M.Golden_BugListGenericEq_Test_logShow(M.Golden_BugListGenericEq_Test_eq(M.Golden_BugListGenericEq_Test_Nil)(M.Golden_BugListGenericEq_Test_Nil))() - local _ = M.Golden_BugListGenericEq_Test_logShow(M.Golden_BugListGenericEq_Test_eq(M.Golden_BugListGenericEq_Test_cons(1)(M.Golden_BugListGenericEq_Test_cons(2)(M.Golden_BugListGenericEq_Test_Nil)))(M.Golden_BugListGenericEq_Test_cons(1)(M.Golden_BugListGenericEq_Test_cons(2)(M.Golden_BugListGenericEq_Test_Nil))))() - return M.Golden_BugListGenericEq_Test_logShow(M.Golden_BugListGenericEq_Test_eq(M.Golden_BugListGenericEq_Test_cons(1)(M.Golden_BugListGenericEq_Test_Nil))(M.Golden_BugListGenericEq_Test_cons(2)(M.Golden_BugListGenericEq_Test_Nil)))() + local _ = M.Golden_BugListGenericEq_Test_logShow(M.Golden_BugListGenericEq_Test_eq(M.Golden_BugListGenericEq_Test_cons_S_w(1, M.Golden_BugListGenericEq_Test_cons_S_w(2, M.Golden_BugListGenericEq_Test_Nil)))(M.Golden_BugListGenericEq_Test_cons_S_w(1, M.Golden_BugListGenericEq_Test_cons_S_w(2, M.Golden_BugListGenericEq_Test_Nil))))() + return M.Golden_BugListGenericEq_Test_logShow(M.Golden_BugListGenericEq_Test_eq(M.Golden_BugListGenericEq_Test_cons_S_w(1, M.Golden_BugListGenericEq_Test_Nil))(M.Golden_BugListGenericEq_Test_cons_S_w(2, M.Golden_BugListGenericEq_Test_Nil)))() end)() diff --git a/test/ps/output/Golden.CaseStatements.Test/golden.ir b/test/ps/output/Golden.CaseStatements.Test/golden.ir index 7891d471..4dd4de43 100644 --- a/test/ps/output/Golden.CaseStatements.Test/golden.ir +++ b/test/ps/output/Golden.CaseStatements.Test/golden.ir @@ -2,8 +2,8 @@ UberModule { uberModuleBindings = [ Standalone ( QName - { qnameModuleName = ModuleName "Golden.Values.Test", qnameName = Name "f" - }, Abs Nothing ( ParamUnused Nothing ) ( LiteralBool Nothing True ) + { qnameModuleName = ModuleName "Golden.Values.Test", qnameName = Name "f" }, AbsN Nothing + ( ParamUnused Nothing :| [] ) ( LiteralBool Nothing True ) ) ], uberModuleForeigns = [], uberModuleExports = [ @@ -11,7 +11,8 @@ UberModule ( Name "b", LiteralChar Nothing 'b' ), ( Name "c", Let Nothing ( Standalone - ( Nothing, Name "v$6", Abs Nothing ( ParamUnused Nothing ) + ( Nothing, Name "v$6", AbsN Nothing + ( ParamUnused Nothing :| [] ) ( LiteralInt Nothing 0 ) ) :| [] ) @@ -48,15 +49,16 @@ UberModule ( TyName "M" ) ( CtorName "N" ) [] ), - ( Name "d", Abs Nothing - ( ParamNamed Nothing ( Name "m$34" ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "n$35" ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x$36" ) ) + ( Name "d", AbsN Nothing + ( ParamNamed Nothing ( Name "m$34" ) :| [] ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "n$35" ) :| [] ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x$36" ) :| [] ) ( Let Nothing ( Standalone - ( Nothing, Name "v$37", Abs Nothing ( ParamUnused Nothing ) + ( Nothing, Name "v$37", AbsN Nothing + ( ParamUnused Nothing :| [] ) ( IfThenElse Nothing ( Eq Nothing ( LiteralChar Nothing 'y' ) diff --git a/test/ps/output/Golden.CharLiterals.Test/golden.ir b/test/ps/output/Golden.CharLiterals.Test/golden.ir index 6e1a8361..c7438192 100644 --- a/test/ps/output/Golden.CharLiterals.Test/golden.ir +++ b/test/ps/output/Golden.CharLiterals.Test/golden.ir @@ -32,19 +32,19 @@ UberModule [ ( Nothing, Name "log" ) ] ), Standalone ( QName - { qnameModuleName = ModuleName "Data.Show", qnameName = Name "show" }, Abs Nothing - ( ParamNamed Nothing ( Name "dict" ) ) + { qnameModuleName = ModuleName "Data.Show", qnameName = Name "show" }, AbsN Nothing + ( ParamNamed Nothing ( Name "dict" ) :| [] ) ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "dict" ) ) ) ( PropName "show" ) ) ), Standalone ( QName { qnameModuleName = ModuleName "Control.Applicative", qnameName = Name "pure" - }, Abs Nothing - ( ParamNamed Nothing ( Name "dict" ) ) + }, AbsN Nothing + ( ParamNamed Nothing ( Name "dict" ) :| [] ) ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "dict" ) ) ) ( PropName "pure" ) ) ), Standalone ( QName - { qnameModuleName = ModuleName "Control.Bind", qnameName = Name "bind" }, Abs Nothing - ( ParamNamed Nothing ( Name "dict" ) ) + { qnameModuleName = ModuleName "Control.Bind", qnameName = Name "bind" }, AbsN Nothing + ( ParamNamed Nothing ( Name "dict" ) :| [] ) ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "dict" ) ) ) ( PropName "bind" ) ) ), RecursiveGroup ( @@ -52,10 +52,12 @@ UberModule { qnameModuleName = ModuleName "Effect", qnameName = Name "monadEffect" }, LiteralObject Nothing [ - ( PropName "Applicative0", Abs Nothing ( ParamUnused Nothing ) + ( PropName "Applicative0", AbsN Nothing + ( ParamUnused Nothing :| [] ) ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "applicativeEffect" ) ) ) ), - ( PropName "Bind1", Abs Nothing ( ParamUnused Nothing ) + ( PropName "Bind1", AbsN Nothing + ( ParamUnused Nothing :| [] ) ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "bindEffect" ) ) ) ) ] @@ -69,7 +71,8 @@ UberModule ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "foreign" ) ) ) ( PropName "bindE" ) ), - ( PropName "Apply0", Abs Nothing ( ParamUnused Nothing ) + ( PropName "Apply0", AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "Lazy_applyEffect" ) ) ) ( LiteralInt Nothing 0 :| [] ) @@ -85,7 +88,8 @@ UberModule ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "foreign" ) ) ) ( PropName "pureE" ) ), - ( PropName "Apply0", Abs Nothing ( ParamUnused Nothing ) + ( PropName "Apply0", AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "Lazy_applyEffect" ) ) ) ( LiteralInt Nothing 0 :| [] ) @@ -100,13 +104,14 @@ UberModule ( Ref Nothing ( Local ( Name "PSLUA_runtime_lazy" ) ) ) ( LiteralString Nothing "functorEffect" :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( LiteralObject Nothing [ - ( PropName "map", Abs Nothing - ( ParamNamed Nothing ( Name "f$25" ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "a$26" ) ) + ( PropName "map", AbsN Nothing + ( ParamNamed Nothing ( Name "f$25" ) :| [] ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "a$26" ) :| [] ) ( AppN Nothing ( AppN Nothing ( ObjectProp Nothing @@ -153,7 +158,8 @@ UberModule ( Ref Nothing ( Local ( Name "PSLUA_runtime_lazy" ) ) ) ( LiteralString Nothing "applyEffect" :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( LiteralObject Nothing [ ( PropName "apply", Let Nothing @@ -173,24 +179,24 @@ UberModule ) ) :| [] ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "f$6" ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "a$7" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "f$6" ) :| [] ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "a$7" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing ( Local ( Name "bind$4" ) ) ) ( Ref Nothing ( Local ( Name "f$6" ) ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "f'$8" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "f'$8" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing ( Local ( Name "bind$4" ) ) ) ( Ref Nothing ( Local ( Name "a$7" ) ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "a'$9" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "a'$9" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -229,7 +235,8 @@ UberModule ) ) ), - ( PropName "Functor0", Abs Nothing ( ParamUnused Nothing ) + ( PropName "Functor0", AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "Lazy_functorEffect" ) ) @@ -268,8 +275,8 @@ UberModule ( Ref Nothing ( Imported ( ModuleName "Data.Show" ) ( Name "show" ) ) ) ( LiteralObject Nothing [ - ( PropName "show", Abs Nothing - ( ParamNamed Nothing ( Name "v$111" ) ) + ( PropName "show", AbsN Nothing + ( ParamNamed Nothing ( Name "v$111" ) :| [] ) ( IfThenElse Nothing ( Ref Nothing ( Local ( Name "v$111" ) ) ) ( LiteralString Nothing "true" ) @@ -287,7 +294,8 @@ UberModule ) ], uberModuleForeigns = [], uberModuleExports = [ - ( Name "main", Abs Nothing ( ParamUnused Nothing ) + ( Name "main", AbsN Nothing + ( ParamUnused Nothing :| [] ) ( Let Nothing ( Standalone ( Nothing, Name "_", AppN Nothing diff --git a/test/ps/output/Golden.Currying.Test/golden.ir b/test/ps/output/Golden.Currying.Test/golden.ir index 358bc54b..3faca79d 100644 --- a/test/ps/output/Golden.Currying.Test/golden.ir +++ b/test/ps/output/Golden.Currying.Test/golden.ir @@ -1,20 +1,23 @@ UberModule { uberModuleBindings = [], uberModuleForeigns = [], uberModuleExports = [ - ( Name "apply", Abs Nothing - ( ParamNamed Nothing ( Name "f1$0" ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x$1" ) ) + ( Name "apply", AbsN Nothing + ( ParamNamed Nothing ( Name "f1$0" ) :| [] ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x$1" ) :| [] ) ( AppN Nothing ( Ref Nothing ( Local ( Name "f1$0" ) ) ) ( Ref Nothing ( Local ( Name "x$1" ) ) :| [] ) ) ) ), - ( Name "f", Abs Nothing ( ParamUnused Nothing ) - ( Abs Nothing ( ParamUnused Nothing ) - ( Abs Nothing ( ParamUnused Nothing ) - ( Abs Nothing ( ParamUnused Nothing ) ( LiteralString Nothing "ok" ) ) + ( Name "f", AbsN Nothing + ( ParamUnused Nothing :| [] ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) + ( AbsN Nothing ( ParamUnused Nothing :| [] ) ( LiteralString Nothing "ok" ) ) ) ) ) diff --git a/test/ps/output/Golden.DataDeclarations.Test2/golden.ir b/test/ps/output/Golden.DataDeclarations.Test2/golden.ir index 2684fb4e..1a7adcad 100644 --- a/test/ps/output/Golden.DataDeclarations.Test2/golden.ir +++ b/test/ps/output/Golden.DataDeclarations.Test2/golden.ir @@ -6,8 +6,9 @@ UberModule ( TyName "TySameName" ) ( CtorName "CtorSameName" ) [] ), - ( Name "test", Abs Nothing ( ParamUnused Nothing ) - ( Abs Nothing ( ParamUnused Nothing ) ( LiteralBool Nothing True ) ) + ( Name "test", AbsN Nothing + ( ParamUnused Nothing :| [] ) + ( AbsN Nothing ( ParamUnused Nothing :| [] ) ( LiteralBool Nothing True ) ) ) ] } \ No newline at end of file diff --git a/test/ps/output/Golden.DerivedFunctor.Test/golden.ir b/test/ps/output/Golden.DerivedFunctor.Test/golden.ir index 17117e91..20e29b35 100644 --- a/test/ps/output/Golden.DerivedFunctor.Test/golden.ir +++ b/test/ps/output/Golden.DerivedFunctor.Test/golden.ir @@ -42,19 +42,19 @@ UberModule ] ), Standalone ( QName - { qnameModuleName = ModuleName "Data.Functor", qnameName = Name "map" }, Abs Nothing - ( ParamNamed Nothing ( Name "dict" ) ) + { qnameModuleName = ModuleName "Data.Functor", qnameName = Name "map" }, AbsN Nothing + ( ParamNamed Nothing ( Name "dict" ) :| [] ) ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "dict" ) ) ) ( PropName "map" ) ) ), Standalone ( QName { qnameModuleName = ModuleName "Control.Applicative", qnameName = Name "pure" - }, Abs Nothing - ( ParamNamed Nothing ( Name "dict" ) ) + }, AbsN Nothing + ( ParamNamed Nothing ( Name "dict" ) :| [] ) ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "dict" ) ) ) ( PropName "pure" ) ) ), Standalone ( QName - { qnameModuleName = ModuleName "Control.Bind", qnameName = Name "bind" }, Abs Nothing - ( ParamNamed Nothing ( Name "dict" ) ) + { qnameModuleName = ModuleName "Control.Bind", qnameName = Name "bind" }, AbsN Nothing + ( ParamNamed Nothing ( Name "dict" ) :| [] ) ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "dict" ) ) ) ( PropName "bind" ) ) ), RecursiveGroup ( @@ -62,10 +62,12 @@ UberModule { qnameModuleName = ModuleName "Effect", qnameName = Name "monadEffect" }, LiteralObject Nothing [ - ( PropName "Applicative0", Abs Nothing ( ParamUnused Nothing ) + ( PropName "Applicative0", AbsN Nothing + ( ParamUnused Nothing :| [] ) ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "applicativeEffect" ) ) ) ), - ( PropName "Bind1", Abs Nothing ( ParamUnused Nothing ) + ( PropName "Bind1", AbsN Nothing + ( ParamUnused Nothing :| [] ) ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "bindEffect" ) ) ) ) ] @@ -79,7 +81,8 @@ UberModule ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "foreign" ) ) ) ( PropName "bindE" ) ), - ( PropName "Apply0", Abs Nothing ( ParamUnused Nothing ) + ( PropName "Apply0", AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "Lazy_applyEffect" ) ) ) ( LiteralInt Nothing 0 :| [] ) @@ -95,7 +98,8 @@ UberModule ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "foreign" ) ) ) ( PropName "pureE" ) ), - ( PropName "Apply0", Abs Nothing ( ParamUnused Nothing ) + ( PropName "Apply0", AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "Lazy_applyEffect" ) ) ) ( LiteralInt Nothing 0 :| [] ) @@ -110,13 +114,14 @@ UberModule ( Ref Nothing ( Local ( Name "PSLUA_runtime_lazy" ) ) ) ( LiteralString Nothing "functorEffect" :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( LiteralObject Nothing [ - ( PropName "map", Abs Nothing - ( ParamNamed Nothing ( Name "f$31" ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "a$32" ) ) + ( PropName "map", AbsN Nothing + ( ParamNamed Nothing ( Name "f$31" ) :| [] ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "a$32" ) :| [] ) ( AppN Nothing ( AppN Nothing ( ObjectProp Nothing @@ -163,7 +168,8 @@ UberModule ( Ref Nothing ( Local ( Name "PSLUA_runtime_lazy" ) ) ) ( LiteralString Nothing "applyEffect" :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( LiteralObject Nothing [ ( PropName "apply", Let Nothing @@ -183,24 +189,24 @@ UberModule ) ) :| [] ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "f$12" ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "a$13" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "f$12" ) :| [] ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "a$13" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing ( Local ( Name "bind$10" ) ) ) ( Ref Nothing ( Local ( Name "f$12" ) ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "f'$14" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "f'$14" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing ( Local ( Name "bind$10" ) ) ) ( Ref Nothing ( Local ( Name "a$13" ) ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "a'$15" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "a'$15" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -239,7 +245,8 @@ UberModule ) ) ), - ( PropName "Functor0", Abs Nothing ( ParamUnused Nothing ) + ( PropName "Functor0", AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "Lazy_functorEffect" ) ) @@ -267,8 +274,8 @@ UberModule ), Standalone ( QName { qnameModuleName = ModuleName "Golden.DerivedFunctor.Test", qnameName = Name "logShow" - }, Abs Nothing - ( ParamNamed Nothing ( Name "a$5" ) ) + }, AbsN Nothing + ( ParamNamed Nothing ( Name "a$5" ) :| [] ) ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) @@ -317,8 +324,8 @@ UberModule ( ( QName { qnameModuleName = ModuleName "Golden.DerivedFunctor.Test", qnameName = Name "sumTree" - }, Abs Nothing - ( ParamNamed Nothing ( Name "v" ) ) + }, AbsN Nothing + ( ParamNamed Nothing ( Name "v" ) :| [] ) ( IfThenElse Nothing ( Eq Nothing ( LiteralString Nothing "Golden.DerivedFunctor.Test∷Tree.Leaf" ) @@ -379,10 +386,10 @@ UberModule { qnameModuleName = ModuleName "Golden.DerivedFunctor.Test", qnameName = Name "functorTree" }, LiteralObject Nothing [ - ( PropName "map", Abs Nothing - ( ParamNamed Nothing ( Name "f" ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "m" ) ) + ( PropName "map", AbsN Nothing + ( ParamNamed Nothing ( Name "f" ) :| [] ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "m" ) :| [] ) ( IfThenElse Nothing ( Eq Nothing ( LiteralString Nothing "Golden.DerivedFunctor.Test∷Tree.Leaf" ) @@ -464,10 +471,10 @@ UberModule { qnameModuleName = ModuleName "Golden.DerivedFunctor.Test", qnameName = Name "functorEither" }, LiteralObject Nothing [ - ( PropName "map", Abs Nothing - ( ParamNamed Nothing ( Name "f" ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "m" ) ) + ( PropName "map", AbsN Nothing + ( ParamNamed Nothing ( Name "f" ) :| [] ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "m" ) :| [] ) ( IfThenElse Nothing ( Eq Nothing ( LiteralString Nothing "Golden.DerivedFunctor.Test∷Either.Left" ) @@ -515,25 +522,22 @@ UberModule ) ), Standalone ( QName - { qnameModuleName = ModuleName "Golden.DerivedFunctor.Test", qnameName = Name "fromRight" - }, Abs Nothing - ( ParamNamed Nothing ( Name "fallback" ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "v" ) ) + { qnameModuleName = ModuleName "Golden.DerivedFunctor.Test", qnameName = Name "fromRight$w" + }, AbsN Nothing + ( ParamNamed Nothing ( Name "fallback" ) :| [ ParamNamed Nothing ( Name "v" ) ] ) + ( IfThenElse Nothing + ( Eq Nothing + ( LiteralString Nothing "Golden.DerivedFunctor.Test∷Either.Left" ) + ( ReflectCtor Nothing ( Ref Nothing ( Local ( Name "v" ) ) ) ) + ) + ( Ref Nothing ( Local ( Name "fallback" ) ) ) ( IfThenElse Nothing ( Eq Nothing - ( LiteralString Nothing "Golden.DerivedFunctor.Test∷Either.Left" ) + ( LiteralString Nothing "Golden.DerivedFunctor.Test∷Either.Right" ) ( ReflectCtor Nothing ( Ref Nothing ( Local ( Name "v" ) ) ) ) ) - ( Ref Nothing ( Local ( Name "fallback" ) ) ) - ( IfThenElse Nothing - ( Eq Nothing - ( LiteralString Nothing "Golden.DerivedFunctor.Test∷Either.Right" ) - ( ReflectCtor Nothing ( Ref Nothing ( Local ( Name "v" ) ) ) ) - ) - ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "v" ) ) ) ( PropName "value0" ) ) - ( Exception Nothing "No patterns matched" ) - ) + ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "v" ) ) ) ( PropName "value0" ) ) + ( Exception Nothing "No patterns matched" ) ) ) ) @@ -551,13 +555,26 @@ UberModule ( Name "Node", Ref Nothing ( Imported ( ModuleName "Golden.DerivedFunctor.Test" ) ( Name "Node" ) ) ), - ( Name "fromRight", Ref Nothing - ( Imported ( ModuleName "Golden.DerivedFunctor.Test" ) ( Name "fromRight" ) ) + ( Name "fromRight", AbsN Nothing + ( ParamNamed Nothing ( Name "fromRight$p1$186" ) :| [] ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "fromRight$p2$187" ) :| [] ) + ( AppN Nothing + ( Ref Nothing + ( Imported ( ModuleName "Golden.DerivedFunctor.Test" ) ( Name "fromRight$w" ) ) + ) + ( Ref Nothing + ( Local ( Name "fromRight$p1$186" ) ) :| + [ Ref Nothing ( Local ( Name "fromRight$p2$187" ) ) ] + ) + ) + ) ), ( Name "sumTree", Ref Nothing ( Imported ( ModuleName "Golden.DerivedFunctor.Test" ) ( Name "sumTree" ) ) ), - ( Name "main", Abs Nothing ( ParamUnused Nothing ) + ( Name "main", AbsN Nothing + ( ParamUnused Nothing :| [] ) ( Let Nothing ( Standalone ( Nothing, Name "_", AppN Nothing @@ -566,39 +583,38 @@ UberModule ( Imported ( ModuleName "Golden.DerivedFunctor.Test" ) ( Name "logShow" ) ) ) ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Golden.DerivedFunctor.Test" ) ( Name "fromRight" ) ) - ) - ( LiteralInt Nothing 0 :| [] ) + ( Ref Nothing + ( Imported ( ModuleName "Golden.DerivedFunctor.Test" ) ( Name "fromRight$w" ) ) ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Golden.DerivedFunctor.Test" ) ( Name "map1" ) ) - ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "v$0" ) ) - ( AppN Nothing + ( LiteralInt Nothing 0 :| + [ AppN Nothing + ( AppN Nothing + ( Ref Nothing + ( Imported ( ModuleName "Golden.DerivedFunctor.Test" ) ( Name "map1" ) ) + ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "v$0" ) :| [] ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.DerivedFunctor.Test" ) - ( Name "add" ) + ( 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 :| [] ) + ) :| [] + ) ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Golden.DerivedFunctor.Test" ) ( Name "Right" ) ) + ( AppN Nothing + ( Ref Nothing + ( Imported ( ModuleName "Golden.DerivedFunctor.Test" ) ( Name "Right" ) ) + ) + ( LiteralInt Nothing 41 :| [] ) :| [] ) - ( LiteralInt Nothing 41 :| [] ) :| [] - ) :| [] + ] ) :| [] ) ) @@ -611,42 +627,41 @@ UberModule ( Imported ( ModuleName "Golden.DerivedFunctor.Test" ) ( Name "logShow" ) ) ) ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.DerivedFunctor.Test" ) - ( Name "fromRight" ) - ) + ( Ref Nothing + ( Imported + ( ModuleName "Golden.DerivedFunctor.Test" ) + ( Name "fromRight$w" ) ) - ( LiteralInt Nothing 7 :| [] ) ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Golden.DerivedFunctor.Test" ) ( Name "map1" ) ) - ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "v0$1" ) ) - ( AppN Nothing + ( LiteralInt Nothing 7 :| + [ AppN Nothing + ( AppN Nothing + ( Ref Nothing + ( Imported ( ModuleName "Golden.DerivedFunctor.Test" ) ( Name "map1" ) ) + ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "v0$1" ) :| [] ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.DerivedFunctor.Test" ) - ( Name "add" ) + ( 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 :| [] ) + ) :| [] + ) ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Golden.DerivedFunctor.Test" ) ( Name "Left" ) ) + ( AppN Nothing + ( Ref Nothing + ( Imported ( ModuleName "Golden.DerivedFunctor.Test" ) ( Name "Left" ) ) + ) + ( LiteralString Nothing "no" :| [] ) :| [] ) - ( LiteralString Nothing "no" :| [] ) :| [] - ) :| [] + ] ) :| [] ) ) @@ -674,8 +689,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "v1$2" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "v1$2" ) :| [] ) ( AppN Nothing ( AppN Nothing ( ObjectProp Nothing diff --git a/test/ps/output/Golden.DerivedFunctor.Test/golden.lua b/test/ps/output/Golden.DerivedFunctor.Test/golden.lua index 99e02bef..8b4ab275 100644 --- a/test/ps/output/Golden.DerivedFunctor.Test/golden.lua +++ b/test/ps/output/Golden.DerivedFunctor.Test/golden.lua @@ -146,22 +146,20 @@ M.Golden_DerivedFunctor_Test_functorEither = { end } M.Golden_DerivedFunctor_Test_map1 = M.Data_Functor_map(M.Golden_DerivedFunctor_Test_functorEither) -M.Golden_DerivedFunctor_Test_fromRight = function(fallback) - return function(v) - if "Golden.DerivedFunctor.Test∷Either.Left" == v["$ctor"] then - return fallback - elseif "Golden.DerivedFunctor.Test∷Either.Right" == v["$ctor"] then - return v.value0 - else - return error("No patterns matched") - end +M.Golden_DerivedFunctor_Test_fromRight_S_w = function(fallback, v) + if "Golden.DerivedFunctor.Test∷Either.Left" == v["$ctor"] then + return fallback + elseif "Golden.DerivedFunctor.Test∷Either.Right" == v["$ctor"] then + return v.value0 + else + return error("No patterns matched") end end return (function() - local _ = M.Golden_DerivedFunctor_Test_logShow(M.Golden_DerivedFunctor_Test_fromRight(0)(M.Golden_DerivedFunctor_Test_map1(function( v_S_0 ) + local _ = M.Golden_DerivedFunctor_Test_logShow(M.Golden_DerivedFunctor_Test_fromRight_S_w(0, M.Golden_DerivedFunctor_Test_map1(function( v_S_0 ) return M.Golden_DerivedFunctor_Test_add(v_S_0)(1) end)(M.Golden_DerivedFunctor_Test_Right(41))))() - local _ = M.Golden_DerivedFunctor_Test_logShow(M.Golden_DerivedFunctor_Test_fromRight(7)(M.Golden_DerivedFunctor_Test_map1(function( v0_S_1 ) + local _ = M.Golden_DerivedFunctor_Test_logShow(M.Golden_DerivedFunctor_Test_fromRight_S_w(7, M.Golden_DerivedFunctor_Test_map1(function( v0_S_1 ) return M.Golden_DerivedFunctor_Test_add(v0_S_1)(1) end)(M.Golden_DerivedFunctor_Test_Left("no"))))() return M.Golden_DerivedFunctor_Test_logShow(M.Golden_DerivedFunctor_Test_sumTree(M.Data_Functor_map(M.Golden_DerivedFunctor_Test_functorTree)(function( v1_S_2 ) diff --git a/test/ps/output/Golden.Fibonacci.Test/golden.ir b/test/ps/output/Golden.Fibonacci.Test/golden.ir index 15f4c2a6..b2f10b89 100644 --- a/test/ps/output/Golden.Fibonacci.Test/golden.ir +++ b/test/ps/output/Golden.Fibonacci.Test/golden.ir @@ -28,8 +28,8 @@ UberModule ( ( QName { qnameModuleName = ModuleName "Golden.Fibonacci.Test", qnameName = Name "fib" - }, Abs Nothing - ( ParamNamed Nothing ( Name "v" ) ) + }, AbsN Nothing + ( ParamNamed Nothing ( Name "v" ) :| [] ) ( IfThenElse Nothing ( Eq Nothing ( LiteralInt Nothing 0 ) ( Ref Nothing ( Local ( Name "v" ) ) ) ) ( LiteralInt Nothing 0 ) diff --git a/test/ps/output/Golden.FloatIn.Test/golden.ir b/test/ps/output/Golden.FloatIn.Test/golden.ir index e7f725a7..7a850666 100644 --- a/test/ps/output/Golden.FloatIn.Test/golden.ir +++ b/test/ps/output/Golden.FloatIn.Test/golden.ir @@ -55,13 +55,13 @@ UberModule ), Standalone ( QName { qnameModuleName = ModuleName "Control.Applicative", qnameName = Name "pure" - }, Abs Nothing - ( ParamNamed Nothing ( Name "dict" ) ) + }, AbsN Nothing + ( ParamNamed Nothing ( Name "dict" ) :| [] ) ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "dict" ) ) ) ( PropName "pure" ) ) ), Standalone ( QName - { qnameModuleName = ModuleName "Control.Bind", qnameName = Name "bind" }, Abs Nothing - ( ParamNamed Nothing ( Name "dict" ) ) + { qnameModuleName = ModuleName "Control.Bind", qnameName = Name "bind" }, AbsN Nothing + ( ParamNamed Nothing ( Name "dict" ) :| [] ) ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "dict" ) ) ) ( PropName "bind" ) ) ), RecursiveGroup ( @@ -69,10 +69,12 @@ UberModule { qnameModuleName = ModuleName "Effect", qnameName = Name "monadEffect" }, LiteralObject Nothing [ - ( PropName "Applicative0", Abs Nothing ( ParamUnused Nothing ) + ( PropName "Applicative0", AbsN Nothing + ( ParamUnused Nothing :| [] ) ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "applicativeEffect" ) ) ) ), - ( PropName "Bind1", Abs Nothing ( ParamUnused Nothing ) + ( PropName "Bind1", AbsN Nothing + ( ParamUnused Nothing :| [] ) ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "bindEffect" ) ) ) ) ] @@ -86,7 +88,8 @@ UberModule ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "foreign" ) ) ) ( PropName "bindE" ) ), - ( PropName "Apply0", Abs Nothing ( ParamUnused Nothing ) + ( PropName "Apply0", AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "Lazy_applyEffect" ) ) ) ( LiteralInt Nothing 0 :| [] ) @@ -102,7 +105,8 @@ UberModule ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "foreign" ) ) ) ( PropName "pureE" ) ), - ( PropName "Apply0", Abs Nothing ( ParamUnused Nothing ) + ( PropName "Apply0", AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "Lazy_applyEffect" ) ) ) ( LiteralInt Nothing 0 :| [] ) @@ -117,13 +121,14 @@ UberModule ( Ref Nothing ( Local ( Name "PSLUA_runtime_lazy" ) ) ) ( LiteralString Nothing "functorEffect" :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( LiteralObject Nothing [ - ( PropName "map", Abs Nothing - ( ParamNamed Nothing ( Name "f$28" ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "a$29" ) ) + ( PropName "map", AbsN Nothing + ( ParamNamed Nothing ( Name "f$28" ) :| [] ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "a$29" ) :| [] ) ( AppN Nothing ( AppN Nothing ( ObjectProp Nothing @@ -170,7 +175,8 @@ UberModule ( Ref Nothing ( Local ( Name "PSLUA_runtime_lazy" ) ) ) ( LiteralString Nothing "applyEffect" :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( LiteralObject Nothing [ ( PropName "apply", Let Nothing @@ -190,24 +196,24 @@ UberModule ) ) :| [] ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "f$9" ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "a$10" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "f$9" ) :| [] ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "a$10" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing ( Local ( Name "bind$7" ) ) ) ( Ref Nothing ( Local ( Name "f$9" ) ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "f'$11" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "f'$11" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing ( Local ( Name "bind$7" ) ) ) ( Ref Nothing ( Local ( Name "a$10" ) ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "a'$12" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "a'$12" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -246,7 +252,8 @@ UberModule ) ) ), - ( PropName "Functor0", Abs Nothing ( ParamUnused Nothing ) + ( PropName "Functor0", AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "Lazy_functorEffect" ) ) @@ -274,8 +281,8 @@ UberModule ), Standalone ( QName { qnameModuleName = ModuleName "Golden.FloatIn.Test", qnameName = Name "logShow" - }, Abs Nothing - ( ParamNamed Nothing ( Name "a$2" ) ) + }, AbsN Nothing + ( ParamNamed Nothing ( Name "a$2" ) :| [] ) ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) @@ -291,52 +298,41 @@ UberModule ) ), Standalone ( QName - { qnameModuleName = ModuleName "Golden.FloatIn.Test", qnameName = Name "pickShared" - }, Abs Nothing - ( ParamNamed Nothing ( Name "useIt" ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "n" ) ) - ( IfThenElse Nothing - ( Ref Nothing ( Local ( Name "useIt" ) ) ) + { qnameModuleName = ModuleName "Golden.FloatIn.Test", qnameName = Name "pickShared$w" + }, AbsN Nothing + ( ParamNamed Nothing ( Name "useIt" ) :| [ ParamNamed Nothing ( Name "n" ) ] ) + ( IfThenElse Nothing + ( Ref Nothing ( Local ( Name "useIt" ) ) ) + ( Let Nothing + ( Standalone + ( Nothing, Name "shared", AppN Nothing + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported ( ModuleName "Golden.FloatIn.Test" ) ( Name "foreign" ) ) + ) + ( PropName "tick" ) + ) + ( Ref Nothing ( Local ( Name "n" ) ) :| [] ) + ) :| [] + ) ( Let Nothing ( Standalone - ( Nothing, Name "shared", AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported ( ModuleName "Golden.FloatIn.Test" ) ( Name "foreign" ) ) - ) - ( PropName "tick" ) - ) - ( Ref Nothing ( Local ( Name "n" ) ) :| [] ) - ) :| [] - ) - ( Let Nothing - ( Standalone - ( Nothing, Name "f", Abs Nothing ( ParamUnused Nothing ) + ( Nothing, Name "f", AbsN Nothing + ( ParamUnused Nothing :| [] ) + ( AppN Nothing ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Golden.FloatIn.Test" ) ( Name "add" ) ) - ) - ( Ref Nothing ( Local ( Name "shared" ) ) :| [] ) + ( Ref Nothing + ( Imported ( ModuleName "Golden.FloatIn.Test" ) ( Name "add" ) ) ) ( Ref Nothing ( Local ( Name "shared" ) ) :| [] ) ) - ) :| [] - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Golden.FloatIn.Test" ) ( Name "add" ) ) - ) - ( AppN Nothing - ( Ref Nothing ( Local ( Name "f" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing ( Imported ( ModuleName "Data.Unit" ) ( Name "foreign" ) ) ) - ( PropName "unit" ) :| [] - ) :| [] - ) + ( Ref Nothing ( Local ( Name "shared" ) ) :| [] ) ) + ) :| [] + ) + ( AppN Nothing + ( AppN Nothing + ( Ref Nothing ( Imported ( ModuleName "Golden.FloatIn.Test" ) ( Name "add" ) ) ) ( AppN Nothing ( Ref Nothing ( Local ( Name "f" ) ) ) ( ObjectProp ( Just Always ) @@ -345,16 +341,23 @@ UberModule ) :| [] ) ) + ( AppN Nothing + ( Ref Nothing ( Local ( Name "f" ) ) ) + ( ObjectProp ( Just Always ) + ( Ref Nothing ( Imported ( ModuleName "Data.Unit" ) ( Name "foreign" ) ) ) + ( PropName "unit" ) :| [] + ) :| [] + ) ) ) - ( LiteralInt Nothing 0 ) ) + ( LiteralInt Nothing 0 ) ) ), Standalone ( QName { qnameModuleName = ModuleName "Golden.FloatIn.Test", qnameName = Name "expensive" - }, Abs Nothing - ( ParamNamed Nothing ( Name "x" ) ) + }, AbsN Nothing + ( ParamNamed Nothing ( Name "x" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.FloatIn.Test" ) ( Name "add" ) ) ) @@ -375,32 +378,29 @@ UberModule ) ), Standalone ( QName - { qnameModuleName = ModuleName "Golden.FloatIn.Test", qnameName = Name "pick" - }, Abs Nothing - ( ParamNamed Nothing ( Name "useIt" ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "n" ) ) - ( IfThenElse Nothing - ( Ref Nothing ( Local ( Name "useIt" ) ) ) - ( Let Nothing - ( Standalone - ( Nothing, Name "shared", AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Golden.FloatIn.Test" ) ( Name "expensive" ) ) - ) - ( Ref Nothing ( Local ( Name "n" ) ) :| [] ) - ) :| [] - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing ( Imported ( ModuleName "Golden.FloatIn.Test" ) ( Name "add" ) ) ) - ( Ref Nothing ( Local ( Name "shared" ) ) :| [] ) + { qnameModuleName = ModuleName "Golden.FloatIn.Test", qnameName = Name "pick$w" + }, AbsN Nothing + ( ParamNamed Nothing ( Name "useIt" ) :| [ ParamNamed Nothing ( Name "n" ) ] ) + ( IfThenElse Nothing + ( Ref Nothing ( Local ( Name "useIt" ) ) ) + ( Let Nothing + ( Standalone + ( Nothing, Name "shared", AppN Nothing + ( Ref Nothing + ( Imported ( ModuleName "Golden.FloatIn.Test" ) ( Name "expensive" ) ) ) + ( Ref Nothing ( Local ( Name "n" ) ) :| [] ) + ) :| [] + ) + ( AppN Nothing + ( AppN Nothing + ( Ref Nothing ( Imported ( ModuleName "Golden.FloatIn.Test" ) ( Name "add" ) ) ) ( Ref Nothing ( Local ( Name "shared" ) ) :| [] ) ) + ( Ref Nothing ( Local ( Name "shared" ) ) :| [] ) ) - ( LiteralInt Nothing 0 ) ) + ( LiteralInt Nothing 0 ) ) ) ], uberModuleForeigns = [], uberModuleExports = @@ -412,13 +412,36 @@ UberModule ( Name "expensive", Ref Nothing ( Imported ( ModuleName "Golden.FloatIn.Test" ) ( Name "expensive" ) ) ), - ( Name "pick", Ref Nothing - ( Imported ( ModuleName "Golden.FloatIn.Test" ) ( Name "pick" ) ) + ( Name "pick", AbsN Nothing + ( ParamNamed Nothing ( Name "pick$p1$183" ) :| [] ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "pick$p2$184" ) :| [] ) + ( AppN Nothing + ( Ref Nothing ( Imported ( ModuleName "Golden.FloatIn.Test" ) ( Name "pick$w" ) ) ) + ( Ref Nothing + ( Local ( Name "pick$p1$183" ) ) :| + [ Ref Nothing ( Local ( Name "pick$p2$184" ) ) ] + ) + ) + ) ), - ( Name "pickShared", Ref Nothing - ( Imported ( ModuleName "Golden.FloatIn.Test" ) ( Name "pickShared" ) ) + ( Name "pickShared", AbsN Nothing + ( ParamNamed Nothing ( Name "pickShared$p1$185" ) :| [] ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "pickShared$p2$186" ) :| [] ) + ( AppN Nothing + ( Ref Nothing + ( Imported ( ModuleName "Golden.FloatIn.Test" ) ( Name "pickShared$w" ) ) + ) + ( Ref Nothing + ( Local ( Name "pickShared$p1$185" ) ) :| + [ Ref Nothing ( Local ( Name "pickShared$p2$186" ) ) ] + ) + ) + ) ), - ( Name "main", Abs Nothing ( ParamUnused Nothing ) + ( Name "main", AbsN Nothing + ( ParamUnused Nothing :| [] ) ( Let Nothing ( Standalone ( Nothing, Name "_", AppN Nothing @@ -427,13 +450,10 @@ UberModule ( Imported ( ModuleName "Golden.FloatIn.Test" ) ( Name "logShow" ) ) ) ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Golden.FloatIn.Test" ) ( Name "pick" ) ) - ) - ( LiteralBool Nothing True :| [] ) + ( Ref Nothing + ( Imported ( ModuleName "Golden.FloatIn.Test" ) ( Name "pick$w" ) ) ) - ( LiteralInt Nothing 3 :| [] ) :| [] + ( LiteralBool Nothing True :| [ LiteralInt Nothing 3 ] ) :| [] ) ) ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) @@ -445,13 +465,10 @@ UberModule ( Imported ( ModuleName "Golden.FloatIn.Test" ) ( Name "logShow" ) ) ) ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Golden.FloatIn.Test" ) ( Name "pick" ) ) - ) - ( LiteralBool Nothing False :| [] ) + ( Ref Nothing + ( Imported ( ModuleName "Golden.FloatIn.Test" ) ( Name "pick$w" ) ) ) - ( LiteralInt Nothing 3 :| [] ) :| [] + ( LiteralBool Nothing False :| [ LiteralInt Nothing 3 ] ) :| [] ) ) ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) @@ -462,13 +479,10 @@ UberModule ( Imported ( ModuleName "Golden.FloatIn.Test" ) ( Name "logShow" ) ) ) ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Golden.FloatIn.Test" ) ( Name "pickShared" ) ) - ) - ( LiteralBool Nothing True :| [] ) + ( Ref Nothing + ( Imported ( ModuleName "Golden.FloatIn.Test" ) ( Name "pickShared$w" ) ) ) - ( LiteralInt Nothing 3 :| [] ) :| [] + ( LiteralBool Nothing True :| [ LiteralInt Nothing 3 ] ) :| [] ) ) ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) @@ -479,13 +493,10 @@ UberModule ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.FloatIn.Test" ) ( Name "logShow" ) ) ) ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Golden.FloatIn.Test" ) ( Name "pickShared" ) ) - ) - ( LiteralBool Nothing False :| [] ) + ( Ref Nothing + ( Imported ( ModuleName "Golden.FloatIn.Test" ) ( Name "pickShared$w" ) ) ) - ( LiteralInt Nothing 3 :| [] ) :| [] + ( LiteralBool Nothing False :| [ LiteralInt Nothing 3 ] ) :| [] ) ) ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) diff --git a/test/ps/output/Golden.FloatIn.Test/golden.lua b/test/ps/output/Golden.FloatIn.Test/golden.lua index fdc2bffb..574bea49 100644 --- a/test/ps/output/Golden.FloatIn.Test/golden.lua +++ b/test/ps/output/Golden.FloatIn.Test/golden.lua @@ -86,33 +86,29 @@ M.Golden_FloatIn_Test_discard = M.Control_Bind_bind(M.Effect_bindEffect) M.Golden_FloatIn_Test_logShow = function(a_S_2) return M.Effect_Console_foreign.log(M.Data_Show_foreign.showIntImpl(a_S_2)) end -M.Golden_FloatIn_Test_pickShared = function(useIt) - return function(n) - if useIt then - local shared = M.Golden_FloatIn_Test_foreign.tick(n) - local f = function() return M.Golden_FloatIn_Test_add(shared)(shared) end - return M.Golden_FloatIn_Test_add(f(M.Data_Unit_foreign.unit))(f(M.Data_Unit_foreign.unit)) - else - return 0 - end +M.Golden_FloatIn_Test_pickShared_S_w = function(useIt, n) + if useIt then + local shared = M.Golden_FloatIn_Test_foreign.tick(n) + local f = function() return M.Golden_FloatIn_Test_add(shared)(shared) end + return M.Golden_FloatIn_Test_add(f(M.Data_Unit_foreign.unit))(f(M.Data_Unit_foreign.unit)) + else + return 0 end end M.Golden_FloatIn_Test_expensive = function(x) return M.Golden_FloatIn_Test_add(M.Data_Semiring_semiringInt.mul(x)(x))(1) end -M.Golden_FloatIn_Test_pick = function(useIt) - return function(n) - if useIt then - local shared = M.Golden_FloatIn_Test_expensive(n) - return M.Golden_FloatIn_Test_add(shared)(shared) - else - return 0 - end +M.Golden_FloatIn_Test_pick_S_w = function(useIt, n) + if useIt then + local shared = M.Golden_FloatIn_Test_expensive(n) + return M.Golden_FloatIn_Test_add(shared)(shared) + else + return 0 end end return (function() - local _ = M.Golden_FloatIn_Test_logShow(M.Golden_FloatIn_Test_pick(true)(3))() - local _ = M.Golden_FloatIn_Test_logShow(M.Golden_FloatIn_Test_pick(false)(3))() - local _ = M.Golden_FloatIn_Test_logShow(M.Golden_FloatIn_Test_pickShared(true)(3))() - return M.Golden_FloatIn_Test_logShow(M.Golden_FloatIn_Test_pickShared(false)(3))() + local _ = M.Golden_FloatIn_Test_logShow(M.Golden_FloatIn_Test_pick_S_w(true, 3))() + local _ = M.Golden_FloatIn_Test_logShow(M.Golden_FloatIn_Test_pick_S_w(false, 3))() + local _ = M.Golden_FloatIn_Test_logShow(M.Golden_FloatIn_Test_pickShared_S_w(true, 3))() + return M.Golden_FloatIn_Test_logShow(M.Golden_FloatIn_Test_pickShared_S_w(false, 3))() end)() diff --git a/test/ps/output/Golden.ForeignSharing.Test/golden.ir b/test/ps/output/Golden.ForeignSharing.Test/golden.ir index 2297dffc..5f24e8cc 100644 --- a/test/ps/output/Golden.ForeignSharing.Test/golden.ir +++ b/test/ps/output/Golden.ForeignSharing.Test/golden.ir @@ -21,7 +21,8 @@ UberModule ), Standalone ( QName { qnameModuleName = ModuleName "Golden.ForeignSharing.Test", qnameName = Name "sharedToken" - }, Abs Nothing ( ParamUnused Nothing ) + }, AbsN Nothing + ( ParamUnused Nothing :| [] ) ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Golden.ForeignSharing.Token" ) ( Name "foreign" ) ) diff --git a/test/ps/output/Golden.GenericEqTwoTypes.Test/golden.ir b/test/ps/output/Golden.GenericEqTwoTypes.Test/golden.ir index fd5e5e75..d1498cae 100644 --- a/test/ps/output/Golden.GenericEqTwoTypes.Test/golden.ir +++ b/test/ps/output/Golden.GenericEqTwoTypes.Test/golden.ir @@ -45,10 +45,10 @@ UberModule [ ( PropName "ff", LiteralBool Nothing False ), ( PropName "tt", LiteralBool Nothing True ), - ( PropName "implies", Abs Nothing - ( ParamNamed Nothing ( Name "a" ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "b" ) ) + ( PropName "implies", AbsN Nothing + ( ParamNamed Nothing ( Name "a" ) :| [] ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "b" ) :| [] ) ( AppN Nothing ( AppN Nothing ( ObjectProp Nothing @@ -93,8 +93,8 @@ UberModule ) :| [] ), Standalone ( QName - { qnameModuleName = ModuleName "Data.Eq", qnameName = Name "eqRecord" }, Abs Nothing - ( ParamNamed Nothing ( Name "dict" ) ) + { qnameModuleName = ModuleName "Data.Eq", qnameName = Name "eqRecord" }, AbsN Nothing + ( ParamNamed Nothing ( Name "dict" ) :| [] ) ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "dict" ) ) ) ( PropName "eqRecord" ) ) ), Standalone ( QName @@ -107,115 +107,113 @@ UberModule ] ), Standalone ( QName - { qnameModuleName = ModuleName "Data.Eq", qnameName = Name "eq" }, Abs Nothing - ( ParamNamed Nothing ( Name "dict" ) ) + { qnameModuleName = ModuleName "Data.Eq", qnameName = Name "eq" }, AbsN Nothing + ( ParamNamed Nothing ( Name "dict" ) :| [] ) ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "dict" ) ) ) ( PropName "eq" ) ) ), Standalone ( QName - { qnameModuleName = ModuleName "Data.Eq", qnameName = Name "eqRowCons" }, Abs Nothing - ( ParamNamed Nothing ( Name "dictEqRecord" ) ) - ( Abs Nothing ( ParamUnused Nothing ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "dictIsSymbol" ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "dictEq" ) ) - ( LiteralObject Nothing - [ - ( PropName "eqRecord", Abs Nothing ( ParamUnused Nothing ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "ra" ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "rb" ) ) - ( Let Nothing - ( Standalone - ( Nothing, Name "key", AppN Nothing - ( ObjectProp Nothing - ( Ref Nothing ( Local ( Name "dictIsSymbol" ) ) ) - ( PropName "reflectSymbol" ) - ) - ( Ref Nothing - ( Imported ( ModuleName "Type.Proxy" ) ( Name "Proxy" ) ) :| [] - ) - ) :| - [ Standalone - ( Nothing, Name "get", AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported ( ModuleName "Record.Unsafe" ) ( Name "foreign" ) ) - ) - ( PropName "unsafeGet" ) - ) - ( Ref Nothing ( Local ( Name "key" ) ) :| [] ) - ) - ] + { qnameModuleName = ModuleName "Data.Eq", qnameName = Name "eqRowCons$w" }, AbsN Nothing + ( ParamNamed Nothing + ( Name "dictEqRecord" ) :| + [ ParamNamed Nothing + ( Name "eqRowCons$u2" ), ParamNamed Nothing + ( Name "dictIsSymbol" ), ParamNamed Nothing + ( Name "dictEq" ) + ] + ) + ( LiteralObject Nothing + [ + ( PropName "eqRecord", AbsN Nothing + ( ParamUnused Nothing :| [] ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "ra" ) :| [] ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "rb" ) :| [] ) + ( Let Nothing + ( Standalone + ( Nothing, Name "key", AppN Nothing + ( ObjectProp Nothing + ( Ref Nothing ( Local ( Name "dictIsSymbol" ) ) ) + ( PropName "reflectSymbol" ) + ) + ( Ref Nothing + ( Imported ( ModuleName "Type.Proxy" ) ( Name "Proxy" ) ) :| [] + ) + ) :| + [ Standalone + ( Nothing, Name "get", AppN Nothing + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported ( ModuleName "Record.Unsafe" ) ( Name "foreign" ) ) + ) + ( PropName "unsafeGet" ) ) + ( Ref Nothing ( Local ( Name "key" ) ) :| [] ) + ) + ] + ) + ( AppN Nothing + ( AppN Nothing + ( ObjectProp Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.HeytingAlgebra" ) + ( Name "heytingAlgebraBoolean" ) + ) + ) + ( PropName "conj" ) + ) + ( AppN Nothing ( AppN Nothing ( AppN Nothing - ( ObjectProp Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.HeytingAlgebra" ) - ( Name "heytingAlgebraBoolean" ) - ) - ) - ( PropName "conj" ) - ) - ( AppN Nothing - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Data.Eq" ) ( Name "eq" ) ) - ) - ( Ref Nothing ( Local ( Name "dictEq" ) ) :| [] ) - ) - ( AppN Nothing - ( Ref Nothing ( Local ( Name "get" ) ) ) - ( Ref Nothing ( Local ( Name "ra" ) ) :| [] ) :| [] - ) - ) - ( AppN Nothing - ( Ref Nothing ( Local ( Name "get" ) ) ) - ( Ref Nothing ( Local ( Name "rb" ) ) :| [] ) :| [] - ) :| [] - ) + ( Ref Nothing ( Imported ( ModuleName "Data.Eq" ) ( Name "eq" ) ) ) + ( Ref Nothing ( Local ( Name "dictEq" ) ) :| [] ) ) ( AppN Nothing - ( AppN Nothing - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Data.Eq" ) ( Name "eqRecord" ) ) - ) - ( Ref Nothing ( Local ( Name "dictEqRecord" ) ) :| [] ) - ) - ( Ref Nothing - ( Imported ( ModuleName "Type.Proxy" ) ( Name "Proxy" ) ) :| [] - ) - ) - ( Ref Nothing ( Local ( Name "ra" ) ) :| [] ) + ( Ref Nothing ( Local ( Name "get" ) ) ) + ( Ref Nothing ( Local ( Name "ra" ) ) :| [] ) :| [] + ) + ) + ( AppN Nothing + ( Ref Nothing ( Local ( Name "get" ) ) ) + ( Ref Nothing ( Local ( Name "rb" ) ) :| [] ) :| [] + ) :| [] + ) + ) + ( AppN Nothing + ( AppN Nothing + ( AppN Nothing + ( AppN Nothing + ( Ref Nothing + ( Imported ( ModuleName "Data.Eq" ) ( Name "eqRecord" ) ) ) - ( Ref Nothing ( Local ( Name "rb" ) ) :| [] ) :| [] + ( Ref Nothing ( Local ( Name "dictEqRecord" ) ) :| [] ) + ) + ( Ref Nothing + ( Imported ( ModuleName "Type.Proxy" ) ( Name "Proxy" ) ) :| [] ) ) + ( Ref Nothing ( Local ( Name "ra" ) ) :| [] ) ) + ( Ref Nothing ( Local ( Name "rb" ) ) :| [] ) :| [] ) ) ) - ] + ) ) ) - ) + ] ) ), Standalone ( QName { qnameModuleName = ModuleName "Control.Applicative", qnameName = Name "pure" - }, Abs Nothing - ( ParamNamed Nothing ( Name "dict" ) ) + }, AbsN Nothing + ( ParamNamed Nothing ( Name "dict" ) :| [] ) ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "dict" ) ) ) ( PropName "pure" ) ) ), Standalone ( QName - { qnameModuleName = ModuleName "Control.Bind", qnameName = Name "bind" }, Abs Nothing - ( ParamNamed Nothing ( Name "dict" ) ) + { qnameModuleName = ModuleName "Control.Bind", qnameName = Name "bind" }, AbsN Nothing + ( ParamNamed Nothing ( Name "dict" ) :| [] ) ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "dict" ) ) ) ( PropName "bind" ) ) ), Standalone ( QName @@ -243,14 +241,14 @@ UberModule ), Standalone ( QName { qnameModuleName = ModuleName "Data.Eq.Generic", qnameName = Name "genericEqArgument" - }, Abs Nothing - ( ParamNamed Nothing ( Name "dictEq" ) ) + }, AbsN Nothing + ( ParamNamed Nothing ( Name "dictEq" ) :| [] ) ( LiteralObject Nothing [ - ( PropName "genericEq'", Abs Nothing - ( ParamNamed Nothing ( Name "v" ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "v1" ) ) + ( PropName "genericEq'", AbsN Nothing + ( ParamNamed Nothing ( Name "v" ) :| [] ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "v1" ) :| [] ) ( AppN Nothing ( AppN Nothing ( AppN Nothing @@ -268,20 +266,20 @@ UberModule ), Standalone ( QName { qnameModuleName = ModuleName "Data.Eq.Generic", qnameName = Name "genericEq'" - }, Abs Nothing - ( ParamNamed Nothing ( Name "dict" ) ) + }, AbsN Nothing + ( ParamNamed Nothing ( Name "dict" ) :| [] ) ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "dict" ) ) ) ( PropName "genericEq'" ) ) ), Standalone ( QName { qnameModuleName = ModuleName "Data.Eq.Generic", qnameName = Name "genericEqConstructor" - }, Abs Nothing - ( ParamNamed Nothing ( Name "dictGenericEq" ) ) + }, AbsN Nothing + ( ParamNamed Nothing ( Name "dictGenericEq" ) :| [] ) ( LiteralObject Nothing [ - ( PropName "genericEq'", Abs Nothing - ( ParamNamed Nothing ( Name "v" ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "v1" ) ) + ( PropName "genericEq'", AbsN Nothing + ( ParamNamed Nothing ( Name "v" ) :| [] ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "v1" ) :| [] ) ( AppN Nothing ( AppN Nothing ( AppN Nothing @@ -301,8 +299,8 @@ UberModule ), Standalone ( QName { qnameModuleName = ModuleName "Data.Eq.Generic", qnameName = Name "genericEq" - }, Abs Nothing - ( ParamNamed Nothing ( Name "dictGeneric" ) ) + }, AbsN Nothing + ( ParamNamed Nothing ( Name "dictGeneric" ) :| [] ) ( Let Nothing ( Standalone ( Nothing, Name "from", ObjectProp Nothing @@ -310,12 +308,12 @@ UberModule ( PropName "from" ) ) :| [] ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "dictGenericEq" ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x" ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "y" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "dictGenericEq" ) :| [] ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x" ) :| [] ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "y" ) :| [] ) ( AppN Nothing ( AppN Nothing ( AppN Nothing @@ -344,10 +342,12 @@ UberModule { qnameModuleName = ModuleName "Effect", qnameName = Name "monadEffect" }, LiteralObject Nothing [ - ( PropName "Applicative0", Abs Nothing ( ParamUnused Nothing ) + ( PropName "Applicative0", AbsN Nothing + ( ParamUnused Nothing :| [] ) ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "applicativeEffect" ) ) ) ), - ( PropName "Bind1", Abs Nothing ( ParamUnused Nothing ) + ( PropName "Bind1", AbsN Nothing + ( ParamUnused Nothing :| [] ) ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "bindEffect" ) ) ) ) ] @@ -361,7 +361,8 @@ UberModule ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "foreign" ) ) ) ( PropName "bindE" ) ), - ( PropName "Apply0", Abs Nothing ( ParamUnused Nothing ) + ( PropName "Apply0", AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "Lazy_applyEffect" ) ) ) ( LiteralInt Nothing 0 :| [] ) @@ -377,7 +378,8 @@ UberModule ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "foreign" ) ) ) ( PropName "pureE" ) ), - ( PropName "Apply0", Abs Nothing ( ParamUnused Nothing ) + ( PropName "Apply0", AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "Lazy_applyEffect" ) ) ) ( LiteralInt Nothing 0 :| [] ) @@ -392,13 +394,14 @@ UberModule ( Ref Nothing ( Local ( Name "PSLUA_runtime_lazy" ) ) ) ( LiteralString Nothing "functorEffect" :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( LiteralObject Nothing [ - ( PropName "map", Abs Nothing - ( ParamNamed Nothing ( Name "f$42" ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "a$43" ) ) + ( PropName "map", AbsN Nothing + ( ParamNamed Nothing ( Name "f$42" ) :| [] ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "a$43" ) :| [] ) ( AppN Nothing ( AppN Nothing ( ObjectProp Nothing @@ -445,7 +448,8 @@ UberModule ( Ref Nothing ( Local ( Name "PSLUA_runtime_lazy" ) ) ) ( LiteralString Nothing "applyEffect" :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( LiteralObject Nothing [ ( PropName "apply", Let Nothing @@ -465,24 +469,24 @@ UberModule ) ) :| [] ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "f$23" ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "a$24" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "f$23" ) :| [] ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "a$24" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing ( Local ( Name "bind$21" ) ) ) ( Ref Nothing ( Local ( Name "f$23" ) ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "f'$25" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "f'$25" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing ( Local ( Name "bind$21" ) ) ) ( Ref Nothing ( Local ( Name "a$24" ) ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "a'$26" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "a'$26" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -521,7 +525,8 @@ UberModule ) ) ), - ( PropName "Functor0", Abs Nothing ( ParamUnused Nothing ) + ( PropName "Functor0", AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "Lazy_functorEffect" ) ) @@ -537,14 +542,14 @@ UberModule ), Standalone ( QName { qnameModuleName = ModuleName "Golden.GenericEqTwoTypes.Test", qnameName = Name "genericEqSum" - }, Abs Nothing - ( ParamNamed Nothing ( Name "dictGenericEq1$5" ) ) + }, AbsN Nothing + ( ParamNamed Nothing ( Name "dictGenericEq1$5" ) :| [] ) ( LiteralObject Nothing [ - ( PropName "genericEq'", Abs Nothing - ( ParamNamed Nothing ( Name "v$7" ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "v1$8" ) ) + ( PropName "genericEq'", AbsN Nothing + ( ParamNamed Nothing ( Name "v$7" ) :| [] ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "v1$8" ) :| [] ) ( IfThenElse Nothing ( Eq Nothing ( LiteralString Nothing "Data.Generic.Rep∷Sum.Inl" ) @@ -570,8 +575,11 @@ UberModule ) ( LiteralObject Nothing [ - ( PropName "genericEq'", Abs Nothing ( ParamUnused Nothing ) - ( Abs Nothing ( ParamUnused Nothing ) ( LiteralBool Nothing True ) ) + ( PropName "genericEq'", AbsN Nothing + ( ParamUnused Nothing :| [] ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( LiteralBool Nothing True ) + ) ) ] :| [] ) :| [] @@ -626,8 +634,8 @@ UberModule ), Standalone ( QName { qnameModuleName = ModuleName "Golden.GenericEqTwoTypes.Test", qnameName = Name "eqRec" - }, Abs Nothing - ( ParamNamed Nothing ( Name "dictEqRecord$193" ) ) + }, AbsN Nothing + ( ParamNamed Nothing ( Name "dictEqRecord$193" ) :| [] ) ( LiteralObject Nothing [ ( PropName "eq", AppN Nothing @@ -642,20 +650,30 @@ UberModule ), Standalone ( QName { qnameModuleName = ModuleName "Golden.GenericEqTwoTypes.Test", qnameName = Name "eqRowCons" - }, AppN Nothing - ( AppN Nothing - ( Ref Nothing ( Imported ( ModuleName "Data.Eq" ) ( Name "eqRowCons" ) ) ) - ( LiteralObject Nothing - [ - ( PropName "eqRecord", Abs Nothing ( ParamUnused Nothing ) - ( Abs Nothing ( ParamUnused Nothing ) - ( Abs Nothing ( ParamUnused Nothing ) ( LiteralBool Nothing True ) ) + }, AbsN Nothing + ( ParamNamed Nothing ( Name "eqRowCons$p3$205" ) :| [] ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "eqRowCons$p4$206" ) :| [] ) + ( AppN Nothing + ( Ref Nothing ( Imported ( ModuleName "Data.Eq" ) ( Name "eqRowCons$w" ) ) ) + ( LiteralObject Nothing + [ + ( PropName "eqRecord", AbsN Nothing + ( ParamUnused Nothing :| [] ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) + ( AbsN Nothing ( ParamUnused Nothing :| [] ) ( LiteralBool Nothing True ) ) + ) ) - ) - ] :| [] + ] :| + [ Ref Nothing + ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ), Ref Nothing + ( Local ( Name "eqRowCons$p3$205" ) ), Ref Nothing + ( Local ( Name "eqRowCons$p4$206" ) ) + ] + ) ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ), Standalone ( QName { qnameModuleName = ModuleName "Golden.GenericEqTwoTypes.Test", qnameName = Name "discard" @@ -665,8 +683,8 @@ UberModule ), Standalone ( QName { qnameModuleName = ModuleName "Golden.GenericEqTwoTypes.Test", qnameName = Name "logShow" - }, Abs Nothing - ( ParamNamed Nothing ( Name "a$2" ) ) + }, AbsN Nothing + ( ParamNamed Nothing ( Name "a$2" ) :| [] ) ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) @@ -714,25 +732,22 @@ UberModule [ FieldName "value0" ] ), Standalone ( QName - { qnameModuleName = ModuleName "Golden.GenericEqTwoTypes.Test", qnameName = Name "node" - }, Abs Nothing - ( ParamNamed Nothing ( Name "left" ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "value" ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "right" ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Golden.GenericEqTwoTypes.Test" ) ( Name "Node" ) ) - ) - ( LiteralObject Nothing - [ - ( PropName "left", Ref Nothing ( Local ( Name "left" ) ) ), - ( PropName "value", Ref Nothing ( Local ( Name "value" ) ) ), - ( PropName "right", Ref Nothing ( Local ( Name "right" ) ) ) - ] :| [] - ) - ) + { qnameModuleName = ModuleName "Golden.GenericEqTwoTypes.Test", qnameName = Name "node$w" + }, AbsN Nothing + ( ParamNamed Nothing + ( Name "left" ) :| + [ ParamNamed Nothing ( Name "value" ), ParamNamed Nothing ( Name "right" ) ] + ) + ( AppN Nothing + ( Ref Nothing + ( Imported ( ModuleName "Golden.GenericEqTwoTypes.Test" ) ( Name "Node" ) ) + ) + ( LiteralObject Nothing + [ + ( PropName "left", Ref Nothing ( Local ( Name "left" ) ) ), + ( PropName "value", Ref Nothing ( Local ( Name "value" ) ) ), + ( PropName "right", Ref Nothing ( Local ( Name "right" ) ) ) + ] :| [] ) ) ), Standalone @@ -740,8 +755,8 @@ UberModule { qnameModuleName = ModuleName "Golden.GenericEqTwoTypes.Test", qnameName = Name "genericTree" }, LiteralObject Nothing [ - ( PropName "to", Abs Nothing - ( ParamNamed Nothing ( Name "x" ) ) + ( PropName "to", AbsN Nothing + ( ParamNamed Nothing ( Name "x" ) :| [] ) ( IfThenElse Nothing ( Eq Nothing ( LiteralString Nothing "Data.Generic.Rep∷Sum.Inl" ) @@ -768,8 +783,8 @@ UberModule ) ) ), - ( PropName "from", Abs Nothing - ( ParamNamed Nothing ( Name "x0" ) ) + ( PropName "from", AbsN Nothing + ( ParamNamed Nothing ( Name "x0" ) :| [] ) ( IfThenElse Nothing ( Eq Nothing ( LiteralString Nothing "Golden.GenericEqTwoTypes.Test∷Tree.Leaf" ) @@ -803,8 +818,8 @@ UberModule { qnameModuleName = ModuleName "Golden.GenericEqTwoTypes.Test", qnameName = Name "genericList" }, LiteralObject Nothing [ - ( PropName "to", Abs Nothing - ( ParamNamed Nothing ( Name "x" ) ) + ( PropName "to", AbsN Nothing + ( ParamNamed Nothing ( Name "x" ) :| [] ) ( IfThenElse Nothing ( Eq Nothing ( LiteralString Nothing "Data.Generic.Rep∷Sum.Inl" ) @@ -831,8 +846,8 @@ UberModule ) ) ), - ( PropName "from", Abs Nothing - ( ParamNamed Nothing ( Name "x0" ) ) + ( PropName "from", AbsN Nothing + ( ParamNamed Nothing ( Name "x0" ) :| [] ) ( IfThenElse Nothing ( Eq Nothing ( LiteralString Nothing "Golden.GenericEqTwoTypes.Test∷List.Nil" ) @@ -865,14 +880,14 @@ UberModule ( ( QName { qnameModuleName = ModuleName "Golden.GenericEqTwoTypes.Test", qnameName = Name "eqTree" - }, Abs Nothing - ( ParamNamed Nothing ( Name "dictEq" ) ) + }, AbsN Nothing + ( ParamNamed Nothing ( Name "dictEq" ) :| [] ) ( LiteralObject Nothing [ - ( PropName "eq", Abs Nothing - ( ParamNamed Nothing ( Name "x" ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "y" ) ) + ( PropName "eq", AbsN Nothing + ( ParamNamed Nothing ( Name "x" ) :| [] ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "y" ) :| [] ) ( AppN Nothing ( AppN Nothing ( AppN Nothing @@ -916,92 +931,70 @@ UberModule ) ) ( AppN Nothing + ( Ref Nothing + ( Imported ( ModuleName "Data.Eq" ) ( Name "eqRowCons$w" ) ) + ) ( AppN Nothing + ( Ref Nothing + ( Imported ( ModuleName "Data.Eq" ) ( Name "eqRowCons$w" ) ) + ) ( AppN Nothing ( AppN Nothing ( Ref Nothing - ( Imported ( ModuleName "Data.Eq" ) ( Name "eqRowCons" ) ) - ) - ( AppN Nothing - ( AppN Nothing - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Eq" ) - ( Name "eqRowCons" ) - ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.GenericEqTwoTypes.Test" ) - ( Name "eqRowCons" ) - ) - ) - ( LiteralObject Nothing - [ - ( PropName "reflectSymbol", Abs Nothing ( ParamUnused Nothing ) - ( LiteralString Nothing "value" ) - ) - ] :| [] - ) - ) - ( Ref Nothing - ( Local ( Name "dictEq" ) ) :| [] - ) :| [] - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Prim" ) - ( Name "undefined" ) - ) :| [] - ) - ) - ( LiteralObject Nothing - [ - ( PropName "reflectSymbol", Abs Nothing ( ParamUnused Nothing ) - ( LiteralString Nothing "right" ) - ) - ] :| [] - ) + ( Imported + ( ModuleName "Golden.GenericEqTwoTypes.Test" ) + ( Name "eqRowCons" ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.GenericEqTwoTypes.Test" ) - ( Name "eqTree" ) - ) + ) + ( LiteralObject Nothing + [ + ( PropName "reflectSymbol", AbsN Nothing + ( ParamUnused Nothing :| [] ) + ( LiteralString Nothing "value" ) ) - ( Ref Nothing ( Local ( Name "dictEq" ) ) :| [] ) :| [] - ) :| [] + ] :| [] ) ) - ( Ref Nothing + ( Ref Nothing ( Local ( Name "dictEq" ) ) :| [] ) :| + [ Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) - ) :| [] - ) - ) - ( LiteralObject Nothing + ), LiteralObject Nothing + [ + ( PropName "reflectSymbol", AbsN Nothing + ( ParamUnused Nothing :| [] ) + ( LiteralString Nothing "right" ) + ) + ], AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.GenericEqTwoTypes.Test" ) + ( Name "eqTree" ) + ) + ) + ( Ref Nothing ( Local ( Name "dictEq" ) ) :| [] ) + ] + ) :| + [ Ref Nothing + ( Imported + ( ModuleName "Prim" ) + ( Name "undefined" ) + ), LiteralObject Nothing [ - ( PropName "reflectSymbol", Abs Nothing ( ParamUnused Nothing ) + ( PropName "reflectSymbol", AbsN Nothing + ( ParamUnused Nothing :| [] ) ( LiteralString Nothing "left" ) ) - ] :| [] - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.GenericEqTwoTypes.Test" ) - ( Name "eqTree" ) + ], AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.GenericEqTwoTypes.Test" ) + ( Name "eqTree" ) + ) ) - ) - ( Ref Nothing ( Local ( Name "dictEq" ) ) :| [] ) :| [] + ( Ref Nothing ( Local ( Name "dictEq" ) ) :| [] ) + ] ) :| [] ) :| [] ) :| [] @@ -1033,14 +1026,14 @@ UberModule ( ( QName { qnameModuleName = ModuleName "Golden.GenericEqTwoTypes.Test", qnameName = Name "eqList" - }, Abs Nothing - ( ParamNamed Nothing ( Name "dictEq" ) ) + }, AbsN Nothing + ( ParamNamed Nothing ( Name "dictEq" ) :| [] ) ( LiteralObject Nothing [ - ( PropName "eq", Abs Nothing - ( ParamNamed Nothing ( Name "x" ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "y" ) ) + ( PropName "eq", AbsN Nothing + ( ParamNamed Nothing ( Name "x" ) :| [] ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "y" ) :| [] ) ( AppN Nothing ( AppN Nothing ( AppN Nothing @@ -1084,55 +1077,49 @@ UberModule ) ) ( AppN Nothing + ( Ref Nothing + ( Imported ( ModuleName "Data.Eq" ) ( Name "eqRowCons$w" ) ) + ) ( AppN Nothing ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Data.Eq" ) ( Name "eqRowCons" ) ) + ( Ref Nothing + ( Imported + ( ModuleName "Golden.GenericEqTwoTypes.Test" ) + ( Name "eqRowCons" ) ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.GenericEqTwoTypes.Test" ) - ( Name "eqRowCons" ) - ) - ) - ( LiteralObject Nothing - [ - ( PropName "reflectSymbol", Abs Nothing ( ParamUnused Nothing ) - ( LiteralString Nothing "tail" ) - ) - ] :| [] - ) + ) + ( LiteralObject Nothing + [ + ( PropName "reflectSymbol", AbsN Nothing + ( ParamUnused Nothing :| [] ) + ( LiteralString Nothing "tail" ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.GenericEqTwoTypes.Test" ) - ( Name "eqList" ) - ) - ) - ( Ref Nothing ( Local ( Name "dictEq" ) ) :| [] ) :| [] - ) :| [] - ) + ] :| [] ) + ) + ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Prim" ) - ( Name "undefined" ) - ) :| [] + ( ModuleName "Golden.GenericEqTwoTypes.Test" ) + ( Name "eqList" ) + ) ) - ) - ( LiteralObject Nothing + ( Ref Nothing ( Local ( Name "dictEq" ) ) :| [] ) :| [] + ) :| + [ Ref Nothing + ( Imported + ( ModuleName "Prim" ) + ( Name "undefined" ) + ), LiteralObject Nothing [ - ( PropName "reflectSymbol", Abs Nothing ( ParamUnused Nothing ) + ( PropName "reflectSymbol", AbsN Nothing + ( ParamUnused Nothing :| [] ) ( LiteralString Nothing "head" ) ) - ] :| [] - ) - ) - ( Ref Nothing ( Local ( Name "dictEq" ) ) :| [] ) :| [] + ], Ref Nothing + ( Local ( Name "dictEq" ) ) + ] + ) :| [] ) :| [] ) :| [] ) :| [] @@ -1161,21 +1148,18 @@ UberModule ) ), Standalone ( QName - { qnameModuleName = ModuleName "Golden.GenericEqTwoTypes.Test", qnameName = Name "cons" - }, Abs Nothing - ( ParamNamed Nothing ( Name "head" ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "tail" ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Golden.GenericEqTwoTypes.Test" ) ( Name "Cons" ) ) - ) - ( LiteralObject Nothing - [ - ( PropName "head", Ref Nothing ( Local ( Name "head" ) ) ), - ( PropName "tail", Ref Nothing ( Local ( Name "tail" ) ) ) - ] :| [] - ) + { qnameModuleName = ModuleName "Golden.GenericEqTwoTypes.Test", qnameName = Name "cons$w" + }, AbsN Nothing + ( ParamNamed Nothing ( Name "head" ) :| [ ParamNamed Nothing ( Name "tail" ) ] ) + ( AppN Nothing + ( Ref Nothing + ( Imported ( ModuleName "Golden.GenericEqTwoTypes.Test" ) ( Name "Cons" ) ) + ) + ( LiteralObject Nothing + [ + ( PropName "head", Ref Nothing ( Local ( Name "head" ) ) ), + ( PropName "tail", Ref Nothing ( Local ( Name "tail" ) ) ) + ] :| [] ) ) ) @@ -1187,8 +1171,20 @@ UberModule ( Name "Cons", Ref Nothing ( Imported ( ModuleName "Golden.GenericEqTwoTypes.Test" ) ( Name "Cons" ) ) ), - ( Name "cons", Ref Nothing - ( Imported ( ModuleName "Golden.GenericEqTwoTypes.Test" ) ( Name "cons" ) ) + ( Name "cons", AbsN Nothing + ( ParamNamed Nothing ( Name "cons$p1$198" ) :| [] ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "cons$p2$199" ) :| [] ) + ( AppN Nothing + ( Ref Nothing + ( Imported ( ModuleName "Golden.GenericEqTwoTypes.Test" ) ( Name "cons$w" ) ) + ) + ( Ref Nothing + ( Local ( Name "cons$p1$198" ) ) :| + [ Ref Nothing ( Local ( Name "cons$p2$199" ) ) ] + ) + ) + ) ), ( Name "Leaf", Ref Nothing ( Imported ( ModuleName "Golden.GenericEqTwoTypes.Test" ) ( Name "Leaf" ) ) @@ -1196,10 +1192,29 @@ UberModule ( Name "Node", Ref Nothing ( Imported ( ModuleName "Golden.GenericEqTwoTypes.Test" ) ( Name "Node" ) ) ), - ( Name "node", Ref Nothing - ( Imported ( ModuleName "Golden.GenericEqTwoTypes.Test" ) ( Name "node" ) ) + ( Name "node", AbsN Nothing + ( ParamNamed Nothing ( Name "node$p1$200" ) :| [] ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "node$p2$201" ) :| [] ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "node$p3$202" ) :| [] ) + ( AppN Nothing + ( Ref Nothing + ( Imported ( ModuleName "Golden.GenericEqTwoTypes.Test" ) ( Name "node$w" ) ) + ) + ( Ref Nothing + ( Local ( Name "node$p1$200" ) ) :| + [ Ref Nothing + ( Local ( Name "node$p2$201" ) ), Ref Nothing + ( Local ( Name "node$p3$202" ) ) + ] + ) + ) + ) + ) ), - ( Name "main", Abs Nothing ( ParamUnused Nothing ) + ( Name "main", AbsN Nothing + ( ParamUnused Nothing :| [] ) ( Let Nothing ( Standalone ( Nothing, Name "_", AppN Nothing @@ -1213,57 +1228,53 @@ UberModule ( Imported ( ModuleName "Golden.GenericEqTwoTypes.Test" ) ( Name "eq1" ) ) ) ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.GenericEqTwoTypes.Test" ) - ( Name "cons" ) - ) + ( Ref Nothing + ( Imported + ( ModuleName "Golden.GenericEqTwoTypes.Test" ) + ( Name "cons$w" ) ) - ( LiteralInt Nothing 1 :| [] ) ) - ( AppN Nothing - ( AppN Nothing + ( LiteralInt Nothing 1 :| + [ AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.GenericEqTwoTypes.Test" ) - ( Name "cons" ) + ( Name "cons$w" ) ) ) - ( LiteralInt Nothing 2 :| [] ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.GenericEqTwoTypes.Test" ) - ( Name "Nil" ) - ) :| [] - ) :| [] + ( LiteralInt Nothing 2 :| + [ Ref Nothing + ( Imported + ( ModuleName "Golden.GenericEqTwoTypes.Test" ) + ( Name "Nil" ) + ) + ] + ) + ] ) :| [] ) ) ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Golden.GenericEqTwoTypes.Test" ) ( Name "cons" ) ) - ) - ( LiteralInt Nothing 1 :| [] ) + ( Ref Nothing + ( Imported ( ModuleName "Golden.GenericEqTwoTypes.Test" ) ( Name "cons$w" ) ) ) - ( AppN Nothing - ( AppN Nothing + ( LiteralInt Nothing 1 :| + [ AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.GenericEqTwoTypes.Test" ) - ( Name "cons" ) + ( Name "cons$w" ) ) ) - ( LiteralInt Nothing 2 :| [] ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.GenericEqTwoTypes.Test" ) - ( Name "Nil" ) - ) :| [] - ) :| [] + ( LiteralInt Nothing 2 :| + [ Ref Nothing + ( Imported + ( ModuleName "Golden.GenericEqTwoTypes.Test" ) + ( Name "Nil" ) + ) + ] + ) + ] ) :| [] ) :| [] ) @@ -1282,38 +1293,33 @@ UberModule ( Imported ( ModuleName "Golden.GenericEqTwoTypes.Test" ) ( Name "eq1" ) ) ) ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.GenericEqTwoTypes.Test" ) - ( Name "cons" ) - ) - ) - ( LiteralInt Nothing 1 :| [] ) - ) ( Ref Nothing ( Imported ( ModuleName "Golden.GenericEqTwoTypes.Test" ) - ( Name "Nil" ) - ) :| [] + ( Name "cons$w" ) + ) + ) + ( LiteralInt Nothing 1 :| + [ Ref Nothing + ( Imported + ( ModuleName "Golden.GenericEqTwoTypes.Test" ) + ( Name "Nil" ) + ) + ] ) :| [] ) ) ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.GenericEqTwoTypes.Test" ) - ( Name "cons" ) - ) - ) - ( LiteralInt Nothing 2 :| [] ) - ) ( Ref Nothing ( Imported ( ModuleName "Golden.GenericEqTwoTypes.Test" ) - ( Name "Nil" ) - ) :| [] + ( Name "cons$w" ) + ) + ) + ( LiteralInt Nothing 2 :| + [ Ref Nothing + ( Imported ( ModuleName "Golden.GenericEqTwoTypes.Test" ) ( Name "Nil" ) ) + ] ) :| [] ) :| [] ) @@ -1331,92 +1337,72 @@ UberModule ( Imported ( ModuleName "Golden.GenericEqTwoTypes.Test" ) ( Name "eq" ) ) ) ( AppN Nothing - ( AppN Nothing - ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.GenericEqTwoTypes.Test" ) + ( Name "node$w" ) + ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Golden.GenericEqTwoTypes.Test" ) + ( Name "Leaf" ) + ) :| + [ LiteralInt Nothing 1, AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.GenericEqTwoTypes.Test" ) - ( Name "node" ) + ( Name "node$w" ) ) ) ( Ref Nothing ( Imported ( ModuleName "Golden.GenericEqTwoTypes.Test" ) ( Name "Leaf" ) - ) :| [] - ) - ) - ( LiteralInt Nothing 1 :| [] ) - ) - ( AppN Nothing - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.GenericEqTwoTypes.Test" ) - ( Name "node" ) - ) - ) - ( Ref Nothing + ) :| + [ LiteralInt Nothing 2, Ref Nothing ( Imported ( ModuleName "Golden.GenericEqTwoTypes.Test" ) ( Name "Leaf" ) - ) :| [] - ) + ) + ] ) - ( LiteralInt Nothing 2 :| [] ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.GenericEqTwoTypes.Test" ) - ( Name "Leaf" ) - ) :| [] - ) :| [] + ] ) :| [] ) ) ( AppN Nothing - ( AppN Nothing - ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.GenericEqTwoTypes.Test" ) + ( Name "node$w" ) + ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Golden.GenericEqTwoTypes.Test" ) + ( Name "Leaf" ) + ) :| + [ LiteralInt Nothing 1, AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.GenericEqTwoTypes.Test" ) - ( Name "node" ) + ( Name "node$w" ) ) ) ( Ref Nothing ( Imported ( ModuleName "Golden.GenericEqTwoTypes.Test" ) ( Name "Leaf" ) - ) :| [] - ) - ) - ( LiteralInt Nothing 1 :| [] ) - ) - ( AppN Nothing - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.GenericEqTwoTypes.Test" ) - ( Name "node" ) - ) - ) - ( Ref Nothing + ) :| + [ LiteralInt Nothing 2, Ref Nothing ( Imported ( ModuleName "Golden.GenericEqTwoTypes.Test" ) ( Name "Leaf" ) - ) :| [] - ) + ) + ] ) - ( LiteralInt Nothing 2 :| [] ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.GenericEqTwoTypes.Test" ) - ( Name "Leaf" ) - ) :| [] - ) :| [] + ] ) :| [] ) :| [] ) @@ -1436,51 +1422,29 @@ UberModule ( Imported ( ModuleName "Golden.GenericEqTwoTypes.Test" ) ( Name "eq" ) ) ) ( AppN Nothing - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.GenericEqTwoTypes.Test" ) - ( Name "node" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.GenericEqTwoTypes.Test" ) - ( Name "Leaf" ) - ) :| [] - ) - ) - ( LiteralInt Nothing 1 :| [] ) + ( Ref Nothing + ( Imported ( ModuleName "Golden.GenericEqTwoTypes.Test" ) ( Name "node$w" ) ) ) ( Ref Nothing ( Imported ( ModuleName "Golden.GenericEqTwoTypes.Test" ) ( Name "Leaf" ) - ) :| [] + ) :| + [ LiteralInt Nothing 1, Ref Nothing + ( Imported ( ModuleName "Golden.GenericEqTwoTypes.Test" ) ( Name "Leaf" ) ) + ] ) :| [] ) ) ( AppN Nothing - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Golden.GenericEqTwoTypes.Test" ) ( Name "node" ) ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.GenericEqTwoTypes.Test" ) - ( Name "Leaf" ) - ) :| [] - ) - ) - ( LiteralInt Nothing 2 :| [] ) + ( Ref Nothing + ( Imported ( ModuleName "Golden.GenericEqTwoTypes.Test" ) ( Name "node$w" ) ) ) ( Ref Nothing - ( Imported - ( ModuleName "Golden.GenericEqTwoTypes.Test" ) - ( Name "Leaf" ) - ) :| [] + ( Imported ( ModuleName "Golden.GenericEqTwoTypes.Test" ) ( Name "Leaf" ) ) :| + [ LiteralInt Nothing 2, Ref Nothing + ( Imported ( ModuleName "Golden.GenericEqTwoTypes.Test" ) ( Name "Leaf" ) ) + ] ) :| [] ) :| [] ) diff --git a/test/ps/output/Golden.GenericEqTwoTypes.Test/golden.lua b/test/ps/output/Golden.GenericEqTwoTypes.Test/golden.lua index f169f1e2..3f5bc362 100644 --- a/test/ps/output/Golden.GenericEqTwoTypes.Test/golden.lua +++ b/test/ps/output/Golden.GenericEqTwoTypes.Test/golden.lua @@ -54,24 +54,21 @@ M.Data_HeytingAlgebra_heytingAlgebraBoolean = { M.Data_Eq_eqRecord = function(dict) return dict.eqRecord end M.Data_Eq_eqInt = { eq = M.Data_Eq_foreign.eqIntImpl } M.Data_Eq_eq = function(dict) return dict.eq end -M.Data_Eq_eqRowCons = function(dictEqRecord) - return function() - return function(dictIsSymbol) - return function(dictEq) - return { - eqRecord = function() - return function(ra) - return function(rb) - local key = dictIsSymbol.reflectSymbol(M.Type_Proxy_Proxy) - local get = M.Record_Unsafe_foreign.unsafeGet(key) - return M.Data_HeytingAlgebra_heytingAlgebraBoolean.conj(M.Data_Eq_eq(dictEq)(get(ra))(get(rb)))(M.Data_Eq_eqRecord(dictEqRecord)(M.Type_Proxy_Proxy)(ra)(rb)) - end - end - end - } +M.Data_Eq_eqRowCons_S_w = function( dictEqRecord +, eqRowCons_S_u2 +, dictIsSymbol +, dictEq ) + return { + eqRecord = function() + return function(ra) + return function(rb) + local key = dictIsSymbol.reflectSymbol(M.Type_Proxy_Proxy) + local get = M.Record_Unsafe_foreign.unsafeGet(key) + return M.Data_HeytingAlgebra_heytingAlgebraBoolean.conj(M.Data_Eq_eq(dictEq)(get(ra))(get(rb)))(M.Data_Eq_eqRecord(dictEqRecord)(M.Type_Proxy_Proxy)(ra)(rb)) + end end end - end + } end M.Control_Applicative_pure = function(dict) return dict.pure end M.Control_Bind_bind = function(dict) return dict.bind end @@ -175,11 +172,15 @@ end M.Golden_GenericEqTwoTypes_Test_eqRec = function(dictEqRecord_S_193) return { eq = M.Data_Eq_eqRecord(dictEqRecord_S_193)(M.Type_Proxy_Proxy) } end -M.Golden_GenericEqTwoTypes_Test_eqRowCons = M.Data_Eq_eqRowCons({ - eqRecord = function() - return function() return function() return true end end +M.Golden_GenericEqTwoTypes_Test_eqRowCons = function(eqRowCons_S_p3_S_205) + return function(eqRowCons_S_p4_S_206) + return M.Data_Eq_eqRowCons_S_w({ + eqRecord = function() + return function() return function() return true end end + end + }, nil, eqRowCons_S_p3_S_205, eqRowCons_S_p4_S_206) end -})() +end M.Golden_GenericEqTwoTypes_Test_discard = M.Control_Bind_bind(M.Effect_bindEffect) M.Golden_GenericEqTwoTypes_Test_logShow = function(a_S_2) return M.Effect_Console_foreign.log((function() @@ -210,16 +211,12 @@ M.Golden_GenericEqTwoTypes_Test_Cons = function(value0) value0 = value0 } end -M.Golden_GenericEqTwoTypes_Test_node = function(left) - return function(value) - return function(right) - return M.Golden_GenericEqTwoTypes_Test_Node({ - left = left, - value = value, - right = right - }) - end - end +M.Golden_GenericEqTwoTypes_Test_node_S_w = function(left, value, right) + return M.Golden_GenericEqTwoTypes_Test_Node({ + left = left, + value = value, + right = right + }) end M.Golden_GenericEqTwoTypes_Test_genericTree = { to = function(x) @@ -265,13 +262,13 @@ M.Golden_GenericEqTwoTypes_Test_eqTree = function(dictEq) return { eq = function(x) return function(y) - return M.Data_Eq_Generic_genericEq(M.Golden_GenericEqTwoTypes_Test_genericTree)(M.Golden_GenericEqTwoTypes_Test_genericEqSum(M.Data_Eq_Generic_genericEqConstructor(M.Data_Eq_Generic_genericEqArgument(M.Golden_GenericEqTwoTypes_Test_eqRec(M.Data_Eq_eqRowCons(M.Data_Eq_eqRowCons(M.Golden_GenericEqTwoTypes_Test_eqRowCons({ + return M.Data_Eq_Generic_genericEq(M.Golden_GenericEqTwoTypes_Test_genericTree)(M.Golden_GenericEqTwoTypes_Test_genericEqSum(M.Data_Eq_Generic_genericEqConstructor(M.Data_Eq_Generic_genericEqArgument(M.Golden_GenericEqTwoTypes_Test_eqRec(M.Data_Eq_eqRowCons_S_w(M.Data_Eq_eqRowCons_S_w(M.Golden_GenericEqTwoTypes_Test_eqRowCons({ reflectSymbol = function() return "value" end - })(dictEq))()({ + })(dictEq), nil, { reflectSymbol = function() return "right" end - })(M.Golden_GenericEqTwoTypes_Test_eqTree(dictEq)))()({ + }, M.Golden_GenericEqTwoTypes_Test_eqTree(dictEq)), nil, { reflectSymbol = function() return "left" end - })(M.Golden_GenericEqTwoTypes_Test_eqTree(dictEq)))))))(x)(y) + }, M.Golden_GenericEqTwoTypes_Test_eqTree(dictEq)))))))(x)(y) end end } @@ -281,24 +278,22 @@ M.Golden_GenericEqTwoTypes_Test_eqList = function(dictEq) return { eq = function(x) return function(y) - return M.Data_Eq_Generic_genericEq(M.Golden_GenericEqTwoTypes_Test_genericList)(M.Golden_GenericEqTwoTypes_Test_genericEqSum(M.Data_Eq_Generic_genericEqConstructor(M.Data_Eq_Generic_genericEqArgument(M.Golden_GenericEqTwoTypes_Test_eqRec(M.Data_Eq_eqRowCons(M.Golden_GenericEqTwoTypes_Test_eqRowCons({ + return M.Data_Eq_Generic_genericEq(M.Golden_GenericEqTwoTypes_Test_genericList)(M.Golden_GenericEqTwoTypes_Test_genericEqSum(M.Data_Eq_Generic_genericEqConstructor(M.Data_Eq_Generic_genericEqArgument(M.Golden_GenericEqTwoTypes_Test_eqRec(M.Data_Eq_eqRowCons_S_w(M.Golden_GenericEqTwoTypes_Test_eqRowCons({ reflectSymbol = function() return "tail" end - })(M.Golden_GenericEqTwoTypes_Test_eqList(dictEq)))()({ + })(M.Golden_GenericEqTwoTypes_Test_eqList(dictEq)), nil, { reflectSymbol = function() return "head" end - })(dictEq))))))(x)(y) + }, dictEq))))))(x)(y) end end } end M.Golden_GenericEqTwoTypes_Test_eq1 = M.Data_Eq_eq(M.Golden_GenericEqTwoTypes_Test_eqList(M.Data_Eq_eqInt)) -M.Golden_GenericEqTwoTypes_Test_cons = function(head) - return function(tail) - return M.Golden_GenericEqTwoTypes_Test_Cons({ head = head, tail = tail }) - end +M.Golden_GenericEqTwoTypes_Test_cons_S_w = function(head, tail) + return M.Golden_GenericEqTwoTypes_Test_Cons({ head = head, tail = tail }) end return (function() - local _ = M.Golden_GenericEqTwoTypes_Test_logShow(M.Golden_GenericEqTwoTypes_Test_eq1(M.Golden_GenericEqTwoTypes_Test_cons(1)(M.Golden_GenericEqTwoTypes_Test_cons(2)(M.Golden_GenericEqTwoTypes_Test_Nil)))(M.Golden_GenericEqTwoTypes_Test_cons(1)(M.Golden_GenericEqTwoTypes_Test_cons(2)(M.Golden_GenericEqTwoTypes_Test_Nil))))() - local _ = M.Golden_GenericEqTwoTypes_Test_logShow(M.Golden_GenericEqTwoTypes_Test_eq1(M.Golden_GenericEqTwoTypes_Test_cons(1)(M.Golden_GenericEqTwoTypes_Test_Nil))(M.Golden_GenericEqTwoTypes_Test_cons(2)(M.Golden_GenericEqTwoTypes_Test_Nil)))() - local _ = M.Golden_GenericEqTwoTypes_Test_logShow(M.Golden_GenericEqTwoTypes_Test_eq(M.Golden_GenericEqTwoTypes_Test_node(M.Golden_GenericEqTwoTypes_Test_Leaf)(1)(M.Golden_GenericEqTwoTypes_Test_node(M.Golden_GenericEqTwoTypes_Test_Leaf)(2)(M.Golden_GenericEqTwoTypes_Test_Leaf)))(M.Golden_GenericEqTwoTypes_Test_node(M.Golden_GenericEqTwoTypes_Test_Leaf)(1)(M.Golden_GenericEqTwoTypes_Test_node(M.Golden_GenericEqTwoTypes_Test_Leaf)(2)(M.Golden_GenericEqTwoTypes_Test_Leaf))))() - return M.Golden_GenericEqTwoTypes_Test_logShow(M.Golden_GenericEqTwoTypes_Test_eq(M.Golden_GenericEqTwoTypes_Test_node(M.Golden_GenericEqTwoTypes_Test_Leaf)(1)(M.Golden_GenericEqTwoTypes_Test_Leaf))(M.Golden_GenericEqTwoTypes_Test_node(M.Golden_GenericEqTwoTypes_Test_Leaf)(2)(M.Golden_GenericEqTwoTypes_Test_Leaf)))() + local _ = M.Golden_GenericEqTwoTypes_Test_logShow(M.Golden_GenericEqTwoTypes_Test_eq1(M.Golden_GenericEqTwoTypes_Test_cons_S_w(1, M.Golden_GenericEqTwoTypes_Test_cons_S_w(2, M.Golden_GenericEqTwoTypes_Test_Nil)))(M.Golden_GenericEqTwoTypes_Test_cons_S_w(1, M.Golden_GenericEqTwoTypes_Test_cons_S_w(2, M.Golden_GenericEqTwoTypes_Test_Nil))))() + local _ = M.Golden_GenericEqTwoTypes_Test_logShow(M.Golden_GenericEqTwoTypes_Test_eq1(M.Golden_GenericEqTwoTypes_Test_cons_S_w(1, M.Golden_GenericEqTwoTypes_Test_Nil))(M.Golden_GenericEqTwoTypes_Test_cons_S_w(2, M.Golden_GenericEqTwoTypes_Test_Nil)))() + local _ = M.Golden_GenericEqTwoTypes_Test_logShow(M.Golden_GenericEqTwoTypes_Test_eq(M.Golden_GenericEqTwoTypes_Test_node_S_w(M.Golden_GenericEqTwoTypes_Test_Leaf, 1, M.Golden_GenericEqTwoTypes_Test_node_S_w(M.Golden_GenericEqTwoTypes_Test_Leaf, 2, M.Golden_GenericEqTwoTypes_Test_Leaf)))(M.Golden_GenericEqTwoTypes_Test_node_S_w(M.Golden_GenericEqTwoTypes_Test_Leaf, 1, M.Golden_GenericEqTwoTypes_Test_node_S_w(M.Golden_GenericEqTwoTypes_Test_Leaf, 2, M.Golden_GenericEqTwoTypes_Test_Leaf))))() + return M.Golden_GenericEqTwoTypes_Test_logShow(M.Golden_GenericEqTwoTypes_Test_eq(M.Golden_GenericEqTwoTypes_Test_node_S_w(M.Golden_GenericEqTwoTypes_Test_Leaf, 1, M.Golden_GenericEqTwoTypes_Test_Leaf))(M.Golden_GenericEqTwoTypes_Test_node_S_w(M.Golden_GenericEqTwoTypes_Test_Leaf, 2, M.Golden_GenericEqTwoTypes_Test_Leaf)))() end)() diff --git a/test/ps/output/Golden.HelloPrelude.Test/golden.ir b/test/ps/output/Golden.HelloPrelude.Test/golden.ir index 5bcc9ce0..cae7c739 100644 --- a/test/ps/output/Golden.HelloPrelude.Test/golden.ir +++ b/test/ps/output/Golden.HelloPrelude.Test/golden.ir @@ -15,8 +15,8 @@ UberModule ), Standalone ( QName { qnameModuleName = ModuleName "Control.Applicative", qnameName = Name "pure" - }, Abs Nothing - ( ParamNamed Nothing ( Name "dict" ) ) + }, AbsN Nothing + ( ParamNamed Nothing ( Name "dict" ) :| [] ) ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "dict" ) ) ) ( PropName "pure" ) ) ), RecursiveGroup ( @@ -24,10 +24,12 @@ UberModule { qnameModuleName = ModuleName "Effect", qnameName = Name "monadEffect" }, LiteralObject Nothing [ - ( PropName "Applicative0", Abs Nothing ( ParamUnused Nothing ) + ( PropName "Applicative0", AbsN Nothing + ( ParamUnused Nothing :| [] ) ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "applicativeEffect" ) ) ) ), - ( PropName "Bind1", Abs Nothing ( ParamUnused Nothing ) + ( PropName "Bind1", AbsN Nothing + ( ParamUnused Nothing :| [] ) ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "bindEffect" ) ) ) ) ] @@ -41,7 +43,8 @@ UberModule ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "foreign" ) ) ) ( PropName "bindE" ) ), - ( PropName "Apply0", Abs Nothing ( ParamUnused Nothing ) + ( PropName "Apply0", AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "Lazy_applyEffect" ) ) ) ( LiteralInt Nothing 0 :| [] ) @@ -57,7 +60,8 @@ UberModule ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "foreign" ) ) ) ( PropName "pureE" ) ), - ( PropName "Apply0", Abs Nothing ( ParamUnused Nothing ) + ( PropName "Apply0", AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "Lazy_applyEffect" ) ) ) ( LiteralInt Nothing 0 :| [] ) @@ -72,13 +76,14 @@ UberModule ( Ref Nothing ( Local ( Name "PSLUA_runtime_lazy" ) ) ) ( LiteralString Nothing "functorEffect" :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( LiteralObject Nothing [ - ( PropName "map", Abs Nothing - ( ParamNamed Nothing ( Name "f$23" ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "a$24" ) ) + ( PropName "map", AbsN Nothing + ( ParamNamed Nothing ( Name "f$23" ) :| [] ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "a$24" ) :| [] ) ( AppN Nothing ( AppN Nothing ( ObjectProp Nothing @@ -125,7 +130,8 @@ UberModule ( Ref Nothing ( Local ( Name "PSLUA_runtime_lazy" ) ) ) ( LiteralString Nothing "applyEffect" :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( LiteralObject Nothing [ ( PropName "apply", Let Nothing @@ -145,24 +151,24 @@ UberModule ( PropName "bind" ) ) :| [] ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "f$7" ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "a$8" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "f$7" ) :| [] ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "a$8" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing ( Local ( Name "bind$5" ) ) ) ( Ref Nothing ( Local ( Name "f$7" ) ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "f'$9" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "f'$9" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing ( Local ( Name "bind$5" ) ) ) ( Ref Nothing ( Local ( Name "a$8" ) ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "a'$10" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "a'$10" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -201,7 +207,8 @@ UberModule ) ) ), - ( PropName "Functor0", Abs Nothing ( ParamUnused Nothing ) + ( PropName "Functor0", AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "Lazy_functorEffect" ) ) diff --git a/test/ps/output/Golden.Inline.Test/golden.ir b/test/ps/output/Golden.Inline.Test/golden.ir index a29689a7..a74e140c 100644 --- a/test/ps/output/Golden.Inline.Test/golden.ir +++ b/test/ps/output/Golden.Inline.Test/golden.ir @@ -3,8 +3,8 @@ UberModule [ Standalone ( QName { qnameModuleName = ModuleName "Golden.Inline.Test", qnameName = Name "runMu" - }, Abs Nothing - ( ParamNamed Nothing ( Name "v" ) ) + }, AbsN Nothing + ( ParamNamed Nothing ( Name "v" ) :| [] ) ( AppN Nothing ( Ref Nothing ( Local ( Name "v" ) ) ) ( Ref Nothing ( Local ( Name "v" ) ) :| [] ) diff --git a/test/ps/output/Golden.Issue37.Test/golden.ir b/test/ps/output/Golden.Issue37.Test/golden.ir index 8391a62b..32b5d778 100644 --- a/test/ps/output/Golden.Issue37.Test/golden.ir +++ b/test/ps/output/Golden.Issue37.Test/golden.ir @@ -15,13 +15,13 @@ UberModule ), Standalone ( QName { qnameModuleName = ModuleName "Control.Applicative", qnameName = Name "pure" - }, Abs Nothing - ( ParamNamed Nothing ( Name "dict" ) ) + }, AbsN Nothing + ( ParamNamed Nothing ( Name "dict" ) :| [] ) ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "dict" ) ) ) ( PropName "pure" ) ) ), Standalone ( QName - { qnameModuleName = ModuleName "Control.Bind", qnameName = Name "bind" }, Abs Nothing - ( ParamNamed Nothing ( Name "dict" ) ) + { qnameModuleName = ModuleName "Control.Bind", qnameName = Name "bind" }, AbsN Nothing + ( ParamNamed Nothing ( Name "dict" ) :| [] ) ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "dict" ) ) ) ( PropName "bind" ) ) ), RecursiveGroup ( @@ -29,10 +29,12 @@ UberModule { qnameModuleName = ModuleName "Effect", qnameName = Name "monadEffect" }, LiteralObject Nothing [ - ( PropName "Applicative0", Abs Nothing ( ParamUnused Nothing ) + ( PropName "Applicative0", AbsN Nothing + ( ParamUnused Nothing :| [] ) ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "applicativeEffect" ) ) ) ), - ( PropName "Bind1", Abs Nothing ( ParamUnused Nothing ) + ( PropName "Bind1", AbsN Nothing + ( ParamUnused Nothing :| [] ) ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "bindEffect" ) ) ) ) ] @@ -46,7 +48,8 @@ UberModule ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "foreign" ) ) ) ( PropName "bindE" ) ), - ( PropName "Apply0", Abs Nothing ( ParamUnused Nothing ) + ( PropName "Apply0", AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "Lazy_applyEffect" ) ) ) ( LiteralInt Nothing 0 :| [] ) @@ -62,7 +65,8 @@ UberModule ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "foreign" ) ) ) ( PropName "pureE" ) ), - ( PropName "Apply0", Abs Nothing ( ParamUnused Nothing ) + ( PropName "Apply0", AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "Lazy_applyEffect" ) ) ) ( LiteralInt Nothing 0 :| [] ) @@ -77,13 +81,14 @@ UberModule ( Ref Nothing ( Local ( Name "PSLUA_runtime_lazy" ) ) ) ( LiteralString Nothing "functorEffect" :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( LiteralObject Nothing [ - ( PropName "map", Abs Nothing - ( ParamNamed Nothing ( Name "f$32" ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "a$33" ) ) + ( PropName "map", AbsN Nothing + ( ParamNamed Nothing ( Name "f$32" ) :| [] ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "a$33" ) :| [] ) ( AppN Nothing ( AppN Nothing ( ObjectProp Nothing @@ -130,7 +135,8 @@ UberModule ( Ref Nothing ( Local ( Name "PSLUA_runtime_lazy" ) ) ) ( LiteralString Nothing "applyEffect" :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( LiteralObject Nothing [ ( PropName "apply", Let Nothing @@ -150,24 +156,24 @@ UberModule ) ) :| [] ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "f$13" ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "a$14" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "f$13" ) :| [] ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "a$14" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing ( Local ( Name "bind$11" ) ) ) ( Ref Nothing ( Local ( Name "f$13" ) ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "f'$15" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "f'$15" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing ( Local ( Name "bind$11" ) ) ) ( Ref Nothing ( Local ( Name "a$14" ) ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "a'$16" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "a'$16" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -206,7 +212,8 @@ UberModule ) ) ), - ( PropName "Functor0", Abs Nothing ( ParamUnused Nothing ) + ( PropName "Functor0", AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "Lazy_functorEffect" ) ) @@ -222,8 +229,8 @@ UberModule ), Standalone ( QName { qnameModuleName = ModuleName "Golden.Issue37.Test", qnameName = Name "discard" - }, Abs Nothing - ( ParamNamed Nothing ( Name "dictBind$17$186" ) ) + }, AbsN Nothing + ( ParamNamed Nothing ( Name "dictBind$17$186" ) :| [] ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Control.Bind" ) ( Name "bind" ) ) ) ( Ref Nothing ( Local ( Name "dictBind$17$186" ) ) :| [] ) @@ -256,8 +263,8 @@ UberModule ) ] ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "f$6" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "f$6" ) :| [] ) ( AppN Nothing ( AppN Nothing ( AppN Nothing @@ -268,7 +275,8 @@ UberModule ) ( Ref Nothing ( Local ( Name "f$6" ) ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( AppN Nothing @@ -304,8 +312,8 @@ UberModule ) ] ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "fn1$185" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "fn1$185" ) :| [] ) ( AppN Nothing ( AppN Nothing ( AppN Nothing @@ -332,19 +340,22 @@ UberModule ) ( Ref Nothing ( Local ( Name "fn1$185" ) ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing ( Local ( Name "discard1$184" ) ) ) ( Ref Nothing ( Local ( Name "fn1$185" ) ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing ( Local ( Name "discard1$184" ) ) ) ( Ref Nothing ( Local ( Name "fn1$185" ) ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( Ref Nothing ( Local ( Name "fn1$185" ) ) ) :| [] ) ) :| [] @@ -359,7 +370,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( Ref Nothing ( Local ( Name "pure$4" ) ) ) ( ObjectProp ( Just Always ) diff --git a/test/ps/output/Golden.LongApplyChain.Test/golden.ir b/test/ps/output/Golden.LongApplyChain.Test/golden.ir index abf916f0..657c7e05 100644 --- a/test/ps/output/Golden.LongApplyChain.Test/golden.ir +++ b/test/ps/output/Golden.LongApplyChain.Test/golden.ir @@ -20,13 +20,13 @@ UberModule [ ( Nothing, Name "log" ) ] ), Standalone ( QName - { qnameModuleName = ModuleName "Data.Show", qnameName = Name "show" }, Abs Nothing - ( ParamNamed Nothing ( Name "dict" ) ) + { qnameModuleName = ModuleName "Data.Show", qnameName = Name "show" }, AbsN Nothing + ( ParamNamed Nothing ( Name "dict" ) :| [] ) ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "dict" ) ) ) ( PropName "show" ) ) ), Standalone ( QName - { qnameModuleName = ModuleName "Data.Functor", qnameName = Name "map" }, Abs Nothing - ( ParamNamed Nothing ( Name "dict" ) ) + { qnameModuleName = ModuleName "Data.Functor", qnameName = Name "map" }, AbsN Nothing + ( ParamNamed Nothing ( Name "dict" ) :| [] ) ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "dict" ) ) ) ( PropName "map" ) ) ), Standalone ( QName @@ -48,10 +48,10 @@ UberModule { qnameModuleName = ModuleName "Data.Maybe", qnameName = Name "functorMaybe" }, LiteralObject Nothing [ - ( PropName "map", Abs Nothing - ( ParamNamed Nothing ( Name "v" ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "v1" ) ) + ( PropName "map", AbsN Nothing + ( ParamNamed Nothing ( Name "v" ) :| [] ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "v1" ) :| [] ) ( IfThenElse Nothing ( Eq Nothing ( LiteralString Nothing "Data.Maybe∷Maybe.Just" ) @@ -77,10 +77,10 @@ UberModule { qnameModuleName = ModuleName "Data.Maybe", qnameName = Name "applyMaybe" }, LiteralObject Nothing [ - ( PropName "apply", Abs Nothing - ( ParamNamed Nothing ( Name "v" ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "v1" ) ) + ( PropName "apply", AbsN Nothing + ( ParamNamed Nothing ( Name "v" ) :| [] ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "v1" ) :| [] ) ( IfThenElse Nothing ( Eq Nothing ( LiteralString Nothing "Data.Maybe∷Maybe.Just" ) @@ -112,51 +112,50 @@ UberModule ) ) ), - ( PropName "Functor0", Abs Nothing ( ParamUnused Nothing ) + ( PropName "Functor0", AbsN Nothing + ( ParamUnused Nothing :| [] ) ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "functorMaybe" ) ) ) ) ] ), Standalone ( QName - { qnameModuleName = ModuleName "Golden.LongApplyChain.Test", qnameName = Name "applySecond" - }, Abs Nothing - ( ParamNamed Nothing ( Name "a$131" ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "b$132" ) ) + { qnameModuleName = ModuleName "Golden.LongApplyChain.Test", qnameName = Name "applySecond$w" + }, AbsN Nothing + ( ParamNamed Nothing ( Name "a$131" ) :| [ ParamNamed Nothing ( Name "b$132" ) ] ) + ( AppN Nothing ( AppN Nothing + ( ObjectProp Nothing + ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "applyMaybe" ) ) ) + ( PropName "apply" ) + ) ( AppN Nothing - ( ObjectProp Nothing - ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "applyMaybe" ) ) ) - ( PropName "apply" ) - ) ( AppN Nothing ( AppN Nothing + ( Ref Nothing ( Imported ( ModuleName "Data.Functor" ) ( Name "map" ) ) ) ( AppN Nothing - ( Ref Nothing ( Imported ( ModuleName "Data.Functor" ) ( Name "map" ) ) ) - ( AppN Nothing - ( ObjectProp Nothing - ( Ref Nothing - ( Imported ( ModuleName "Data.Maybe" ) ( Name "applyMaybe" ) ) - ) - ( PropName "Functor0" ) - ) + ( ObjectProp Nothing ( Ref Nothing - ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] - ) :| [] + ( Imported ( ModuleName "Data.Maybe" ) ( Name "applyMaybe" ) ) + ) + ( PropName "Functor0" ) ) - ) - ( Abs Nothing ( ParamUnused Nothing ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x$281" ) ) - ( Ref Nothing ( Local ( Name "x$281" ) ) ) + ( Ref Nothing + ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) :| [] ) ) - ( Ref Nothing ( Local ( Name "a$131" ) ) :| [] ) :| [] + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x$281" ) :| [] ) + ( Ref Nothing ( Local ( Name "x$281" ) ) ) + ) :| [] + ) ) + ( Ref Nothing ( Local ( Name "a$131" ) ) :| [] ) :| [] ) - ( Ref Nothing ( Local ( Name "b$132" ) ) :| [] ) ) + ( Ref Nothing ( Local ( Name "b$132" ) ) :| [] ) ) ), Standalone ( QName @@ -165,155 +164,266 @@ UberModule ( Standalone ( Nothing, Name "$tmp288", AppN Nothing ( Ref Nothing - ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond" ) ) + ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond$w" ) ) ) ( AppN Nothing + ( Ref Nothing + ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond$w" ) ) + ) ( AppN Nothing ( Ref Nothing - ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond" ) ) + ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond$w" ) ) ) ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongApplyChain.Test" ) + ( Name "applySecond$w" ) + ) + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) - ( Name "applySecond" ) + ( Name "applySecond$w" ) ) ) ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongApplyChain.Test" ) + ( Name "applySecond$w" ) + ) + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) - ( Name "applySecond" ) + ( Name "applySecond$w" ) ) ) ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongApplyChain.Test" ) + ( Name "applySecond$w" ) + ) + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) - ( Name "applySecond" ) + ( Name "applySecond$w" ) ) ) ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongApplyChain.Test" ) + ( Name "applySecond$w" ) + ) + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) - ( Name "applySecond" ) + ( Name "applySecond$w" ) ) ) ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongApplyChain.Test" ) + ( Name "applySecond$w" ) + ) + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) - ( Name "applySecond" ) + ( Name "applySecond$w" ) ) ) ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongApplyChain.Test" ) + ( Name "applySecond$w" ) + ) + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) - ( Name "applySecond" ) + ( Name "applySecond$w" ) ) ) ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongApplyChain.Test" ) + ( Name "applySecond$w" ) + ) + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) - ( Name "applySecond" ) + ( Name "applySecond$w" ) ) ) ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongApplyChain.Test" ) + ( Name "applySecond$w" ) + ) + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) - ( Name "applySecond" ) + ( Name "applySecond$w" ) ) ) ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongApplyChain.Test" ) + ( Name "applySecond$w" ) + ) + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) - ( Name "applySecond" ) + ( Name "applySecond$w" ) ) ) ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongApplyChain.Test" ) + ( Name "applySecond$w" ) + ) + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) - ( Name "applySecond" ) + ( Name "applySecond$w" ) ) ) ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongApplyChain.Test" ) + ( Name "applySecond$w" ) + ) + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) - ( Name "applySecond" ) + ( Name "applySecond$w" ) ) ) ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongApplyChain.Test" ) + ( Name "applySecond$w" ) + ) + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) - ( Name "applySecond" ) + ( Name "applySecond$w" ) ) ) ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongApplyChain.Test" ) + ( Name "applySecond$w" ) + ) + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) - ( Name "applySecond" ) + ( Name "applySecond$w" ) ) ) ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongApplyChain.Test" ) + ( Name "applySecond$w" ) + ) + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) - ( Name "applySecond" ) + ( Name "applySecond$w" ) ) ) ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongApplyChain.Test" ) + ( Name "applySecond$w" ) + ) + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) - ( Name "applySecond" ) + ( Name "applySecond$w" ) ) ) ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongApplyChain.Test" ) + ( Name "applySecond$w" ) + ) + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) - ( Name "applySecond" ) + ( Name "applySecond$w" ) ) ) ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongApplyChain.Test" ) + ( Name "applySecond$w" ) + ) + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) - ( Name "applySecond" ) + ( Name "applySecond$w" ) ) ) ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongApplyChain.Test" ) + ( Name "applySecond$w" ) + ) + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) - ( Name "applySecond" ) + ( Name "applySecond$w" ) ) ) ( AppN Nothing @@ -323,5107 +433,4397 @@ UberModule ( Name "Just" ) ) ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) - ) - ( AppN Nothing + ( LiteralInt Nothing 1 :| [] ) :| + [ AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) + ) + ) + ( LiteralInt Nothing 2 :| [] ) + ] + ) :| + [ AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) + ) + ) + ( LiteralInt Nothing 3 :| [] ) + ] + ) :| + [ AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 2 :| [] ) :| [] - ) :| [] - ) - ) - ( AppN Nothing + ( LiteralInt Nothing 4 :| [] ) + ] + ) :| + [ AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) + ) + ) + ( LiteralInt Nothing 5 :| [] ) + ] + ) :| + [ AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 3 :| [] ) :| [] - ) :| [] - ) - ) - ( AppN Nothing + ( LiteralInt Nothing 6 :| [] ) + ] + ) :| + [ AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) + ) + ) + ( LiteralInt Nothing 7 :| [] ) + ] + ) :| + [ AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 4 :| [] ) :| [] - ) :| [] - ) - ) - ( AppN Nothing + ( LiteralInt Nothing 8 :| [] ) + ] + ) :| + [ AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) + ) + ) + ( LiteralInt Nothing 9 :| [] ) + ] + ) :| + [ AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 5 :| [] ) :| [] - ) :| [] - ) - ) - ( AppN Nothing + ( LiteralInt Nothing 10 :| [] ) + ] + ) :| + [ AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) + ) + ) + ( LiteralInt Nothing 11 :| [] ) + ] + ) :| + [ AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 6 :| [] ) :| [] - ) :| [] - ) - ) - ( AppN Nothing + ( LiteralInt Nothing 12 :| [] ) + ] + ) :| + [ AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) + ) + ) + ( LiteralInt Nothing 13 :| [] ) + ] + ) :| + [ AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 7 :| [] ) :| [] - ) :| [] - ) - ) - ( AppN Nothing + ( LiteralInt Nothing 14 :| [] ) + ] + ) :| + [ AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) + ) + ) + ( LiteralInt Nothing 15 :| [] ) + ] + ) :| + [ AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 8 :| [] ) :| [] - ) :| [] - ) - ) - ( AppN Nothing + ( LiteralInt Nothing 16 :| [] ) + ] + ) :| + [ AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) + ) + ) + ( LiteralInt Nothing 17 :| [] ) + ] + ) :| + [ AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 9 :| [] ) :| [] - ) :| [] - ) - ) - ( AppN Nothing + ( LiteralInt Nothing 18 :| [] ) + ] + ) :| + [ AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) + ) + ) + ( LiteralInt Nothing 19 :| [] ) + ] + ) :| + [ AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 10 :| [] ) :| [] - ) :| [] - ) - ) - ( AppN Nothing + ( LiteralInt Nothing 20 :| [] ) + ] + ) :| + [ AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) + ) + ) + ( LiteralInt Nothing 21 :| [] ) + ] + ) :| + [ AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 11 :| [] ) :| [] - ) :| [] - ) - ) - ( AppN Nothing + ( LiteralInt Nothing 22 :| [] ) + ] + ) :| + [ AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) + ) + ) + ( LiteralInt Nothing 23 :| [] ) + ] + ) :| + [ AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 12 :| [] ) :| [] - ) :| [] - ) - ) - ( AppN Nothing + ( LiteralInt Nothing 24 :| [] ) + ] + ) :| + [ AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) + ) + ) + ( LiteralInt Nothing 25 :| [] ) + ] + ) :| + [ AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 13 :| [] ) :| [] - ) :| [] - ) - ) - ( AppN Nothing + ( LiteralInt Nothing 26 :| [] ) + ] + ) :| + [ AppN Nothing + ( Ref Nothing + ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) + ) + ( LiteralInt Nothing 27 :| [] ) + ] + ) :| + [ AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 14 :| [] ) :| [] - ) :| [] - ) - ) - ( AppN Nothing + ( LiteralInt Nothing 28 :| [] ) + ] + ) :| + [ AppN Nothing + ( Ref Nothing + ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) + ) + ( LiteralInt Nothing 29 :| [] ) + ] + ) :| + [ AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 15 :| [] ) :| [] - ) :| [] - ) - ) - ( AppN Nothing + ( LiteralInt Nothing 30 :| [] ) + ] + ) :| + [ AppN Nothing + ( Ref Nothing + ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) + ) + ( LiteralInt Nothing 31 :| [] ) + ] + ) :| + [ AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 16 :| [] ) :| [] - ) :| [] - ) - ) - ( AppN Nothing + ( LiteralInt Nothing 32 :| [] ) + ] + ) :| + [ AppN Nothing + ( Ref Nothing + ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) + ) + ( LiteralInt Nothing 33 :| [] ) + ] + ) :| + [ AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 17 :| [] ) :| [] - ) :| [] - ) - ) - ( AppN Nothing + ( LiteralInt Nothing 34 :| [] ) + ] + ) :| + [ AppN Nothing + ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) + ( LiteralInt Nothing 35 :| [] ) + ] + ) :| + [ AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 18 :| [] ) :| [] - ) :| [] - ) - ) - ( AppN Nothing + ( LiteralInt Nothing 36 :| [] ) + ] + ) :| + [ AppN Nothing + ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) + ( LiteralInt Nothing 37 :| [] ) + ] + ) :| + [ AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 19 :| [] ) :| [] - ) :| [] - ) - ) - ( AppN Nothing + ( LiteralInt Nothing 38 :| [] ) + ] + ) :| + [ AppN Nothing + ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) + ( LiteralInt Nothing 39 :| [] ) + ] + ) :| + [ AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 20 :| [] ) :| [] - ) :| [] + ( LiteralInt Nothing 40 :| [] ) + ] ) ) :| [ Standalone ( Nothing, Name "$tmp289", AppN Nothing ( Ref Nothing - ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond" ) ) + ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond$w" ) ) ) ( AppN Nothing + ( Ref Nothing + ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond$w" ) ) + ) ( AppN Nothing ( Ref Nothing - ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond" ) ) + ( Imported + ( ModuleName "Golden.LongApplyChain.Test" ) + ( Name "applySecond$w" ) + ) ) ( AppN Nothing - ( AppN Nothing - ( Ref Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongApplyChain.Test" ) + ( Name "applySecond$w" ) + ) + ) + ( AppN Nothing + ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) - ( Name "applySecond" ) + ( Name "applySecond$w" ) ) ) ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongApplyChain.Test" ) + ( Name "applySecond$w" ) + ) + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) - ( Name "applySecond" ) + ( Name "applySecond$w" ) ) ) ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongApplyChain.Test" ) + ( Name "applySecond$w" ) + ) + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) - ( Name "applySecond" ) + ( Name "applySecond$w" ) ) ) ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongApplyChain.Test" ) + ( Name "applySecond$w" ) + ) + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) - ( Name "applySecond" ) + ( Name "applySecond$w" ) ) ) ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongApplyChain.Test" ) + ( Name "applySecond$w" ) + ) + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) - ( Name "applySecond" ) + ( Name "applySecond$w" ) ) ) ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongApplyChain.Test" ) + ( Name "applySecond$w" ) + ) + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) - ( Name "applySecond" ) + ( Name "applySecond$w" ) ) ) ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongApplyChain.Test" ) + ( Name "applySecond$w" ) + ) + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) - ( Name "applySecond" ) + ( Name "applySecond$w" ) ) ) ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongApplyChain.Test" ) + ( Name "applySecond$w" ) + ) + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) - ( Name "applySecond" ) + ( Name "applySecond$w" ) ) ) ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongApplyChain.Test" ) + ( Name "applySecond$w" ) + ) + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) - ( Name "applySecond" ) + ( Name "applySecond$w" ) ) ) ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongApplyChain.Test" ) + ( Name "applySecond$w" ) + ) + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) - ( Name "applySecond" ) + ( Name "applySecond$w" ) ) ) ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongApplyChain.Test" ) + ( Name "applySecond$w" ) + ) + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) - ( Name "applySecond" ) + ( Name "applySecond$w" ) ) ) ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongApplyChain.Test" ) + ( Name "applySecond$w" ) + ) + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) - ( Name "applySecond" ) + ( Name "applySecond$w" ) ) ) ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongApplyChain.Test" ) + ( Name "applySecond$w" ) + ) + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) - ( Name "applySecond" ) + ( Name "applySecond$w" ) ) ) ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongApplyChain.Test" ) + ( Name "applySecond$w" ) + ) + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) - ( Name "applySecond" ) + ( Name "applySecond$w" ) ) ) ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongApplyChain.Test" ) + ( Name "applySecond$w" ) + ) + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) - ( Name "applySecond" ) + ( Name "applySecond$w" ) ) ) ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongApplyChain.Test" ) + ( Name "applySecond$w" ) + ) + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) - ( Name "applySecond" ) + ( Name "applySecond$w" ) ) ) ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongApplyChain.Test" ) + ( Name "applySecond$w" ) + ) + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) - ( Name "applySecond" ) + ( Name "applySecond$w" ) ) ) ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongApplyChain.Test" ) + ( Name "applySecond$w" ) + ) + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) - ( Name "applySecond" ) + ( Name "applySecond$w" ) ) ) ( AppN Nothing ( Ref Nothing - ( Local - ( Name "$tmp288" ) + ( Imported + ( ModuleName "Golden.LongApplyChain.Test" ) + ( Name "applySecond$w" ) ) ) - ( AppN Nothing + ( Ref Nothing + ( Local + ( Name "$tmp288" ) + ) :| + [ AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) + ) + ) + ( LiteralInt Nothing 41 :| [] ) + ] + ) :| + [ AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 21 :| [] ) :| [] - ) :| [] - ) - ) - ( AppN Nothing + ( LiteralInt Nothing 42 :| [] ) + ] + ) :| + [ AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) + ) + ) + ( LiteralInt Nothing 43 :| [] ) + ] + ) :| + [ AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 22 :| [] ) :| [] - ) :| [] - ) - ) - ( AppN Nothing + ( LiteralInt Nothing 44 :| [] ) + ] + ) :| + [ AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) + ) + ) + ( LiteralInt Nothing 45 :| [] ) + ] + ) :| + [ AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 23 :| [] ) :| [] - ) :| [] - ) - ) - ( AppN Nothing + ( LiteralInt Nothing 46 :| [] ) + ] + ) :| + [ AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) + ) + ) + ( LiteralInt Nothing 47 :| [] ) + ] + ) :| + [ AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 24 :| [] ) :| [] - ) :| [] - ) - ) - ( AppN Nothing + ( LiteralInt Nothing 48 :| [] ) + ] + ) :| + [ AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) + ) + ) + ( LiteralInt Nothing 49 :| [] ) + ] + ) :| + [ AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 25 :| [] ) :| [] - ) :| [] - ) - ) - ( AppN Nothing + ( LiteralInt Nothing 50 :| [] ) + ] + ) :| + [ AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) + ) + ) + ( LiteralInt Nothing 51 :| [] ) + ] + ) :| + [ AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 26 :| [] ) :| [] - ) :| [] - ) - ) - ( AppN Nothing + ( LiteralInt Nothing 52 :| [] ) + ] + ) :| + [ AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) + ) + ) + ( LiteralInt Nothing 53 :| [] ) + ] + ) :| + [ AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 27 :| [] ) :| [] - ) :| [] - ) - ) - ( AppN Nothing + ( LiteralInt Nothing 54 :| [] ) + ] + ) :| + [ AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) + ) + ) + ( LiteralInt Nothing 55 :| [] ) + ] + ) :| + [ AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 28 :| [] ) :| [] - ) :| [] - ) - ) - ( AppN Nothing + ( LiteralInt Nothing 56 :| [] ) + ] + ) :| + [ AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) + ) + ) + ( LiteralInt Nothing 57 :| [] ) + ] + ) :| + [ AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 29 :| [] ) :| [] - ) :| [] - ) - ) - ( AppN Nothing + ( LiteralInt Nothing 58 :| [] ) + ] + ) :| + [ AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) + ) + ) + ( LiteralInt Nothing 59 :| [] ) + ] + ) :| + [ AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 30 :| [] ) :| [] - ) :| [] - ) - ) - ( AppN Nothing + ( LiteralInt Nothing 60 :| [] ) + ] + ) :| + [ AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) + ) + ) + ( LiteralInt Nothing 61 :| [] ) + ] + ) :| + [ AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 31 :| [] ) :| [] - ) :| [] - ) - ) - ( AppN Nothing + ( LiteralInt Nothing 62 :| [] ) + ] + ) :| + [ AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) + ) + ) + ( LiteralInt Nothing 63 :| [] ) + ] + ) :| + [ AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 32 :| [] ) :| [] - ) :| [] - ) - ) - ( AppN Nothing + ( LiteralInt Nothing 64 :| [] ) + ] + ) :| + [ AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) + ) + ) + ( LiteralInt Nothing 65 :| [] ) + ] + ) :| + [ AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 33 :| [] ) :| [] - ) :| [] - ) - ) - ( AppN Nothing + ( LiteralInt Nothing 66 :| [] ) + ] + ) :| + [ AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) + ) + ) + ( LiteralInt Nothing 67 :| [] ) + ] + ) :| + [ AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 34 :| [] ) :| [] - ) :| [] - ) - ) - ( AppN Nothing + ( LiteralInt Nothing 68 :| [] ) + ] + ) :| + [ AppN Nothing + ( Ref Nothing + ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) + ) + ( LiteralInt Nothing 69 :| [] ) + ] + ) :| + [ AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 35 :| [] ) :| [] - ) :| [] - ) - ) - ( AppN Nothing + ( LiteralInt Nothing 70 :| [] ) + ] + ) :| + [ AppN Nothing + ( Ref Nothing + ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) + ) + ( LiteralInt Nothing 71 :| [] ) + ] + ) :| + [ AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 36 :| [] ) :| [] - ) :| [] - ) - ) - ( AppN Nothing + ( LiteralInt Nothing 72 :| [] ) + ] + ) :| + [ AppN Nothing + ( Ref Nothing + ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) + ) + ( LiteralInt Nothing 73 :| [] ) + ] + ) :| + [ AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 37 :| [] ) :| [] - ) :| [] - ) - ) - ( AppN Nothing + ( LiteralInt Nothing 74 :| [] ) + ] + ) :| + [ AppN Nothing + ( Ref Nothing + ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) + ) + ( LiteralInt Nothing 75 :| [] ) + ] + ) :| + [ AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 38 :| [] ) :| [] - ) :| [] - ) - ) - ( AppN Nothing + ( LiteralInt Nothing 76 :| [] ) + ] + ) :| + [ AppN Nothing + ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) + ( LiteralInt Nothing 77 :| [] ) + ] + ) :| + [ AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 39 :| [] ) :| [] - ) :| [] - ) - ) - ( AppN Nothing + ( LiteralInt Nothing 78 :| [] ) + ] + ) :| + [ AppN Nothing + ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) + ( LiteralInt Nothing 79 :| [] ) + ] + ) :| + [ AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 40 :| [] ) :| [] - ) :| [] + ( LiteralInt Nothing 80 :| [] ) + ] ) ), Standalone ( Nothing, Name "$tmp290", AppN Nothing ( Ref Nothing - ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond" ) ) + ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond$w" ) ) ) ( AppN Nothing + ( Ref Nothing + ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond$w" ) ) + ) ( AppN Nothing ( Ref Nothing - ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond" ) ) + ( Imported + ( ModuleName "Golden.LongApplyChain.Test" ) + ( Name "applySecond$w" ) + ) ) ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongApplyChain.Test" ) + ( Name "applySecond$w" ) + ) + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) - ( Name "applySecond" ) + ( Name "applySecond$w" ) ) ) ( AppN Nothing - ( AppN Nothing - ( Ref Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongApplyChain.Test" ) + ( Name "applySecond$w" ) + ) + ) + ( AppN Nothing + ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) - ( Name "applySecond" ) + ( Name "applySecond$w" ) ) ) ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongApplyChain.Test" ) + ( Name "applySecond$w" ) + ) + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) - ( Name "applySecond" ) + ( Name "applySecond$w" ) ) ) ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongApplyChain.Test" ) + ( Name "applySecond$w" ) + ) + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) - ( Name "applySecond" ) + ( Name "applySecond$w" ) ) ) ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongApplyChain.Test" ) + ( Name "applySecond$w" ) + ) + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) - ( Name "applySecond" ) + ( Name "applySecond$w" ) ) ) ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongApplyChain.Test" ) + ( Name "applySecond$w" ) + ) + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) - ( Name "applySecond" ) + ( Name "applySecond$w" ) ) ) ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongApplyChain.Test" ) + ( Name "applySecond$w" ) + ) + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) - ( Name "applySecond" ) + ( Name "applySecond$w" ) ) ) ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongApplyChain.Test" ) + ( Name "applySecond$w" ) + ) + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) - ( Name "applySecond" ) + ( Name "applySecond$w" ) ) ) ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongApplyChain.Test" ) + ( Name "applySecond$w" ) + ) + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) - ( Name "applySecond" ) + ( Name "applySecond$w" ) ) ) ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongApplyChain.Test" ) + ( Name "applySecond$w" ) + ) + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) - ( Name "applySecond" ) + ( Name "applySecond$w" ) ) ) ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongApplyChain.Test" ) + ( Name "applySecond$w" ) + ) + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) - ( Name "applySecond" ) + ( Name "applySecond$w" ) ) ) ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongApplyChain.Test" ) + ( Name "applySecond$w" ) + ) + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) - ( Name "applySecond" ) + ( Name "applySecond$w" ) ) ) ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongApplyChain.Test" ) + ( Name "applySecond$w" ) + ) + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) - ( Name "applySecond" ) + ( Name "applySecond$w" ) ) ) ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongApplyChain.Test" ) + ( Name "applySecond$w" ) + ) + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) - ( Name "applySecond" ) + ( Name "applySecond$w" ) ) ) ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongApplyChain.Test" ) + ( Name "applySecond$w" ) + ) + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) - ( Name "applySecond" ) + ( Name "applySecond$w" ) ) ) ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongApplyChain.Test" ) + ( Name "applySecond$w" ) + ) + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) - ( Name "applySecond" ) + ( Name "applySecond$w" ) ) ) ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongApplyChain.Test" ) + ( Name "applySecond$w" ) + ) + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) - ( Name "applySecond" ) + ( Name "applySecond$w" ) ) ) ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongApplyChain.Test" ) + ( Name "applySecond$w" ) + ) + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) - ( Name "applySecond" ) + ( Name "applySecond$w" ) ) ) ( AppN Nothing ( Ref Nothing - ( Local - ( Name "$tmp289" ) + ( Imported + ( ModuleName "Golden.LongApplyChain.Test" ) + ( Name "applySecond$w" ) ) ) - ( AppN Nothing + ( Ref Nothing + ( Local + ( Name "$tmp289" ) + ) :| + [ AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) + ) + ) + ( LiteralInt Nothing 81 :| [] ) + ] + ) :| + [ AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 41 :| [] ) :| [] - ) :| [] - ) - ) - ( AppN Nothing + ( LiteralInt Nothing 82 :| [] ) + ] + ) :| + [ AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) + ) + ) + ( LiteralInt Nothing 83 :| [] ) + ] + ) :| + [ AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 42 :| [] ) :| [] - ) :| [] - ) - ) - ( AppN Nothing + ( LiteralInt Nothing 84 :| [] ) + ] + ) :| + [ AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) + ) + ) + ( LiteralInt Nothing 85 :| [] ) + ] + ) :| + [ AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 43 :| [] ) :| [] - ) :| [] - ) - ) - ( AppN Nothing + ( LiteralInt Nothing 86 :| [] ) + ] + ) :| + [ AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) + ) + ) + ( LiteralInt Nothing 87 :| [] ) + ] + ) :| + [ AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 44 :| [] ) :| [] - ) :| [] - ) - ) - ( AppN Nothing + ( LiteralInt Nothing 88 :| [] ) + ] + ) :| + [ AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) + ) + ) + ( LiteralInt Nothing 89 :| [] ) + ] + ) :| + [ AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 45 :| [] ) :| [] - ) :| [] - ) - ) - ( AppN Nothing + ( LiteralInt Nothing 90 :| [] ) + ] + ) :| + [ AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) + ) + ) + ( LiteralInt Nothing 91 :| [] ) + ] + ) :| + [ AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 46 :| [] ) :| [] - ) :| [] - ) - ) - ( AppN Nothing + ( LiteralInt Nothing 92 :| [] ) + ] + ) :| + [ AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) + ) + ) + ( LiteralInt Nothing 93 :| [] ) + ] + ) :| + [ AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 47 :| [] ) :| [] - ) :| [] - ) - ) - ( AppN Nothing + ( LiteralInt Nothing 94 :| [] ) + ] + ) :| + [ AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) + ) + ) + ( LiteralInt Nothing 95 :| [] ) + ] + ) :| + [ AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 48 :| [] ) :| [] - ) :| [] - ) - ) - ( AppN Nothing + ( LiteralInt Nothing 96 :| [] ) + ] + ) :| + [ AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) + ) + ) + ( LiteralInt Nothing 97 :| [] ) + ] + ) :| + [ AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 49 :| [] ) :| [] - ) :| [] - ) - ) - ( AppN Nothing + ( LiteralInt Nothing 98 :| [] ) + ] + ) :| + [ AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) + ) + ) + ( LiteralInt Nothing 99 :| [] ) + ] + ) :| + [ AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 50 :| [] ) :| [] - ) :| [] - ) - ) - ( AppN Nothing + ( LiteralInt Nothing 100 :| [] ) + ] + ) :| + [ AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) + ) + ) + ( LiteralInt Nothing 101 :| [] ) + ] + ) :| + [ AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 51 :| [] ) :| [] - ) :| [] - ) - ) - ( AppN Nothing + ( LiteralInt Nothing 102 :| [] ) + ] + ) :| + [ AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) + ) + ) + ( LiteralInt Nothing 103 :| [] ) + ] + ) :| + [ AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 52 :| [] ) :| [] - ) :| [] - ) - ) - ( AppN Nothing + ( LiteralInt Nothing 104 :| [] ) + ] + ) :| + [ AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) + ) + ) + ( LiteralInt Nothing 105 :| [] ) + ] + ) :| + [ AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 53 :| [] ) :| [] - ) :| [] - ) - ) - ( AppN Nothing + ( LiteralInt Nothing 106 :| [] ) + ] + ) :| + [ AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) + ) + ) + ( LiteralInt Nothing 107 :| [] ) + ] + ) :| + [ AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 54 :| [] ) :| [] - ) :| [] - ) - ) - ( AppN Nothing + ( LiteralInt Nothing 108 :| [] ) + ] + ) :| + [ AppN Nothing + ( Ref Nothing + ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) + ) + ( LiteralInt Nothing 109 :| [] ) + ] + ) :| + [ AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 55 :| [] ) :| [] - ) :| [] - ) - ) - ( AppN Nothing + ( LiteralInt Nothing 110 :| [] ) + ] + ) :| + [ AppN Nothing + ( Ref Nothing + ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) + ) + ( LiteralInt Nothing 111 :| [] ) + ] + ) :| + [ AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 56 :| [] ) :| [] - ) :| [] - ) - ) - ( AppN Nothing + ( LiteralInt Nothing 112 :| [] ) + ] + ) :| + [ AppN Nothing + ( Ref Nothing + ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) + ) + ( LiteralInt Nothing 113 :| [] ) + ] + ) :| + [ AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 57 :| [] ) :| [] - ) :| [] - ) - ) - ( AppN Nothing + ( LiteralInt Nothing 114 :| [] ) + ] + ) :| + [ AppN Nothing + ( Ref Nothing + ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) + ) + ( LiteralInt Nothing 115 :| [] ) + ] + ) :| + [ AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 58 :| [] ) :| [] - ) :| [] - ) - ) - ( AppN Nothing + ( LiteralInt Nothing 116 :| [] ) + ] + ) :| + [ AppN Nothing + ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) + ( LiteralInt Nothing 117 :| [] ) + ] + ) :| + [ AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 59 :| [] ) :| [] - ) :| [] - ) - ) - ( AppN Nothing + ( LiteralInt Nothing 118 :| [] ) + ] + ) :| + [ AppN Nothing + ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) + ( LiteralInt Nothing 119 :| [] ) + ] + ) :| + [ AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 60 :| [] ) :| [] - ) :| [] + ( LiteralInt Nothing 120 :| [] ) + ] ) ), Standalone ( Nothing, Name "$tmp291", AppN Nothing ( Ref Nothing - ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond" ) ) + ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond$w" ) ) ) ( AppN Nothing + ( Ref Nothing + ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond$w" ) ) + ) ( AppN Nothing ( Ref Nothing - ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond" ) ) + ( Imported + ( ModuleName "Golden.LongApplyChain.Test" ) + ( Name "applySecond$w" ) + ) ) ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongApplyChain.Test" ) + ( Name "applySecond$w" ) + ) + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) - ( Name "applySecond" ) + ( Name "applySecond$w" ) ) ) ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongApplyChain.Test" ) + ( Name "applySecond$w" ) + ) + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) - ( Name "applySecond" ) + ( Name "applySecond$w" ) ) ) ( AppN Nothing - ( AppN Nothing - ( Ref Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongApplyChain.Test" ) + ( Name "applySecond$w" ) + ) + ) + ( AppN Nothing + ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) - ( Name "applySecond" ) + ( Name "applySecond$w" ) ) ) ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongApplyChain.Test" ) + ( Name "applySecond$w" ) + ) + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) - ( Name "applySecond" ) + ( Name "applySecond$w" ) ) ) ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongApplyChain.Test" ) + ( Name "applySecond$w" ) + ) + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) - ( Name "applySecond" ) + ( Name "applySecond$w" ) ) ) ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongApplyChain.Test" ) + ( Name "applySecond$w" ) + ) + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) - ( Name "applySecond" ) + ( Name "applySecond$w" ) ) ) ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongApplyChain.Test" ) + ( Name "applySecond$w" ) + ) + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) - ( Name "applySecond" ) + ( Name "applySecond$w" ) ) ) ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongApplyChain.Test" ) + ( Name "applySecond$w" ) + ) + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) - ( Name "applySecond" ) + ( Name "applySecond$w" ) ) ) ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongApplyChain.Test" ) + ( Name "applySecond$w" ) + ) + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) - ( Name "applySecond" ) + ( Name "applySecond$w" ) ) ) ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongApplyChain.Test" ) + ( Name "applySecond$w" ) + ) + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) - ( Name "applySecond" ) + ( Name "applySecond$w" ) ) ) ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongApplyChain.Test" ) + ( Name "applySecond$w" ) + ) + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) - ( Name "applySecond" ) + ( Name "applySecond$w" ) ) ) ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongApplyChain.Test" ) + ( Name "applySecond$w" ) + ) + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) - ( Name "applySecond" ) + ( Name "applySecond$w" ) ) ) ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongApplyChain.Test" ) + ( Name "applySecond$w" ) + ) + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) - ( Name "applySecond" ) + ( Name "applySecond$w" ) ) ) ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongApplyChain.Test" ) + ( Name "applySecond$w" ) + ) + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) - ( Name "applySecond" ) + ( Name "applySecond$w" ) ) ) ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongApplyChain.Test" ) + ( Name "applySecond$w" ) + ) + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) - ( Name "applySecond" ) + ( Name "applySecond$w" ) ) ) ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongApplyChain.Test" ) + ( Name "applySecond$w" ) + ) + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) - ( Name "applySecond" ) + ( Name "applySecond$w" ) ) ) ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongApplyChain.Test" ) + ( Name "applySecond$w" ) + ) + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) - ( Name "applySecond" ) + ( Name "applySecond$w" ) ) ) ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongApplyChain.Test" ) + ( Name "applySecond$w" ) + ) + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) - ( Name "applySecond" ) + ( Name "applySecond$w" ) ) ) ( AppN Nothing ( Ref Nothing - ( Local - ( Name "$tmp290" ) + ( Imported + ( ModuleName "Golden.LongApplyChain.Test" ) + ( Name "applySecond$w" ) ) ) - ( AppN Nothing + ( Ref Nothing + ( Local + ( Name "$tmp290" ) + ) :| + [ AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) + ) + ) + ( LiteralInt Nothing 121 :| [] ) + ] + ) :| + [ AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 61 :| [] ) :| [] - ) :| [] - ) - ) - ( AppN Nothing + ( LiteralInt Nothing 122 :| [] ) + ] + ) :| + [ AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) + ) + ) + ( LiteralInt Nothing 123 :| [] ) + ] + ) :| + [ AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 62 :| [] ) :| [] - ) :| [] - ) - ) - ( AppN Nothing + ( LiteralInt Nothing 124 :| [] ) + ] + ) :| + [ AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) + ) + ) + ( LiteralInt Nothing 125 :| [] ) + ] + ) :| + [ AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 63 :| [] ) :| [] - ) :| [] - ) - ) - ( AppN Nothing + ( LiteralInt Nothing 126 :| [] ) + ] + ) :| + [ AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) + ) + ) + ( LiteralInt Nothing 127 :| [] ) + ] + ) :| + [ AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 64 :| [] ) :| [] - ) :| [] - ) - ) - ( AppN Nothing + ( LiteralInt Nothing 128 :| [] ) + ] + ) :| + [ AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) + ) + ) + ( LiteralInt Nothing 129 :| [] ) + ] + ) :| + [ AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 65 :| [] ) :| [] - ) :| [] - ) - ) - ( AppN Nothing + ( LiteralInt Nothing 130 :| [] ) + ] + ) :| + [ AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) + ) + ) + ( LiteralInt Nothing 131 :| [] ) + ] + ) :| + [ AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 66 :| [] ) :| [] - ) :| [] - ) - ) - ( AppN Nothing + ( LiteralInt Nothing 132 :| [] ) + ] + ) :| + [ AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) + ) + ) + ( LiteralInt Nothing 133 :| [] ) + ] + ) :| + [ AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 67 :| [] ) :| [] - ) :| [] - ) - ) - ( AppN Nothing + ( LiteralInt Nothing 134 :| [] ) + ] + ) :| + [ AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) + ) + ) + ( LiteralInt Nothing 135 :| [] ) + ] + ) :| + [ AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 68 :| [] ) :| [] - ) :| [] - ) - ) - ( AppN Nothing + ( LiteralInt Nothing 136 :| [] ) + ] + ) :| + [ AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) + ) + ) + ( LiteralInt Nothing 137 :| [] ) + ] + ) :| + [ AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 69 :| [] ) :| [] - ) :| [] - ) - ) - ( AppN Nothing + ( LiteralInt Nothing 138 :| [] ) + ] + ) :| + [ AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) + ) + ) + ( LiteralInt Nothing 139 :| [] ) + ] + ) :| + [ AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 70 :| [] ) :| [] - ) :| [] - ) - ) - ( AppN Nothing + ( LiteralInt Nothing 140 :| [] ) + ] + ) :| + [ AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) + ) + ) + ( LiteralInt Nothing 141 :| [] ) + ] + ) :| + [ AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 71 :| [] ) :| [] - ) :| [] - ) - ) - ( AppN Nothing + ( LiteralInt Nothing 142 :| [] ) + ] + ) :| + [ AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) + ) + ) + ( LiteralInt Nothing 143 :| [] ) + ] + ) :| + [ AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 72 :| [] ) :| [] - ) :| [] - ) - ) - ( AppN Nothing + ( LiteralInt Nothing 144 :| [] ) + ] + ) :| + [ AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) + ) + ) + ( LiteralInt Nothing 145 :| [] ) + ] + ) :| + [ AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 73 :| [] ) :| [] - ) :| [] - ) - ) - ( AppN Nothing + ( LiteralInt Nothing 146 :| [] ) + ] + ) :| + [ AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) + ) + ) + ( LiteralInt Nothing 147 :| [] ) + ] + ) :| + [ AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 74 :| [] ) :| [] - ) :| [] - ) - ) - ( AppN Nothing + ( LiteralInt Nothing 148 :| [] ) + ] + ) :| + [ AppN Nothing + ( Ref Nothing + ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) + ) + ( LiteralInt Nothing 149 :| [] ) + ] + ) :| + [ AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 75 :| [] ) :| [] - ) :| [] - ) - ) - ( AppN Nothing + ( LiteralInt Nothing 150 :| [] ) + ] + ) :| + [ AppN Nothing + ( Ref Nothing + ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) + ) + ( LiteralInt Nothing 151 :| [] ) + ] + ) :| + [ AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 76 :| [] ) :| [] - ) :| [] - ) - ) - ( AppN Nothing + ( LiteralInt Nothing 152 :| [] ) + ] + ) :| + [ AppN Nothing + ( Ref Nothing + ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) + ) + ( LiteralInt Nothing 153 :| [] ) + ] + ) :| + [ AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 77 :| [] ) :| [] - ) :| [] - ) - ) - ( AppN Nothing + ( LiteralInt Nothing 154 :| [] ) + ] + ) :| + [ AppN Nothing + ( Ref Nothing + ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) + ) + ( LiteralInt Nothing 155 :| [] ) + ] + ) :| + [ AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 78 :| [] ) :| [] - ) :| [] - ) - ) - ( AppN Nothing + ( LiteralInt Nothing 156 :| [] ) + ] + ) :| + [ AppN Nothing + ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) + ( LiteralInt Nothing 157 :| [] ) + ] + ) :| + [ AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 79 :| [] ) :| [] - ) :| [] - ) - ) - ( AppN Nothing + ( LiteralInt Nothing 158 :| [] ) + ] + ) :| + [ AppN Nothing + ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) + ( LiteralInt Nothing 159 :| [] ) + ] + ) :| + [ AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 80 :| [] ) :| [] - ) :| [] + ( LiteralInt Nothing 160 :| [] ) + ] ) ), Standalone ( Nothing, Name "$tmp292", AppN Nothing ( Ref Nothing - ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond" ) ) + ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond$w" ) ) ) ( AppN Nothing + ( Ref Nothing + ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond$w" ) ) + ) ( AppN Nothing ( Ref Nothing - ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond" ) ) + ( Imported + ( ModuleName "Golden.LongApplyChain.Test" ) + ( Name "applySecond$w" ) + ) ) ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongApplyChain.Test" ) + ( Name "applySecond$w" ) + ) + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) - ( Name "applySecond" ) + ( Name "applySecond$w" ) ) ) ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongApplyChain.Test" ) + ( Name "applySecond$w" ) + ) + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) - ( Name "applySecond" ) + ( Name "applySecond$w" ) ) ) ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongApplyChain.Test" ) + ( Name "applySecond$w" ) + ) + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) - ( Name "applySecond" ) + ( Name "applySecond$w" ) ) ) ( AppN Nothing - ( AppN Nothing - ( Ref Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongApplyChain.Test" ) + ( Name "applySecond$w" ) + ) + ) + ( AppN Nothing + ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) - ( Name "applySecond" ) + ( Name "applySecond$w" ) ) ) ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongApplyChain.Test" ) + ( Name "applySecond$w" ) + ) + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) - ( Name "applySecond" ) + ( Name "applySecond$w" ) ) ) ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongApplyChain.Test" ) + ( Name "applySecond$w" ) + ) + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) - ( Name "applySecond" ) + ( Name "applySecond$w" ) ) ) ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongApplyChain.Test" ) + ( Name "applySecond$w" ) + ) + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) - ( Name "applySecond" ) + ( Name "applySecond$w" ) ) ) ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongApplyChain.Test" ) + ( Name "applySecond$w" ) + ) + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) - ( Name "applySecond" ) + ( Name "applySecond$w" ) ) ) ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongApplyChain.Test" ) + ( Name "applySecond$w" ) + ) + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) - ( Name "applySecond" ) + ( Name "applySecond$w" ) ) ) ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongApplyChain.Test" ) + ( Name "applySecond$w" ) + ) + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) - ( Name "applySecond" ) + ( Name "applySecond$w" ) ) ) ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongApplyChain.Test" ) + ( Name "applySecond$w" ) + ) + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) - ( Name "applySecond" ) + ( Name "applySecond$w" ) ) ) ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongApplyChain.Test" ) + ( Name "applySecond$w" ) + ) + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) - ( Name "applySecond" ) + ( Name "applySecond$w" ) ) ) ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongApplyChain.Test" ) + ( Name "applySecond$w" ) + ) + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) - ( Name "applySecond" ) + ( Name "applySecond$w" ) ) ) ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongApplyChain.Test" ) + ( Name "applySecond$w" ) + ) + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) - ( Name "applySecond" ) + ( Name "applySecond$w" ) ) ) ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongApplyChain.Test" ) + ( Name "applySecond$w" ) + ) + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) - ( Name "applySecond" ) + ( Name "applySecond$w" ) ) ) ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongApplyChain.Test" ) + ( Name "applySecond$w" ) + ) + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) - ( Name "applySecond" ) + ( Name "applySecond$w" ) ) ) ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongApplyChain.Test" ) + ( Name "applySecond$w" ) + ) + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) - ( Name "applySecond" ) + ( Name "applySecond$w" ) ) ) ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongApplyChain.Test" ) + ( Name "applySecond$w" ) + ) + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) - ( Name "applySecond" ) + ( Name "applySecond$w" ) ) ) ( AppN Nothing ( Ref Nothing - ( Local - ( Name "$tmp291" ) + ( Imported + ( ModuleName "Golden.LongApplyChain.Test" ) + ( Name "applySecond$w" ) ) ) - ( AppN Nothing + ( Ref Nothing + ( Local + ( Name "$tmp291" ) + ) :| + [ AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) + ) + ) + ( LiteralInt Nothing 161 :| [] ) + ] + ) :| + [ AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 81 :| [] ) :| [] - ) :| [] - ) - ) - ( AppN Nothing + ( LiteralInt Nothing 162 :| [] ) + ] + ) :| + [ AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) + ) + ) + ( LiteralInt Nothing 163 :| [] ) + ] + ) :| + [ AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 82 :| [] ) :| [] - ) :| [] - ) - ) - ( AppN Nothing + ( LiteralInt Nothing 164 :| [] ) + ] + ) :| + [ AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) + ) + ) + ( LiteralInt Nothing 165 :| [] ) + ] + ) :| + [ AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 83 :| [] ) :| [] - ) :| [] - ) - ) - ( AppN Nothing + ( LiteralInt Nothing 166 :| [] ) + ] + ) :| + [ AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) + ) + ) + ( LiteralInt Nothing 167 :| [] ) + ] + ) :| + [ AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 84 :| [] ) :| [] - ) :| [] - ) - ) - ( AppN Nothing + ( LiteralInt Nothing 168 :| [] ) + ] + ) :| + [ AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) + ) + ) + ( LiteralInt Nothing 169 :| [] ) + ] + ) :| + [ AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 85 :| [] ) :| [] - ) :| [] - ) - ) - ( AppN Nothing + ( LiteralInt Nothing 170 :| [] ) + ] + ) :| + [ AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) + ) + ) + ( LiteralInt Nothing 171 :| [] ) + ] + ) :| + [ AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 86 :| [] ) :| [] - ) :| [] - ) - ) - ( AppN Nothing + ( LiteralInt Nothing 172 :| [] ) + ] + ) :| + [ AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) + ) + ) + ( LiteralInt Nothing 173 :| [] ) + ] + ) :| + [ AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 87 :| [] ) :| [] - ) :| [] - ) - ) - ( AppN Nothing + ( LiteralInt Nothing 174 :| [] ) + ] + ) :| + [ AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) + ) + ) + ( LiteralInt Nothing 175 :| [] ) + ] + ) :| + [ AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 88 :| [] ) :| [] - ) :| [] - ) - ) - ( AppN Nothing + ( LiteralInt Nothing 176 :| [] ) + ] + ) :| + [ AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) + ) + ) + ( LiteralInt Nothing 177 :| [] ) + ] + ) :| + [ AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 89 :| [] ) :| [] - ) :| [] - ) - ) - ( AppN Nothing + ( LiteralInt Nothing 178 :| [] ) + ] + ) :| + [ AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) + ) + ) + ( LiteralInt Nothing 179 :| [] ) + ] + ) :| + [ AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 90 :| [] ) :| [] - ) :| [] - ) - ) - ( AppN Nothing + ( LiteralInt Nothing 180 :| [] ) + ] + ) :| + [ AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) + ) + ) + ( LiteralInt Nothing 181 :| [] ) + ] + ) :| + [ AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 91 :| [] ) :| [] - ) :| [] - ) - ) - ( AppN Nothing + ( LiteralInt Nothing 182 :| [] ) + ] + ) :| + [ AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) + ) + ) + ( LiteralInt Nothing 183 :| [] ) + ] + ) :| + [ AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 92 :| [] ) :| [] - ) :| [] - ) - ) - ( AppN Nothing + ( LiteralInt Nothing 184 :| [] ) + ] + ) :| + [ AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) + ) + ) + ( LiteralInt Nothing 185 :| [] ) + ] + ) :| + [ AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 93 :| [] ) :| [] - ) :| [] - ) - ) - ( AppN Nothing + ( LiteralInt Nothing 186 :| [] ) + ] + ) :| + [ AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) + ) + ) + ( LiteralInt Nothing 187 :| [] ) + ] + ) :| + [ AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 94 :| [] ) :| [] - ) :| [] - ) - ) - ( AppN Nothing + ( LiteralInt Nothing 188 :| [] ) + ] + ) :| + [ AppN Nothing + ( Ref Nothing + ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) + ) + ( LiteralInt Nothing 189 :| [] ) + ] + ) :| + [ AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 95 :| [] ) :| [] - ) :| [] - ) - ) - ( AppN Nothing + ( LiteralInt Nothing 190 :| [] ) + ] + ) :| + [ AppN Nothing + ( Ref Nothing + ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) + ) + ( LiteralInt Nothing 191 :| [] ) + ] + ) :| + [ AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 96 :| [] ) :| [] - ) :| [] - ) - ) - ( AppN Nothing + ( LiteralInt Nothing 192 :| [] ) + ] + ) :| + [ AppN Nothing + ( Ref Nothing + ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) + ) + ( LiteralInt Nothing 193 :| [] ) + ] + ) :| + [ AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 97 :| [] ) :| [] - ) :| [] - ) - ) - ( AppN Nothing + ( LiteralInt Nothing 194 :| [] ) + ] + ) :| + [ AppN Nothing + ( Ref Nothing + ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) + ) + ( LiteralInt Nothing 195 :| [] ) + ] + ) :| + [ AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 98 :| [] ) :| [] - ) :| [] - ) - ) - ( AppN Nothing + ( LiteralInt Nothing 196 :| [] ) + ] + ) :| + [ AppN Nothing + ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) + ( LiteralInt Nothing 197 :| [] ) + ] + ) :| + [ AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 99 :| [] ) :| [] - ) :| [] - ) - ) - ( AppN Nothing + ( LiteralInt Nothing 198 :| [] ) + ] + ) :| + [ AppN Nothing + ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) + ( LiteralInt Nothing 199 :| [] ) + ] + ) :| + [ AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 100 :| [] ) :| [] - ) :| [] + ( LiteralInt Nothing 200 :| [] ) + ] ) ), Standalone ( Nothing, Name "$tmp293", AppN Nothing ( Ref Nothing - ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond" ) ) + ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond$w" ) ) ) ( AppN Nothing + ( Ref Nothing + ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond$w" ) ) + ) ( AppN Nothing ( Ref Nothing - ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond" ) ) + ( Imported + ( ModuleName "Golden.LongApplyChain.Test" ) + ( Name "applySecond$w" ) + ) ) ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongApplyChain.Test" ) + ( Name "applySecond$w" ) + ) + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) - ( Name "applySecond" ) + ( Name "applySecond$w" ) ) ) ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongApplyChain.Test" ) + ( Name "applySecond$w" ) + ) + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) - ( Name "applySecond" ) + ( Name "applySecond$w" ) ) ) ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongApplyChain.Test" ) + ( Name "applySecond$w" ) + ) + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) - ( Name "applySecond" ) + ( Name "applySecond$w" ) ) ) ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongApplyChain.Test" ) + ( Name "applySecond$w" ) + ) + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) - ( Name "applySecond" ) + ( Name "applySecond$w" ) ) ) ( AppN Nothing - ( AppN Nothing - ( Ref Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongApplyChain.Test" ) + ( Name "applySecond$w" ) + ) + ) + ( AppN Nothing + ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) - ( Name "applySecond" ) + ( Name "applySecond$w" ) ) ) ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongApplyChain.Test" ) + ( Name "applySecond$w" ) + ) + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) - ( Name "applySecond" ) + ( Name "applySecond$w" ) ) ) ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongApplyChain.Test" ) + ( Name "applySecond$w" ) + ) + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) - ( Name "applySecond" ) + ( Name "applySecond$w" ) ) ) ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongApplyChain.Test" ) + ( Name "applySecond$w" ) + ) + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) - ( Name "applySecond" ) + ( Name "applySecond$w" ) ) ) ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongApplyChain.Test" ) + ( Name "applySecond$w" ) + ) + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) - ( Name "applySecond" ) + ( Name "applySecond$w" ) ) ) ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongApplyChain.Test" ) + ( Name "applySecond$w" ) + ) + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) - ( Name "applySecond" ) + ( Name "applySecond$w" ) ) ) ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongApplyChain.Test" ) + ( Name "applySecond$w" ) + ) + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) - ( Name "applySecond" ) + ( Name "applySecond$w" ) ) ) ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongApplyChain.Test" ) + ( Name "applySecond$w" ) + ) + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) - ( Name "applySecond" ) + ( Name "applySecond$w" ) ) ) ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongApplyChain.Test" ) + ( Name "applySecond$w" ) + ) + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) - ( Name "applySecond" ) + ( Name "applySecond$w" ) ) ) ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongApplyChain.Test" ) + ( Name "applySecond$w" ) + ) + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) - ( Name "applySecond" ) + ( Name "applySecond$w" ) ) ) ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongApplyChain.Test" ) + ( Name "applySecond$w" ) + ) + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) - ( Name "applySecond" ) + ( Name "applySecond$w" ) ) ) ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongApplyChain.Test" ) + ( Name "applySecond$w" ) + ) + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) - ( Name "applySecond" ) + ( Name "applySecond$w" ) ) ) ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongApplyChain.Test" ) + ( Name "applySecond$w" ) + ) + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) - ( Name "applySecond" ) + ( Name "applySecond$w" ) ) ) ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongApplyChain.Test" ) + ( Name "applySecond$w" ) + ) + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) - ( Name "applySecond" ) + ( Name "applySecond$w" ) ) ) ( AppN Nothing ( Ref Nothing - ( Local - ( Name "$tmp292" ) + ( Imported + ( ModuleName "Golden.LongApplyChain.Test" ) + ( Name "applySecond$w" ) ) ) - ( AppN Nothing + ( Ref Nothing + ( Local + ( Name "$tmp292" ) + ) :| + [ AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) + ) + ) + ( LiteralInt Nothing 201 :| [] ) + ] + ) :| + [ AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 101 :| [] ) :| [] - ) :| [] - ) - ) - ( AppN Nothing + ( LiteralInt Nothing 202 :| [] ) + ] + ) :| + [ AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) + ) + ) + ( LiteralInt Nothing 203 :| [] ) + ] + ) :| + [ AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 102 :| [] ) :| [] - ) :| [] - ) - ) - ( AppN Nothing + ( LiteralInt Nothing 204 :| [] ) + ] + ) :| + [ AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) + ) + ) + ( LiteralInt Nothing 205 :| [] ) + ] + ) :| + [ AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 103 :| [] ) :| [] - ) :| [] - ) - ) - ( AppN Nothing + ( LiteralInt Nothing 206 :| [] ) + ] + ) :| + [ AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) + ) + ) + ( LiteralInt Nothing 207 :| [] ) + ] + ) :| + [ AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 104 :| [] ) :| [] - ) :| [] - ) - ) - ( AppN Nothing + ( LiteralInt Nothing 208 :| [] ) + ] + ) :| + [ AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) + ) + ) + ( LiteralInt Nothing 209 :| [] ) + ] + ) :| + [ AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 105 :| [] ) :| [] - ) :| [] - ) - ) - ( AppN Nothing + ( LiteralInt Nothing 210 :| [] ) + ] + ) :| + [ AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) + ) + ) + ( LiteralInt Nothing 211 :| [] ) + ] + ) :| + [ AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 106 :| [] ) :| [] - ) :| [] - ) - ) - ( AppN Nothing + ( LiteralInt Nothing 212 :| [] ) + ] + ) :| + [ AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) + ) + ) + ( LiteralInt Nothing 213 :| [] ) + ] + ) :| + [ AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 107 :| [] ) :| [] - ) :| [] - ) - ) - ( AppN Nothing + ( LiteralInt Nothing 214 :| [] ) + ] + ) :| + [ AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) + ) + ) + ( LiteralInt Nothing 215 :| [] ) + ] + ) :| + [ AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 108 :| [] ) :| [] - ) :| [] - ) - ) - ( AppN Nothing + ( LiteralInt Nothing 216 :| [] ) + ] + ) :| + [ AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) + ) + ) + ( LiteralInt Nothing 217 :| [] ) + ] + ) :| + [ AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 109 :| [] ) :| [] - ) :| [] - ) - ) - ( AppN Nothing + ( LiteralInt Nothing 218 :| [] ) + ] + ) :| + [ AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) + ) + ) + ( LiteralInt Nothing 219 :| [] ) + ] + ) :| + [ AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 110 :| [] ) :| [] - ) :| [] - ) - ) - ( AppN Nothing + ( LiteralInt Nothing 220 :| [] ) + ] + ) :| + [ AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) + ) + ) + ( LiteralInt Nothing 221 :| [] ) + ] + ) :| + [ AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 111 :| [] ) :| [] - ) :| [] - ) - ) - ( AppN Nothing + ( LiteralInt Nothing 222 :| [] ) + ] + ) :| + [ AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) + ) + ) + ( LiteralInt Nothing 223 :| [] ) + ] + ) :| + [ AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 112 :| [] ) :| [] - ) :| [] - ) - ) - ( AppN Nothing + ( LiteralInt Nothing 224 :| [] ) + ] + ) :| + [ AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) + ) + ) + ( LiteralInt Nothing 225 :| [] ) + ] + ) :| + [ AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 113 :| [] ) :| [] - ) :| [] - ) - ) - ( AppN Nothing + ( LiteralInt Nothing 226 :| [] ) + ] + ) :| + [ AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) + ) + ) + ( LiteralInt Nothing 227 :| [] ) + ] + ) :| + [ AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 114 :| [] ) :| [] - ) :| [] - ) - ) - ( AppN Nothing + ( LiteralInt Nothing 228 :| [] ) + ] + ) :| + [ AppN Nothing + ( Ref Nothing + ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) + ) + ( LiteralInt Nothing 229 :| [] ) + ] + ) :| + [ AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 115 :| [] ) :| [] - ) :| [] - ) - ) - ( AppN Nothing + ( LiteralInt Nothing 230 :| [] ) + ] + ) :| + [ AppN Nothing + ( Ref Nothing + ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) + ) + ( LiteralInt Nothing 231 :| [] ) + ] + ) :| + [ AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 116 :| [] ) :| [] - ) :| [] - ) - ) - ( AppN Nothing + ( LiteralInt Nothing 232 :| [] ) + ] + ) :| + [ AppN Nothing + ( Ref Nothing + ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) + ) + ( LiteralInt Nothing 233 :| [] ) + ] + ) :| + [ AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 117 :| [] ) :| [] - ) :| [] - ) - ) - ( AppN Nothing + ( LiteralInt Nothing 234 :| [] ) + ] + ) :| + [ AppN Nothing + ( Ref Nothing + ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) + ) + ( LiteralInt Nothing 235 :| [] ) + ] + ) :| + [ AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 118 :| [] ) :| [] - ) :| [] - ) - ) - ( AppN Nothing + ( LiteralInt Nothing 236 :| [] ) + ] + ) :| + [ AppN Nothing + ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) + ( LiteralInt Nothing 237 :| [] ) + ] + ) :| + [ AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 119 :| [] ) :| [] - ) :| [] - ) - ) - ( AppN Nothing + ( LiteralInt Nothing 238 :| [] ) + ] + ) :| + [ AppN Nothing + ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) + ( LiteralInt Nothing 239 :| [] ) + ] + ) :| + [ AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 120 :| [] ) :| [] - ) :| [] + ( LiteralInt Nothing 240 :| [] ) + ] ) ), Standalone ( Nothing, Name "$tmp294", AppN Nothing ( Ref Nothing - ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond" ) ) + ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond$w" ) ) ) ( AppN Nothing + ( Ref Nothing + ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond$w" ) ) + ) ( AppN Nothing ( Ref Nothing - ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond" ) ) + ( Imported + ( ModuleName "Golden.LongApplyChain.Test" ) + ( Name "applySecond$w" ) + ) ) ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongApplyChain.Test" ) + ( Name "applySecond$w" ) + ) + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) - ( Name "applySecond" ) + ( Name "applySecond$w" ) ) ) ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongApplyChain.Test" ) + ( Name "applySecond$w" ) + ) + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) - ( Name "applySecond" ) + ( Name "applySecond$w" ) ) ) ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongApplyChain.Test" ) + ( Name "applySecond$w" ) + ) + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) - ( Name "applySecond" ) + ( Name "applySecond$w" ) ) ) ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongApplyChain.Test" ) + ( Name "applySecond$w" ) + ) + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) - ( Name "applySecond" ) + ( Name "applySecond$w" ) ) ) ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongApplyChain.Test" ) + ( Name "applySecond$w" ) + ) + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) - ( Name "applySecond" ) + ( Name "applySecond$w" ) ) ) ( AppN Nothing - ( AppN Nothing - ( Ref Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongApplyChain.Test" ) + ( Name "applySecond$w" ) + ) + ) + ( AppN Nothing + ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) - ( Name "applySecond" ) + ( Name "applySecond$w" ) ) ) ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongApplyChain.Test" ) + ( Name "applySecond$w" ) + ) + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) - ( Name "applySecond" ) + ( Name "applySecond$w" ) ) ) ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongApplyChain.Test" ) + ( Name "applySecond$w" ) + ) + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) - ( Name "applySecond" ) + ( Name "applySecond$w" ) ) ) ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongApplyChain.Test" ) + ( Name "applySecond$w" ) + ) + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) - ( Name "applySecond" ) + ( Name "applySecond$w" ) ) ) ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongApplyChain.Test" ) + ( Name "applySecond$w" ) + ) + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) - ( Name "applySecond" ) + ( Name "applySecond$w" ) ) ) ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongApplyChain.Test" ) + ( Name "applySecond$w" ) + ) + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) - ( Name "applySecond" ) + ( Name "applySecond$w" ) ) ) ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongApplyChain.Test" ) + ( Name "applySecond$w" ) + ) + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) - ( Name "applySecond" ) + ( Name "applySecond$w" ) ) ) ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongApplyChain.Test" ) + ( Name "applySecond$w" ) + ) + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) - ( Name "applySecond" ) + ( Name "applySecond$w" ) ) ) ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongApplyChain.Test" ) + ( Name "applySecond$w" ) + ) + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) - ( Name "applySecond" ) + ( Name "applySecond$w" ) ) ) ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongApplyChain.Test" ) + ( Name "applySecond$w" ) + ) + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) - ( Name "applySecond" ) + ( Name "applySecond$w" ) ) ) ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongApplyChain.Test" ) + ( Name "applySecond$w" ) + ) + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) - ( Name "applySecond" ) + ( Name "applySecond$w" ) ) ) ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongApplyChain.Test" ) + ( Name "applySecond$w" ) + ) + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) - ( Name "applySecond" ) + ( Name "applySecond$w" ) ) ) ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongApplyChain.Test" ) + ( Name "applySecond$w" ) + ) + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) - ( Name "applySecond" ) + ( Name "applySecond$w" ) ) ) ( AppN Nothing ( Ref Nothing - ( Local - ( Name "$tmp293" ) + ( Imported + ( ModuleName "Golden.LongApplyChain.Test" ) + ( Name "applySecond$w" ) ) ) - ( AppN Nothing + ( Ref Nothing + ( Local + ( Name "$tmp293" ) + ) :| + [ AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) + ) + ) + ( LiteralInt Nothing 241 :| [] ) + ] + ) :| + [ AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 121 :| [] ) :| [] - ) :| [] - ) - ) - ( AppN Nothing + ( LiteralInt Nothing 242 :| [] ) + ] + ) :| + [ AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) + ) + ) + ( LiteralInt Nothing 243 :| [] ) + ] + ) :| + [ AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 122 :| [] ) :| [] - ) :| [] - ) - ) - ( AppN Nothing + ( LiteralInt Nothing 244 :| [] ) + ] + ) :| + [ AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) + ) + ) + ( LiteralInt Nothing 245 :| [] ) + ] + ) :| + [ AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 123 :| [] ) :| [] - ) :| [] - ) - ) - ( AppN Nothing + ( LiteralInt Nothing 246 :| [] ) + ] + ) :| + [ AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) + ) + ) + ( LiteralInt Nothing 247 :| [] ) + ] + ) :| + [ AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 124 :| [] ) :| [] - ) :| [] - ) - ) - ( AppN Nothing + ( LiteralInt Nothing 248 :| [] ) + ] + ) :| + [ AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) + ) + ) + ( LiteralInt Nothing 249 :| [] ) + ] + ) :| + [ AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 125 :| [] ) :| [] - ) :| [] - ) - ) - ( AppN Nothing + ( LiteralInt Nothing 250 :| [] ) + ] + ) :| + [ AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) + ) + ) + ( LiteralInt Nothing 251 :| [] ) + ] + ) :| + [ AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 126 :| [] ) :| [] - ) :| [] - ) - ) - ( AppN Nothing + ( LiteralInt Nothing 252 :| [] ) + ] + ) :| + [ AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) + ) + ) + ( LiteralInt Nothing 253 :| [] ) + ] + ) :| + [ AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 127 :| [] ) :| [] - ) :| [] - ) - ) - ( AppN Nothing + ( LiteralInt Nothing 254 :| [] ) + ] + ) :| + [ AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) + ) + ) + ( LiteralInt Nothing 255 :| [] ) + ] + ) :| + [ AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 128 :| [] ) :| [] - ) :| [] - ) - ) - ( AppN Nothing + ( LiteralInt Nothing 256 :| [] ) + ] + ) :| + [ AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) + ) + ) + ( LiteralInt Nothing 257 :| [] ) + ] + ) :| + [ AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 129 :| [] ) :| [] - ) :| [] - ) - ) - ( AppN Nothing + ( LiteralInt Nothing 258 :| [] ) + ] + ) :| + [ AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) + ) + ) + ( LiteralInt Nothing 259 :| [] ) + ] + ) :| + [ AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 130 :| [] ) :| [] - ) :| [] - ) - ) - ( AppN Nothing + ( LiteralInt Nothing 260 :| [] ) + ] + ) :| + [ AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) + ) + ) + ( LiteralInt Nothing 261 :| [] ) + ] + ) :| + [ AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 131 :| [] ) :| [] - ) :| [] - ) - ) - ( AppN Nothing + ( LiteralInt Nothing 262 :| [] ) + ] + ) :| + [ AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) + ) + ) + ( LiteralInt Nothing 263 :| [] ) + ] + ) :| + [ AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 132 :| [] ) :| [] - ) :| [] - ) - ) - ( AppN Nothing + ( LiteralInt Nothing 264 :| [] ) + ] + ) :| + [ AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) + ) + ) + ( LiteralInt Nothing 265 :| [] ) + ] + ) :| + [ AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 133 :| [] ) :| [] - ) :| [] - ) - ) - ( AppN Nothing + ( LiteralInt Nothing 266 :| [] ) + ] + ) :| + [ AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) + ) + ) + ( LiteralInt Nothing 267 :| [] ) + ] + ) :| + [ AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 134 :| [] ) :| [] - ) :| [] - ) - ) - ( AppN Nothing + ( LiteralInt Nothing 268 :| [] ) + ] + ) :| + [ AppN Nothing + ( Ref Nothing + ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) + ) + ( LiteralInt Nothing 269 :| [] ) + ] + ) :| + [ AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 135 :| [] ) :| [] - ) :| [] - ) - ) - ( AppN Nothing + ( LiteralInt Nothing 270 :| [] ) + ] + ) :| + [ AppN Nothing + ( Ref Nothing + ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) + ) + ( LiteralInt Nothing 271 :| [] ) + ] + ) :| + [ AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 136 :| [] ) :| [] - ) :| [] - ) - ) - ( AppN Nothing + ( LiteralInt Nothing 272 :| [] ) + ] + ) :| + [ AppN Nothing + ( Ref Nothing + ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) + ) + ( LiteralInt Nothing 273 :| [] ) + ] + ) :| + [ AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 137 :| [] ) :| [] - ) :| [] - ) - ) - ( AppN Nothing + ( LiteralInt Nothing 274 :| [] ) + ] + ) :| + [ AppN Nothing + ( Ref Nothing + ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) + ) + ( LiteralInt Nothing 275 :| [] ) + ] + ) :| + [ AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 138 :| [] ) :| [] - ) :| [] - ) - ) - ( AppN Nothing + ( LiteralInt Nothing 276 :| [] ) + ] + ) :| + [ AppN Nothing + ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) + ( LiteralInt Nothing 277 :| [] ) + ] + ) :| + [ AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 139 :| [] ) :| [] - ) :| [] - ) - ) - ( AppN Nothing + ( LiteralInt Nothing 278 :| [] ) + ] + ) :| + [ AppN Nothing + ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) + ( LiteralInt Nothing 279 :| [] ) + ] + ) :| + [ AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 140 :| [] ) :| [] - ) :| [] + ( LiteralInt Nothing 280 :| [] ) + ] ) - ), Standalone - ( Nothing, Name "$tmp295", AppN Nothing + ) + ] + ) + ( AppN Nothing + ( Ref Nothing + ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond$w" ) ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond$w" ) ) + ) + ( AppN Nothing ( Ref Nothing - ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond" ) ) + ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond$w" ) ) ) ( AppN Nothing + ( Ref Nothing + ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond$w" ) ) + ) ( AppN Nothing ( Ref Nothing - ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond" ) ) + ( Imported + ( ModuleName "Golden.LongApplyChain.Test" ) + ( Name "applySecond$w" ) + ) ) ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongApplyChain.Test" ) + ( Name "applySecond$w" ) + ) + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) - ( Name "applySecond" ) + ( Name "applySecond$w" ) ) ) ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongApplyChain.Test" ) + ( Name "applySecond$w" ) + ) + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) - ( Name "applySecond" ) + ( Name "applySecond$w" ) ) ) ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongApplyChain.Test" ) + ( Name "applySecond$w" ) + ) + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) - ( Name "applySecond" ) + ( Name "applySecond$w" ) ) ) ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongApplyChain.Test" ) + ( Name "applySecond$w" ) + ) + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) - ( Name "applySecond" ) + ( Name "applySecond$w" ) ) ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongApplyChain.Test" ) - ( Name "applySecond" ) - ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongApplyChain.Test" ) - ( Name "applySecond" ) - ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongApplyChain.Test" ) - ( Name "applySecond" ) - ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongApplyChain.Test" ) - ( Name "applySecond" ) - ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongApplyChain.Test" ) - ( Name "applySecond" ) - ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongApplyChain.Test" ) - ( Name "applySecond" ) - ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongApplyChain.Test" ) - ( Name "applySecond" ) - ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongApplyChain.Test" ) - ( Name "applySecond" ) - ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongApplyChain.Test" ) - ( Name "applySecond" ) - ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongApplyChain.Test" ) - ( Name "applySecond" ) - ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongApplyChain.Test" ) - ( Name "applySecond" ) - ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongApplyChain.Test" ) - ( Name "applySecond" ) - ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongApplyChain.Test" ) - ( Name "applySecond" ) - ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongApplyChain.Test" ) - ( Name "applySecond" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Local - ( Name "$tmp294" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) - ) - ) - ( LiteralInt Nothing 141 :| [] ) :| [] - ) :| [] - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) - ) - ) - ( LiteralInt Nothing 142 :| [] ) :| [] - ) :| [] - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) - ) - ) - ( LiteralInt Nothing 143 :| [] ) :| [] - ) :| [] - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) - ) - ) - ( LiteralInt Nothing 144 :| [] ) :| [] - ) :| [] - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) - ) - ) - ( LiteralInt Nothing 145 :| [] ) :| [] - ) :| [] - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) - ) - ) - ( LiteralInt Nothing 146 :| [] ) :| [] - ) :| [] - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) - ) - ) - ( LiteralInt Nothing 147 :| [] ) :| [] - ) :| [] - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) - ) - ) - ( LiteralInt Nothing 148 :| [] ) :| [] - ) :| [] - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) - ) - ) - ( LiteralInt Nothing 149 :| [] ) :| [] - ) :| [] - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) - ) - ) - ( LiteralInt Nothing 150 :| [] ) :| [] - ) :| [] - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) - ) - ) - ( LiteralInt Nothing 151 :| [] ) :| [] - ) :| [] - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) - ) - ) - ( LiteralInt Nothing 152 :| [] ) :| [] - ) :| [] - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) - ) - ) - ( LiteralInt Nothing 153 :| [] ) :| [] - ) :| [] - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) - ) - ( LiteralInt Nothing 154 :| [] ) :| [] - ) :| [] - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) - ) - ( LiteralInt Nothing 155 :| [] ) :| [] - ) :| [] - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) - ) - ( LiteralInt Nothing 156 :| [] ) :| [] - ) :| [] - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) - ) - ( LiteralInt Nothing 157 :| [] ) :| [] - ) :| [] - ) - ) - ( AppN Nothing - ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 158 :| [] ) :| [] - ) :| [] - ) - ) - ( AppN Nothing - ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 159 :| [] ) :| [] - ) :| [] - ) - ) - ( AppN Nothing - ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 160 :| [] ) :| [] - ) :| [] - ) - ), Standalone - ( Nothing, Name "$tmp296", AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond" ) ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond" ) ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongApplyChain.Test" ) - ( Name "applySecond" ) - ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongApplyChain.Test" ) - ( Name "applySecond" ) - ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongApplyChain.Test" ) - ( Name "applySecond" ) - ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongApplyChain.Test" ) - ( Name "applySecond" ) - ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongApplyChain.Test" ) - ( Name "applySecond" ) - ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongApplyChain.Test" ) - ( Name "applySecond" ) - ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongApplyChain.Test" ) - ( Name "applySecond" ) - ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongApplyChain.Test" ) - ( Name "applySecond" ) - ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongApplyChain.Test" ) - ( Name "applySecond" ) - ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongApplyChain.Test" ) - ( Name "applySecond" ) - ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongApplyChain.Test" ) - ( Name "applySecond" ) - ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongApplyChain.Test" ) - ( Name "applySecond" ) - ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongApplyChain.Test" ) - ( Name "applySecond" ) - ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongApplyChain.Test" ) - ( Name "applySecond" ) - ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongApplyChain.Test" ) - ( Name "applySecond" ) - ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongApplyChain.Test" ) - ( Name "applySecond" ) - ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongApplyChain.Test" ) - ( Name "applySecond" ) - ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongApplyChain.Test" ) - ( Name "applySecond" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Local - ( Name "$tmp295" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) - ) - ) - ( LiteralInt Nothing 161 :| [] ) :| [] - ) :| [] - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) - ) - ) - ( LiteralInt Nothing 162 :| [] ) :| [] - ) :| [] - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) - ) - ) - ( LiteralInt Nothing 163 :| [] ) :| [] - ) :| [] - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) - ) - ) - ( LiteralInt Nothing 164 :| [] ) :| [] - ) :| [] - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) - ) - ) - ( LiteralInt Nothing 165 :| [] ) :| [] - ) :| [] - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) - ) - ) - ( LiteralInt Nothing 166 :| [] ) :| [] - ) :| [] - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) - ) - ) - ( LiteralInt Nothing 167 :| [] ) :| [] - ) :| [] - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) - ) - ) - ( LiteralInt Nothing 168 :| [] ) :| [] - ) :| [] - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) - ) - ) - ( LiteralInt Nothing 169 :| [] ) :| [] - ) :| [] - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) - ) - ) - ( LiteralInt Nothing 170 :| [] ) :| [] - ) :| [] - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) - ) - ) - ( LiteralInt Nothing 171 :| [] ) :| [] - ) :| [] - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) - ) - ) - ( LiteralInt Nothing 172 :| [] ) :| [] - ) :| [] - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) - ) - ) - ( LiteralInt Nothing 173 :| [] ) :| [] - ) :| [] - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) - ) - ( LiteralInt Nothing 174 :| [] ) :| [] - ) :| [] - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) - ) - ( LiteralInt Nothing 175 :| [] ) :| [] - ) :| [] - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) - ) - ( LiteralInt Nothing 176 :| [] ) :| [] - ) :| [] - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) - ) - ( LiteralInt Nothing 177 :| [] ) :| [] - ) :| [] - ) - ) - ( AppN Nothing - ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 178 :| [] ) :| [] - ) :| [] - ) - ) - ( AppN Nothing - ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 179 :| [] ) :| [] - ) :| [] - ) - ) - ( AppN Nothing - ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 180 :| [] ) :| [] - ) :| [] - ) - ), Standalone - ( Nothing, Name "$tmp297", AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond" ) ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond" ) ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongApplyChain.Test" ) - ( Name "applySecond" ) - ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongApplyChain.Test" ) - ( Name "applySecond" ) - ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongApplyChain.Test" ) - ( Name "applySecond" ) - ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongApplyChain.Test" ) - ( Name "applySecond" ) - ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongApplyChain.Test" ) - ( Name "applySecond" ) - ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongApplyChain.Test" ) - ( Name "applySecond" ) - ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongApplyChain.Test" ) - ( Name "applySecond" ) - ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongApplyChain.Test" ) - ( Name "applySecond" ) - ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongApplyChain.Test" ) - ( Name "applySecond" ) - ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongApplyChain.Test" ) - ( Name "applySecond" ) - ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongApplyChain.Test" ) - ( Name "applySecond" ) - ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongApplyChain.Test" ) - ( Name "applySecond" ) - ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongApplyChain.Test" ) - ( Name "applySecond" ) - ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongApplyChain.Test" ) - ( Name "applySecond" ) - ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongApplyChain.Test" ) - ( Name "applySecond" ) - ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongApplyChain.Test" ) - ( Name "applySecond" ) - ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongApplyChain.Test" ) - ( Name "applySecond" ) - ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongApplyChain.Test" ) - ( Name "applySecond" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Local - ( Name "$tmp296" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) - ) - ) - ( LiteralInt Nothing 181 :| [] ) :| [] - ) :| [] - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) - ) - ) - ( LiteralInt Nothing 182 :| [] ) :| [] - ) :| [] - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) - ) - ) - ( LiteralInt Nothing 183 :| [] ) :| [] - ) :| [] - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) - ) - ) - ( LiteralInt Nothing 184 :| [] ) :| [] - ) :| [] - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) - ) - ) - ( LiteralInt Nothing 185 :| [] ) :| [] - ) :| [] - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) - ) - ) - ( LiteralInt Nothing 186 :| [] ) :| [] - ) :| [] - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) - ) - ) - ( LiteralInt Nothing 187 :| [] ) :| [] - ) :| [] - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) - ) - ) - ( LiteralInt Nothing 188 :| [] ) :| [] - ) :| [] - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) - ) - ) - ( LiteralInt Nothing 189 :| [] ) :| [] - ) :| [] - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) - ) - ) - ( LiteralInt Nothing 190 :| [] ) :| [] - ) :| [] - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) - ) - ) - ( LiteralInt Nothing 191 :| [] ) :| [] - ) :| [] - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) - ) - ) - ( LiteralInt Nothing 192 :| [] ) :| [] - ) :| [] - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) - ) - ) - ( LiteralInt Nothing 193 :| [] ) :| [] - ) :| [] - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) - ) - ( LiteralInt Nothing 194 :| [] ) :| [] - ) :| [] - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) - ) - ( LiteralInt Nothing 195 :| [] ) :| [] - ) :| [] - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) - ) - ( LiteralInt Nothing 196 :| [] ) :| [] - ) :| [] - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) - ) - ( LiteralInt Nothing 197 :| [] ) :| [] - ) :| [] - ) - ) - ( AppN Nothing - ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 198 :| [] ) :| [] - ) :| [] - ) - ) - ( AppN Nothing - ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 199 :| [] ) :| [] - ) :| [] - ) - ) - ( AppN Nothing - ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 200 :| [] ) :| [] - ) :| [] - ) - ), Standalone - ( Nothing, Name "$tmp298", AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond" ) ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond" ) ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongApplyChain.Test" ) - ( Name "applySecond" ) - ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongApplyChain.Test" ) - ( Name "applySecond" ) - ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongApplyChain.Test" ) - ( Name "applySecond" ) - ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongApplyChain.Test" ) - ( Name "applySecond" ) - ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongApplyChain.Test" ) - ( Name "applySecond" ) - ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongApplyChain.Test" ) - ( Name "applySecond" ) - ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongApplyChain.Test" ) - ( Name "applySecond" ) - ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongApplyChain.Test" ) - ( Name "applySecond" ) - ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongApplyChain.Test" ) - ( Name "applySecond" ) - ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongApplyChain.Test" ) - ( Name "applySecond" ) - ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongApplyChain.Test" ) - ( Name "applySecond" ) - ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongApplyChain.Test" ) - ( Name "applySecond" ) - ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongApplyChain.Test" ) - ( Name "applySecond" ) - ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongApplyChain.Test" ) - ( Name "applySecond" ) - ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongApplyChain.Test" ) - ( Name "applySecond" ) - ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongApplyChain.Test" ) - ( Name "applySecond" ) - ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongApplyChain.Test" ) - ( Name "applySecond" ) - ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongApplyChain.Test" ) - ( Name "applySecond" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Local - ( Name "$tmp297" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) - ) - ) - ( LiteralInt Nothing 201 :| [] ) :| [] - ) :| [] - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) - ) - ) - ( LiteralInt Nothing 202 :| [] ) :| [] - ) :| [] - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) - ) - ) - ( LiteralInt Nothing 203 :| [] ) :| [] - ) :| [] - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) - ) - ) - ( LiteralInt Nothing 204 :| [] ) :| [] - ) :| [] - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) - ) - ) - ( LiteralInt Nothing 205 :| [] ) :| [] - ) :| [] - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) - ) - ) - ( LiteralInt Nothing 206 :| [] ) :| [] - ) :| [] - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) - ) - ) - ( LiteralInt Nothing 207 :| [] ) :| [] - ) :| [] - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) - ) - ) - ( LiteralInt Nothing 208 :| [] ) :| [] - ) :| [] - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) - ) - ) - ( LiteralInt Nothing 209 :| [] ) :| [] - ) :| [] - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) - ) - ) - ( LiteralInt Nothing 210 :| [] ) :| [] - ) :| [] - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) - ) - ) - ( LiteralInt Nothing 211 :| [] ) :| [] - ) :| [] - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) - ) - ) - ( LiteralInt Nothing 212 :| [] ) :| [] - ) :| [] - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) - ) - ) - ( LiteralInt Nothing 213 :| [] ) :| [] - ) :| [] - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) - ) - ( LiteralInt Nothing 214 :| [] ) :| [] - ) :| [] - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) - ) - ( LiteralInt Nothing 215 :| [] ) :| [] - ) :| [] - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) - ) - ( LiteralInt Nothing 216 :| [] ) :| [] - ) :| [] - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) - ) - ( LiteralInt Nothing 217 :| [] ) :| [] - ) :| [] - ) - ) - ( AppN Nothing - ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 218 :| [] ) :| [] - ) :| [] - ) - ) - ( AppN Nothing - ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 219 :| [] ) :| [] - ) :| [] - ) - ) - ( AppN Nothing - ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 220 :| [] ) :| [] - ) :| [] - ) - ), Standalone - ( Nothing, Name "$tmp299", AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond" ) ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond" ) ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongApplyChain.Test" ) - ( Name "applySecond" ) - ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongApplyChain.Test" ) - ( Name "applySecond" ) - ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongApplyChain.Test" ) - ( Name "applySecond" ) - ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongApplyChain.Test" ) - ( Name "applySecond" ) - ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongApplyChain.Test" ) - ( Name "applySecond" ) - ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongApplyChain.Test" ) - ( Name "applySecond" ) - ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongApplyChain.Test" ) - ( Name "applySecond" ) - ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongApplyChain.Test" ) - ( Name "applySecond" ) - ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongApplyChain.Test" ) - ( Name "applySecond" ) - ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongApplyChain.Test" ) - ( Name "applySecond" ) - ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongApplyChain.Test" ) - ( Name "applySecond" ) - ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongApplyChain.Test" ) - ( Name "applySecond" ) - ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongApplyChain.Test" ) - ( Name "applySecond" ) - ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongApplyChain.Test" ) - ( Name "applySecond" ) - ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongApplyChain.Test" ) - ( Name "applySecond" ) - ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongApplyChain.Test" ) - ( Name "applySecond" ) - ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongApplyChain.Test" ) - ( Name "applySecond" ) - ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongApplyChain.Test" ) - ( Name "applySecond" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Local - ( Name "$tmp298" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) - ) - ) - ( LiteralInt Nothing 221 :| [] ) :| [] - ) :| [] - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) - ) - ) - ( LiteralInt Nothing 222 :| [] ) :| [] - ) :| [] - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) - ) - ) - ( LiteralInt Nothing 223 :| [] ) :| [] - ) :| [] - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) - ) - ) - ( LiteralInt Nothing 224 :| [] ) :| [] - ) :| [] - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) - ) - ) - ( LiteralInt Nothing 225 :| [] ) :| [] - ) :| [] - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) - ) - ) - ( LiteralInt Nothing 226 :| [] ) :| [] - ) :| [] - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) - ) - ) - ( LiteralInt Nothing 227 :| [] ) :| [] - ) :| [] - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) - ) - ) - ( LiteralInt Nothing 228 :| [] ) :| [] - ) :| [] - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) - ) - ) - ( LiteralInt Nothing 229 :| [] ) :| [] - ) :| [] - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) - ) - ) - ( LiteralInt Nothing 230 :| [] ) :| [] - ) :| [] - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) - ) - ) - ( LiteralInt Nothing 231 :| [] ) :| [] - ) :| [] - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) - ) - ) - ( LiteralInt Nothing 232 :| [] ) :| [] - ) :| [] - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) - ) - ) - ( LiteralInt Nothing 233 :| [] ) :| [] - ) :| [] - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) - ) - ( LiteralInt Nothing 234 :| [] ) :| [] - ) :| [] - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) - ) - ( LiteralInt Nothing 235 :| [] ) :| [] - ) :| [] - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) - ) - ( LiteralInt Nothing 236 :| [] ) :| [] - ) :| [] - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) - ) - ( LiteralInt Nothing 237 :| [] ) :| [] - ) :| [] - ) - ) - ( AppN Nothing - ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 238 :| [] ) :| [] - ) :| [] - ) - ) - ( AppN Nothing - ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 239 :| [] ) :| [] - ) :| [] - ) - ) - ( AppN Nothing - ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 240 :| [] ) :| [] - ) :| [] - ) - ), Standalone - ( Nothing, Name "$tmp300", AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond" ) ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond" ) ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongApplyChain.Test" ) - ( Name "applySecond" ) - ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongApplyChain.Test" ) - ( Name "applySecond" ) - ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongApplyChain.Test" ) - ( Name "applySecond" ) - ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongApplyChain.Test" ) - ( Name "applySecond" ) - ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongApplyChain.Test" ) - ( Name "applySecond" ) - ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongApplyChain.Test" ) - ( Name "applySecond" ) - ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongApplyChain.Test" ) - ( Name "applySecond" ) - ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongApplyChain.Test" ) - ( Name "applySecond" ) - ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongApplyChain.Test" ) - ( Name "applySecond" ) - ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongApplyChain.Test" ) - ( Name "applySecond" ) - ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongApplyChain.Test" ) - ( Name "applySecond" ) - ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongApplyChain.Test" ) - ( Name "applySecond" ) - ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongApplyChain.Test" ) - ( Name "applySecond" ) - ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongApplyChain.Test" ) - ( Name "applySecond" ) - ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongApplyChain.Test" ) - ( Name "applySecond" ) - ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongApplyChain.Test" ) - ( Name "applySecond" ) - ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongApplyChain.Test" ) - ( Name "applySecond" ) - ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongApplyChain.Test" ) - ( Name "applySecond" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Local - ( Name "$tmp299" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) - ) - ) - ( LiteralInt Nothing 241 :| [] ) :| [] - ) :| [] - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) - ) - ) - ( LiteralInt Nothing 242 :| [] ) :| [] - ) :| [] - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) - ) - ) - ( LiteralInt Nothing 243 :| [] ) :| [] - ) :| [] - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) - ) - ) - ( LiteralInt Nothing 244 :| [] ) :| [] - ) :| [] - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) - ) - ) - ( LiteralInt Nothing 245 :| [] ) :| [] - ) :| [] - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) - ) - ) - ( LiteralInt Nothing 246 :| [] ) :| [] - ) :| [] - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) - ) - ) - ( LiteralInt Nothing 247 :| [] ) :| [] - ) :| [] - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) - ) - ) - ( LiteralInt Nothing 248 :| [] ) :| [] - ) :| [] - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) - ) - ) - ( LiteralInt Nothing 249 :| [] ) :| [] - ) :| [] - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) - ) - ) - ( LiteralInt Nothing 250 :| [] ) :| [] - ) :| [] - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) - ) - ) - ( LiteralInt Nothing 251 :| [] ) :| [] - ) :| [] - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) - ) - ) - ( LiteralInt Nothing 252 :| [] ) :| [] - ) :| [] - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) - ) - ) - ( LiteralInt Nothing 253 :| [] ) :| [] - ) :| [] - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) - ) - ( LiteralInt Nothing 254 :| [] ) :| [] - ) :| [] - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) - ) - ( LiteralInt Nothing 255 :| [] ) :| [] - ) :| [] - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) - ) - ( LiteralInt Nothing 256 :| [] ) :| [] - ) :| [] - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) - ) - ( LiteralInt Nothing 257 :| [] ) :| [] - ) :| [] - ) - ) - ( AppN Nothing - ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 258 :| [] ) :| [] - ) :| [] - ) - ) - ( AppN Nothing - ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 259 :| [] ) :| [] - ) :| [] - ) - ) - ( AppN Nothing - ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 260 :| [] ) :| [] - ) :| [] - ) - ), Standalone - ( Nothing, Name "$tmp301", AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond" ) ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond" ) ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongApplyChain.Test" ) - ( Name "applySecond" ) - ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongApplyChain.Test" ) - ( Name "applySecond" ) - ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongApplyChain.Test" ) - ( Name "applySecond" ) - ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongApplyChain.Test" ) - ( Name "applySecond" ) - ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongApplyChain.Test" ) - ( Name "applySecond" ) - ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongApplyChain.Test" ) - ( Name "applySecond" ) - ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongApplyChain.Test" ) - ( Name "applySecond" ) - ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongApplyChain.Test" ) - ( Name "applySecond" ) - ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongApplyChain.Test" ) - ( Name "applySecond" ) - ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongApplyChain.Test" ) - ( Name "applySecond" ) - ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongApplyChain.Test" ) - ( Name "applySecond" ) - ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongApplyChain.Test" ) - ( Name "applySecond" ) - ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongApplyChain.Test" ) - ( Name "applySecond" ) - ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongApplyChain.Test" ) - ( Name "applySecond" ) - ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongApplyChain.Test" ) - ( Name "applySecond" ) - ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongApplyChain.Test" ) - ( Name "applySecond" ) - ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongApplyChain.Test" ) - ( Name "applySecond" ) - ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongApplyChain.Test" ) - ( Name "applySecond" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Local - ( Name "$tmp300" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) - ) - ) - ( LiteralInt Nothing 261 :| [] ) :| [] - ) :| [] - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) - ) - ) - ( LiteralInt Nothing 262 :| [] ) :| [] - ) :| [] - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) - ) - ) - ( LiteralInt Nothing 263 :| [] ) :| [] - ) :| [] - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) - ) - ) - ( LiteralInt Nothing 264 :| [] ) :| [] - ) :| [] - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) - ) - ) - ( LiteralInt Nothing 265 :| [] ) :| [] - ) :| [] - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) - ) - ) - ( LiteralInt Nothing 266 :| [] ) :| [] - ) :| [] - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) - ) - ) - ( LiteralInt Nothing 267 :| [] ) :| [] - ) :| [] - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) - ) - ) - ( LiteralInt Nothing 268 :| [] ) :| [] - ) :| [] - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) - ) - ) - ( LiteralInt Nothing 269 :| [] ) :| [] - ) :| [] - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) - ) - ) - ( LiteralInt Nothing 270 :| [] ) :| [] - ) :| [] - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) - ) - ) - ( LiteralInt Nothing 271 :| [] ) :| [] - ) :| [] - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) - ) - ) - ( LiteralInt Nothing 272 :| [] ) :| [] - ) :| [] - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) - ) - ) - ( LiteralInt Nothing 273 :| [] ) :| [] - ) :| [] - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) - ) - ( LiteralInt Nothing 274 :| [] ) :| [] - ) :| [] - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) - ) - ( LiteralInt Nothing 275 :| [] ) :| [] - ) :| [] - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) - ) - ( LiteralInt Nothing 276 :| [] ) :| [] - ) :| [] - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) - ) - ( LiteralInt Nothing 277 :| [] ) :| [] - ) :| [] - ) - ) - ( AppN Nothing - ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 278 :| [] ) :| [] - ) :| [] - ) - ) - ( AppN Nothing - ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 279 :| [] ) :| [] - ) :| [] - ) - ) - ( AppN Nothing - ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 280 :| [] ) :| [] - ) :| [] - ) - ) - ] - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond" ) ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond" ) ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongApplyChain.Test" ) - ( Name "applySecond" ) - ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongApplyChain.Test" ) - ( Name "applySecond" ) - ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongApplyChain.Test" ) - ( Name "applySecond" ) - ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongApplyChain.Test" ) - ( Name "applySecond" ) - ) - ) - ( AppN Nothing ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) - ( Name "applySecond" ) + ( Name "applySecond$w" ) ) ) ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongApplyChain.Test" ) + ( Name "applySecond$w" ) + ) + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) - ( Name "applySecond" ) + ( Name "applySecond$w" ) ) ) ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongApplyChain.Test" ) + ( Name "applySecond$w" ) + ) + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) - ( Name "applySecond" ) + ( Name "applySecond$w" ) ) ) ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongApplyChain.Test" ) + ( Name "applySecond$w" ) + ) + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) - ( Name "applySecond" ) + ( Name "applySecond$w" ) ) ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongApplyChain.Test" ) - ( Name "applySecond" ) - ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongApplyChain.Test" ) - ( Name "applySecond" ) - ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongApplyChain.Test" ) - ( Name "applySecond" ) - ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongApplyChain.Test" ) - ( Name "applySecond" ) - ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongApplyChain.Test" ) - ( Name "applySecond" ) - ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongApplyChain.Test" ) - ( Name "applySecond" ) - ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongApplyChain.Test" ) - ( Name "applySecond" ) - ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongApplyChain.Test" ) - ( Name "applySecond" ) - ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongApplyChain.Test" ) - ( Name "applySecond" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Local - ( Name "$tmp301" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) - ) - ) - ( LiteralInt Nothing 281 :| [] ) :| [] - ) :| [] - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) - ) - ) - ( LiteralInt Nothing 282 :| [] ) :| [] - ) :| [] - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) - ) - ) - ( LiteralInt Nothing 283 :| [] ) :| [] - ) :| [] - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) - ) - ) - ( LiteralInt Nothing 284 :| [] ) :| [] - ) :| [] - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) - ) - ) - ( LiteralInt Nothing 285 :| [] ) :| [] - ) :| [] - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) - ) - ) - ( LiteralInt Nothing 286 :| [] ) :| [] - ) :| [] - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) - ) - ) - ( LiteralInt Nothing 287 :| [] ) :| [] - ) :| [] - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) - ) - ) - ( LiteralInt Nothing 288 :| [] ) :| [] - ) :| [] - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) - ) - ) - ( LiteralInt Nothing 289 :| [] ) :| [] - ) :| [] - ) - ) - ( AppN Nothing + ( Ref Nothing + ( Local ( Name "$tmp294" ) ) :| + [ AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 290 :| [] ) :| [] - ) :| [] - ) - ) - ( AppN Nothing + ( LiteralInt Nothing 281 :| [] ) + ] + ) :| + [ AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) + ) + ) + ( LiteralInt Nothing 282 :| [] ) + ] + ) :| + [ AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 291 :| [] ) :| [] - ) :| [] - ) - ) - ( AppN Nothing + ( LiteralInt Nothing 283 :| [] ) + ] + ) :| + [ AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) + ) + ) + ( LiteralInt Nothing 284 :| [] ) + ] + ) :| + [ AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 292 :| [] ) :| [] - ) :| [] - ) - ) - ( AppN Nothing + ( LiteralInt Nothing 285 :| [] ) + ] + ) :| + [ AppN Nothing + ( Ref Nothing + ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) + ) + ( LiteralInt Nothing 286 :| [] ) + ] + ) :| + [ AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 293 :| [] ) :| [] - ) :| [] - ) - ) - ( AppN Nothing + ( LiteralInt Nothing 287 :| [] ) + ] + ) :| + [ AppN Nothing + ( Ref Nothing + ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) + ) + ( LiteralInt Nothing 288 :| [] ) + ] + ) :| + [ AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 294 :| [] ) :| [] - ) :| [] - ) - ) - ( AppN Nothing + ( LiteralInt Nothing 289 :| [] ) + ] + ) :| + [ AppN Nothing + ( Ref Nothing + ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) + ) + ( LiteralInt Nothing 290 :| [] ) + ] + ) :| + [ AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 295 :| [] ) :| [] - ) :| [] - ) - ) - ( AppN Nothing + ( LiteralInt Nothing 291 :| [] ) + ] + ) :| + [ AppN Nothing + ( Ref Nothing + ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) + ) + ( LiteralInt Nothing 292 :| [] ) + ] + ) :| + [ AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 296 :| [] ) :| [] - ) :| [] - ) - ) - ( AppN Nothing + ( LiteralInt Nothing 293 :| [] ) + ] + ) :| + [ AppN Nothing + ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) + ( LiteralInt Nothing 294 :| [] ) + ] + ) :| + [ AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 297 :| [] ) :| [] - ) :| [] - ) - ) - ( AppN Nothing + ( LiteralInt Nothing 295 :| [] ) + ] + ) :| + [ AppN Nothing + ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) + ( LiteralInt Nothing 296 :| [] ) + ] + ) :| + [ AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 298 :| [] ) :| [] - ) :| [] - ) - ) - ( AppN Nothing + ( LiteralInt Nothing 297 :| [] ) + ] + ) :| + [ AppN Nothing + ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) + ( LiteralInt Nothing 298 :| [] ) + ] + ) :| + [ AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 299 :| [] ) :| [] - ) :| [] - ) - ) - ( AppN Nothing - ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 300 :| [] ) :| [] + ( LiteralInt Nothing 299 :| [] ) + ] + ) :| + [ AppN Nothing + ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) + ( LiteralInt Nothing 300 :| [] ) + ] ) ) ) @@ -5442,8 +4842,8 @@ UberModule ( Ref Nothing ( Imported ( ModuleName "Data.Show" ) ( Name "show" ) ) ) ( LiteralObject Nothing [ - ( PropName "show", Abs Nothing - ( ParamNamed Nothing ( Name "v$20$287" ) ) + ( PropName "show", AbsN Nothing + ( ParamNamed Nothing ( Name "v$20$287" ) :| [] ) ( IfThenElse Nothing ( Eq Nothing ( LiteralString Nothing "Data.Maybe∷Maybe.Just" ) diff --git a/test/ps/output/Golden.LongApplyChain.Test/golden.lua b/test/ps/output/Golden.LongApplyChain.Test/golden.lua index 8f434d51..340ddd1b 100644 --- a/test/ps/output/Golden.LongApplyChain.Test/golden.lua +++ b/test/ps/output/Golden.LongApplyChain.Test/golden.lua @@ -37,29 +37,20 @@ M.Data_Maybe_applyMaybe = { end, Functor0 = function() return M.Data_Maybe_functorMaybe end } -M.Golden_LongApplyChain_Test_applySecond = function(a_S_131) - return function(b_S_132) - return M.Data_Maybe_applyMaybe.apply(M.Data_Functor_map(M.Data_Maybe_applyMaybe.Functor0())(function( ) - return function(x_S_281) return x_S_281 end - end)(a_S_131))(b_S_132) - end +M.Golden_LongApplyChain_Test_applySecond_S_w = function(a_S_131, b_S_132) + return M.Data_Maybe_applyMaybe.apply(M.Data_Functor_map(M.Data_Maybe_applyMaybe.Functor0())(function( ) + return function(x_S_281) return x_S_281 end + end)(a_S_131))(b_S_132) end M.Golden_LongApplyChain_Test_compute = (function() - local _S_tmp288 = M.Golden_LongApplyChain_Test_applySecond(M.Golden_LongApplyChain_Test_applySecond(M.Golden_LongApplyChain_Test_applySecond(M.Golden_LongApplyChain_Test_applySecond(M.Golden_LongApplyChain_Test_applySecond(M.Golden_LongApplyChain_Test_applySecond(M.Golden_LongApplyChain_Test_applySecond(M.Golden_LongApplyChain_Test_applySecond(M.Golden_LongApplyChain_Test_applySecond(M.Golden_LongApplyChain_Test_applySecond(M.Golden_LongApplyChain_Test_applySecond(M.Golden_LongApplyChain_Test_applySecond(M.Golden_LongApplyChain_Test_applySecond(M.Golden_LongApplyChain_Test_applySecond(M.Golden_LongApplyChain_Test_applySecond(M.Golden_LongApplyChain_Test_applySecond(M.Golden_LongApplyChain_Test_applySecond(M.Golden_LongApplyChain_Test_applySecond(M.Golden_LongApplyChain_Test_applySecond(M.Golden_LongApplyChain_Test_applySecond(M.Data_Maybe_Just(1))(M.Data_Maybe_Just(2)))(M.Data_Maybe_Just(3)))(M.Data_Maybe_Just(4)))(M.Data_Maybe_Just(5)))(M.Data_Maybe_Just(6)))(M.Data_Maybe_Just(7)))(M.Data_Maybe_Just(8)))(M.Data_Maybe_Just(9)))(M.Data_Maybe_Just(10)))(M.Data_Maybe_Just(11)))(M.Data_Maybe_Just(12)))(M.Data_Maybe_Just(13)))(M.Data_Maybe_Just(14)))(M.Data_Maybe_Just(15)))(M.Data_Maybe_Just(16)))(M.Data_Maybe_Just(17)))(M.Data_Maybe_Just(18)))(M.Data_Maybe_Just(19)))(M.Data_Maybe_Just(20))) - local _S_tmp289 = M.Golden_LongApplyChain_Test_applySecond(M.Golden_LongApplyChain_Test_applySecond(M.Golden_LongApplyChain_Test_applySecond(M.Golden_LongApplyChain_Test_applySecond(M.Golden_LongApplyChain_Test_applySecond(M.Golden_LongApplyChain_Test_applySecond(M.Golden_LongApplyChain_Test_applySecond(M.Golden_LongApplyChain_Test_applySecond(M.Golden_LongApplyChain_Test_applySecond(M.Golden_LongApplyChain_Test_applySecond(M.Golden_LongApplyChain_Test_applySecond(M.Golden_LongApplyChain_Test_applySecond(M.Golden_LongApplyChain_Test_applySecond(M.Golden_LongApplyChain_Test_applySecond(M.Golden_LongApplyChain_Test_applySecond(M.Golden_LongApplyChain_Test_applySecond(M.Golden_LongApplyChain_Test_applySecond(M.Golden_LongApplyChain_Test_applySecond(M.Golden_LongApplyChain_Test_applySecond(M.Golden_LongApplyChain_Test_applySecond(_S_tmp288(M.Data_Maybe_Just(21)))(M.Data_Maybe_Just(22)))(M.Data_Maybe_Just(23)))(M.Data_Maybe_Just(24)))(M.Data_Maybe_Just(25)))(M.Data_Maybe_Just(26)))(M.Data_Maybe_Just(27)))(M.Data_Maybe_Just(28)))(M.Data_Maybe_Just(29)))(M.Data_Maybe_Just(30)))(M.Data_Maybe_Just(31)))(M.Data_Maybe_Just(32)))(M.Data_Maybe_Just(33)))(M.Data_Maybe_Just(34)))(M.Data_Maybe_Just(35)))(M.Data_Maybe_Just(36)))(M.Data_Maybe_Just(37)))(M.Data_Maybe_Just(38)))(M.Data_Maybe_Just(39)))(M.Data_Maybe_Just(40))) - local _S_tmp290 = M.Golden_LongApplyChain_Test_applySecond(M.Golden_LongApplyChain_Test_applySecond(M.Golden_LongApplyChain_Test_applySecond(M.Golden_LongApplyChain_Test_applySecond(M.Golden_LongApplyChain_Test_applySecond(M.Golden_LongApplyChain_Test_applySecond(M.Golden_LongApplyChain_Test_applySecond(M.Golden_LongApplyChain_Test_applySecond(M.Golden_LongApplyChain_Test_applySecond(M.Golden_LongApplyChain_Test_applySecond(M.Golden_LongApplyChain_Test_applySecond(M.Golden_LongApplyChain_Test_applySecond(M.Golden_LongApplyChain_Test_applySecond(M.Golden_LongApplyChain_Test_applySecond(M.Golden_LongApplyChain_Test_applySecond(M.Golden_LongApplyChain_Test_applySecond(M.Golden_LongApplyChain_Test_applySecond(M.Golden_LongApplyChain_Test_applySecond(M.Golden_LongApplyChain_Test_applySecond(M.Golden_LongApplyChain_Test_applySecond(_S_tmp289(M.Data_Maybe_Just(41)))(M.Data_Maybe_Just(42)))(M.Data_Maybe_Just(43)))(M.Data_Maybe_Just(44)))(M.Data_Maybe_Just(45)))(M.Data_Maybe_Just(46)))(M.Data_Maybe_Just(47)))(M.Data_Maybe_Just(48)))(M.Data_Maybe_Just(49)))(M.Data_Maybe_Just(50)))(M.Data_Maybe_Just(51)))(M.Data_Maybe_Just(52)))(M.Data_Maybe_Just(53)))(M.Data_Maybe_Just(54)))(M.Data_Maybe_Just(55)))(M.Data_Maybe_Just(56)))(M.Data_Maybe_Just(57)))(M.Data_Maybe_Just(58)))(M.Data_Maybe_Just(59)))(M.Data_Maybe_Just(60))) - local _S_tmp291 = M.Golden_LongApplyChain_Test_applySecond(M.Golden_LongApplyChain_Test_applySecond(M.Golden_LongApplyChain_Test_applySecond(M.Golden_LongApplyChain_Test_applySecond(M.Golden_LongApplyChain_Test_applySecond(M.Golden_LongApplyChain_Test_applySecond(M.Golden_LongApplyChain_Test_applySecond(M.Golden_LongApplyChain_Test_applySecond(M.Golden_LongApplyChain_Test_applySecond(M.Golden_LongApplyChain_Test_applySecond(M.Golden_LongApplyChain_Test_applySecond(M.Golden_LongApplyChain_Test_applySecond(M.Golden_LongApplyChain_Test_applySecond(M.Golden_LongApplyChain_Test_applySecond(M.Golden_LongApplyChain_Test_applySecond(M.Golden_LongApplyChain_Test_applySecond(M.Golden_LongApplyChain_Test_applySecond(M.Golden_LongApplyChain_Test_applySecond(M.Golden_LongApplyChain_Test_applySecond(M.Golden_LongApplyChain_Test_applySecond(_S_tmp290(M.Data_Maybe_Just(61)))(M.Data_Maybe_Just(62)))(M.Data_Maybe_Just(63)))(M.Data_Maybe_Just(64)))(M.Data_Maybe_Just(65)))(M.Data_Maybe_Just(66)))(M.Data_Maybe_Just(67)))(M.Data_Maybe_Just(68)))(M.Data_Maybe_Just(69)))(M.Data_Maybe_Just(70)))(M.Data_Maybe_Just(71)))(M.Data_Maybe_Just(72)))(M.Data_Maybe_Just(73)))(M.Data_Maybe_Just(74)))(M.Data_Maybe_Just(75)))(M.Data_Maybe_Just(76)))(M.Data_Maybe_Just(77)))(M.Data_Maybe_Just(78)))(M.Data_Maybe_Just(79)))(M.Data_Maybe_Just(80))) - local _S_tmp292 = M.Golden_LongApplyChain_Test_applySecond(M.Golden_LongApplyChain_Test_applySecond(M.Golden_LongApplyChain_Test_applySecond(M.Golden_LongApplyChain_Test_applySecond(M.Golden_LongApplyChain_Test_applySecond(M.Golden_LongApplyChain_Test_applySecond(M.Golden_LongApplyChain_Test_applySecond(M.Golden_LongApplyChain_Test_applySecond(M.Golden_LongApplyChain_Test_applySecond(M.Golden_LongApplyChain_Test_applySecond(M.Golden_LongApplyChain_Test_applySecond(M.Golden_LongApplyChain_Test_applySecond(M.Golden_LongApplyChain_Test_applySecond(M.Golden_LongApplyChain_Test_applySecond(M.Golden_LongApplyChain_Test_applySecond(M.Golden_LongApplyChain_Test_applySecond(M.Golden_LongApplyChain_Test_applySecond(M.Golden_LongApplyChain_Test_applySecond(M.Golden_LongApplyChain_Test_applySecond(M.Golden_LongApplyChain_Test_applySecond(_S_tmp291(M.Data_Maybe_Just(81)))(M.Data_Maybe_Just(82)))(M.Data_Maybe_Just(83)))(M.Data_Maybe_Just(84)))(M.Data_Maybe_Just(85)))(M.Data_Maybe_Just(86)))(M.Data_Maybe_Just(87)))(M.Data_Maybe_Just(88)))(M.Data_Maybe_Just(89)))(M.Data_Maybe_Just(90)))(M.Data_Maybe_Just(91)))(M.Data_Maybe_Just(92)))(M.Data_Maybe_Just(93)))(M.Data_Maybe_Just(94)))(M.Data_Maybe_Just(95)))(M.Data_Maybe_Just(96)))(M.Data_Maybe_Just(97)))(M.Data_Maybe_Just(98)))(M.Data_Maybe_Just(99)))(M.Data_Maybe_Just(100))) - local _S_tmp293 = M.Golden_LongApplyChain_Test_applySecond(M.Golden_LongApplyChain_Test_applySecond(M.Golden_LongApplyChain_Test_applySecond(M.Golden_LongApplyChain_Test_applySecond(M.Golden_LongApplyChain_Test_applySecond(M.Golden_LongApplyChain_Test_applySecond(M.Golden_LongApplyChain_Test_applySecond(M.Golden_LongApplyChain_Test_applySecond(M.Golden_LongApplyChain_Test_applySecond(M.Golden_LongApplyChain_Test_applySecond(M.Golden_LongApplyChain_Test_applySecond(M.Golden_LongApplyChain_Test_applySecond(M.Golden_LongApplyChain_Test_applySecond(M.Golden_LongApplyChain_Test_applySecond(M.Golden_LongApplyChain_Test_applySecond(M.Golden_LongApplyChain_Test_applySecond(M.Golden_LongApplyChain_Test_applySecond(M.Golden_LongApplyChain_Test_applySecond(M.Golden_LongApplyChain_Test_applySecond(M.Golden_LongApplyChain_Test_applySecond(_S_tmp292(M.Data_Maybe_Just(101)))(M.Data_Maybe_Just(102)))(M.Data_Maybe_Just(103)))(M.Data_Maybe_Just(104)))(M.Data_Maybe_Just(105)))(M.Data_Maybe_Just(106)))(M.Data_Maybe_Just(107)))(M.Data_Maybe_Just(108)))(M.Data_Maybe_Just(109)))(M.Data_Maybe_Just(110)))(M.Data_Maybe_Just(111)))(M.Data_Maybe_Just(112)))(M.Data_Maybe_Just(113)))(M.Data_Maybe_Just(114)))(M.Data_Maybe_Just(115)))(M.Data_Maybe_Just(116)))(M.Data_Maybe_Just(117)))(M.Data_Maybe_Just(118)))(M.Data_Maybe_Just(119)))(M.Data_Maybe_Just(120))) - local _S_tmp294 = M.Golden_LongApplyChain_Test_applySecond(M.Golden_LongApplyChain_Test_applySecond(M.Golden_LongApplyChain_Test_applySecond(M.Golden_LongApplyChain_Test_applySecond(M.Golden_LongApplyChain_Test_applySecond(M.Golden_LongApplyChain_Test_applySecond(M.Golden_LongApplyChain_Test_applySecond(M.Golden_LongApplyChain_Test_applySecond(M.Golden_LongApplyChain_Test_applySecond(M.Golden_LongApplyChain_Test_applySecond(M.Golden_LongApplyChain_Test_applySecond(M.Golden_LongApplyChain_Test_applySecond(M.Golden_LongApplyChain_Test_applySecond(M.Golden_LongApplyChain_Test_applySecond(M.Golden_LongApplyChain_Test_applySecond(M.Golden_LongApplyChain_Test_applySecond(M.Golden_LongApplyChain_Test_applySecond(M.Golden_LongApplyChain_Test_applySecond(M.Golden_LongApplyChain_Test_applySecond(M.Golden_LongApplyChain_Test_applySecond(_S_tmp293(M.Data_Maybe_Just(121)))(M.Data_Maybe_Just(122)))(M.Data_Maybe_Just(123)))(M.Data_Maybe_Just(124)))(M.Data_Maybe_Just(125)))(M.Data_Maybe_Just(126)))(M.Data_Maybe_Just(127)))(M.Data_Maybe_Just(128)))(M.Data_Maybe_Just(129)))(M.Data_Maybe_Just(130)))(M.Data_Maybe_Just(131)))(M.Data_Maybe_Just(132)))(M.Data_Maybe_Just(133)))(M.Data_Maybe_Just(134)))(M.Data_Maybe_Just(135)))(M.Data_Maybe_Just(136)))(M.Data_Maybe_Just(137)))(M.Data_Maybe_Just(138)))(M.Data_Maybe_Just(139)))(M.Data_Maybe_Just(140))) - local _S_tmp295 = M.Golden_LongApplyChain_Test_applySecond(M.Golden_LongApplyChain_Test_applySecond(M.Golden_LongApplyChain_Test_applySecond(M.Golden_LongApplyChain_Test_applySecond(M.Golden_LongApplyChain_Test_applySecond(M.Golden_LongApplyChain_Test_applySecond(M.Golden_LongApplyChain_Test_applySecond(M.Golden_LongApplyChain_Test_applySecond(M.Golden_LongApplyChain_Test_applySecond(M.Golden_LongApplyChain_Test_applySecond(M.Golden_LongApplyChain_Test_applySecond(M.Golden_LongApplyChain_Test_applySecond(M.Golden_LongApplyChain_Test_applySecond(M.Golden_LongApplyChain_Test_applySecond(M.Golden_LongApplyChain_Test_applySecond(M.Golden_LongApplyChain_Test_applySecond(M.Golden_LongApplyChain_Test_applySecond(M.Golden_LongApplyChain_Test_applySecond(M.Golden_LongApplyChain_Test_applySecond(M.Golden_LongApplyChain_Test_applySecond(_S_tmp294(M.Data_Maybe_Just(141)))(M.Data_Maybe_Just(142)))(M.Data_Maybe_Just(143)))(M.Data_Maybe_Just(144)))(M.Data_Maybe_Just(145)))(M.Data_Maybe_Just(146)))(M.Data_Maybe_Just(147)))(M.Data_Maybe_Just(148)))(M.Data_Maybe_Just(149)))(M.Data_Maybe_Just(150)))(M.Data_Maybe_Just(151)))(M.Data_Maybe_Just(152)))(M.Data_Maybe_Just(153)))(M.Data_Maybe_Just(154)))(M.Data_Maybe_Just(155)))(M.Data_Maybe_Just(156)))(M.Data_Maybe_Just(157)))(M.Data_Maybe_Just(158)))(M.Data_Maybe_Just(159)))(M.Data_Maybe_Just(160))) - local _S_tmp296 = M.Golden_LongApplyChain_Test_applySecond(M.Golden_LongApplyChain_Test_applySecond(M.Golden_LongApplyChain_Test_applySecond(M.Golden_LongApplyChain_Test_applySecond(M.Golden_LongApplyChain_Test_applySecond(M.Golden_LongApplyChain_Test_applySecond(M.Golden_LongApplyChain_Test_applySecond(M.Golden_LongApplyChain_Test_applySecond(M.Golden_LongApplyChain_Test_applySecond(M.Golden_LongApplyChain_Test_applySecond(M.Golden_LongApplyChain_Test_applySecond(M.Golden_LongApplyChain_Test_applySecond(M.Golden_LongApplyChain_Test_applySecond(M.Golden_LongApplyChain_Test_applySecond(M.Golden_LongApplyChain_Test_applySecond(M.Golden_LongApplyChain_Test_applySecond(M.Golden_LongApplyChain_Test_applySecond(M.Golden_LongApplyChain_Test_applySecond(M.Golden_LongApplyChain_Test_applySecond(M.Golden_LongApplyChain_Test_applySecond(_S_tmp295(M.Data_Maybe_Just(161)))(M.Data_Maybe_Just(162)))(M.Data_Maybe_Just(163)))(M.Data_Maybe_Just(164)))(M.Data_Maybe_Just(165)))(M.Data_Maybe_Just(166)))(M.Data_Maybe_Just(167)))(M.Data_Maybe_Just(168)))(M.Data_Maybe_Just(169)))(M.Data_Maybe_Just(170)))(M.Data_Maybe_Just(171)))(M.Data_Maybe_Just(172)))(M.Data_Maybe_Just(173)))(M.Data_Maybe_Just(174)))(M.Data_Maybe_Just(175)))(M.Data_Maybe_Just(176)))(M.Data_Maybe_Just(177)))(M.Data_Maybe_Just(178)))(M.Data_Maybe_Just(179)))(M.Data_Maybe_Just(180))) - local _S_tmp297 = M.Golden_LongApplyChain_Test_applySecond(M.Golden_LongApplyChain_Test_applySecond(M.Golden_LongApplyChain_Test_applySecond(M.Golden_LongApplyChain_Test_applySecond(M.Golden_LongApplyChain_Test_applySecond(M.Golden_LongApplyChain_Test_applySecond(M.Golden_LongApplyChain_Test_applySecond(M.Golden_LongApplyChain_Test_applySecond(M.Golden_LongApplyChain_Test_applySecond(M.Golden_LongApplyChain_Test_applySecond(M.Golden_LongApplyChain_Test_applySecond(M.Golden_LongApplyChain_Test_applySecond(M.Golden_LongApplyChain_Test_applySecond(M.Golden_LongApplyChain_Test_applySecond(M.Golden_LongApplyChain_Test_applySecond(M.Golden_LongApplyChain_Test_applySecond(M.Golden_LongApplyChain_Test_applySecond(M.Golden_LongApplyChain_Test_applySecond(M.Golden_LongApplyChain_Test_applySecond(M.Golden_LongApplyChain_Test_applySecond(_S_tmp296(M.Data_Maybe_Just(181)))(M.Data_Maybe_Just(182)))(M.Data_Maybe_Just(183)))(M.Data_Maybe_Just(184)))(M.Data_Maybe_Just(185)))(M.Data_Maybe_Just(186)))(M.Data_Maybe_Just(187)))(M.Data_Maybe_Just(188)))(M.Data_Maybe_Just(189)))(M.Data_Maybe_Just(190)))(M.Data_Maybe_Just(191)))(M.Data_Maybe_Just(192)))(M.Data_Maybe_Just(193)))(M.Data_Maybe_Just(194)))(M.Data_Maybe_Just(195)))(M.Data_Maybe_Just(196)))(M.Data_Maybe_Just(197)))(M.Data_Maybe_Just(198)))(M.Data_Maybe_Just(199)))(M.Data_Maybe_Just(200))) - local _S_tmp298 = M.Golden_LongApplyChain_Test_applySecond(M.Golden_LongApplyChain_Test_applySecond(M.Golden_LongApplyChain_Test_applySecond(M.Golden_LongApplyChain_Test_applySecond(M.Golden_LongApplyChain_Test_applySecond(M.Golden_LongApplyChain_Test_applySecond(M.Golden_LongApplyChain_Test_applySecond(M.Golden_LongApplyChain_Test_applySecond(M.Golden_LongApplyChain_Test_applySecond(M.Golden_LongApplyChain_Test_applySecond(M.Golden_LongApplyChain_Test_applySecond(M.Golden_LongApplyChain_Test_applySecond(M.Golden_LongApplyChain_Test_applySecond(M.Golden_LongApplyChain_Test_applySecond(M.Golden_LongApplyChain_Test_applySecond(M.Golden_LongApplyChain_Test_applySecond(M.Golden_LongApplyChain_Test_applySecond(M.Golden_LongApplyChain_Test_applySecond(M.Golden_LongApplyChain_Test_applySecond(M.Golden_LongApplyChain_Test_applySecond(_S_tmp297(M.Data_Maybe_Just(201)))(M.Data_Maybe_Just(202)))(M.Data_Maybe_Just(203)))(M.Data_Maybe_Just(204)))(M.Data_Maybe_Just(205)))(M.Data_Maybe_Just(206)))(M.Data_Maybe_Just(207)))(M.Data_Maybe_Just(208)))(M.Data_Maybe_Just(209)))(M.Data_Maybe_Just(210)))(M.Data_Maybe_Just(211)))(M.Data_Maybe_Just(212)))(M.Data_Maybe_Just(213)))(M.Data_Maybe_Just(214)))(M.Data_Maybe_Just(215)))(M.Data_Maybe_Just(216)))(M.Data_Maybe_Just(217)))(M.Data_Maybe_Just(218)))(M.Data_Maybe_Just(219)))(M.Data_Maybe_Just(220))) - local _S_tmp299 = M.Golden_LongApplyChain_Test_applySecond(M.Golden_LongApplyChain_Test_applySecond(M.Golden_LongApplyChain_Test_applySecond(M.Golden_LongApplyChain_Test_applySecond(M.Golden_LongApplyChain_Test_applySecond(M.Golden_LongApplyChain_Test_applySecond(M.Golden_LongApplyChain_Test_applySecond(M.Golden_LongApplyChain_Test_applySecond(M.Golden_LongApplyChain_Test_applySecond(M.Golden_LongApplyChain_Test_applySecond(M.Golden_LongApplyChain_Test_applySecond(M.Golden_LongApplyChain_Test_applySecond(M.Golden_LongApplyChain_Test_applySecond(M.Golden_LongApplyChain_Test_applySecond(M.Golden_LongApplyChain_Test_applySecond(M.Golden_LongApplyChain_Test_applySecond(M.Golden_LongApplyChain_Test_applySecond(M.Golden_LongApplyChain_Test_applySecond(M.Golden_LongApplyChain_Test_applySecond(M.Golden_LongApplyChain_Test_applySecond(_S_tmp298(M.Data_Maybe_Just(221)))(M.Data_Maybe_Just(222)))(M.Data_Maybe_Just(223)))(M.Data_Maybe_Just(224)))(M.Data_Maybe_Just(225)))(M.Data_Maybe_Just(226)))(M.Data_Maybe_Just(227)))(M.Data_Maybe_Just(228)))(M.Data_Maybe_Just(229)))(M.Data_Maybe_Just(230)))(M.Data_Maybe_Just(231)))(M.Data_Maybe_Just(232)))(M.Data_Maybe_Just(233)))(M.Data_Maybe_Just(234)))(M.Data_Maybe_Just(235)))(M.Data_Maybe_Just(236)))(M.Data_Maybe_Just(237)))(M.Data_Maybe_Just(238)))(M.Data_Maybe_Just(239)))(M.Data_Maybe_Just(240))) - local _S_tmp300 = M.Golden_LongApplyChain_Test_applySecond(M.Golden_LongApplyChain_Test_applySecond(M.Golden_LongApplyChain_Test_applySecond(M.Golden_LongApplyChain_Test_applySecond(M.Golden_LongApplyChain_Test_applySecond(M.Golden_LongApplyChain_Test_applySecond(M.Golden_LongApplyChain_Test_applySecond(M.Golden_LongApplyChain_Test_applySecond(M.Golden_LongApplyChain_Test_applySecond(M.Golden_LongApplyChain_Test_applySecond(M.Golden_LongApplyChain_Test_applySecond(M.Golden_LongApplyChain_Test_applySecond(M.Golden_LongApplyChain_Test_applySecond(M.Golden_LongApplyChain_Test_applySecond(M.Golden_LongApplyChain_Test_applySecond(M.Golden_LongApplyChain_Test_applySecond(M.Golden_LongApplyChain_Test_applySecond(M.Golden_LongApplyChain_Test_applySecond(M.Golden_LongApplyChain_Test_applySecond(M.Golden_LongApplyChain_Test_applySecond(_S_tmp299(M.Data_Maybe_Just(241)))(M.Data_Maybe_Just(242)))(M.Data_Maybe_Just(243)))(M.Data_Maybe_Just(244)))(M.Data_Maybe_Just(245)))(M.Data_Maybe_Just(246)))(M.Data_Maybe_Just(247)))(M.Data_Maybe_Just(248)))(M.Data_Maybe_Just(249)))(M.Data_Maybe_Just(250)))(M.Data_Maybe_Just(251)))(M.Data_Maybe_Just(252)))(M.Data_Maybe_Just(253)))(M.Data_Maybe_Just(254)))(M.Data_Maybe_Just(255)))(M.Data_Maybe_Just(256)))(M.Data_Maybe_Just(257)))(M.Data_Maybe_Just(258)))(M.Data_Maybe_Just(259)))(M.Data_Maybe_Just(260))) - local _S_tmp301 = M.Golden_LongApplyChain_Test_applySecond(M.Golden_LongApplyChain_Test_applySecond(M.Golden_LongApplyChain_Test_applySecond(M.Golden_LongApplyChain_Test_applySecond(M.Golden_LongApplyChain_Test_applySecond(M.Golden_LongApplyChain_Test_applySecond(M.Golden_LongApplyChain_Test_applySecond(M.Golden_LongApplyChain_Test_applySecond(M.Golden_LongApplyChain_Test_applySecond(M.Golden_LongApplyChain_Test_applySecond(M.Golden_LongApplyChain_Test_applySecond(M.Golden_LongApplyChain_Test_applySecond(M.Golden_LongApplyChain_Test_applySecond(M.Golden_LongApplyChain_Test_applySecond(M.Golden_LongApplyChain_Test_applySecond(M.Golden_LongApplyChain_Test_applySecond(M.Golden_LongApplyChain_Test_applySecond(M.Golden_LongApplyChain_Test_applySecond(M.Golden_LongApplyChain_Test_applySecond(M.Golden_LongApplyChain_Test_applySecond(_S_tmp300(M.Data_Maybe_Just(261)))(M.Data_Maybe_Just(262)))(M.Data_Maybe_Just(263)))(M.Data_Maybe_Just(264)))(M.Data_Maybe_Just(265)))(M.Data_Maybe_Just(266)))(M.Data_Maybe_Just(267)))(M.Data_Maybe_Just(268)))(M.Data_Maybe_Just(269)))(M.Data_Maybe_Just(270)))(M.Data_Maybe_Just(271)))(M.Data_Maybe_Just(272)))(M.Data_Maybe_Just(273)))(M.Data_Maybe_Just(274)))(M.Data_Maybe_Just(275)))(M.Data_Maybe_Just(276)))(M.Data_Maybe_Just(277)))(M.Data_Maybe_Just(278)))(M.Data_Maybe_Just(279)))(M.Data_Maybe_Just(280))) - return M.Golden_LongApplyChain_Test_applySecond(M.Golden_LongApplyChain_Test_applySecond(M.Golden_LongApplyChain_Test_applySecond(M.Golden_LongApplyChain_Test_applySecond(M.Golden_LongApplyChain_Test_applySecond(M.Golden_LongApplyChain_Test_applySecond(M.Golden_LongApplyChain_Test_applySecond(M.Golden_LongApplyChain_Test_applySecond(M.Golden_LongApplyChain_Test_applySecond(M.Golden_LongApplyChain_Test_applySecond(M.Golden_LongApplyChain_Test_applySecond(M.Golden_LongApplyChain_Test_applySecond(M.Golden_LongApplyChain_Test_applySecond(M.Golden_LongApplyChain_Test_applySecond(M.Golden_LongApplyChain_Test_applySecond(M.Golden_LongApplyChain_Test_applySecond(M.Golden_LongApplyChain_Test_applySecond(M.Golden_LongApplyChain_Test_applySecond(M.Golden_LongApplyChain_Test_applySecond(_S_tmp301(M.Data_Maybe_Just(281)))(M.Data_Maybe_Just(282)))(M.Data_Maybe_Just(283)))(M.Data_Maybe_Just(284)))(M.Data_Maybe_Just(285)))(M.Data_Maybe_Just(286)))(M.Data_Maybe_Just(287)))(M.Data_Maybe_Just(288)))(M.Data_Maybe_Just(289)))(M.Data_Maybe_Just(290)))(M.Data_Maybe_Just(291)))(M.Data_Maybe_Just(292)))(M.Data_Maybe_Just(293)))(M.Data_Maybe_Just(294)))(M.Data_Maybe_Just(295)))(M.Data_Maybe_Just(296)))(M.Data_Maybe_Just(297)))(M.Data_Maybe_Just(298)))(M.Data_Maybe_Just(299)))(M.Data_Maybe_Just(300)) + local _S_tmp288 = M.Golden_LongApplyChain_Test_applySecond_S_w(M.Golden_LongApplyChain_Test_applySecond_S_w(M.Golden_LongApplyChain_Test_applySecond_S_w(M.Golden_LongApplyChain_Test_applySecond_S_w(M.Golden_LongApplyChain_Test_applySecond_S_w(M.Golden_LongApplyChain_Test_applySecond_S_w(M.Golden_LongApplyChain_Test_applySecond_S_w(M.Golden_LongApplyChain_Test_applySecond_S_w(M.Golden_LongApplyChain_Test_applySecond_S_w(M.Golden_LongApplyChain_Test_applySecond_S_w(M.Golden_LongApplyChain_Test_applySecond_S_w(M.Golden_LongApplyChain_Test_applySecond_S_w(M.Golden_LongApplyChain_Test_applySecond_S_w(M.Golden_LongApplyChain_Test_applySecond_S_w(M.Golden_LongApplyChain_Test_applySecond_S_w(M.Golden_LongApplyChain_Test_applySecond_S_w(M.Golden_LongApplyChain_Test_applySecond_S_w(M.Golden_LongApplyChain_Test_applySecond_S_w(M.Golden_LongApplyChain_Test_applySecond_S_w(M.Golden_LongApplyChain_Test_applySecond_S_w(M.Golden_LongApplyChain_Test_applySecond_S_w(M.Golden_LongApplyChain_Test_applySecond_S_w(M.Golden_LongApplyChain_Test_applySecond_S_w(M.Golden_LongApplyChain_Test_applySecond_S_w(M.Golden_LongApplyChain_Test_applySecond_S_w(M.Golden_LongApplyChain_Test_applySecond_S_w(M.Golden_LongApplyChain_Test_applySecond_S_w(M.Golden_LongApplyChain_Test_applySecond_S_w(M.Golden_LongApplyChain_Test_applySecond_S_w(M.Golden_LongApplyChain_Test_applySecond_S_w(M.Golden_LongApplyChain_Test_applySecond_S_w(M.Golden_LongApplyChain_Test_applySecond_S_w(M.Golden_LongApplyChain_Test_applySecond_S_w(M.Golden_LongApplyChain_Test_applySecond_S_w(M.Golden_LongApplyChain_Test_applySecond_S_w(M.Golden_LongApplyChain_Test_applySecond_S_w(M.Golden_LongApplyChain_Test_applySecond_S_w(M.Golden_LongApplyChain_Test_applySecond_S_w(M.Golden_LongApplyChain_Test_applySecond_S_w(M.Data_Maybe_Just(1), M.Data_Maybe_Just(2)), M.Data_Maybe_Just(3)), M.Data_Maybe_Just(4)), M.Data_Maybe_Just(5)), M.Data_Maybe_Just(6)), M.Data_Maybe_Just(7)), M.Data_Maybe_Just(8)), M.Data_Maybe_Just(9)), M.Data_Maybe_Just(10)), M.Data_Maybe_Just(11)), M.Data_Maybe_Just(12)), M.Data_Maybe_Just(13)), M.Data_Maybe_Just(14)), M.Data_Maybe_Just(15)), M.Data_Maybe_Just(16)), M.Data_Maybe_Just(17)), M.Data_Maybe_Just(18)), M.Data_Maybe_Just(19)), M.Data_Maybe_Just(20)), M.Data_Maybe_Just(21)), M.Data_Maybe_Just(22)), M.Data_Maybe_Just(23)), M.Data_Maybe_Just(24)), M.Data_Maybe_Just(25)), M.Data_Maybe_Just(26)), M.Data_Maybe_Just(27)), M.Data_Maybe_Just(28)), M.Data_Maybe_Just(29)), M.Data_Maybe_Just(30)), M.Data_Maybe_Just(31)), M.Data_Maybe_Just(32)), M.Data_Maybe_Just(33)), M.Data_Maybe_Just(34)), M.Data_Maybe_Just(35)), M.Data_Maybe_Just(36)), M.Data_Maybe_Just(37)), M.Data_Maybe_Just(38)), M.Data_Maybe_Just(39)), M.Data_Maybe_Just(40)) + local _S_tmp289 = M.Golden_LongApplyChain_Test_applySecond_S_w(M.Golden_LongApplyChain_Test_applySecond_S_w(M.Golden_LongApplyChain_Test_applySecond_S_w(M.Golden_LongApplyChain_Test_applySecond_S_w(M.Golden_LongApplyChain_Test_applySecond_S_w(M.Golden_LongApplyChain_Test_applySecond_S_w(M.Golden_LongApplyChain_Test_applySecond_S_w(M.Golden_LongApplyChain_Test_applySecond_S_w(M.Golden_LongApplyChain_Test_applySecond_S_w(M.Golden_LongApplyChain_Test_applySecond_S_w(M.Golden_LongApplyChain_Test_applySecond_S_w(M.Golden_LongApplyChain_Test_applySecond_S_w(M.Golden_LongApplyChain_Test_applySecond_S_w(M.Golden_LongApplyChain_Test_applySecond_S_w(M.Golden_LongApplyChain_Test_applySecond_S_w(M.Golden_LongApplyChain_Test_applySecond_S_w(M.Golden_LongApplyChain_Test_applySecond_S_w(M.Golden_LongApplyChain_Test_applySecond_S_w(M.Golden_LongApplyChain_Test_applySecond_S_w(M.Golden_LongApplyChain_Test_applySecond_S_w(M.Golden_LongApplyChain_Test_applySecond_S_w(M.Golden_LongApplyChain_Test_applySecond_S_w(M.Golden_LongApplyChain_Test_applySecond_S_w(M.Golden_LongApplyChain_Test_applySecond_S_w(M.Golden_LongApplyChain_Test_applySecond_S_w(M.Golden_LongApplyChain_Test_applySecond_S_w(M.Golden_LongApplyChain_Test_applySecond_S_w(M.Golden_LongApplyChain_Test_applySecond_S_w(M.Golden_LongApplyChain_Test_applySecond_S_w(M.Golden_LongApplyChain_Test_applySecond_S_w(M.Golden_LongApplyChain_Test_applySecond_S_w(M.Golden_LongApplyChain_Test_applySecond_S_w(M.Golden_LongApplyChain_Test_applySecond_S_w(M.Golden_LongApplyChain_Test_applySecond_S_w(M.Golden_LongApplyChain_Test_applySecond_S_w(M.Golden_LongApplyChain_Test_applySecond_S_w(M.Golden_LongApplyChain_Test_applySecond_S_w(M.Golden_LongApplyChain_Test_applySecond_S_w(M.Golden_LongApplyChain_Test_applySecond_S_w(M.Golden_LongApplyChain_Test_applySecond_S_w(_S_tmp288, M.Data_Maybe_Just(41)), M.Data_Maybe_Just(42)), M.Data_Maybe_Just(43)), M.Data_Maybe_Just(44)), M.Data_Maybe_Just(45)), M.Data_Maybe_Just(46)), M.Data_Maybe_Just(47)), M.Data_Maybe_Just(48)), M.Data_Maybe_Just(49)), M.Data_Maybe_Just(50)), M.Data_Maybe_Just(51)), M.Data_Maybe_Just(52)), M.Data_Maybe_Just(53)), M.Data_Maybe_Just(54)), M.Data_Maybe_Just(55)), M.Data_Maybe_Just(56)), M.Data_Maybe_Just(57)), M.Data_Maybe_Just(58)), M.Data_Maybe_Just(59)), M.Data_Maybe_Just(60)), M.Data_Maybe_Just(61)), M.Data_Maybe_Just(62)), M.Data_Maybe_Just(63)), M.Data_Maybe_Just(64)), M.Data_Maybe_Just(65)), M.Data_Maybe_Just(66)), M.Data_Maybe_Just(67)), M.Data_Maybe_Just(68)), M.Data_Maybe_Just(69)), M.Data_Maybe_Just(70)), M.Data_Maybe_Just(71)), M.Data_Maybe_Just(72)), M.Data_Maybe_Just(73)), M.Data_Maybe_Just(74)), M.Data_Maybe_Just(75)), M.Data_Maybe_Just(76)), M.Data_Maybe_Just(77)), M.Data_Maybe_Just(78)), M.Data_Maybe_Just(79)), M.Data_Maybe_Just(80)) + local _S_tmp290 = M.Golden_LongApplyChain_Test_applySecond_S_w(M.Golden_LongApplyChain_Test_applySecond_S_w(M.Golden_LongApplyChain_Test_applySecond_S_w(M.Golden_LongApplyChain_Test_applySecond_S_w(M.Golden_LongApplyChain_Test_applySecond_S_w(M.Golden_LongApplyChain_Test_applySecond_S_w(M.Golden_LongApplyChain_Test_applySecond_S_w(M.Golden_LongApplyChain_Test_applySecond_S_w(M.Golden_LongApplyChain_Test_applySecond_S_w(M.Golden_LongApplyChain_Test_applySecond_S_w(M.Golden_LongApplyChain_Test_applySecond_S_w(M.Golden_LongApplyChain_Test_applySecond_S_w(M.Golden_LongApplyChain_Test_applySecond_S_w(M.Golden_LongApplyChain_Test_applySecond_S_w(M.Golden_LongApplyChain_Test_applySecond_S_w(M.Golden_LongApplyChain_Test_applySecond_S_w(M.Golden_LongApplyChain_Test_applySecond_S_w(M.Golden_LongApplyChain_Test_applySecond_S_w(M.Golden_LongApplyChain_Test_applySecond_S_w(M.Golden_LongApplyChain_Test_applySecond_S_w(M.Golden_LongApplyChain_Test_applySecond_S_w(M.Golden_LongApplyChain_Test_applySecond_S_w(M.Golden_LongApplyChain_Test_applySecond_S_w(M.Golden_LongApplyChain_Test_applySecond_S_w(M.Golden_LongApplyChain_Test_applySecond_S_w(M.Golden_LongApplyChain_Test_applySecond_S_w(M.Golden_LongApplyChain_Test_applySecond_S_w(M.Golden_LongApplyChain_Test_applySecond_S_w(M.Golden_LongApplyChain_Test_applySecond_S_w(M.Golden_LongApplyChain_Test_applySecond_S_w(M.Golden_LongApplyChain_Test_applySecond_S_w(M.Golden_LongApplyChain_Test_applySecond_S_w(M.Golden_LongApplyChain_Test_applySecond_S_w(M.Golden_LongApplyChain_Test_applySecond_S_w(M.Golden_LongApplyChain_Test_applySecond_S_w(M.Golden_LongApplyChain_Test_applySecond_S_w(M.Golden_LongApplyChain_Test_applySecond_S_w(M.Golden_LongApplyChain_Test_applySecond_S_w(M.Golden_LongApplyChain_Test_applySecond_S_w(M.Golden_LongApplyChain_Test_applySecond_S_w(_S_tmp289, M.Data_Maybe_Just(81)), M.Data_Maybe_Just(82)), M.Data_Maybe_Just(83)), M.Data_Maybe_Just(84)), M.Data_Maybe_Just(85)), M.Data_Maybe_Just(86)), M.Data_Maybe_Just(87)), M.Data_Maybe_Just(88)), M.Data_Maybe_Just(89)), M.Data_Maybe_Just(90)), M.Data_Maybe_Just(91)), M.Data_Maybe_Just(92)), M.Data_Maybe_Just(93)), M.Data_Maybe_Just(94)), M.Data_Maybe_Just(95)), M.Data_Maybe_Just(96)), M.Data_Maybe_Just(97)), M.Data_Maybe_Just(98)), M.Data_Maybe_Just(99)), M.Data_Maybe_Just(100)), M.Data_Maybe_Just(101)), M.Data_Maybe_Just(102)), M.Data_Maybe_Just(103)), M.Data_Maybe_Just(104)), M.Data_Maybe_Just(105)), M.Data_Maybe_Just(106)), M.Data_Maybe_Just(107)), M.Data_Maybe_Just(108)), M.Data_Maybe_Just(109)), M.Data_Maybe_Just(110)), M.Data_Maybe_Just(111)), M.Data_Maybe_Just(112)), M.Data_Maybe_Just(113)), M.Data_Maybe_Just(114)), M.Data_Maybe_Just(115)), M.Data_Maybe_Just(116)), M.Data_Maybe_Just(117)), M.Data_Maybe_Just(118)), M.Data_Maybe_Just(119)), M.Data_Maybe_Just(120)) + local _S_tmp291 = M.Golden_LongApplyChain_Test_applySecond_S_w(M.Golden_LongApplyChain_Test_applySecond_S_w(M.Golden_LongApplyChain_Test_applySecond_S_w(M.Golden_LongApplyChain_Test_applySecond_S_w(M.Golden_LongApplyChain_Test_applySecond_S_w(M.Golden_LongApplyChain_Test_applySecond_S_w(M.Golden_LongApplyChain_Test_applySecond_S_w(M.Golden_LongApplyChain_Test_applySecond_S_w(M.Golden_LongApplyChain_Test_applySecond_S_w(M.Golden_LongApplyChain_Test_applySecond_S_w(M.Golden_LongApplyChain_Test_applySecond_S_w(M.Golden_LongApplyChain_Test_applySecond_S_w(M.Golden_LongApplyChain_Test_applySecond_S_w(M.Golden_LongApplyChain_Test_applySecond_S_w(M.Golden_LongApplyChain_Test_applySecond_S_w(M.Golden_LongApplyChain_Test_applySecond_S_w(M.Golden_LongApplyChain_Test_applySecond_S_w(M.Golden_LongApplyChain_Test_applySecond_S_w(M.Golden_LongApplyChain_Test_applySecond_S_w(M.Golden_LongApplyChain_Test_applySecond_S_w(M.Golden_LongApplyChain_Test_applySecond_S_w(M.Golden_LongApplyChain_Test_applySecond_S_w(M.Golden_LongApplyChain_Test_applySecond_S_w(M.Golden_LongApplyChain_Test_applySecond_S_w(M.Golden_LongApplyChain_Test_applySecond_S_w(M.Golden_LongApplyChain_Test_applySecond_S_w(M.Golden_LongApplyChain_Test_applySecond_S_w(M.Golden_LongApplyChain_Test_applySecond_S_w(M.Golden_LongApplyChain_Test_applySecond_S_w(M.Golden_LongApplyChain_Test_applySecond_S_w(M.Golden_LongApplyChain_Test_applySecond_S_w(M.Golden_LongApplyChain_Test_applySecond_S_w(M.Golden_LongApplyChain_Test_applySecond_S_w(M.Golden_LongApplyChain_Test_applySecond_S_w(M.Golden_LongApplyChain_Test_applySecond_S_w(M.Golden_LongApplyChain_Test_applySecond_S_w(M.Golden_LongApplyChain_Test_applySecond_S_w(M.Golden_LongApplyChain_Test_applySecond_S_w(M.Golden_LongApplyChain_Test_applySecond_S_w(M.Golden_LongApplyChain_Test_applySecond_S_w(_S_tmp290, M.Data_Maybe_Just(121)), M.Data_Maybe_Just(122)), M.Data_Maybe_Just(123)), M.Data_Maybe_Just(124)), M.Data_Maybe_Just(125)), M.Data_Maybe_Just(126)), M.Data_Maybe_Just(127)), M.Data_Maybe_Just(128)), M.Data_Maybe_Just(129)), M.Data_Maybe_Just(130)), M.Data_Maybe_Just(131)), M.Data_Maybe_Just(132)), M.Data_Maybe_Just(133)), M.Data_Maybe_Just(134)), M.Data_Maybe_Just(135)), M.Data_Maybe_Just(136)), M.Data_Maybe_Just(137)), M.Data_Maybe_Just(138)), M.Data_Maybe_Just(139)), M.Data_Maybe_Just(140)), M.Data_Maybe_Just(141)), M.Data_Maybe_Just(142)), M.Data_Maybe_Just(143)), M.Data_Maybe_Just(144)), M.Data_Maybe_Just(145)), M.Data_Maybe_Just(146)), M.Data_Maybe_Just(147)), M.Data_Maybe_Just(148)), M.Data_Maybe_Just(149)), M.Data_Maybe_Just(150)), M.Data_Maybe_Just(151)), M.Data_Maybe_Just(152)), M.Data_Maybe_Just(153)), M.Data_Maybe_Just(154)), M.Data_Maybe_Just(155)), M.Data_Maybe_Just(156)), M.Data_Maybe_Just(157)), M.Data_Maybe_Just(158)), M.Data_Maybe_Just(159)), M.Data_Maybe_Just(160)) + local _S_tmp292 = M.Golden_LongApplyChain_Test_applySecond_S_w(M.Golden_LongApplyChain_Test_applySecond_S_w(M.Golden_LongApplyChain_Test_applySecond_S_w(M.Golden_LongApplyChain_Test_applySecond_S_w(M.Golden_LongApplyChain_Test_applySecond_S_w(M.Golden_LongApplyChain_Test_applySecond_S_w(M.Golden_LongApplyChain_Test_applySecond_S_w(M.Golden_LongApplyChain_Test_applySecond_S_w(M.Golden_LongApplyChain_Test_applySecond_S_w(M.Golden_LongApplyChain_Test_applySecond_S_w(M.Golden_LongApplyChain_Test_applySecond_S_w(M.Golden_LongApplyChain_Test_applySecond_S_w(M.Golden_LongApplyChain_Test_applySecond_S_w(M.Golden_LongApplyChain_Test_applySecond_S_w(M.Golden_LongApplyChain_Test_applySecond_S_w(M.Golden_LongApplyChain_Test_applySecond_S_w(M.Golden_LongApplyChain_Test_applySecond_S_w(M.Golden_LongApplyChain_Test_applySecond_S_w(M.Golden_LongApplyChain_Test_applySecond_S_w(M.Golden_LongApplyChain_Test_applySecond_S_w(M.Golden_LongApplyChain_Test_applySecond_S_w(M.Golden_LongApplyChain_Test_applySecond_S_w(M.Golden_LongApplyChain_Test_applySecond_S_w(M.Golden_LongApplyChain_Test_applySecond_S_w(M.Golden_LongApplyChain_Test_applySecond_S_w(M.Golden_LongApplyChain_Test_applySecond_S_w(M.Golden_LongApplyChain_Test_applySecond_S_w(M.Golden_LongApplyChain_Test_applySecond_S_w(M.Golden_LongApplyChain_Test_applySecond_S_w(M.Golden_LongApplyChain_Test_applySecond_S_w(M.Golden_LongApplyChain_Test_applySecond_S_w(M.Golden_LongApplyChain_Test_applySecond_S_w(M.Golden_LongApplyChain_Test_applySecond_S_w(M.Golden_LongApplyChain_Test_applySecond_S_w(M.Golden_LongApplyChain_Test_applySecond_S_w(M.Golden_LongApplyChain_Test_applySecond_S_w(M.Golden_LongApplyChain_Test_applySecond_S_w(M.Golden_LongApplyChain_Test_applySecond_S_w(M.Golden_LongApplyChain_Test_applySecond_S_w(M.Golden_LongApplyChain_Test_applySecond_S_w(_S_tmp291, M.Data_Maybe_Just(161)), M.Data_Maybe_Just(162)), M.Data_Maybe_Just(163)), M.Data_Maybe_Just(164)), M.Data_Maybe_Just(165)), M.Data_Maybe_Just(166)), M.Data_Maybe_Just(167)), M.Data_Maybe_Just(168)), M.Data_Maybe_Just(169)), M.Data_Maybe_Just(170)), M.Data_Maybe_Just(171)), M.Data_Maybe_Just(172)), M.Data_Maybe_Just(173)), M.Data_Maybe_Just(174)), M.Data_Maybe_Just(175)), M.Data_Maybe_Just(176)), M.Data_Maybe_Just(177)), M.Data_Maybe_Just(178)), M.Data_Maybe_Just(179)), M.Data_Maybe_Just(180)), M.Data_Maybe_Just(181)), M.Data_Maybe_Just(182)), M.Data_Maybe_Just(183)), M.Data_Maybe_Just(184)), M.Data_Maybe_Just(185)), M.Data_Maybe_Just(186)), M.Data_Maybe_Just(187)), M.Data_Maybe_Just(188)), M.Data_Maybe_Just(189)), M.Data_Maybe_Just(190)), M.Data_Maybe_Just(191)), M.Data_Maybe_Just(192)), M.Data_Maybe_Just(193)), M.Data_Maybe_Just(194)), M.Data_Maybe_Just(195)), M.Data_Maybe_Just(196)), M.Data_Maybe_Just(197)), M.Data_Maybe_Just(198)), M.Data_Maybe_Just(199)), M.Data_Maybe_Just(200)) + local _S_tmp293 = M.Golden_LongApplyChain_Test_applySecond_S_w(M.Golden_LongApplyChain_Test_applySecond_S_w(M.Golden_LongApplyChain_Test_applySecond_S_w(M.Golden_LongApplyChain_Test_applySecond_S_w(M.Golden_LongApplyChain_Test_applySecond_S_w(M.Golden_LongApplyChain_Test_applySecond_S_w(M.Golden_LongApplyChain_Test_applySecond_S_w(M.Golden_LongApplyChain_Test_applySecond_S_w(M.Golden_LongApplyChain_Test_applySecond_S_w(M.Golden_LongApplyChain_Test_applySecond_S_w(M.Golden_LongApplyChain_Test_applySecond_S_w(M.Golden_LongApplyChain_Test_applySecond_S_w(M.Golden_LongApplyChain_Test_applySecond_S_w(M.Golden_LongApplyChain_Test_applySecond_S_w(M.Golden_LongApplyChain_Test_applySecond_S_w(M.Golden_LongApplyChain_Test_applySecond_S_w(M.Golden_LongApplyChain_Test_applySecond_S_w(M.Golden_LongApplyChain_Test_applySecond_S_w(M.Golden_LongApplyChain_Test_applySecond_S_w(M.Golden_LongApplyChain_Test_applySecond_S_w(M.Golden_LongApplyChain_Test_applySecond_S_w(M.Golden_LongApplyChain_Test_applySecond_S_w(M.Golden_LongApplyChain_Test_applySecond_S_w(M.Golden_LongApplyChain_Test_applySecond_S_w(M.Golden_LongApplyChain_Test_applySecond_S_w(M.Golden_LongApplyChain_Test_applySecond_S_w(M.Golden_LongApplyChain_Test_applySecond_S_w(M.Golden_LongApplyChain_Test_applySecond_S_w(M.Golden_LongApplyChain_Test_applySecond_S_w(M.Golden_LongApplyChain_Test_applySecond_S_w(M.Golden_LongApplyChain_Test_applySecond_S_w(M.Golden_LongApplyChain_Test_applySecond_S_w(M.Golden_LongApplyChain_Test_applySecond_S_w(M.Golden_LongApplyChain_Test_applySecond_S_w(M.Golden_LongApplyChain_Test_applySecond_S_w(M.Golden_LongApplyChain_Test_applySecond_S_w(M.Golden_LongApplyChain_Test_applySecond_S_w(M.Golden_LongApplyChain_Test_applySecond_S_w(M.Golden_LongApplyChain_Test_applySecond_S_w(M.Golden_LongApplyChain_Test_applySecond_S_w(_S_tmp292, M.Data_Maybe_Just(201)), M.Data_Maybe_Just(202)), M.Data_Maybe_Just(203)), M.Data_Maybe_Just(204)), M.Data_Maybe_Just(205)), M.Data_Maybe_Just(206)), M.Data_Maybe_Just(207)), M.Data_Maybe_Just(208)), M.Data_Maybe_Just(209)), M.Data_Maybe_Just(210)), M.Data_Maybe_Just(211)), M.Data_Maybe_Just(212)), M.Data_Maybe_Just(213)), M.Data_Maybe_Just(214)), M.Data_Maybe_Just(215)), M.Data_Maybe_Just(216)), M.Data_Maybe_Just(217)), M.Data_Maybe_Just(218)), M.Data_Maybe_Just(219)), M.Data_Maybe_Just(220)), M.Data_Maybe_Just(221)), M.Data_Maybe_Just(222)), M.Data_Maybe_Just(223)), M.Data_Maybe_Just(224)), M.Data_Maybe_Just(225)), M.Data_Maybe_Just(226)), M.Data_Maybe_Just(227)), M.Data_Maybe_Just(228)), M.Data_Maybe_Just(229)), M.Data_Maybe_Just(230)), M.Data_Maybe_Just(231)), M.Data_Maybe_Just(232)), M.Data_Maybe_Just(233)), M.Data_Maybe_Just(234)), M.Data_Maybe_Just(235)), M.Data_Maybe_Just(236)), M.Data_Maybe_Just(237)), M.Data_Maybe_Just(238)), M.Data_Maybe_Just(239)), M.Data_Maybe_Just(240)) + local _S_tmp294 = M.Golden_LongApplyChain_Test_applySecond_S_w(M.Golden_LongApplyChain_Test_applySecond_S_w(M.Golden_LongApplyChain_Test_applySecond_S_w(M.Golden_LongApplyChain_Test_applySecond_S_w(M.Golden_LongApplyChain_Test_applySecond_S_w(M.Golden_LongApplyChain_Test_applySecond_S_w(M.Golden_LongApplyChain_Test_applySecond_S_w(M.Golden_LongApplyChain_Test_applySecond_S_w(M.Golden_LongApplyChain_Test_applySecond_S_w(M.Golden_LongApplyChain_Test_applySecond_S_w(M.Golden_LongApplyChain_Test_applySecond_S_w(M.Golden_LongApplyChain_Test_applySecond_S_w(M.Golden_LongApplyChain_Test_applySecond_S_w(M.Golden_LongApplyChain_Test_applySecond_S_w(M.Golden_LongApplyChain_Test_applySecond_S_w(M.Golden_LongApplyChain_Test_applySecond_S_w(M.Golden_LongApplyChain_Test_applySecond_S_w(M.Golden_LongApplyChain_Test_applySecond_S_w(M.Golden_LongApplyChain_Test_applySecond_S_w(M.Golden_LongApplyChain_Test_applySecond_S_w(M.Golden_LongApplyChain_Test_applySecond_S_w(M.Golden_LongApplyChain_Test_applySecond_S_w(M.Golden_LongApplyChain_Test_applySecond_S_w(M.Golden_LongApplyChain_Test_applySecond_S_w(M.Golden_LongApplyChain_Test_applySecond_S_w(M.Golden_LongApplyChain_Test_applySecond_S_w(M.Golden_LongApplyChain_Test_applySecond_S_w(M.Golden_LongApplyChain_Test_applySecond_S_w(M.Golden_LongApplyChain_Test_applySecond_S_w(M.Golden_LongApplyChain_Test_applySecond_S_w(M.Golden_LongApplyChain_Test_applySecond_S_w(M.Golden_LongApplyChain_Test_applySecond_S_w(M.Golden_LongApplyChain_Test_applySecond_S_w(M.Golden_LongApplyChain_Test_applySecond_S_w(M.Golden_LongApplyChain_Test_applySecond_S_w(M.Golden_LongApplyChain_Test_applySecond_S_w(M.Golden_LongApplyChain_Test_applySecond_S_w(M.Golden_LongApplyChain_Test_applySecond_S_w(M.Golden_LongApplyChain_Test_applySecond_S_w(M.Golden_LongApplyChain_Test_applySecond_S_w(_S_tmp293, M.Data_Maybe_Just(241)), M.Data_Maybe_Just(242)), M.Data_Maybe_Just(243)), M.Data_Maybe_Just(244)), M.Data_Maybe_Just(245)), M.Data_Maybe_Just(246)), M.Data_Maybe_Just(247)), M.Data_Maybe_Just(248)), M.Data_Maybe_Just(249)), M.Data_Maybe_Just(250)), M.Data_Maybe_Just(251)), M.Data_Maybe_Just(252)), M.Data_Maybe_Just(253)), M.Data_Maybe_Just(254)), M.Data_Maybe_Just(255)), M.Data_Maybe_Just(256)), M.Data_Maybe_Just(257)), M.Data_Maybe_Just(258)), M.Data_Maybe_Just(259)), M.Data_Maybe_Just(260)), M.Data_Maybe_Just(261)), M.Data_Maybe_Just(262)), M.Data_Maybe_Just(263)), M.Data_Maybe_Just(264)), M.Data_Maybe_Just(265)), M.Data_Maybe_Just(266)), M.Data_Maybe_Just(267)), M.Data_Maybe_Just(268)), M.Data_Maybe_Just(269)), M.Data_Maybe_Just(270)), M.Data_Maybe_Just(271)), M.Data_Maybe_Just(272)), M.Data_Maybe_Just(273)), M.Data_Maybe_Just(274)), M.Data_Maybe_Just(275)), M.Data_Maybe_Just(276)), M.Data_Maybe_Just(277)), M.Data_Maybe_Just(278)), M.Data_Maybe_Just(279)), M.Data_Maybe_Just(280)) + return M.Golden_LongApplyChain_Test_applySecond_S_w(M.Golden_LongApplyChain_Test_applySecond_S_w(M.Golden_LongApplyChain_Test_applySecond_S_w(M.Golden_LongApplyChain_Test_applySecond_S_w(M.Golden_LongApplyChain_Test_applySecond_S_w(M.Golden_LongApplyChain_Test_applySecond_S_w(M.Golden_LongApplyChain_Test_applySecond_S_w(M.Golden_LongApplyChain_Test_applySecond_S_w(M.Golden_LongApplyChain_Test_applySecond_S_w(M.Golden_LongApplyChain_Test_applySecond_S_w(M.Golden_LongApplyChain_Test_applySecond_S_w(M.Golden_LongApplyChain_Test_applySecond_S_w(M.Golden_LongApplyChain_Test_applySecond_S_w(M.Golden_LongApplyChain_Test_applySecond_S_w(M.Golden_LongApplyChain_Test_applySecond_S_w(M.Golden_LongApplyChain_Test_applySecond_S_w(M.Golden_LongApplyChain_Test_applySecond_S_w(M.Golden_LongApplyChain_Test_applySecond_S_w(M.Golden_LongApplyChain_Test_applySecond_S_w(M.Golden_LongApplyChain_Test_applySecond_S_w(_S_tmp294, M.Data_Maybe_Just(281)), M.Data_Maybe_Just(282)), M.Data_Maybe_Just(283)), M.Data_Maybe_Just(284)), M.Data_Maybe_Just(285)), M.Data_Maybe_Just(286)), M.Data_Maybe_Just(287)), M.Data_Maybe_Just(288)), M.Data_Maybe_Just(289)), M.Data_Maybe_Just(290)), M.Data_Maybe_Just(291)), M.Data_Maybe_Just(292)), M.Data_Maybe_Just(293)), M.Data_Maybe_Just(294)), M.Data_Maybe_Just(295)), M.Data_Maybe_Just(296)), M.Data_Maybe_Just(297)), M.Data_Maybe_Just(298)), M.Data_Maybe_Just(299)), M.Data_Maybe_Just(300)) end)() return M.Effect_Console_foreign.log(M.Data_Show_show({ show = function(v_S_20_S_287) diff --git a/test/ps/output/Golden.LongBindFlipped.Test/golden.ir b/test/ps/output/Golden.LongBindFlipped.Test/golden.ir index eaf381a6..cc8eaed7 100644 --- a/test/ps/output/Golden.LongBindFlipped.Test/golden.ir +++ b/test/ps/output/Golden.LongBindFlipped.Test/golden.ir @@ -26,8 +26,8 @@ UberModule [ ( Nothing, Name "log" ) ] ), Standalone ( QName - { qnameModuleName = ModuleName "Data.Show", qnameName = Name "show" }, Abs Nothing - ( ParamNamed Nothing ( Name "dict" ) ) + { qnameModuleName = ModuleName "Data.Show", qnameName = Name "show" }, AbsN Nothing + ( ParamNamed Nothing ( Name "dict" ) :| [] ) ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "dict" ) ) ) ( PropName "show" ) ) ), Standalone ( QName @@ -39,42 +39,39 @@ UberModule [ FieldName "value0" ] ), Standalone ( QName - { qnameModuleName = ModuleName "Golden.LongBindFlipped.Test", qnameName = Name "bindFlipped" - }, Abs Nothing - ( ParamNamed Nothing ( Name "b$135$275" ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "a$136$276" ) ) + { qnameModuleName = ModuleName "Golden.LongBindFlipped.Test", qnameName = Name "bindFlipped$w" + }, AbsN Nothing + ( ParamNamed Nothing ( Name "b$135$275" ) :| [ ParamNamed Nothing ( Name "a$136$276" ) ] ) + ( IfThenElse Nothing + ( Eq Nothing + ( LiteralString Nothing "Data.Maybe∷Maybe.Just" ) + ( ReflectCtor Nothing ( Ref Nothing ( Local ( Name "a$136$276" ) ) ) ) + ) + ( AppN Nothing + ( Ref Nothing ( Local ( Name "b$135$275" ) ) ) + ( ObjectProp Nothing + ( Ref Nothing ( Local ( Name "a$136$276" ) ) ) + ( PropName "value0" ) :| [] + ) + ) ( IfThenElse Nothing ( Eq Nothing - ( LiteralString Nothing "Data.Maybe∷Maybe.Just" ) + ( LiteralString Nothing "Data.Maybe∷Maybe.Nothing" ) ( ReflectCtor Nothing ( Ref Nothing ( Local ( Name "a$136$276" ) ) ) ) ) - ( AppN Nothing - ( Ref Nothing ( Local ( Name "b$135$275" ) ) ) - ( ObjectProp Nothing - ( Ref Nothing ( Local ( Name "a$136$276" ) ) ) - ( PropName "value0" ) :| [] - ) - ) - ( IfThenElse Nothing - ( Eq Nothing - ( LiteralString Nothing "Data.Maybe∷Maybe.Nothing" ) - ( ReflectCtor Nothing ( Ref Nothing ( Local ( Name "a$136$276" ) ) ) ) - ) - ( Ctor Nothing SumType - ( ModuleName "Data.Maybe" ) - ( TyName "Maybe" ) - ( CtorName "Nothing" ) [] - ) - ( Exception Nothing "No patterns matched" ) + ( Ctor Nothing SumType + ( ModuleName "Data.Maybe" ) + ( TyName "Maybe" ) + ( CtorName "Nothing" ) [] ) + ( Exception Nothing "No patterns matched" ) ) ) ), Standalone ( QName { qnameModuleName = ModuleName "Golden.LongBindFlipped.Test", qnameName = Name "inc" - }, Abs Nothing - ( ParamNamed Nothing ( Name "x" ) ) + }, AbsN Nothing + ( ParamNamed Nothing ( Name "x" ) :| [] ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) ( AppN Nothing @@ -94,4710 +91,4145 @@ UberModule }, Let Nothing ( Standalone ( 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" ) ) :| [] - ) + ( Ref Nothing + ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "bindFlipped$w" ) ) ) - ( AppN Nothing - ( AppN Nothing + ( Ref Nothing + ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) ) :| + [ AppN Nothing ( Ref Nothing - ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "bindFlipped" ) ) + ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "bindFlipped$w" ) ) ) ( Ref Nothing - ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) ) :| [] - ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "bindFlipped" ) ) - ) - ( Ref Nothing - ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) ) :| [] - ) - ) - ( AppN Nothing - ( AppN Nothing + ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) ) :| + [ AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "bindFlipped" ) + ( Name "bindFlipped$w" ) ) ) ( Ref Nothing - ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) ) :| [] - ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "bindFlipped" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "inc" ) - ) :| [] - ) - ) - ( AppN Nothing - ( AppN Nothing + ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) ) :| + [ AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "bindFlipped" ) + ( Name "bindFlipped$w" ) ) ) ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) :| [] - ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "bindFlipped" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "inc" ) - ) :| [] - ) - ) - ( AppN Nothing - ( AppN Nothing + ) :| + [ AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "bindFlipped" ) + ( Name "bindFlipped$w" ) ) ) ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) :| [] - ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "bindFlipped" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "inc" ) - ) :| [] - ) - ) - ( AppN Nothing - ( AppN Nothing + ) :| + [ AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "bindFlipped" ) + ( Name "bindFlipped$w" ) ) ) ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) :| [] - ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "bindFlipped" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "inc" ) - ) :| [] - ) - ) - ( AppN Nothing - ( AppN Nothing + ) :| + [ AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "bindFlipped" ) + ( Name "bindFlipped$w" ) ) ) ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) :| [] - ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "bindFlipped" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "inc" ) - ) :| [] - ) - ) - ( AppN Nothing - ( AppN Nothing + ) :| + [ AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "bindFlipped" ) + ( Name "bindFlipped$w" ) ) ) ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) :| [] - ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "bindFlipped" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "inc" ) - ) :| [] - ) - ) - ( AppN Nothing - ( AppN Nothing + ) :| + [ AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "bindFlipped" ) + ( Name "bindFlipped$w" ) ) ) ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) :| [] - ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "bindFlipped" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "inc" ) - ) :| [] - ) - ) - ( AppN Nothing - ( AppN Nothing + ) :| + [ AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "bindFlipped" ) + ( Name "bindFlipped$w" ) ) ) ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) :| [] - ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "bindFlipped" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "inc" ) - ) :| [] - ) - ) - ( AppN Nothing - ( AppN Nothing + ) :| + [ AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "bindFlipped" ) + ( Name "bindFlipped$w" ) ) ) ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) :| [] - ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "bindFlipped" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "inc" ) - ) :| [] - ) - ) - ( AppN Nothing - ( AppN Nothing + ) :| + [ AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "bindFlipped" ) + ( Name "bindFlipped$w" ) ) ) ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) :| [] - ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "bindFlipped" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "inc" ) - ) :| [] - ) - ) - ( AppN Nothing - ( AppN Nothing + ) :| + [ AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "bindFlipped" ) + ( Name "bindFlipped$w" ) ) ) ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) :| [] - ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "bindFlipped" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "inc" ) - ) :| [] - ) - ) - ( AppN Nothing - ( AppN Nothing + ) :| + [ AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "bindFlipped" ) + ( Name "bindFlipped$w" ) ) ) ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) :| [] - ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "bindFlipped" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "inc" ) - ) :| [] - ) - ) - ( AppN Nothing - ( AppN Nothing + ) :| + [ AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "bindFlipped" ) + ( Name "bindFlipped$w" ) ) ) ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) :| [] - ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "bindFlipped" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "inc" ) - ) :| [] - ) - ) - ( AppN Nothing - ( AppN Nothing + ) :| + [ AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "bindFlipped" ) + ( Name "bindFlipped$w" ) ) ) ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) :| [] - ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "bindFlipped" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "inc" ) - ) :| [] - ) - ) - ( AppN Nothing - ( AppN Nothing + ) :| + [ AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "bindFlipped" ) + ( Name "bindFlipped$w" ) ) ) ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) :| [] - ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "bindFlipped" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "inc" ) - ) :| [] - ) - ) - ( AppN Nothing - ( AppN Nothing + ) :| + [ AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "bindFlipped" ) + ( Name "bindFlipped$w" ) ) ) ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) :| [] - ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "bindFlipped" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "inc" ) - ) :| [] - ) - ) - ( AppN Nothing - ( AppN Nothing + ) :| + [ AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "bindFlipped" ) + ( Name "bindFlipped$w" ) ) ) ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) :| [] - ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "bindFlipped" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "inc" ) - ) :| [] - ) - ) - ( AppN Nothing - ( AppN Nothing + ) :| + [ AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "bindFlipped" ) + ( Name "bindFlipped$w" ) ) ) ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) :| [] - ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "bindFlipped" ) + ) :| + [ AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongBindFlipped.Test" ) + ( Name "bindFlipped$w" ) + ) ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "inc" ) - ) :| [] - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongBindFlipped.Test" ) + ( Name "inc" ) + ) :| + [ AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongBindFlipped.Test" ) + ( Name "bindFlipped$w" ) + ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongBindFlipped.Test" ) + ( Name "inc" ) + ) :| + [ AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongBindFlipped.Test" ) + ( Name "bindFlipped$w" ) + ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongBindFlipped.Test" ) + ( Name "inc" ) + ) :| + [ AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongBindFlipped.Test" ) + ( Name "bindFlipped$w" ) + ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongBindFlipped.Test" ) + ( Name "inc" ) + ) :| + [ AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongBindFlipped.Test" ) + ( Name "bindFlipped$w" ) + ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongBindFlipped.Test" ) + ( Name "inc" ) + ) :| + [ AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongBindFlipped.Test" ) + ( Name "bindFlipped$w" ) + ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongBindFlipped.Test" ) + ( Name "inc" ) + ) :| + [ AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongBindFlipped.Test" ) + ( Name "bindFlipped$w" ) + ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongBindFlipped.Test" ) + ( Name "inc" ) + ) :| + [ AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongBindFlipped.Test" ) + ( Name "bindFlipped$w" ) + ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongBindFlipped.Test" ) + ( Name "inc" ) + ) :| + [ AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongBindFlipped.Test" ) + ( Name "bindFlipped$w" ) + ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongBindFlipped.Test" ) + ( Name "inc" ) + ) :| + [ AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongBindFlipped.Test" ) + ( Name "bindFlipped$w" ) + ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongBindFlipped.Test" ) + ( Name "inc" ) + ) :| + [ AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongBindFlipped.Test" ) + ( Name "bindFlipped$w" ) + ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongBindFlipped.Test" ) + ( Name "inc" ) + ) :| + [ AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongBindFlipped.Test" ) + ( Name "bindFlipped$w" ) + ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongBindFlipped.Test" ) + ( Name "inc" ) + ) :| + [ AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongBindFlipped.Test" ) + ( Name "bindFlipped$w" ) + ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongBindFlipped.Test" ) + ( Name "inc" ) + ) :| + [ AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongBindFlipped.Test" ) + ( Name "bindFlipped$w" ) + ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongBindFlipped.Test" ) + ( Name "inc" ) + ) :| + [ AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongBindFlipped.Test" ) + ( Name "bindFlipped$w" ) + ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongBindFlipped.Test" ) + ( Name "inc" ) + ) :| + [ AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongBindFlipped.Test" ) + ( Name "bindFlipped$w" ) + ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongBindFlipped.Test" ) + ( Name "inc" ) + ) :| + [ AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongBindFlipped.Test" ) + ( Name "bindFlipped$w" ) + ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongBindFlipped.Test" ) + ( Name "inc" ) + ) :| + [ AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongBindFlipped.Test" ) + ( Name "bindFlipped$w" ) + ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongBindFlipped.Test" ) + ( Name "inc" ) + ) :| + [ AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongBindFlipped.Test" ) + ( Name "bindFlipped$w" ) + ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongBindFlipped.Test" ) + ( Name "inc" ) + ) :| + [ AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) + ) + ) + ( LiteralInt Nothing 1 :| [] ) + ] + ) + ] + ) + ] + ) + ] + ) + ] + ) + ] + ) + ] + ) + ] + ) + ] + ) + ] + ) + ] + ) + ] + ) + ] + ) + ] + ) + ] + ) + ] + ) + ] + ) + ] + ) + ] ) - ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) :| [] - ) :| [] - ) :| [] - ) :| [] - ) :| [] - ) :| [] - ) :| [] - ) :| [] - ) :| [] - ) :| [] - ) :| [] - ) :| [] - ) :| [] - ) :| [] - ) :| [] - ) :| [] - ) :| [] - ) :| [] - ) :| [] - ) :| [] - ) :| [] - ) :| [] - ) :| [] - ) :| [] - ) :| [] - ) :| [] - ) :| [] - ) :| [] - ) :| [] - ) :| [] - ) :| [] - ) :| [] - ) :| [] - ) :| [] - ) :| [] - ) :| [] - ) :| [] + ] + ) + ] + ) + ] + ) + ] + ) + ] + ) + ] + ) + ] + ) + ] + ) + ] + ) + ] + ) + ] + ) + ] + ) + ] + ) + ] + ) + ] + ) + ] + ) + ] + ) + ] + ) + ] + ) + ] ) ) :| [ Standalone ( 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" ) ) :| [] - ) + ( Ref Nothing + ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "bindFlipped$w" ) ) ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "bindFlipped" ) ) - ) + ( Ref Nothing + ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) ) :| + [ AppN Nothing ( Ref Nothing - ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) ) :| [] - ) - ) - ( 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 "bindFlipped$w" ) ) ) - ( AppN Nothing - ( AppN Nothing + ( Ref Nothing + ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) ) :| + [ AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "bindFlipped" ) + ( Name "bindFlipped$w" ) ) ) ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "inc" ) - ) :| [] - ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "bindFlipped" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "inc" ) - ) :| [] - ) - ) - ( AppN Nothing - ( AppN Nothing + ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) ) :| + [ AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "bindFlipped" ) + ( Name "bindFlipped$w" ) ) ) ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) :| [] - ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "bindFlipped" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "inc" ) - ) :| [] - ) - ) - ( AppN Nothing - ( AppN Nothing + ) :| + [ AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "bindFlipped" ) + ( Name "bindFlipped$w" ) ) ) ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) :| [] - ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "bindFlipped" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "inc" ) - ) :| [] - ) - ) - ( AppN Nothing - ( AppN Nothing + ) :| + [ AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "bindFlipped" ) + ( Name "bindFlipped$w" ) ) ) ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) :| [] - ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "bindFlipped" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "inc" ) - ) :| [] - ) - ) - ( AppN Nothing - ( AppN Nothing + ) :| + [ AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "bindFlipped" ) + ( Name "bindFlipped$w" ) ) ) ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) :| [] - ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "bindFlipped" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "inc" ) - ) :| [] - ) - ) - ( AppN Nothing - ( AppN Nothing + ) :| + [ AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "bindFlipped" ) + ( Name "bindFlipped$w" ) ) ) ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) :| [] - ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "bindFlipped" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "inc" ) - ) :| [] - ) - ) - ( AppN Nothing - ( AppN Nothing + ) :| + [ AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "bindFlipped" ) + ( Name "bindFlipped$w" ) ) ) ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) :| [] - ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "bindFlipped" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "inc" ) - ) :| [] - ) - ) - ( AppN Nothing - ( AppN Nothing + ) :| + [ AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "bindFlipped" ) + ( Name "bindFlipped$w" ) ) ) ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) :| [] - ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "bindFlipped" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "inc" ) - ) :| [] - ) - ) - ( AppN Nothing - ( AppN Nothing + ) :| + [ AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "bindFlipped" ) + ( Name "bindFlipped$w" ) ) ) ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) :| [] - ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "bindFlipped" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "inc" ) - ) :| [] - ) - ) - ( AppN Nothing - ( AppN Nothing + ) :| + [ AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "bindFlipped" ) + ( Name "bindFlipped$w" ) ) ) ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) :| [] - ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "bindFlipped" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "inc" ) - ) :| [] - ) - ) - ( AppN Nothing - ( AppN Nothing + ) :| + [ AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "bindFlipped" ) + ( Name "bindFlipped$w" ) ) ) ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) :| [] - ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "bindFlipped" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "inc" ) - ) :| [] - ) - ) - ( AppN Nothing - ( AppN Nothing + ) :| + [ AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "bindFlipped" ) + ( Name "bindFlipped$w" ) ) ) ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) :| [] - ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "bindFlipped" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "inc" ) - ) :| [] - ) - ) - ( AppN Nothing - ( AppN Nothing + ) :| + [ AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "bindFlipped" ) + ( Name "bindFlipped$w" ) ) ) ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) :| [] - ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "bindFlipped" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "inc" ) - ) :| [] - ) - ) - ( AppN Nothing - ( AppN Nothing + ) :| + [ AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "bindFlipped" ) + ( Name "bindFlipped$w" ) ) ) ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) :| [] - ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "bindFlipped" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "inc" ) - ) :| [] - ) - ) - ( AppN Nothing - ( AppN Nothing + ) :| + [ AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "bindFlipped" ) + ( Name "bindFlipped$w" ) ) ) ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) :| [] - ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "bindFlipped" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "inc" ) - ) :| [] - ) - ) - ( AppN Nothing - ( AppN Nothing + ) :| + [ AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "bindFlipped" ) + ( Name "bindFlipped$w" ) ) ) ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) :| [] - ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "bindFlipped" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "inc" ) - ) :| [] - ) - ) - ( AppN Nothing - ( AppN Nothing + ) :| + [ AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "bindFlipped" ) + ( Name "bindFlipped$w" ) ) ) ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) :| [] - ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "bindFlipped" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "inc" ) - ) :| [] - ) - ) - ( AppN Nothing - ( AppN Nothing + ) :| + [ AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "bindFlipped" ) + ( Name "bindFlipped$w" ) ) ) ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) :| [] - ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "bindFlipped" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "inc" ) - ) :| [] - ) - ) - ( AppN Nothing - ( AppN Nothing + ) :| + [ AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "bindFlipped" ) + ( Name "bindFlipped$w" ) ) ) ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) :| [] + ) :| + [ AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongBindFlipped.Test" ) + ( Name "bindFlipped$w" ) + ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongBindFlipped.Test" ) + ( Name "inc" ) + ) :| + [ AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongBindFlipped.Test" ) + ( Name "bindFlipped$w" ) + ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongBindFlipped.Test" ) + ( Name "inc" ) + ) :| + [ AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongBindFlipped.Test" ) + ( Name "bindFlipped$w" ) + ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongBindFlipped.Test" ) + ( Name "inc" ) + ) :| + [ AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongBindFlipped.Test" ) + ( Name "bindFlipped$w" ) + ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongBindFlipped.Test" ) + ( Name "inc" ) + ) :| + [ AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongBindFlipped.Test" ) + ( Name "bindFlipped$w" ) + ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongBindFlipped.Test" ) + ( Name "inc" ) + ) :| + [ AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongBindFlipped.Test" ) + ( Name "bindFlipped$w" ) + ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongBindFlipped.Test" ) + ( Name "inc" ) + ) :| + [ AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongBindFlipped.Test" ) + ( Name "bindFlipped$w" ) + ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongBindFlipped.Test" ) + ( Name "inc" ) + ) :| + [ AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongBindFlipped.Test" ) + ( Name "bindFlipped$w" ) + ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongBindFlipped.Test" ) + ( Name "inc" ) + ) :| + [ AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongBindFlipped.Test" ) + ( Name "bindFlipped$w" ) + ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongBindFlipped.Test" ) + ( Name "inc" ) + ) :| + [ AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongBindFlipped.Test" ) + ( Name "bindFlipped$w" ) + ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongBindFlipped.Test" ) + ( Name "inc" ) + ) :| + [ AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongBindFlipped.Test" ) + ( Name "bindFlipped$w" ) + ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongBindFlipped.Test" ) + ( Name "inc" ) + ) :| + [ AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongBindFlipped.Test" ) + ( Name "bindFlipped$w" ) + ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongBindFlipped.Test" ) + ( Name "inc" ) + ) :| + [ AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongBindFlipped.Test" ) + ( Name "bindFlipped$w" ) + ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongBindFlipped.Test" ) + ( Name "inc" ) + ) :| + [ AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongBindFlipped.Test" ) + ( Name "bindFlipped$w" ) + ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongBindFlipped.Test" ) + ( Name "inc" ) + ) :| + [ AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongBindFlipped.Test" ) + ( Name "bindFlipped$w" ) + ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongBindFlipped.Test" ) + ( Name "inc" ) + ) :| + [ AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongBindFlipped.Test" ) + ( Name "bindFlipped$w" ) + ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongBindFlipped.Test" ) + ( Name "inc" ) + ) :| + [ AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongBindFlipped.Test" ) + ( Name "bindFlipped$w" ) + ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongBindFlipped.Test" ) + ( Name "inc" ) + ) :| + [ AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongBindFlipped.Test" ) + ( Name "bindFlipped$w" ) + ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongBindFlipped.Test" ) + ( Name "inc" ) + ) :| + [ AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongBindFlipped.Test" ) + ( Name "bindFlipped$w" ) + ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongBindFlipped.Test" ) + ( Name "inc" ) + ) :| + [ Ref Nothing + ( Local + ( Name "$tmp283" ) + ) + ] + ) + ] + ) + ] + ) + ] + ) + ] + ) + ] + ) + ] + ) + ] + ) + ] + ) + ] + ) + ] + ) + ] + ) + ] + ) + ] + ) + ] + ) + ] + ) + ] + ) + ] + ) + ] + ) + ] ) - ) - ( Ref Nothing - ( Local - ( Name "$tmp283" ) - ) :| [] - ) :| [] - ) :| [] - ) :| [] - ) :| [] - ) :| [] - ) :| [] - ) :| [] - ) :| [] - ) :| [] - ) :| [] - ) :| [] - ) :| [] - ) :| [] - ) :| [] - ) :| [] - ) :| [] - ) :| [] - ) :| [] - ) :| [] - ) :| [] - ) :| [] - ) :| [] - ) :| [] - ) :| [] - ) :| [] - ) :| [] - ) :| [] - ) :| [] - ) :| [] - ) :| [] - ) :| [] - ) :| [] - ) :| [] - ) :| [] - ) :| [] - ) :| [] - ) :| [] - ) :| [] - ) :| [] + ] + ) + ] + ) + ] + ) + ] + ) + ] + ) + ] + ) + ] + ) + ] + ) + ] + ) + ] + ) + ] + ) + ] + ) + ] + ) + ] + ) + ] + ) + ] + ) + ] + ) + ] + ) + ] + ) + ] ) ), Standalone ( 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" ) ) :| [] - ) + ( Ref Nothing + ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "bindFlipped$w" ) ) ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "bindFlipped" ) ) - ) + ( Ref Nothing + ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) ) :| + [ AppN Nothing ( Ref Nothing - ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) ) :| [] - ) - ) - ( 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 "bindFlipped$w" ) ) ) - ( AppN Nothing - ( AppN Nothing + ( Ref Nothing + ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) ) :| + [ AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "bindFlipped" ) + ( Name "bindFlipped$w" ) ) ) ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "inc" ) - ) :| [] - ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "bindFlipped" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "inc" ) - ) :| [] - ) - ) - ( AppN Nothing - ( AppN Nothing + ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) ) :| + [ AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "bindFlipped" ) + ( Name "bindFlipped$w" ) ) ) ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) :| [] - ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "bindFlipped" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "inc" ) - ) :| [] - ) - ) - ( AppN Nothing - ( AppN Nothing + ) :| + [ AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "bindFlipped" ) + ( Name "bindFlipped$w" ) ) ) ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) :| [] - ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "bindFlipped" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "inc" ) - ) :| [] - ) - ) - ( AppN Nothing - ( AppN Nothing + ) :| + [ AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "bindFlipped" ) + ( Name "bindFlipped$w" ) ) ) ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) :| [] - ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "bindFlipped" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "inc" ) - ) :| [] - ) - ) - ( AppN Nothing - ( AppN Nothing + ) :| + [ AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "bindFlipped" ) + ( Name "bindFlipped$w" ) ) ) ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) :| [] - ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "bindFlipped" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "inc" ) - ) :| [] - ) - ) - ( AppN Nothing - ( AppN Nothing + ) :| + [ AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "bindFlipped" ) + ( Name "bindFlipped$w" ) ) ) ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) :| [] - ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "bindFlipped" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "inc" ) - ) :| [] - ) - ) - ( AppN Nothing - ( AppN Nothing + ) :| + [ AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "bindFlipped" ) + ( Name "bindFlipped$w" ) ) ) ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) :| [] - ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "bindFlipped" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "inc" ) - ) :| [] - ) - ) - ( AppN Nothing - ( AppN Nothing + ) :| + [ AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "bindFlipped" ) + ( Name "bindFlipped$w" ) ) ) ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) :| [] - ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "bindFlipped" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "inc" ) - ) :| [] - ) - ) - ( AppN Nothing - ( AppN Nothing + ) :| + [ AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "bindFlipped" ) + ( Name "bindFlipped$w" ) ) ) ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) :| [] - ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "bindFlipped" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "inc" ) - ) :| [] - ) - ) - ( AppN Nothing - ( AppN Nothing + ) :| + [ AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "bindFlipped" ) + ( Name "bindFlipped$w" ) ) ) ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) :| [] - ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "bindFlipped" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "inc" ) - ) :| [] - ) - ) - ( AppN Nothing - ( AppN Nothing + ) :| + [ AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "bindFlipped" ) + ( Name "bindFlipped$w" ) ) ) ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) :| [] - ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "bindFlipped" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "inc" ) - ) :| [] - ) - ) - ( AppN Nothing - ( AppN Nothing + ) :| + [ AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "bindFlipped" ) + ( Name "bindFlipped$w" ) ) ) ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) :| [] - ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "bindFlipped" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "inc" ) - ) :| [] - ) - ) - ( AppN Nothing - ( AppN Nothing + ) :| + [ AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "bindFlipped" ) + ( Name "bindFlipped$w" ) ) ) ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) :| [] - ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "bindFlipped" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "inc" ) - ) :| [] - ) - ) - ( AppN Nothing - ( AppN Nothing + ) :| + [ AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "bindFlipped" ) + ( Name "bindFlipped$w" ) ) ) ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) :| [] - ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "bindFlipped" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "inc" ) - ) :| [] - ) - ) - ( AppN Nothing - ( AppN Nothing + ) :| + [ AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "bindFlipped" ) + ( Name "bindFlipped$w" ) ) ) ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) :| [] - ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "bindFlipped" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "inc" ) - ) :| [] - ) - ) - ( AppN Nothing - ( AppN Nothing + ) :| + [ AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "bindFlipped" ) + ( Name "bindFlipped$w" ) ) ) ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) :| [] - ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "bindFlipped" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "inc" ) - ) :| [] - ) - ) - ( AppN Nothing - ( AppN Nothing + ) :| + [ AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "bindFlipped" ) + ( Name "bindFlipped$w" ) ) ) ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) :| [] - ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "bindFlipped" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "inc" ) - ) :| [] - ) - ) - ( AppN Nothing - ( AppN Nothing + ) :| + [ AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "bindFlipped" ) + ( Name "bindFlipped$w" ) ) ) ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) :| [] - ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "bindFlipped" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "inc" ) - ) :| [] - ) - ) - ( AppN Nothing - ( AppN Nothing + ) :| + [ AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "bindFlipped" ) + ( Name "bindFlipped$w" ) ) ) ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) :| [] + ) :| + [ AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongBindFlipped.Test" ) + ( Name "bindFlipped$w" ) + ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongBindFlipped.Test" ) + ( Name "inc" ) + ) :| + [ AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongBindFlipped.Test" ) + ( Name "bindFlipped$w" ) + ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongBindFlipped.Test" ) + ( Name "inc" ) + ) :| + [ AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongBindFlipped.Test" ) + ( Name "bindFlipped$w" ) + ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongBindFlipped.Test" ) + ( Name "inc" ) + ) :| + [ AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongBindFlipped.Test" ) + ( Name "bindFlipped$w" ) + ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongBindFlipped.Test" ) + ( Name "inc" ) + ) :| + [ AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongBindFlipped.Test" ) + ( Name "bindFlipped$w" ) + ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongBindFlipped.Test" ) + ( Name "inc" ) + ) :| + [ AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongBindFlipped.Test" ) + ( Name "bindFlipped$w" ) + ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongBindFlipped.Test" ) + ( Name "inc" ) + ) :| + [ AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongBindFlipped.Test" ) + ( Name "bindFlipped$w" ) + ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongBindFlipped.Test" ) + ( Name "inc" ) + ) :| + [ AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongBindFlipped.Test" ) + ( Name "bindFlipped$w" ) + ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongBindFlipped.Test" ) + ( Name "inc" ) + ) :| + [ AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongBindFlipped.Test" ) + ( Name "bindFlipped$w" ) + ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongBindFlipped.Test" ) + ( Name "inc" ) + ) :| + [ AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongBindFlipped.Test" ) + ( Name "bindFlipped$w" ) + ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongBindFlipped.Test" ) + ( Name "inc" ) + ) :| + [ AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongBindFlipped.Test" ) + ( Name "bindFlipped$w" ) + ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongBindFlipped.Test" ) + ( Name "inc" ) + ) :| + [ AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongBindFlipped.Test" ) + ( Name "bindFlipped$w" ) + ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongBindFlipped.Test" ) + ( Name "inc" ) + ) :| + [ AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongBindFlipped.Test" ) + ( Name "bindFlipped$w" ) + ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongBindFlipped.Test" ) + ( Name "inc" ) + ) :| + [ AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongBindFlipped.Test" ) + ( Name "bindFlipped$w" ) + ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongBindFlipped.Test" ) + ( Name "inc" ) + ) :| + [ AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongBindFlipped.Test" ) + ( Name "bindFlipped$w" ) + ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongBindFlipped.Test" ) + ( Name "inc" ) + ) :| + [ AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongBindFlipped.Test" ) + ( Name "bindFlipped$w" ) + ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongBindFlipped.Test" ) + ( Name "inc" ) + ) :| + [ AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongBindFlipped.Test" ) + ( Name "bindFlipped$w" ) + ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongBindFlipped.Test" ) + ( Name "inc" ) + ) :| + [ AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongBindFlipped.Test" ) + ( Name "bindFlipped$w" ) + ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongBindFlipped.Test" ) + ( Name "inc" ) + ) :| + [ AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongBindFlipped.Test" ) + ( Name "bindFlipped$w" ) + ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongBindFlipped.Test" ) + ( Name "inc" ) + ) :| + [ Ref Nothing + ( Local + ( Name "$tmp284" ) + ) + ] + ) + ] + ) + ] + ) + ] + ) + ] + ) + ] + ) + ] + ) + ] + ) + ] + ) + ] + ) + ] + ) + ] + ) + ] + ) + ] + ) + ] + ) + ] + ) + ] + ) + ] + ) + ] + ) + ] ) - ) - ( Ref Nothing - ( Local - ( Name "$tmp284" ) - ) :| [] - ) :| [] - ) :| [] - ) :| [] - ) :| [] - ) :| [] - ) :| [] - ) :| [] - ) :| [] - ) :| [] - ) :| [] - ) :| [] - ) :| [] - ) :| [] - ) :| [] - ) :| [] - ) :| [] - ) :| [] - ) :| [] - ) :| [] - ) :| [] - ) :| [] - ) :| [] - ) :| [] - ) :| [] - ) :| [] - ) :| [] - ) :| [] - ) :| [] - ) :| [] - ) :| [] - ) :| [] - ) :| [] - ) :| [] - ) :| [] - ) :| [] - ) :| [] - ) :| [] - ) :| [] - ) :| [] + ] + ) + ] + ) + ] + ) + ] + ) + ] + ) + ] + ) + ] + ) + ] + ) + ] + ) + ] + ) + ] + ) + ] + ) + ] + ) + ] + ) + ] + ) + ] + ) + ] + ) + ] + ) + ] + ) + ] ) ), Standalone ( 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" ) ) :| [] - ) + ( Ref Nothing + ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "bindFlipped$w" ) ) ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "bindFlipped" ) ) - ) + ( Ref Nothing + ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) ) :| + [ AppN Nothing ( Ref Nothing - ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) ) :| [] - ) - ) - ( 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 "bindFlipped$w" ) ) ) - ( AppN Nothing - ( AppN Nothing + ( Ref Nothing + ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) ) :| + [ AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "bindFlipped" ) + ( Name "bindFlipped$w" ) ) ) ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "inc" ) - ) :| [] - ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "bindFlipped" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "inc" ) - ) :| [] - ) - ) - ( AppN Nothing - ( AppN Nothing + ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) ) :| + [ AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "bindFlipped" ) + ( Name "bindFlipped$w" ) ) ) ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) :| [] - ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "bindFlipped" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "inc" ) - ) :| [] - ) - ) - ( AppN Nothing - ( AppN Nothing + ) :| + [ AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "bindFlipped" ) + ( Name "bindFlipped$w" ) ) ) ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) :| [] - ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "bindFlipped" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "inc" ) - ) :| [] - ) - ) - ( AppN Nothing - ( AppN Nothing + ) :| + [ AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "bindFlipped" ) + ( Name "bindFlipped$w" ) ) ) ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) :| [] - ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "bindFlipped" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "inc" ) - ) :| [] - ) - ) - ( AppN Nothing - ( AppN Nothing + ) :| + [ AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "bindFlipped" ) + ( Name "bindFlipped$w" ) ) ) ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) :| [] - ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "bindFlipped" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "inc" ) - ) :| [] - ) - ) - ( AppN Nothing - ( AppN Nothing + ) :| + [ AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "bindFlipped" ) + ( Name "bindFlipped$w" ) ) ) ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) :| [] - ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "bindFlipped" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "inc" ) - ) :| [] - ) - ) - ( AppN Nothing - ( AppN Nothing + ) :| + [ AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "bindFlipped" ) + ( Name "bindFlipped$w" ) ) ) ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) :| [] - ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "bindFlipped" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "inc" ) - ) :| [] - ) - ) - ( AppN Nothing - ( AppN Nothing + ) :| + [ AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "bindFlipped" ) + ( Name "bindFlipped$w" ) ) ) ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) :| [] - ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "bindFlipped" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "inc" ) - ) :| [] - ) - ) - ( AppN Nothing - ( AppN Nothing + ) :| + [ AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "bindFlipped" ) + ( Name "bindFlipped$w" ) ) ) ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) :| [] - ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "bindFlipped" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "inc" ) - ) :| [] - ) - ) - ( AppN Nothing - ( AppN Nothing + ) :| + [ AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "bindFlipped" ) + ( Name "bindFlipped$w" ) ) ) ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) :| [] - ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "bindFlipped" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "inc" ) - ) :| [] - ) - ) - ( AppN Nothing - ( AppN Nothing + ) :| + [ AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "bindFlipped" ) + ( Name "bindFlipped$w" ) ) ) ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) :| [] - ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "bindFlipped" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "inc" ) - ) :| [] - ) - ) - ( AppN Nothing - ( AppN Nothing + ) :| + [ AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "bindFlipped" ) + ( Name "bindFlipped$w" ) ) ) ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) :| [] - ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "bindFlipped" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "inc" ) - ) :| [] - ) - ) - ( AppN Nothing - ( AppN Nothing + ) :| + [ AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "bindFlipped" ) + ( Name "bindFlipped$w" ) ) ) ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) :| [] - ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "bindFlipped" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "inc" ) - ) :| [] - ) - ) - ( AppN Nothing - ( AppN Nothing + ) :| + [ AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "bindFlipped" ) + ( Name "bindFlipped$w" ) ) ) ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) :| [] - ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "bindFlipped" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "inc" ) - ) :| [] - ) - ) - ( AppN Nothing - ( AppN Nothing + ) :| + [ AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "bindFlipped" ) + ( Name "bindFlipped$w" ) ) ) ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) :| [] - ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "bindFlipped" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "inc" ) - ) :| [] - ) - ) - ( AppN Nothing - ( AppN Nothing + ) :| + [ AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "bindFlipped" ) + ( Name "bindFlipped$w" ) ) ) ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) :| [] - ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "bindFlipped" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "inc" ) - ) :| [] - ) - ) - ( AppN Nothing - ( AppN Nothing + ) :| + [ AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "bindFlipped" ) + ( Name "bindFlipped$w" ) ) ) ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) :| [] - ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "bindFlipped" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "inc" ) - ) :| [] - ) - ) - ( AppN Nothing - ( AppN Nothing + ) :| + [ AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "bindFlipped" ) + ( Name "bindFlipped$w" ) ) ) ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) :| [] - ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "bindFlipped" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "inc" ) - ) :| [] - ) - ) - ( AppN Nothing - ( AppN Nothing + ) :| + [ AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "bindFlipped" ) + ( Name "bindFlipped$w" ) ) ) ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) :| [] + ) :| + [ AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongBindFlipped.Test" ) + ( Name "bindFlipped$w" ) + ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongBindFlipped.Test" ) + ( Name "inc" ) + ) :| + [ AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongBindFlipped.Test" ) + ( Name "bindFlipped$w" ) + ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongBindFlipped.Test" ) + ( Name "inc" ) + ) :| + [ AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongBindFlipped.Test" ) + ( Name "bindFlipped$w" ) + ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongBindFlipped.Test" ) + ( Name "inc" ) + ) :| + [ AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongBindFlipped.Test" ) + ( Name "bindFlipped$w" ) + ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongBindFlipped.Test" ) + ( Name "inc" ) + ) :| + [ AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongBindFlipped.Test" ) + ( Name "bindFlipped$w" ) + ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongBindFlipped.Test" ) + ( Name "inc" ) + ) :| + [ AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongBindFlipped.Test" ) + ( Name "bindFlipped$w" ) + ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongBindFlipped.Test" ) + ( Name "inc" ) + ) :| + [ AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongBindFlipped.Test" ) + ( Name "bindFlipped$w" ) + ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongBindFlipped.Test" ) + ( Name "inc" ) + ) :| + [ AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongBindFlipped.Test" ) + ( Name "bindFlipped$w" ) + ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongBindFlipped.Test" ) + ( Name "inc" ) + ) :| + [ AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongBindFlipped.Test" ) + ( Name "bindFlipped$w" ) + ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongBindFlipped.Test" ) + ( Name "inc" ) + ) :| + [ AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongBindFlipped.Test" ) + ( Name "bindFlipped$w" ) + ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongBindFlipped.Test" ) + ( Name "inc" ) + ) :| + [ AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongBindFlipped.Test" ) + ( Name "bindFlipped$w" ) + ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongBindFlipped.Test" ) + ( Name "inc" ) + ) :| + [ AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongBindFlipped.Test" ) + ( Name "bindFlipped$w" ) + ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongBindFlipped.Test" ) + ( Name "inc" ) + ) :| + [ AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongBindFlipped.Test" ) + ( Name "bindFlipped$w" ) + ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongBindFlipped.Test" ) + ( Name "inc" ) + ) :| + [ AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongBindFlipped.Test" ) + ( Name "bindFlipped$w" ) + ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongBindFlipped.Test" ) + ( Name "inc" ) + ) :| + [ AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongBindFlipped.Test" ) + ( Name "bindFlipped$w" ) + ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongBindFlipped.Test" ) + ( Name "inc" ) + ) :| + [ AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongBindFlipped.Test" ) + ( Name "bindFlipped$w" ) + ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongBindFlipped.Test" ) + ( Name "inc" ) + ) :| + [ AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongBindFlipped.Test" ) + ( Name "bindFlipped$w" ) + ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongBindFlipped.Test" ) + ( Name "inc" ) + ) :| + [ AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongBindFlipped.Test" ) + ( Name "bindFlipped$w" ) + ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongBindFlipped.Test" ) + ( Name "inc" ) + ) :| + [ AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongBindFlipped.Test" ) + ( Name "bindFlipped$w" ) + ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongBindFlipped.Test" ) + ( Name "inc" ) + ) :| + [ Ref Nothing + ( Local + ( Name "$tmp285" ) + ) + ] + ) + ] + ) + ] + ) + ] + ) + ] + ) + ] + ) + ] + ) + ] + ) + ] + ) + ] + ) + ] + ) + ] + ) + ] + ) + ] + ) + ] + ) + ] + ) + ] + ) + ] + ) + ] + ) + ] ) - ) - ( Ref Nothing - ( Local - ( Name "$tmp285" ) - ) :| [] - ) :| [] - ) :| [] - ) :| [] - ) :| [] - ) :| [] - ) :| [] - ) :| [] - ) :| [] - ) :| [] - ) :| [] - ) :| [] - ) :| [] - ) :| [] - ) :| [] - ) :| [] - ) :| [] - ) :| [] - ) :| [] - ) :| [] - ) :| [] - ) :| [] - ) :| [] - ) :| [] - ) :| [] - ) :| [] - ) :| [] - ) :| [] - ) :| [] - ) :| [] - ) :| [] - ) :| [] - ) :| [] - ) :| [] - ) :| [] - ) :| [] - ) :| [] - ) :| [] - ) :| [] - ) :| [] + ] + ) + ] + ) + ] + ) + ] + ) + ] + ) + ] + ) + ] + ) + ] + ) + ] + ) + ] + ) + ] + ) + ] + ) + ] + ) + ] + ) + ] + ) + ] + ) + ] + ) + ] + ) + ] + ) + ] ) ), Standalone ( 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" ) ) :| [] - ) + ( Ref Nothing + ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "bindFlipped$w" ) ) ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "bindFlipped" ) ) - ) + ( Ref Nothing + ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) ) :| + [ AppN Nothing ( Ref Nothing - ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) ) :| [] - ) - ) - ( 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 "bindFlipped$w" ) ) ) - ( AppN Nothing - ( AppN Nothing + ( Ref Nothing + ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) ) :| + [ AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "bindFlipped" ) + ( Name "bindFlipped$w" ) ) ) ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "inc" ) - ) :| [] - ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "bindFlipped" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "inc" ) - ) :| [] - ) - ) - ( AppN Nothing - ( AppN Nothing + ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) ) :| + [ AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "bindFlipped" ) + ( Name "bindFlipped$w" ) ) ) ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) :| [] - ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "bindFlipped" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "inc" ) - ) :| [] - ) - ) - ( AppN Nothing - ( AppN Nothing + ) :| + [ AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "bindFlipped" ) + ( Name "bindFlipped$w" ) ) ) ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) :| [] - ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "bindFlipped" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "inc" ) - ) :| [] - ) - ) - ( AppN Nothing - ( AppN Nothing + ) :| + [ AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "bindFlipped" ) + ( Name "bindFlipped$w" ) ) ) ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) :| [] - ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "bindFlipped" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "inc" ) - ) :| [] - ) - ) - ( AppN Nothing - ( AppN Nothing + ) :| + [ AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "bindFlipped" ) + ( Name "bindFlipped$w" ) ) ) ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) :| [] - ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "bindFlipped" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "inc" ) - ) :| [] - ) - ) - ( AppN Nothing - ( AppN Nothing + ) :| + [ AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "bindFlipped" ) + ( Name "bindFlipped$w" ) ) ) ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) :| [] - ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "bindFlipped" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "inc" ) - ) :| [] - ) - ) - ( AppN Nothing - ( AppN Nothing + ) :| + [ AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "bindFlipped" ) + ( Name "bindFlipped$w" ) ) ) ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) :| [] - ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "bindFlipped" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "inc" ) - ) :| [] - ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "bindFlipped" ) - ) + ) :| + [ AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongBindFlipped.Test" ) + ( Name "bindFlipped$w" ) + ) ) ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) :| [] - ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "bindFlipped" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "inc" ) - ) :| [] - ) - ) - ( AppN Nothing - ( AppN Nothing + ) :| + [ AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "bindFlipped" ) + ( Name "bindFlipped$w" ) ) ) ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) :| [] - ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "bindFlipped" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "inc" ) - ) :| [] - ) - ) - ( AppN Nothing - ( AppN Nothing + ) :| + [ AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "bindFlipped" ) + ( Name "bindFlipped$w" ) ) ) ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) :| [] - ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "bindFlipped" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "inc" ) - ) :| [] - ) - ) - ( AppN Nothing - ( AppN Nothing + ) :| + [ AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "bindFlipped" ) + ( Name "bindFlipped$w" ) ) ) ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) :| [] - ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "bindFlipped" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "inc" ) - ) :| [] - ) - ) - ( AppN Nothing - ( AppN Nothing + ) :| + [ AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "bindFlipped" ) + ( Name "bindFlipped$w" ) ) ) ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) :| [] - ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "bindFlipped" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "inc" ) - ) :| [] - ) - ) - ( AppN Nothing - ( AppN Nothing + ) :| + [ AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "bindFlipped" ) + ( Name "bindFlipped$w" ) ) ) ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) :| [] - ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "bindFlipped" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "inc" ) - ) :| [] - ) - ) - ( AppN Nothing - ( AppN Nothing + ) :| + [ AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "bindFlipped" ) + ( Name "bindFlipped$w" ) ) ) ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) :| [] - ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "bindFlipped" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "inc" ) - ) :| [] - ) - ) - ( AppN Nothing - ( AppN Nothing + ) :| + [ AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "bindFlipped" ) + ( Name "bindFlipped$w" ) ) ) ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) :| [] - ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "bindFlipped" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "inc" ) - ) :| [] - ) - ) - ( AppN Nothing - ( AppN Nothing + ) :| + [ AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "bindFlipped" ) + ( Name "bindFlipped$w" ) ) ) ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) :| [] - ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "bindFlipped" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "inc" ) - ) :| [] - ) - ) - ( AppN Nothing - ( AppN Nothing + ) :| + [ AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "bindFlipped" ) + ( Name "bindFlipped$w" ) ) ) ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) :| [] - ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "bindFlipped" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "inc" ) - ) :| [] - ) - ) - ( AppN Nothing - ( AppN Nothing + ) :| + [ AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "bindFlipped" ) + ( Name "bindFlipped$w" ) ) ) ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) :| [] - ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "bindFlipped" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "inc" ) - ) :| [] - ) - ) - ( AppN Nothing - ( AppN Nothing + ) :| + [ AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "bindFlipped" ) + ( Name "bindFlipped$w" ) ) ) ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) :| [] + ) :| + [ AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongBindFlipped.Test" ) + ( Name "bindFlipped$w" ) + ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongBindFlipped.Test" ) + ( Name "inc" ) + ) :| + [ AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongBindFlipped.Test" ) + ( Name "bindFlipped$w" ) + ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongBindFlipped.Test" ) + ( Name "inc" ) + ) :| + [ AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongBindFlipped.Test" ) + ( Name "bindFlipped$w" ) + ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongBindFlipped.Test" ) + ( Name "inc" ) + ) :| + [ AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongBindFlipped.Test" ) + ( Name "bindFlipped$w" ) + ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongBindFlipped.Test" ) + ( Name "inc" ) + ) :| + [ AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongBindFlipped.Test" ) + ( Name "bindFlipped$w" ) + ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongBindFlipped.Test" ) + ( Name "inc" ) + ) :| + [ AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongBindFlipped.Test" ) + ( Name "bindFlipped$w" ) + ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongBindFlipped.Test" ) + ( Name "inc" ) + ) :| + [ AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongBindFlipped.Test" ) + ( Name "bindFlipped$w" ) + ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongBindFlipped.Test" ) + ( Name "inc" ) + ) :| + [ AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongBindFlipped.Test" ) + ( Name "bindFlipped$w" ) + ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongBindFlipped.Test" ) + ( Name "inc" ) + ) :| + [ AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongBindFlipped.Test" ) + ( Name "bindFlipped$w" ) + ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongBindFlipped.Test" ) + ( Name "inc" ) + ) :| + [ AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongBindFlipped.Test" ) + ( Name "bindFlipped$w" ) + ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongBindFlipped.Test" ) + ( Name "inc" ) + ) :| + [ AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongBindFlipped.Test" ) + ( Name "bindFlipped$w" ) + ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongBindFlipped.Test" ) + ( Name "inc" ) + ) :| + [ AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongBindFlipped.Test" ) + ( Name "bindFlipped$w" ) + ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongBindFlipped.Test" ) + ( Name "inc" ) + ) :| + [ AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongBindFlipped.Test" ) + ( Name "bindFlipped$w" ) + ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongBindFlipped.Test" ) + ( Name "inc" ) + ) :| + [ AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongBindFlipped.Test" ) + ( Name "bindFlipped$w" ) + ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongBindFlipped.Test" ) + ( Name "inc" ) + ) :| + [ AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongBindFlipped.Test" ) + ( Name "bindFlipped$w" ) + ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongBindFlipped.Test" ) + ( Name "inc" ) + ) :| + [ AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongBindFlipped.Test" ) + ( Name "bindFlipped$w" ) + ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongBindFlipped.Test" ) + ( Name "inc" ) + ) :| + [ AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongBindFlipped.Test" ) + ( Name "bindFlipped$w" ) + ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongBindFlipped.Test" ) + ( Name "inc" ) + ) :| + [ AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongBindFlipped.Test" ) + ( Name "bindFlipped$w" ) + ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongBindFlipped.Test" ) + ( Name "inc" ) + ) :| + [ AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongBindFlipped.Test" ) + ( Name "bindFlipped$w" ) + ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongBindFlipped.Test" ) + ( Name "inc" ) + ) :| + [ Ref Nothing + ( Local + ( Name "$tmp286" ) + ) + ] + ) + ] + ) + ] + ) + ] + ) + ] + ) + ] + ) + ] + ) + ] + ) + ] + ) + ] + ) + ] + ) + ] + ) + ] + ) + ] + ) + ] + ) + ] + ) + ] + ) + ] + ) + ] + ) + ] ) - ) - ( Ref Nothing - ( Local - ( Name "$tmp286" ) - ) :| [] - ) :| [] - ) :| [] - ) :| [] - ) :| [] - ) :| [] - ) :| [] - ) :| [] - ) :| [] - ) :| [] - ) :| [] - ) :| [] - ) :| [] - ) :| [] - ) :| [] - ) :| [] - ) :| [] - ) :| [] - ) :| [] - ) :| [] - ) :| [] - ) :| [] - ) :| [] - ) :| [] - ) :| [] - ) :| [] - ) :| [] - ) :| [] - ) :| [] - ) :| [] - ) :| [] - ) :| [] - ) :| [] - ) :| [] - ) :| [] - ) :| [] - ) :| [] - ) :| [] - ) :| [] - ) :| [] + ] + ) + ] + ) + ] + ) + ] + ) + ] + ) + ] + ) + ] + ) + ] + ) + ] + ) + ] + ) + ] + ) + ] + ) + ] + ) + ] + ) + ] + ) + ] + ) + ] + ) + ] + ) + ] + ) + ] ) ), Standalone ( 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" ) ) :| [] - ) + ( Ref Nothing + ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "bindFlipped$w" ) ) ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "bindFlipped" ) ) - ) + ( Ref Nothing + ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) ) :| + [ AppN Nothing ( Ref Nothing - ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) ) :| [] - ) - ) - ( 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 "bindFlipped$w" ) ) ) - ( AppN Nothing - ( AppN Nothing + ( Ref Nothing + ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) ) :| + [ AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "bindFlipped" ) + ( Name "bindFlipped$w" ) ) ) ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "inc" ) - ) :| [] - ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "bindFlipped" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "inc" ) - ) :| [] - ) - ) - ( AppN Nothing - ( AppN Nothing + ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) ) :| + [ AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "bindFlipped" ) + ( Name "bindFlipped$w" ) ) ) ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) :| [] - ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "bindFlipped" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "inc" ) - ) :| [] - ) - ) - ( AppN Nothing - ( AppN Nothing + ) :| + [ AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "bindFlipped" ) + ( Name "bindFlipped$w" ) ) ) ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) :| [] - ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "bindFlipped" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "inc" ) - ) :| [] - ) - ) - ( AppN Nothing - ( AppN Nothing + ) :| + [ AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "bindFlipped" ) + ( Name "bindFlipped$w" ) ) ) ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) :| [] - ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "bindFlipped" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "inc" ) - ) :| [] - ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "bindFlipped" ) - ) + ) :| + [ AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongBindFlipped.Test" ) + ( Name "bindFlipped$w" ) + ) ) ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) :| [] - ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "bindFlipped" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "inc" ) - ) :| [] - ) - ) - ( AppN Nothing - ( AppN Nothing + ) :| + [ AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "bindFlipped" ) + ( Name "bindFlipped$w" ) ) ) ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) :| [] - ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "bindFlipped" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "inc" ) - ) :| [] - ) - ) - ( AppN Nothing - ( AppN Nothing + ) :| + [ AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "bindFlipped" ) + ( Name "bindFlipped$w" ) ) ) ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) :| [] - ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "bindFlipped" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "inc" ) - ) :| [] - ) - ) - ( AppN Nothing - ( AppN Nothing + ) :| + [ AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "bindFlipped" ) + ( Name "bindFlipped$w" ) ) ) ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) :| [] - ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "bindFlipped" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "inc" ) - ) :| [] - ) - ) - ( AppN Nothing - ( AppN Nothing + ) :| + [ AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "bindFlipped" ) + ( Name "bindFlipped$w" ) ) ) ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) :| [] - ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "bindFlipped" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "inc" ) - ) :| [] - ) - ) - ( AppN Nothing - ( AppN Nothing + ) :| + [ AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "bindFlipped" ) + ( Name "bindFlipped$w" ) ) ) ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) :| [] - ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "bindFlipped" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "inc" ) - ) :| [] - ) - ) - ( AppN Nothing - ( AppN Nothing + ) :| + [ AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "bindFlipped" ) + ( Name "bindFlipped$w" ) ) ) ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) :| [] - ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "bindFlipped" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "inc" ) - ) :| [] - ) - ) - ( AppN Nothing - ( AppN Nothing + ) :| + [ AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "bindFlipped" ) + ( Name "bindFlipped$w" ) ) ) ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) :| [] - ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "bindFlipped" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "inc" ) - ) :| [] - ) - ) - ( AppN Nothing - ( AppN Nothing + ) :| + [ AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "bindFlipped" ) + ( Name "bindFlipped$w" ) ) ) ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) :| [] - ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "bindFlipped" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "inc" ) - ) :| [] - ) - ) - ( AppN Nothing - ( AppN Nothing + ) :| + [ AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "bindFlipped" ) + ( Name "bindFlipped$w" ) ) ) ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) :| [] - ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "bindFlipped" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "inc" ) - ) :| [] - ) - ) - ( AppN Nothing - ( AppN Nothing + ) :| + [ AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "bindFlipped" ) + ( Name "bindFlipped$w" ) ) ) ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) :| [] - ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "bindFlipped" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "inc" ) - ) :| [] - ) - ) - ( AppN Nothing - ( AppN Nothing + ) :| + [ AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "bindFlipped" ) + ( Name "bindFlipped$w" ) ) ) ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) :| [] - ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "bindFlipped" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "inc" ) - ) :| [] - ) - ) - ( AppN Nothing - ( AppN Nothing + ) :| + [ AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "bindFlipped" ) + ( Name "bindFlipped$w" ) ) ) ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) :| [] - ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "bindFlipped" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "inc" ) - ) :| [] - ) - ) - ( AppN Nothing - ( AppN Nothing + ) :| + [ AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "bindFlipped" ) + ( Name "bindFlipped$w" ) ) ) ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) :| [] - ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "bindFlipped" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "inc" ) - ) :| [] - ) - ) - ( AppN Nothing - ( AppN Nothing + ) :| + [ AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "bindFlipped" ) + ( Name "bindFlipped$w" ) ) ) ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) :| [] + ) :| + [ AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongBindFlipped.Test" ) + ( Name "bindFlipped$w" ) + ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongBindFlipped.Test" ) + ( Name "inc" ) + ) :| + [ AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongBindFlipped.Test" ) + ( Name "bindFlipped$w" ) + ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongBindFlipped.Test" ) + ( Name "inc" ) + ) :| + [ AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongBindFlipped.Test" ) + ( Name "bindFlipped$w" ) + ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongBindFlipped.Test" ) + ( Name "inc" ) + ) :| + [ AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongBindFlipped.Test" ) + ( Name "bindFlipped$w" ) + ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongBindFlipped.Test" ) + ( Name "inc" ) + ) :| + [ AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongBindFlipped.Test" ) + ( Name "bindFlipped$w" ) + ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongBindFlipped.Test" ) + ( Name "inc" ) + ) :| + [ AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongBindFlipped.Test" ) + ( Name "bindFlipped$w" ) + ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongBindFlipped.Test" ) + ( Name "inc" ) + ) :| + [ AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongBindFlipped.Test" ) + ( Name "bindFlipped$w" ) + ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongBindFlipped.Test" ) + ( Name "inc" ) + ) :| + [ AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongBindFlipped.Test" ) + ( Name "bindFlipped$w" ) + ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongBindFlipped.Test" ) + ( Name "inc" ) + ) :| + [ AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongBindFlipped.Test" ) + ( Name "bindFlipped$w" ) + ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongBindFlipped.Test" ) + ( Name "inc" ) + ) :| + [ AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongBindFlipped.Test" ) + ( Name "bindFlipped$w" ) + ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongBindFlipped.Test" ) + ( Name "inc" ) + ) :| + [ AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongBindFlipped.Test" ) + ( Name "bindFlipped$w" ) + ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongBindFlipped.Test" ) + ( Name "inc" ) + ) :| + [ AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongBindFlipped.Test" ) + ( Name "bindFlipped$w" ) + ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongBindFlipped.Test" ) + ( Name "inc" ) + ) :| + [ AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongBindFlipped.Test" ) + ( Name "bindFlipped$w" ) + ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongBindFlipped.Test" ) + ( Name "inc" ) + ) :| + [ AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongBindFlipped.Test" ) + ( Name "bindFlipped$w" ) + ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongBindFlipped.Test" ) + ( Name "inc" ) + ) :| + [ AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongBindFlipped.Test" ) + ( Name "bindFlipped$w" ) + ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongBindFlipped.Test" ) + ( Name "inc" ) + ) :| + [ AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongBindFlipped.Test" ) + ( Name "bindFlipped$w" ) + ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongBindFlipped.Test" ) + ( Name "inc" ) + ) :| + [ AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongBindFlipped.Test" ) + ( Name "bindFlipped$w" ) + ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongBindFlipped.Test" ) + ( Name "inc" ) + ) :| + [ AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongBindFlipped.Test" ) + ( Name "bindFlipped$w" ) + ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongBindFlipped.Test" ) + ( Name "inc" ) + ) :| + [ AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongBindFlipped.Test" ) + ( Name "bindFlipped$w" ) + ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongBindFlipped.Test" ) + ( Name "inc" ) + ) :| + [ Ref Nothing + ( Local + ( Name "$tmp287" ) + ) + ] + ) + ] + ) + ] + ) + ] + ) + ] + ) + ] + ) + ] + ) + ] + ) + ] + ) + ] + ) + ] + ) + ] + ) + ] + ) + ] + ) + ] + ) + ] + ) + ] + ) + ] + ) + ] + ) + ] ) - ) - ( Ref Nothing - ( Local - ( Name "$tmp287" ) - ) :| [] - ) :| [] - ) :| [] - ) :| [] - ) :| [] - ) :| [] - ) :| [] - ) :| [] - ) :| [] - ) :| [] - ) :| [] - ) :| [] - ) :| [] - ) :| [] - ) :| [] - ) :| [] - ) :| [] - ) :| [] - ) :| [] - ) :| [] - ) :| [] - ) :| [] - ) :| [] - ) :| [] - ) :| [] - ) :| [] - ) :| [] - ) :| [] - ) :| [] - ) :| [] - ) :| [] - ) :| [] - ) :| [] - ) :| [] - ) :| [] - ) :| [] - ) :| [] - ) :| [] - ) :| [] - ) :| [] + ] + ) + ] + ) + ] + ) + ] + ) + ] + ) + ] + ) + ] + ) + ] + ) + ] + ) + ] + ) + ] + ) + ] + ) + ] + ) + ] + ) + ] + ) + ] + ) + ] + ) + ] + ) + ] + ) + ] ) ), Standalone ( 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" ) ) :| [] - ) + ( Ref Nothing + ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "bindFlipped$w" ) ) ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "bindFlipped" ) ) - ) + ( Ref Nothing + ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) ) :| + [ AppN Nothing ( Ref Nothing - ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) ) :| [] - ) - ) - ( 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 "bindFlipped$w" ) ) ) - ( AppN Nothing - ( AppN Nothing + ( Ref Nothing + ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) ) :| + [ AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "bindFlipped" ) + ( Name "bindFlipped$w" ) ) ) ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "inc" ) - ) :| [] - ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "bindFlipped" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "inc" ) - ) :| [] - ) - ) - ( AppN Nothing - ( AppN Nothing + ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) ) :| + [ AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "bindFlipped" ) + ( Name "bindFlipped$w" ) ) ) ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) :| [] - ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "bindFlipped" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "inc" ) - ) :| [] - ) - ) - ( AppN Nothing - ( AppN Nothing + ) :| + [ AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "bindFlipped" ) + ( Name "bindFlipped$w" ) ) ) ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) :| [] - ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "bindFlipped" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "inc" ) - ) :| [] - ) - ) - ( AppN Nothing - ( AppN Nothing + ) :| + [ AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "bindFlipped" ) + ( Name "bindFlipped$w" ) ) ) ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) :| [] - ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "bindFlipped" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "inc" ) - ) :| [] - ) - ) - ( AppN Nothing - ( AppN Nothing + ) :| + [ AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "bindFlipped" ) + ( Name "bindFlipped$w" ) ) ) ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) :| [] - ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "bindFlipped" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "inc" ) - ) :| [] - ) - ) - ( AppN Nothing - ( AppN Nothing + ) :| + [ AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "bindFlipped" ) + ( Name "bindFlipped$w" ) ) ) ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) :| [] - ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "bindFlipped" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "inc" ) - ) :| [] - ) - ) - ( AppN Nothing - ( AppN Nothing + ) :| + [ AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "bindFlipped" ) + ( Name "bindFlipped$w" ) ) ) ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) :| [] - ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "bindFlipped" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "inc" ) - ) :| [] - ) - ) - ( AppN Nothing - ( AppN Nothing + ) :| + [ AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "bindFlipped" ) + ( Name "bindFlipped$w" ) ) ) ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) :| [] - ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "bindFlipped" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "inc" ) - ) :| [] - ) - ) - ( AppN Nothing - ( AppN Nothing + ) :| + [ AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "bindFlipped" ) + ( Name "bindFlipped$w" ) ) ) ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) :| [] - ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "bindFlipped" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "inc" ) - ) :| [] - ) - ) - ( AppN Nothing - ( AppN Nothing + ) :| + [ AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "bindFlipped" ) + ( Name "bindFlipped$w" ) ) ) ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) :| [] - ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "bindFlipped" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "inc" ) - ) :| [] - ) - ) - ( AppN Nothing - ( AppN Nothing + ) :| + [ AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "bindFlipped" ) + ( Name "bindFlipped$w" ) ) ) ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) :| [] - ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "bindFlipped" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "inc" ) - ) :| [] - ) - ) - ( AppN Nothing - ( AppN Nothing + ) :| + [ AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "bindFlipped" ) + ( Name "bindFlipped$w" ) ) ) ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) :| [] - ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "bindFlipped" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "inc" ) - ) :| [] - ) - ) - ( AppN Nothing - ( AppN Nothing + ) :| + [ AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "bindFlipped" ) + ( Name "bindFlipped$w" ) ) ) ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) :| [] - ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "bindFlipped" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "inc" ) - ) :| [] - ) - ) - ( AppN Nothing - ( AppN Nothing + ) :| + [ AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "bindFlipped" ) + ( Name "bindFlipped$w" ) ) ) ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) :| [] - ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "bindFlipped" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "inc" ) - ) :| [] - ) - ) - ( AppN Nothing - ( AppN Nothing + ) :| + [ AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "bindFlipped" ) + ( Name "bindFlipped$w" ) ) ) ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) :| [] - ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "bindFlipped" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "inc" ) - ) :| [] - ) - ) - ( AppN Nothing - ( AppN Nothing + ) :| + [ AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "bindFlipped" ) + ( Name "bindFlipped$w" ) ) ) ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) :| [] - ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "bindFlipped" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "inc" ) - ) :| [] - ) - ) - ( AppN Nothing - ( AppN Nothing + ) :| + [ AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "bindFlipped" ) + ( Name "bindFlipped$w" ) ) ) ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) :| [] - ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "bindFlipped" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "inc" ) - ) :| [] - ) - ) - ( AppN Nothing - ( AppN Nothing + ) :| + [ AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "bindFlipped" ) + ( Name "bindFlipped$w" ) ) ) ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) :| [] - ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "bindFlipped" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "inc" ) - ) :| [] - ) - ) - ( AppN Nothing - ( AppN Nothing + ) :| + [ AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "bindFlipped" ) + ( Name "bindFlipped$w" ) ) ) ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) :| [] + ) :| + [ AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongBindFlipped.Test" ) + ( Name "bindFlipped$w" ) + ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongBindFlipped.Test" ) + ( Name "inc" ) + ) :| + [ AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongBindFlipped.Test" ) + ( Name "bindFlipped$w" ) + ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongBindFlipped.Test" ) + ( Name "inc" ) + ) :| + [ AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongBindFlipped.Test" ) + ( Name "bindFlipped$w" ) + ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongBindFlipped.Test" ) + ( Name "inc" ) + ) :| + [ AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongBindFlipped.Test" ) + ( Name "bindFlipped$w" ) + ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongBindFlipped.Test" ) + ( Name "inc" ) + ) :| + [ AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongBindFlipped.Test" ) + ( Name "bindFlipped$w" ) + ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongBindFlipped.Test" ) + ( Name "inc" ) + ) :| + [ AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongBindFlipped.Test" ) + ( Name "bindFlipped$w" ) + ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongBindFlipped.Test" ) + ( Name "inc" ) + ) :| + [ AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongBindFlipped.Test" ) + ( Name "bindFlipped$w" ) + ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongBindFlipped.Test" ) + ( Name "inc" ) + ) :| + [ AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongBindFlipped.Test" ) + ( Name "bindFlipped$w" ) + ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongBindFlipped.Test" ) + ( Name "inc" ) + ) :| + [ AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongBindFlipped.Test" ) + ( Name "bindFlipped$w" ) + ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongBindFlipped.Test" ) + ( Name "inc" ) + ) :| + [ AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongBindFlipped.Test" ) + ( Name "bindFlipped$w" ) + ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongBindFlipped.Test" ) + ( Name "inc" ) + ) :| + [ AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongBindFlipped.Test" ) + ( Name "bindFlipped$w" ) + ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongBindFlipped.Test" ) + ( Name "inc" ) + ) :| + [ AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongBindFlipped.Test" ) + ( Name "bindFlipped$w" ) + ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongBindFlipped.Test" ) + ( Name "inc" ) + ) :| + [ AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongBindFlipped.Test" ) + ( Name "bindFlipped$w" ) + ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongBindFlipped.Test" ) + ( Name "inc" ) + ) :| + [ AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongBindFlipped.Test" ) + ( Name "bindFlipped$w" ) + ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongBindFlipped.Test" ) + ( Name "inc" ) + ) :| + [ AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongBindFlipped.Test" ) + ( Name "bindFlipped$w" ) + ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongBindFlipped.Test" ) + ( Name "inc" ) + ) :| + [ AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongBindFlipped.Test" ) + ( Name "bindFlipped$w" ) + ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongBindFlipped.Test" ) + ( Name "inc" ) + ) :| + [ AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongBindFlipped.Test" ) + ( Name "bindFlipped$w" ) + ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongBindFlipped.Test" ) + ( Name "inc" ) + ) :| + [ AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongBindFlipped.Test" ) + ( Name "bindFlipped$w" ) + ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongBindFlipped.Test" ) + ( Name "inc" ) + ) :| + [ AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongBindFlipped.Test" ) + ( Name "bindFlipped$w" ) + ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongBindFlipped.Test" ) + ( Name "inc" ) + ) :| + [ Ref Nothing + ( Local + ( Name "$tmp288" ) + ) + ] + ) + ] + ) + ] + ) + ] + ) + ] + ) + ] + ) + ] + ) + ] + ) + ] + ) + ] + ) + ] + ) + ] + ) + ] + ) + ] + ) + ] + ) + ] + ) + ] + ) + ] + ) + ] + ) + ] ) - ) - ( Ref Nothing - ( Local - ( Name "$tmp288" ) - ) :| [] - ) :| [] - ) :| [] - ) :| [] - ) :| [] - ) :| [] - ) :| [] - ) :| [] - ) :| [] - ) :| [] - ) :| [] - ) :| [] - ) :| [] - ) :| [] - ) :| [] - ) :| [] - ) :| [] - ) :| [] - ) :| [] - ) :| [] - ) :| [] - ) :| [] - ) :| [] - ) :| [] - ) :| [] - ) :| [] - ) :| [] - ) :| [] - ) :| [] - ) :| [] - ) :| [] - ) :| [] - ) :| [] - ) :| [] - ) :| [] - ) :| [] - ) :| [] - ) :| [] - ) :| [] - ) :| [] + ] + ) + ] + ) + ] + ) + ] + ) + ] + ) + ] + ) + ] + ) + ] + ) + ] + ) + ] + ) + ] + ) + ] + ) + ] + ) + ] + ) + ] + ) + ] + ) + ] + ) + ] + ) + ] + ) + ] ) ) ] ) ( 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 "bindFlipped$w" ) ) ) - ( AppN Nothing - ( AppN Nothing + ( Ref Nothing + ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) ) :| + [ AppN Nothing ( Ref Nothing - ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "bindFlipped" ) ) + ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "bindFlipped$w" ) ) ) ( Ref Nothing - ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) ) :| [] - ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "bindFlipped" ) ) - ) - ( Ref Nothing - ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) ) :| [] - ) - ) - ( AppN Nothing - ( AppN Nothing + ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) ) :| + [ AppN Nothing ( Ref Nothing - ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "bindFlipped" ) ) - ) - ( Ref Nothing - ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) ) :| [] - ) - ) - ( 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 "bindFlipped$w" ) ) ) - ( AppN Nothing - ( AppN Nothing + ( Ref Nothing + ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) ) :| + [ AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "bindFlipped" ) + ( Name "bindFlipped$w" ) ) ) ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "inc" ) - ) :| [] - ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "bindFlipped" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "inc" ) - ) :| [] - ) - ) - ( AppN Nothing - ( AppN Nothing + ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) ) :| + [ AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "bindFlipped" ) + ( Name "bindFlipped$w" ) ) ) ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) :| [] - ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "bindFlipped" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "inc" ) - ) :| [] - ) - ) - ( AppN Nothing - ( AppN Nothing + ) :| + [ AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "bindFlipped" ) + ( Name "bindFlipped$w" ) ) ) ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) :| [] - ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "bindFlipped" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "inc" ) - ) :| [] - ) - ) - ( AppN Nothing - ( AppN Nothing + ) :| + [ AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "bindFlipped" ) + ( Name "bindFlipped$w" ) ) ) ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) :| [] - ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "bindFlipped" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "inc" ) - ) :| [] - ) - ) - ( AppN Nothing - ( AppN Nothing + ) :| + [ AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "bindFlipped" ) + ( Name "bindFlipped$w" ) ) ) ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) :| [] - ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "bindFlipped" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "inc" ) - ) :| [] - ) - ) - ( AppN Nothing - ( AppN Nothing + ) :| + [ AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "bindFlipped" ) + ( Name "bindFlipped$w" ) ) ) ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) :| [] - ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "bindFlipped" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "inc" ) - ) :| [] - ) - ) - ( AppN Nothing - ( AppN Nothing + ) :| + [ AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "bindFlipped" ) + ( Name "bindFlipped$w" ) ) ) ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) :| [] - ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "bindFlipped" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "inc" ) - ) :| [] - ) - ) - ( AppN Nothing - ( AppN Nothing + ) :| + [ AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "bindFlipped" ) + ( Name "bindFlipped$w" ) ) ) ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) - ) :| [] - ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "bindFlipped" ) + ) :| + [ AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongBindFlipped.Test" ) + ( Name "bindFlipped$w" ) + ) ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongBindFlipped.Test" ) - ( Name "inc" ) - ) :| [] - ) + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongBindFlipped.Test" ) + ( Name "inc" ) + ) :| + [ AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongBindFlipped.Test" ) + ( Name "bindFlipped$w" ) + ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongBindFlipped.Test" ) + ( Name "inc" ) + ) :| + [ AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongBindFlipped.Test" ) + ( Name "bindFlipped$w" ) + ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongBindFlipped.Test" ) + ( Name "inc" ) + ) :| + [ AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongBindFlipped.Test" ) + ( Name "bindFlipped$w" ) + ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongBindFlipped.Test" ) + ( Name "inc" ) + ) :| + [ AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongBindFlipped.Test" ) + ( Name "bindFlipped$w" ) + ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongBindFlipped.Test" ) + ( Name "inc" ) + ) :| + [ AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongBindFlipped.Test" ) + ( Name "bindFlipped$w" ) + ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongBindFlipped.Test" ) + ( Name "inc" ) + ) :| + [ AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongBindFlipped.Test" ) + ( Name "bindFlipped$w" ) + ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongBindFlipped.Test" ) + ( Name "inc" ) + ) :| + [ AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongBindFlipped.Test" ) + ( Name "bindFlipped$w" ) + ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongBindFlipped.Test" ) + ( Name "inc" ) + ) :| + [ AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongBindFlipped.Test" ) + ( Name "bindFlipped$w" ) + ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongBindFlipped.Test" ) + ( Name "inc" ) + ) :| + [ AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongBindFlipped.Test" ) + ( Name "bindFlipped$w" ) + ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongBindFlipped.Test" ) + ( Name "inc" ) + ) :| + [ Ref Nothing + ( Local + ( Name "$tmp289" ) + ) + ] + ) + ] + ) + ] + ) + ] + ) + ] + ) + ] + ) + ] + ) + ] + ) + ] + ) + ] + ) + ] ) - ( Ref Nothing - ( Local ( Name "$tmp289" ) ) :| [] - ) :| [] - ) :| [] - ) :| [] - ) :| [] - ) :| [] - ) :| [] - ) :| [] - ) :| [] - ) :| [] - ) :| [] - ) :| [] - ) :| [] - ) :| [] - ) :| [] - ) :| [] - ) :| [] - ) :| [] - ) :| [] - ) :| [] - ) :| [] + ] + ) + ] + ) + ] + ) + ] + ) + ] + ) + ] + ) + ] + ) + ] + ) + ] + ) + ] ) ) ) @@ -4819,8 +4251,8 @@ UberModule ( Ref Nothing ( Imported ( ModuleName "Data.Show" ) ( Name "show" ) ) ) ( LiteralObject Nothing [ - ( PropName "show", Abs Nothing - ( ParamNamed Nothing ( Name "v$16$282" ) ) + ( PropName "show", AbsN Nothing + ( ParamNamed Nothing ( Name "v$16$282" ) :| [] ) ( IfThenElse Nothing ( Eq Nothing ( LiteralString Nothing "Data.Maybe∷Maybe.Just" ) diff --git a/test/ps/output/Golden.LongBindFlipped.Test/golden.lua b/test/ps/output/Golden.LongBindFlipped.Test/golden.lua index e9ce9a25..c5c61fcc 100644 --- a/test/ps/output/Golden.LongBindFlipped.Test/golden.lua +++ b/test/ps/output/Golden.LongBindFlipped.Test/golden.lua @@ -13,29 +13,28 @@ M.Data_Show_show = function(dict) return dict.show end M.Data_Maybe_Just = function(value0) return { ["$ctor"] = "Data.Maybe∷Maybe.Just", value0 = value0 } end -M.Golden_LongBindFlipped_Test_bindFlipped = function(b_S_135_S_275) - return function(a_S_136_S_276) - if "Data.Maybe∷Maybe.Just" == a_S_136_S_276["$ctor"] then - return b_S_135_S_275(a_S_136_S_276.value0) - elseif "Data.Maybe∷Maybe.Nothing" == a_S_136_S_276["$ctor"] then - return { ["$ctor"] = "Data.Maybe∷Maybe.Nothing" } - else - return error("No patterns matched") - end +M.Golden_LongBindFlipped_Test_bindFlipped_S_w = function( b_S_135_S_275 +, a_S_136_S_276 ) + if "Data.Maybe∷Maybe.Just" == a_S_136_S_276["$ctor"] then + return b_S_135_S_275(a_S_136_S_276.value0) + elseif "Data.Maybe∷Maybe.Nothing" == a_S_136_S_276["$ctor"] then + return { ["$ctor"] = "Data.Maybe∷Maybe.Nothing" } + else + return error("No patterns matched") end end M.Golden_LongBindFlipped_Test_inc = function(x) return M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x)(1)) end M.Golden_LongBindFlipped_Test_compute = (function() - local _S_tmp283 = M.Golden_LongBindFlipped_Test_bindFlipped(M.Golden_LongBindFlipped_Test_inc)(M.Golden_LongBindFlipped_Test_bindFlipped(M.Golden_LongBindFlipped_Test_inc)(M.Golden_LongBindFlipped_Test_bindFlipped(M.Golden_LongBindFlipped_Test_inc)(M.Golden_LongBindFlipped_Test_bindFlipped(M.Golden_LongBindFlipped_Test_inc)(M.Golden_LongBindFlipped_Test_bindFlipped(M.Golden_LongBindFlipped_Test_inc)(M.Golden_LongBindFlipped_Test_bindFlipped(M.Golden_LongBindFlipped_Test_inc)(M.Golden_LongBindFlipped_Test_bindFlipped(M.Golden_LongBindFlipped_Test_inc)(M.Golden_LongBindFlipped_Test_bindFlipped(M.Golden_LongBindFlipped_Test_inc)(M.Golden_LongBindFlipped_Test_bindFlipped(M.Golden_LongBindFlipped_Test_inc)(M.Golden_LongBindFlipped_Test_bindFlipped(M.Golden_LongBindFlipped_Test_inc)(M.Golden_LongBindFlipped_Test_bindFlipped(M.Golden_LongBindFlipped_Test_inc)(M.Golden_LongBindFlipped_Test_bindFlipped(M.Golden_LongBindFlipped_Test_inc)(M.Golden_LongBindFlipped_Test_bindFlipped(M.Golden_LongBindFlipped_Test_inc)(M.Golden_LongBindFlipped_Test_bindFlipped(M.Golden_LongBindFlipped_Test_inc)(M.Golden_LongBindFlipped_Test_bindFlipped(M.Golden_LongBindFlipped_Test_inc)(M.Golden_LongBindFlipped_Test_bindFlipped(M.Golden_LongBindFlipped_Test_inc)(M.Golden_LongBindFlipped_Test_bindFlipped(M.Golden_LongBindFlipped_Test_inc)(M.Golden_LongBindFlipped_Test_bindFlipped(M.Golden_LongBindFlipped_Test_inc)(M.Golden_LongBindFlipped_Test_bindFlipped(M.Golden_LongBindFlipped_Test_inc)(M.Golden_LongBindFlipped_Test_bindFlipped(M.Golden_LongBindFlipped_Test_inc)(M.Golden_LongBindFlipped_Test_bindFlipped(M.Golden_LongBindFlipped_Test_inc)(M.Golden_LongBindFlipped_Test_bindFlipped(M.Golden_LongBindFlipped_Test_inc)(M.Golden_LongBindFlipped_Test_bindFlipped(M.Golden_LongBindFlipped_Test_inc)(M.Golden_LongBindFlipped_Test_bindFlipped(M.Golden_LongBindFlipped_Test_inc)(M.Golden_LongBindFlipped_Test_bindFlipped(M.Golden_LongBindFlipped_Test_inc)(M.Golden_LongBindFlipped_Test_bindFlipped(M.Golden_LongBindFlipped_Test_inc)(M.Golden_LongBindFlipped_Test_bindFlipped(M.Golden_LongBindFlipped_Test_inc)(M.Golden_LongBindFlipped_Test_bindFlipped(M.Golden_LongBindFlipped_Test_inc)(M.Golden_LongBindFlipped_Test_bindFlipped(M.Golden_LongBindFlipped_Test_inc)(M.Golden_LongBindFlipped_Test_bindFlipped(M.Golden_LongBindFlipped_Test_inc)(M.Golden_LongBindFlipped_Test_bindFlipped(M.Golden_LongBindFlipped_Test_inc)(M.Golden_LongBindFlipped_Test_bindFlipped(M.Golden_LongBindFlipped_Test_inc)(M.Golden_LongBindFlipped_Test_bindFlipped(M.Golden_LongBindFlipped_Test_inc)(M.Golden_LongBindFlipped_Test_bindFlipped(M.Golden_LongBindFlipped_Test_inc)(M.Golden_LongBindFlipped_Test_bindFlipped(M.Golden_LongBindFlipped_Test_inc)(M.Golden_LongBindFlipped_Test_bindFlipped(M.Golden_LongBindFlipped_Test_inc)(M.Golden_LongBindFlipped_Test_bindFlipped(M.Golden_LongBindFlipped_Test_inc)(M.Golden_LongBindFlipped_Test_bindFlipped(M.Golden_LongBindFlipped_Test_inc)(M.Golden_LongBindFlipped_Test_bindFlipped(M.Golden_LongBindFlipped_Test_inc)(M.Data_Maybe_Just(1)))))))))))))))))))))))))))))))))))))))) - local _S_tmp284 = M.Golden_LongBindFlipped_Test_bindFlipped(M.Golden_LongBindFlipped_Test_inc)(M.Golden_LongBindFlipped_Test_bindFlipped(M.Golden_LongBindFlipped_Test_inc)(M.Golden_LongBindFlipped_Test_bindFlipped(M.Golden_LongBindFlipped_Test_inc)(M.Golden_LongBindFlipped_Test_bindFlipped(M.Golden_LongBindFlipped_Test_inc)(M.Golden_LongBindFlipped_Test_bindFlipped(M.Golden_LongBindFlipped_Test_inc)(M.Golden_LongBindFlipped_Test_bindFlipped(M.Golden_LongBindFlipped_Test_inc)(M.Golden_LongBindFlipped_Test_bindFlipped(M.Golden_LongBindFlipped_Test_inc)(M.Golden_LongBindFlipped_Test_bindFlipped(M.Golden_LongBindFlipped_Test_inc)(M.Golden_LongBindFlipped_Test_bindFlipped(M.Golden_LongBindFlipped_Test_inc)(M.Golden_LongBindFlipped_Test_bindFlipped(M.Golden_LongBindFlipped_Test_inc)(M.Golden_LongBindFlipped_Test_bindFlipped(M.Golden_LongBindFlipped_Test_inc)(M.Golden_LongBindFlipped_Test_bindFlipped(M.Golden_LongBindFlipped_Test_inc)(M.Golden_LongBindFlipped_Test_bindFlipped(M.Golden_LongBindFlipped_Test_inc)(M.Golden_LongBindFlipped_Test_bindFlipped(M.Golden_LongBindFlipped_Test_inc)(M.Golden_LongBindFlipped_Test_bindFlipped(M.Golden_LongBindFlipped_Test_inc)(M.Golden_LongBindFlipped_Test_bindFlipped(M.Golden_LongBindFlipped_Test_inc)(M.Golden_LongBindFlipped_Test_bindFlipped(M.Golden_LongBindFlipped_Test_inc)(M.Golden_LongBindFlipped_Test_bindFlipped(M.Golden_LongBindFlipped_Test_inc)(M.Golden_LongBindFlipped_Test_bindFlipped(M.Golden_LongBindFlipped_Test_inc)(M.Golden_LongBindFlipped_Test_bindFlipped(M.Golden_LongBindFlipped_Test_inc)(M.Golden_LongBindFlipped_Test_bindFlipped(M.Golden_LongBindFlipped_Test_inc)(M.Golden_LongBindFlipped_Test_bindFlipped(M.Golden_LongBindFlipped_Test_inc)(M.Golden_LongBindFlipped_Test_bindFlipped(M.Golden_LongBindFlipped_Test_inc)(M.Golden_LongBindFlipped_Test_bindFlipped(M.Golden_LongBindFlipped_Test_inc)(M.Golden_LongBindFlipped_Test_bindFlipped(M.Golden_LongBindFlipped_Test_inc)(M.Golden_LongBindFlipped_Test_bindFlipped(M.Golden_LongBindFlipped_Test_inc)(M.Golden_LongBindFlipped_Test_bindFlipped(M.Golden_LongBindFlipped_Test_inc)(M.Golden_LongBindFlipped_Test_bindFlipped(M.Golden_LongBindFlipped_Test_inc)(M.Golden_LongBindFlipped_Test_bindFlipped(M.Golden_LongBindFlipped_Test_inc)(M.Golden_LongBindFlipped_Test_bindFlipped(M.Golden_LongBindFlipped_Test_inc)(M.Golden_LongBindFlipped_Test_bindFlipped(M.Golden_LongBindFlipped_Test_inc)(M.Golden_LongBindFlipped_Test_bindFlipped(M.Golden_LongBindFlipped_Test_inc)(M.Golden_LongBindFlipped_Test_bindFlipped(M.Golden_LongBindFlipped_Test_inc)(M.Golden_LongBindFlipped_Test_bindFlipped(M.Golden_LongBindFlipped_Test_inc)(M.Golden_LongBindFlipped_Test_bindFlipped(M.Golden_LongBindFlipped_Test_inc)(M.Golden_LongBindFlipped_Test_bindFlipped(M.Golden_LongBindFlipped_Test_inc)(M.Golden_LongBindFlipped_Test_bindFlipped(M.Golden_LongBindFlipped_Test_inc)(M.Golden_LongBindFlipped_Test_bindFlipped(M.Golden_LongBindFlipped_Test_inc)(M.Golden_LongBindFlipped_Test_bindFlipped(M.Golden_LongBindFlipped_Test_inc)(M.Golden_LongBindFlipped_Test_bindFlipped(M.Golden_LongBindFlipped_Test_inc)(_S_tmp283)))))))))))))))))))))))))))))))))))))))) - local _S_tmp285 = M.Golden_LongBindFlipped_Test_bindFlipped(M.Golden_LongBindFlipped_Test_inc)(M.Golden_LongBindFlipped_Test_bindFlipped(M.Golden_LongBindFlipped_Test_inc)(M.Golden_LongBindFlipped_Test_bindFlipped(M.Golden_LongBindFlipped_Test_inc)(M.Golden_LongBindFlipped_Test_bindFlipped(M.Golden_LongBindFlipped_Test_inc)(M.Golden_LongBindFlipped_Test_bindFlipped(M.Golden_LongBindFlipped_Test_inc)(M.Golden_LongBindFlipped_Test_bindFlipped(M.Golden_LongBindFlipped_Test_inc)(M.Golden_LongBindFlipped_Test_bindFlipped(M.Golden_LongBindFlipped_Test_inc)(M.Golden_LongBindFlipped_Test_bindFlipped(M.Golden_LongBindFlipped_Test_inc)(M.Golden_LongBindFlipped_Test_bindFlipped(M.Golden_LongBindFlipped_Test_inc)(M.Golden_LongBindFlipped_Test_bindFlipped(M.Golden_LongBindFlipped_Test_inc)(M.Golden_LongBindFlipped_Test_bindFlipped(M.Golden_LongBindFlipped_Test_inc)(M.Golden_LongBindFlipped_Test_bindFlipped(M.Golden_LongBindFlipped_Test_inc)(M.Golden_LongBindFlipped_Test_bindFlipped(M.Golden_LongBindFlipped_Test_inc)(M.Golden_LongBindFlipped_Test_bindFlipped(M.Golden_LongBindFlipped_Test_inc)(M.Golden_LongBindFlipped_Test_bindFlipped(M.Golden_LongBindFlipped_Test_inc)(M.Golden_LongBindFlipped_Test_bindFlipped(M.Golden_LongBindFlipped_Test_inc)(M.Golden_LongBindFlipped_Test_bindFlipped(M.Golden_LongBindFlipped_Test_inc)(M.Golden_LongBindFlipped_Test_bindFlipped(M.Golden_LongBindFlipped_Test_inc)(M.Golden_LongBindFlipped_Test_bindFlipped(M.Golden_LongBindFlipped_Test_inc)(M.Golden_LongBindFlipped_Test_bindFlipped(M.Golden_LongBindFlipped_Test_inc)(M.Golden_LongBindFlipped_Test_bindFlipped(M.Golden_LongBindFlipped_Test_inc)(M.Golden_LongBindFlipped_Test_bindFlipped(M.Golden_LongBindFlipped_Test_inc)(M.Golden_LongBindFlipped_Test_bindFlipped(M.Golden_LongBindFlipped_Test_inc)(M.Golden_LongBindFlipped_Test_bindFlipped(M.Golden_LongBindFlipped_Test_inc)(M.Golden_LongBindFlipped_Test_bindFlipped(M.Golden_LongBindFlipped_Test_inc)(M.Golden_LongBindFlipped_Test_bindFlipped(M.Golden_LongBindFlipped_Test_inc)(M.Golden_LongBindFlipped_Test_bindFlipped(M.Golden_LongBindFlipped_Test_inc)(M.Golden_LongBindFlipped_Test_bindFlipped(M.Golden_LongBindFlipped_Test_inc)(M.Golden_LongBindFlipped_Test_bindFlipped(M.Golden_LongBindFlipped_Test_inc)(M.Golden_LongBindFlipped_Test_bindFlipped(M.Golden_LongBindFlipped_Test_inc)(M.Golden_LongBindFlipped_Test_bindFlipped(M.Golden_LongBindFlipped_Test_inc)(M.Golden_LongBindFlipped_Test_bindFlipped(M.Golden_LongBindFlipped_Test_inc)(M.Golden_LongBindFlipped_Test_bindFlipped(M.Golden_LongBindFlipped_Test_inc)(M.Golden_LongBindFlipped_Test_bindFlipped(M.Golden_LongBindFlipped_Test_inc)(M.Golden_LongBindFlipped_Test_bindFlipped(M.Golden_LongBindFlipped_Test_inc)(M.Golden_LongBindFlipped_Test_bindFlipped(M.Golden_LongBindFlipped_Test_inc)(M.Golden_LongBindFlipped_Test_bindFlipped(M.Golden_LongBindFlipped_Test_inc)(M.Golden_LongBindFlipped_Test_bindFlipped(M.Golden_LongBindFlipped_Test_inc)(M.Golden_LongBindFlipped_Test_bindFlipped(M.Golden_LongBindFlipped_Test_inc)(M.Golden_LongBindFlipped_Test_bindFlipped(M.Golden_LongBindFlipped_Test_inc)(_S_tmp284)))))))))))))))))))))))))))))))))))))))) - local _S_tmp286 = M.Golden_LongBindFlipped_Test_bindFlipped(M.Golden_LongBindFlipped_Test_inc)(M.Golden_LongBindFlipped_Test_bindFlipped(M.Golden_LongBindFlipped_Test_inc)(M.Golden_LongBindFlipped_Test_bindFlipped(M.Golden_LongBindFlipped_Test_inc)(M.Golden_LongBindFlipped_Test_bindFlipped(M.Golden_LongBindFlipped_Test_inc)(M.Golden_LongBindFlipped_Test_bindFlipped(M.Golden_LongBindFlipped_Test_inc)(M.Golden_LongBindFlipped_Test_bindFlipped(M.Golden_LongBindFlipped_Test_inc)(M.Golden_LongBindFlipped_Test_bindFlipped(M.Golden_LongBindFlipped_Test_inc)(M.Golden_LongBindFlipped_Test_bindFlipped(M.Golden_LongBindFlipped_Test_inc)(M.Golden_LongBindFlipped_Test_bindFlipped(M.Golden_LongBindFlipped_Test_inc)(M.Golden_LongBindFlipped_Test_bindFlipped(M.Golden_LongBindFlipped_Test_inc)(M.Golden_LongBindFlipped_Test_bindFlipped(M.Golden_LongBindFlipped_Test_inc)(M.Golden_LongBindFlipped_Test_bindFlipped(M.Golden_LongBindFlipped_Test_inc)(M.Golden_LongBindFlipped_Test_bindFlipped(M.Golden_LongBindFlipped_Test_inc)(M.Golden_LongBindFlipped_Test_bindFlipped(M.Golden_LongBindFlipped_Test_inc)(M.Golden_LongBindFlipped_Test_bindFlipped(M.Golden_LongBindFlipped_Test_inc)(M.Golden_LongBindFlipped_Test_bindFlipped(M.Golden_LongBindFlipped_Test_inc)(M.Golden_LongBindFlipped_Test_bindFlipped(M.Golden_LongBindFlipped_Test_inc)(M.Golden_LongBindFlipped_Test_bindFlipped(M.Golden_LongBindFlipped_Test_inc)(M.Golden_LongBindFlipped_Test_bindFlipped(M.Golden_LongBindFlipped_Test_inc)(M.Golden_LongBindFlipped_Test_bindFlipped(M.Golden_LongBindFlipped_Test_inc)(M.Golden_LongBindFlipped_Test_bindFlipped(M.Golden_LongBindFlipped_Test_inc)(M.Golden_LongBindFlipped_Test_bindFlipped(M.Golden_LongBindFlipped_Test_inc)(M.Golden_LongBindFlipped_Test_bindFlipped(M.Golden_LongBindFlipped_Test_inc)(M.Golden_LongBindFlipped_Test_bindFlipped(M.Golden_LongBindFlipped_Test_inc)(M.Golden_LongBindFlipped_Test_bindFlipped(M.Golden_LongBindFlipped_Test_inc)(M.Golden_LongBindFlipped_Test_bindFlipped(M.Golden_LongBindFlipped_Test_inc)(M.Golden_LongBindFlipped_Test_bindFlipped(M.Golden_LongBindFlipped_Test_inc)(M.Golden_LongBindFlipped_Test_bindFlipped(M.Golden_LongBindFlipped_Test_inc)(M.Golden_LongBindFlipped_Test_bindFlipped(M.Golden_LongBindFlipped_Test_inc)(M.Golden_LongBindFlipped_Test_bindFlipped(M.Golden_LongBindFlipped_Test_inc)(M.Golden_LongBindFlipped_Test_bindFlipped(M.Golden_LongBindFlipped_Test_inc)(M.Golden_LongBindFlipped_Test_bindFlipped(M.Golden_LongBindFlipped_Test_inc)(M.Golden_LongBindFlipped_Test_bindFlipped(M.Golden_LongBindFlipped_Test_inc)(M.Golden_LongBindFlipped_Test_bindFlipped(M.Golden_LongBindFlipped_Test_inc)(M.Golden_LongBindFlipped_Test_bindFlipped(M.Golden_LongBindFlipped_Test_inc)(M.Golden_LongBindFlipped_Test_bindFlipped(M.Golden_LongBindFlipped_Test_inc)(M.Golden_LongBindFlipped_Test_bindFlipped(M.Golden_LongBindFlipped_Test_inc)(M.Golden_LongBindFlipped_Test_bindFlipped(M.Golden_LongBindFlipped_Test_inc)(M.Golden_LongBindFlipped_Test_bindFlipped(M.Golden_LongBindFlipped_Test_inc)(M.Golden_LongBindFlipped_Test_bindFlipped(M.Golden_LongBindFlipped_Test_inc)(_S_tmp285)))))))))))))))))))))))))))))))))))))))) - local _S_tmp287 = M.Golden_LongBindFlipped_Test_bindFlipped(M.Golden_LongBindFlipped_Test_inc)(M.Golden_LongBindFlipped_Test_bindFlipped(M.Golden_LongBindFlipped_Test_inc)(M.Golden_LongBindFlipped_Test_bindFlipped(M.Golden_LongBindFlipped_Test_inc)(M.Golden_LongBindFlipped_Test_bindFlipped(M.Golden_LongBindFlipped_Test_inc)(M.Golden_LongBindFlipped_Test_bindFlipped(M.Golden_LongBindFlipped_Test_inc)(M.Golden_LongBindFlipped_Test_bindFlipped(M.Golden_LongBindFlipped_Test_inc)(M.Golden_LongBindFlipped_Test_bindFlipped(M.Golden_LongBindFlipped_Test_inc)(M.Golden_LongBindFlipped_Test_bindFlipped(M.Golden_LongBindFlipped_Test_inc)(M.Golden_LongBindFlipped_Test_bindFlipped(M.Golden_LongBindFlipped_Test_inc)(M.Golden_LongBindFlipped_Test_bindFlipped(M.Golden_LongBindFlipped_Test_inc)(M.Golden_LongBindFlipped_Test_bindFlipped(M.Golden_LongBindFlipped_Test_inc)(M.Golden_LongBindFlipped_Test_bindFlipped(M.Golden_LongBindFlipped_Test_inc)(M.Golden_LongBindFlipped_Test_bindFlipped(M.Golden_LongBindFlipped_Test_inc)(M.Golden_LongBindFlipped_Test_bindFlipped(M.Golden_LongBindFlipped_Test_inc)(M.Golden_LongBindFlipped_Test_bindFlipped(M.Golden_LongBindFlipped_Test_inc)(M.Golden_LongBindFlipped_Test_bindFlipped(M.Golden_LongBindFlipped_Test_inc)(M.Golden_LongBindFlipped_Test_bindFlipped(M.Golden_LongBindFlipped_Test_inc)(M.Golden_LongBindFlipped_Test_bindFlipped(M.Golden_LongBindFlipped_Test_inc)(M.Golden_LongBindFlipped_Test_bindFlipped(M.Golden_LongBindFlipped_Test_inc)(M.Golden_LongBindFlipped_Test_bindFlipped(M.Golden_LongBindFlipped_Test_inc)(M.Golden_LongBindFlipped_Test_bindFlipped(M.Golden_LongBindFlipped_Test_inc)(M.Golden_LongBindFlipped_Test_bindFlipped(M.Golden_LongBindFlipped_Test_inc)(M.Golden_LongBindFlipped_Test_bindFlipped(M.Golden_LongBindFlipped_Test_inc)(M.Golden_LongBindFlipped_Test_bindFlipped(M.Golden_LongBindFlipped_Test_inc)(M.Golden_LongBindFlipped_Test_bindFlipped(M.Golden_LongBindFlipped_Test_inc)(M.Golden_LongBindFlipped_Test_bindFlipped(M.Golden_LongBindFlipped_Test_inc)(M.Golden_LongBindFlipped_Test_bindFlipped(M.Golden_LongBindFlipped_Test_inc)(M.Golden_LongBindFlipped_Test_bindFlipped(M.Golden_LongBindFlipped_Test_inc)(M.Golden_LongBindFlipped_Test_bindFlipped(M.Golden_LongBindFlipped_Test_inc)(M.Golden_LongBindFlipped_Test_bindFlipped(M.Golden_LongBindFlipped_Test_inc)(M.Golden_LongBindFlipped_Test_bindFlipped(M.Golden_LongBindFlipped_Test_inc)(M.Golden_LongBindFlipped_Test_bindFlipped(M.Golden_LongBindFlipped_Test_inc)(M.Golden_LongBindFlipped_Test_bindFlipped(M.Golden_LongBindFlipped_Test_inc)(M.Golden_LongBindFlipped_Test_bindFlipped(M.Golden_LongBindFlipped_Test_inc)(M.Golden_LongBindFlipped_Test_bindFlipped(M.Golden_LongBindFlipped_Test_inc)(M.Golden_LongBindFlipped_Test_bindFlipped(M.Golden_LongBindFlipped_Test_inc)(M.Golden_LongBindFlipped_Test_bindFlipped(M.Golden_LongBindFlipped_Test_inc)(M.Golden_LongBindFlipped_Test_bindFlipped(M.Golden_LongBindFlipped_Test_inc)(M.Golden_LongBindFlipped_Test_bindFlipped(M.Golden_LongBindFlipped_Test_inc)(M.Golden_LongBindFlipped_Test_bindFlipped(M.Golden_LongBindFlipped_Test_inc)(_S_tmp286)))))))))))))))))))))))))))))))))))))))) - local _S_tmp288 = M.Golden_LongBindFlipped_Test_bindFlipped(M.Golden_LongBindFlipped_Test_inc)(M.Golden_LongBindFlipped_Test_bindFlipped(M.Golden_LongBindFlipped_Test_inc)(M.Golden_LongBindFlipped_Test_bindFlipped(M.Golden_LongBindFlipped_Test_inc)(M.Golden_LongBindFlipped_Test_bindFlipped(M.Golden_LongBindFlipped_Test_inc)(M.Golden_LongBindFlipped_Test_bindFlipped(M.Golden_LongBindFlipped_Test_inc)(M.Golden_LongBindFlipped_Test_bindFlipped(M.Golden_LongBindFlipped_Test_inc)(M.Golden_LongBindFlipped_Test_bindFlipped(M.Golden_LongBindFlipped_Test_inc)(M.Golden_LongBindFlipped_Test_bindFlipped(M.Golden_LongBindFlipped_Test_inc)(M.Golden_LongBindFlipped_Test_bindFlipped(M.Golden_LongBindFlipped_Test_inc)(M.Golden_LongBindFlipped_Test_bindFlipped(M.Golden_LongBindFlipped_Test_inc)(M.Golden_LongBindFlipped_Test_bindFlipped(M.Golden_LongBindFlipped_Test_inc)(M.Golden_LongBindFlipped_Test_bindFlipped(M.Golden_LongBindFlipped_Test_inc)(M.Golden_LongBindFlipped_Test_bindFlipped(M.Golden_LongBindFlipped_Test_inc)(M.Golden_LongBindFlipped_Test_bindFlipped(M.Golden_LongBindFlipped_Test_inc)(M.Golden_LongBindFlipped_Test_bindFlipped(M.Golden_LongBindFlipped_Test_inc)(M.Golden_LongBindFlipped_Test_bindFlipped(M.Golden_LongBindFlipped_Test_inc)(M.Golden_LongBindFlipped_Test_bindFlipped(M.Golden_LongBindFlipped_Test_inc)(M.Golden_LongBindFlipped_Test_bindFlipped(M.Golden_LongBindFlipped_Test_inc)(M.Golden_LongBindFlipped_Test_bindFlipped(M.Golden_LongBindFlipped_Test_inc)(M.Golden_LongBindFlipped_Test_bindFlipped(M.Golden_LongBindFlipped_Test_inc)(M.Golden_LongBindFlipped_Test_bindFlipped(M.Golden_LongBindFlipped_Test_inc)(M.Golden_LongBindFlipped_Test_bindFlipped(M.Golden_LongBindFlipped_Test_inc)(M.Golden_LongBindFlipped_Test_bindFlipped(M.Golden_LongBindFlipped_Test_inc)(M.Golden_LongBindFlipped_Test_bindFlipped(M.Golden_LongBindFlipped_Test_inc)(M.Golden_LongBindFlipped_Test_bindFlipped(M.Golden_LongBindFlipped_Test_inc)(M.Golden_LongBindFlipped_Test_bindFlipped(M.Golden_LongBindFlipped_Test_inc)(M.Golden_LongBindFlipped_Test_bindFlipped(M.Golden_LongBindFlipped_Test_inc)(M.Golden_LongBindFlipped_Test_bindFlipped(M.Golden_LongBindFlipped_Test_inc)(M.Golden_LongBindFlipped_Test_bindFlipped(M.Golden_LongBindFlipped_Test_inc)(M.Golden_LongBindFlipped_Test_bindFlipped(M.Golden_LongBindFlipped_Test_inc)(M.Golden_LongBindFlipped_Test_bindFlipped(M.Golden_LongBindFlipped_Test_inc)(M.Golden_LongBindFlipped_Test_bindFlipped(M.Golden_LongBindFlipped_Test_inc)(M.Golden_LongBindFlipped_Test_bindFlipped(M.Golden_LongBindFlipped_Test_inc)(M.Golden_LongBindFlipped_Test_bindFlipped(M.Golden_LongBindFlipped_Test_inc)(M.Golden_LongBindFlipped_Test_bindFlipped(M.Golden_LongBindFlipped_Test_inc)(M.Golden_LongBindFlipped_Test_bindFlipped(M.Golden_LongBindFlipped_Test_inc)(M.Golden_LongBindFlipped_Test_bindFlipped(M.Golden_LongBindFlipped_Test_inc)(M.Golden_LongBindFlipped_Test_bindFlipped(M.Golden_LongBindFlipped_Test_inc)(M.Golden_LongBindFlipped_Test_bindFlipped(M.Golden_LongBindFlipped_Test_inc)(M.Golden_LongBindFlipped_Test_bindFlipped(M.Golden_LongBindFlipped_Test_inc)(_S_tmp287)))))))))))))))))))))))))))))))))))))))) - local _S_tmp289 = M.Golden_LongBindFlipped_Test_bindFlipped(M.Golden_LongBindFlipped_Test_inc)(M.Golden_LongBindFlipped_Test_bindFlipped(M.Golden_LongBindFlipped_Test_inc)(M.Golden_LongBindFlipped_Test_bindFlipped(M.Golden_LongBindFlipped_Test_inc)(M.Golden_LongBindFlipped_Test_bindFlipped(M.Golden_LongBindFlipped_Test_inc)(M.Golden_LongBindFlipped_Test_bindFlipped(M.Golden_LongBindFlipped_Test_inc)(M.Golden_LongBindFlipped_Test_bindFlipped(M.Golden_LongBindFlipped_Test_inc)(M.Golden_LongBindFlipped_Test_bindFlipped(M.Golden_LongBindFlipped_Test_inc)(M.Golden_LongBindFlipped_Test_bindFlipped(M.Golden_LongBindFlipped_Test_inc)(M.Golden_LongBindFlipped_Test_bindFlipped(M.Golden_LongBindFlipped_Test_inc)(M.Golden_LongBindFlipped_Test_bindFlipped(M.Golden_LongBindFlipped_Test_inc)(M.Golden_LongBindFlipped_Test_bindFlipped(M.Golden_LongBindFlipped_Test_inc)(M.Golden_LongBindFlipped_Test_bindFlipped(M.Golden_LongBindFlipped_Test_inc)(M.Golden_LongBindFlipped_Test_bindFlipped(M.Golden_LongBindFlipped_Test_inc)(M.Golden_LongBindFlipped_Test_bindFlipped(M.Golden_LongBindFlipped_Test_inc)(M.Golden_LongBindFlipped_Test_bindFlipped(M.Golden_LongBindFlipped_Test_inc)(M.Golden_LongBindFlipped_Test_bindFlipped(M.Golden_LongBindFlipped_Test_inc)(M.Golden_LongBindFlipped_Test_bindFlipped(M.Golden_LongBindFlipped_Test_inc)(M.Golden_LongBindFlipped_Test_bindFlipped(M.Golden_LongBindFlipped_Test_inc)(M.Golden_LongBindFlipped_Test_bindFlipped(M.Golden_LongBindFlipped_Test_inc)(M.Golden_LongBindFlipped_Test_bindFlipped(M.Golden_LongBindFlipped_Test_inc)(M.Golden_LongBindFlipped_Test_bindFlipped(M.Golden_LongBindFlipped_Test_inc)(M.Golden_LongBindFlipped_Test_bindFlipped(M.Golden_LongBindFlipped_Test_inc)(M.Golden_LongBindFlipped_Test_bindFlipped(M.Golden_LongBindFlipped_Test_inc)(M.Golden_LongBindFlipped_Test_bindFlipped(M.Golden_LongBindFlipped_Test_inc)(M.Golden_LongBindFlipped_Test_bindFlipped(M.Golden_LongBindFlipped_Test_inc)(M.Golden_LongBindFlipped_Test_bindFlipped(M.Golden_LongBindFlipped_Test_inc)(M.Golden_LongBindFlipped_Test_bindFlipped(M.Golden_LongBindFlipped_Test_inc)(M.Golden_LongBindFlipped_Test_bindFlipped(M.Golden_LongBindFlipped_Test_inc)(M.Golden_LongBindFlipped_Test_bindFlipped(M.Golden_LongBindFlipped_Test_inc)(M.Golden_LongBindFlipped_Test_bindFlipped(M.Golden_LongBindFlipped_Test_inc)(M.Golden_LongBindFlipped_Test_bindFlipped(M.Golden_LongBindFlipped_Test_inc)(M.Golden_LongBindFlipped_Test_bindFlipped(M.Golden_LongBindFlipped_Test_inc)(M.Golden_LongBindFlipped_Test_bindFlipped(M.Golden_LongBindFlipped_Test_inc)(M.Golden_LongBindFlipped_Test_bindFlipped(M.Golden_LongBindFlipped_Test_inc)(M.Golden_LongBindFlipped_Test_bindFlipped(M.Golden_LongBindFlipped_Test_inc)(M.Golden_LongBindFlipped_Test_bindFlipped(M.Golden_LongBindFlipped_Test_inc)(M.Golden_LongBindFlipped_Test_bindFlipped(M.Golden_LongBindFlipped_Test_inc)(M.Golden_LongBindFlipped_Test_bindFlipped(M.Golden_LongBindFlipped_Test_inc)(M.Golden_LongBindFlipped_Test_bindFlipped(M.Golden_LongBindFlipped_Test_inc)(M.Golden_LongBindFlipped_Test_bindFlipped(M.Golden_LongBindFlipped_Test_inc)(_S_tmp288)))))))))))))))))))))))))))))))))))))))) - return M.Golden_LongBindFlipped_Test_bindFlipped(M.Golden_LongBindFlipped_Test_inc)(M.Golden_LongBindFlipped_Test_bindFlipped(M.Golden_LongBindFlipped_Test_inc)(M.Golden_LongBindFlipped_Test_bindFlipped(M.Golden_LongBindFlipped_Test_inc)(M.Golden_LongBindFlipped_Test_bindFlipped(M.Golden_LongBindFlipped_Test_inc)(M.Golden_LongBindFlipped_Test_bindFlipped(M.Golden_LongBindFlipped_Test_inc)(M.Golden_LongBindFlipped_Test_bindFlipped(M.Golden_LongBindFlipped_Test_inc)(M.Golden_LongBindFlipped_Test_bindFlipped(M.Golden_LongBindFlipped_Test_inc)(M.Golden_LongBindFlipped_Test_bindFlipped(M.Golden_LongBindFlipped_Test_inc)(M.Golden_LongBindFlipped_Test_bindFlipped(M.Golden_LongBindFlipped_Test_inc)(M.Golden_LongBindFlipped_Test_bindFlipped(M.Golden_LongBindFlipped_Test_inc)(M.Golden_LongBindFlipped_Test_bindFlipped(M.Golden_LongBindFlipped_Test_inc)(M.Golden_LongBindFlipped_Test_bindFlipped(M.Golden_LongBindFlipped_Test_inc)(M.Golden_LongBindFlipped_Test_bindFlipped(M.Golden_LongBindFlipped_Test_inc)(M.Golden_LongBindFlipped_Test_bindFlipped(M.Golden_LongBindFlipped_Test_inc)(M.Golden_LongBindFlipped_Test_bindFlipped(M.Golden_LongBindFlipped_Test_inc)(M.Golden_LongBindFlipped_Test_bindFlipped(M.Golden_LongBindFlipped_Test_inc)(M.Golden_LongBindFlipped_Test_bindFlipped(M.Golden_LongBindFlipped_Test_inc)(M.Golden_LongBindFlipped_Test_bindFlipped(M.Golden_LongBindFlipped_Test_inc)(M.Golden_LongBindFlipped_Test_bindFlipped(M.Golden_LongBindFlipped_Test_inc)(M.Golden_LongBindFlipped_Test_bindFlipped(M.Golden_LongBindFlipped_Test_inc)(M.Golden_LongBindFlipped_Test_bindFlipped(M.Golden_LongBindFlipped_Test_inc)(_S_tmp289))))))))))))))))))))) + local _S_tmp283 = M.Golden_LongBindFlipped_Test_bindFlipped_S_w(M.Golden_LongBindFlipped_Test_inc, M.Golden_LongBindFlipped_Test_bindFlipped_S_w(M.Golden_LongBindFlipped_Test_inc, M.Golden_LongBindFlipped_Test_bindFlipped_S_w(M.Golden_LongBindFlipped_Test_inc, M.Golden_LongBindFlipped_Test_bindFlipped_S_w(M.Golden_LongBindFlipped_Test_inc, M.Golden_LongBindFlipped_Test_bindFlipped_S_w(M.Golden_LongBindFlipped_Test_inc, M.Golden_LongBindFlipped_Test_bindFlipped_S_w(M.Golden_LongBindFlipped_Test_inc, M.Golden_LongBindFlipped_Test_bindFlipped_S_w(M.Golden_LongBindFlipped_Test_inc, M.Golden_LongBindFlipped_Test_bindFlipped_S_w(M.Golden_LongBindFlipped_Test_inc, M.Golden_LongBindFlipped_Test_bindFlipped_S_w(M.Golden_LongBindFlipped_Test_inc, M.Golden_LongBindFlipped_Test_bindFlipped_S_w(M.Golden_LongBindFlipped_Test_inc, M.Golden_LongBindFlipped_Test_bindFlipped_S_w(M.Golden_LongBindFlipped_Test_inc, M.Golden_LongBindFlipped_Test_bindFlipped_S_w(M.Golden_LongBindFlipped_Test_inc, M.Golden_LongBindFlipped_Test_bindFlipped_S_w(M.Golden_LongBindFlipped_Test_inc, M.Golden_LongBindFlipped_Test_bindFlipped_S_w(M.Golden_LongBindFlipped_Test_inc, M.Golden_LongBindFlipped_Test_bindFlipped_S_w(M.Golden_LongBindFlipped_Test_inc, M.Golden_LongBindFlipped_Test_bindFlipped_S_w(M.Golden_LongBindFlipped_Test_inc, M.Golden_LongBindFlipped_Test_bindFlipped_S_w(M.Golden_LongBindFlipped_Test_inc, M.Golden_LongBindFlipped_Test_bindFlipped_S_w(M.Golden_LongBindFlipped_Test_inc, M.Golden_LongBindFlipped_Test_bindFlipped_S_w(M.Golden_LongBindFlipped_Test_inc, M.Golden_LongBindFlipped_Test_bindFlipped_S_w(M.Golden_LongBindFlipped_Test_inc, M.Golden_LongBindFlipped_Test_bindFlipped_S_w(M.Golden_LongBindFlipped_Test_inc, M.Golden_LongBindFlipped_Test_bindFlipped_S_w(M.Golden_LongBindFlipped_Test_inc, M.Golden_LongBindFlipped_Test_bindFlipped_S_w(M.Golden_LongBindFlipped_Test_inc, M.Golden_LongBindFlipped_Test_bindFlipped_S_w(M.Golden_LongBindFlipped_Test_inc, M.Golden_LongBindFlipped_Test_bindFlipped_S_w(M.Golden_LongBindFlipped_Test_inc, M.Golden_LongBindFlipped_Test_bindFlipped_S_w(M.Golden_LongBindFlipped_Test_inc, M.Golden_LongBindFlipped_Test_bindFlipped_S_w(M.Golden_LongBindFlipped_Test_inc, M.Golden_LongBindFlipped_Test_bindFlipped_S_w(M.Golden_LongBindFlipped_Test_inc, M.Golden_LongBindFlipped_Test_bindFlipped_S_w(M.Golden_LongBindFlipped_Test_inc, M.Golden_LongBindFlipped_Test_bindFlipped_S_w(M.Golden_LongBindFlipped_Test_inc, M.Golden_LongBindFlipped_Test_bindFlipped_S_w(M.Golden_LongBindFlipped_Test_inc, M.Golden_LongBindFlipped_Test_bindFlipped_S_w(M.Golden_LongBindFlipped_Test_inc, M.Golden_LongBindFlipped_Test_bindFlipped_S_w(M.Golden_LongBindFlipped_Test_inc, M.Golden_LongBindFlipped_Test_bindFlipped_S_w(M.Golden_LongBindFlipped_Test_inc, M.Golden_LongBindFlipped_Test_bindFlipped_S_w(M.Golden_LongBindFlipped_Test_inc, M.Golden_LongBindFlipped_Test_bindFlipped_S_w(M.Golden_LongBindFlipped_Test_inc, M.Golden_LongBindFlipped_Test_bindFlipped_S_w(M.Golden_LongBindFlipped_Test_inc, M.Golden_LongBindFlipped_Test_bindFlipped_S_w(M.Golden_LongBindFlipped_Test_inc, M.Golden_LongBindFlipped_Test_bindFlipped_S_w(M.Golden_LongBindFlipped_Test_inc, M.Data_Maybe_Just(1)))))))))))))))))))))))))))))))))))))))) + local _S_tmp284 = M.Golden_LongBindFlipped_Test_bindFlipped_S_w(M.Golden_LongBindFlipped_Test_inc, M.Golden_LongBindFlipped_Test_bindFlipped_S_w(M.Golden_LongBindFlipped_Test_inc, M.Golden_LongBindFlipped_Test_bindFlipped_S_w(M.Golden_LongBindFlipped_Test_inc, M.Golden_LongBindFlipped_Test_bindFlipped_S_w(M.Golden_LongBindFlipped_Test_inc, M.Golden_LongBindFlipped_Test_bindFlipped_S_w(M.Golden_LongBindFlipped_Test_inc, M.Golden_LongBindFlipped_Test_bindFlipped_S_w(M.Golden_LongBindFlipped_Test_inc, M.Golden_LongBindFlipped_Test_bindFlipped_S_w(M.Golden_LongBindFlipped_Test_inc, M.Golden_LongBindFlipped_Test_bindFlipped_S_w(M.Golden_LongBindFlipped_Test_inc, M.Golden_LongBindFlipped_Test_bindFlipped_S_w(M.Golden_LongBindFlipped_Test_inc, M.Golden_LongBindFlipped_Test_bindFlipped_S_w(M.Golden_LongBindFlipped_Test_inc, M.Golden_LongBindFlipped_Test_bindFlipped_S_w(M.Golden_LongBindFlipped_Test_inc, M.Golden_LongBindFlipped_Test_bindFlipped_S_w(M.Golden_LongBindFlipped_Test_inc, M.Golden_LongBindFlipped_Test_bindFlipped_S_w(M.Golden_LongBindFlipped_Test_inc, M.Golden_LongBindFlipped_Test_bindFlipped_S_w(M.Golden_LongBindFlipped_Test_inc, M.Golden_LongBindFlipped_Test_bindFlipped_S_w(M.Golden_LongBindFlipped_Test_inc, M.Golden_LongBindFlipped_Test_bindFlipped_S_w(M.Golden_LongBindFlipped_Test_inc, M.Golden_LongBindFlipped_Test_bindFlipped_S_w(M.Golden_LongBindFlipped_Test_inc, M.Golden_LongBindFlipped_Test_bindFlipped_S_w(M.Golden_LongBindFlipped_Test_inc, M.Golden_LongBindFlipped_Test_bindFlipped_S_w(M.Golden_LongBindFlipped_Test_inc, M.Golden_LongBindFlipped_Test_bindFlipped_S_w(M.Golden_LongBindFlipped_Test_inc, M.Golden_LongBindFlipped_Test_bindFlipped_S_w(M.Golden_LongBindFlipped_Test_inc, M.Golden_LongBindFlipped_Test_bindFlipped_S_w(M.Golden_LongBindFlipped_Test_inc, M.Golden_LongBindFlipped_Test_bindFlipped_S_w(M.Golden_LongBindFlipped_Test_inc, M.Golden_LongBindFlipped_Test_bindFlipped_S_w(M.Golden_LongBindFlipped_Test_inc, M.Golden_LongBindFlipped_Test_bindFlipped_S_w(M.Golden_LongBindFlipped_Test_inc, M.Golden_LongBindFlipped_Test_bindFlipped_S_w(M.Golden_LongBindFlipped_Test_inc, M.Golden_LongBindFlipped_Test_bindFlipped_S_w(M.Golden_LongBindFlipped_Test_inc, M.Golden_LongBindFlipped_Test_bindFlipped_S_w(M.Golden_LongBindFlipped_Test_inc, M.Golden_LongBindFlipped_Test_bindFlipped_S_w(M.Golden_LongBindFlipped_Test_inc, M.Golden_LongBindFlipped_Test_bindFlipped_S_w(M.Golden_LongBindFlipped_Test_inc, M.Golden_LongBindFlipped_Test_bindFlipped_S_w(M.Golden_LongBindFlipped_Test_inc, M.Golden_LongBindFlipped_Test_bindFlipped_S_w(M.Golden_LongBindFlipped_Test_inc, M.Golden_LongBindFlipped_Test_bindFlipped_S_w(M.Golden_LongBindFlipped_Test_inc, M.Golden_LongBindFlipped_Test_bindFlipped_S_w(M.Golden_LongBindFlipped_Test_inc, M.Golden_LongBindFlipped_Test_bindFlipped_S_w(M.Golden_LongBindFlipped_Test_inc, M.Golden_LongBindFlipped_Test_bindFlipped_S_w(M.Golden_LongBindFlipped_Test_inc, M.Golden_LongBindFlipped_Test_bindFlipped_S_w(M.Golden_LongBindFlipped_Test_inc, M.Golden_LongBindFlipped_Test_bindFlipped_S_w(M.Golden_LongBindFlipped_Test_inc, M.Golden_LongBindFlipped_Test_bindFlipped_S_w(M.Golden_LongBindFlipped_Test_inc, M.Golden_LongBindFlipped_Test_bindFlipped_S_w(M.Golden_LongBindFlipped_Test_inc, _S_tmp283)))))))))))))))))))))))))))))))))))))))) + local _S_tmp285 = M.Golden_LongBindFlipped_Test_bindFlipped_S_w(M.Golden_LongBindFlipped_Test_inc, M.Golden_LongBindFlipped_Test_bindFlipped_S_w(M.Golden_LongBindFlipped_Test_inc, M.Golden_LongBindFlipped_Test_bindFlipped_S_w(M.Golden_LongBindFlipped_Test_inc, M.Golden_LongBindFlipped_Test_bindFlipped_S_w(M.Golden_LongBindFlipped_Test_inc, M.Golden_LongBindFlipped_Test_bindFlipped_S_w(M.Golden_LongBindFlipped_Test_inc, M.Golden_LongBindFlipped_Test_bindFlipped_S_w(M.Golden_LongBindFlipped_Test_inc, M.Golden_LongBindFlipped_Test_bindFlipped_S_w(M.Golden_LongBindFlipped_Test_inc, M.Golden_LongBindFlipped_Test_bindFlipped_S_w(M.Golden_LongBindFlipped_Test_inc, M.Golden_LongBindFlipped_Test_bindFlipped_S_w(M.Golden_LongBindFlipped_Test_inc, M.Golden_LongBindFlipped_Test_bindFlipped_S_w(M.Golden_LongBindFlipped_Test_inc, M.Golden_LongBindFlipped_Test_bindFlipped_S_w(M.Golden_LongBindFlipped_Test_inc, M.Golden_LongBindFlipped_Test_bindFlipped_S_w(M.Golden_LongBindFlipped_Test_inc, M.Golden_LongBindFlipped_Test_bindFlipped_S_w(M.Golden_LongBindFlipped_Test_inc, M.Golden_LongBindFlipped_Test_bindFlipped_S_w(M.Golden_LongBindFlipped_Test_inc, M.Golden_LongBindFlipped_Test_bindFlipped_S_w(M.Golden_LongBindFlipped_Test_inc, M.Golden_LongBindFlipped_Test_bindFlipped_S_w(M.Golden_LongBindFlipped_Test_inc, M.Golden_LongBindFlipped_Test_bindFlipped_S_w(M.Golden_LongBindFlipped_Test_inc, M.Golden_LongBindFlipped_Test_bindFlipped_S_w(M.Golden_LongBindFlipped_Test_inc, M.Golden_LongBindFlipped_Test_bindFlipped_S_w(M.Golden_LongBindFlipped_Test_inc, M.Golden_LongBindFlipped_Test_bindFlipped_S_w(M.Golden_LongBindFlipped_Test_inc, M.Golden_LongBindFlipped_Test_bindFlipped_S_w(M.Golden_LongBindFlipped_Test_inc, M.Golden_LongBindFlipped_Test_bindFlipped_S_w(M.Golden_LongBindFlipped_Test_inc, M.Golden_LongBindFlipped_Test_bindFlipped_S_w(M.Golden_LongBindFlipped_Test_inc, M.Golden_LongBindFlipped_Test_bindFlipped_S_w(M.Golden_LongBindFlipped_Test_inc, M.Golden_LongBindFlipped_Test_bindFlipped_S_w(M.Golden_LongBindFlipped_Test_inc, M.Golden_LongBindFlipped_Test_bindFlipped_S_w(M.Golden_LongBindFlipped_Test_inc, M.Golden_LongBindFlipped_Test_bindFlipped_S_w(M.Golden_LongBindFlipped_Test_inc, M.Golden_LongBindFlipped_Test_bindFlipped_S_w(M.Golden_LongBindFlipped_Test_inc, M.Golden_LongBindFlipped_Test_bindFlipped_S_w(M.Golden_LongBindFlipped_Test_inc, M.Golden_LongBindFlipped_Test_bindFlipped_S_w(M.Golden_LongBindFlipped_Test_inc, M.Golden_LongBindFlipped_Test_bindFlipped_S_w(M.Golden_LongBindFlipped_Test_inc, M.Golden_LongBindFlipped_Test_bindFlipped_S_w(M.Golden_LongBindFlipped_Test_inc, M.Golden_LongBindFlipped_Test_bindFlipped_S_w(M.Golden_LongBindFlipped_Test_inc, M.Golden_LongBindFlipped_Test_bindFlipped_S_w(M.Golden_LongBindFlipped_Test_inc, M.Golden_LongBindFlipped_Test_bindFlipped_S_w(M.Golden_LongBindFlipped_Test_inc, M.Golden_LongBindFlipped_Test_bindFlipped_S_w(M.Golden_LongBindFlipped_Test_inc, M.Golden_LongBindFlipped_Test_bindFlipped_S_w(M.Golden_LongBindFlipped_Test_inc, M.Golden_LongBindFlipped_Test_bindFlipped_S_w(M.Golden_LongBindFlipped_Test_inc, M.Golden_LongBindFlipped_Test_bindFlipped_S_w(M.Golden_LongBindFlipped_Test_inc, M.Golden_LongBindFlipped_Test_bindFlipped_S_w(M.Golden_LongBindFlipped_Test_inc, _S_tmp284)))))))))))))))))))))))))))))))))))))))) + local _S_tmp286 = M.Golden_LongBindFlipped_Test_bindFlipped_S_w(M.Golden_LongBindFlipped_Test_inc, M.Golden_LongBindFlipped_Test_bindFlipped_S_w(M.Golden_LongBindFlipped_Test_inc, M.Golden_LongBindFlipped_Test_bindFlipped_S_w(M.Golden_LongBindFlipped_Test_inc, M.Golden_LongBindFlipped_Test_bindFlipped_S_w(M.Golden_LongBindFlipped_Test_inc, M.Golden_LongBindFlipped_Test_bindFlipped_S_w(M.Golden_LongBindFlipped_Test_inc, M.Golden_LongBindFlipped_Test_bindFlipped_S_w(M.Golden_LongBindFlipped_Test_inc, M.Golden_LongBindFlipped_Test_bindFlipped_S_w(M.Golden_LongBindFlipped_Test_inc, M.Golden_LongBindFlipped_Test_bindFlipped_S_w(M.Golden_LongBindFlipped_Test_inc, M.Golden_LongBindFlipped_Test_bindFlipped_S_w(M.Golden_LongBindFlipped_Test_inc, M.Golden_LongBindFlipped_Test_bindFlipped_S_w(M.Golden_LongBindFlipped_Test_inc, M.Golden_LongBindFlipped_Test_bindFlipped_S_w(M.Golden_LongBindFlipped_Test_inc, M.Golden_LongBindFlipped_Test_bindFlipped_S_w(M.Golden_LongBindFlipped_Test_inc, M.Golden_LongBindFlipped_Test_bindFlipped_S_w(M.Golden_LongBindFlipped_Test_inc, M.Golden_LongBindFlipped_Test_bindFlipped_S_w(M.Golden_LongBindFlipped_Test_inc, M.Golden_LongBindFlipped_Test_bindFlipped_S_w(M.Golden_LongBindFlipped_Test_inc, M.Golden_LongBindFlipped_Test_bindFlipped_S_w(M.Golden_LongBindFlipped_Test_inc, M.Golden_LongBindFlipped_Test_bindFlipped_S_w(M.Golden_LongBindFlipped_Test_inc, M.Golden_LongBindFlipped_Test_bindFlipped_S_w(M.Golden_LongBindFlipped_Test_inc, M.Golden_LongBindFlipped_Test_bindFlipped_S_w(M.Golden_LongBindFlipped_Test_inc, M.Golden_LongBindFlipped_Test_bindFlipped_S_w(M.Golden_LongBindFlipped_Test_inc, M.Golden_LongBindFlipped_Test_bindFlipped_S_w(M.Golden_LongBindFlipped_Test_inc, M.Golden_LongBindFlipped_Test_bindFlipped_S_w(M.Golden_LongBindFlipped_Test_inc, M.Golden_LongBindFlipped_Test_bindFlipped_S_w(M.Golden_LongBindFlipped_Test_inc, M.Golden_LongBindFlipped_Test_bindFlipped_S_w(M.Golden_LongBindFlipped_Test_inc, M.Golden_LongBindFlipped_Test_bindFlipped_S_w(M.Golden_LongBindFlipped_Test_inc, M.Golden_LongBindFlipped_Test_bindFlipped_S_w(M.Golden_LongBindFlipped_Test_inc, M.Golden_LongBindFlipped_Test_bindFlipped_S_w(M.Golden_LongBindFlipped_Test_inc, M.Golden_LongBindFlipped_Test_bindFlipped_S_w(M.Golden_LongBindFlipped_Test_inc, M.Golden_LongBindFlipped_Test_bindFlipped_S_w(M.Golden_LongBindFlipped_Test_inc, M.Golden_LongBindFlipped_Test_bindFlipped_S_w(M.Golden_LongBindFlipped_Test_inc, M.Golden_LongBindFlipped_Test_bindFlipped_S_w(M.Golden_LongBindFlipped_Test_inc, M.Golden_LongBindFlipped_Test_bindFlipped_S_w(M.Golden_LongBindFlipped_Test_inc, M.Golden_LongBindFlipped_Test_bindFlipped_S_w(M.Golden_LongBindFlipped_Test_inc, M.Golden_LongBindFlipped_Test_bindFlipped_S_w(M.Golden_LongBindFlipped_Test_inc, M.Golden_LongBindFlipped_Test_bindFlipped_S_w(M.Golden_LongBindFlipped_Test_inc, M.Golden_LongBindFlipped_Test_bindFlipped_S_w(M.Golden_LongBindFlipped_Test_inc, M.Golden_LongBindFlipped_Test_bindFlipped_S_w(M.Golden_LongBindFlipped_Test_inc, M.Golden_LongBindFlipped_Test_bindFlipped_S_w(M.Golden_LongBindFlipped_Test_inc, M.Golden_LongBindFlipped_Test_bindFlipped_S_w(M.Golden_LongBindFlipped_Test_inc, M.Golden_LongBindFlipped_Test_bindFlipped_S_w(M.Golden_LongBindFlipped_Test_inc, _S_tmp285)))))))))))))))))))))))))))))))))))))))) + local _S_tmp287 = M.Golden_LongBindFlipped_Test_bindFlipped_S_w(M.Golden_LongBindFlipped_Test_inc, M.Golden_LongBindFlipped_Test_bindFlipped_S_w(M.Golden_LongBindFlipped_Test_inc, M.Golden_LongBindFlipped_Test_bindFlipped_S_w(M.Golden_LongBindFlipped_Test_inc, M.Golden_LongBindFlipped_Test_bindFlipped_S_w(M.Golden_LongBindFlipped_Test_inc, M.Golden_LongBindFlipped_Test_bindFlipped_S_w(M.Golden_LongBindFlipped_Test_inc, M.Golden_LongBindFlipped_Test_bindFlipped_S_w(M.Golden_LongBindFlipped_Test_inc, M.Golden_LongBindFlipped_Test_bindFlipped_S_w(M.Golden_LongBindFlipped_Test_inc, M.Golden_LongBindFlipped_Test_bindFlipped_S_w(M.Golden_LongBindFlipped_Test_inc, M.Golden_LongBindFlipped_Test_bindFlipped_S_w(M.Golden_LongBindFlipped_Test_inc, M.Golden_LongBindFlipped_Test_bindFlipped_S_w(M.Golden_LongBindFlipped_Test_inc, M.Golden_LongBindFlipped_Test_bindFlipped_S_w(M.Golden_LongBindFlipped_Test_inc, M.Golden_LongBindFlipped_Test_bindFlipped_S_w(M.Golden_LongBindFlipped_Test_inc, M.Golden_LongBindFlipped_Test_bindFlipped_S_w(M.Golden_LongBindFlipped_Test_inc, M.Golden_LongBindFlipped_Test_bindFlipped_S_w(M.Golden_LongBindFlipped_Test_inc, M.Golden_LongBindFlipped_Test_bindFlipped_S_w(M.Golden_LongBindFlipped_Test_inc, M.Golden_LongBindFlipped_Test_bindFlipped_S_w(M.Golden_LongBindFlipped_Test_inc, M.Golden_LongBindFlipped_Test_bindFlipped_S_w(M.Golden_LongBindFlipped_Test_inc, M.Golden_LongBindFlipped_Test_bindFlipped_S_w(M.Golden_LongBindFlipped_Test_inc, M.Golden_LongBindFlipped_Test_bindFlipped_S_w(M.Golden_LongBindFlipped_Test_inc, M.Golden_LongBindFlipped_Test_bindFlipped_S_w(M.Golden_LongBindFlipped_Test_inc, M.Golden_LongBindFlipped_Test_bindFlipped_S_w(M.Golden_LongBindFlipped_Test_inc, M.Golden_LongBindFlipped_Test_bindFlipped_S_w(M.Golden_LongBindFlipped_Test_inc, M.Golden_LongBindFlipped_Test_bindFlipped_S_w(M.Golden_LongBindFlipped_Test_inc, M.Golden_LongBindFlipped_Test_bindFlipped_S_w(M.Golden_LongBindFlipped_Test_inc, M.Golden_LongBindFlipped_Test_bindFlipped_S_w(M.Golden_LongBindFlipped_Test_inc, M.Golden_LongBindFlipped_Test_bindFlipped_S_w(M.Golden_LongBindFlipped_Test_inc, M.Golden_LongBindFlipped_Test_bindFlipped_S_w(M.Golden_LongBindFlipped_Test_inc, M.Golden_LongBindFlipped_Test_bindFlipped_S_w(M.Golden_LongBindFlipped_Test_inc, M.Golden_LongBindFlipped_Test_bindFlipped_S_w(M.Golden_LongBindFlipped_Test_inc, M.Golden_LongBindFlipped_Test_bindFlipped_S_w(M.Golden_LongBindFlipped_Test_inc, M.Golden_LongBindFlipped_Test_bindFlipped_S_w(M.Golden_LongBindFlipped_Test_inc, M.Golden_LongBindFlipped_Test_bindFlipped_S_w(M.Golden_LongBindFlipped_Test_inc, M.Golden_LongBindFlipped_Test_bindFlipped_S_w(M.Golden_LongBindFlipped_Test_inc, M.Golden_LongBindFlipped_Test_bindFlipped_S_w(M.Golden_LongBindFlipped_Test_inc, M.Golden_LongBindFlipped_Test_bindFlipped_S_w(M.Golden_LongBindFlipped_Test_inc, M.Golden_LongBindFlipped_Test_bindFlipped_S_w(M.Golden_LongBindFlipped_Test_inc, M.Golden_LongBindFlipped_Test_bindFlipped_S_w(M.Golden_LongBindFlipped_Test_inc, M.Golden_LongBindFlipped_Test_bindFlipped_S_w(M.Golden_LongBindFlipped_Test_inc, M.Golden_LongBindFlipped_Test_bindFlipped_S_w(M.Golden_LongBindFlipped_Test_inc, M.Golden_LongBindFlipped_Test_bindFlipped_S_w(M.Golden_LongBindFlipped_Test_inc, _S_tmp286)))))))))))))))))))))))))))))))))))))))) + local _S_tmp288 = M.Golden_LongBindFlipped_Test_bindFlipped_S_w(M.Golden_LongBindFlipped_Test_inc, M.Golden_LongBindFlipped_Test_bindFlipped_S_w(M.Golden_LongBindFlipped_Test_inc, M.Golden_LongBindFlipped_Test_bindFlipped_S_w(M.Golden_LongBindFlipped_Test_inc, M.Golden_LongBindFlipped_Test_bindFlipped_S_w(M.Golden_LongBindFlipped_Test_inc, M.Golden_LongBindFlipped_Test_bindFlipped_S_w(M.Golden_LongBindFlipped_Test_inc, M.Golden_LongBindFlipped_Test_bindFlipped_S_w(M.Golden_LongBindFlipped_Test_inc, M.Golden_LongBindFlipped_Test_bindFlipped_S_w(M.Golden_LongBindFlipped_Test_inc, M.Golden_LongBindFlipped_Test_bindFlipped_S_w(M.Golden_LongBindFlipped_Test_inc, M.Golden_LongBindFlipped_Test_bindFlipped_S_w(M.Golden_LongBindFlipped_Test_inc, M.Golden_LongBindFlipped_Test_bindFlipped_S_w(M.Golden_LongBindFlipped_Test_inc, M.Golden_LongBindFlipped_Test_bindFlipped_S_w(M.Golden_LongBindFlipped_Test_inc, M.Golden_LongBindFlipped_Test_bindFlipped_S_w(M.Golden_LongBindFlipped_Test_inc, M.Golden_LongBindFlipped_Test_bindFlipped_S_w(M.Golden_LongBindFlipped_Test_inc, M.Golden_LongBindFlipped_Test_bindFlipped_S_w(M.Golden_LongBindFlipped_Test_inc, M.Golden_LongBindFlipped_Test_bindFlipped_S_w(M.Golden_LongBindFlipped_Test_inc, M.Golden_LongBindFlipped_Test_bindFlipped_S_w(M.Golden_LongBindFlipped_Test_inc, M.Golden_LongBindFlipped_Test_bindFlipped_S_w(M.Golden_LongBindFlipped_Test_inc, M.Golden_LongBindFlipped_Test_bindFlipped_S_w(M.Golden_LongBindFlipped_Test_inc, M.Golden_LongBindFlipped_Test_bindFlipped_S_w(M.Golden_LongBindFlipped_Test_inc, M.Golden_LongBindFlipped_Test_bindFlipped_S_w(M.Golden_LongBindFlipped_Test_inc, M.Golden_LongBindFlipped_Test_bindFlipped_S_w(M.Golden_LongBindFlipped_Test_inc, M.Golden_LongBindFlipped_Test_bindFlipped_S_w(M.Golden_LongBindFlipped_Test_inc, M.Golden_LongBindFlipped_Test_bindFlipped_S_w(M.Golden_LongBindFlipped_Test_inc, M.Golden_LongBindFlipped_Test_bindFlipped_S_w(M.Golden_LongBindFlipped_Test_inc, M.Golden_LongBindFlipped_Test_bindFlipped_S_w(M.Golden_LongBindFlipped_Test_inc, M.Golden_LongBindFlipped_Test_bindFlipped_S_w(M.Golden_LongBindFlipped_Test_inc, M.Golden_LongBindFlipped_Test_bindFlipped_S_w(M.Golden_LongBindFlipped_Test_inc, M.Golden_LongBindFlipped_Test_bindFlipped_S_w(M.Golden_LongBindFlipped_Test_inc, M.Golden_LongBindFlipped_Test_bindFlipped_S_w(M.Golden_LongBindFlipped_Test_inc, M.Golden_LongBindFlipped_Test_bindFlipped_S_w(M.Golden_LongBindFlipped_Test_inc, M.Golden_LongBindFlipped_Test_bindFlipped_S_w(M.Golden_LongBindFlipped_Test_inc, M.Golden_LongBindFlipped_Test_bindFlipped_S_w(M.Golden_LongBindFlipped_Test_inc, M.Golden_LongBindFlipped_Test_bindFlipped_S_w(M.Golden_LongBindFlipped_Test_inc, M.Golden_LongBindFlipped_Test_bindFlipped_S_w(M.Golden_LongBindFlipped_Test_inc, M.Golden_LongBindFlipped_Test_bindFlipped_S_w(M.Golden_LongBindFlipped_Test_inc, M.Golden_LongBindFlipped_Test_bindFlipped_S_w(M.Golden_LongBindFlipped_Test_inc, M.Golden_LongBindFlipped_Test_bindFlipped_S_w(M.Golden_LongBindFlipped_Test_inc, M.Golden_LongBindFlipped_Test_bindFlipped_S_w(M.Golden_LongBindFlipped_Test_inc, M.Golden_LongBindFlipped_Test_bindFlipped_S_w(M.Golden_LongBindFlipped_Test_inc, M.Golden_LongBindFlipped_Test_bindFlipped_S_w(M.Golden_LongBindFlipped_Test_inc, _S_tmp287)))))))))))))))))))))))))))))))))))))))) + local _S_tmp289 = M.Golden_LongBindFlipped_Test_bindFlipped_S_w(M.Golden_LongBindFlipped_Test_inc, M.Golden_LongBindFlipped_Test_bindFlipped_S_w(M.Golden_LongBindFlipped_Test_inc, M.Golden_LongBindFlipped_Test_bindFlipped_S_w(M.Golden_LongBindFlipped_Test_inc, M.Golden_LongBindFlipped_Test_bindFlipped_S_w(M.Golden_LongBindFlipped_Test_inc, M.Golden_LongBindFlipped_Test_bindFlipped_S_w(M.Golden_LongBindFlipped_Test_inc, M.Golden_LongBindFlipped_Test_bindFlipped_S_w(M.Golden_LongBindFlipped_Test_inc, M.Golden_LongBindFlipped_Test_bindFlipped_S_w(M.Golden_LongBindFlipped_Test_inc, M.Golden_LongBindFlipped_Test_bindFlipped_S_w(M.Golden_LongBindFlipped_Test_inc, M.Golden_LongBindFlipped_Test_bindFlipped_S_w(M.Golden_LongBindFlipped_Test_inc, M.Golden_LongBindFlipped_Test_bindFlipped_S_w(M.Golden_LongBindFlipped_Test_inc, M.Golden_LongBindFlipped_Test_bindFlipped_S_w(M.Golden_LongBindFlipped_Test_inc, M.Golden_LongBindFlipped_Test_bindFlipped_S_w(M.Golden_LongBindFlipped_Test_inc, M.Golden_LongBindFlipped_Test_bindFlipped_S_w(M.Golden_LongBindFlipped_Test_inc, M.Golden_LongBindFlipped_Test_bindFlipped_S_w(M.Golden_LongBindFlipped_Test_inc, M.Golden_LongBindFlipped_Test_bindFlipped_S_w(M.Golden_LongBindFlipped_Test_inc, M.Golden_LongBindFlipped_Test_bindFlipped_S_w(M.Golden_LongBindFlipped_Test_inc, M.Golden_LongBindFlipped_Test_bindFlipped_S_w(M.Golden_LongBindFlipped_Test_inc, M.Golden_LongBindFlipped_Test_bindFlipped_S_w(M.Golden_LongBindFlipped_Test_inc, M.Golden_LongBindFlipped_Test_bindFlipped_S_w(M.Golden_LongBindFlipped_Test_inc, M.Golden_LongBindFlipped_Test_bindFlipped_S_w(M.Golden_LongBindFlipped_Test_inc, M.Golden_LongBindFlipped_Test_bindFlipped_S_w(M.Golden_LongBindFlipped_Test_inc, M.Golden_LongBindFlipped_Test_bindFlipped_S_w(M.Golden_LongBindFlipped_Test_inc, M.Golden_LongBindFlipped_Test_bindFlipped_S_w(M.Golden_LongBindFlipped_Test_inc, M.Golden_LongBindFlipped_Test_bindFlipped_S_w(M.Golden_LongBindFlipped_Test_inc, M.Golden_LongBindFlipped_Test_bindFlipped_S_w(M.Golden_LongBindFlipped_Test_inc, M.Golden_LongBindFlipped_Test_bindFlipped_S_w(M.Golden_LongBindFlipped_Test_inc, M.Golden_LongBindFlipped_Test_bindFlipped_S_w(M.Golden_LongBindFlipped_Test_inc, M.Golden_LongBindFlipped_Test_bindFlipped_S_w(M.Golden_LongBindFlipped_Test_inc, M.Golden_LongBindFlipped_Test_bindFlipped_S_w(M.Golden_LongBindFlipped_Test_inc, M.Golden_LongBindFlipped_Test_bindFlipped_S_w(M.Golden_LongBindFlipped_Test_inc, M.Golden_LongBindFlipped_Test_bindFlipped_S_w(M.Golden_LongBindFlipped_Test_inc, M.Golden_LongBindFlipped_Test_bindFlipped_S_w(M.Golden_LongBindFlipped_Test_inc, M.Golden_LongBindFlipped_Test_bindFlipped_S_w(M.Golden_LongBindFlipped_Test_inc, M.Golden_LongBindFlipped_Test_bindFlipped_S_w(M.Golden_LongBindFlipped_Test_inc, M.Golden_LongBindFlipped_Test_bindFlipped_S_w(M.Golden_LongBindFlipped_Test_inc, M.Golden_LongBindFlipped_Test_bindFlipped_S_w(M.Golden_LongBindFlipped_Test_inc, M.Golden_LongBindFlipped_Test_bindFlipped_S_w(M.Golden_LongBindFlipped_Test_inc, M.Golden_LongBindFlipped_Test_bindFlipped_S_w(M.Golden_LongBindFlipped_Test_inc, M.Golden_LongBindFlipped_Test_bindFlipped_S_w(M.Golden_LongBindFlipped_Test_inc, M.Golden_LongBindFlipped_Test_bindFlipped_S_w(M.Golden_LongBindFlipped_Test_inc, _S_tmp288)))))))))))))))))))))))))))))))))))))))) + return M.Golden_LongBindFlipped_Test_bindFlipped_S_w(M.Golden_LongBindFlipped_Test_inc, M.Golden_LongBindFlipped_Test_bindFlipped_S_w(M.Golden_LongBindFlipped_Test_inc, M.Golden_LongBindFlipped_Test_bindFlipped_S_w(M.Golden_LongBindFlipped_Test_inc, M.Golden_LongBindFlipped_Test_bindFlipped_S_w(M.Golden_LongBindFlipped_Test_inc, M.Golden_LongBindFlipped_Test_bindFlipped_S_w(M.Golden_LongBindFlipped_Test_inc, M.Golden_LongBindFlipped_Test_bindFlipped_S_w(M.Golden_LongBindFlipped_Test_inc, M.Golden_LongBindFlipped_Test_bindFlipped_S_w(M.Golden_LongBindFlipped_Test_inc, M.Golden_LongBindFlipped_Test_bindFlipped_S_w(M.Golden_LongBindFlipped_Test_inc, M.Golden_LongBindFlipped_Test_bindFlipped_S_w(M.Golden_LongBindFlipped_Test_inc, M.Golden_LongBindFlipped_Test_bindFlipped_S_w(M.Golden_LongBindFlipped_Test_inc, M.Golden_LongBindFlipped_Test_bindFlipped_S_w(M.Golden_LongBindFlipped_Test_inc, M.Golden_LongBindFlipped_Test_bindFlipped_S_w(M.Golden_LongBindFlipped_Test_inc, M.Golden_LongBindFlipped_Test_bindFlipped_S_w(M.Golden_LongBindFlipped_Test_inc, M.Golden_LongBindFlipped_Test_bindFlipped_S_w(M.Golden_LongBindFlipped_Test_inc, M.Golden_LongBindFlipped_Test_bindFlipped_S_w(M.Golden_LongBindFlipped_Test_inc, M.Golden_LongBindFlipped_Test_bindFlipped_S_w(M.Golden_LongBindFlipped_Test_inc, M.Golden_LongBindFlipped_Test_bindFlipped_S_w(M.Golden_LongBindFlipped_Test_inc, M.Golden_LongBindFlipped_Test_bindFlipped_S_w(M.Golden_LongBindFlipped_Test_inc, M.Golden_LongBindFlipped_Test_bindFlipped_S_w(M.Golden_LongBindFlipped_Test_inc, M.Golden_LongBindFlipped_Test_bindFlipped_S_w(M.Golden_LongBindFlipped_Test_inc, M.Golden_LongBindFlipped_Test_bindFlipped_S_w(M.Golden_LongBindFlipped_Test_inc, _S_tmp289))))))))))))))))))))) end)() return M.Effect_Console_foreign.log(M.Data_Show_show({ show = function(v_S_16_S_282) diff --git a/test/ps/output/Golden.LongCallbackChain.Test/golden.ir b/test/ps/output/Golden.LongCallbackChain.Test/golden.ir index 29a91d68..d3e08c5d 100644 --- a/test/ps/output/Golden.LongCallbackChain.Test/golden.ir +++ b/test/ps/output/Golden.LongCallbackChain.Test/golden.ir @@ -27,5621 +27,5328 @@ UberModule ), RecursiveGroup ( ( QName - { qnameModuleName = ModuleName "Golden.LongCallbackChain.Test", qnameName = Name "withInc" - }, Abs Nothing - ( ParamNamed Nothing ( Name "n" ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "k" ) ) + { qnameModuleName = ModuleName "Golden.LongCallbackChain.Test", qnameName = Name "withInc$w" + }, AbsN Nothing + ( ParamNamed Nothing ( Name "n" ) :| [ ParamNamed Nothing ( Name "k" ) ] ) + ( IfThenElse Nothing ( IfThenElse Nothing - ( IfThenElse Nothing - ( Eq Nothing - ( LiteralString Nothing "Data.Ordering∷Ordering.LT" ) - ( ReflectCtor Nothing + ( Eq Nothing + ( LiteralString Nothing "Data.Ordering∷Ordering.LT" ) + ( ReflectCtor Nothing + ( AppN Nothing ( AppN Nothing ( AppN Nothing ( AppN Nothing ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported ( ModuleName "Data.Ord" ) ( Name "foreign" ) ) - ) - ( PropName "ordIntImpl" ) - ) - ( Ctor Nothing SumType - ( ModuleName "Data.Ordering" ) - ( TyName "Ordering" ) - ( CtorName "LT" ) [] :| [] + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported ( ModuleName "Data.Ord" ) ( Name "foreign" ) ) ) + ( PropName "ordIntImpl" ) ) ( Ctor Nothing SumType ( ModuleName "Data.Ordering" ) ( TyName "Ordering" ) - ( CtorName "EQ" ) [] :| [] + ( CtorName "LT" ) [] :| [] ) ) ( Ctor Nothing SumType ( ModuleName "Data.Ordering" ) ( TyName "Ordering" ) - ( CtorName "GT" ) [] :| [] + ( CtorName "EQ" ) [] :| [] ) ) - ( Ref Nothing ( Local ( Name "n" ) ) :| [] ) + ( Ctor Nothing SumType + ( ModuleName "Data.Ordering" ) + ( TyName "Ordering" ) + ( CtorName "GT" ) [] :| [] + ) ) - ( LiteralInt Nothing 0 :| [] ) + ( Ref Nothing ( Local ( Name "n" ) ) :| [] ) ) + ( LiteralInt Nothing 0 :| [] ) ) - ) ( LiteralBool Nothing True ) ( LiteralBool Nothing False ) + ) + ) ( LiteralBool Nothing True ) ( LiteralBool Nothing False ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) ( Name "withInc$w" ) ) ) ( AppN Nothing ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) ( Name "withInc" ) ) - ) - ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported ( ModuleName "Data.Semiring" ) ( Name "foreign" ) ) - ) - ( PropName "intAdd" ) - ) - ( Ref Nothing ( Local ( Name "n" ) ) :| [] ) - ) - ( LiteralInt Nothing 1 :| [] ) :| [] + ( ObjectProp ( Just Always ) + ( Ref Nothing ( Imported ( ModuleName "Data.Semiring" ) ( Name "foreign" ) ) ) + ( PropName "intAdd" ) ) + ( Ref Nothing ( Local ( Name "n" ) ) :| [] ) ) - ( Ref Nothing ( Local ( Name "k" ) ) :| [] ) + ( LiteralInt Nothing 1 :| [] ) :| + [ Ref Nothing ( Local ( Name "k" ) ) ] ) + ) + ( AppN Nothing + ( Ref Nothing ( Local ( Name "k" ) ) ) ( AppN Nothing - ( Ref Nothing ( Local ( Name "k" ) ) ) ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported ( ModuleName "Data.Semiring" ) ( Name "foreign" ) ) - ) - ( PropName "intAdd" ) - ) - ( Ref Nothing ( Local ( Name "n" ) ) :| [] ) + ( ObjectProp ( Just Always ) + ( Ref Nothing ( Imported ( ModuleName "Data.Semiring" ) ( Name "foreign" ) ) ) + ( PropName "intAdd" ) ) - ( LiteralInt Nothing 1 :| [] ) :| [] + ( Ref Nothing ( Local ( Name "n" ) ) :| [] ) ) + ( LiteralInt Nothing 1 :| [] ) :| [] ) ) ) - ) :| [] + ) :| + [ + ( QName + { qnameModuleName = ModuleName "Golden.LongCallbackChain.Test", qnameName = Name "withInc" + }, AbsN Nothing + ( ParamNamed Nothing ( Name "withInc$p1" ) :| [] ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "withInc$p2" ) :| [] ) + ( AppN Nothing + ( Ref Nothing + ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) ( Name "withInc$w" ) ) + ) + ( Ref Nothing + ( Local ( Name "withInc$p1" ) ) :| + [ Ref Nothing ( Local ( Name "withInc$p2" ) ) ] + ) + ) + ) + ) + ] ), Standalone ( QName { qnameModuleName = ModuleName "Golden.LongCallbackChain.Test", qnameName = Name "compute" }, Let Nothing ( Standalone - ( Nothing, Name "$kont182", Abs Nothing - ( ParamNamed Nothing ( Name "x280$183" ) ) + ( Nothing, Name "$kont182", AbsN Nothing + ( ParamNamed Nothing ( Name "x280$183" ) :| [] ) ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) ( Name "withInc" ) ) - ) - ( Ref Nothing ( Local ( Name "x280$183" ) ) :| [] ) + ( Ref Nothing + ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) ( Name "withInc$w" ) ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x281" ) ) - ( AppN Nothing + ( Ref Nothing + ( Local ( Name "x280$183" ) ) :| + [ AbsN Nothing + ( ParamNamed Nothing ( Name "x281" ) :| [] ) ( AppN Nothing ( Ref Nothing - ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) ( Name "withInc" ) ) - ) - ( Ref Nothing ( Local ( Name "x281" ) ) :| [] ) - ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x282" ) ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) - ) - ) - ( Ref Nothing ( Local ( Name "x282" ) ) :| [] ) + ( Imported + ( ModuleName "Golden.LongCallbackChain.Test" ) + ( Name "withInc$w" ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x283" ) ) + ) + ( Ref Nothing + ( Local ( Name "x281" ) ) :| + [ AbsN Nothing + ( ParamNamed Nothing ( Name "x282" ) :| [] ) ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) - ) + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongCallbackChain.Test" ) + ( Name "withInc$w" ) ) - ( Ref Nothing ( Local ( Name "x283" ) ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x284" ) ) - ( AppN Nothing + ( Ref Nothing + ( Local ( Name "x282" ) ) :| + [ AbsN Nothing + ( ParamNamed Nothing ( Name "x283" ) :| [] ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) + ( Name "withInc$w" ) ) ) - ( Ref Nothing ( Local ( Name "x284" ) ) :| [] ) - ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x285" ) ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) - ) - ) - ( Ref Nothing ( Local ( Name "x285" ) ) :| [] ) - ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x286" ) ) + ( Ref Nothing + ( Local ( Name "x283" ) ) :| + [ AbsN Nothing + ( ParamNamed Nothing ( Name "x284" ) :| [] ) ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) - ) + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongCallbackChain.Test" ) + ( Name "withInc$w" ) ) - ( Ref Nothing ( Local ( Name "x286" ) ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x287" ) ) - ( AppN Nothing + ( Ref Nothing + ( Local ( Name "x284" ) ) :| + [ AbsN Nothing + ( ParamNamed Nothing ( Name "x285" ) :| [] ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) + ( Name "withInc$w" ) ) ) - ( Ref Nothing ( Local ( Name "x287" ) ) :| [] ) - ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x288" ) ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) - ) - ) - ( Ref Nothing ( Local ( Name "x288" ) ) :| [] ) - ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x289" ) ) + ( Ref Nothing + ( Local ( Name "x285" ) ) :| + [ AbsN Nothing + ( ParamNamed Nothing ( Name "x286" ) :| [] ) ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) - ) + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongCallbackChain.Test" ) + ( Name "withInc$w" ) ) - ( Ref Nothing ( Local ( Name "x289" ) ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x290" ) ) - ( AppN Nothing + ( Ref Nothing + ( Local ( Name "x286" ) ) :| + [ AbsN Nothing + ( ParamNamed Nothing ( Name "x287" ) :| [] ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) + ( Name "withInc$w" ) ) ) ( Ref Nothing - ( Local ( Name "x290" ) ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x291" ) ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) - ) - ) - ( Ref Nothing - ( Local ( Name "x291" ) ) :| [] + ( Local ( Name "x287" ) ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x288" ) :| [] ) - ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x292" ) ) ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) - ) - ) - ( Ref Nothing - ( Local ( Name "x292" ) ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongCallbackChain.Test" ) + ( Name "withInc$w" ) ) ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x293" ) - ) - ( AppN Nothing + ( Ref Nothing + ( Local ( Name "x288" ) ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x289" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) + ( Name "withInc$w" ) ) ) ( Ref Nothing - ( Local - ( Name "x293" ) - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x294" ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x294" ) - ) :| [] - ) - ) - ( Abs Nothing + ( Local ( Name "x289" ) ) :| + [ AbsN Nothing ( ParamNamed Nothing - ( Name "x295" ) + ( Name "x290" ) :| [] ) ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x295" ) - ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongCallbackChain.Test" ) + ( Name "withInc$w" ) ) ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x296" ) - ) - ( AppN Nothing + ( Ref Nothing + ( Local + ( Name "x290" ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x291" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) + ( Name "withInc$w" ) ) ) ( Ref Nothing ( Local - ( Name "x296" ) - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x297" ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x297" ) - ) :| [] - ) - ) - ( Abs Nothing + ( Name "x291" ) + ) :| + [ AbsN Nothing ( ParamNamed Nothing - ( Name "x298" ) + ( Name "x292" ) :| [] ) ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x298" ) - ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongCallbackChain.Test" ) + ( Name "withInc$w" ) ) ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x299" ) - ) - ( AppN Nothing + ( Ref Nothing + ( Local + ( Name "x292" ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x293" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) + ( Name "withInc$w" ) ) ) ( Ref Nothing ( Local - ( Name "x299" ) - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x300" ) + ( Name "x293" ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x294" ) :| [] + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongCallbackChain.Test" ) + ( Name "withInc$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x294" ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x295" ) :| [] + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongCallbackChain.Test" ) + ( Name "withInc$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x295" ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x296" ) :| [] + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongCallbackChain.Test" ) + ( Name "withInc$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x296" ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x297" ) :| [] + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongCallbackChain.Test" ) + ( Name "withInc$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x297" ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x298" ) :| [] + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongCallbackChain.Test" ) + ( Name "withInc$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x298" ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x299" ) :| [] + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongCallbackChain.Test" ) + ( Name "withInc$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x299" ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x300" ) :| [] + ) + ( Ref Nothing + ( Local + ( Name "x300" ) + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] ) - ( Ref Nothing - ( Local - ( Name "x300" ) - ) - ) :| [] ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) ) ) :| [ Standalone - ( Nothing, Name "$kont184", Abs Nothing - ( ParamNamed Nothing ( Name "x240$185" ) ) + ( Nothing, Name "$kont184", AbsN Nothing + ( ParamNamed Nothing ( Name "x240$185" ) :| [] ) ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) ( Name "withInc" ) ) - ) - ( Ref Nothing ( Local ( Name "x240$185" ) ) :| [] ) + ( Ref Nothing + ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) ( Name "withInc$w" ) ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x241" ) ) - ( AppN Nothing + ( Ref Nothing + ( Local ( Name "x240$185" ) ) :| + [ AbsN Nothing + ( ParamNamed Nothing ( Name "x241" ) :| [] ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) + ( Name "withInc$w" ) ) ) - ( Ref Nothing ( Local ( Name "x241" ) ) :| [] ) - ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x242" ) ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) - ) - ) - ( Ref Nothing ( Local ( Name "x242" ) ) :| [] ) - ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x243" ) ) + ( Ref Nothing + ( Local ( Name "x241" ) ) :| + [ AbsN Nothing + ( ParamNamed Nothing ( Name "x242" ) :| [] ) ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) - ) + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongCallbackChain.Test" ) + ( Name "withInc$w" ) ) - ( Ref Nothing ( Local ( Name "x243" ) ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x244" ) ) - ( AppN Nothing + ( Ref Nothing + ( Local ( Name "x242" ) ) :| + [ AbsN Nothing + ( ParamNamed Nothing ( Name "x243" ) :| [] ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) + ( Name "withInc$w" ) ) ) - ( Ref Nothing ( Local ( Name "x244" ) ) :| [] ) - ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x245" ) ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) - ) - ) - ( Ref Nothing ( Local ( Name "x245" ) ) :| [] ) - ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x246" ) ) + ( Ref Nothing + ( Local ( Name "x243" ) ) :| + [ AbsN Nothing + ( ParamNamed Nothing ( Name "x244" ) :| [] ) ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) - ) + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongCallbackChain.Test" ) + ( Name "withInc$w" ) ) - ( Ref Nothing ( Local ( Name "x246" ) ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x247" ) ) - ( AppN Nothing + ( Ref Nothing + ( Local ( Name "x244" ) ) :| + [ AbsN Nothing + ( ParamNamed Nothing ( Name "x245" ) :| [] ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) + ( Name "withInc$w" ) ) ) - ( Ref Nothing ( Local ( Name "x247" ) ) :| [] ) - ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x248" ) ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) - ) - ) - ( Ref Nothing ( Local ( Name "x248" ) ) :| [] ) - ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x249" ) ) + ( Ref Nothing + ( Local ( Name "x245" ) ) :| + [ AbsN Nothing + ( ParamNamed Nothing ( Name "x246" ) :| [] ) ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) - ) - ) - ( Ref Nothing - ( Local ( Name "x249" ) ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongCallbackChain.Test" ) + ( Name "withInc$w" ) ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x250" ) ) - ( AppN Nothing + ( Ref Nothing + ( Local ( Name "x246" ) ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x247" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) + ( Name "withInc$w" ) ) ) ( Ref Nothing - ( Local ( Name "x250" ) ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x251" ) ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) - ) - ) - ( Ref Nothing - ( Local ( Name "x251" ) ) :| [] - ) - ) - ( Abs Nothing + ( Local ( Name "x247" ) ) :| + [ AbsN Nothing ( ParamNamed Nothing - ( Name "x252" ) + ( Name "x248" ) :| [] ) ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) - ) - ) - ( Ref Nothing - ( Local ( Name "x252" ) ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongCallbackChain.Test" ) + ( Name "withInc$w" ) ) ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x253" ) - ) - ( AppN Nothing + ( Ref Nothing + ( Local ( Name "x248" ) ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x249" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) + ( Name "withInc$w" ) ) ) ( Ref Nothing ( Local - ( Name "x253" ) - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x254" ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x254" ) - ) :| [] - ) - ) - ( Abs Nothing + ( Name "x249" ) + ) :| + [ AbsN Nothing ( ParamNamed Nothing - ( Name "x255" ) + ( Name "x250" ) :| [] ) ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x255" ) - ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongCallbackChain.Test" ) + ( Name "withInc$w" ) ) ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x256" ) - ) - ( AppN Nothing + ( Ref Nothing + ( Local + ( Name "x250" ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x251" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) + ( Name "withInc$w" ) ) ) ( Ref Nothing ( Local - ( Name "x256" ) - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x257" ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x257" ) - ) :| [] - ) - ) - ( Abs Nothing + ( Name "x251" ) + ) :| + [ AbsN Nothing ( ParamNamed Nothing - ( Name "x258" ) + ( Name "x252" ) :| [] ) ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x258" ) - ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongCallbackChain.Test" ) + ( Name "withInc$w" ) ) ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x259" ) - ) - ( AppN Nothing + ( Ref Nothing + ( Local + ( Name "x252" ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x253" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) + ( Name "withInc$w" ) ) ) ( Ref Nothing ( Local - ( Name "x259" ) - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x260" ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x260" ) - ) :| [] - ) - ) - ( Abs Nothing + ( Name "x253" ) + ) :| + [ AbsN Nothing ( ParamNamed Nothing - ( Name "x261" ) + ( Name "x254" ) :| [] ) ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x261" ) - ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongCallbackChain.Test" ) + ( Name "withInc$w" ) ) ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x262" ) - ) - ( AppN Nothing + ( Ref Nothing + ( Local + ( Name "x254" ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x255" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) + ( Name "withInc$w" ) ) ) ( Ref Nothing ( Local - ( Name "x262" ) - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x263" ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x263" ) - ) :| [] - ) - ) - ( Abs Nothing + ( Name "x255" ) + ) :| + [ AbsN Nothing ( ParamNamed Nothing - ( Name "x264" ) + ( Name "x256" ) :| [] ) ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x264" ) - ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongCallbackChain.Test" ) + ( Name "withInc$w" ) ) ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x265" ) - ) - ( AppN Nothing + ( Ref Nothing + ( Local + ( Name "x256" ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x257" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) + ( Name "withInc$w" ) ) ) ( Ref Nothing ( Local - ( Name "x265" ) - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x266" ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x266" ) - ) :| [] - ) - ) - ( Abs Nothing + ( Name "x257" ) + ) :| + [ AbsN Nothing ( ParamNamed Nothing - ( Name "x267" ) + ( Name "x258" ) :| [] ) ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x267" ) - ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongCallbackChain.Test" ) + ( Name "withInc$w" ) ) ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x268" ) - ) - ( AppN Nothing + ( Ref Nothing + ( Local + ( Name "x258" ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x259" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) + ( Name "withInc$w" ) ) ) ( Ref Nothing ( Local - ( Name "x268" ) - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x269" ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x269" ) - ) :| [] - ) - ) - ( Abs Nothing + ( Name "x259" ) + ) :| + [ AbsN Nothing ( ParamNamed Nothing - ( Name "x270" ) + ( Name "x260" ) :| [] ) ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x270" ) - ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongCallbackChain.Test" ) + ( Name "withInc$w" ) ) ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x271" ) - ) - ( AppN Nothing + ( Ref Nothing + ( Local + ( Name "x260" ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x261" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) + ( Name "withInc$w" ) ) ) ( Ref Nothing ( Local - ( Name "x271" ) - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x272" ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x272" ) - ) :| [] - ) - ) - ( Abs Nothing + ( Name "x261" ) + ) :| + [ AbsN Nothing ( ParamNamed Nothing - ( Name "x273" ) + ( Name "x262" ) :| [] ) ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x273" ) - ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongCallbackChain.Test" ) + ( Name "withInc$w" ) ) ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x274" ) - ) - ( AppN Nothing + ( Ref Nothing + ( Local + ( Name "x262" ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x263" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) + ( Name "withInc$w" ) ) ) ( Ref Nothing ( Local - ( Name "x274" ) - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x275" ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x275" ) - ) :| [] - ) - ) - ( Abs Nothing + ( Name "x263" ) + ) :| + [ AbsN Nothing ( ParamNamed Nothing - ( Name "x276" ) + ( Name "x264" ) :| [] ) ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x276" ) - ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongCallbackChain.Test" ) + ( Name "withInc$w" ) ) ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x277" ) - ) - ( AppN Nothing + ( Ref Nothing + ( Local + ( Name "x264" ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x265" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) + ( Name "withInc$w" ) ) ) ( Ref Nothing ( Local - ( Name "x277" ) - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x278" ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x278" ) - ) :| [] - ) - ) - ( Abs Nothing + ( Name "x265" ) + ) :| + [ AbsN Nothing ( ParamNamed Nothing - ( Name "x279" ) + ( Name "x266" ) :| [] ) ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x279" ) - ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongCallbackChain.Test" ) + ( Name "withInc$w" ) ) ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x280" ) - ) - ( AppN Nothing - ( Ref Nothing - ( Local - ( Name "$kont182" ) - ) + ( Ref Nothing + ( Local + ( Name "x266" ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x267" ) :| [] ) - ( Ref Nothing - ( Local - ( Name "x280" ) - ) :| [] + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongCallbackChain.Test" ) + ( Name "withInc$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x267" ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x268" ) :| [] + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongCallbackChain.Test" ) + ( Name "withInc$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x268" ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x269" ) :| [] + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongCallbackChain.Test" ) + ( Name "withInc$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x269" ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x270" ) :| [] + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongCallbackChain.Test" ) + ( Name "withInc$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x270" ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x271" ) :| [] + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongCallbackChain.Test" ) + ( Name "withInc$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x271" ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x272" ) :| [] + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongCallbackChain.Test" ) + ( Name "withInc$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x272" ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x273" ) :| [] + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongCallbackChain.Test" ) + ( Name "withInc$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x273" ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x274" ) :| [] + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongCallbackChain.Test" ) + ( Name "withInc$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x274" ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x275" ) :| [] + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongCallbackChain.Test" ) + ( Name "withInc$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x275" ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x276" ) :| [] + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongCallbackChain.Test" ) + ( Name "withInc$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x276" ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x277" ) :| [] + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongCallbackChain.Test" ) + ( Name "withInc$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x277" ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x278" ) :| [] + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongCallbackChain.Test" ) + ( Name "withInc$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x278" ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x279" ) :| [] + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongCallbackChain.Test" ) + ( Name "withInc$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x279" ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x280" ) :| [] + ) + ( AppN Nothing + ( Ref Nothing + ( Local + ( Name "$kont182" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x280" ) + ) :| [] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) ) ), Standalone - ( Nothing, Name "$kont186", Abs Nothing - ( ParamNamed Nothing ( Name "x200$187" ) ) + ( Nothing, Name "$kont186", AbsN Nothing + ( ParamNamed Nothing ( Name "x200$187" ) :| [] ) ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) ( Name "withInc" ) ) - ) - ( Ref Nothing ( Local ( Name "x200$187" ) ) :| [] ) + ( Ref Nothing + ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) ( Name "withInc$w" ) ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x201" ) ) - ( AppN Nothing + ( Ref Nothing + ( Local ( Name "x200$187" ) ) :| + [ AbsN Nothing + ( ParamNamed Nothing ( Name "x201" ) :| [] ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) + ( Name "withInc$w" ) ) ) - ( Ref Nothing ( Local ( Name "x201" ) ) :| [] ) - ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x202" ) ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) - ) - ) - ( Ref Nothing ( Local ( Name "x202" ) ) :| [] ) - ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x203" ) ) + ( Ref Nothing + ( Local ( Name "x201" ) ) :| + [ AbsN Nothing + ( ParamNamed Nothing ( Name "x202" ) :| [] ) ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) - ) + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongCallbackChain.Test" ) + ( Name "withInc$w" ) ) - ( Ref Nothing ( Local ( Name "x203" ) ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x204" ) ) - ( AppN Nothing + ( Ref Nothing + ( Local ( Name "x202" ) ) :| + [ AbsN Nothing + ( ParamNamed Nothing ( Name "x203" ) :| [] ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) + ( Name "withInc$w" ) ) ) - ( Ref Nothing ( Local ( Name "x204" ) ) :| [] ) - ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x205" ) ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) - ) - ) - ( Ref Nothing ( Local ( Name "x205" ) ) :| [] ) - ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x206" ) ) + ( Ref Nothing + ( Local ( Name "x203" ) ) :| + [ AbsN Nothing + ( ParamNamed Nothing ( Name "x204" ) :| [] ) ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) - ) + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongCallbackChain.Test" ) + ( Name "withInc$w" ) ) - ( Ref Nothing ( Local ( Name "x206" ) ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x207" ) ) - ( AppN Nothing + ( Ref Nothing + ( Local ( Name "x204" ) ) :| + [ AbsN Nothing + ( ParamNamed Nothing ( Name "x205" ) :| [] ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) + ( Name "withInc$w" ) ) ) - ( Ref Nothing ( Local ( Name "x207" ) ) :| [] ) - ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x208" ) ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) - ) - ) - ( Ref Nothing ( Local ( Name "x208" ) ) :| [] ) - ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x209" ) ) + ( Ref Nothing + ( Local ( Name "x205" ) ) :| + [ AbsN Nothing + ( ParamNamed Nothing ( Name "x206" ) :| [] ) ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) - ) - ) - ( Ref Nothing - ( Local ( Name "x209" ) ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongCallbackChain.Test" ) + ( Name "withInc$w" ) ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x210" ) ) - ( AppN Nothing + ( Ref Nothing + ( Local ( Name "x206" ) ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x207" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) + ( Name "withInc$w" ) ) ) ( Ref Nothing - ( Local ( Name "x210" ) ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x211" ) ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) - ) - ) - ( Ref Nothing - ( Local ( Name "x211" ) ) :| [] - ) - ) - ( Abs Nothing + ( Local ( Name "x207" ) ) :| + [ AbsN Nothing ( ParamNamed Nothing - ( Name "x212" ) + ( Name "x208" ) :| [] ) ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) - ) - ) - ( Ref Nothing - ( Local ( Name "x212" ) ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongCallbackChain.Test" ) + ( Name "withInc$w" ) ) ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x213" ) - ) - ( AppN Nothing + ( Ref Nothing + ( Local ( Name "x208" ) ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x209" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) + ( Name "withInc$w" ) ) ) ( Ref Nothing ( Local - ( Name "x213" ) - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x214" ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x214" ) - ) :| [] - ) - ) - ( Abs Nothing + ( Name "x209" ) + ) :| + [ AbsN Nothing ( ParamNamed Nothing - ( Name "x215" ) + ( Name "x210" ) :| [] ) ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x215" ) - ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongCallbackChain.Test" ) + ( Name "withInc$w" ) ) ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x216" ) - ) - ( AppN Nothing + ( Ref Nothing + ( Local + ( Name "x210" ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x211" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) + ( Name "withInc$w" ) ) ) ( Ref Nothing ( Local - ( Name "x216" ) - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x217" ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x217" ) - ) :| [] - ) - ) - ( Abs Nothing + ( Name "x211" ) + ) :| + [ AbsN Nothing ( ParamNamed Nothing - ( Name "x218" ) + ( Name "x212" ) :| [] ) ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x218" ) - ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongCallbackChain.Test" ) + ( Name "withInc$w" ) ) ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x219" ) - ) - ( AppN Nothing + ( Ref Nothing + ( Local + ( Name "x212" ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x213" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) + ( Name "withInc$w" ) ) ) ( Ref Nothing ( Local - ( Name "x219" ) - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x220" ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x220" ) - ) :| [] - ) - ) - ( Abs Nothing + ( Name "x213" ) + ) :| + [ AbsN Nothing ( ParamNamed Nothing - ( Name "x221" ) + ( Name "x214" ) :| [] ) ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x221" ) - ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongCallbackChain.Test" ) + ( Name "withInc$w" ) ) ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x222" ) - ) - ( AppN Nothing + ( Ref Nothing + ( Local + ( Name "x214" ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x215" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) + ( Name "withInc$w" ) ) ) ( Ref Nothing ( Local - ( Name "x222" ) - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x223" ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x223" ) - ) :| [] - ) - ) - ( Abs Nothing + ( Name "x215" ) + ) :| + [ AbsN Nothing ( ParamNamed Nothing - ( Name "x224" ) + ( Name "x216" ) :| [] ) ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x224" ) - ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongCallbackChain.Test" ) + ( Name "withInc$w" ) ) ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x225" ) - ) - ( AppN Nothing + ( Ref Nothing + ( Local + ( Name "x216" ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x217" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) + ( Name "withInc$w" ) ) ) ( Ref Nothing ( Local - ( Name "x225" ) - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x226" ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x226" ) - ) :| [] - ) - ) - ( Abs Nothing + ( Name "x217" ) + ) :| + [ AbsN Nothing ( ParamNamed Nothing - ( Name "x227" ) + ( Name "x218" ) :| [] ) ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x227" ) - ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongCallbackChain.Test" ) + ( Name "withInc$w" ) ) ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x228" ) - ) - ( AppN Nothing + ( Ref Nothing + ( Local + ( Name "x218" ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x219" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) + ( Name "withInc$w" ) ) ) ( Ref Nothing ( Local - ( Name "x228" ) - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x229" ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x229" ) - ) :| [] - ) - ) - ( Abs Nothing + ( Name "x219" ) + ) :| + [ AbsN Nothing ( ParamNamed Nothing - ( Name "x230" ) + ( Name "x220" ) :| [] ) ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x230" ) - ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongCallbackChain.Test" ) + ( Name "withInc$w" ) ) ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x231" ) - ) - ( AppN Nothing + ( Ref Nothing + ( Local + ( Name "x220" ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x221" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) + ( Name "withInc$w" ) ) ) ( Ref Nothing ( Local - ( Name "x231" ) - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x232" ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x232" ) - ) :| [] - ) - ) - ( Abs Nothing + ( Name "x221" ) + ) :| + [ AbsN Nothing ( ParamNamed Nothing - ( Name "x233" ) + ( Name "x222" ) :| [] ) ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x233" ) - ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongCallbackChain.Test" ) + ( Name "withInc$w" ) ) ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x234" ) - ) - ( AppN Nothing + ( Ref Nothing + ( Local + ( Name "x222" ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x223" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) + ( Name "withInc$w" ) ) ) ( Ref Nothing ( Local - ( Name "x234" ) - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x235" ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x235" ) - ) :| [] - ) - ) - ( Abs Nothing + ( Name "x223" ) + ) :| + [ AbsN Nothing ( ParamNamed Nothing - ( Name "x236" ) + ( Name "x224" ) :| [] ) ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x236" ) - ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongCallbackChain.Test" ) + ( Name "withInc$w" ) ) ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x237" ) - ) - ( AppN Nothing + ( Ref Nothing + ( Local + ( Name "x224" ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x225" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) + ( Name "withInc$w" ) ) ) ( Ref Nothing ( Local - ( Name "x237" ) - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x238" ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x238" ) - ) :| [] - ) - ) - ( Abs Nothing + ( Name "x225" ) + ) :| + [ AbsN Nothing ( ParamNamed Nothing - ( Name "x239" ) + ( Name "x226" ) :| [] ) ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x239" ) - ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongCallbackChain.Test" ) + ( Name "withInc$w" ) ) ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x240" ) - ) - ( AppN Nothing - ( Ref Nothing - ( Local - ( Name "$kont184" ) - ) + ( Ref Nothing + ( Local + ( Name "x226" ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x227" ) :| [] ) - ( Ref Nothing - ( Local - ( Name "x240" ) - ) :| [] + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongCallbackChain.Test" ) + ( Name "withInc$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x227" ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x228" ) :| [] + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongCallbackChain.Test" ) + ( Name "withInc$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x228" ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x229" ) :| [] + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongCallbackChain.Test" ) + ( Name "withInc$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x229" ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x230" ) :| [] + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongCallbackChain.Test" ) + ( Name "withInc$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x230" ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x231" ) :| [] + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongCallbackChain.Test" ) + ( Name "withInc$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x231" ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x232" ) :| [] + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongCallbackChain.Test" ) + ( Name "withInc$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x232" ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x233" ) :| [] + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongCallbackChain.Test" ) + ( Name "withInc$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x233" ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x234" ) :| [] + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongCallbackChain.Test" ) + ( Name "withInc$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x234" ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x235" ) :| [] + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongCallbackChain.Test" ) + ( Name "withInc$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x235" ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x236" ) :| [] + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongCallbackChain.Test" ) + ( Name "withInc$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x236" ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x237" ) :| [] + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongCallbackChain.Test" ) + ( Name "withInc$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x237" ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x238" ) :| [] + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongCallbackChain.Test" ) + ( Name "withInc$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x238" ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x239" ) :| [] + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongCallbackChain.Test" ) + ( Name "withInc$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x239" ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x240" ) :| [] + ) + ( AppN Nothing + ( Ref Nothing + ( Local + ( Name "$kont184" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x240" ) + ) :| [] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) ) ), Standalone - ( Nothing, Name "$kont188", Abs Nothing - ( ParamNamed Nothing ( Name "x160$189" ) ) + ( Nothing, Name "$kont188", AbsN Nothing + ( ParamNamed Nothing ( Name "x160$189" ) :| [] ) ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) ( Name "withInc" ) ) - ) - ( Ref Nothing ( Local ( Name "x160$189" ) ) :| [] ) + ( Ref Nothing + ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) ( Name "withInc$w" ) ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x161" ) ) - ( AppN Nothing + ( Ref Nothing + ( Local ( Name "x160$189" ) ) :| + [ AbsN Nothing + ( ParamNamed Nothing ( Name "x161" ) :| [] ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) + ( Name "withInc$w" ) ) ) - ( Ref Nothing ( Local ( Name "x161" ) ) :| [] ) - ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x162" ) ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) - ) - ) - ( Ref Nothing ( Local ( Name "x162" ) ) :| [] ) - ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x163" ) ) + ( Ref Nothing + ( Local ( Name "x161" ) ) :| + [ AbsN Nothing + ( ParamNamed Nothing ( Name "x162" ) :| [] ) ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) - ) + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongCallbackChain.Test" ) + ( Name "withInc$w" ) ) - ( Ref Nothing ( Local ( Name "x163" ) ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x164" ) ) - ( AppN Nothing + ( Ref Nothing + ( Local ( Name "x162" ) ) :| + [ AbsN Nothing + ( ParamNamed Nothing ( Name "x163" ) :| [] ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) + ( Name "withInc$w" ) ) ) - ( Ref Nothing ( Local ( Name "x164" ) ) :| [] ) - ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x165" ) ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) - ) - ) - ( Ref Nothing ( Local ( Name "x165" ) ) :| [] ) - ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x166" ) ) + ( Ref Nothing + ( Local ( Name "x163" ) ) :| + [ AbsN Nothing + ( ParamNamed Nothing ( Name "x164" ) :| [] ) ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) - ) + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongCallbackChain.Test" ) + ( Name "withInc$w" ) ) - ( Ref Nothing ( Local ( Name "x166" ) ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x167" ) ) - ( AppN Nothing + ( Ref Nothing + ( Local ( Name "x164" ) ) :| + [ AbsN Nothing + ( ParamNamed Nothing ( Name "x165" ) :| [] ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) + ( Name "withInc$w" ) ) ) - ( Ref Nothing ( Local ( Name "x167" ) ) :| [] ) - ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x168" ) ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) - ) - ) - ( Ref Nothing ( Local ( Name "x168" ) ) :| [] ) - ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x169" ) ) + ( Ref Nothing + ( Local ( Name "x165" ) ) :| + [ AbsN Nothing + ( ParamNamed Nothing ( Name "x166" ) :| [] ) ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) - ) - ) - ( Ref Nothing - ( Local ( Name "x169" ) ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongCallbackChain.Test" ) + ( Name "withInc$w" ) ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x170" ) ) - ( AppN Nothing + ( Ref Nothing + ( Local ( Name "x166" ) ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x167" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) + ( Name "withInc$w" ) ) ) ( Ref Nothing - ( Local ( Name "x170" ) ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x171" ) ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) - ) - ) - ( Ref Nothing - ( Local ( Name "x171" ) ) :| [] - ) - ) - ( Abs Nothing + ( Local ( Name "x167" ) ) :| + [ AbsN Nothing ( ParamNamed Nothing - ( Name "x172" ) + ( Name "x168" ) :| [] ) ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) - ) - ) - ( Ref Nothing - ( Local ( Name "x172" ) ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongCallbackChain.Test" ) + ( Name "withInc$w" ) ) ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x173" ) - ) - ( AppN Nothing + ( Ref Nothing + ( Local ( Name "x168" ) ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x169" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) + ( Name "withInc$w" ) ) ) ( Ref Nothing ( Local - ( Name "x173" ) - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x174" ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x174" ) - ) :| [] - ) - ) - ( Abs Nothing + ( Name "x169" ) + ) :| + [ AbsN Nothing ( ParamNamed Nothing - ( Name "x175" ) + ( Name "x170" ) :| [] ) ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x175" ) - ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongCallbackChain.Test" ) + ( Name "withInc$w" ) ) ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x176" ) - ) - ( AppN Nothing + ( Ref Nothing + ( Local + ( Name "x170" ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x171" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) + ( Name "withInc$w" ) ) ) ( Ref Nothing ( Local - ( Name "x176" ) - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x177" ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x177" ) - ) :| [] - ) - ) - ( Abs Nothing + ( Name "x171" ) + ) :| + [ AbsN Nothing ( ParamNamed Nothing - ( Name "x178" ) + ( Name "x172" ) :| [] ) ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x178" ) - ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongCallbackChain.Test" ) + ( Name "withInc$w" ) ) ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x179" ) - ) - ( AppN Nothing + ( Ref Nothing + ( Local + ( Name "x172" ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x173" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) + ( Name "withInc$w" ) ) ) ( Ref Nothing ( Local - ( Name "x179" ) - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x180" ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x180" ) - ) :| [] - ) - ) - ( Abs Nothing + ( Name "x173" ) + ) :| + [ AbsN Nothing ( ParamNamed Nothing - ( Name "x181" ) + ( Name "x174" ) :| [] ) ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x181" ) - ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongCallbackChain.Test" ) + ( Name "withInc$w" ) ) ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x182" ) - ) - ( AppN Nothing + ( Ref Nothing + ( Local + ( Name "x174" ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x175" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) + ( Name "withInc$w" ) ) ) ( Ref Nothing ( Local - ( Name "x182" ) - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x183" ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x183" ) - ) :| [] - ) - ) - ( Abs Nothing + ( Name "x175" ) + ) :| + [ AbsN Nothing ( ParamNamed Nothing - ( Name "x184" ) + ( Name "x176" ) :| [] ) ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x184" ) - ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongCallbackChain.Test" ) + ( Name "withInc$w" ) ) ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x185" ) - ) - ( AppN Nothing + ( Ref Nothing + ( Local + ( Name "x176" ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x177" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) + ( Name "withInc$w" ) ) ) ( Ref Nothing ( Local - ( Name "x185" ) - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x186" ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x186" ) - ) :| [] - ) - ) - ( Abs Nothing + ( Name "x177" ) + ) :| + [ AbsN Nothing ( ParamNamed Nothing - ( Name "x187" ) + ( Name "x178" ) :| [] ) ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x187" ) - ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongCallbackChain.Test" ) + ( Name "withInc$w" ) ) ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x188" ) - ) - ( AppN Nothing + ( Ref Nothing + ( Local + ( Name "x178" ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x179" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) + ( Name "withInc$w" ) ) ) ( Ref Nothing ( Local - ( Name "x188" ) - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x189" ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x189" ) - ) :| [] - ) - ) - ( Abs Nothing + ( Name "x179" ) + ) :| + [ AbsN Nothing ( ParamNamed Nothing - ( Name "x190" ) + ( Name "x180" ) :| [] ) ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x190" ) - ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongCallbackChain.Test" ) + ( Name "withInc$w" ) ) ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x191" ) - ) - ( AppN Nothing + ( Ref Nothing + ( Local + ( Name "x180" ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x181" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) + ( Name "withInc$w" ) ) ) ( Ref Nothing ( Local - ( Name "x191" ) - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x192" ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x192" ) - ) :| [] - ) - ) - ( Abs Nothing + ( Name "x181" ) + ) :| + [ AbsN Nothing ( ParamNamed Nothing - ( Name "x193" ) + ( Name "x182" ) :| [] ) ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x193" ) - ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongCallbackChain.Test" ) + ( Name "withInc$w" ) ) ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x194" ) - ) - ( AppN Nothing + ( Ref Nothing + ( Local + ( Name "x182" ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x183" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) + ( Name "withInc$w" ) ) ) ( Ref Nothing ( Local - ( Name "x194" ) - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x195" ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x195" ) - ) :| [] - ) - ) - ( Abs Nothing + ( Name "x183" ) + ) :| + [ AbsN Nothing ( ParamNamed Nothing - ( Name "x196" ) + ( Name "x184" ) :| [] ) ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x196" ) - ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongCallbackChain.Test" ) + ( Name "withInc$w" ) ) ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x197" ) - ) - ( AppN Nothing + ( Ref Nothing + ( Local + ( Name "x184" ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x185" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) + ( Name "withInc$w" ) ) ) ( Ref Nothing ( Local - ( Name "x197" ) - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x198" ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x198" ) - ) :| [] - ) - ) - ( Abs Nothing + ( Name "x185" ) + ) :| + [ AbsN Nothing ( ParamNamed Nothing - ( Name "x199" ) + ( Name "x186" ) :| [] ) ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x199" ) - ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongCallbackChain.Test" ) + ( Name "withInc$w" ) ) ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x200" ) - ) - ( AppN Nothing - ( Ref Nothing - ( Local - ( Name "$kont186" ) - ) + ( Ref Nothing + ( Local + ( Name "x186" ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x187" ) :| [] ) - ( Ref Nothing - ( Local - ( Name "x200" ) - ) :| [] + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongCallbackChain.Test" ) + ( Name "withInc$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x187" ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x188" ) :| [] + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongCallbackChain.Test" ) + ( Name "withInc$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x188" ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x189" ) :| [] + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongCallbackChain.Test" ) + ( Name "withInc$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x189" ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x190" ) :| [] + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongCallbackChain.Test" ) + ( Name "withInc$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x190" ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x191" ) :| [] + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongCallbackChain.Test" ) + ( Name "withInc$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x191" ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x192" ) :| [] + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongCallbackChain.Test" ) + ( Name "withInc$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x192" ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x193" ) :| [] + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongCallbackChain.Test" ) + ( Name "withInc$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x193" ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x194" ) :| [] + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongCallbackChain.Test" ) + ( Name "withInc$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x194" ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x195" ) :| [] + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongCallbackChain.Test" ) + ( Name "withInc$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x195" ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x196" ) :| [] + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongCallbackChain.Test" ) + ( Name "withInc$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x196" ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x197" ) :| [] + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongCallbackChain.Test" ) + ( Name "withInc$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x197" ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x198" ) :| [] + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongCallbackChain.Test" ) + ( Name "withInc$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x198" ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x199" ) :| [] + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongCallbackChain.Test" ) + ( Name "withInc$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x199" ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x200" ) :| [] + ) + ( AppN Nothing + ( Ref Nothing + ( Local + ( Name "$kont186" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x200" ) + ) :| [] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) ) ), Standalone - ( Nothing, Name "$kont190", Abs Nothing - ( ParamNamed Nothing ( Name "x120$191" ) ) + ( Nothing, Name "$kont190", AbsN Nothing + ( ParamNamed Nothing ( Name "x120$191" ) :| [] ) ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) ( Name "withInc" ) ) - ) - ( Ref Nothing ( Local ( Name "x120$191" ) ) :| [] ) + ( Ref Nothing + ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) ( Name "withInc$w" ) ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x121" ) ) - ( AppN Nothing + ( Ref Nothing + ( Local ( Name "x120$191" ) ) :| + [ AbsN Nothing + ( ParamNamed Nothing ( Name "x121" ) :| [] ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) + ( Name "withInc$w" ) ) ) - ( Ref Nothing ( Local ( Name "x121" ) ) :| [] ) - ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x122" ) ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) - ) - ) - ( Ref Nothing ( Local ( Name "x122" ) ) :| [] ) - ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x123" ) ) + ( Ref Nothing + ( Local ( Name "x121" ) ) :| + [ AbsN Nothing + ( ParamNamed Nothing ( Name "x122" ) :| [] ) ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) - ) + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongCallbackChain.Test" ) + ( Name "withInc$w" ) ) - ( Ref Nothing ( Local ( Name "x123" ) ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x124" ) ) - ( AppN Nothing + ( Ref Nothing + ( Local ( Name "x122" ) ) :| + [ AbsN Nothing + ( ParamNamed Nothing ( Name "x123" ) :| [] ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) + ( Name "withInc$w" ) ) ) - ( Ref Nothing ( Local ( Name "x124" ) ) :| [] ) - ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x125" ) ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) - ) - ) - ( Ref Nothing ( Local ( Name "x125" ) ) :| [] ) - ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x126" ) ) + ( Ref Nothing + ( Local ( Name "x123" ) ) :| + [ AbsN Nothing + ( ParamNamed Nothing ( Name "x124" ) :| [] ) ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) - ) + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongCallbackChain.Test" ) + ( Name "withInc$w" ) ) - ( Ref Nothing ( Local ( Name "x126" ) ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x127" ) ) - ( AppN Nothing + ( Ref Nothing + ( Local ( Name "x124" ) ) :| + [ AbsN Nothing + ( ParamNamed Nothing ( Name "x125" ) :| [] ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) + ( Name "withInc$w" ) ) ) - ( Ref Nothing ( Local ( Name "x127" ) ) :| [] ) - ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x128" ) ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) - ) - ) - ( Ref Nothing ( Local ( Name "x128" ) ) :| [] ) - ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x129" ) ) + ( Ref Nothing + ( Local ( Name "x125" ) ) :| + [ AbsN Nothing + ( ParamNamed Nothing ( Name "x126" ) :| [] ) ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) - ) - ) - ( Ref Nothing - ( Local ( Name "x129" ) ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongCallbackChain.Test" ) + ( Name "withInc$w" ) ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x130" ) ) - ( AppN Nothing + ( Ref Nothing + ( Local ( Name "x126" ) ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x127" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) + ( Name "withInc$w" ) ) ) ( Ref Nothing - ( Local ( Name "x130" ) ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x131" ) ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) - ) - ) - ( Ref Nothing - ( Local ( Name "x131" ) ) :| [] - ) - ) - ( Abs Nothing + ( Local ( Name "x127" ) ) :| + [ AbsN Nothing ( ParamNamed Nothing - ( Name "x132" ) + ( Name "x128" ) :| [] ) ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) - ) - ) - ( Ref Nothing - ( Local ( Name "x132" ) ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongCallbackChain.Test" ) + ( Name "withInc$w" ) ) ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x133" ) - ) - ( AppN Nothing + ( Ref Nothing + ( Local ( Name "x128" ) ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x129" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) + ( Name "withInc$w" ) ) ) ( Ref Nothing ( Local - ( Name "x133" ) - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x134" ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x134" ) - ) :| [] - ) - ) - ( Abs Nothing + ( Name "x129" ) + ) :| + [ AbsN Nothing ( ParamNamed Nothing - ( Name "x135" ) + ( Name "x130" ) :| [] ) ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x135" ) - ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongCallbackChain.Test" ) + ( Name "withInc$w" ) ) ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x136" ) - ) - ( AppN Nothing + ( Ref Nothing + ( Local + ( Name "x130" ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x131" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) + ( Name "withInc$w" ) ) ) ( Ref Nothing ( Local - ( Name "x136" ) - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x137" ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x137" ) - ) :| [] - ) - ) - ( Abs Nothing + ( Name "x131" ) + ) :| + [ AbsN Nothing ( ParamNamed Nothing - ( Name "x138" ) + ( Name "x132" ) :| [] ) ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x138" ) - ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongCallbackChain.Test" ) + ( Name "withInc$w" ) ) ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x139" ) - ) - ( AppN Nothing + ( Ref Nothing + ( Local + ( Name "x132" ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x133" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) + ( Name "withInc$w" ) ) ) ( Ref Nothing ( Local - ( Name "x139" ) - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x140" ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x140" ) - ) :| [] - ) - ) - ( Abs Nothing + ( Name "x133" ) + ) :| + [ AbsN Nothing ( ParamNamed Nothing - ( Name "x141" ) + ( Name "x134" ) :| [] ) ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x141" ) - ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongCallbackChain.Test" ) + ( Name "withInc$w" ) ) ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x142" ) - ) - ( AppN Nothing + ( Ref Nothing + ( Local + ( Name "x134" ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x135" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) + ( Name "withInc$w" ) ) ) ( Ref Nothing ( Local - ( Name "x142" ) - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x143" ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x143" ) - ) :| [] - ) - ) - ( Abs Nothing + ( Name "x135" ) + ) :| + [ AbsN Nothing ( ParamNamed Nothing - ( Name "x144" ) + ( Name "x136" ) :| [] ) ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x144" ) - ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongCallbackChain.Test" ) + ( Name "withInc$w" ) ) ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x145" ) - ) - ( AppN Nothing + ( Ref Nothing + ( Local + ( Name "x136" ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x137" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) + ( Name "withInc$w" ) ) ) ( Ref Nothing ( Local - ( Name "x145" ) - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x146" ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x146" ) - ) :| [] - ) - ) - ( Abs Nothing + ( Name "x137" ) + ) :| + [ AbsN Nothing ( ParamNamed Nothing - ( Name "x147" ) + ( Name "x138" ) :| [] ) ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x147" ) - ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongCallbackChain.Test" ) + ( Name "withInc$w" ) ) ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x148" ) - ) - ( AppN Nothing + ( Ref Nothing + ( Local + ( Name "x138" ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x139" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) + ( Name "withInc$w" ) ) ) ( Ref Nothing ( Local - ( Name "x148" ) - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x149" ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x149" ) - ) :| [] - ) - ) - ( Abs Nothing + ( Name "x139" ) + ) :| + [ AbsN Nothing ( ParamNamed Nothing - ( Name "x150" ) + ( Name "x140" ) :| [] ) ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x150" ) - ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongCallbackChain.Test" ) + ( Name "withInc$w" ) ) ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x151" ) - ) - ( AppN Nothing + ( Ref Nothing + ( Local + ( Name "x140" ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x141" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) + ( Name "withInc$w" ) ) ) ( Ref Nothing ( Local - ( Name "x151" ) - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x152" ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x152" ) - ) :| [] - ) - ) - ( Abs Nothing + ( Name "x141" ) + ) :| + [ AbsN Nothing ( ParamNamed Nothing - ( Name "x153" ) + ( Name "x142" ) :| [] ) ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x153" ) - ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongCallbackChain.Test" ) + ( Name "withInc$w" ) ) ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x154" ) - ) - ( AppN Nothing + ( Ref Nothing + ( Local + ( Name "x142" ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x143" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) + ( Name "withInc$w" ) ) ) ( Ref Nothing ( Local - ( Name "x154" ) - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x155" ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x155" ) - ) :| [] - ) - ) - ( Abs Nothing + ( Name "x143" ) + ) :| + [ AbsN Nothing ( ParamNamed Nothing - ( Name "x156" ) + ( Name "x144" ) :| [] ) ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x156" ) - ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongCallbackChain.Test" ) + ( Name "withInc$w" ) ) ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x157" ) - ) - ( AppN Nothing + ( Ref Nothing + ( Local + ( Name "x144" ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x145" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) + ( Name "withInc$w" ) ) ) ( Ref Nothing ( Local - ( Name "x157" ) - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x158" ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x158" ) - ) :| [] - ) - ) - ( Abs Nothing + ( Name "x145" ) + ) :| + [ AbsN Nothing ( ParamNamed Nothing - ( Name "x159" ) + ( Name "x146" ) :| [] ) ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x159" ) - ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongCallbackChain.Test" ) + ( Name "withInc$w" ) ) ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x160" ) - ) - ( AppN Nothing - ( Ref Nothing - ( Local - ( Name "$kont188" ) - ) + ( Ref Nothing + ( Local + ( Name "x146" ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x147" ) :| [] ) - ( Ref Nothing - ( Local - ( Name "x160" ) - ) :| [] + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongCallbackChain.Test" ) + ( Name "withInc$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x147" ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x148" ) :| [] + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongCallbackChain.Test" ) + ( Name "withInc$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x148" ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x149" ) :| [] + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongCallbackChain.Test" ) + ( Name "withInc$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x149" ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x150" ) :| [] + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongCallbackChain.Test" ) + ( Name "withInc$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x150" ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x151" ) :| [] + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongCallbackChain.Test" ) + ( Name "withInc$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x151" ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x152" ) :| [] + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongCallbackChain.Test" ) + ( Name "withInc$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x152" ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x153" ) :| [] + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongCallbackChain.Test" ) + ( Name "withInc$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x153" ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x154" ) :| [] + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongCallbackChain.Test" ) + ( Name "withInc$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x154" ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x155" ) :| [] + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongCallbackChain.Test" ) + ( Name "withInc$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x155" ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x156" ) :| [] + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongCallbackChain.Test" ) + ( Name "withInc$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x156" ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x157" ) :| [] + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongCallbackChain.Test" ) + ( Name "withInc$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x157" ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x158" ) :| [] + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongCallbackChain.Test" ) + ( Name "withInc$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x158" ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x159" ) :| [] + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongCallbackChain.Test" ) + ( Name "withInc$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x159" ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x160" ) :| [] + ) + ( AppN Nothing + ( Ref Nothing + ( Local + ( Name "$kont188" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x160" ) + ) :| [] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) ) ), Standalone - ( Nothing, Name "$kont192", Abs Nothing - ( ParamNamed Nothing ( Name "x80$193" ) ) + ( Nothing, Name "$kont192", AbsN Nothing + ( ParamNamed Nothing ( Name "x80$193" ) :| [] ) ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) ( Name "withInc" ) ) - ) - ( Ref Nothing ( Local ( Name "x80$193" ) ) :| [] ) + ( Ref Nothing + ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) ( Name "withInc$w" ) ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x81" ) ) - ( AppN Nothing + ( Ref Nothing + ( Local ( Name "x80$193" ) ) :| + [ AbsN Nothing + ( ParamNamed Nothing ( Name "x81" ) :| [] ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) + ( Name "withInc$w" ) ) ) - ( Ref Nothing ( Local ( Name "x81" ) ) :| [] ) - ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x82" ) ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) - ) - ) - ( Ref Nothing ( Local ( Name "x82" ) ) :| [] ) - ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x83" ) ) + ( Ref Nothing + ( Local ( Name "x81" ) ) :| + [ AbsN Nothing + ( ParamNamed Nothing ( Name "x82" ) :| [] ) ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) - ) + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongCallbackChain.Test" ) + ( Name "withInc$w" ) ) - ( Ref Nothing ( Local ( Name "x83" ) ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x84" ) ) - ( AppN Nothing + ( Ref Nothing + ( Local ( Name "x82" ) ) :| + [ AbsN Nothing + ( ParamNamed Nothing ( Name "x83" ) :| [] ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) + ( Name "withInc$w" ) ) ) - ( Ref Nothing ( Local ( Name "x84" ) ) :| [] ) - ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x85" ) ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) - ) - ) - ( Ref Nothing ( Local ( Name "x85" ) ) :| [] ) - ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x86" ) ) + ( Ref Nothing + ( Local ( Name "x83" ) ) :| + [ AbsN Nothing + ( ParamNamed Nothing ( Name "x84" ) :| [] ) ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) - ) + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongCallbackChain.Test" ) + ( Name "withInc$w" ) ) - ( Ref Nothing ( Local ( Name "x86" ) ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x87" ) ) - ( AppN Nothing + ( Ref Nothing + ( Local ( Name "x84" ) ) :| + [ AbsN Nothing + ( ParamNamed Nothing ( Name "x85" ) :| [] ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) + ( Name "withInc$w" ) ) ) - ( Ref Nothing ( Local ( Name "x87" ) ) :| [] ) - ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x88" ) ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) - ) - ) - ( Ref Nothing ( Local ( Name "x88" ) ) :| [] ) - ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x89" ) ) + ( Ref Nothing + ( Local ( Name "x85" ) ) :| + [ AbsN Nothing + ( ParamNamed Nothing ( Name "x86" ) :| [] ) ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) - ) + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongCallbackChain.Test" ) + ( Name "withInc$w" ) ) - ( Ref Nothing ( Local ( Name "x89" ) ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x90" ) ) - ( AppN Nothing + ( Ref Nothing + ( Local ( Name "x86" ) ) :| + [ AbsN Nothing + ( ParamNamed Nothing ( Name "x87" ) :| [] ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) + ( Name "withInc$w" ) ) ) ( Ref Nothing - ( Local ( Name "x90" ) ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x91" ) ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) - ) - ) - ( Ref Nothing - ( Local ( Name "x91" ) ) :| [] + ( Local ( Name "x87" ) ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x88" ) :| [] ) - ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x92" ) ) ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) - ) - ) - ( Ref Nothing - ( Local ( Name "x92" ) ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongCallbackChain.Test" ) + ( Name "withInc$w" ) ) ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x93" ) - ) - ( AppN Nothing + ( Ref Nothing + ( Local ( Name "x88" ) ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x89" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) + ( Name "withInc$w" ) ) ) ( Ref Nothing - ( Local - ( Name "x93" ) - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x94" ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x94" ) - ) :| [] - ) - ) - ( Abs Nothing + ( Local ( Name "x89" ) ) :| + [ AbsN Nothing ( ParamNamed Nothing - ( Name "x95" ) + ( Name "x90" ) :| [] ) ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x95" ) - ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongCallbackChain.Test" ) + ( Name "withInc$w" ) ) ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x96" ) - ) - ( AppN Nothing + ( Ref Nothing + ( Local + ( Name "x90" ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x91" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) + ( Name "withInc$w" ) ) ) ( Ref Nothing ( Local - ( Name "x96" ) - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x97" ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x97" ) - ) :| [] - ) - ) - ( Abs Nothing + ( Name "x91" ) + ) :| + [ AbsN Nothing ( ParamNamed Nothing - ( Name "x98" ) + ( Name "x92" ) :| [] ) ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x98" ) - ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongCallbackChain.Test" ) + ( Name "withInc$w" ) ) ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x99" ) - ) - ( AppN Nothing + ( Ref Nothing + ( Local + ( Name "x92" ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x93" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) + ( Name "withInc$w" ) ) ) ( Ref Nothing ( Local - ( Name "x99" ) - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x100" ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x100" ) - ) :| [] - ) - ) - ( Abs Nothing + ( Name "x93" ) + ) :| + [ AbsN Nothing ( ParamNamed Nothing - ( Name "x101" ) + ( Name "x94" ) :| [] ) ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x101" ) - ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongCallbackChain.Test" ) + ( Name "withInc$w" ) ) ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x102" ) - ) - ( AppN Nothing + ( Ref Nothing + ( Local + ( Name "x94" ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x95" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) + ( Name "withInc$w" ) ) ) ( Ref Nothing ( Local - ( Name "x102" ) - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x103" ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x103" ) - ) :| [] - ) - ) - ( Abs Nothing + ( Name "x95" ) + ) :| + [ AbsN Nothing ( ParamNamed Nothing - ( Name "x104" ) + ( Name "x96" ) :| [] ) ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x104" ) - ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongCallbackChain.Test" ) + ( Name "withInc$w" ) ) ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x105" ) - ) - ( AppN Nothing + ( Ref Nothing + ( Local + ( Name "x96" ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x97" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) + ( Name "withInc$w" ) ) ) ( Ref Nothing ( Local - ( Name "x105" ) - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x106" ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x106" ) - ) :| [] - ) - ) - ( Abs Nothing + ( Name "x97" ) + ) :| + [ AbsN Nothing ( ParamNamed Nothing - ( Name "x107" ) + ( Name "x98" ) :| [] ) ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x107" ) - ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongCallbackChain.Test" ) + ( Name "withInc$w" ) ) ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x108" ) - ) - ( AppN Nothing + ( Ref Nothing + ( Local + ( Name "x98" ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x99" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) + ( Name "withInc$w" ) ) ) ( Ref Nothing ( Local - ( Name "x108" ) - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x109" ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x109" ) - ) :| [] - ) - ) - ( Abs Nothing + ( Name "x99" ) + ) :| + [ AbsN Nothing ( ParamNamed Nothing - ( Name "x110" ) + ( Name "x100" ) :| [] ) ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x110" ) - ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongCallbackChain.Test" ) + ( Name "withInc$w" ) ) ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x111" ) - ) - ( AppN Nothing + ( Ref Nothing + ( Local + ( Name "x100" ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x101" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) + ( Name "withInc$w" ) ) ) ( Ref Nothing ( Local - ( Name "x111" ) - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x112" ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x112" ) - ) :| [] - ) - ) - ( Abs Nothing + ( Name "x101" ) + ) :| + [ AbsN Nothing ( ParamNamed Nothing - ( Name "x113" ) + ( Name "x102" ) :| [] ) ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x113" ) - ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongCallbackChain.Test" ) + ( Name "withInc$w" ) ) ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x114" ) - ) - ( AppN Nothing + ( Ref Nothing + ( Local + ( Name "x102" ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x103" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) + ( Name "withInc$w" ) ) ) ( Ref Nothing ( Local - ( Name "x114" ) - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x115" ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x115" ) - ) :| [] - ) - ) - ( Abs Nothing + ( Name "x103" ) + ) :| + [ AbsN Nothing ( ParamNamed Nothing - ( Name "x116" ) + ( Name "x104" ) :| [] ) ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x116" ) - ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongCallbackChain.Test" ) + ( Name "withInc$w" ) ) ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x117" ) - ) - ( AppN Nothing + ( Ref Nothing + ( Local + ( Name "x104" ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x105" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) + ( Name "withInc$w" ) ) ) ( Ref Nothing ( Local - ( Name "x117" ) - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x118" ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x118" ) - ) :| [] - ) - ) - ( Abs Nothing + ( Name "x105" ) + ) :| + [ AbsN Nothing ( ParamNamed Nothing - ( Name "x119" ) + ( Name "x106" ) :| [] ) ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x119" ) - ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongCallbackChain.Test" ) + ( Name "withInc$w" ) ) ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x120" ) - ) - ( AppN Nothing - ( Ref Nothing - ( Local - ( Name "$kont190" ) - ) + ( Ref Nothing + ( Local + ( Name "x106" ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x107" ) :| [] ) - ( Ref Nothing - ( Local - ( Name "x120" ) - ) :| [] + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongCallbackChain.Test" ) + ( Name "withInc$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x107" ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x108" ) :| [] + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongCallbackChain.Test" ) + ( Name "withInc$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x108" ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x109" ) :| [] + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongCallbackChain.Test" ) + ( Name "withInc$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x109" ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x110" ) :| [] + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongCallbackChain.Test" ) + ( Name "withInc$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x110" ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x111" ) :| [] + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongCallbackChain.Test" ) + ( Name "withInc$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x111" ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x112" ) :| [] + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongCallbackChain.Test" ) + ( Name "withInc$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x112" ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x113" ) :| [] + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongCallbackChain.Test" ) + ( Name "withInc$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x113" ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x114" ) :| [] + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongCallbackChain.Test" ) + ( Name "withInc$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x114" ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x115" ) :| [] + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongCallbackChain.Test" ) + ( Name "withInc$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x115" ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x116" ) :| [] + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongCallbackChain.Test" ) + ( Name "withInc$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x116" ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x117" ) :| [] + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongCallbackChain.Test" ) + ( Name "withInc$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x117" ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x118" ) :| [] + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongCallbackChain.Test" ) + ( Name "withInc$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x118" ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x119" ) :| [] + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongCallbackChain.Test" ) + ( Name "withInc$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x119" ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x120" ) :| [] + ) + ( AppN Nothing + ( Ref Nothing + ( Local + ( Name "$kont190" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x120" ) + ) :| [] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) ) ), Standalone - ( Nothing, Name "$kont194", Abs Nothing - ( ParamNamed Nothing ( Name "x40$195" ) ) + ( Nothing, Name "$kont194", AbsN Nothing + ( ParamNamed Nothing ( Name "x40$195" ) :| [] ) ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) ( Name "withInc" ) ) - ) - ( Ref Nothing ( Local ( Name "x40$195" ) ) :| [] ) + ( Ref Nothing + ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) ( Name "withInc$w" ) ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x41" ) ) - ( AppN Nothing + ( Ref Nothing + ( Local ( Name "x40$195" ) ) :| + [ AbsN Nothing + ( ParamNamed Nothing ( Name "x41" ) :| [] ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) + ( Name "withInc$w" ) ) ) - ( Ref Nothing ( Local ( Name "x41" ) ) :| [] ) - ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x42" ) ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) - ) - ) - ( Ref Nothing ( Local ( Name "x42" ) ) :| [] ) - ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x43" ) ) + ( Ref Nothing + ( Local ( Name "x41" ) ) :| + [ AbsN Nothing + ( ParamNamed Nothing ( Name "x42" ) :| [] ) ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) - ) + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongCallbackChain.Test" ) + ( Name "withInc$w" ) ) - ( Ref Nothing ( Local ( Name "x43" ) ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x44" ) ) - ( AppN Nothing + ( Ref Nothing + ( Local ( Name "x42" ) ) :| + [ AbsN Nothing + ( ParamNamed Nothing ( Name "x43" ) :| [] ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) + ( Name "withInc$w" ) ) ) - ( Ref Nothing ( Local ( Name "x44" ) ) :| [] ) - ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x45" ) ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) - ) - ) - ( Ref Nothing ( Local ( Name "x45" ) ) :| [] ) - ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x46" ) ) + ( Ref Nothing + ( Local ( Name "x43" ) ) :| + [ AbsN Nothing + ( ParamNamed Nothing ( Name "x44" ) :| [] ) ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) - ) + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongCallbackChain.Test" ) + ( Name "withInc$w" ) ) - ( Ref Nothing ( Local ( Name "x46" ) ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x47" ) ) - ( AppN Nothing + ( Ref Nothing + ( Local ( Name "x44" ) ) :| + [ AbsN Nothing + ( ParamNamed Nothing ( Name "x45" ) :| [] ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) + ( Name "withInc$w" ) ) ) - ( Ref Nothing ( Local ( Name "x47" ) ) :| [] ) - ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x48" ) ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) - ) - ) - ( Ref Nothing ( Local ( Name "x48" ) ) :| [] ) - ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x49" ) ) + ( Ref Nothing + ( Local ( Name "x45" ) ) :| + [ AbsN Nothing + ( ParamNamed Nothing ( Name "x46" ) :| [] ) ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) - ) + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongCallbackChain.Test" ) + ( Name "withInc$w" ) ) - ( Ref Nothing ( Local ( Name "x49" ) ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x50" ) ) - ( AppN Nothing + ( Ref Nothing + ( Local ( Name "x46" ) ) :| + [ AbsN Nothing + ( ParamNamed Nothing ( Name "x47" ) :| [] ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) + ( Name "withInc$w" ) ) ) ( Ref Nothing - ( Local ( Name "x50" ) ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x51" ) ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) - ) - ) - ( Ref Nothing - ( Local ( Name "x51" ) ) :| [] + ( Local ( Name "x47" ) ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x48" ) :| [] ) - ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x52" ) ) ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) - ) - ) - ( Ref Nothing - ( Local ( Name "x52" ) ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongCallbackChain.Test" ) + ( Name "withInc$w" ) ) ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x53" ) - ) - ( AppN Nothing + ( Ref Nothing + ( Local ( Name "x48" ) ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x49" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) + ( Name "withInc$w" ) ) ) ( Ref Nothing - ( Local - ( Name "x53" ) - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x54" ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x54" ) - ) :| [] - ) - ) - ( Abs Nothing + ( Local ( Name "x49" ) ) :| + [ AbsN Nothing ( ParamNamed Nothing - ( Name "x55" ) + ( Name "x50" ) :| [] ) ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x55" ) - ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongCallbackChain.Test" ) + ( Name "withInc$w" ) ) ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x56" ) - ) - ( AppN Nothing + ( Ref Nothing + ( Local + ( Name "x50" ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x51" ) :| [] + ) ( AppN Nothing ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x56" ) - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x57" ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x57" ) - ) :| [] - ) + ( Imported + ( ModuleName "Golden.LongCallbackChain.Test" ) + ( Name "withInc$w" ) ) - ( Abs Nothing + ) + ( Ref Nothing + ( Local + ( Name "x51" ) + ) :| + [ AbsN Nothing ( ParamNamed Nothing - ( Name "x58" ) + ( Name "x52" ) :| [] ) ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x58" ) - ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongCallbackChain.Test" ) + ( Name "withInc$w" ) ) ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x59" ) - ) - ( AppN Nothing + ( Ref Nothing + ( Local + ( Name "x52" ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x53" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) + ( Name "withInc$w" ) ) ) ( Ref Nothing ( Local - ( Name "x59" ) - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x60" ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x60" ) - ) :| [] - ) - ) - ( Abs Nothing + ( Name "x53" ) + ) :| + [ AbsN Nothing ( ParamNamed Nothing - ( Name "x61" ) + ( Name "x54" ) :| [] ) ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x61" ) - ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongCallbackChain.Test" ) + ( Name "withInc$w" ) ) ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x62" ) - ) - ( AppN Nothing + ( Ref Nothing + ( Local + ( Name "x54" ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x55" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) + ( Name "withInc$w" ) ) ) ( Ref Nothing ( Local - ( Name "x62" ) - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x63" ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x63" ) - ) :| [] - ) - ) - ( Abs Nothing + ( Name "x55" ) + ) :| + [ AbsN Nothing ( ParamNamed Nothing - ( Name "x64" ) + ( Name "x56" ) :| [] ) ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x64" ) - ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongCallbackChain.Test" ) + ( Name "withInc$w" ) ) ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x65" ) - ) - ( AppN Nothing + ( Ref Nothing + ( Local + ( Name "x56" ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x57" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) + ( Name "withInc$w" ) ) ) ( Ref Nothing ( Local - ( Name "x65" ) - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x66" ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x66" ) - ) :| [] - ) - ) - ( Abs Nothing + ( Name "x57" ) + ) :| + [ AbsN Nothing ( ParamNamed Nothing - ( Name "x67" ) + ( Name "x58" ) :| [] ) ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x67" ) - ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongCallbackChain.Test" ) + ( Name "withInc$w" ) ) ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x68" ) - ) - ( AppN Nothing + ( Ref Nothing + ( Local + ( Name "x58" ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x59" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) + ( Name "withInc$w" ) ) ) ( Ref Nothing ( Local - ( Name "x68" ) - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x69" ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x69" ) - ) :| [] - ) - ) - ( Abs Nothing + ( Name "x59" ) + ) :| + [ AbsN Nothing ( ParamNamed Nothing - ( Name "x70" ) + ( Name "x60" ) :| [] ) ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x70" ) - ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongCallbackChain.Test" ) + ( Name "withInc$w" ) ) ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x71" ) - ) - ( AppN Nothing + ( Ref Nothing + ( Local + ( Name "x60" ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x61" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) + ( Name "withInc$w" ) ) ) ( Ref Nothing ( Local - ( Name "x71" ) - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x72" ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x72" ) - ) :| [] - ) - ) - ( Abs Nothing + ( Name "x61" ) + ) :| + [ AbsN Nothing ( ParamNamed Nothing - ( Name "x73" ) + ( Name "x62" ) :| [] ) ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x73" ) - ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongCallbackChain.Test" ) + ( Name "withInc$w" ) ) ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x74" ) - ) - ( AppN Nothing + ( Ref Nothing + ( Local + ( Name "x62" ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x63" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) + ( Name "withInc$w" ) ) ) ( Ref Nothing ( Local - ( Name "x74" ) - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x75" ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x75" ) - ) :| [] - ) - ) - ( Abs Nothing + ( Name "x63" ) + ) :| + [ AbsN Nothing ( ParamNamed Nothing - ( Name "x76" ) + ( Name "x64" ) :| [] ) ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x76" ) - ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongCallbackChain.Test" ) + ( Name "withInc$w" ) ) ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x77" ) - ) - ( AppN Nothing + ( Ref Nothing + ( Local + ( Name "x64" ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x65" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) + ( Name "withInc$w" ) ) ) ( Ref Nothing ( Local - ( Name "x77" ) - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x78" ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x78" ) - ) :| [] - ) - ) - ( Abs Nothing + ( Name "x65" ) + ) :| + [ AbsN Nothing ( ParamNamed Nothing - ( Name "x79" ) + ( Name "x66" ) :| [] ) ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x79" ) - ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongCallbackChain.Test" ) + ( Name "withInc$w" ) ) ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x80" ) - ) - ( AppN Nothing - ( Ref Nothing - ( Local - ( Name "$kont192" ) - ) + ( Ref Nothing + ( Local + ( Name "x66" ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x67" ) :| [] ) - ( Ref Nothing - ( Local - ( Name "x80" ) - ) :| [] + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongCallbackChain.Test" ) + ( Name "withInc$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x67" ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x68" ) :| [] + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongCallbackChain.Test" ) + ( Name "withInc$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x68" ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x69" ) :| [] + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongCallbackChain.Test" ) + ( Name "withInc$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x69" ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x70" ) :| [] + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongCallbackChain.Test" ) + ( Name "withInc$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x70" ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x71" ) :| [] + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongCallbackChain.Test" ) + ( Name "withInc$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x71" ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x72" ) :| [] + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongCallbackChain.Test" ) + ( Name "withInc$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x72" ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x73" ) :| [] + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongCallbackChain.Test" ) + ( Name "withInc$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x73" ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x74" ) :| [] + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongCallbackChain.Test" ) + ( Name "withInc$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x74" ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x75" ) :| [] + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongCallbackChain.Test" ) + ( Name "withInc$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x75" ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x76" ) :| [] + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongCallbackChain.Test" ) + ( Name "withInc$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x76" ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x77" ) :| [] + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongCallbackChain.Test" ) + ( Name "withInc$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x77" ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x78" ) :| [] + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongCallbackChain.Test" ) + ( Name "withInc$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x78" ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x79" ) :| [] + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongCallbackChain.Test" ) + ( Name "withInc$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x79" ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x80" ) :| [] + ) + ( AppN Nothing + ( Ref Nothing + ( Local + ( Name "$kont192" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x80" ) + ) :| [] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) ) ) ] ) ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) ( Name "withInc" ) ) - ) - ( LiteralInt Nothing 0 :| [] ) + ( Ref Nothing + ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) ( Name "withInc$w" ) ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x1" ) ) - ( AppN Nothing + ( LiteralInt Nothing 0 :| + [ AbsN Nothing + ( ParamNamed Nothing ( Name "x1" ) :| [] ) ( AppN Nothing ( Ref Nothing - ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) ( Name "withInc" ) ) + ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) ( Name "withInc$w" ) ) ) - ( Ref Nothing ( Local ( Name "x1" ) ) :| [] ) - ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x2" ) ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) ( Name "withInc" ) ) - ) - ( Ref Nothing ( Local ( Name "x2" ) ) :| [] ) - ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x3" ) ) + ( Ref Nothing + ( Local ( Name "x1" ) ) :| + [ AbsN Nothing + ( ParamNamed Nothing ( Name "x2" ) :| [] ) ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) - ) + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongCallbackChain.Test" ) + ( Name "withInc$w" ) ) - ( Ref Nothing ( Local ( Name "x3" ) ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x4" ) ) - ( AppN Nothing + ( Ref Nothing + ( Local ( Name "x2" ) ) :| + [ AbsN Nothing + ( ParamNamed Nothing ( Name "x3" ) :| [] ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) + ( Name "withInc$w" ) ) ) - ( Ref Nothing ( Local ( Name "x4" ) ) :| [] ) - ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x5" ) ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) - ) - ) - ( Ref Nothing ( Local ( Name "x5" ) ) :| [] ) - ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x6" ) ) + ( Ref Nothing + ( Local ( Name "x3" ) ) :| + [ AbsN Nothing + ( ParamNamed Nothing ( Name "x4" ) :| [] ) ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) - ) + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongCallbackChain.Test" ) + ( Name "withInc$w" ) ) - ( Ref Nothing ( Local ( Name "x6" ) ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x7" ) ) - ( AppN Nothing + ( Ref Nothing + ( Local ( Name "x4" ) ) :| + [ AbsN Nothing + ( ParamNamed Nothing ( Name "x5" ) :| [] ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) + ( Name "withInc$w" ) ) ) - ( Ref Nothing ( Local ( Name "x7" ) ) :| [] ) - ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x8" ) ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) - ) - ) - ( Ref Nothing ( Local ( Name "x8" ) ) :| [] ) - ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x9" ) ) + ( Ref Nothing + ( Local ( Name "x5" ) ) :| + [ AbsN Nothing + ( ParamNamed Nothing ( Name "x6" ) :| [] ) ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) - ) + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongCallbackChain.Test" ) + ( Name "withInc$w" ) ) - ( Ref Nothing ( Local ( Name "x9" ) ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x10" ) ) - ( AppN Nothing + ( Ref Nothing + ( Local ( Name "x6" ) ) :| + [ AbsN Nothing + ( ParamNamed Nothing ( Name "x7" ) :| [] ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) + ( Name "withInc$w" ) ) ) - ( Ref Nothing ( Local ( Name "x10" ) ) :| [] ) - ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x11" ) ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) - ) - ) - ( Ref Nothing - ( Local ( Name "x11" ) ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x12" ) ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) - ) - ) - ( Ref Nothing - ( Local ( Name "x12" ) ) :| [] + ( Ref Nothing + ( Local ( Name "x7" ) ) :| + [ AbsN Nothing + ( ParamNamed Nothing ( Name "x8" ) :| [] ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongCallbackChain.Test" ) + ( Name "withInc$w" ) ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x13" ) ) - ( AppN Nothing + ( Ref Nothing + ( Local ( Name "x8" ) ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x9" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) + ( Name "withInc$w" ) ) ) ( Ref Nothing - ( Local ( Name "x13" ) ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x14" ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) - ) - ) - ( Ref Nothing - ( Local ( Name "x14" ) ) :| [] - ) - ) - ( Abs Nothing + ( Local ( Name "x9" ) ) :| + [ AbsN Nothing ( ParamNamed Nothing - ( Name "x15" ) + ( Name "x10" ) :| [] ) ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x15" ) - ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongCallbackChain.Test" ) + ( Name "withInc$w" ) ) ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x16" ) - ) - ( AppN Nothing + ( Ref Nothing + ( Local ( Name "x10" ) ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x11" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) + ( Name "withInc$w" ) ) ) ( Ref Nothing ( Local - ( Name "x16" ) - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x17" ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x17" ) - ) :| [] - ) - ) - ( Abs Nothing + ( Name "x11" ) + ) :| + [ AbsN Nothing ( ParamNamed Nothing - ( Name "x18" ) + ( Name "x12" ) :| [] ) ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x18" ) - ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongCallbackChain.Test" ) + ( Name "withInc$w" ) ) ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x19" ) - ) - ( AppN Nothing + ( Ref Nothing + ( Local + ( Name "x12" ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x13" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) + ( Name "withInc$w" ) ) ) ( Ref Nothing ( Local - ( Name "x19" ) - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x20" ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x20" ) - ) :| [] - ) - ) - ( Abs Nothing + ( Name "x13" ) + ) :| + [ AbsN Nothing ( ParamNamed Nothing - ( Name "x21" ) + ( Name "x14" ) :| [] ) ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x21" ) - ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongCallbackChain.Test" ) + ( Name "withInc$w" ) ) ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x22" ) - ) - ( AppN Nothing + ( Ref Nothing + ( Local + ( Name "x14" ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x15" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) + ( Name "withInc$w" ) ) ) ( Ref Nothing ( Local - ( Name "x22" ) - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x23" ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x23" ) - ) :| [] - ) - ) - ( Abs Nothing + ( Name "x15" ) + ) :| + [ AbsN Nothing ( ParamNamed Nothing - ( Name "x24" ) + ( Name "x16" ) :| [] ) ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x24" ) - ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongCallbackChain.Test" ) + ( Name "withInc$w" ) ) ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x25" ) - ) - ( AppN Nothing + ( Ref Nothing + ( Local + ( Name "x16" ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x17" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) + ( Name "withInc$w" ) ) ) ( Ref Nothing ( Local - ( Name "x25" ) - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x26" ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x26" ) - ) :| [] - ) - ) - ( Abs Nothing + ( Name "x17" ) + ) :| + [ AbsN Nothing ( ParamNamed Nothing - ( Name "x27" ) + ( Name "x18" ) :| [] ) ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x27" ) - ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongCallbackChain.Test" ) + ( Name "withInc$w" ) ) ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x28" ) - ) - ( AppN Nothing + ( Ref Nothing + ( Local + ( Name "x18" ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x19" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) + ( Name "withInc$w" ) ) ) ( Ref Nothing ( Local - ( Name "x28" ) - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x29" ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x29" ) - ) :| [] - ) - ) - ( Abs Nothing + ( Name "x19" ) + ) :| + [ AbsN Nothing ( ParamNamed Nothing - ( Name "x30" ) + ( Name "x20" ) :| [] ) ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x30" ) - ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongCallbackChain.Test" ) + ( Name "withInc$w" ) ) ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x31" ) - ) - ( AppN Nothing + ( Ref Nothing + ( Local + ( Name "x20" ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x21" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) + ( Name "withInc$w" ) ) ) ( Ref Nothing ( Local - ( Name "x31" ) - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x32" ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x32" ) - ) :| [] - ) - ) - ( Abs Nothing + ( Name "x21" ) + ) :| + [ AbsN Nothing ( ParamNamed Nothing - ( Name "x33" ) + ( Name "x22" ) :| [] ) ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x33" ) - ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongCallbackChain.Test" ) + ( Name "withInc$w" ) ) ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x34" ) - ) - ( AppN Nothing + ( Ref Nothing + ( Local + ( Name "x22" ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x23" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) + ( Name "withInc$w" ) ) ) ( Ref Nothing ( Local - ( Name "x34" ) - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x35" ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x35" ) - ) :| [] - ) - ) - ( Abs Nothing + ( Name "x23" ) + ) :| + [ AbsN Nothing ( ParamNamed Nothing - ( Name "x36" ) + ( Name "x24" ) :| [] ) ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x36" ) - ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongCallbackChain.Test" ) + ( Name "withInc$w" ) ) ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x37" ) - ) - ( AppN Nothing + ( Ref Nothing + ( Local + ( Name "x24" ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x25" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) + ( Name "withInc$w" ) ) ) ( Ref Nothing ( Local - ( Name "x37" ) - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x38" ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x38" ) - ) :| [] - ) - ) - ( Abs Nothing + ( Name "x25" ) + ) :| + [ AbsN Nothing ( ParamNamed Nothing - ( Name "x39" ) + ( Name "x26" ) :| [] ) ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x39" ) - ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongCallbackChain.Test" ) + ( Name "withInc$w" ) ) ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x40" ) - ) - ( AppN Nothing - ( Ref Nothing - ( Local - ( Name "$kont194" ) - ) + ( Ref Nothing + ( Local + ( Name "x26" ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x27" ) :| [] ) - ( Ref Nothing - ( Local - ( Name "x40" ) - ) :| [] + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongCallbackChain.Test" ) + ( Name "withInc$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x27" ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x28" ) :| [] + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongCallbackChain.Test" ) + ( Name "withInc$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x28" ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x29" ) :| [] + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongCallbackChain.Test" ) + ( Name "withInc$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x29" ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x30" ) :| [] + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongCallbackChain.Test" ) + ( Name "withInc$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x30" ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x31" ) :| [] + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongCallbackChain.Test" ) + ( Name "withInc$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x31" ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x32" ) :| [] + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongCallbackChain.Test" ) + ( Name "withInc$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x32" ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x33" ) :| [] + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongCallbackChain.Test" ) + ( Name "withInc$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x33" ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x34" ) :| [] + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongCallbackChain.Test" ) + ( Name "withInc$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x34" ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x35" ) :| [] + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongCallbackChain.Test" ) + ( Name "withInc$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x35" ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x36" ) :| [] + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongCallbackChain.Test" ) + ( Name "withInc$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x36" ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x37" ) :| [] + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongCallbackChain.Test" ) + ( Name "withInc$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x37" ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x38" ) :| [] + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongCallbackChain.Test" ) + ( Name "withInc$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x38" ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x39" ) :| [] + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongCallbackChain.Test" ) + ( Name "withInc$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x39" ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x40" ) :| [] + ) + ( AppN Nothing + ( Ref Nothing + ( Local + ( Name "$kont194" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x40" ) + ) :| [] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) ) ) diff --git a/test/ps/output/Golden.LongCallbackChain.Test/golden.lua b/test/ps/output/Golden.LongCallbackChain.Test/golden.lua index 268f9238..667634be 100644 --- a/test/ps/output/Golden.LongCallbackChain.Test/golden.lua +++ b/test/ps/output/Golden.LongCallbackChain.Test/golden.lua @@ -26,47 +26,50 @@ end)() M.Effect_Console_foreign = { log = function(s) return function() print(s) end end } -M.Golden_LongCallbackChain_Test_withInc = function(n) - return function(k) - if (function() - if "Data.Ordering∷Ordering.LT" == (M.Data_Ord_foreign.ordIntImpl({ - ["$ctor"] = "Data.Ordering∷Ordering.LT" - })({ ["$ctor"] = "Data.Ordering∷Ordering.EQ" })({ - ["$ctor"] = "Data.Ordering∷Ordering.GT" - })(n)(0))["$ctor"] then - return true - else - return false - end - end)() then - return M.Golden_LongCallbackChain_Test_withInc(M.Data_Semiring_foreign.intAdd(n)(1))(k) +M.Golden_LongCallbackChain_Test_withInc_S_w = function(n, k) + if (function() + if "Data.Ordering∷Ordering.LT" == (M.Data_Ord_foreign.ordIntImpl({ + ["$ctor"] = "Data.Ordering∷Ordering.LT" + })({ ["$ctor"] = "Data.Ordering∷Ordering.EQ" })({ + ["$ctor"] = "Data.Ordering∷Ordering.GT" + })(n)(0))["$ctor"] then + return true else - return k(M.Data_Semiring_foreign.intAdd(n)(1)) + return false end + end)() then + return M.Golden_LongCallbackChain_Test_withInc_S_w(M.Data_Semiring_foreign.intAdd(n)(1), k) + else + return k(M.Data_Semiring_foreign.intAdd(n)(1)) + end +end +M.Golden_LongCallbackChain_Test_withInc = function(withInc_S_p1) + return function(withInc_S_p2) + return M.Golden_LongCallbackChain_Test_withInc_S_w(withInc_S_p1, withInc_S_p2) end end M.Golden_LongCallbackChain_Test_compute = (function() local _S_kont182 = function(x280_S_183) - return M.Golden_LongCallbackChain_Test_withInc(x280_S_183)(function(x281) - return M.Golden_LongCallbackChain_Test_withInc(x281)(function(x282) - return M.Golden_LongCallbackChain_Test_withInc(x282)(function(x283) - return M.Golden_LongCallbackChain_Test_withInc(x283)(function(x284) - return M.Golden_LongCallbackChain_Test_withInc(x284)(function(x285) - return M.Golden_LongCallbackChain_Test_withInc(x285)(function( x286 ) - return M.Golden_LongCallbackChain_Test_withInc(x286)(function( x287 ) - return M.Golden_LongCallbackChain_Test_withInc(x287)(function( x288 ) - return M.Golden_LongCallbackChain_Test_withInc(x288)(function( x289 ) - return M.Golden_LongCallbackChain_Test_withInc(x289)(function( x290 ) - return M.Golden_LongCallbackChain_Test_withInc(x290)(function( x291 ) - return M.Golden_LongCallbackChain_Test_withInc(x291)(function( x292 ) - return M.Golden_LongCallbackChain_Test_withInc(x292)(function( x293 ) - return M.Golden_LongCallbackChain_Test_withInc(x293)(function( x294 ) - return M.Golden_LongCallbackChain_Test_withInc(x294)(function( x295 ) - return M.Golden_LongCallbackChain_Test_withInc(x295)(function( x296 ) - return M.Golden_LongCallbackChain_Test_withInc(x296)(function( x297 ) - return M.Golden_LongCallbackChain_Test_withInc(x297)(function( x298 ) - return M.Golden_LongCallbackChain_Test_withInc(x298)(function( x299 ) - return M.Golden_LongCallbackChain_Test_withInc(x299)(function( x300 ) + return M.Golden_LongCallbackChain_Test_withInc_S_w(x280_S_183, function( x281 ) + return M.Golden_LongCallbackChain_Test_withInc_S_w(x281, function(x282) + return M.Golden_LongCallbackChain_Test_withInc_S_w(x282, function(x283) + return M.Golden_LongCallbackChain_Test_withInc_S_w(x283, function( x284 ) + return M.Golden_LongCallbackChain_Test_withInc_S_w(x284, function( x285 ) + return M.Golden_LongCallbackChain_Test_withInc_S_w(x285, function( x286 ) + return M.Golden_LongCallbackChain_Test_withInc_S_w(x286, function( x287 ) + return M.Golden_LongCallbackChain_Test_withInc_S_w(x287, function( x288 ) + return M.Golden_LongCallbackChain_Test_withInc_S_w(x288, function( x289 ) + return M.Golden_LongCallbackChain_Test_withInc_S_w(x289, function( x290 ) + return M.Golden_LongCallbackChain_Test_withInc_S_w(x290, function( x291 ) + return M.Golden_LongCallbackChain_Test_withInc_S_w(x291, function( x292 ) + return M.Golden_LongCallbackChain_Test_withInc_S_w(x292, function( x293 ) + return M.Golden_LongCallbackChain_Test_withInc_S_w(x293, function( x294 ) + return M.Golden_LongCallbackChain_Test_withInc_S_w(x294, function( x295 ) + return M.Golden_LongCallbackChain_Test_withInc_S_w(x295, function( x296 ) + return M.Golden_LongCallbackChain_Test_withInc_S_w(x296, function( x297 ) + return M.Golden_LongCallbackChain_Test_withInc_S_w(x297, function( x298 ) + return M.Golden_LongCallbackChain_Test_withInc_S_w(x298, function( x299 ) + return M.Golden_LongCallbackChain_Test_withInc_S_w(x299, function( x300 ) return x300 end) end) @@ -90,46 +93,46 @@ M.Golden_LongCallbackChain_Test_compute = (function() end) end local _S_kont184 = function(x240_S_185) - return M.Golden_LongCallbackChain_Test_withInc(x240_S_185)(function(x241) - return M.Golden_LongCallbackChain_Test_withInc(x241)(function(x242) - return M.Golden_LongCallbackChain_Test_withInc(x242)(function(x243) - return M.Golden_LongCallbackChain_Test_withInc(x243)(function(x244) - return M.Golden_LongCallbackChain_Test_withInc(x244)(function(x245) - return M.Golden_LongCallbackChain_Test_withInc(x245)(function( x246 ) - return M.Golden_LongCallbackChain_Test_withInc(x246)(function( x247 ) - return M.Golden_LongCallbackChain_Test_withInc(x247)(function( x248 ) - return M.Golden_LongCallbackChain_Test_withInc(x248)(function( x249 ) - return M.Golden_LongCallbackChain_Test_withInc(x249)(function( x250 ) - return M.Golden_LongCallbackChain_Test_withInc(x250)(function( x251 ) - return M.Golden_LongCallbackChain_Test_withInc(x251)(function( x252 ) - return M.Golden_LongCallbackChain_Test_withInc(x252)(function( x253 ) - return M.Golden_LongCallbackChain_Test_withInc(x253)(function( x254 ) - return M.Golden_LongCallbackChain_Test_withInc(x254)(function( x255 ) - return M.Golden_LongCallbackChain_Test_withInc(x255)(function( x256 ) - return M.Golden_LongCallbackChain_Test_withInc(x256)(function( x257 ) - return M.Golden_LongCallbackChain_Test_withInc(x257)(function( x258 ) - return M.Golden_LongCallbackChain_Test_withInc(x258)(function( x259 ) - return M.Golden_LongCallbackChain_Test_withInc(x259)(function( x260 ) - return M.Golden_LongCallbackChain_Test_withInc(x260)(function( x261 ) - return M.Golden_LongCallbackChain_Test_withInc(x261)(function( x262 ) - return M.Golden_LongCallbackChain_Test_withInc(x262)(function( x263 ) - return M.Golden_LongCallbackChain_Test_withInc(x263)(function( x264 ) - return M.Golden_LongCallbackChain_Test_withInc(x264)(function( x265 ) - return M.Golden_LongCallbackChain_Test_withInc(x265)(function( x266 ) - return M.Golden_LongCallbackChain_Test_withInc(x266)(function( x267 ) - return M.Golden_LongCallbackChain_Test_withInc(x267)(function( x268 ) - return M.Golden_LongCallbackChain_Test_withInc(x268)(function( x269 ) - return M.Golden_LongCallbackChain_Test_withInc(x269)(function( x270 ) - return M.Golden_LongCallbackChain_Test_withInc(x270)(function( x271 ) - return M.Golden_LongCallbackChain_Test_withInc(x271)(function( x272 ) - return M.Golden_LongCallbackChain_Test_withInc(x272)(function( x273 ) - return M.Golden_LongCallbackChain_Test_withInc(x273)(function( x274 ) - return M.Golden_LongCallbackChain_Test_withInc(x274)(function( x275 ) - return M.Golden_LongCallbackChain_Test_withInc(x275)(function( x276 ) - return M.Golden_LongCallbackChain_Test_withInc(x276)(function( x277 ) - return M.Golden_LongCallbackChain_Test_withInc(x277)(function( x278 ) - return M.Golden_LongCallbackChain_Test_withInc(x278)(function( x279 ) - return M.Golden_LongCallbackChain_Test_withInc(x279)(function( x280 ) + return M.Golden_LongCallbackChain_Test_withInc_S_w(x240_S_185, function( x241 ) + return M.Golden_LongCallbackChain_Test_withInc_S_w(x241, function(x242) + return M.Golden_LongCallbackChain_Test_withInc_S_w(x242, function(x243) + return M.Golden_LongCallbackChain_Test_withInc_S_w(x243, function( x244 ) + return M.Golden_LongCallbackChain_Test_withInc_S_w(x244, function( x245 ) + return M.Golden_LongCallbackChain_Test_withInc_S_w(x245, function( x246 ) + return M.Golden_LongCallbackChain_Test_withInc_S_w(x246, function( x247 ) + return M.Golden_LongCallbackChain_Test_withInc_S_w(x247, function( x248 ) + return M.Golden_LongCallbackChain_Test_withInc_S_w(x248, function( x249 ) + return M.Golden_LongCallbackChain_Test_withInc_S_w(x249, function( x250 ) + return M.Golden_LongCallbackChain_Test_withInc_S_w(x250, function( x251 ) + return M.Golden_LongCallbackChain_Test_withInc_S_w(x251, function( x252 ) + return M.Golden_LongCallbackChain_Test_withInc_S_w(x252, function( x253 ) + return M.Golden_LongCallbackChain_Test_withInc_S_w(x253, function( x254 ) + return M.Golden_LongCallbackChain_Test_withInc_S_w(x254, function( x255 ) + return M.Golden_LongCallbackChain_Test_withInc_S_w(x255, function( x256 ) + return M.Golden_LongCallbackChain_Test_withInc_S_w(x256, function( x257 ) + return M.Golden_LongCallbackChain_Test_withInc_S_w(x257, function( x258 ) + return M.Golden_LongCallbackChain_Test_withInc_S_w(x258, function( x259 ) + return M.Golden_LongCallbackChain_Test_withInc_S_w(x259, function( x260 ) + return M.Golden_LongCallbackChain_Test_withInc_S_w(x260, function( x261 ) + return M.Golden_LongCallbackChain_Test_withInc_S_w(x261, function( x262 ) + return M.Golden_LongCallbackChain_Test_withInc_S_w(x262, function( x263 ) + return M.Golden_LongCallbackChain_Test_withInc_S_w(x263, function( x264 ) + return M.Golden_LongCallbackChain_Test_withInc_S_w(x264, function( x265 ) + return M.Golden_LongCallbackChain_Test_withInc_S_w(x265, function( x266 ) + return M.Golden_LongCallbackChain_Test_withInc_S_w(x266, function( x267 ) + return M.Golden_LongCallbackChain_Test_withInc_S_w(x267, function( x268 ) + return M.Golden_LongCallbackChain_Test_withInc_S_w(x268, function( x269 ) + return M.Golden_LongCallbackChain_Test_withInc_S_w(x269, function( x270 ) + return M.Golden_LongCallbackChain_Test_withInc_S_w(x270, function( x271 ) + return M.Golden_LongCallbackChain_Test_withInc_S_w(x271, function( x272 ) + return M.Golden_LongCallbackChain_Test_withInc_S_w(x272, function( x273 ) + return M.Golden_LongCallbackChain_Test_withInc_S_w(x273, function( x274 ) + return M.Golden_LongCallbackChain_Test_withInc_S_w(x274, function( x275 ) + return M.Golden_LongCallbackChain_Test_withInc_S_w(x275, function( x276 ) + return M.Golden_LongCallbackChain_Test_withInc_S_w(x276, function( x277 ) + return M.Golden_LongCallbackChain_Test_withInc_S_w(x277, function( x278 ) + return M.Golden_LongCallbackChain_Test_withInc_S_w(x278, function( x279 ) + return M.Golden_LongCallbackChain_Test_withInc_S_w(x279, function( x280 ) return _S_kont182(x280) end) end) @@ -173,46 +176,46 @@ M.Golden_LongCallbackChain_Test_compute = (function() end) end local _S_kont186 = function(x200_S_187) - return M.Golden_LongCallbackChain_Test_withInc(x200_S_187)(function(x201) - return M.Golden_LongCallbackChain_Test_withInc(x201)(function(x202) - return M.Golden_LongCallbackChain_Test_withInc(x202)(function(x203) - return M.Golden_LongCallbackChain_Test_withInc(x203)(function(x204) - return M.Golden_LongCallbackChain_Test_withInc(x204)(function(x205) - return M.Golden_LongCallbackChain_Test_withInc(x205)(function( x206 ) - return M.Golden_LongCallbackChain_Test_withInc(x206)(function( x207 ) - return M.Golden_LongCallbackChain_Test_withInc(x207)(function( x208 ) - return M.Golden_LongCallbackChain_Test_withInc(x208)(function( x209 ) - return M.Golden_LongCallbackChain_Test_withInc(x209)(function( x210 ) - return M.Golden_LongCallbackChain_Test_withInc(x210)(function( x211 ) - return M.Golden_LongCallbackChain_Test_withInc(x211)(function( x212 ) - return M.Golden_LongCallbackChain_Test_withInc(x212)(function( x213 ) - return M.Golden_LongCallbackChain_Test_withInc(x213)(function( x214 ) - return M.Golden_LongCallbackChain_Test_withInc(x214)(function( x215 ) - return M.Golden_LongCallbackChain_Test_withInc(x215)(function( x216 ) - return M.Golden_LongCallbackChain_Test_withInc(x216)(function( x217 ) - return M.Golden_LongCallbackChain_Test_withInc(x217)(function( x218 ) - return M.Golden_LongCallbackChain_Test_withInc(x218)(function( x219 ) - return M.Golden_LongCallbackChain_Test_withInc(x219)(function( x220 ) - return M.Golden_LongCallbackChain_Test_withInc(x220)(function( x221 ) - return M.Golden_LongCallbackChain_Test_withInc(x221)(function( x222 ) - return M.Golden_LongCallbackChain_Test_withInc(x222)(function( x223 ) - return M.Golden_LongCallbackChain_Test_withInc(x223)(function( x224 ) - return M.Golden_LongCallbackChain_Test_withInc(x224)(function( x225 ) - return M.Golden_LongCallbackChain_Test_withInc(x225)(function( x226 ) - return M.Golden_LongCallbackChain_Test_withInc(x226)(function( x227 ) - return M.Golden_LongCallbackChain_Test_withInc(x227)(function( x228 ) - return M.Golden_LongCallbackChain_Test_withInc(x228)(function( x229 ) - return M.Golden_LongCallbackChain_Test_withInc(x229)(function( x230 ) - return M.Golden_LongCallbackChain_Test_withInc(x230)(function( x231 ) - return M.Golden_LongCallbackChain_Test_withInc(x231)(function( x232 ) - return M.Golden_LongCallbackChain_Test_withInc(x232)(function( x233 ) - return M.Golden_LongCallbackChain_Test_withInc(x233)(function( x234 ) - return M.Golden_LongCallbackChain_Test_withInc(x234)(function( x235 ) - return M.Golden_LongCallbackChain_Test_withInc(x235)(function( x236 ) - return M.Golden_LongCallbackChain_Test_withInc(x236)(function( x237 ) - return M.Golden_LongCallbackChain_Test_withInc(x237)(function( x238 ) - return M.Golden_LongCallbackChain_Test_withInc(x238)(function( x239 ) - return M.Golden_LongCallbackChain_Test_withInc(x239)(function( x240 ) + return M.Golden_LongCallbackChain_Test_withInc_S_w(x200_S_187, function( x201 ) + return M.Golden_LongCallbackChain_Test_withInc_S_w(x201, function(x202) + return M.Golden_LongCallbackChain_Test_withInc_S_w(x202, function(x203) + return M.Golden_LongCallbackChain_Test_withInc_S_w(x203, function( x204 ) + return M.Golden_LongCallbackChain_Test_withInc_S_w(x204, function( x205 ) + return M.Golden_LongCallbackChain_Test_withInc_S_w(x205, function( x206 ) + return M.Golden_LongCallbackChain_Test_withInc_S_w(x206, function( x207 ) + return M.Golden_LongCallbackChain_Test_withInc_S_w(x207, function( x208 ) + return M.Golden_LongCallbackChain_Test_withInc_S_w(x208, function( x209 ) + return M.Golden_LongCallbackChain_Test_withInc_S_w(x209, function( x210 ) + return M.Golden_LongCallbackChain_Test_withInc_S_w(x210, function( x211 ) + return M.Golden_LongCallbackChain_Test_withInc_S_w(x211, function( x212 ) + return M.Golden_LongCallbackChain_Test_withInc_S_w(x212, function( x213 ) + return M.Golden_LongCallbackChain_Test_withInc_S_w(x213, function( x214 ) + return M.Golden_LongCallbackChain_Test_withInc_S_w(x214, function( x215 ) + return M.Golden_LongCallbackChain_Test_withInc_S_w(x215, function( x216 ) + return M.Golden_LongCallbackChain_Test_withInc_S_w(x216, function( x217 ) + return M.Golden_LongCallbackChain_Test_withInc_S_w(x217, function( x218 ) + return M.Golden_LongCallbackChain_Test_withInc_S_w(x218, function( x219 ) + return M.Golden_LongCallbackChain_Test_withInc_S_w(x219, function( x220 ) + return M.Golden_LongCallbackChain_Test_withInc_S_w(x220, function( x221 ) + return M.Golden_LongCallbackChain_Test_withInc_S_w(x221, function( x222 ) + return M.Golden_LongCallbackChain_Test_withInc_S_w(x222, function( x223 ) + return M.Golden_LongCallbackChain_Test_withInc_S_w(x223, function( x224 ) + return M.Golden_LongCallbackChain_Test_withInc_S_w(x224, function( x225 ) + return M.Golden_LongCallbackChain_Test_withInc_S_w(x225, function( x226 ) + return M.Golden_LongCallbackChain_Test_withInc_S_w(x226, function( x227 ) + return M.Golden_LongCallbackChain_Test_withInc_S_w(x227, function( x228 ) + return M.Golden_LongCallbackChain_Test_withInc_S_w(x228, function( x229 ) + return M.Golden_LongCallbackChain_Test_withInc_S_w(x229, function( x230 ) + return M.Golden_LongCallbackChain_Test_withInc_S_w(x230, function( x231 ) + return M.Golden_LongCallbackChain_Test_withInc_S_w(x231, function( x232 ) + return M.Golden_LongCallbackChain_Test_withInc_S_w(x232, function( x233 ) + return M.Golden_LongCallbackChain_Test_withInc_S_w(x233, function( x234 ) + return M.Golden_LongCallbackChain_Test_withInc_S_w(x234, function( x235 ) + return M.Golden_LongCallbackChain_Test_withInc_S_w(x235, function( x236 ) + return M.Golden_LongCallbackChain_Test_withInc_S_w(x236, function( x237 ) + return M.Golden_LongCallbackChain_Test_withInc_S_w(x237, function( x238 ) + return M.Golden_LongCallbackChain_Test_withInc_S_w(x238, function( x239 ) + return M.Golden_LongCallbackChain_Test_withInc_S_w(x239, function( x240 ) return _S_kont184(x240) end) end) @@ -256,46 +259,46 @@ M.Golden_LongCallbackChain_Test_compute = (function() end) end local _S_kont188 = function(x160_S_189) - return M.Golden_LongCallbackChain_Test_withInc(x160_S_189)(function(x161) - return M.Golden_LongCallbackChain_Test_withInc(x161)(function(x162) - return M.Golden_LongCallbackChain_Test_withInc(x162)(function(x163) - return M.Golden_LongCallbackChain_Test_withInc(x163)(function(x164) - return M.Golden_LongCallbackChain_Test_withInc(x164)(function(x165) - return M.Golden_LongCallbackChain_Test_withInc(x165)(function( x166 ) - return M.Golden_LongCallbackChain_Test_withInc(x166)(function( x167 ) - return M.Golden_LongCallbackChain_Test_withInc(x167)(function( x168 ) - return M.Golden_LongCallbackChain_Test_withInc(x168)(function( x169 ) - return M.Golden_LongCallbackChain_Test_withInc(x169)(function( x170 ) - return M.Golden_LongCallbackChain_Test_withInc(x170)(function( x171 ) - return M.Golden_LongCallbackChain_Test_withInc(x171)(function( x172 ) - return M.Golden_LongCallbackChain_Test_withInc(x172)(function( x173 ) - return M.Golden_LongCallbackChain_Test_withInc(x173)(function( x174 ) - return M.Golden_LongCallbackChain_Test_withInc(x174)(function( x175 ) - return M.Golden_LongCallbackChain_Test_withInc(x175)(function( x176 ) - return M.Golden_LongCallbackChain_Test_withInc(x176)(function( x177 ) - return M.Golden_LongCallbackChain_Test_withInc(x177)(function( x178 ) - return M.Golden_LongCallbackChain_Test_withInc(x178)(function( x179 ) - return M.Golden_LongCallbackChain_Test_withInc(x179)(function( x180 ) - return M.Golden_LongCallbackChain_Test_withInc(x180)(function( x181 ) - return M.Golden_LongCallbackChain_Test_withInc(x181)(function( x182 ) - return M.Golden_LongCallbackChain_Test_withInc(x182)(function( x183 ) - return M.Golden_LongCallbackChain_Test_withInc(x183)(function( x184 ) - return M.Golden_LongCallbackChain_Test_withInc(x184)(function( x185 ) - return M.Golden_LongCallbackChain_Test_withInc(x185)(function( x186 ) - return M.Golden_LongCallbackChain_Test_withInc(x186)(function( x187 ) - return M.Golden_LongCallbackChain_Test_withInc(x187)(function( x188 ) - return M.Golden_LongCallbackChain_Test_withInc(x188)(function( x189 ) - return M.Golden_LongCallbackChain_Test_withInc(x189)(function( x190 ) - return M.Golden_LongCallbackChain_Test_withInc(x190)(function( x191 ) - return M.Golden_LongCallbackChain_Test_withInc(x191)(function( x192 ) - return M.Golden_LongCallbackChain_Test_withInc(x192)(function( x193 ) - return M.Golden_LongCallbackChain_Test_withInc(x193)(function( x194 ) - return M.Golden_LongCallbackChain_Test_withInc(x194)(function( x195 ) - return M.Golden_LongCallbackChain_Test_withInc(x195)(function( x196 ) - return M.Golden_LongCallbackChain_Test_withInc(x196)(function( x197 ) - return M.Golden_LongCallbackChain_Test_withInc(x197)(function( x198 ) - return M.Golden_LongCallbackChain_Test_withInc(x198)(function( x199 ) - return M.Golden_LongCallbackChain_Test_withInc(x199)(function( x200 ) + return M.Golden_LongCallbackChain_Test_withInc_S_w(x160_S_189, function( x161 ) + return M.Golden_LongCallbackChain_Test_withInc_S_w(x161, function(x162) + return M.Golden_LongCallbackChain_Test_withInc_S_w(x162, function(x163) + return M.Golden_LongCallbackChain_Test_withInc_S_w(x163, function( x164 ) + return M.Golden_LongCallbackChain_Test_withInc_S_w(x164, function( x165 ) + return M.Golden_LongCallbackChain_Test_withInc_S_w(x165, function( x166 ) + return M.Golden_LongCallbackChain_Test_withInc_S_w(x166, function( x167 ) + return M.Golden_LongCallbackChain_Test_withInc_S_w(x167, function( x168 ) + return M.Golden_LongCallbackChain_Test_withInc_S_w(x168, function( x169 ) + return M.Golden_LongCallbackChain_Test_withInc_S_w(x169, function( x170 ) + return M.Golden_LongCallbackChain_Test_withInc_S_w(x170, function( x171 ) + return M.Golden_LongCallbackChain_Test_withInc_S_w(x171, function( x172 ) + return M.Golden_LongCallbackChain_Test_withInc_S_w(x172, function( x173 ) + return M.Golden_LongCallbackChain_Test_withInc_S_w(x173, function( x174 ) + return M.Golden_LongCallbackChain_Test_withInc_S_w(x174, function( x175 ) + return M.Golden_LongCallbackChain_Test_withInc_S_w(x175, function( x176 ) + return M.Golden_LongCallbackChain_Test_withInc_S_w(x176, function( x177 ) + return M.Golden_LongCallbackChain_Test_withInc_S_w(x177, function( x178 ) + return M.Golden_LongCallbackChain_Test_withInc_S_w(x178, function( x179 ) + return M.Golden_LongCallbackChain_Test_withInc_S_w(x179, function( x180 ) + return M.Golden_LongCallbackChain_Test_withInc_S_w(x180, function( x181 ) + return M.Golden_LongCallbackChain_Test_withInc_S_w(x181, function( x182 ) + return M.Golden_LongCallbackChain_Test_withInc_S_w(x182, function( x183 ) + return M.Golden_LongCallbackChain_Test_withInc_S_w(x183, function( x184 ) + return M.Golden_LongCallbackChain_Test_withInc_S_w(x184, function( x185 ) + return M.Golden_LongCallbackChain_Test_withInc_S_w(x185, function( x186 ) + return M.Golden_LongCallbackChain_Test_withInc_S_w(x186, function( x187 ) + return M.Golden_LongCallbackChain_Test_withInc_S_w(x187, function( x188 ) + return M.Golden_LongCallbackChain_Test_withInc_S_w(x188, function( x189 ) + return M.Golden_LongCallbackChain_Test_withInc_S_w(x189, function( x190 ) + return M.Golden_LongCallbackChain_Test_withInc_S_w(x190, function( x191 ) + return M.Golden_LongCallbackChain_Test_withInc_S_w(x191, function( x192 ) + return M.Golden_LongCallbackChain_Test_withInc_S_w(x192, function( x193 ) + return M.Golden_LongCallbackChain_Test_withInc_S_w(x193, function( x194 ) + return M.Golden_LongCallbackChain_Test_withInc_S_w(x194, function( x195 ) + return M.Golden_LongCallbackChain_Test_withInc_S_w(x195, function( x196 ) + return M.Golden_LongCallbackChain_Test_withInc_S_w(x196, function( x197 ) + return M.Golden_LongCallbackChain_Test_withInc_S_w(x197, function( x198 ) + return M.Golden_LongCallbackChain_Test_withInc_S_w(x198, function( x199 ) + return M.Golden_LongCallbackChain_Test_withInc_S_w(x199, function( x200 ) return _S_kont186(x200) end) end) @@ -339,46 +342,46 @@ M.Golden_LongCallbackChain_Test_compute = (function() end) end local _S_kont190 = function(x120_S_191) - return M.Golden_LongCallbackChain_Test_withInc(x120_S_191)(function(x121) - return M.Golden_LongCallbackChain_Test_withInc(x121)(function(x122) - return M.Golden_LongCallbackChain_Test_withInc(x122)(function(x123) - return M.Golden_LongCallbackChain_Test_withInc(x123)(function(x124) - return M.Golden_LongCallbackChain_Test_withInc(x124)(function(x125) - return M.Golden_LongCallbackChain_Test_withInc(x125)(function( x126 ) - return M.Golden_LongCallbackChain_Test_withInc(x126)(function( x127 ) - return M.Golden_LongCallbackChain_Test_withInc(x127)(function( x128 ) - return M.Golden_LongCallbackChain_Test_withInc(x128)(function( x129 ) - return M.Golden_LongCallbackChain_Test_withInc(x129)(function( x130 ) - return M.Golden_LongCallbackChain_Test_withInc(x130)(function( x131 ) - return M.Golden_LongCallbackChain_Test_withInc(x131)(function( x132 ) - return M.Golden_LongCallbackChain_Test_withInc(x132)(function( x133 ) - return M.Golden_LongCallbackChain_Test_withInc(x133)(function( x134 ) - return M.Golden_LongCallbackChain_Test_withInc(x134)(function( x135 ) - return M.Golden_LongCallbackChain_Test_withInc(x135)(function( x136 ) - return M.Golden_LongCallbackChain_Test_withInc(x136)(function( x137 ) - return M.Golden_LongCallbackChain_Test_withInc(x137)(function( x138 ) - return M.Golden_LongCallbackChain_Test_withInc(x138)(function( x139 ) - return M.Golden_LongCallbackChain_Test_withInc(x139)(function( x140 ) - return M.Golden_LongCallbackChain_Test_withInc(x140)(function( x141 ) - return M.Golden_LongCallbackChain_Test_withInc(x141)(function( x142 ) - return M.Golden_LongCallbackChain_Test_withInc(x142)(function( x143 ) - return M.Golden_LongCallbackChain_Test_withInc(x143)(function( x144 ) - return M.Golden_LongCallbackChain_Test_withInc(x144)(function( x145 ) - return M.Golden_LongCallbackChain_Test_withInc(x145)(function( x146 ) - return M.Golden_LongCallbackChain_Test_withInc(x146)(function( x147 ) - return M.Golden_LongCallbackChain_Test_withInc(x147)(function( x148 ) - return M.Golden_LongCallbackChain_Test_withInc(x148)(function( x149 ) - return M.Golden_LongCallbackChain_Test_withInc(x149)(function( x150 ) - return M.Golden_LongCallbackChain_Test_withInc(x150)(function( x151 ) - return M.Golden_LongCallbackChain_Test_withInc(x151)(function( x152 ) - return M.Golden_LongCallbackChain_Test_withInc(x152)(function( x153 ) - return M.Golden_LongCallbackChain_Test_withInc(x153)(function( x154 ) - return M.Golden_LongCallbackChain_Test_withInc(x154)(function( x155 ) - return M.Golden_LongCallbackChain_Test_withInc(x155)(function( x156 ) - return M.Golden_LongCallbackChain_Test_withInc(x156)(function( x157 ) - return M.Golden_LongCallbackChain_Test_withInc(x157)(function( x158 ) - return M.Golden_LongCallbackChain_Test_withInc(x158)(function( x159 ) - return M.Golden_LongCallbackChain_Test_withInc(x159)(function( x160 ) + return M.Golden_LongCallbackChain_Test_withInc_S_w(x120_S_191, function( x121 ) + return M.Golden_LongCallbackChain_Test_withInc_S_w(x121, function(x122) + return M.Golden_LongCallbackChain_Test_withInc_S_w(x122, function(x123) + return M.Golden_LongCallbackChain_Test_withInc_S_w(x123, function( x124 ) + return M.Golden_LongCallbackChain_Test_withInc_S_w(x124, function( x125 ) + return M.Golden_LongCallbackChain_Test_withInc_S_w(x125, function( x126 ) + return M.Golden_LongCallbackChain_Test_withInc_S_w(x126, function( x127 ) + return M.Golden_LongCallbackChain_Test_withInc_S_w(x127, function( x128 ) + return M.Golden_LongCallbackChain_Test_withInc_S_w(x128, function( x129 ) + return M.Golden_LongCallbackChain_Test_withInc_S_w(x129, function( x130 ) + return M.Golden_LongCallbackChain_Test_withInc_S_w(x130, function( x131 ) + return M.Golden_LongCallbackChain_Test_withInc_S_w(x131, function( x132 ) + return M.Golden_LongCallbackChain_Test_withInc_S_w(x132, function( x133 ) + return M.Golden_LongCallbackChain_Test_withInc_S_w(x133, function( x134 ) + return M.Golden_LongCallbackChain_Test_withInc_S_w(x134, function( x135 ) + return M.Golden_LongCallbackChain_Test_withInc_S_w(x135, function( x136 ) + return M.Golden_LongCallbackChain_Test_withInc_S_w(x136, function( x137 ) + return M.Golden_LongCallbackChain_Test_withInc_S_w(x137, function( x138 ) + return M.Golden_LongCallbackChain_Test_withInc_S_w(x138, function( x139 ) + return M.Golden_LongCallbackChain_Test_withInc_S_w(x139, function( x140 ) + return M.Golden_LongCallbackChain_Test_withInc_S_w(x140, function( x141 ) + return M.Golden_LongCallbackChain_Test_withInc_S_w(x141, function( x142 ) + return M.Golden_LongCallbackChain_Test_withInc_S_w(x142, function( x143 ) + return M.Golden_LongCallbackChain_Test_withInc_S_w(x143, function( x144 ) + return M.Golden_LongCallbackChain_Test_withInc_S_w(x144, function( x145 ) + return M.Golden_LongCallbackChain_Test_withInc_S_w(x145, function( x146 ) + return M.Golden_LongCallbackChain_Test_withInc_S_w(x146, function( x147 ) + return M.Golden_LongCallbackChain_Test_withInc_S_w(x147, function( x148 ) + return M.Golden_LongCallbackChain_Test_withInc_S_w(x148, function( x149 ) + return M.Golden_LongCallbackChain_Test_withInc_S_w(x149, function( x150 ) + return M.Golden_LongCallbackChain_Test_withInc_S_w(x150, function( x151 ) + return M.Golden_LongCallbackChain_Test_withInc_S_w(x151, function( x152 ) + return M.Golden_LongCallbackChain_Test_withInc_S_w(x152, function( x153 ) + return M.Golden_LongCallbackChain_Test_withInc_S_w(x153, function( x154 ) + return M.Golden_LongCallbackChain_Test_withInc_S_w(x154, function( x155 ) + return M.Golden_LongCallbackChain_Test_withInc_S_w(x155, function( x156 ) + return M.Golden_LongCallbackChain_Test_withInc_S_w(x156, function( x157 ) + return M.Golden_LongCallbackChain_Test_withInc_S_w(x157, function( x158 ) + return M.Golden_LongCallbackChain_Test_withInc_S_w(x158, function( x159 ) + return M.Golden_LongCallbackChain_Test_withInc_S_w(x159, function( x160 ) return _S_kont188(x160) end) end) @@ -422,46 +425,46 @@ M.Golden_LongCallbackChain_Test_compute = (function() end) end local _S_kont192 = function(x80_S_193) - return M.Golden_LongCallbackChain_Test_withInc(x80_S_193)(function(x81) - return M.Golden_LongCallbackChain_Test_withInc(x81)(function(x82) - return M.Golden_LongCallbackChain_Test_withInc(x82)(function(x83) - return M.Golden_LongCallbackChain_Test_withInc(x83)(function(x84) - return M.Golden_LongCallbackChain_Test_withInc(x84)(function(x85) - return M.Golden_LongCallbackChain_Test_withInc(x85)(function(x86) - return M.Golden_LongCallbackChain_Test_withInc(x86)(function( x87 ) - return M.Golden_LongCallbackChain_Test_withInc(x87)(function( x88 ) - return M.Golden_LongCallbackChain_Test_withInc(x88)(function( x89 ) - return M.Golden_LongCallbackChain_Test_withInc(x89)(function( x90 ) - return M.Golden_LongCallbackChain_Test_withInc(x90)(function( x91 ) - return M.Golden_LongCallbackChain_Test_withInc(x91)(function( x92 ) - return M.Golden_LongCallbackChain_Test_withInc(x92)(function( x93 ) - return M.Golden_LongCallbackChain_Test_withInc(x93)(function( x94 ) - return M.Golden_LongCallbackChain_Test_withInc(x94)(function( x95 ) - return M.Golden_LongCallbackChain_Test_withInc(x95)(function( x96 ) - return M.Golden_LongCallbackChain_Test_withInc(x96)(function( x97 ) - return M.Golden_LongCallbackChain_Test_withInc(x97)(function( x98 ) - return M.Golden_LongCallbackChain_Test_withInc(x98)(function( x99 ) - return M.Golden_LongCallbackChain_Test_withInc(x99)(function( x100 ) - return M.Golden_LongCallbackChain_Test_withInc(x100)(function( x101 ) - return M.Golden_LongCallbackChain_Test_withInc(x101)(function( x102 ) - return M.Golden_LongCallbackChain_Test_withInc(x102)(function( x103 ) - return M.Golden_LongCallbackChain_Test_withInc(x103)(function( x104 ) - return M.Golden_LongCallbackChain_Test_withInc(x104)(function( x105 ) - return M.Golden_LongCallbackChain_Test_withInc(x105)(function( x106 ) - return M.Golden_LongCallbackChain_Test_withInc(x106)(function( x107 ) - return M.Golden_LongCallbackChain_Test_withInc(x107)(function( x108 ) - return M.Golden_LongCallbackChain_Test_withInc(x108)(function( x109 ) - return M.Golden_LongCallbackChain_Test_withInc(x109)(function( x110 ) - return M.Golden_LongCallbackChain_Test_withInc(x110)(function( x111 ) - return M.Golden_LongCallbackChain_Test_withInc(x111)(function( x112 ) - return M.Golden_LongCallbackChain_Test_withInc(x112)(function( x113 ) - return M.Golden_LongCallbackChain_Test_withInc(x113)(function( x114 ) - return M.Golden_LongCallbackChain_Test_withInc(x114)(function( x115 ) - return M.Golden_LongCallbackChain_Test_withInc(x115)(function( x116 ) - return M.Golden_LongCallbackChain_Test_withInc(x116)(function( x117 ) - return M.Golden_LongCallbackChain_Test_withInc(x117)(function( x118 ) - return M.Golden_LongCallbackChain_Test_withInc(x118)(function( x119 ) - return M.Golden_LongCallbackChain_Test_withInc(x119)(function( x120 ) + return M.Golden_LongCallbackChain_Test_withInc_S_w(x80_S_193, function(x81) + return M.Golden_LongCallbackChain_Test_withInc_S_w(x81, function(x82) + return M.Golden_LongCallbackChain_Test_withInc_S_w(x82, function(x83) + return M.Golden_LongCallbackChain_Test_withInc_S_w(x83, function(x84) + return M.Golden_LongCallbackChain_Test_withInc_S_w(x84, function( x85 ) + return M.Golden_LongCallbackChain_Test_withInc_S_w(x85, function( x86 ) + return M.Golden_LongCallbackChain_Test_withInc_S_w(x86, function( x87 ) + return M.Golden_LongCallbackChain_Test_withInc_S_w(x87, function( x88 ) + return M.Golden_LongCallbackChain_Test_withInc_S_w(x88, function( x89 ) + return M.Golden_LongCallbackChain_Test_withInc_S_w(x89, function( x90 ) + return M.Golden_LongCallbackChain_Test_withInc_S_w(x90, function( x91 ) + return M.Golden_LongCallbackChain_Test_withInc_S_w(x91, function( x92 ) + return M.Golden_LongCallbackChain_Test_withInc_S_w(x92, function( x93 ) + return M.Golden_LongCallbackChain_Test_withInc_S_w(x93, function( x94 ) + return M.Golden_LongCallbackChain_Test_withInc_S_w(x94, function( x95 ) + return M.Golden_LongCallbackChain_Test_withInc_S_w(x95, function( x96 ) + return M.Golden_LongCallbackChain_Test_withInc_S_w(x96, function( x97 ) + return M.Golden_LongCallbackChain_Test_withInc_S_w(x97, function( x98 ) + return M.Golden_LongCallbackChain_Test_withInc_S_w(x98, function( x99 ) + return M.Golden_LongCallbackChain_Test_withInc_S_w(x99, function( x100 ) + return M.Golden_LongCallbackChain_Test_withInc_S_w(x100, function( x101 ) + return M.Golden_LongCallbackChain_Test_withInc_S_w(x101, function( x102 ) + return M.Golden_LongCallbackChain_Test_withInc_S_w(x102, function( x103 ) + return M.Golden_LongCallbackChain_Test_withInc_S_w(x103, function( x104 ) + return M.Golden_LongCallbackChain_Test_withInc_S_w(x104, function( x105 ) + return M.Golden_LongCallbackChain_Test_withInc_S_w(x105, function( x106 ) + return M.Golden_LongCallbackChain_Test_withInc_S_w(x106, function( x107 ) + return M.Golden_LongCallbackChain_Test_withInc_S_w(x107, function( x108 ) + return M.Golden_LongCallbackChain_Test_withInc_S_w(x108, function( x109 ) + return M.Golden_LongCallbackChain_Test_withInc_S_w(x109, function( x110 ) + return M.Golden_LongCallbackChain_Test_withInc_S_w(x110, function( x111 ) + return M.Golden_LongCallbackChain_Test_withInc_S_w(x111, function( x112 ) + return M.Golden_LongCallbackChain_Test_withInc_S_w(x112, function( x113 ) + return M.Golden_LongCallbackChain_Test_withInc_S_w(x113, function( x114 ) + return M.Golden_LongCallbackChain_Test_withInc_S_w(x114, function( x115 ) + return M.Golden_LongCallbackChain_Test_withInc_S_w(x115, function( x116 ) + return M.Golden_LongCallbackChain_Test_withInc_S_w(x116, function( x117 ) + return M.Golden_LongCallbackChain_Test_withInc_S_w(x117, function( x118 ) + return M.Golden_LongCallbackChain_Test_withInc_S_w(x118, function( x119 ) + return M.Golden_LongCallbackChain_Test_withInc_S_w(x119, function( x120 ) return _S_kont190(x120) end) end) @@ -505,46 +508,46 @@ M.Golden_LongCallbackChain_Test_compute = (function() end) end local _S_kont194 = function(x40_S_195) - return M.Golden_LongCallbackChain_Test_withInc(x40_S_195)(function(x41) - return M.Golden_LongCallbackChain_Test_withInc(x41)(function(x42) - return M.Golden_LongCallbackChain_Test_withInc(x42)(function(x43) - return M.Golden_LongCallbackChain_Test_withInc(x43)(function(x44) - return M.Golden_LongCallbackChain_Test_withInc(x44)(function(x45) - return M.Golden_LongCallbackChain_Test_withInc(x45)(function(x46) - return M.Golden_LongCallbackChain_Test_withInc(x46)(function( x47 ) - return M.Golden_LongCallbackChain_Test_withInc(x47)(function( x48 ) - return M.Golden_LongCallbackChain_Test_withInc(x48)(function( x49 ) - return M.Golden_LongCallbackChain_Test_withInc(x49)(function( x50 ) - return M.Golden_LongCallbackChain_Test_withInc(x50)(function( x51 ) - return M.Golden_LongCallbackChain_Test_withInc(x51)(function( x52 ) - return M.Golden_LongCallbackChain_Test_withInc(x52)(function( x53 ) - return M.Golden_LongCallbackChain_Test_withInc(x53)(function( x54 ) - return M.Golden_LongCallbackChain_Test_withInc(x54)(function( x55 ) - return M.Golden_LongCallbackChain_Test_withInc(x55)(function( x56 ) - return M.Golden_LongCallbackChain_Test_withInc(x56)(function( x57 ) - return M.Golden_LongCallbackChain_Test_withInc(x57)(function( x58 ) - return M.Golden_LongCallbackChain_Test_withInc(x58)(function( x59 ) - return M.Golden_LongCallbackChain_Test_withInc(x59)(function( x60 ) - return M.Golden_LongCallbackChain_Test_withInc(x60)(function( x61 ) - return M.Golden_LongCallbackChain_Test_withInc(x61)(function( x62 ) - return M.Golden_LongCallbackChain_Test_withInc(x62)(function( x63 ) - return M.Golden_LongCallbackChain_Test_withInc(x63)(function( x64 ) - return M.Golden_LongCallbackChain_Test_withInc(x64)(function( x65 ) - return M.Golden_LongCallbackChain_Test_withInc(x65)(function( x66 ) - return M.Golden_LongCallbackChain_Test_withInc(x66)(function( x67 ) - return M.Golden_LongCallbackChain_Test_withInc(x67)(function( x68 ) - return M.Golden_LongCallbackChain_Test_withInc(x68)(function( x69 ) - return M.Golden_LongCallbackChain_Test_withInc(x69)(function( x70 ) - return M.Golden_LongCallbackChain_Test_withInc(x70)(function( x71 ) - return M.Golden_LongCallbackChain_Test_withInc(x71)(function( x72 ) - return M.Golden_LongCallbackChain_Test_withInc(x72)(function( x73 ) - return M.Golden_LongCallbackChain_Test_withInc(x73)(function( x74 ) - return M.Golden_LongCallbackChain_Test_withInc(x74)(function( x75 ) - return M.Golden_LongCallbackChain_Test_withInc(x75)(function( x76 ) - return M.Golden_LongCallbackChain_Test_withInc(x76)(function( x77 ) - return M.Golden_LongCallbackChain_Test_withInc(x77)(function( x78 ) - return M.Golden_LongCallbackChain_Test_withInc(x78)(function( x79 ) - return M.Golden_LongCallbackChain_Test_withInc(x79)(function( x80 ) + return M.Golden_LongCallbackChain_Test_withInc_S_w(x40_S_195, function(x41) + return M.Golden_LongCallbackChain_Test_withInc_S_w(x41, function(x42) + return M.Golden_LongCallbackChain_Test_withInc_S_w(x42, function(x43) + return M.Golden_LongCallbackChain_Test_withInc_S_w(x43, function(x44) + return M.Golden_LongCallbackChain_Test_withInc_S_w(x44, function( x45 ) + return M.Golden_LongCallbackChain_Test_withInc_S_w(x45, function( x46 ) + return M.Golden_LongCallbackChain_Test_withInc_S_w(x46, function( x47 ) + return M.Golden_LongCallbackChain_Test_withInc_S_w(x47, function( x48 ) + return M.Golden_LongCallbackChain_Test_withInc_S_w(x48, function( x49 ) + return M.Golden_LongCallbackChain_Test_withInc_S_w(x49, function( x50 ) + return M.Golden_LongCallbackChain_Test_withInc_S_w(x50, function( x51 ) + return M.Golden_LongCallbackChain_Test_withInc_S_w(x51, function( x52 ) + return M.Golden_LongCallbackChain_Test_withInc_S_w(x52, function( x53 ) + return M.Golden_LongCallbackChain_Test_withInc_S_w(x53, function( x54 ) + return M.Golden_LongCallbackChain_Test_withInc_S_w(x54, function( x55 ) + return M.Golden_LongCallbackChain_Test_withInc_S_w(x55, function( x56 ) + return M.Golden_LongCallbackChain_Test_withInc_S_w(x56, function( x57 ) + return M.Golden_LongCallbackChain_Test_withInc_S_w(x57, function( x58 ) + return M.Golden_LongCallbackChain_Test_withInc_S_w(x58, function( x59 ) + return M.Golden_LongCallbackChain_Test_withInc_S_w(x59, function( x60 ) + return M.Golden_LongCallbackChain_Test_withInc_S_w(x60, function( x61 ) + return M.Golden_LongCallbackChain_Test_withInc_S_w(x61, function( x62 ) + return M.Golden_LongCallbackChain_Test_withInc_S_w(x62, function( x63 ) + return M.Golden_LongCallbackChain_Test_withInc_S_w(x63, function( x64 ) + return M.Golden_LongCallbackChain_Test_withInc_S_w(x64, function( x65 ) + return M.Golden_LongCallbackChain_Test_withInc_S_w(x65, function( x66 ) + return M.Golden_LongCallbackChain_Test_withInc_S_w(x66, function( x67 ) + return M.Golden_LongCallbackChain_Test_withInc_S_w(x67, function( x68 ) + return M.Golden_LongCallbackChain_Test_withInc_S_w(x68, function( x69 ) + return M.Golden_LongCallbackChain_Test_withInc_S_w(x69, function( x70 ) + return M.Golden_LongCallbackChain_Test_withInc_S_w(x70, function( x71 ) + return M.Golden_LongCallbackChain_Test_withInc_S_w(x71, function( x72 ) + return M.Golden_LongCallbackChain_Test_withInc_S_w(x72, function( x73 ) + return M.Golden_LongCallbackChain_Test_withInc_S_w(x73, function( x74 ) + return M.Golden_LongCallbackChain_Test_withInc_S_w(x74, function( x75 ) + return M.Golden_LongCallbackChain_Test_withInc_S_w(x75, function( x76 ) + return M.Golden_LongCallbackChain_Test_withInc_S_w(x76, function( x77 ) + return M.Golden_LongCallbackChain_Test_withInc_S_w(x77, function( x78 ) + return M.Golden_LongCallbackChain_Test_withInc_S_w(x78, function( x79 ) + return M.Golden_LongCallbackChain_Test_withInc_S_w(x79, function( x80 ) return _S_kont192(x80) end) end) @@ -587,46 +590,46 @@ M.Golden_LongCallbackChain_Test_compute = (function() end) end) end - return M.Golden_LongCallbackChain_Test_withInc(0)(function(x1) - return M.Golden_LongCallbackChain_Test_withInc(x1)(function(x2) - return M.Golden_LongCallbackChain_Test_withInc(x2)(function(x3) - return M.Golden_LongCallbackChain_Test_withInc(x3)(function(x4) - return M.Golden_LongCallbackChain_Test_withInc(x4)(function(x5) - return M.Golden_LongCallbackChain_Test_withInc(x5)(function(x6) - return M.Golden_LongCallbackChain_Test_withInc(x6)(function(x7) - return M.Golden_LongCallbackChain_Test_withInc(x7)(function(x8) - return M.Golden_LongCallbackChain_Test_withInc(x8)(function( x9 ) - return M.Golden_LongCallbackChain_Test_withInc(x9)(function( x10 ) - return M.Golden_LongCallbackChain_Test_withInc(x10)(function( x11 ) - return M.Golden_LongCallbackChain_Test_withInc(x11)(function( x12 ) - return M.Golden_LongCallbackChain_Test_withInc(x12)(function( x13 ) - return M.Golden_LongCallbackChain_Test_withInc(x13)(function( x14 ) - return M.Golden_LongCallbackChain_Test_withInc(x14)(function( x15 ) - return M.Golden_LongCallbackChain_Test_withInc(x15)(function( x16 ) - return M.Golden_LongCallbackChain_Test_withInc(x16)(function( x17 ) - return M.Golden_LongCallbackChain_Test_withInc(x17)(function( x18 ) - return M.Golden_LongCallbackChain_Test_withInc(x18)(function( x19 ) - return M.Golden_LongCallbackChain_Test_withInc(x19)(function( x20 ) - return M.Golden_LongCallbackChain_Test_withInc(x20)(function( x21 ) - return M.Golden_LongCallbackChain_Test_withInc(x21)(function( x22 ) - return M.Golden_LongCallbackChain_Test_withInc(x22)(function( x23 ) - return M.Golden_LongCallbackChain_Test_withInc(x23)(function( x24 ) - return M.Golden_LongCallbackChain_Test_withInc(x24)(function( x25 ) - return M.Golden_LongCallbackChain_Test_withInc(x25)(function( x26 ) - return M.Golden_LongCallbackChain_Test_withInc(x26)(function( x27 ) - return M.Golden_LongCallbackChain_Test_withInc(x27)(function( x28 ) - return M.Golden_LongCallbackChain_Test_withInc(x28)(function( x29 ) - return M.Golden_LongCallbackChain_Test_withInc(x29)(function( x30 ) - return M.Golden_LongCallbackChain_Test_withInc(x30)(function( x31 ) - return M.Golden_LongCallbackChain_Test_withInc(x31)(function( x32 ) - return M.Golden_LongCallbackChain_Test_withInc(x32)(function( x33 ) - return M.Golden_LongCallbackChain_Test_withInc(x33)(function( x34 ) - return M.Golden_LongCallbackChain_Test_withInc(x34)(function( x35 ) - return M.Golden_LongCallbackChain_Test_withInc(x35)(function( x36 ) - return M.Golden_LongCallbackChain_Test_withInc(x36)(function( x37 ) - return M.Golden_LongCallbackChain_Test_withInc(x37)(function( x38 ) - return M.Golden_LongCallbackChain_Test_withInc(x38)(function( x39 ) - return M.Golden_LongCallbackChain_Test_withInc(x39)(function( x40 ) + return M.Golden_LongCallbackChain_Test_withInc_S_w(0, function(x1) + return M.Golden_LongCallbackChain_Test_withInc_S_w(x1, function(x2) + return M.Golden_LongCallbackChain_Test_withInc_S_w(x2, function(x3) + return M.Golden_LongCallbackChain_Test_withInc_S_w(x3, function(x4) + return M.Golden_LongCallbackChain_Test_withInc_S_w(x4, function(x5) + return M.Golden_LongCallbackChain_Test_withInc_S_w(x5, function(x6) + return M.Golden_LongCallbackChain_Test_withInc_S_w(x6, function( x7 ) + return M.Golden_LongCallbackChain_Test_withInc_S_w(x7, function( x8 ) + return M.Golden_LongCallbackChain_Test_withInc_S_w(x8, function( x9 ) + return M.Golden_LongCallbackChain_Test_withInc_S_w(x9, function( x10 ) + return M.Golden_LongCallbackChain_Test_withInc_S_w(x10, function( x11 ) + return M.Golden_LongCallbackChain_Test_withInc_S_w(x11, function( x12 ) + return M.Golden_LongCallbackChain_Test_withInc_S_w(x12, function( x13 ) + return M.Golden_LongCallbackChain_Test_withInc_S_w(x13, function( x14 ) + return M.Golden_LongCallbackChain_Test_withInc_S_w(x14, function( x15 ) + return M.Golden_LongCallbackChain_Test_withInc_S_w(x15, function( x16 ) + return M.Golden_LongCallbackChain_Test_withInc_S_w(x16, function( x17 ) + return M.Golden_LongCallbackChain_Test_withInc_S_w(x17, function( x18 ) + return M.Golden_LongCallbackChain_Test_withInc_S_w(x18, function( x19 ) + return M.Golden_LongCallbackChain_Test_withInc_S_w(x19, function( x20 ) + return M.Golden_LongCallbackChain_Test_withInc_S_w(x20, function( x21 ) + return M.Golden_LongCallbackChain_Test_withInc_S_w(x21, function( x22 ) + return M.Golden_LongCallbackChain_Test_withInc_S_w(x22, function( x23 ) + return M.Golden_LongCallbackChain_Test_withInc_S_w(x23, function( x24 ) + return M.Golden_LongCallbackChain_Test_withInc_S_w(x24, function( x25 ) + return M.Golden_LongCallbackChain_Test_withInc_S_w(x25, function( x26 ) + return M.Golden_LongCallbackChain_Test_withInc_S_w(x26, function( x27 ) + return M.Golden_LongCallbackChain_Test_withInc_S_w(x27, function( x28 ) + return M.Golden_LongCallbackChain_Test_withInc_S_w(x28, function( x29 ) + return M.Golden_LongCallbackChain_Test_withInc_S_w(x29, function( x30 ) + return M.Golden_LongCallbackChain_Test_withInc_S_w(x30, function( x31 ) + return M.Golden_LongCallbackChain_Test_withInc_S_w(x31, function( x32 ) + return M.Golden_LongCallbackChain_Test_withInc_S_w(x32, function( x33 ) + return M.Golden_LongCallbackChain_Test_withInc_S_w(x33, function( x34 ) + return M.Golden_LongCallbackChain_Test_withInc_S_w(x34, function( x35 ) + return M.Golden_LongCallbackChain_Test_withInc_S_w(x35, function( x36 ) + return M.Golden_LongCallbackChain_Test_withInc_S_w(x36, function( x37 ) + return M.Golden_LongCallbackChain_Test_withInc_S_w(x37, function( x38 ) + return M.Golden_LongCallbackChain_Test_withInc_S_w(x38, function( x39 ) + return M.Golden_LongCallbackChain_Test_withInc_S_w(x39, function( x40 ) return _S_kont194(x40) end) end) diff --git a/test/ps/output/Golden.LongDoBlock.Test/golden.ir b/test/ps/output/Golden.LongDoBlock.Test/golden.ir index b3fdba1a..d3abb285 100644 --- a/test/ps/output/Golden.LongDoBlock.Test/golden.ir +++ b/test/ps/output/Golden.LongDoBlock.Test/golden.ir @@ -15,13 +15,13 @@ UberModule ), Standalone ( QName { qnameModuleName = ModuleName "Control.Applicative", qnameName = Name "pure" - }, Abs Nothing - ( ParamNamed Nothing ( Name "dict" ) ) + }, AbsN Nothing + ( ParamNamed Nothing ( Name "dict" ) :| [] ) ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "dict" ) ) ) ( PropName "pure" ) ) ), Standalone ( QName - { qnameModuleName = ModuleName "Control.Bind", qnameName = Name "bind" }, Abs Nothing - ( ParamNamed Nothing ( Name "dict" ) ) + { qnameModuleName = ModuleName "Control.Bind", qnameName = Name "bind" }, AbsN Nothing + ( ParamNamed Nothing ( Name "dict" ) :| [] ) ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "dict" ) ) ) ( PropName "bind" ) ) ), RecursiveGroup ( @@ -29,10 +29,12 @@ UberModule { qnameModuleName = ModuleName "Effect", qnameName = Name "monadEffect" }, LiteralObject Nothing [ - ( PropName "Applicative0", Abs Nothing ( ParamUnused Nothing ) + ( PropName "Applicative0", AbsN Nothing + ( ParamUnused Nothing :| [] ) ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "applicativeEffect" ) ) ) ), - ( PropName "Bind1", Abs Nothing ( ParamUnused Nothing ) + ( PropName "Bind1", AbsN Nothing + ( ParamUnused Nothing :| [] ) ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "bindEffect" ) ) ) ) ] @@ -46,7 +48,8 @@ UberModule ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "foreign" ) ) ) ( PropName "bindE" ) ), - ( PropName "Apply0", Abs Nothing ( ParamUnused Nothing ) + ( PropName "Apply0", AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "Lazy_applyEffect" ) ) ) ( LiteralInt Nothing 0 :| [] ) @@ -62,7 +65,8 @@ UberModule ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "foreign" ) ) ) ( PropName "pureE" ) ), - ( PropName "Apply0", Abs Nothing ( ParamUnused Nothing ) + ( PropName "Apply0", AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "Lazy_applyEffect" ) ) ) ( LiteralInt Nothing 0 :| [] ) @@ -77,13 +81,14 @@ UberModule ( Ref Nothing ( Local ( Name "PSLUA_runtime_lazy" ) ) ) ( LiteralString Nothing "functorEffect" :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( LiteralObject Nothing [ - ( PropName "map", Abs Nothing - ( ParamNamed Nothing ( Name "f$25" ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "a$26" ) ) + ( PropName "map", AbsN Nothing + ( ParamNamed Nothing ( Name "f$25" ) :| [] ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "a$26" ) :| [] ) ( AppN Nothing ( AppN Nothing ( ObjectProp Nothing @@ -130,7 +135,8 @@ UberModule ( Ref Nothing ( Local ( Name "PSLUA_runtime_lazy" ) ) ) ( LiteralString Nothing "applyEffect" :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( LiteralObject Nothing [ ( PropName "apply", Let Nothing @@ -150,24 +156,24 @@ UberModule ) ) :| [] ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "f$6" ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "a$7" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "f$6" ) :| [] ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "a$7" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing ( Local ( Name "bind$4" ) ) ) ( Ref Nothing ( Local ( Name "f$6" ) ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "f'$8" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "f'$8" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing ( Local ( Name "bind$4" ) ) ) ( Ref Nothing ( Local ( Name "a$7" ) ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "a'$9" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "a'$9" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -206,7 +212,8 @@ UberModule ) ) ), - ( PropName "Functor0", Abs Nothing ( ParamUnused Nothing ) + ( PropName "Functor0", AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "Lazy_functorEffect" ) ) @@ -228,7 +235,8 @@ UberModule ) ], uberModuleForeigns = [], uberModuleExports = [ - ( Name "main", Abs Nothing ( ParamUnused Nothing ) + ( Name "main", AbsN Nothing + ( ParamUnused Nothing :| [] ) ( Let Nothing ( Standalone ( Nothing, Name "_", AppN Nothing @@ -1735,7 +1743,8 @@ UberModule ] ) ( AppN Nothing - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( Let Nothing ( Standalone ( Nothing, Name "_", AppN Nothing diff --git a/test/ps/output/Golden.LongEitherBind.Test/golden.ir b/test/ps/output/Golden.LongEitherBind.Test/golden.ir index af833609..072b9633 100644 --- a/test/ps/output/Golden.LongEitherBind.Test/golden.ir +++ b/test/ps/output/Golden.LongEitherBind.Test/golden.ir @@ -26,8 +26,8 @@ UberModule [ ( Nothing, Name "log" ) ] ), Standalone ( QName - { qnameModuleName = ModuleName "Data.Show", qnameName = Name "show" }, Abs Nothing - ( ParamNamed Nothing ( Name "dict" ) ) + { qnameModuleName = ModuleName "Data.Show", qnameName = Name "show" }, AbsN Nothing + ( ParamNamed Nothing ( Name "dict" ) :| [] ) ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "dict" ) ) ) ( PropName "show" ) ) ), Standalone ( QName @@ -40,14 +40,15 @@ UberModule ), Standalone ( QName { qnameModuleName = ModuleName "Golden.LongEitherBind.Test", qnameName = Name "bind" - }, Abs Nothing - ( ParamNamed Nothing ( Name "v2$288" ) ) + }, AbsN Nothing + ( ParamNamed Nothing ( Name "v2$288" ) :| [] ) ( IfThenElse Nothing ( Eq Nothing ( LiteralString Nothing "Data.Either∷Either.Left" ) ( ReflectCtor Nothing ( Ref Nothing ( Local ( Name "v2$288" ) ) ) ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( Ctor Nothing SumType ( ModuleName "Data.Either" ) @@ -66,8 +67,8 @@ UberModule ( LiteralString Nothing "Data.Either∷Either.Right" ) ( ReflectCtor Nothing ( Ref Nothing ( Local ( Name "v2$288" ) ) ) ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "f$285" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "f$285" ) :| [] ) ( AppN Nothing ( Ref Nothing ( Local ( Name "f$285" ) ) ) ( ObjectProp Nothing @@ -84,12 +85,12 @@ UberModule { qnameModuleName = ModuleName "Golden.LongEitherBind.Test", qnameName = Name "compute" }, Let Nothing ( Standalone - ( Nothing, Name "$kont295", Abs Nothing - ( ParamNamed Nothing ( Name "x1$296" ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x150$297" ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x280$298" ) ) + ( Nothing, Name "$kont295", AbsN Nothing + ( ParamNamed Nothing ( Name "x1$296" ) :| [] ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x150$297" ) :| [] ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x280$298" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -111,8 +112,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x281" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x281" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -136,8 +137,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x282" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x282" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -164,8 +165,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x283" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x283" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -195,8 +196,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x284" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x284" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -226,8 +227,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x285" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x285" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -260,8 +261,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x286" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x286" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -294,8 +295,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x287" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x287" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -330,8 +331,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x288" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x288" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -366,8 +367,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x289" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x289" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -402,8 +403,10 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x290" ) ) + ( AbsN Nothing + ( ParamNamed Nothing + ( Name "x290" ) :| [] + ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -438,8 +441,10 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x291" ) ) + ( AbsN Nothing + ( ParamNamed Nothing + ( Name "x291" ) :| [] + ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -476,9 +481,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x292" ) + ( Name "x292" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -516,9 +521,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x293" ) + ( Name "x293" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -556,9 +561,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x294" ) + ( Name "x294" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -596,9 +601,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x295" ) + ( Name "x295" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -636,9 +641,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x296" ) + ( Name "x296" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -676,9 +681,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x297" ) + ( Name "x297" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -716,9 +721,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x298" ) + ( Name "x298" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -756,9 +761,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x299" ) + ( Name "x299" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -796,9 +801,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x300" ) + ( Name "x300" ) :| [] ) ( AppN Nothing ( Ref Nothing @@ -893,12 +898,12 @@ UberModule ) ) :| [ Standalone - ( Nothing, Name "$kont299", Abs Nothing - ( ParamNamed Nothing ( Name "x1$300" ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x150$301" ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x240$302" ) ) + ( Nothing, Name "$kont299", AbsN Nothing + ( ParamNamed Nothing ( Name "x1$300" ) :| [] ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x150$301" ) :| [] ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x240$302" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -920,8 +925,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x241" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x241" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -945,8 +950,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x242" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x242" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -976,8 +981,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x243" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x243" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -1007,8 +1012,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x244" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x244" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -1038,8 +1043,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x245" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x245" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -1072,8 +1077,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x246" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x246" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -1106,8 +1111,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x247" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x247" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -1142,8 +1147,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x248" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x248" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -1178,8 +1183,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x249" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x249" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -1214,8 +1219,10 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x250" ) ) + ( AbsN Nothing + ( ParamNamed Nothing + ( Name "x250" ) :| [] + ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -1252,9 +1259,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x251" ) + ( Name "x251" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -1292,9 +1299,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x252" ) + ( Name "x252" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -1332,9 +1339,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x253" ) + ( Name "x253" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -1372,9 +1379,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x254" ) + ( Name "x254" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -1412,9 +1419,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x255" ) + ( Name "x255" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -1452,9 +1459,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x256" ) + ( Name "x256" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -1492,9 +1499,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x257" ) + ( Name "x257" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -1532,9 +1539,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x258" ) + ( Name "x258" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -1572,9 +1579,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x259" ) + ( Name "x259" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -1612,9 +1619,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x260" ) + ( Name "x260" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -1652,9 +1659,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x261" ) + ( Name "x261" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -1692,9 +1699,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x262" ) + ( Name "x262" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -1732,9 +1739,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x263" ) + ( Name "x263" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -1772,9 +1779,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x264" ) + ( Name "x264" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -1812,9 +1819,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x265" ) + ( Name "x265" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -1852,9 +1859,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x266" ) + ( Name "x266" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -1892,9 +1899,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x267" ) + ( Name "x267" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -1932,9 +1939,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x268" ) + ( Name "x268" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -1972,9 +1979,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x269" ) + ( Name "x269" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -2012,9 +2019,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x270" ) + ( Name "x270" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -2052,9 +2059,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x271" ) + ( Name "x271" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -2092,9 +2099,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x272" ) + ( Name "x272" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -2132,9 +2139,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x273" ) + ( Name "x273" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -2172,9 +2179,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x274" ) + ( Name "x274" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -2212,9 +2219,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x275" ) + ( Name "x275" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -2252,9 +2259,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x276" ) + ( Name "x276" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -2292,9 +2299,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x277" ) + ( Name "x277" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -2332,9 +2339,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x278" ) + ( Name "x278" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -2372,9 +2379,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x279" ) + ( Name "x279" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -2412,9 +2419,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x280" ) + ( Name "x280" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -2525,12 +2532,12 @@ UberModule ) ) ), Standalone - ( Nothing, Name "$kont303", Abs Nothing - ( ParamNamed Nothing ( Name "x1$304" ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x150$305" ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x200$306" ) ) + ( Nothing, Name "$kont303", AbsN Nothing + ( ParamNamed Nothing ( Name "x1$304" ) :| [] ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x150$305" ) :| [] ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x200$306" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -2552,8 +2559,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x201" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x201" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -2577,8 +2584,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x202" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x202" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -2608,8 +2615,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x203" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x203" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -2639,8 +2646,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x204" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x204" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -2670,8 +2677,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x205" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x205" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -2704,8 +2711,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x206" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x206" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -2738,8 +2745,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x207" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x207" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -2774,8 +2781,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x208" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x208" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -2810,8 +2817,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x209" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x209" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -2846,8 +2853,10 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x210" ) ) + ( AbsN Nothing + ( ParamNamed Nothing + ( Name "x210" ) :| [] + ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -2884,9 +2893,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x211" ) + ( Name "x211" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -2924,9 +2933,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x212" ) + ( Name "x212" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -2964,9 +2973,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x213" ) + ( Name "x213" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -3004,9 +3013,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x214" ) + ( Name "x214" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -3044,9 +3053,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x215" ) + ( Name "x215" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -3084,9 +3093,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x216" ) + ( Name "x216" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -3124,9 +3133,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x217" ) + ( Name "x217" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -3164,9 +3173,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x218" ) + ( Name "x218" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -3204,9 +3213,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x219" ) + ( Name "x219" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -3244,9 +3253,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x220" ) + ( Name "x220" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -3284,9 +3293,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x221" ) + ( Name "x221" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -3324,9 +3333,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x222" ) + ( Name "x222" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -3364,9 +3373,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x223" ) + ( Name "x223" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -3404,9 +3413,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x224" ) + ( Name "x224" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -3444,9 +3453,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x225" ) + ( Name "x225" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -3484,9 +3493,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x226" ) + ( Name "x226" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -3524,9 +3533,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x227" ) + ( Name "x227" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -3564,9 +3573,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x228" ) + ( Name "x228" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -3604,9 +3613,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x229" ) + ( Name "x229" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -3644,9 +3653,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x230" ) + ( Name "x230" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -3684,9 +3693,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x231" ) + ( Name "x231" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -3724,9 +3733,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x232" ) + ( Name "x232" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -3764,9 +3773,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x233" ) + ( Name "x233" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -3804,9 +3813,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x234" ) + ( Name "x234" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -3844,9 +3853,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x235" ) + ( Name "x235" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -3884,9 +3893,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x236" ) + ( Name "x236" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -3924,9 +3933,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x237" ) + ( Name "x237" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -3964,9 +3973,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x238" ) + ( Name "x238" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -4004,9 +4013,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x239" ) + ( Name "x239" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -4044,9 +4053,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x240" ) + ( Name "x240" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -4157,12 +4166,12 @@ UberModule ) ) ), Standalone - ( Nothing, Name "$kont307", Abs Nothing - ( ParamNamed Nothing ( Name "x1$308" ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x150$309" ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x160$310" ) ) + ( Nothing, Name "$kont307", AbsN Nothing + ( ParamNamed Nothing ( Name "x1$308" ) :| [] ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x150$309" ) :| [] ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x160$310" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -4184,8 +4193,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x161" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x161" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -4209,8 +4218,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x162" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x162" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -4240,8 +4249,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x163" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x163" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -4271,8 +4280,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x164" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x164" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -4302,8 +4311,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x165" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x165" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -4336,8 +4345,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x166" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x166" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -4370,8 +4379,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x167" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x167" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -4406,8 +4415,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x168" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x168" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -4442,8 +4451,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x169" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x169" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -4478,8 +4487,10 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x170" ) ) + ( AbsN Nothing + ( ParamNamed Nothing + ( Name "x170" ) :| [] + ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -4516,9 +4527,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x171" ) + ( Name "x171" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -4556,9 +4567,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x172" ) + ( Name "x172" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -4596,9 +4607,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x173" ) + ( Name "x173" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -4636,9 +4647,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x174" ) + ( Name "x174" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -4676,9 +4687,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x175" ) + ( Name "x175" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -4716,9 +4727,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x176" ) + ( Name "x176" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -4756,9 +4767,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x177" ) + ( Name "x177" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -4796,9 +4807,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x178" ) + ( Name "x178" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -4836,9 +4847,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x179" ) + ( Name "x179" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -4876,9 +4887,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x180" ) + ( Name "x180" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -4916,9 +4927,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x181" ) + ( Name "x181" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -4956,9 +4967,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x182" ) + ( Name "x182" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -4996,9 +5007,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x183" ) + ( Name "x183" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -5036,9 +5047,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x184" ) + ( Name "x184" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -5076,9 +5087,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x185" ) + ( Name "x185" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -5116,9 +5127,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x186" ) + ( Name "x186" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -5156,9 +5167,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x187" ) + ( Name "x187" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -5196,9 +5207,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x188" ) + ( Name "x188" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -5236,9 +5247,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x189" ) + ( Name "x189" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -5276,9 +5287,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x190" ) + ( Name "x190" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -5316,9 +5327,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x191" ) + ( Name "x191" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -5356,9 +5367,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x192" ) + ( Name "x192" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -5396,9 +5407,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x193" ) + ( Name "x193" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -5436,9 +5447,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x194" ) + ( Name "x194" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -5476,9 +5487,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x195" ) + ( Name "x195" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -5516,9 +5527,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x196" ) + ( Name "x196" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -5556,9 +5567,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x197" ) + ( Name "x197" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -5596,9 +5607,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x198" ) + ( Name "x198" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -5636,9 +5647,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x199" ) + ( Name "x199" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -5676,9 +5687,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x200" ) + ( Name "x200" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -5789,10 +5800,10 @@ UberModule ) ) ), Standalone - ( Nothing, Name "$kont311", Abs Nothing - ( ParamNamed Nothing ( Name "x1$312" ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x120$313" ) ) + ( Nothing, Name "$kont311", AbsN Nothing + ( ParamNamed Nothing ( Name "x1$312" ) :| [] ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x120$313" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -5814,8 +5825,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x121" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x121" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -5839,8 +5850,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x122" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x122" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -5867,8 +5878,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x123" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x123" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -5898,8 +5909,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x124" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x124" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -5929,8 +5940,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x125" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x125" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -5963,8 +5974,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x126" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x126" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -5997,8 +6008,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x127" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x127" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -6033,8 +6044,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x128" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x128" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -6069,8 +6080,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x129" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x129" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -6105,8 +6116,10 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x130" ) ) + ( AbsN Nothing + ( ParamNamed Nothing + ( Name "x130" ) :| [] + ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -6141,8 +6154,10 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x131" ) ) + ( AbsN Nothing + ( ParamNamed Nothing + ( Name "x131" ) :| [] + ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -6179,9 +6194,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x132" ) + ( Name "x132" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -6219,9 +6234,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x133" ) + ( Name "x133" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -6259,9 +6274,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x134" ) + ( Name "x134" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -6299,9 +6314,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x135" ) + ( Name "x135" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -6339,9 +6354,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x136" ) + ( Name "x136" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -6379,9 +6394,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x137" ) + ( Name "x137" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -6419,9 +6434,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x138" ) + ( Name "x138" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -6459,9 +6474,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x139" ) + ( Name "x139" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -6499,9 +6514,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x140" ) + ( Name "x140" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -6539,9 +6554,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x141" ) + ( Name "x141" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -6579,9 +6594,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x142" ) + ( Name "x142" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -6619,9 +6634,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x143" ) + ( Name "x143" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -6659,9 +6674,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x144" ) + ( Name "x144" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -6699,9 +6714,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x145" ) + ( Name "x145" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -6739,9 +6754,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x146" ) + ( Name "x146" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -6779,9 +6794,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x147" ) + ( Name "x147" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -6819,9 +6834,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x148" ) + ( Name "x148" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -6859,9 +6874,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x149" ) + ( Name "x149" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -6899,9 +6914,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x150" ) + ( Name "x150" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -6939,9 +6954,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x151" ) + ( Name "x151" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -6979,9 +6994,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x152" ) + ( Name "x152" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -7019,9 +7034,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x153" ) + ( Name "x153" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -7059,9 +7074,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x154" ) + ( Name "x154" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -7099,9 +7114,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x155" ) + ( Name "x155" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -7139,9 +7154,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x156" ) + ( Name "x156" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -7179,9 +7194,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x157" ) + ( Name "x157" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -7219,9 +7234,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x158" ) + ( Name "x158" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -7259,9 +7274,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x159" ) + ( Name "x159" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -7299,9 +7314,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x160" ) + ( Name "x160" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -7411,10 +7426,10 @@ UberModule ) ) ), Standalone - ( Nothing, Name "$kont314", Abs Nothing - ( ParamNamed Nothing ( Name "x1$315" ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x80$316" ) ) + ( Nothing, Name "$kont314", AbsN Nothing + ( ParamNamed Nothing ( Name "x1$315" ) :| [] ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x80$316" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -7436,8 +7451,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x81" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x81" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -7461,8 +7476,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x82" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x82" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -7489,8 +7504,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x83" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x83" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -7520,8 +7535,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x84" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x84" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -7551,8 +7566,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x85" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x85" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -7585,8 +7600,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x86" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x86" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -7619,8 +7634,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x87" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x87" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -7653,8 +7668,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x88" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x88" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -7689,8 +7704,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x89" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x89" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -7725,8 +7740,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x90" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x90" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -7761,8 +7776,10 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x91" ) ) + ( AbsN Nothing + ( ParamNamed Nothing + ( Name "x91" ) :| [] + ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -7799,9 +7816,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x92" ) + ( Name "x92" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -7839,9 +7856,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x93" ) + ( Name "x93" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -7879,9 +7896,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x94" ) + ( Name "x94" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -7919,9 +7936,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x95" ) + ( Name "x95" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -7959,9 +7976,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x96" ) + ( Name "x96" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -7999,9 +8016,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x97" ) + ( Name "x97" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -8039,9 +8056,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x98" ) + ( Name "x98" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -8079,9 +8096,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x99" ) + ( Name "x99" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -8119,9 +8136,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x100" ) + ( Name "x100" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -8159,9 +8176,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x101" ) + ( Name "x101" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -8199,9 +8216,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x102" ) + ( Name "x102" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -8239,9 +8256,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x103" ) + ( Name "x103" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -8279,9 +8296,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x104" ) + ( Name "x104" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -8319,9 +8336,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x105" ) + ( Name "x105" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -8359,9 +8376,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x106" ) + ( Name "x106" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -8399,9 +8416,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x107" ) + ( Name "x107" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -8439,9 +8456,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x108" ) + ( Name "x108" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -8479,9 +8496,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x109" ) + ( Name "x109" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -8519,9 +8536,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x110" ) + ( Name "x110" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -8559,9 +8576,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x111" ) + ( Name "x111" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -8599,9 +8616,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x112" ) + ( Name "x112" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -8639,9 +8656,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x113" ) + ( Name "x113" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -8679,9 +8696,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x114" ) + ( Name "x114" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -8719,9 +8736,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x115" ) + ( Name "x115" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -8759,9 +8776,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x116" ) + ( Name "x116" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -8799,9 +8816,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x117" ) + ( Name "x117" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -8839,9 +8856,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x118" ) + ( Name "x118" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -8879,9 +8896,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x119" ) + ( Name "x119" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -8919,9 +8936,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x120" ) + ( Name "x120" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -9024,10 +9041,10 @@ UberModule ) ) ), Standalone - ( Nothing, Name "$kont317", Abs Nothing - ( ParamNamed Nothing ( Name "x1$318" ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x40$319" ) ) + ( Nothing, Name "$kont317", AbsN Nothing + ( ParamNamed Nothing ( Name "x1$318" ) :| [] ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x40$319" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -9049,8 +9066,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x41" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x41" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -9074,8 +9091,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x42" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x42" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -9102,8 +9119,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x43" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x43" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -9133,8 +9150,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x44" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x44" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -9164,8 +9181,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x45" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x45" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -9198,8 +9215,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x46" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x46" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -9232,8 +9249,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x47" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x47" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -9266,8 +9283,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x48" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x48" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -9302,8 +9319,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x49" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x49" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -9338,8 +9355,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x50" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x50" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -9374,8 +9391,10 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x51" ) ) + ( AbsN Nothing + ( ParamNamed Nothing + ( Name "x51" ) :| [] + ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -9412,9 +9431,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x52" ) + ( Name "x52" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -9452,9 +9471,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x53" ) + ( Name "x53" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -9492,9 +9511,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x54" ) + ( Name "x54" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -9532,9 +9551,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x55" ) + ( Name "x55" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -9572,9 +9591,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x56" ) + ( Name "x56" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -9612,9 +9631,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x57" ) + ( Name "x57" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -9652,9 +9671,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x58" ) + ( Name "x58" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -9692,9 +9711,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x59" ) + ( Name "x59" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -9732,9 +9751,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x60" ) + ( Name "x60" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -9772,9 +9791,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x61" ) + ( Name "x61" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -9812,9 +9831,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x62" ) + ( Name "x62" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -9852,9 +9871,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x63" ) + ( Name "x63" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -9892,9 +9911,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x64" ) + ( Name "x64" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -9932,9 +9951,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x65" ) + ( Name "x65" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -9972,9 +9991,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x66" ) + ( Name "x66" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -10012,9 +10031,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x67" ) + ( Name "x67" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -10052,9 +10071,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x68" ) + ( Name "x68" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -10092,9 +10111,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x69" ) + ( Name "x69" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -10132,9 +10151,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x70" ) + ( Name "x70" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -10172,9 +10191,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x71" ) + ( Name "x71" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -10212,9 +10231,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x72" ) + ( Name "x72" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -10252,9 +10271,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x73" ) + ( Name "x73" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -10292,9 +10311,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x74" ) + ( Name "x74" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -10332,9 +10351,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x75" ) + ( Name "x75" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -10372,9 +10391,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x76" ) + ( Name "x76" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -10412,9 +10431,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x77" ) + ( Name "x77" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -10452,9 +10471,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x78" ) + ( Name "x78" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -10492,9 +10511,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x79" ) + ( Name "x79" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -10532,9 +10551,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x80" ) + ( Name "x80" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -10649,8 +10668,8 @@ UberModule ( LiteralInt Nothing 1 :| [] ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x1" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x1" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -10672,8 +10691,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x2" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x2" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -10695,8 +10714,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x3" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x3" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -10720,8 +10739,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x4" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x4" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -10748,8 +10767,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x5" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x5" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -10779,8 +10798,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x6" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x6" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -10810,8 +10829,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x7" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x7" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -10844,8 +10863,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x8" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x8" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -10878,8 +10897,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x9" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x9" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -10912,8 +10931,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x10" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x10" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -10948,8 +10967,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x11" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x11" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -10984,8 +11003,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x12" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x12" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -11020,8 +11039,10 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x13" ) ) + ( AbsN Nothing + ( ParamNamed Nothing + ( Name "x13" ) :| [] + ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -11058,9 +11079,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x14" ) + ( Name "x14" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -11098,9 +11119,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x15" ) + ( Name "x15" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -11138,9 +11159,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x16" ) + ( Name "x16" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -11178,9 +11199,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x17" ) + ( Name "x17" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -11218,9 +11239,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x18" ) + ( Name "x18" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -11258,9 +11279,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x19" ) + ( Name "x19" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -11298,9 +11319,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x20" ) + ( Name "x20" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -11338,9 +11359,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x21" ) + ( Name "x21" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -11378,9 +11399,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x22" ) + ( Name "x22" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -11418,9 +11439,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x23" ) + ( Name "x23" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -11458,9 +11479,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x24" ) + ( Name "x24" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -11498,9 +11519,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x25" ) + ( Name "x25" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -11538,9 +11559,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x26" ) + ( Name "x26" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -11578,9 +11599,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x27" ) + ( Name "x27" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -11618,9 +11639,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x28" ) + ( Name "x28" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -11658,9 +11679,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x29" ) + ( Name "x29" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -11698,9 +11719,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x30" ) + ( Name "x30" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -11738,9 +11759,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x31" ) + ( Name "x31" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -11778,9 +11799,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x32" ) + ( Name "x32" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -11818,9 +11839,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x33" ) + ( Name "x33" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -11858,9 +11879,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x34" ) + ( Name "x34" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -11898,9 +11919,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x35" ) + ( Name "x35" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -11938,9 +11959,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x36" ) + ( Name "x36" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -11978,9 +11999,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x37" ) + ( Name "x37" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -12018,9 +12039,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x38" ) + ( Name "x38" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -12058,9 +12079,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x39" ) + ( Name "x39" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -12098,9 +12119,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x40" ) + ( Name "x40" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -12217,8 +12238,8 @@ UberModule ( Ref Nothing ( Imported ( ModuleName "Data.Show" ) ( Name "show" ) ) ) ( LiteralObject Nothing [ - ( PropName "show", Abs Nothing - ( ParamNamed Nothing ( Name "v$7$294" ) ) + ( PropName "show", AbsN Nothing + ( ParamNamed Nothing ( Name "v$7$294" ) :| [] ) ( IfThenElse Nothing ( Eq Nothing ( LiteralString Nothing "Data.Either∷Either.Left" ) diff --git a/test/ps/output/Golden.LongExceptBind.Test/golden.ir b/test/ps/output/Golden.LongExceptBind.Test/golden.ir index 577cd3d8..efb0f2ec 100644 --- a/test/ps/output/Golden.LongExceptBind.Test/golden.ir +++ b/test/ps/output/Golden.LongExceptBind.Test/golden.ir @@ -35,12 +35,12 @@ UberModule { qnameModuleName = ModuleName "Control.Semigroupoid", qnameName = Name "semigroupoidFn" }, LiteralObject Nothing [ - ( PropName "compose", Abs Nothing - ( ParamNamed Nothing ( Name "f" ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "g" ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x" ) ) + ( PropName "compose", AbsN Nothing + ( ParamNamed Nothing ( Name "f" ) :| [] ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "g" ) :| [] ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x" ) :| [] ) ( AppN Nothing ( Ref Nothing ( Local ( Name "f" ) ) ) ( AppN Nothing @@ -55,29 +55,29 @@ UberModule ), Standalone ( QName { qnameModuleName = ModuleName "Control.Semigroupoid", qnameName = Name "compose" - }, Abs Nothing - ( ParamNamed Nothing ( Name "dict" ) ) + }, AbsN Nothing + ( ParamNamed Nothing ( Name "dict" ) :| [] ) ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "dict" ) ) ) ( PropName "compose" ) ) ), Standalone ( QName - { qnameModuleName = ModuleName "Data.Show", qnameName = Name "show" }, Abs Nothing - ( ParamNamed Nothing ( Name "dict" ) ) + { qnameModuleName = ModuleName "Data.Show", qnameName = Name "show" }, AbsN Nothing + ( ParamNamed Nothing ( Name "dict" ) :| [] ) ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "dict" ) ) ) ( PropName "show" ) ) ), Standalone ( QName - { qnameModuleName = ModuleName "Data.Functor", qnameName = Name "map" }, Abs Nothing - ( ParamNamed Nothing ( Name "dict" ) ) + { qnameModuleName = ModuleName "Data.Functor", qnameName = Name "map" }, AbsN Nothing + ( ParamNamed Nothing ( Name "dict" ) :| [] ) ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "dict" ) ) ) ( PropName "map" ) ) ), Standalone ( QName { qnameModuleName = ModuleName "Control.Applicative", qnameName = Name "pure" - }, Abs Nothing - ( ParamNamed Nothing ( Name "dict" ) ) + }, AbsN Nothing + ( ParamNamed Nothing ( Name "dict" ) :| [] ) ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "dict" ) ) ) ( PropName "pure" ) ) ), Standalone ( QName - { qnameModuleName = ModuleName "Control.Bind", qnameName = Name "bind" }, Abs Nothing - ( ParamNamed Nothing ( Name "dict" ) ) + { qnameModuleName = ModuleName "Control.Bind", qnameName = Name "bind" }, AbsN Nothing + ( ParamNamed Nothing ( Name "dict" ) :| [] ) ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "dict" ) ) ) ( PropName "bind" ) ) ), Standalone ( QName @@ -100,23 +100,24 @@ UberModule { qnameModuleName = ModuleName "Data.Identity", qnameName = Name "applyIdentity" }, LiteralObject Nothing [ - ( PropName "apply", Abs Nothing - ( ParamNamed Nothing ( Name "v" ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "v1" ) ) + ( PropName "apply", AbsN Nothing + ( ParamNamed Nothing ( Name "v" ) :| [] ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "v1" ) :| [] ) ( AppN Nothing ( Ref Nothing ( Local ( Name "v" ) ) ) ( Ref Nothing ( Local ( Name "v1" ) ) :| [] ) ) ) ), - ( PropName "Functor0", Abs Nothing ( ParamUnused Nothing ) + ( PropName "Functor0", AbsN Nothing + ( ParamUnused Nothing :| [] ) ( LiteralObject Nothing [ - ( PropName "map", Abs Nothing - ( ParamNamed Nothing ( Name "f$501" ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "m$502" ) ) + ( PropName "map", AbsN Nothing + ( ParamNamed Nothing ( Name "f$501" ) :| [] ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "m$502" ) :| [] ) ( AppN Nothing ( Ref Nothing ( Local ( Name "f$501" ) ) ) ( Ref Nothing ( Local ( Name "m$502" ) ) :| [] ) @@ -132,11 +133,12 @@ UberModule { qnameModuleName = ModuleName "Data.Identity", qnameName = Name "applicativeIdentity" }, LiteralObject Nothing [ - ( PropName "pure", Abs Nothing - ( ParamNamed Nothing ( Name "x$503" ) ) + ( PropName "pure", AbsN Nothing + ( ParamNamed Nothing ( Name "x$503" ) :| [] ) ( Ref Nothing ( Local ( Name "x$503" ) ) ) ), - ( PropName "Apply0", Abs Nothing ( ParamUnused Nothing ) + ( PropName "Apply0", AbsN Nothing + ( ParamUnused Nothing :| [] ) ( Ref Nothing ( Imported ( ModuleName "Data.Identity" ) ( Name "applyIdentity" ) ) ) ) ] @@ -145,25 +147,28 @@ UberModule { qnameModuleName = ModuleName "Data.Identity", qnameName = Name "monadIdentity" }, LiteralObject Nothing [ - ( PropName "Applicative0", Abs Nothing ( ParamUnused Nothing ) + ( PropName "Applicative0", AbsN Nothing + ( ParamUnused Nothing :| [] ) ( Ref Nothing ( Imported ( ModuleName "Data.Identity" ) ( Name "applicativeIdentity" ) ) ) ), - ( PropName "Bind1", Abs Nothing ( ParamUnused Nothing ) + ( PropName "Bind1", AbsN Nothing + ( ParamUnused Nothing :| [] ) ( LiteralObject Nothing [ - ( PropName "bind", Abs Nothing - ( ParamNamed Nothing ( Name "v$87" ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "f$88" ) ) + ( PropName "bind", AbsN Nothing + ( ParamNamed Nothing ( Name "v$87" ) :| [] ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "f$88" ) :| [] ) ( AppN Nothing ( Ref Nothing ( Local ( Name "f$88" ) ) ) ( Ref Nothing ( Local ( Name "v$87" ) ) :| [] ) ) ) ), - ( PropName "Apply0", Abs Nothing ( ParamUnused Nothing ) + ( PropName "Apply0", AbsN Nothing + ( ParamUnused Nothing :| [] ) ( Ref Nothing ( Imported ( ModuleName "Data.Identity" ) ( Name "applyIdentity" ) ) ) @@ -183,18 +188,19 @@ UberModule ), Standalone ( QName { qnameModuleName = ModuleName "Control.Monad.Except.Trans", qnameName = Name "ExceptT" - }, Abs Nothing - ( ParamNamed Nothing ( Name "x" ) ) + }, AbsN Nothing + ( ParamNamed Nothing ( Name "x" ) :| [] ) ( Ref Nothing ( Local ( Name "x" ) ) ) ), RecursiveGroup ( ( QName { qnameModuleName = ModuleName "Control.Monad.Except.Trans", qnameName = Name "monadExceptT" - }, Abs Nothing - ( ParamNamed Nothing ( Name "dictMonad" ) ) + }, AbsN Nothing + ( ParamNamed Nothing ( Name "dictMonad" ) :| [] ) ( LiteralObject Nothing [ - ( PropName "Applicative0", Abs Nothing ( ParamUnused Nothing ) + ( PropName "Applicative0", AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( Ref Nothing ( Imported @@ -205,7 +211,8 @@ UberModule ( Ref Nothing ( Local ( Name "dictMonad" ) ) :| [] ) ) ), - ( PropName "Bind1", Abs Nothing ( ParamUnused Nothing ) + ( PropName "Bind1", AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Control.Monad.Except.Trans" ) ( Name "bindExceptT" ) ) @@ -219,14 +226,14 @@ UberModule [ ( QName { qnameModuleName = ModuleName "Control.Monad.Except.Trans", qnameName = Name "bindExceptT" - }, Abs Nothing - ( ParamNamed Nothing ( Name "dictMonad" ) ) + }, AbsN Nothing + ( ParamNamed Nothing ( Name "dictMonad" ) :| [] ) ( LiteralObject Nothing [ - ( PropName "bind", Abs Nothing - ( ParamNamed Nothing ( Name "v" ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "k" ) ) + ( PropName "bind", AbsN Nothing + ( ParamNamed Nothing ( Name "v" ) :| [] ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "k" ) :| [] ) ( AppN Nothing ( AppN Nothing ( AppN Nothing @@ -245,8 +252,8 @@ UberModule ) ( Ref Nothing ( Local ( Name "v" ) ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "v2$506" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "v2$506" ) :| [] ) ( IfThenElse Nothing ( Eq Nothing ( LiteralString Nothing "Data.Either∷Either.Left" ) @@ -307,7 +314,8 @@ UberModule ) ) ), - ( PropName "Apply0", Abs Nothing ( ParamUnused Nothing ) + ( PropName "Apply0", AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( Ref Nothing ( Imported @@ -323,8 +331,8 @@ UberModule ), ( QName { qnameModuleName = ModuleName "Control.Monad.Except.Trans", qnameName = Name "applyExceptT" - }, Abs Nothing - ( ParamNamed Nothing ( Name "dictMonad" ) ) + }, AbsN Nothing + ( ParamNamed Nothing ( Name "dictMonad" ) :| [] ) ( LiteralObject Nothing [ ( PropName "apply", Let Nothing @@ -354,24 +362,24 @@ UberModule ) ) :| [] ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "f$511" ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "a$512" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "f$511" ) :| [] ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "a$512" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing ( Local ( Name "bind$510" ) ) ) ( Ref Nothing ( Local ( Name "f$511" ) ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "f'$513" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "f'$513" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing ( Local ( Name "bind$510" ) ) ) ( Ref Nothing ( Local ( Name "a$512" ) ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "a'$514" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "a'$514" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -406,13 +414,14 @@ UberModule ) ) ), - ( PropName "Functor0", Abs Nothing ( ParamUnused Nothing ) + ( PropName "Functor0", AbsN Nothing + ( ParamUnused Nothing :| [] ) ( LiteralObject Nothing [ - ( PropName "map", Abs Nothing - ( ParamNamed Nothing ( Name "f$498" ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "v$500" ) ) + ( PropName "map", AbsN Nothing + ( ParamNamed Nothing ( Name "f$498" ) :| [] ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "v$500" ) :| [] ) ( AppN Nothing ( AppN Nothing ( AppN Nothing @@ -458,10 +467,10 @@ UberModule ) ( LiteralObject Nothing [ - ( PropName "map", Abs Nothing - ( ParamNamed Nothing ( Name "f$507" ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "m$508" ) ) + ( PropName "map", AbsN Nothing + ( ParamNamed Nothing ( Name "f$507" ) :| [] ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "m$508" ) :| [] ) ( IfThenElse Nothing ( Eq Nothing ( LiteralString Nothing "Data.Either∷Either.Left" ) @@ -526,8 +535,8 @@ UberModule ), ( QName { qnameModuleName = ModuleName "Control.Monad.Except.Trans", qnameName = Name "applicativeExceptT" - }, Abs Nothing - ( ParamNamed Nothing ( Name "dictMonad" ) ) + }, AbsN Nothing + ( ParamNamed Nothing ( Name "dictMonad" ) :| [] ) ( LiteralObject Nothing [ ( PropName "pure", AppN Nothing @@ -567,7 +576,8 @@ UberModule ) :| [] ) ), - ( PropName "Apply0", Abs Nothing ( ParamUnused Nothing ) + ( PropName "Apply0", AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( Ref Nothing ( Imported @@ -618,10 +628,10 @@ UberModule { qnameModuleName = ModuleName "Golden.LongExceptBind.Test", qnameName = Name "go" }, Let Nothing ( Standalone - ( Nothing, Name "$kont518", Abs Nothing - ( ParamNamed Nothing ( Name "x1$519" ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x160$520" ) ) + ( Nothing, Name "$kont518", AbsN Nothing + ( ParamNamed Nothing ( Name "x1$519" ) :| [] ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x160$520" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -648,8 +658,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x161" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x161" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -678,8 +688,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x162" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x162" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -711,8 +721,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x163" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x163" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -750,8 +760,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x164" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x164" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -789,8 +799,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x165" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x165" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -831,8 +841,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x166" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x166" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -873,8 +883,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x167" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x167" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -917,8 +927,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x168" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x168" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -961,8 +971,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x169" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x169" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -1005,8 +1015,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x170" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x170" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -1049,8 +1059,10 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x171" ) ) + ( AbsN Nothing + ( ParamNamed Nothing + ( Name "x171" ) :| [] + ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -1095,9 +1107,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x172" ) + ( Name "x172" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -1143,9 +1155,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x173" ) + ( Name "x173" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -1191,9 +1203,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x174" ) + ( Name "x174" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -1239,9 +1251,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x175" ) + ( Name "x175" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -1287,9 +1299,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x176" ) + ( Name "x176" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -1335,9 +1347,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x177" ) + ( Name "x177" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -1383,9 +1395,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x178" ) + ( Name "x178" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -1431,9 +1443,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x179" ) + ( Name "x179" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -1479,9 +1491,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x180" ) + ( Name "x180" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -1527,9 +1539,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x181" ) + ( Name "x181" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -1575,9 +1587,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x182" ) + ( Name "x182" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -1623,9 +1635,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x183" ) + ( Name "x183" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -1671,9 +1683,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x184" ) + ( Name "x184" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -1719,9 +1731,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x185" ) + ( Name "x185" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -1767,9 +1779,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x186" ) + ( Name "x186" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -1815,9 +1827,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x187" ) + ( Name "x187" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -1863,9 +1875,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x188" ) + ( Name "x188" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -1911,9 +1923,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x189" ) + ( Name "x189" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -1959,9 +1971,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x190" ) + ( Name "x190" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -2007,9 +2019,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x191" ) + ( Name "x191" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -2055,9 +2067,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x192" ) + ( Name "x192" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -2103,9 +2115,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x193" ) + ( Name "x193" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -2151,9 +2163,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x194" ) + ( Name "x194" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -2199,9 +2211,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x195" ) + ( Name "x195" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -2247,9 +2259,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x196" ) + ( Name "x196" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -2295,9 +2307,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x197" ) + ( Name "x197" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -2343,9 +2355,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x198" ) + ( Name "x198" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -2391,9 +2403,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x199" ) + ( Name "x199" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -2439,9 +2451,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x200" ) + ( Name "x200" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -2573,10 +2585,10 @@ UberModule ) ) :| [ Standalone - ( Nothing, Name "$kont521", Abs Nothing - ( ParamNamed Nothing ( Name "x1$522" ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x120$523" ) ) + ( Nothing, Name "$kont521", AbsN Nothing + ( ParamNamed Nothing ( Name "x1$522" ) :| [] ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x120$523" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -2603,8 +2615,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x121" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x121" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -2636,8 +2648,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x122" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x122" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -2675,8 +2687,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x123" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x123" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -2714,8 +2726,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x124" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x124" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -2753,8 +2765,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x125" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x125" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -2795,8 +2807,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x126" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x126" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -2837,8 +2849,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x127" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x127" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -2881,8 +2893,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x128" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x128" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -2925,8 +2937,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x129" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x129" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -2969,8 +2981,10 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x130" ) ) + ( AbsN Nothing + ( ParamNamed Nothing + ( Name "x130" ) :| [] + ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -3015,8 +3029,10 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x131" ) ) + ( AbsN Nothing + ( ParamNamed Nothing + ( Name "x131" ) :| [] + ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -3061,9 +3077,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x132" ) + ( Name "x132" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -3109,9 +3125,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x133" ) + ( Name "x133" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -3157,9 +3173,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x134" ) + ( Name "x134" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -3205,9 +3221,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x135" ) + ( Name "x135" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -3253,9 +3269,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x136" ) + ( Name "x136" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -3301,9 +3317,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x137" ) + ( Name "x137" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -3349,9 +3365,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x138" ) + ( Name "x138" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -3397,9 +3413,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x139" ) + ( Name "x139" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -3445,9 +3461,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x140" ) + ( Name "x140" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -3493,9 +3509,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x141" ) + ( Name "x141" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -3541,9 +3557,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x142" ) + ( Name "x142" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -3589,9 +3605,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x143" ) + ( Name "x143" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -3637,9 +3653,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x144" ) + ( Name "x144" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -3685,9 +3701,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x145" ) + ( Name "x145" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -3733,9 +3749,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x146" ) + ( Name "x146" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -3781,9 +3797,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x147" ) + ( Name "x147" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -3829,9 +3845,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x148" ) + ( Name "x148" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -3877,9 +3893,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x149" ) + ( Name "x149" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -3925,9 +3941,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x150" ) + ( Name "x150" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -3973,9 +3989,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x151" ) + ( Name "x151" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -4021,9 +4037,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x152" ) + ( Name "x152" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -4069,9 +4085,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x153" ) + ( Name "x153" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -4117,9 +4133,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x154" ) + ( Name "x154" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -4165,9 +4181,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x155" ) + ( Name "x155" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -4213,9 +4229,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x156" ) + ( Name "x156" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -4261,9 +4277,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x157" ) + ( Name "x157" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -4309,9 +4325,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x158" ) + ( Name "x158" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -4357,9 +4373,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x159" ) + ( Name "x159" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -4405,9 +4421,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x160" ) + ( Name "x160" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -4510,10 +4526,10 @@ UberModule ) ) ), Standalone - ( Nothing, Name "$kont524", Abs Nothing - ( ParamNamed Nothing ( Name "x1$525" ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x80$526" ) ) + ( Nothing, Name "$kont524", AbsN Nothing + ( ParamNamed Nothing ( Name "x1$525" ) :| [] ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x80$526" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -4540,8 +4556,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x81" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x81" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -4573,8 +4589,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x82" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x82" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -4612,8 +4628,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x83" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x83" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -4651,8 +4667,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x84" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x84" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -4690,8 +4706,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x85" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x85" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -4732,8 +4748,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x86" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x86" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -4774,8 +4790,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x87" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x87" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -4818,8 +4834,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x88" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x88" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -4862,8 +4878,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x89" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x89" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -4906,8 +4922,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x90" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x90" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -4950,8 +4966,10 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x91" ) ) + ( AbsN Nothing + ( ParamNamed Nothing + ( Name "x91" ) :| [] + ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -4996,9 +5014,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x92" ) + ( Name "x92" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -5044,9 +5062,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x93" ) + ( Name "x93" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -5092,9 +5110,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x94" ) + ( Name "x94" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -5140,9 +5158,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x95" ) + ( Name "x95" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -5188,9 +5206,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x96" ) + ( Name "x96" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -5236,9 +5254,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x97" ) + ( Name "x97" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -5284,9 +5302,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x98" ) + ( Name "x98" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -5332,9 +5350,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x99" ) + ( Name "x99" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -5380,9 +5398,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x100" ) + ( Name "x100" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -5428,9 +5446,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x101" ) + ( Name "x101" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -5476,9 +5494,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x102" ) + ( Name "x102" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -5524,9 +5542,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x103" ) + ( Name "x103" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -5572,9 +5590,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x104" ) + ( Name "x104" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -5620,9 +5638,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x105" ) + ( Name "x105" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -5668,9 +5686,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x106" ) + ( Name "x106" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -5716,9 +5734,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x107" ) + ( Name "x107" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -5764,9 +5782,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x108" ) + ( Name "x108" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -5812,9 +5830,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x109" ) + ( Name "x109" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -5860,9 +5878,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x110" ) + ( Name "x110" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -5908,9 +5926,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x111" ) + ( Name "x111" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -5956,9 +5974,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x112" ) + ( Name "x112" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -6004,9 +6022,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x113" ) + ( Name "x113" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -6052,9 +6070,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x114" ) + ( Name "x114" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -6100,9 +6118,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x115" ) + ( Name "x115" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -6148,9 +6166,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x116" ) + ( Name "x116" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -6196,9 +6214,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x117" ) + ( Name "x117" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -6244,9 +6262,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x118" ) + ( Name "x118" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -6292,9 +6310,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x119" ) + ( Name "x119" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -6340,9 +6358,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x120" ) + ( Name "x120" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -6445,10 +6463,10 @@ UberModule ) ) ), Standalone - ( Nothing, Name "$kont527", Abs Nothing - ( ParamNamed Nothing ( Name "x1$528" ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x40$529" ) ) + ( Nothing, Name "$kont527", AbsN Nothing + ( ParamNamed Nothing ( Name "x1$528" ) :| [] ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x40$529" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -6475,8 +6493,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x41" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x41" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -6508,8 +6526,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x42" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x42" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -6547,8 +6565,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x43" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x43" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -6586,8 +6604,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x44" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x44" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -6625,8 +6643,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x45" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x45" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -6667,8 +6685,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x46" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x46" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -6709,8 +6727,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x47" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x47" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -6753,8 +6771,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x48" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x48" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -6797,8 +6815,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x49" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x49" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -6841,8 +6859,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x50" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x50" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -6885,8 +6903,10 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x51" ) ) + ( AbsN Nothing + ( ParamNamed Nothing + ( Name "x51" ) :| [] + ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -6931,9 +6951,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x52" ) + ( Name "x52" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -6979,9 +6999,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x53" ) + ( Name "x53" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -7027,9 +7047,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x54" ) + ( Name "x54" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -7075,9 +7095,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x55" ) + ( Name "x55" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -7123,9 +7143,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x56" ) + ( Name "x56" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -7171,9 +7191,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x57" ) + ( Name "x57" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -7219,9 +7239,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x58" ) + ( Name "x58" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -7267,9 +7287,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x59" ) + ( Name "x59" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -7315,9 +7335,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x60" ) + ( Name "x60" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -7363,9 +7383,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x61" ) + ( Name "x61" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -7411,9 +7431,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x62" ) + ( Name "x62" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -7459,9 +7479,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x63" ) + ( Name "x63" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -7507,9 +7527,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x64" ) + ( Name "x64" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -7555,9 +7575,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x65" ) + ( Name "x65" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -7603,9 +7623,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x66" ) + ( Name "x66" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -7651,9 +7671,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x67" ) + ( Name "x67" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -7699,9 +7719,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x68" ) + ( Name "x68" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -7747,9 +7767,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x69" ) + ( Name "x69" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -7795,9 +7815,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x70" ) + ( Name "x70" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -7843,9 +7863,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x71" ) + ( Name "x71" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -7891,9 +7911,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x72" ) + ( Name "x72" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -7939,9 +7959,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x73" ) + ( Name "x73" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -7987,9 +8007,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x74" ) + ( Name "x74" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -8035,9 +8055,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x75" ) + ( Name "x75" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -8083,9 +8103,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x76" ) + ( Name "x76" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -8131,9 +8151,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x77" ) + ( Name "x77" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -8179,9 +8199,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x78" ) + ( Name "x78" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -8227,9 +8247,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x79" ) + ( Name "x79" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -8275,9 +8295,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x80" ) + ( Name "x80" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -8397,8 +8417,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x1" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x1" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -8425,8 +8445,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x2" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x2" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -8453,8 +8473,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x3" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x3" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -8486,8 +8506,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x4" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x4" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -8525,8 +8545,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x5" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x5" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -8564,8 +8584,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x6" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x6" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -8603,8 +8623,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x7" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x7" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -8645,8 +8665,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x8" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x8" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -8687,8 +8707,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x9" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x9" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -8731,8 +8751,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x10" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x10" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -8775,8 +8795,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x11" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x11" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -8819,8 +8839,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x12" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x12" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -8863,8 +8883,10 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x13" ) ) + ( AbsN Nothing + ( ParamNamed Nothing + ( Name "x13" ) :| [] + ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -8909,9 +8931,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x14" ) + ( Name "x14" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -8957,9 +8979,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x15" ) + ( Name "x15" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -9005,9 +9027,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x16" ) + ( Name "x16" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -9053,9 +9075,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x17" ) + ( Name "x17" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -9101,9 +9123,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x18" ) + ( Name "x18" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -9149,9 +9171,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x19" ) + ( Name "x19" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -9197,9 +9219,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x20" ) + ( Name "x20" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -9245,9 +9267,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x21" ) + ( Name "x21" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -9293,9 +9315,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x22" ) + ( Name "x22" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -9341,9 +9363,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x23" ) + ( Name "x23" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -9389,9 +9411,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x24" ) + ( Name "x24" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -9437,9 +9459,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x25" ) + ( Name "x25" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -9485,9 +9507,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x26" ) + ( Name "x26" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -9533,9 +9555,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x27" ) + ( Name "x27" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -9581,9 +9603,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x28" ) + ( Name "x28" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -9629,9 +9651,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x29" ) + ( Name "x29" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -9677,9 +9699,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x30" ) + ( Name "x30" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -9725,9 +9747,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x31" ) + ( Name "x31" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -9773,9 +9795,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x32" ) + ( Name "x32" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -9821,9 +9843,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x33" ) + ( Name "x33" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -9869,9 +9891,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x34" ) + ( Name "x34" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -9917,9 +9939,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x35" ) + ( Name "x35" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -9965,9 +9987,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x36" ) + ( Name "x36" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -10013,9 +10035,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x37" ) + ( Name "x37" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -10061,9 +10083,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x38" ) + ( Name "x38" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -10109,9 +10131,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x39" ) + ( Name "x39" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -10157,9 +10179,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x40" ) + ( Name "x40" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -10277,8 +10299,8 @@ UberModule ( PropName "unsafeCoerce" ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "v$39" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "v$39" ) :| [] ) ( Ref Nothing ( Local ( Name "v$39" ) ) ) :| [] ) ) @@ -10302,8 +10324,8 @@ UberModule ( Ref Nothing ( Imported ( ModuleName "Data.Show" ) ( Name "show" ) ) ) ( LiteralObject Nothing [ - ( PropName "show", Abs Nothing - ( ParamNamed Nothing ( Name "v$189$517" ) ) + ( PropName "show", AbsN Nothing + ( ParamNamed Nothing ( Name "v$189$517" ) :| [] ) ( IfThenElse Nothing ( Eq Nothing ( LiteralString Nothing "Data.Either∷Either.Left" ) diff --git a/test/ps/output/Golden.LongMaybeBind.Test/golden.ir b/test/ps/output/Golden.LongMaybeBind.Test/golden.ir index ed87c486..f27bf7a2 100644 --- a/test/ps/output/Golden.LongMaybeBind.Test/golden.ir +++ b/test/ps/output/Golden.LongMaybeBind.Test/golden.ir @@ -32,8 +32,8 @@ UberModule [ ( Nothing, Name "log" ) ] ), Standalone ( QName - { qnameModuleName = ModuleName "Data.Show", qnameName = Name "show" }, Abs Nothing - ( ParamNamed Nothing ( Name "dict" ) ) + { qnameModuleName = ModuleName "Data.Show", qnameName = Name "show" }, AbsN Nothing + ( ParamNamed Nothing ( Name "dict" ) :| [] ) ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "dict" ) ) ) ( PropName "show" ) ) ), Standalone ( QName @@ -45,35 +45,32 @@ UberModule [ FieldName "value0" ] ), Standalone ( QName - { qnameModuleName = ModuleName "Golden.LongMaybeBind.Test", qnameName = Name "bind" - }, Abs Nothing - ( ParamNamed Nothing ( Name "v$270" ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "v1$271" ) ) + { qnameModuleName = ModuleName "Golden.LongMaybeBind.Test", qnameName = Name "bind$w" + }, AbsN Nothing + ( ParamNamed Nothing ( Name "v$270" ) :| [ ParamNamed Nothing ( Name "v1$271" ) ] ) + ( IfThenElse Nothing + ( Eq Nothing + ( LiteralString Nothing "Data.Maybe∷Maybe.Just" ) + ( ReflectCtor Nothing ( Ref Nothing ( Local ( Name "v$270" ) ) ) ) + ) + ( AppN Nothing + ( Ref Nothing ( Local ( Name "v1$271" ) ) ) + ( ObjectProp Nothing + ( Ref Nothing ( Local ( Name "v$270" ) ) ) + ( PropName "value0" ) :| [] + ) + ) ( IfThenElse Nothing ( Eq Nothing - ( LiteralString Nothing "Data.Maybe∷Maybe.Just" ) + ( LiteralString Nothing "Data.Maybe∷Maybe.Nothing" ) ( ReflectCtor Nothing ( Ref Nothing ( Local ( Name "v$270" ) ) ) ) ) - ( AppN Nothing - ( Ref Nothing ( Local ( Name "v1$271" ) ) ) - ( ObjectProp Nothing - ( Ref Nothing ( Local ( Name "v$270" ) ) ) - ( PropName "value0" ) :| [] - ) - ) - ( IfThenElse Nothing - ( Eq Nothing - ( LiteralString Nothing "Data.Maybe∷Maybe.Nothing" ) - ( ReflectCtor Nothing ( Ref Nothing ( Local ( Name "v$270" ) ) ) ) - ) - ( Ctor Nothing SumType - ( ModuleName "Data.Maybe" ) - ( TyName "Maybe" ) - ( CtorName "Nothing" ) [] - ) - ( Exception Nothing "No patterns matched" ) + ( Ctor Nothing SumType + ( ModuleName "Data.Maybe" ) + ( TyName "Maybe" ) + ( CtorName "Nothing" ) [] ) + ( Exception Nothing "No patterns matched" ) ) ) ), Standalone @@ -81,37 +78,33 @@ UberModule { qnameModuleName = ModuleName "Golden.LongMaybeBind.Test", qnameName = Name "compute" }, Let Nothing ( Standalone - ( Nothing, Name "$kont279", Abs Nothing - ( ParamNamed Nothing ( Name "x1$280" ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x277$281" ) ) + ( Nothing, Name "$kont279", AbsN Nothing + ( ParamNamed Nothing ( Name "x1$280" ) :| [] ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x277$281" ) :| [] ) ( AppN Nothing + ( Ref Nothing + ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind$w" ) ) + ) ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind" ) ) - ) + ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) ( AppN Nothing - ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported ( ModuleName "Data.Semiring" ) ( Name "foreign" ) ) - ) - ( PropName "intAdd" ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported ( ModuleName "Data.Semiring" ) ( Name "foreign" ) ) ) - ( Ref Nothing ( Local ( Name "x277$281" ) ) :| [] ) + ( PropName "intAdd" ) ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x278" ) ) - ( AppN Nothing + ( Ref Nothing ( Local ( Name "x277$281" ) ) :| [] ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing ( Name "x278" ) :| [] ) ( AppN Nothing ( Ref Nothing - ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind" ) ) + ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind$w" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) @@ -126,73 +119,39 @@ UberModule ( Ref Nothing ( Local ( Name "x278" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x279" ) ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind" ) ) - ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing ( Name "x279" ) :| [] ) ( AppN Nothing ( Ref Nothing - ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) - ) - ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported ( ModuleName "Data.Semiring" ) ( Name "foreign" ) ) - ) - ( PropName "intAdd" ) - ) - ( Ref Nothing ( Local ( Name "x279" ) ) :| [] ) + ( Imported + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "bind$w" ) ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x280" ) ) - ( AppN Nothing + ) ( AppN Nothing ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind" ) - ) + ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) - ) ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported ( ModuleName "Data.Semiring" ) ( Name "foreign" ) ) ) - ( Ref Nothing ( Local ( Name "x280" ) ) :| [] ) + ( PropName "intAdd" ) ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x281" ) ) - ( AppN Nothing + ( Ref Nothing ( Local ( Name "x279" ) ) :| [] ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing ( Name "x280" ) :| [] ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind" ) + ( Name "bind$w" ) ) ) ( AppN Nothing @@ -210,85 +169,45 @@ UberModule ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x281" ) ) :| [] ) + ( Ref Nothing ( Local ( Name "x280" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x282" ) ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind" ) - ) - ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing ( Name "x281" ) :| [] ) ( AppN Nothing ( Ref Nothing - ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) - ) - ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) - ( Ref Nothing ( Local ( Name "x282" ) ) :| [] ) + ( Imported + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "bind$w" ) ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x283" ) ) - ( AppN Nothing + ) ( AppN Nothing ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind" ) - ) + ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) - ) - ) ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) ) - ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x283" ) ) :| [] ) + ( PropName "intAdd" ) ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x284" ) ) - ( AppN Nothing + ( Ref Nothing ( Local ( Name "x281" ) ) :| [] ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing ( Name "x282" ) :| [] ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind" ) + ( Name "bind$w" ) ) ) ( AppN Nothing @@ -309,92 +228,52 @@ UberModule ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x284" ) ) :| [] ) + ( Ref Nothing ( Local ( Name "x282" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x285" ) ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind" ) - ) - ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing ( Name "x283" ) :| [] ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "bind$w" ) ) ) - ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) - ( Ref Nothing - ( Local ( Name "x285" ) ) :| [] - ) - ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x286" ) ) - ( AppN Nothing ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) - ) - ) ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) + ( ObjectProp ( Just Always ) ( Ref Nothing - ( Local ( Name "x286" ) ) :| [] + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) ) + ( PropName "intAdd" ) ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x287" ) ) - ( AppN Nothing + ( Ref Nothing + ( Local ( Name "x283" ) ) :| [] + ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x284" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind" ) + ( Name "bind$w" ) ) ) ( AppN Nothing @@ -416,101 +295,57 @@ UberModule ( PropName "intAdd" ) ) ( Ref Nothing - ( Local ( Name "x287" ) ) :| [] + ( Local ( Name "x284" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x288" ) ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind" ) - ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x285" ) :| [] ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "bind$w" ) ) ) - ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) - ( Ref Nothing - ( Local - ( Name "x288" ) - ) :| [] - ) - ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x289" ) - ) - ( AppN Nothing ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) - ) - ) ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) + ( ObjectProp ( Just Always ) ( Ref Nothing - ( Local - ( Name "x289" ) - ) :| [] + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) ) + ( PropName "intAdd" ) ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x290" ) - ) - ( AppN Nothing + ( Ref Nothing + ( Local + ( Name "x285" ) + ) :| [] + ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x286" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind" ) + ( Name "bind$w" ) ) ) ( AppN Nothing @@ -533,104 +368,58 @@ UberModule ) ( Ref Nothing ( Local - ( Name "x290" ) + ( Name "x286" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x291" ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind" ) - ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x287" ) :| [] ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "bind$w" ) ) ) - ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) - ( Ref Nothing - ( Local - ( Name "x291" ) - ) :| [] - ) - ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x292" ) - ) - ( AppN Nothing ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) - ) - ) ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) + ( ObjectProp ( Just Always ) ( Ref Nothing - ( Local - ( Name "x292" ) - ) :| [] + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) ) + ( PropName "intAdd" ) ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x293" ) - ) - ( AppN Nothing + ( Ref Nothing + ( Local + ( Name "x287" ) + ) :| [] + ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x288" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind" ) + ( Name "bind$w" ) ) ) ( AppN Nothing @@ -653,104 +442,58 @@ UberModule ) ( Ref Nothing ( Local - ( Name "x293" ) + ( Name "x288" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x294" ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind" ) - ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x289" ) :| [] ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "bind$w" ) ) ) - ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) - ( Ref Nothing - ( Local - ( Name "x294" ) - ) :| [] - ) - ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x295" ) - ) - ( AppN Nothing ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) - ) - ) ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) + ( ObjectProp ( Just Always ) ( Ref Nothing - ( Local - ( Name "x295" ) - ) :| [] + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) ) + ( PropName "intAdd" ) ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x296" ) - ) - ( AppN Nothing + ( Ref Nothing + ( Local + ( Name "x289" ) + ) :| [] + ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x290" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind" ) + ( Name "bind$w" ) ) ) ( AppN Nothing @@ -773,104 +516,58 @@ UberModule ) ( Ref Nothing ( Local - ( Name "x296" ) + ( Name "x290" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x297" ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind" ) - ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x291" ) :| [] ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "bind$w" ) ) ) - ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) - ( Ref Nothing - ( Local - ( Name "x297" ) - ) :| [] - ) - ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x298" ) - ) - ( AppN Nothing ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) - ) - ) ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) + ( ObjectProp ( Just Always ) ( Ref Nothing - ( Local - ( Name "x298" ) - ) :| [] + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) ) + ( PropName "intAdd" ) ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x299" ) - ) - ( AppN Nothing + ( Ref Nothing + ( Local + ( Name "x291" ) + ) :| [] + ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x292" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind" ) + ( Name "bind$w" ) ) ) ( AppN Nothing @@ -893,129 +590,405 @@ UberModule ) ( Ref Nothing ( Local - ( Name "x299" ) + ( Name "x292" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x300" ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x293" ) :| [] ) - ) - ( AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "bind$w" ) + ) + ) + ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) - ( PropName "intAdd" ) - ) - ( Ref Nothing - ( Local - ( Name "x1$280" ) - ) :| [] - ) - ) - ( Ref Nothing - ( Local - ( Name "x300" ) - ) :| [] - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] + ( AppN Nothing + ( AppN Nothing + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) + ) + ( PropName "intAdd" ) + ) + ( Ref Nothing + ( Local + ( Name "x293" ) + ) :| [] + ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x294" ) :| [] + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "bind$w" ) + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) + ) + ) + ( AppN Nothing + ( AppN Nothing + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) + ) + ( PropName "intAdd" ) + ) + ( Ref Nothing + ( Local + ( Name "x294" ) + ) :| [] + ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x295" ) :| [] + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "bind$w" ) + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) + ) + ) + ( AppN Nothing + ( AppN Nothing + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) + ) + ( PropName "intAdd" ) + ) + ( Ref Nothing + ( Local + ( Name "x295" ) + ) :| [] + ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x296" ) :| [] + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "bind$w" ) + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) + ) + ) + ( AppN Nothing + ( AppN Nothing + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) + ) + ( PropName "intAdd" ) + ) + ( Ref Nothing + ( Local + ( Name "x296" ) + ) :| [] + ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x297" ) :| [] + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "bind$w" ) + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) + ) + ) + ( AppN Nothing + ( AppN Nothing + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) + ) + ( PropName "intAdd" ) + ) + ( Ref Nothing + ( Local + ( Name "x297" ) + ) :| [] + ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x298" ) :| [] + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "bind$w" ) + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) + ) + ) + ( AppN Nothing + ( AppN Nothing + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) + ) + ( PropName "intAdd" ) + ) + ( Ref Nothing + ( Local + ( Name "x298" ) + ) :| [] + ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x299" ) :| [] + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "bind$w" ) + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) + ) + ) + ( AppN Nothing + ( AppN Nothing + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) + ) + ( PropName "intAdd" ) + ) + ( Ref Nothing + ( Local + ( Name "x299" ) + ) :| [] + ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x300" ) :| [] + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) + ) + ) + ( AppN Nothing + ( AppN Nothing + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) + ) + ( PropName "intAdd" ) + ) + ( Ref Nothing + ( Local + ( Name "x1$280" ) + ) :| [] + ) + ) + ( Ref Nothing + ( Local + ( Name "x300" ) + ) :| [] + ) :| [] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) ) ) ) :| [ Standalone - ( Nothing, Name "$kont282", Abs Nothing - ( ParamNamed Nothing ( Name "x1$283" ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x238$284" ) ) + ( Nothing, Name "$kont282", AbsN Nothing + ( ParamNamed Nothing ( Name "x1$283" ) :| [] ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x238$284" ) :| [] ) ( AppN Nothing + ( Ref Nothing + ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind$w" ) ) + ) ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind" ) ) - ) + ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) ( AppN Nothing - ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported ( ModuleName "Data.Semiring" ) ( Name "foreign" ) ) - ) - ( PropName "intAdd" ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported ( ModuleName "Data.Semiring" ) ( Name "foreign" ) ) ) - ( Ref Nothing ( Local ( Name "x238$284" ) ) :| [] ) + ( PropName "intAdd" ) ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x239" ) ) - ( AppN Nothing + ( Ref Nothing ( Local ( Name "x238$284" ) ) :| [] ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing ( Name "x239" ) :| [] ) ( AppN Nothing ( Ref Nothing - ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind" ) ) + ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind$w" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) @@ -1030,76 +1003,42 @@ UberModule ( Ref Nothing ( Local ( Name "x239" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x240" ) ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind" ) - ) - ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing ( Name "x240" ) :| [] ) ( AppN Nothing ( Ref Nothing - ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) - ) - ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported ( ModuleName "Data.Semiring" ) ( Name "foreign" ) ) - ) - ( PropName "intAdd" ) - ) - ( Ref Nothing ( Local ( Name "x240" ) ) :| [] ) + ( Imported + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "bind$w" ) ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x241" ) ) - ( AppN Nothing + ) ( AppN Nothing ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind" ) - ) + ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) - ) ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) ) - ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x241" ) ) :| [] ) + ( PropName "intAdd" ) ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x242" ) ) - ( AppN Nothing + ( Ref Nothing ( Local ( Name "x240" ) ) :| [] ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing ( Name "x241" ) :| [] ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind" ) + ( Name "bind$w" ) ) ) ( AppN Nothing @@ -1117,85 +1056,48 @@ UberModule ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x242" ) ) :| [] ) + ( Ref Nothing ( Local ( Name "x241" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x243" ) ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind" ) - ) - ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing ( Name "x242" ) :| [] ) ( AppN Nothing ( Ref Nothing - ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) - ) - ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) - ( Ref Nothing ( Local ( Name "x243" ) ) :| [] ) + ( Imported + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "bind$w" ) ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x244" ) ) - ( AppN Nothing + ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) - ) - ) ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) ) - ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x244" ) ) :| [] ) + ( PropName "intAdd" ) ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x245" ) ) - ( AppN Nothing + ( Ref Nothing ( Local ( Name "x242" ) ) :| [] ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing ( Name "x243" ) :| [] ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind" ) + ( Name "bind$w" ) ) ) ( AppN Nothing @@ -1217,93 +1119,53 @@ UberModule ( PropName "intAdd" ) ) ( Ref Nothing - ( Local ( Name "x245" ) ) :| [] + ( Local ( Name "x243" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x246" ) ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind" ) - ) - ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing ( Name "x244" ) :| [] ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "bind$w" ) ) ) - ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) - ( Ref Nothing - ( Local ( Name "x246" ) ) :| [] - ) - ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x247" ) ) - ( AppN Nothing ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) - ) - ) ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) + ( ObjectProp ( Just Always ) ( Ref Nothing - ( Local ( Name "x247" ) ) :| [] + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) ) + ( PropName "intAdd" ) ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x248" ) ) - ( AppN Nothing + ( Ref Nothing + ( Local ( Name "x244" ) ) :| [] + ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x245" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind" ) + ( Name "bind$w" ) ) ) ( AppN Nothing @@ -1325,88 +1187,57 @@ UberModule ( PropName "intAdd" ) ) ( Ref Nothing - ( Local ( Name "x248" ) ) :| [] + ( Local ( Name "x245" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x249" ) ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind" ) - ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x246" ) :| [] ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "bind$w" ) ) ) - ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) - ( Ref Nothing - ( Local - ( Name "x249" ) - ) :| [] - ) - ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x250" ) - ) - ( AppN Nothing ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( AppN Nothing + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) + ) + ( PropName "intAdd" ) ) - ) - ( ObjectProp ( Just Always ) ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) + ( Local + ( Name "x246" ) + ) :| [] ) - ( PropName "unit" ) :| [] - ) :| [] - ) - ) - ( Abs Nothing ( ParamUnused Nothing ) - ( AppN Nothing + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x247" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind" ) + ( Name "bind$w" ) ) ) ( AppN Nothing @@ -1429,104 +1260,58 @@ UberModule ) ( Ref Nothing ( Local - ( Name "x250" ) + ( Name "x247" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x251" ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind" ) - ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x248" ) :| [] ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "bind$w" ) ) ) - ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) - ( Ref Nothing - ( Local - ( Name "x251" ) - ) :| [] - ) - ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x252" ) - ) - ( AppN Nothing ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) - ) - ) ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) + ( ObjectProp ( Just Always ) ( Ref Nothing - ( Local - ( Name "x252" ) - ) :| [] + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) ) + ( PropName "intAdd" ) ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x253" ) - ) - ( AppN Nothing + ( Ref Nothing + ( Local + ( Name "x248" ) + ) :| [] + ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x249" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind" ) + ( Name "bind$w" ) ) ) ( AppN Nothing @@ -1549,104 +1334,46 @@ UberModule ) ( Ref Nothing ( Local - ( Name "x253" ) + ( Name "x249" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x254" ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind" ) - ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x250" ) :| [] ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) - ) - ) - ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) - ( Ref Nothing - ( Local - ( Name "x254" ) - ) :| [] - ) - ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x255" ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) - ) - ) - ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) - ( Ref Nothing - ( Local - ( Name "x255" ) - ) :| [] - ) - ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "bind$w" ) ) ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x256" ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) + ) ) - ( AppN Nothing + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "foreign" ) + ) + ) + ( PropName "unit" ) :| [] + ) :| + [ AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind" ) + ( Name "bind$w" ) ) ) ( AppN Nothing @@ -1669,104 +1396,58 @@ UberModule ) ( Ref Nothing ( Local - ( Name "x256" ) + ( Name "x250" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x257" ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind" ) - ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x251" ) :| [] ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "bind$w" ) ) ) - ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) - ( Ref Nothing - ( Local - ( Name "x257" ) - ) :| [] - ) - ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x258" ) - ) - ( AppN Nothing ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) - ) - ) ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) + ( ObjectProp ( Just Always ) ( Ref Nothing - ( Local - ( Name "x258" ) - ) :| [] + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) ) + ( PropName "intAdd" ) ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x259" ) - ) - ( AppN Nothing + ( Ref Nothing + ( Local + ( Name "x251" ) + ) :| [] + ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x252" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind" ) + ( Name "bind$w" ) ) ) ( AppN Nothing @@ -1789,104 +1470,58 @@ UberModule ) ( Ref Nothing ( Local - ( Name "x259" ) + ( Name "x252" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x260" ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind" ) - ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x253" ) :| [] ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "bind$w" ) ) ) - ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) - ( Ref Nothing - ( Local - ( Name "x260" ) - ) :| [] - ) - ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x261" ) - ) - ( AppN Nothing ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) - ) - ) ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) + ( ObjectProp ( Just Always ) ( Ref Nothing - ( Local - ( Name "x261" ) - ) :| [] + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) ) + ( PropName "intAdd" ) ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x262" ) - ) - ( AppN Nothing + ( Ref Nothing + ( Local + ( Name "x253" ) + ) :| [] + ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x254" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind" ) + ( Name "bind$w" ) ) ) ( AppN Nothing @@ -1909,104 +1544,58 @@ UberModule ) ( Ref Nothing ( Local - ( Name "x262" ) + ( Name "x254" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x263" ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind" ) - ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x255" ) :| [] ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "bind$w" ) ) ) - ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) - ( Ref Nothing - ( Local - ( Name "x263" ) - ) :| [] - ) - ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x264" ) - ) - ( AppN Nothing ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) - ) - ) ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) + ( ObjectProp ( Just Always ) ( Ref Nothing - ( Local - ( Name "x264" ) - ) :| [] + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) ) + ( PropName "intAdd" ) ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x265" ) - ) - ( AppN Nothing + ( Ref Nothing + ( Local + ( Name "x255" ) + ) :| [] + ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x256" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind" ) + ( Name "bind$w" ) ) ) ( AppN Nothing @@ -2029,104 +1618,58 @@ UberModule ) ( Ref Nothing ( Local - ( Name "x265" ) + ( Name "x256" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x266" ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) - ) - ) - ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) - ( Ref Nothing - ( Local - ( Name "x266" ) - ) :| [] - ) - ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing + ) :| + [ AbsN Nothing ( ParamNamed Nothing - ( Name "x267" ) + ( Name "x257" ) :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) - ) - ) - ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) - ( Ref Nothing - ( Local - ( Name "x267" ) - ) :| [] - ) - ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "bind$w" ) ) ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x268" ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) + ) ) ( AppN Nothing + ( AppN Nothing + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) + ) + ( PropName "intAdd" ) + ) + ( Ref Nothing + ( Local + ( Name "x257" ) + ) :| [] + ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x258" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind" ) + ( Name "bind$w" ) ) ) ( AppN Nothing @@ -2149,104 +1692,58 @@ UberModule ) ( Ref Nothing ( Local - ( Name "x268" ) + ( Name "x258" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x269" ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind" ) - ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x259" ) :| [] ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "bind$w" ) ) ) - ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) - ( Ref Nothing - ( Local - ( Name "x269" ) - ) :| [] - ) - ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x270" ) - ) - ( AppN Nothing ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) - ) - ) ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) + ( ObjectProp ( Just Always ) ( Ref Nothing - ( Local - ( Name "x270" ) - ) :| [] + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) ) + ( PropName "intAdd" ) ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x271" ) - ) - ( AppN Nothing + ( Ref Nothing + ( Local + ( Name "x259" ) + ) :| [] + ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x260" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind" ) + ( Name "bind$w" ) ) ) ( AppN Nothing @@ -2269,104 +1766,58 @@ UberModule ) ( Ref Nothing ( Local - ( Name "x271" ) + ( Name "x260" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x272" ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind" ) - ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x261" ) :| [] ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "bind$w" ) ) ) - ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) - ( Ref Nothing - ( Local - ( Name "x272" ) - ) :| [] - ) - ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x273" ) - ) - ( AppN Nothing ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) - ) - ) ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) + ( ObjectProp ( Just Always ) ( Ref Nothing - ( Local - ( Name "x273" ) - ) :| [] + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) ) + ( PropName "intAdd" ) ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x274" ) - ) - ( AppN Nothing + ( Ref Nothing + ( Local + ( Name "x261" ) + ) :| [] + ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x262" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind" ) + ( Name "bind$w" ) ) ) ( AppN Nothing @@ -2389,230 +1840,702 @@ UberModule ) ( Ref Nothing ( Local - ( Name "x274" ) + ( Name "x262" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x275" ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind" ) - ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x263" ) :| [] ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "bind$w" ) ) ) - ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) - ( Ref Nothing - ( Local - ( Name "x275" ) - ) :| [] - ) - ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x276" ) - ) - ( AppN Nothing ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) - ) - ) ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) + ( ObjectProp ( Just Always ) ( Ref Nothing - ( Local - ( Name "x276" ) - ) :| [] - ) - ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x277" ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Local - ( Name "$kont279" ) + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) ) + ( PropName "intAdd" ) ) ( Ref Nothing ( Local - ( Name "x1$283" ) + ( Name "x263" ) ) :| [] ) ) - ( Ref Nothing - ( Local - ( Name "x277" ) - ) :| [] + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x264" ) :| [] ) - ) :| [] + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "bind$w" ) + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) + ) + ) + ( AppN Nothing + ( AppN Nothing + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) + ) + ( PropName "intAdd" ) + ) + ( Ref Nothing + ( Local + ( Name "x264" ) + ) :| [] + ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x265" ) :| [] + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "bind$w" ) + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) + ) + ) + ( AppN Nothing + ( AppN Nothing + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) + ) + ( PropName "intAdd" ) + ) + ( Ref Nothing + ( Local + ( Name "x265" ) + ) :| [] + ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x266" ) :| [] + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "bind$w" ) + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) + ) + ) + ( AppN Nothing + ( AppN Nothing + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) + ) + ( PropName "intAdd" ) + ) + ( Ref Nothing + ( Local + ( Name "x266" ) + ) :| [] + ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x267" ) :| [] + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "bind$w" ) + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) + ) + ) + ( AppN Nothing + ( AppN Nothing + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) + ) + ( PropName "intAdd" ) + ) + ( Ref Nothing + ( Local + ( Name "x267" ) + ) :| [] + ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x268" ) :| [] + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "bind$w" ) + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) + ) + ) + ( AppN Nothing + ( AppN Nothing + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) + ) + ( PropName "intAdd" ) + ) + ( Ref Nothing + ( Local + ( Name "x268" ) + ) :| [] + ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x269" ) :| [] + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "bind$w" ) + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) + ) + ) + ( AppN Nothing + ( AppN Nothing + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) + ) + ( PropName "intAdd" ) + ) + ( Ref Nothing + ( Local + ( Name "x269" ) + ) :| [] + ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x270" ) :| [] + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "bind$w" ) + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) + ) + ) + ( AppN Nothing + ( AppN Nothing + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) + ) + ( PropName "intAdd" ) + ) + ( Ref Nothing + ( Local + ( Name "x270" ) + ) :| [] + ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x271" ) :| [] + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "bind$w" ) + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) + ) + ) + ( AppN Nothing + ( AppN Nothing + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) + ) + ( PropName "intAdd" ) + ) + ( Ref Nothing + ( Local + ( Name "x271" ) + ) :| [] + ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x272" ) :| [] + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "bind$w" ) + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) + ) + ) + ( AppN Nothing + ( AppN Nothing + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) + ) + ( PropName "intAdd" ) + ) + ( Ref Nothing + ( Local + ( Name "x272" ) + ) :| [] + ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x273" ) :| [] + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "bind$w" ) + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) + ) + ) + ( AppN Nothing + ( AppN Nothing + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) + ) + ( PropName "intAdd" ) + ) + ( Ref Nothing + ( Local + ( Name "x273" ) + ) :| [] + ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x274" ) :| [] + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "bind$w" ) + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) + ) + ) + ( AppN Nothing + ( AppN Nothing + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) + ) + ( PropName "intAdd" ) + ) + ( Ref Nothing + ( Local + ( Name "x274" ) + ) :| [] + ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x275" ) :| [] + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "bind$w" ) + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) + ) + ) + ( AppN Nothing + ( AppN Nothing + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) + ) + ( PropName "intAdd" ) + ) + ( Ref Nothing + ( Local + ( Name "x275" ) + ) :| [] + ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x276" ) :| [] + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "bind$w" ) + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) + ) + ) + ( AppN Nothing + ( AppN Nothing + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) + ) + ( PropName "intAdd" ) + ) + ( Ref Nothing + ( Local + ( Name "x276" ) + ) :| [] + ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x277" ) :| [] + ) + ( AppN Nothing + ( AppN Nothing + ( Ref Nothing + ( Local + ( Name "$kont279" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x1$283" ) + ) :| [] + ) + ) + ( Ref Nothing + ( Local + ( Name "x277" ) + ) :| [] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] - ) - ) :| [] - ) - ) :| [] + ] + ) + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) ) ) ), Standalone - ( Nothing, Name "$kont285", Abs Nothing - ( ParamNamed Nothing ( Name "x1$286" ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x198$287" ) ) + ( Nothing, Name "$kont285", AbsN Nothing + ( ParamNamed Nothing ( Name "x1$286" ) :| [] ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x198$287" ) :| [] ) ( AppN Nothing + ( Ref Nothing + ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind$w" ) ) + ) ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind" ) ) - ) + ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) ( AppN Nothing - ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported ( ModuleName "Data.Semiring" ) ( Name "foreign" ) ) - ) - ( PropName "intAdd" ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported ( ModuleName "Data.Semiring" ) ( Name "foreign" ) ) ) - ( Ref Nothing ( Local ( Name "x198$287" ) ) :| [] ) + ( PropName "intAdd" ) ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x199" ) ) - ( AppN Nothing + ( Ref Nothing ( Local ( Name "x198$287" ) ) :| [] ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing ( Name "x199" ) :| [] ) ( AppN Nothing ( Ref Nothing - ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind" ) ) + ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind$w" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) @@ -2627,76 +2550,42 @@ UberModule ( Ref Nothing ( Local ( Name "x199" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x200" ) ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind" ) - ) - ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing ( Name "x200" ) :| [] ) ( AppN Nothing ( Ref Nothing - ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) - ) - ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported ( ModuleName "Data.Semiring" ) ( Name "foreign" ) ) - ) - ( PropName "intAdd" ) - ) - ( Ref Nothing ( Local ( Name "x200" ) ) :| [] ) + ( Imported + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "bind$w" ) ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x201" ) ) - ( AppN Nothing + ) ( AppN Nothing ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind" ) - ) + ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) - ) ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) ) - ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x201" ) ) :| [] ) + ( PropName "intAdd" ) ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x202" ) ) - ( AppN Nothing + ( Ref Nothing ( Local ( Name "x200" ) ) :| [] ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing ( Name "x201" ) :| [] ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind" ) + ( Name "bind$w" ) ) ) ( AppN Nothing @@ -2714,85 +2603,48 @@ UberModule ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x202" ) ) :| [] ) + ( Ref Nothing ( Local ( Name "x201" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x203" ) ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind" ) - ) - ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing ( Name "x202" ) :| [] ) ( AppN Nothing ( Ref Nothing - ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) - ) - ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) - ( Ref Nothing ( Local ( Name "x203" ) ) :| [] ) + ( Imported + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "bind$w" ) ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x204" ) ) - ( AppN Nothing + ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) - ) - ) ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) ) - ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x204" ) ) :| [] ) + ( PropName "intAdd" ) ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x205" ) ) - ( AppN Nothing + ( Ref Nothing ( Local ( Name "x202" ) ) :| [] ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing ( Name "x203" ) :| [] ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind" ) + ( Name "bind$w" ) ) ) ( AppN Nothing @@ -2814,93 +2666,53 @@ UberModule ( PropName "intAdd" ) ) ( Ref Nothing - ( Local ( Name "x205" ) ) :| [] + ( Local ( Name "x203" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x206" ) ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind" ) - ) - ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing ( Name "x204" ) :| [] ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "bind$w" ) ) ) - ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) - ( Ref Nothing - ( Local ( Name "x206" ) ) :| [] - ) - ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x207" ) ) - ( AppN Nothing ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) - ) - ) ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) + ( ObjectProp ( Just Always ) ( Ref Nothing - ( Local ( Name "x207" ) ) :| [] + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) ) + ( PropName "intAdd" ) ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x208" ) ) - ( AppN Nothing + ( Ref Nothing + ( Local ( Name "x204" ) ) :| [] + ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x205" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind" ) + ( Name "bind$w" ) ) ) ( AppN Nothing @@ -2922,101 +2734,57 @@ UberModule ( PropName "intAdd" ) ) ( Ref Nothing - ( Local ( Name "x208" ) ) :| [] + ( Local ( Name "x205" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x209" ) ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind" ) - ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x206" ) :| [] ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "bind$w" ) ) ) - ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) - ( Ref Nothing - ( Local - ( Name "x209" ) - ) :| [] - ) - ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x210" ) - ) - ( AppN Nothing ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) - ) - ) ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) + ( ObjectProp ( Just Always ) ( Ref Nothing - ( Local - ( Name "x210" ) - ) :| [] + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) ) + ( PropName "intAdd" ) ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x211" ) - ) - ( AppN Nothing + ( Ref Nothing + ( Local + ( Name "x206" ) + ) :| [] + ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x207" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind" ) + ( Name "bind$w" ) ) ) ( AppN Nothing @@ -3039,104 +2807,58 @@ UberModule ) ( Ref Nothing ( Local - ( Name "x211" ) + ( Name "x207" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x212" ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind" ) - ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x208" ) :| [] ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "bind$w" ) ) ) - ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) - ( Ref Nothing - ( Local - ( Name "x212" ) - ) :| [] - ) - ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x213" ) - ) - ( AppN Nothing ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) - ) - ) ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) + ( ObjectProp ( Just Always ) ( Ref Nothing - ( Local - ( Name "x213" ) - ) :| [] + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) ) + ( PropName "intAdd" ) ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x214" ) - ) - ( AppN Nothing + ( Ref Nothing + ( Local + ( Name "x208" ) + ) :| [] + ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x209" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind" ) + ( Name "bind$w" ) ) ) ( AppN Nothing @@ -3159,104 +2881,58 @@ UberModule ) ( Ref Nothing ( Local - ( Name "x214" ) + ( Name "x209" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x215" ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind" ) - ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x210" ) :| [] ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "bind$w" ) ) ) - ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) - ( Ref Nothing - ( Local - ( Name "x215" ) - ) :| [] - ) - ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x216" ) - ) - ( AppN Nothing ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) - ) - ) ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) + ( ObjectProp ( Just Always ) ( Ref Nothing - ( Local - ( Name "x216" ) - ) :| [] + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) ) + ( PropName "intAdd" ) ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x217" ) - ) - ( AppN Nothing + ( Ref Nothing + ( Local + ( Name "x210" ) + ) :| [] + ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x211" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind" ) + ( Name "bind$w" ) ) ) ( AppN Nothing @@ -3279,104 +2955,58 @@ UberModule ) ( Ref Nothing ( Local - ( Name "x217" ) + ( Name "x211" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x218" ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind" ) - ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x212" ) :| [] ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "bind$w" ) ) ) - ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) - ( Ref Nothing - ( Local - ( Name "x218" ) - ) :| [] - ) - ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x219" ) - ) - ( AppN Nothing ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) - ) - ) ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) + ( ObjectProp ( Just Always ) ( Ref Nothing - ( Local - ( Name "x219" ) - ) :| [] + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) ) + ( PropName "intAdd" ) ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x220" ) - ) - ( AppN Nothing + ( Ref Nothing + ( Local + ( Name "x212" ) + ) :| [] + ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x213" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind" ) + ( Name "bind$w" ) ) ) ( AppN Nothing @@ -3399,104 +3029,58 @@ UberModule ) ( Ref Nothing ( Local - ( Name "x220" ) + ( Name "x213" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x221" ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind" ) - ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x214" ) :| [] ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "bind$w" ) ) ) - ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) - ( Ref Nothing - ( Local - ( Name "x221" ) - ) :| [] - ) - ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x222" ) - ) - ( AppN Nothing ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) - ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) - ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) + ) + ( AppN Nothing + ( AppN Nothing + ( ObjectProp ( Just Always ) ( Ref Nothing - ( Local - ( Name "x222" ) - ) :| [] + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) ) + ( PropName "intAdd" ) ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x223" ) - ) - ( AppN Nothing + ( Ref Nothing + ( Local + ( Name "x214" ) + ) :| [] + ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x215" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind" ) + ( Name "bind$w" ) ) ) ( AppN Nothing @@ -3519,104 +3103,58 @@ UberModule ) ( Ref Nothing ( Local - ( Name "x223" ) + ( Name "x215" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x224" ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind" ) - ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x216" ) :| [] ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "bind$w" ) ) ) - ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) - ( Ref Nothing - ( Local - ( Name "x224" ) - ) :| [] - ) - ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x225" ) - ) - ( AppN Nothing ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) - ) - ) ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) + ( ObjectProp ( Just Always ) ( Ref Nothing - ( Local - ( Name "x225" ) - ) :| [] + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) ) + ( PropName "intAdd" ) ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x226" ) - ) - ( AppN Nothing + ( Ref Nothing + ( Local + ( Name "x216" ) + ) :| [] + ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x217" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind" ) + ( Name "bind$w" ) ) ) ( AppN Nothing @@ -3639,104 +3177,58 @@ UberModule ) ( Ref Nothing ( Local - ( Name "x226" ) + ( Name "x217" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x227" ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind" ) - ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x218" ) :| [] ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "bind$w" ) ) ) - ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) - ( Ref Nothing - ( Local - ( Name "x227" ) - ) :| [] - ) - ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x228" ) - ) - ( AppN Nothing ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) - ) - ) ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) + ( ObjectProp ( Just Always ) ( Ref Nothing - ( Local - ( Name "x228" ) - ) :| [] + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) ) + ( PropName "intAdd" ) ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x229" ) - ) - ( AppN Nothing + ( Ref Nothing + ( Local + ( Name "x218" ) + ) :| [] + ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x219" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind" ) + ( Name "bind$w" ) ) ) ( AppN Nothing @@ -3759,104 +3251,58 @@ UberModule ) ( Ref Nothing ( Local - ( Name "x229" ) + ( Name "x219" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x230" ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind" ) - ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x220" ) :| [] ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "bind$w" ) ) ) - ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) - ( Ref Nothing - ( Local - ( Name "x230" ) - ) :| [] - ) - ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x231" ) - ) - ( AppN Nothing ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) - ) - ) ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) + ( ObjectProp ( Just Always ) ( Ref Nothing - ( Local - ( Name "x231" ) - ) :| [] + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) ) + ( PropName "intAdd" ) ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x232" ) - ) - ( AppN Nothing + ( Ref Nothing + ( Local + ( Name "x220" ) + ) :| [] + ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x221" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind" ) + ( Name "bind$w" ) ) ) ( AppN Nothing @@ -3879,104 +3325,58 @@ UberModule ) ( Ref Nothing ( Local - ( Name "x232" ) + ( Name "x221" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x233" ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) - ) - ) - ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) - ( Ref Nothing - ( Local - ( Name "x233" ) - ) :| [] - ) - ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing + ) :| + [ AbsN Nothing ( ParamNamed Nothing - ( Name "x234" ) + ( Name "x222" ) :| [] ) ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) - ) - ) - ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) - ( Ref Nothing - ( Local - ( Name "x234" ) - ) :| [] - ) - ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "bind$w" ) ) ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x235" ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) + ) ) ( AppN Nothing + ( AppN Nothing + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) + ) + ( PropName "intAdd" ) + ) + ( Ref Nothing + ( Local + ( Name "x222" ) + ) :| [] + ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x223" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind" ) + ( Name "bind$w" ) ) ) ( AppN Nothing @@ -3999,230 +3399,702 @@ UberModule ) ( Ref Nothing ( Local - ( Name "x235" ) + ( Name "x223" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x236" ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind" ) - ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x224" ) :| [] ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "bind$w" ) ) ) - ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) - ( Ref Nothing - ( Local - ( Name "x236" ) - ) :| [] - ) - ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x237" ) - ) - ( AppN Nothing ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) - ) - ) ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) + ( ObjectProp ( Just Always ) ( Ref Nothing - ( Local - ( Name "x237" ) - ) :| [] - ) - ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x238" ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Local - ( Name "$kont282" ) + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) ) + ( PropName "intAdd" ) ) ( Ref Nothing ( Local - ( Name "x1$286" ) + ( Name "x224" ) ) :| [] ) ) - ( Ref Nothing - ( Local - ( Name "x238" ) - ) :| [] + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x225" ) :| [] ) - ) :| [] + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "bind$w" ) + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) + ) + ) + ( AppN Nothing + ( AppN Nothing + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) + ) + ( PropName "intAdd" ) + ) + ( Ref Nothing + ( Local + ( Name "x225" ) + ) :| [] + ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x226" ) :| [] + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "bind$w" ) + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) + ) + ) + ( AppN Nothing + ( AppN Nothing + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) + ) + ( PropName "intAdd" ) + ) + ( Ref Nothing + ( Local + ( Name "x226" ) + ) :| [] + ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x227" ) :| [] + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "bind$w" ) + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) + ) + ) + ( AppN Nothing + ( AppN Nothing + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) + ) + ( PropName "intAdd" ) + ) + ( Ref Nothing + ( Local + ( Name "x227" ) + ) :| [] + ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x228" ) :| [] + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "bind$w" ) + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) + ) + ) + ( AppN Nothing + ( AppN Nothing + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) + ) + ( PropName "intAdd" ) + ) + ( Ref Nothing + ( Local + ( Name "x228" ) + ) :| [] + ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x229" ) :| [] + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "bind$w" ) + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) + ) + ) + ( AppN Nothing + ( AppN Nothing + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) + ) + ( PropName "intAdd" ) + ) + ( Ref Nothing + ( Local + ( Name "x229" ) + ) :| [] + ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x230" ) :| [] + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "bind$w" ) + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) + ) + ) + ( AppN Nothing + ( AppN Nothing + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) + ) + ( PropName "intAdd" ) + ) + ( Ref Nothing + ( Local + ( Name "x230" ) + ) :| [] + ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x231" ) :| [] + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "bind$w" ) + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) + ) + ) + ( AppN Nothing + ( AppN Nothing + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) + ) + ( PropName "intAdd" ) + ) + ( Ref Nothing + ( Local + ( Name "x231" ) + ) :| [] + ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x232" ) :| [] + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "bind$w" ) + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) + ) + ) + ( AppN Nothing + ( AppN Nothing + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) + ) + ( PropName "intAdd" ) + ) + ( Ref Nothing + ( Local + ( Name "x232" ) + ) :| [] + ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x233" ) :| [] + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "bind$w" ) + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) + ) + ) + ( AppN Nothing + ( AppN Nothing + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) + ) + ( PropName "intAdd" ) + ) + ( Ref Nothing + ( Local + ( Name "x233" ) + ) :| [] + ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x234" ) :| [] + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "bind$w" ) + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) + ) + ) + ( AppN Nothing + ( AppN Nothing + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) + ) + ( PropName "intAdd" ) + ) + ( Ref Nothing + ( Local + ( Name "x234" ) + ) :| [] + ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x235" ) :| [] + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "bind$w" ) + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) + ) + ) + ( AppN Nothing + ( AppN Nothing + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) + ) + ( PropName "intAdd" ) + ) + ( Ref Nothing + ( Local + ( Name "x235" ) + ) :| [] + ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x236" ) :| [] + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "bind$w" ) + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) + ) + ) + ( AppN Nothing + ( AppN Nothing + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) + ) + ( PropName "intAdd" ) + ) + ( Ref Nothing + ( Local + ( Name "x236" ) + ) :| [] + ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x237" ) :| [] + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "bind$w" ) + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) + ) + ) + ( AppN Nothing + ( AppN Nothing + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) + ) + ( PropName "intAdd" ) + ) + ( Ref Nothing + ( Local + ( Name "x237" ) + ) :| [] + ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x238" ) :| [] + ) + ( AppN Nothing + ( AppN Nothing + ( Ref Nothing + ( Local + ( Name "$kont282" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x1$286" ) + ) :| [] + ) + ) + ( Ref Nothing + ( Local + ( Name "x238" ) + ) :| [] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) ) ) ), Standalone - ( Nothing, Name "$kont288", Abs Nothing - ( ParamNamed Nothing ( Name "x1$289" ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x158$290" ) ) + ( Nothing, Name "$kont288", AbsN Nothing + ( ParamNamed Nothing ( Name "x1$289" ) :| [] ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x158$290" ) :| [] ) ( AppN Nothing + ( Ref Nothing + ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind$w" ) ) + ) ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind" ) ) - ) + ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) ( AppN Nothing - ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported ( ModuleName "Data.Semiring" ) ( Name "foreign" ) ) - ) - ( PropName "intAdd" ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported ( ModuleName "Data.Semiring" ) ( Name "foreign" ) ) ) - ( Ref Nothing ( Local ( Name "x158$290" ) ) :| [] ) + ( PropName "intAdd" ) ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x159" ) ) - ( AppN Nothing + ( Ref Nothing ( Local ( Name "x158$290" ) ) :| [] ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing ( Name "x159" ) :| [] ) ( AppN Nothing ( Ref Nothing - ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind" ) ) + ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind$w" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) @@ -4237,76 +4109,42 @@ UberModule ( Ref Nothing ( Local ( Name "x159" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x160" ) ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind" ) - ) - ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing ( Name "x160" ) :| [] ) ( AppN Nothing ( Ref Nothing - ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) - ) - ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported ( ModuleName "Data.Semiring" ) ( Name "foreign" ) ) - ) - ( PropName "intAdd" ) - ) - ( Ref Nothing ( Local ( Name "x160" ) ) :| [] ) + ( Imported + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "bind$w" ) ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x161" ) ) - ( AppN Nothing + ) ( AppN Nothing ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind" ) - ) + ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) - ) ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) ) - ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x161" ) ) :| [] ) + ( PropName "intAdd" ) ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x162" ) ) - ( AppN Nothing + ( Ref Nothing ( Local ( Name "x160" ) ) :| [] ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing ( Name "x161" ) :| [] ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind" ) + ( Name "bind$w" ) ) ) ( AppN Nothing @@ -4324,85 +4162,48 @@ UberModule ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x162" ) ) :| [] ) + ( Ref Nothing ( Local ( Name "x161" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x163" ) ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind" ) - ) - ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing ( Name "x162" ) :| [] ) ( AppN Nothing ( Ref Nothing - ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) - ) - ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) - ( Ref Nothing ( Local ( Name "x163" ) ) :| [] ) + ( Imported + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "bind$w" ) ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x164" ) ) - ( AppN Nothing + ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) - ) - ) - ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) + ( AppN Nothing + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) ) - ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x164" ) ) :| [] ) + ( PropName "intAdd" ) ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x165" ) ) - ( AppN Nothing + ( Ref Nothing ( Local ( Name "x162" ) ) :| [] ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing ( Name "x163" ) :| [] ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind" ) + ( Name "bind$w" ) ) ) ( AppN Nothing @@ -4424,93 +4225,53 @@ UberModule ( PropName "intAdd" ) ) ( Ref Nothing - ( Local ( Name "x165" ) ) :| [] + ( Local ( Name "x163" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x166" ) ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind" ) - ) - ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing ( Name "x164" ) :| [] ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "bind$w" ) ) ) - ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) - ( Ref Nothing - ( Local ( Name "x166" ) ) :| [] - ) - ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x167" ) ) - ( AppN Nothing ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) - ) - ) ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) + ( ObjectProp ( Just Always ) ( Ref Nothing - ( Local ( Name "x167" ) ) :| [] + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) ) + ( PropName "intAdd" ) ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x168" ) ) - ( AppN Nothing + ( Ref Nothing + ( Local ( Name "x164" ) ) :| [] + ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x165" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind" ) + ( Name "bind$w" ) ) ) ( AppN Nothing @@ -4532,101 +4293,57 @@ UberModule ( PropName "intAdd" ) ) ( Ref Nothing - ( Local ( Name "x168" ) ) :| [] + ( Local ( Name "x165" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x169" ) ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind" ) - ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x166" ) :| [] ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "bind$w" ) ) ) - ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) - ( Ref Nothing - ( Local - ( Name "x169" ) - ) :| [] - ) - ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x170" ) - ) - ( AppN Nothing ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) - ) - ) ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) + ( ObjectProp ( Just Always ) ( Ref Nothing - ( Local - ( Name "x170" ) - ) :| [] + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) ) + ( PropName "intAdd" ) ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x171" ) - ) - ( AppN Nothing + ( Ref Nothing + ( Local + ( Name "x166" ) + ) :| [] + ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x167" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind" ) + ( Name "bind$w" ) ) ) ( AppN Nothing @@ -4649,104 +4366,58 @@ UberModule ) ( Ref Nothing ( Local - ( Name "x171" ) + ( Name "x167" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x172" ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind" ) - ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x168" ) :| [] ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "bind$w" ) ) ) - ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) - ( Ref Nothing - ( Local - ( Name "x172" ) - ) :| [] - ) - ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x173" ) - ) - ( AppN Nothing ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) - ) - ) ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) + ( ObjectProp ( Just Always ) ( Ref Nothing - ( Local - ( Name "x173" ) - ) :| [] + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) ) + ( PropName "intAdd" ) ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x174" ) - ) - ( AppN Nothing + ( Ref Nothing + ( Local + ( Name "x168" ) + ) :| [] + ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x169" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind" ) + ( Name "bind$w" ) ) ) ( AppN Nothing @@ -4769,104 +4440,58 @@ UberModule ) ( Ref Nothing ( Local - ( Name "x174" ) + ( Name "x169" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x175" ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind" ) - ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x170" ) :| [] ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "bind$w" ) ) ) - ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) - ( Ref Nothing - ( Local - ( Name "x175" ) - ) :| [] - ) - ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x176" ) - ) - ( AppN Nothing ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) - ) - ) ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) + ( ObjectProp ( Just Always ) ( Ref Nothing - ( Local - ( Name "x176" ) - ) :| [] + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) ) + ( PropName "intAdd" ) ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x177" ) - ) - ( AppN Nothing + ( Ref Nothing + ( Local + ( Name "x170" ) + ) :| [] + ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x171" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind" ) + ( Name "bind$w" ) ) ) ( AppN Nothing @@ -4889,104 +4514,58 @@ UberModule ) ( Ref Nothing ( Local - ( Name "x177" ) + ( Name "x171" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x178" ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind" ) - ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x172" ) :| [] ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "bind$w" ) ) ) - ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) - ( Ref Nothing - ( Local - ( Name "x178" ) - ) :| [] - ) - ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x179" ) - ) - ( AppN Nothing ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) - ) - ) ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) + ( ObjectProp ( Just Always ) ( Ref Nothing - ( Local - ( Name "x179" ) - ) :| [] + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) ) + ( PropName "intAdd" ) ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x180" ) - ) - ( AppN Nothing + ( Ref Nothing + ( Local + ( Name "x172" ) + ) :| [] + ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x173" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind" ) + ( Name "bind$w" ) ) ) ( AppN Nothing @@ -5009,104 +4588,58 @@ UberModule ) ( Ref Nothing ( Local - ( Name "x180" ) + ( Name "x173" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x181" ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind" ) - ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x174" ) :| [] ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "bind$w" ) ) ) - ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) - ( Ref Nothing - ( Local - ( Name "x181" ) - ) :| [] - ) - ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x182" ) - ) - ( AppN Nothing ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) - ) - ) ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) + ( ObjectProp ( Just Always ) ( Ref Nothing - ( Local - ( Name "x182" ) - ) :| [] + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) ) + ( PropName "intAdd" ) ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x183" ) - ) - ( AppN Nothing + ( Ref Nothing + ( Local + ( Name "x174" ) + ) :| [] + ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x175" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind" ) + ( Name "bind$w" ) ) ) ( AppN Nothing @@ -5129,104 +4662,58 @@ UberModule ) ( Ref Nothing ( Local - ( Name "x183" ) + ( Name "x175" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x184" ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind" ) - ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x176" ) :| [] ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "bind$w" ) ) ) - ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) - ( Ref Nothing - ( Local - ( Name "x184" ) - ) :| [] - ) - ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x185" ) - ) - ( AppN Nothing ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) - ) - ) ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) + ( ObjectProp ( Just Always ) ( Ref Nothing - ( Local - ( Name "x185" ) - ) :| [] + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) ) + ( PropName "intAdd" ) ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x186" ) - ) - ( AppN Nothing + ( Ref Nothing + ( Local + ( Name "x176" ) + ) :| [] + ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x177" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind" ) + ( Name "bind$w" ) ) ) ( AppN Nothing @@ -5249,104 +4736,58 @@ UberModule ) ( Ref Nothing ( Local - ( Name "x186" ) + ( Name "x177" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x187" ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) - ) - ) - ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) - ( Ref Nothing - ( Local - ( Name "x187" ) - ) :| [] - ) - ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing + ) :| + [ AbsN Nothing ( ParamNamed Nothing - ( Name "x188" ) + ( Name "x178" ) :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) - ) - ) - ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) - ( Ref Nothing - ( Local - ( Name "x188" ) - ) :| [] - ) - ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "bind$w" ) ) ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x189" ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) + ) ) ( AppN Nothing + ( AppN Nothing + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) + ) + ( PropName "intAdd" ) + ) + ( Ref Nothing + ( Local + ( Name "x178" ) + ) :| [] + ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x179" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind" ) + ( Name "bind$w" ) ) ) ( AppN Nothing @@ -5369,104 +4810,58 @@ UberModule ) ( Ref Nothing ( Local - ( Name "x189" ) + ( Name "x179" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x190" ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind" ) - ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x180" ) :| [] ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "bind$w" ) ) ) - ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) - ( Ref Nothing - ( Local - ( Name "x190" ) - ) :| [] - ) - ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x191" ) - ) - ( AppN Nothing ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) - ) - ) ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) + ( ObjectProp ( Just Always ) ( Ref Nothing - ( Local - ( Name "x191" ) - ) :| [] + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) ) + ( PropName "intAdd" ) ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x192" ) - ) - ( AppN Nothing + ( Ref Nothing + ( Local + ( Name "x180" ) + ) :| [] + ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x181" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind" ) + ( Name "bind$w" ) ) ) ( AppN Nothing @@ -5489,104 +4884,58 @@ UberModule ) ( Ref Nothing ( Local - ( Name "x192" ) + ( Name "x181" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x193" ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind" ) - ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x182" ) :| [] ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "bind$w" ) ) ) - ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) - ( Ref Nothing - ( Local - ( Name "x193" ) - ) :| [] - ) - ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x194" ) - ) - ( AppN Nothing ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) - ) - ) ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) + ( ObjectProp ( Just Always ) ( Ref Nothing - ( Local - ( Name "x194" ) - ) :| [] + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) ) + ( PropName "intAdd" ) ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x195" ) - ) - ( AppN Nothing + ( Ref Nothing + ( Local + ( Name "x182" ) + ) :| [] + ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x183" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind" ) + ( Name "bind$w" ) ) ) ( AppN Nothing @@ -5609,230 +4958,702 @@ UberModule ) ( Ref Nothing ( Local - ( Name "x195" ) + ( Name "x183" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x196" ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind" ) - ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x184" ) :| [] ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "bind$w" ) ) ) - ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) - ( Ref Nothing - ( Local - ( Name "x196" ) - ) :| [] - ) - ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x197" ) - ) - ( AppN Nothing ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) - ) - ) ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) + ( ObjectProp ( Just Always ) ( Ref Nothing - ( Local - ( Name "x197" ) - ) :| [] - ) - ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x198" ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Local - ( Name "$kont285" ) + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) ) + ( PropName "intAdd" ) ) ( Ref Nothing ( Local - ( Name "x1$289" ) + ( Name "x184" ) ) :| [] ) ) - ( Ref Nothing - ( Local - ( Name "x198" ) - ) :| [] + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x185" ) :| [] ) - ) :| [] + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "bind$w" ) + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) + ) + ) + ( AppN Nothing + ( AppN Nothing + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) + ) + ( PropName "intAdd" ) + ) + ( Ref Nothing + ( Local + ( Name "x185" ) + ) :| [] + ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x186" ) :| [] + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "bind$w" ) + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) + ) + ) + ( AppN Nothing + ( AppN Nothing + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) + ) + ( PropName "intAdd" ) + ) + ( Ref Nothing + ( Local + ( Name "x186" ) + ) :| [] + ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x187" ) :| [] + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "bind$w" ) + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) + ) + ) + ( AppN Nothing + ( AppN Nothing + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) + ) + ( PropName "intAdd" ) + ) + ( Ref Nothing + ( Local + ( Name "x187" ) + ) :| [] + ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x188" ) :| [] + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "bind$w" ) + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) + ) + ) + ( AppN Nothing + ( AppN Nothing + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) + ) + ( PropName "intAdd" ) + ) + ( Ref Nothing + ( Local + ( Name "x188" ) + ) :| [] + ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x189" ) :| [] + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "bind$w" ) + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) + ) + ) + ( AppN Nothing + ( AppN Nothing + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) + ) + ( PropName "intAdd" ) + ) + ( Ref Nothing + ( Local + ( Name "x189" ) + ) :| [] + ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x190" ) :| [] + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "bind$w" ) + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) + ) + ) + ( AppN Nothing + ( AppN Nothing + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) + ) + ( PropName "intAdd" ) + ) + ( Ref Nothing + ( Local + ( Name "x190" ) + ) :| [] + ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x191" ) :| [] + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "bind$w" ) + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) + ) + ) + ( AppN Nothing + ( AppN Nothing + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) + ) + ( PropName "intAdd" ) + ) + ( Ref Nothing + ( Local + ( Name "x191" ) + ) :| [] + ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x192" ) :| [] + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "bind$w" ) + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) + ) + ) + ( AppN Nothing + ( AppN Nothing + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) + ) + ( PropName "intAdd" ) + ) + ( Ref Nothing + ( Local + ( Name "x192" ) + ) :| [] + ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x193" ) :| [] + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "bind$w" ) + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) + ) + ) + ( AppN Nothing + ( AppN Nothing + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) + ) + ( PropName "intAdd" ) + ) + ( Ref Nothing + ( Local + ( Name "x193" ) + ) :| [] + ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x194" ) :| [] + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "bind$w" ) + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) + ) + ) + ( AppN Nothing + ( AppN Nothing + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) + ) + ( PropName "intAdd" ) + ) + ( Ref Nothing + ( Local + ( Name "x194" ) + ) :| [] + ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x195" ) :| [] + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "bind$w" ) + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) + ) + ) + ( AppN Nothing + ( AppN Nothing + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) + ) + ( PropName "intAdd" ) + ) + ( Ref Nothing + ( Local + ( Name "x195" ) + ) :| [] + ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x196" ) :| [] + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "bind$w" ) + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) + ) + ) + ( AppN Nothing + ( AppN Nothing + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) + ) + ( PropName "intAdd" ) + ) + ( Ref Nothing + ( Local + ( Name "x196" ) + ) :| [] + ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x197" ) :| [] + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "bind$w" ) + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) + ) + ) + ( AppN Nothing + ( AppN Nothing + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) + ) + ( PropName "intAdd" ) + ) + ( Ref Nothing + ( Local + ( Name "x197" ) + ) :| [] + ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x198" ) :| [] + ) + ( AppN Nothing + ( AppN Nothing + ( Ref Nothing + ( Local + ( Name "$kont285" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x1$289" ) + ) :| [] + ) + ) + ( Ref Nothing + ( Local + ( Name "x198" ) + ) :| [] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] - ) - ) :| [] - ) - ) :| [] + ] + ) + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) ) ) ), Standalone - ( Nothing, Name "$kont291", Abs Nothing - ( ParamNamed Nothing ( Name "x1$292" ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x119$293" ) ) + ( Nothing, Name "$kont291", AbsN Nothing + ( ParamNamed Nothing ( Name "x1$292" ) :| [] ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x119$293" ) :| [] ) ( AppN Nothing + ( Ref Nothing + ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind$w" ) ) + ) ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind" ) ) - ) + ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) ( AppN Nothing - ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported ( ModuleName "Data.Semiring" ) ( Name "foreign" ) ) - ) - ( PropName "intAdd" ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported ( ModuleName "Data.Semiring" ) ( Name "foreign" ) ) ) - ( Ref Nothing ( Local ( Name "x119$293" ) ) :| [] ) + ( PropName "intAdd" ) ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x120" ) ) - ( AppN Nothing + ( Ref Nothing ( Local ( Name "x119$293" ) ) :| [] ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing ( Name "x120" ) :| [] ) ( AppN Nothing ( Ref Nothing - ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind" ) ) + ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind$w" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) @@ -5847,76 +5668,42 @@ UberModule ( Ref Nothing ( Local ( Name "x120" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x121" ) ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind" ) - ) - ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing ( Name "x121" ) :| [] ) ( AppN Nothing ( Ref Nothing - ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) - ) - ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported ( ModuleName "Data.Semiring" ) ( Name "foreign" ) ) - ) - ( PropName "intAdd" ) - ) - ( Ref Nothing ( Local ( Name "x121" ) ) :| [] ) + ( Imported + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "bind$w" ) ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x122" ) ) - ( AppN Nothing + ) ( AppN Nothing ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind" ) - ) + ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) - ) ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) ) - ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x122" ) ) :| [] ) + ( PropName "intAdd" ) ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x123" ) ) - ( AppN Nothing + ( Ref Nothing ( Local ( Name "x121" ) ) :| [] ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing ( Name "x122" ) :| [] ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind" ) + ( Name "bind$w" ) ) ) ( AppN Nothing @@ -5934,85 +5721,48 @@ UberModule ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x123" ) ) :| [] ) + ( Ref Nothing ( Local ( Name "x122" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x124" ) ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind" ) - ) - ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing ( Name "x123" ) :| [] ) ( AppN Nothing ( Ref Nothing - ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) - ) - ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) - ( Ref Nothing ( Local ( Name "x124" ) ) :| [] ) + ( Imported + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "bind$w" ) ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x125" ) ) - ( AppN Nothing + ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) - ) - ) ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) ) - ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x125" ) ) :| [] ) + ( PropName "intAdd" ) ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x126" ) ) - ( AppN Nothing + ( Ref Nothing ( Local ( Name "x123" ) ) :| [] ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing ( Name "x124" ) :| [] ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind" ) + ( Name "bind$w" ) ) ) ( AppN Nothing @@ -6034,93 +5784,53 @@ UberModule ( PropName "intAdd" ) ) ( Ref Nothing - ( Local ( Name "x126" ) ) :| [] + ( Local ( Name "x124" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x127" ) ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind" ) - ) - ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing ( Name "x125" ) :| [] ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "bind$w" ) ) ) - ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) - ( Ref Nothing - ( Local ( Name "x127" ) ) :| [] - ) - ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x128" ) ) - ( AppN Nothing ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) - ) - ) ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) + ( ObjectProp ( Just Always ) ( Ref Nothing - ( Local ( Name "x128" ) ) :| [] + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) ) + ( PropName "intAdd" ) ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x129" ) ) - ( AppN Nothing + ( Ref Nothing + ( Local ( Name "x125" ) ) :| [] + ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x126" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind" ) + ( Name "bind$w" ) ) ) ( AppN Nothing @@ -6142,101 +5852,57 @@ UberModule ( PropName "intAdd" ) ) ( Ref Nothing - ( Local ( Name "x129" ) ) :| [] + ( Local ( Name "x126" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x130" ) ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind" ) - ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x127" ) :| [] ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "bind$w" ) ) ) - ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) - ( Ref Nothing - ( Local - ( Name "x130" ) - ) :| [] - ) - ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x131" ) - ) - ( AppN Nothing ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) - ) - ) ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) + ( ObjectProp ( Just Always ) ( Ref Nothing - ( Local - ( Name "x131" ) - ) :| [] + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) ) + ( PropName "intAdd" ) ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x132" ) - ) - ( AppN Nothing + ( Ref Nothing + ( Local + ( Name "x127" ) + ) :| [] + ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x128" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind" ) + ( Name "bind$w" ) ) ) ( AppN Nothing @@ -6259,104 +5925,58 @@ UberModule ) ( Ref Nothing ( Local - ( Name "x132" ) + ( Name "x128" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x133" ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind" ) - ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x129" ) :| [] ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "bind$w" ) ) ) - ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) - ( Ref Nothing - ( Local - ( Name "x133" ) - ) :| [] - ) - ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x134" ) - ) - ( AppN Nothing ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) - ) - ) ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) + ( ObjectProp ( Just Always ) ( Ref Nothing - ( Local - ( Name "x134" ) - ) :| [] + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) ) + ( PropName "intAdd" ) ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x135" ) - ) - ( AppN Nothing + ( Ref Nothing + ( Local + ( Name "x129" ) + ) :| [] + ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x130" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind" ) + ( Name "bind$w" ) ) ) ( AppN Nothing @@ -6379,104 +5999,58 @@ UberModule ) ( Ref Nothing ( Local - ( Name "x135" ) + ( Name "x130" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x136" ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind" ) - ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x131" ) :| [] ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "bind$w" ) ) ) - ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) - ( Ref Nothing - ( Local - ( Name "x136" ) - ) :| [] - ) - ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x137" ) - ) - ( AppN Nothing ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) - ) - ) ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) + ( ObjectProp ( Just Always ) ( Ref Nothing - ( Local - ( Name "x137" ) - ) :| [] + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) ) + ( PropName "intAdd" ) ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x138" ) - ) - ( AppN Nothing + ( Ref Nothing + ( Local + ( Name "x131" ) + ) :| [] + ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x132" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind" ) + ( Name "bind$w" ) ) ) ( AppN Nothing @@ -6499,104 +6073,58 @@ UberModule ) ( Ref Nothing ( Local - ( Name "x138" ) + ( Name "x132" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x139" ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind" ) - ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x133" ) :| [] ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "bind$w" ) ) ) - ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) - ( Ref Nothing - ( Local - ( Name "x139" ) - ) :| [] - ) - ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x140" ) - ) - ( AppN Nothing ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) - ) - ) ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) + ( ObjectProp ( Just Always ) ( Ref Nothing - ( Local - ( Name "x140" ) - ) :| [] + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) ) + ( PropName "intAdd" ) ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x141" ) - ) - ( AppN Nothing + ( Ref Nothing + ( Local + ( Name "x133" ) + ) :| [] + ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x134" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind" ) + ( Name "bind$w" ) ) ) ( AppN Nothing @@ -6619,104 +6147,58 @@ UberModule ) ( Ref Nothing ( Local - ( Name "x141" ) + ( Name "x134" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x142" ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind" ) - ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x135" ) :| [] ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "bind$w" ) ) ) - ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) - ( Ref Nothing - ( Local - ( Name "x142" ) - ) :| [] - ) - ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x143" ) - ) - ( AppN Nothing ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) - ) - ) ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) + ( ObjectProp ( Just Always ) ( Ref Nothing - ( Local - ( Name "x143" ) - ) :| [] + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) ) + ( PropName "intAdd" ) + ) + ( Ref Nothing + ( Local + ( Name "x135" ) + ) :| [] ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x144" ) - ) - ( AppN Nothing + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x136" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind" ) + ( Name "bind$w" ) ) ) ( AppN Nothing @@ -6739,104 +6221,58 @@ UberModule ) ( Ref Nothing ( Local - ( Name "x144" ) + ( Name "x136" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x145" ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind" ) - ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x137" ) :| [] ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "bind$w" ) ) ) - ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) - ( Ref Nothing - ( Local - ( Name "x145" ) - ) :| [] - ) - ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x146" ) - ) - ( AppN Nothing ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) - ) - ) ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) + ( ObjectProp ( Just Always ) ( Ref Nothing - ( Local - ( Name "x146" ) - ) :| [] + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) ) + ( PropName "intAdd" ) ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x147" ) - ) - ( AppN Nothing + ( Ref Nothing + ( Local + ( Name "x137" ) + ) :| [] + ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x138" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind" ) + ( Name "bind$w" ) ) ) ( AppN Nothing @@ -6859,104 +6295,58 @@ UberModule ) ( Ref Nothing ( Local - ( Name "x147" ) + ( Name "x138" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x148" ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind" ) - ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x139" ) :| [] ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "bind$w" ) ) ) - ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) - ( Ref Nothing - ( Local - ( Name "x148" ) - ) :| [] - ) - ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x149" ) - ) - ( AppN Nothing ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) - ) - ) ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) + ( ObjectProp ( Just Always ) ( Ref Nothing - ( Local - ( Name "x149" ) - ) :| [] + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) ) + ( PropName "intAdd" ) ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x150" ) - ) - ( AppN Nothing + ( Ref Nothing + ( Local + ( Name "x139" ) + ) :| [] + ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x140" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind" ) + ( Name "bind$w" ) ) ) ( AppN Nothing @@ -6966,104 +6356,71 @@ UberModule ( Name "Just" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] - ) :| [] - ) - ) - ( Abs Nothing ( ParamUnused Nothing ) - ( AppN Nothing ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind" ) - ) - ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) - ) - ) - ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) - ( Ref Nothing - ( Local - ( Name "x150" ) - ) :| [] + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) ) ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] + ( PropName "intAdd" ) + ) + ( Ref Nothing + ( Local + ( Name "x140" ) + ) :| [] + ) ) - ) - ( Abs Nothing + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing ( ParamNamed Nothing - ( Name "x151" ) + ( Name "x141" ) :| [] ) ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "bind$w" ) + ) + ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) - ) - ) ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) + ( ObjectProp ( Just Always ) ( Ref Nothing - ( Local - ( Name "x151" ) - ) :| [] + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) ) + ( PropName "intAdd" ) ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x152" ) - ) - ( AppN Nothing + ( Ref Nothing + ( Local + ( Name "x141" ) + ) :| [] + ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x142" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind" ) + ( Name "bind$w" ) ) ) ( AppN Nothing @@ -7086,104 +6443,58 @@ UberModule ) ( Ref Nothing ( Local - ( Name "x152" ) + ( Name "x142" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x153" ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind" ) - ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x143" ) :| [] ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "bind$w" ) ) ) - ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) - ( Ref Nothing - ( Local - ( Name "x153" ) - ) :| [] - ) - ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x154" ) - ) - ( AppN Nothing ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) - ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) - ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) + ) + ( AppN Nothing + ( AppN Nothing + ( ObjectProp ( Just Always ) ( Ref Nothing - ( Local - ( Name "x154" ) - ) :| [] + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) ) + ( PropName "intAdd" ) ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x155" ) - ) - ( AppN Nothing + ( Ref Nothing + ( Local + ( Name "x143" ) + ) :| [] + ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x144" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind" ) + ( Name "bind$w" ) ) ) ( AppN Nothing @@ -7206,230 +6517,690 @@ UberModule ) ( Ref Nothing ( Local - ( Name "x155" ) + ( Name "x144" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x156" ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind" ) - ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x145" ) :| [] ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "bind$w" ) ) ) - ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) - ( Ref Nothing - ( Local - ( Name "x156" ) - ) :| [] - ) - ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x157" ) - ) - ( AppN Nothing ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) - ) - ) ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) + ( ObjectProp ( Just Always ) ( Ref Nothing - ( Local - ( Name "x157" ) - ) :| [] - ) - ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x158" ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Local - ( Name "$kont288" ) + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) ) + ( PropName "intAdd" ) ) ( Ref Nothing ( Local - ( Name "x1$292" ) + ( Name "x145" ) ) :| [] ) ) - ( Ref Nothing - ( Local - ( Name "x158" ) - ) :| [] + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x146" ) :| [] ) - ) :| [] + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "bind$w" ) + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) + ) + ) + ( AppN Nothing + ( AppN Nothing + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) + ) + ( PropName "intAdd" ) + ) + ( Ref Nothing + ( Local + ( Name "x146" ) + ) :| [] + ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x147" ) :| [] + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "bind$w" ) + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) + ) + ) + ( AppN Nothing + ( AppN Nothing + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) + ) + ( PropName "intAdd" ) + ) + ( Ref Nothing + ( Local + ( Name "x147" ) + ) :| [] + ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x148" ) :| [] + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "bind$w" ) + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) + ) + ) + ( AppN Nothing + ( AppN Nothing + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) + ) + ( PropName "intAdd" ) + ) + ( Ref Nothing + ( Local + ( Name "x148" ) + ) :| [] + ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x149" ) :| [] + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "bind$w" ) + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) + ) + ) + ( AppN Nothing + ( AppN Nothing + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) + ) + ( PropName "intAdd" ) + ) + ( Ref Nothing + ( Local + ( Name "x149" ) + ) :| [] + ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x150" ) :| [] + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "bind$w" ) + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) + ) + ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "foreign" ) + ) + ) + ( PropName "unit" ) :| [] + ) :| + [ AbsN Nothing + ( ParamUnused Nothing :| [] ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "bind$w" ) + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) + ) + ) + ( AppN Nothing + ( AppN Nothing + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) + ) + ( PropName "intAdd" ) + ) + ( Ref Nothing + ( Local + ( Name "x150" ) + ) :| [] + ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x151" ) :| [] + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "bind$w" ) + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) + ) + ) + ( AppN Nothing + ( AppN Nothing + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) + ) + ( PropName "intAdd" ) + ) + ( Ref Nothing + ( Local + ( Name "x151" ) + ) :| [] + ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x152" ) :| [] + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "bind$w" ) + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) + ) + ) + ( AppN Nothing + ( AppN Nothing + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) + ) + ( PropName "intAdd" ) + ) + ( Ref Nothing + ( Local + ( Name "x152" ) + ) :| [] + ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x153" ) :| [] + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "bind$w" ) + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) + ) + ) + ( AppN Nothing + ( AppN Nothing + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) + ) + ( PropName "intAdd" ) + ) + ( Ref Nothing + ( Local + ( Name "x153" ) + ) :| [] + ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x154" ) :| [] + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "bind$w" ) + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) + ) + ) + ( AppN Nothing + ( AppN Nothing + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) + ) + ( PropName "intAdd" ) + ) + ( Ref Nothing + ( Local + ( Name "x154" ) + ) :| [] + ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x155" ) :| [] + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "bind$w" ) + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) + ) + ) + ( AppN Nothing + ( AppN Nothing + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) + ) + ( PropName "intAdd" ) + ) + ( Ref Nothing + ( Local + ( Name "x155" ) + ) :| [] + ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x156" ) :| [] + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "bind$w" ) + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) + ) + ) + ( AppN Nothing + ( AppN Nothing + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) + ) + ( PropName "intAdd" ) + ) + ( Ref Nothing + ( Local + ( Name "x156" ) + ) :| [] + ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x157" ) :| [] + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "bind$w" ) + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) + ) + ) + ( AppN Nothing + ( AppN Nothing + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) + ) + ( PropName "intAdd" ) + ) + ( Ref Nothing + ( Local + ( Name "x157" ) + ) :| [] + ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x158" ) :| [] + ) + ( AppN Nothing + ( AppN Nothing + ( Ref Nothing + ( Local + ( Name "$kont288" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x1$292" ) + ) :| [] + ) + ) + ( Ref Nothing + ( Local + ( Name "x158" ) + ) :| [] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) ) ) ), Standalone - ( Nothing, Name "$kont294", Abs Nothing - ( ParamNamed Nothing ( Name "x1$295" ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x79$296" ) ) + ( Nothing, Name "$kont294", AbsN Nothing + ( ParamNamed Nothing ( Name "x1$295" ) :| [] ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x79$296" ) :| [] ) ( AppN Nothing + ( Ref Nothing + ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind$w" ) ) + ) ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind" ) ) - ) + ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) ( AppN Nothing - ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported ( ModuleName "Data.Semiring" ) ( Name "foreign" ) ) - ) - ( PropName "intAdd" ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported ( ModuleName "Data.Semiring" ) ( Name "foreign" ) ) ) - ( Ref Nothing ( Local ( Name "x79$296" ) ) :| [] ) + ( PropName "intAdd" ) ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x80" ) ) - ( AppN Nothing + ( Ref Nothing ( Local ( Name "x79$296" ) ) :| [] ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing ( Name "x80" ) :| [] ) ( AppN Nothing ( Ref Nothing - ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind" ) ) + ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind$w" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) @@ -7444,76 +7215,42 @@ UberModule ( Ref Nothing ( Local ( Name "x80" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x81" ) ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind" ) - ) - ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing ( Name "x81" ) :| [] ) ( AppN Nothing ( Ref Nothing - ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) - ) - ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported ( ModuleName "Data.Semiring" ) ( Name "foreign" ) ) - ) - ( PropName "intAdd" ) - ) - ( Ref Nothing ( Local ( Name "x81" ) ) :| [] ) + ( Imported + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "bind$w" ) ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x82" ) ) - ( AppN Nothing + ) ( AppN Nothing ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind" ) - ) + ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) - ) ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) ) - ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x82" ) ) :| [] ) + ( PropName "intAdd" ) ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x83" ) ) - ( AppN Nothing + ( Ref Nothing ( Local ( Name "x81" ) ) :| [] ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing ( Name "x82" ) :| [] ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind" ) + ( Name "bind$w" ) ) ) ( AppN Nothing @@ -7531,85 +7268,48 @@ UberModule ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x83" ) ) :| [] ) + ( Ref Nothing ( Local ( Name "x82" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x84" ) ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind" ) - ) - ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing ( Name "x83" ) :| [] ) ( AppN Nothing ( Ref Nothing - ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) - ) - ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) - ( Ref Nothing ( Local ( Name "x84" ) ) :| [] ) + ( Imported + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "bind$w" ) ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x85" ) ) - ( AppN Nothing + ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) - ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) - ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) + ) + ( AppN Nothing + ( AppN Nothing + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) ) - ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x85" ) ) :| [] ) + ( PropName "intAdd" ) ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x86" ) ) - ( AppN Nothing + ( Ref Nothing ( Local ( Name "x83" ) ) :| [] ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing ( Name "x84" ) :| [] ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind" ) + ( Name "bind$w" ) ) ) ( AppN Nothing @@ -7630,92 +7330,52 @@ UberModule ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x86" ) ) :| [] ) + ( Ref Nothing ( Local ( Name "x84" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x87" ) ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind" ) - ) - ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing ( Name "x85" ) :| [] ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "bind$w" ) ) ) - ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) - ( Ref Nothing - ( Local ( Name "x87" ) ) :| [] - ) - ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x88" ) ) - ( AppN Nothing ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) - ) - ) ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) + ( ObjectProp ( Just Always ) ( Ref Nothing - ( Local ( Name "x88" ) ) :| [] + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) ) + ( PropName "intAdd" ) ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x89" ) ) - ( AppN Nothing + ( Ref Nothing + ( Local ( Name "x85" ) ) :| [] + ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x86" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind" ) + ( Name "bind$w" ) ) ) ( AppN Nothing @@ -7737,101 +7397,57 @@ UberModule ( PropName "intAdd" ) ) ( Ref Nothing - ( Local ( Name "x89" ) ) :| [] + ( Local ( Name "x86" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x90" ) ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind" ) - ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x87" ) :| [] ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "bind$w" ) ) ) - ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) - ( Ref Nothing - ( Local - ( Name "x90" ) - ) :| [] - ) - ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x91" ) - ) - ( AppN Nothing ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) - ) - ) ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) + ( ObjectProp ( Just Always ) ( Ref Nothing - ( Local - ( Name "x91" ) - ) :| [] + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) ) + ( PropName "intAdd" ) ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x92" ) - ) - ( AppN Nothing + ( Ref Nothing + ( Local + ( Name "x87" ) + ) :| [] + ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x88" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind" ) + ( Name "bind$w" ) ) ) ( AppN Nothing @@ -7854,104 +7470,58 @@ UberModule ) ( Ref Nothing ( Local - ( Name "x92" ) + ( Name "x88" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x93" ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind" ) - ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x89" ) :| [] ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "bind$w" ) ) ) - ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) - ( Ref Nothing - ( Local - ( Name "x93" ) - ) :| [] - ) - ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x94" ) - ) - ( AppN Nothing ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) - ) - ) ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) + ( ObjectProp ( Just Always ) ( Ref Nothing - ( Local - ( Name "x94" ) - ) :| [] + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) ) + ( PropName "intAdd" ) ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x95" ) - ) - ( AppN Nothing + ( Ref Nothing + ( Local + ( Name "x89" ) + ) :| [] + ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x90" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind" ) + ( Name "bind$w" ) ) ) ( AppN Nothing @@ -7974,104 +7544,58 @@ UberModule ) ( Ref Nothing ( Local - ( Name "x95" ) + ( Name "x90" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x96" ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind" ) - ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x91" ) :| [] ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "bind$w" ) ) ) - ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) - ( Ref Nothing - ( Local - ( Name "x96" ) - ) :| [] - ) - ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x97" ) - ) - ( AppN Nothing ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) - ) - ) - ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) + ) + ) + ( AppN Nothing + ( AppN Nothing + ( ObjectProp ( Just Always ) ( Ref Nothing - ( Local - ( Name "x97" ) - ) :| [] + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) ) + ( PropName "intAdd" ) ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x98" ) - ) - ( AppN Nothing + ( Ref Nothing + ( Local + ( Name "x91" ) + ) :| [] + ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x92" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind" ) + ( Name "bind$w" ) ) ) ( AppN Nothing @@ -8094,104 +7618,58 @@ UberModule ) ( Ref Nothing ( Local - ( Name "x98" ) + ( Name "x92" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x99" ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind" ) - ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x93" ) :| [] ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "bind$w" ) ) ) - ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) - ( Ref Nothing - ( Local - ( Name "x99" ) - ) :| [] - ) - ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x100" ) - ) - ( AppN Nothing ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) - ) - ) ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) + ( ObjectProp ( Just Always ) ( Ref Nothing - ( Local - ( Name "x100" ) - ) :| [] + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) ) + ( PropName "intAdd" ) ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x101" ) - ) - ( AppN Nothing + ( Ref Nothing + ( Local + ( Name "x93" ) + ) :| [] + ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x94" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind" ) + ( Name "bind$w" ) ) ) ( AppN Nothing @@ -8214,104 +7692,58 @@ UberModule ) ( Ref Nothing ( Local - ( Name "x101" ) + ( Name "x94" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x102" ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind" ) - ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x95" ) :| [] ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "bind$w" ) ) ) - ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) - ( Ref Nothing - ( Local - ( Name "x102" ) - ) :| [] - ) - ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x103" ) - ) - ( AppN Nothing ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) - ) - ) ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) + ( ObjectProp ( Just Always ) ( Ref Nothing - ( Local - ( Name "x103" ) - ) :| [] + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) ) + ( PropName "intAdd" ) ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x104" ) - ) - ( AppN Nothing + ( Ref Nothing + ( Local + ( Name "x95" ) + ) :| [] + ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x96" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind" ) + ( Name "bind$w" ) ) ) ( AppN Nothing @@ -8334,104 +7766,58 @@ UberModule ) ( Ref Nothing ( Local - ( Name "x104" ) + ( Name "x96" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x105" ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind" ) - ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x97" ) :| [] ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "bind$w" ) ) ) - ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) - ( Ref Nothing - ( Local - ( Name "x105" ) - ) :| [] - ) - ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x106" ) - ) - ( AppN Nothing ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) - ) - ) ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) + ( ObjectProp ( Just Always ) ( Ref Nothing - ( Local - ( Name "x106" ) - ) :| [] + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) ) + ( PropName "intAdd" ) ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x107" ) - ) - ( AppN Nothing + ( Ref Nothing + ( Local + ( Name "x97" ) + ) :| [] + ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x98" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind" ) + ( Name "bind$w" ) ) ) ( AppN Nothing @@ -8454,104 +7840,58 @@ UberModule ) ( Ref Nothing ( Local - ( Name "x107" ) + ( Name "x98" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x108" ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind" ) - ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x99" ) :| [] ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "bind$w" ) ) ) - ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) - ( Ref Nothing - ( Local - ( Name "x108" ) - ) :| [] - ) - ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x109" ) - ) - ( AppN Nothing ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) - ) - ) ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) + ( ObjectProp ( Just Always ) ( Ref Nothing - ( Local - ( Name "x109" ) - ) :| [] + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) ) + ( PropName "intAdd" ) + ) + ( Ref Nothing + ( Local + ( Name "x99" ) + ) :| [] ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x110" ) - ) - ( AppN Nothing + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x100" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind" ) + ( Name "bind$w" ) ) ) ( AppN Nothing @@ -8574,104 +7914,58 @@ UberModule ) ( Ref Nothing ( Local - ( Name "x110" ) + ( Name "x100" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x111" ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind" ) - ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x101" ) :| [] ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "bind$w" ) ) ) - ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) - ( Ref Nothing - ( Local - ( Name "x111" ) - ) :| [] - ) - ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x112" ) - ) - ( AppN Nothing ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) - ) - ) ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) + ( ObjectProp ( Just Always ) ( Ref Nothing - ( Local - ( Name "x112" ) - ) :| [] + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) ) + ( PropName "intAdd" ) ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x113" ) - ) - ( AppN Nothing + ( Ref Nothing + ( Local + ( Name "x101" ) + ) :| [] + ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x102" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind" ) + ( Name "bind$w" ) ) ) ( AppN Nothing @@ -8694,104 +7988,58 @@ UberModule ) ( Ref Nothing ( Local - ( Name "x113" ) + ( Name "x102" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x114" ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind" ) - ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x103" ) :| [] ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "bind$w" ) ) ) - ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) - ( Ref Nothing - ( Local - ( Name "x114" ) - ) :| [] - ) - ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x115" ) - ) - ( AppN Nothing ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) - ) - ) ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) + ( ObjectProp ( Just Always ) ( Ref Nothing - ( Local - ( Name "x115" ) - ) :| [] + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) ) + ( PropName "intAdd" ) ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x116" ) - ) - ( AppN Nothing + ( Ref Nothing + ( Local + ( Name "x103" ) + ) :| [] + ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x104" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind" ) + ( Name "bind$w" ) ) ) ( AppN Nothing @@ -8814,230 +8062,702 @@ UberModule ) ( Ref Nothing ( Local - ( Name "x116" ) + ( Name "x104" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x117" ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind" ) - ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x105" ) :| [] ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "bind$w" ) ) ) - ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) - ( Ref Nothing - ( Local - ( Name "x117" ) - ) :| [] - ) - ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x118" ) - ) - ( AppN Nothing ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) - ) - ) ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) + ( ObjectProp ( Just Always ) ( Ref Nothing - ( Local - ( Name "x118" ) - ) :| [] - ) - ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x119" ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Local - ( Name "$kont291" ) + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) ) + ( PropName "intAdd" ) ) ( Ref Nothing ( Local - ( Name "x1$295" ) + ( Name "x105" ) ) :| [] ) ) - ( Ref Nothing - ( Local - ( Name "x119" ) - ) :| [] + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x106" ) :| [] ) - ) :| [] + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "bind$w" ) + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) + ) + ) + ( AppN Nothing + ( AppN Nothing + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) + ) + ( PropName "intAdd" ) + ) + ( Ref Nothing + ( Local + ( Name "x106" ) + ) :| [] + ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x107" ) :| [] + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "bind$w" ) + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) + ) + ) + ( AppN Nothing + ( AppN Nothing + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) + ) + ( PropName "intAdd" ) + ) + ( Ref Nothing + ( Local + ( Name "x107" ) + ) :| [] + ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x108" ) :| [] + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "bind$w" ) + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) + ) + ) + ( AppN Nothing + ( AppN Nothing + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) + ) + ( PropName "intAdd" ) + ) + ( Ref Nothing + ( Local + ( Name "x108" ) + ) :| [] + ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x109" ) :| [] + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "bind$w" ) + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) + ) + ) + ( AppN Nothing + ( AppN Nothing + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) + ) + ( PropName "intAdd" ) + ) + ( Ref Nothing + ( Local + ( Name "x109" ) + ) :| [] + ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x110" ) :| [] + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "bind$w" ) + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) + ) + ) + ( AppN Nothing + ( AppN Nothing + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) + ) + ( PropName "intAdd" ) + ) + ( Ref Nothing + ( Local + ( Name "x110" ) + ) :| [] + ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x111" ) :| [] + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "bind$w" ) + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) + ) + ) + ( AppN Nothing + ( AppN Nothing + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) + ) + ( PropName "intAdd" ) + ) + ( Ref Nothing + ( Local + ( Name "x111" ) + ) :| [] + ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x112" ) :| [] + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "bind$w" ) + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) + ) + ) + ( AppN Nothing + ( AppN Nothing + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) + ) + ( PropName "intAdd" ) + ) + ( Ref Nothing + ( Local + ( Name "x112" ) + ) :| [] + ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x113" ) :| [] + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "bind$w" ) + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) + ) + ) + ( AppN Nothing + ( AppN Nothing + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) + ) + ( PropName "intAdd" ) + ) + ( Ref Nothing + ( Local + ( Name "x113" ) + ) :| [] + ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x114" ) :| [] + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "bind$w" ) + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) + ) + ) + ( AppN Nothing + ( AppN Nothing + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) + ) + ( PropName "intAdd" ) + ) + ( Ref Nothing + ( Local + ( Name "x114" ) + ) :| [] + ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x115" ) :| [] + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "bind$w" ) + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) + ) + ) + ( AppN Nothing + ( AppN Nothing + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) + ) + ( PropName "intAdd" ) + ) + ( Ref Nothing + ( Local + ( Name "x115" ) + ) :| [] + ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x116" ) :| [] + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "bind$w" ) + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) + ) + ) + ( AppN Nothing + ( AppN Nothing + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) + ) + ( PropName "intAdd" ) + ) + ( Ref Nothing + ( Local + ( Name "x116" ) + ) :| [] + ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x117" ) :| [] + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "bind$w" ) + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) + ) + ) + ( AppN Nothing + ( AppN Nothing + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) + ) + ( PropName "intAdd" ) + ) + ( Ref Nothing + ( Local + ( Name "x117" ) + ) :| [] + ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x118" ) :| [] + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "bind$w" ) + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) + ) + ) + ( AppN Nothing + ( AppN Nothing + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) + ) + ( PropName "intAdd" ) + ) + ( Ref Nothing + ( Local + ( Name "x118" ) + ) :| [] + ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x119" ) :| [] + ) + ( AppN Nothing + ( AppN Nothing + ( Ref Nothing + ( Local + ( Name "$kont291" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x1$295" ) + ) :| [] + ) + ) + ( Ref Nothing + ( Local + ( Name "x119" ) + ) :| [] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) ) ) ), Standalone - ( Nothing, Name "$kont297", Abs Nothing - ( ParamNamed Nothing ( Name "x1$298" ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x40$299" ) ) + ( Nothing, Name "$kont297", AbsN Nothing + ( ParamNamed Nothing ( Name "x1$298" ) :| [] ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x40$299" ) :| [] ) ( AppN Nothing + ( Ref Nothing + ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind$w" ) ) + ) ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind" ) ) - ) + ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) ( AppN Nothing - ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported ( ModuleName "Data.Semiring" ) ( Name "foreign" ) ) - ) - ( PropName "intAdd" ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported ( ModuleName "Data.Semiring" ) ( Name "foreign" ) ) ) - ( Ref Nothing ( Local ( Name "x40$299" ) ) :| [] ) + ( PropName "intAdd" ) ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x41" ) ) - ( AppN Nothing + ( Ref Nothing ( Local ( Name "x40$299" ) ) :| [] ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing ( Name "x41" ) :| [] ) ( AppN Nothing ( Ref Nothing - ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind" ) ) + ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind$w" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) @@ -9052,76 +8772,42 @@ UberModule ( Ref Nothing ( Local ( Name "x41" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x42" ) ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind" ) - ) - ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing ( Name "x42" ) :| [] ) ( AppN Nothing ( Ref Nothing - ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) - ) - ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported ( ModuleName "Data.Semiring" ) ( Name "foreign" ) ) - ) - ( PropName "intAdd" ) - ) - ( Ref Nothing ( Local ( Name "x42" ) ) :| [] ) + ( Imported + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "bind$w" ) ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x43" ) ) - ( AppN Nothing + ) ( AppN Nothing ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind" ) - ) + ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) - ) ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) ) - ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x43" ) ) :| [] ) + ( PropName "intAdd" ) ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x44" ) ) - ( AppN Nothing + ( Ref Nothing ( Local ( Name "x42" ) ) :| [] ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing ( Name "x43" ) :| [] ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind" ) + ( Name "bind$w" ) ) ) ( AppN Nothing @@ -9139,85 +8825,48 @@ UberModule ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x44" ) ) :| [] ) + ( Ref Nothing ( Local ( Name "x43" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x45" ) ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind" ) - ) - ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing ( Name "x44" ) :| [] ) ( AppN Nothing ( Ref Nothing - ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) - ) - ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) - ( Ref Nothing ( Local ( Name "x45" ) ) :| [] ) + ( Imported + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "bind$w" ) ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x46" ) ) - ( AppN Nothing + ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) - ) - ) ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) ) - ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x46" ) ) :| [] ) + ( PropName "intAdd" ) ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x47" ) ) - ( AppN Nothing + ( Ref Nothing ( Local ( Name "x44" ) ) :| [] ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing ( Name "x45" ) :| [] ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind" ) + ( Name "bind$w" ) ) ) ( AppN Nothing @@ -9238,92 +8887,52 @@ UberModule ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x47" ) ) :| [] ) + ( Ref Nothing ( Local ( Name "x45" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x48" ) ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind" ) - ) - ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing ( Name "x46" ) :| [] ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "bind$w" ) ) ) - ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) - ( Ref Nothing - ( Local ( Name "x48" ) ) :| [] - ) - ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x49" ) ) - ( AppN Nothing ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) - ) - ) ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) + ( ObjectProp ( Just Always ) ( Ref Nothing - ( Local ( Name "x49" ) ) :| [] + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) ) + ( PropName "intAdd" ) ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x50" ) ) - ( AppN Nothing + ( Ref Nothing + ( Local ( Name "x46" ) ) :| [] + ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x47" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind" ) + ( Name "bind$w" ) ) ) ( AppN Nothing @@ -9333,104 +8942,69 @@ UberModule ( Name "Just" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] - ) :| [] - ) - ) - ( Abs Nothing ( ParamUnused Nothing ) - ( AppN Nothing ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind" ) - ) - ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) - ) - ) - ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) - ( Ref Nothing - ( Local - ( Name "x50" ) - ) :| [] + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) ) ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] + ( PropName "intAdd" ) + ) + ( Ref Nothing + ( Local ( Name "x47" ) ) :| [] + ) ) - ) - ( Abs Nothing + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing ( ParamNamed Nothing - ( Name "x51" ) + ( Name "x48" ) :| [] ) ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "bind$w" ) + ) + ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) - ) - ) ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) + ( ObjectProp ( Just Always ) ( Ref Nothing - ( Local - ( Name "x51" ) - ) :| [] + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) ) + ( PropName "intAdd" ) ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x52" ) - ) - ( AppN Nothing + ( Ref Nothing + ( Local + ( Name "x48" ) + ) :| [] + ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x49" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind" ) + ( Name "bind$w" ) ) ) ( AppN Nothing @@ -9453,104 +9027,46 @@ UberModule ) ( Ref Nothing ( Local - ( Name "x52" ) + ( Name "x49" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x53" ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind" ) - ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x50" ) :| [] ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "bind$w" ) ) ) - ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) - ( Ref Nothing - ( Local - ( Name "x53" ) - ) :| [] - ) - ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x54" ) - ) - ( AppN Nothing ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) - ( AppN Nothing + ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Data.Unit" ) + ( Name "foreign" ) ) ) - ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) - ( Ref Nothing - ( Local - ( Name "x54" ) - ) :| [] - ) - ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x55" ) - ) - ( AppN Nothing + ( PropName "unit" ) :| [] + ) :| + [ AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind" ) + ( Name "bind$w" ) ) ) ( AppN Nothing @@ -9573,104 +9089,58 @@ UberModule ) ( Ref Nothing ( Local - ( Name "x55" ) + ( Name "x50" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x56" ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind" ) - ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x51" ) :| [] ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "bind$w" ) ) ) - ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) - ( Ref Nothing - ( Local - ( Name "x56" ) - ) :| [] - ) - ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x57" ) - ) - ( AppN Nothing ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) - ) - ) ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) + ( ObjectProp ( Just Always ) ( Ref Nothing - ( Local - ( Name "x57" ) - ) :| [] + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) ) + ( PropName "intAdd" ) ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x58" ) - ) - ( AppN Nothing + ( Ref Nothing + ( Local + ( Name "x51" ) + ) :| [] + ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x52" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind" ) + ( Name "bind$w" ) ) ) ( AppN Nothing @@ -9693,104 +9163,58 @@ UberModule ) ( Ref Nothing ( Local - ( Name "x58" ) + ( Name "x52" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x59" ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind" ) - ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x53" ) :| [] ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "bind$w" ) ) ) - ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) - ( Ref Nothing - ( Local - ( Name "x59" ) - ) :| [] - ) - ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x60" ) - ) - ( AppN Nothing ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) - ) - ) ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) + ( ObjectProp ( Just Always ) ( Ref Nothing - ( Local - ( Name "x60" ) - ) :| [] + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) ) + ( PropName "intAdd" ) ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x61" ) - ) - ( AppN Nothing + ( Ref Nothing + ( Local + ( Name "x53" ) + ) :| [] + ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x54" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind" ) + ( Name "bind$w" ) ) ) ( AppN Nothing @@ -9813,104 +9237,58 @@ UberModule ) ( Ref Nothing ( Local - ( Name "x61" ) + ( Name "x54" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x62" ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind" ) - ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x55" ) :| [] ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "bind$w" ) ) ) - ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) - ( Ref Nothing - ( Local - ( Name "x62" ) - ) :| [] - ) - ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x63" ) - ) - ( AppN Nothing ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) - ) - ) ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) + ( ObjectProp ( Just Always ) ( Ref Nothing - ( Local - ( Name "x63" ) - ) :| [] + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) ) + ( PropName "intAdd" ) ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x64" ) - ) - ( AppN Nothing + ( Ref Nothing + ( Local + ( Name "x55" ) + ) :| [] + ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x56" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind" ) + ( Name "bind$w" ) ) ) ( AppN Nothing @@ -9933,104 +9311,58 @@ UberModule ) ( Ref Nothing ( Local - ( Name "x64" ) + ( Name "x56" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x65" ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind" ) - ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x57" ) :| [] ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "bind$w" ) ) ) - ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) - ( Ref Nothing - ( Local - ( Name "x65" ) - ) :| [] - ) - ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x66" ) - ) - ( AppN Nothing ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) - ) - ) ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) + ( ObjectProp ( Just Always ) ( Ref Nothing - ( Local - ( Name "x66" ) - ) :| [] + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) ) + ( PropName "intAdd" ) ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x67" ) - ) - ( AppN Nothing + ( Ref Nothing + ( Local + ( Name "x57" ) + ) :| [] + ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x58" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind" ) + ( Name "bind$w" ) ) ) ( AppN Nothing @@ -10053,104 +9385,58 @@ UberModule ) ( Ref Nothing ( Local - ( Name "x67" ) + ( Name "x58" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x68" ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind" ) - ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x59" ) :| [] ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "bind$w" ) ) ) - ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) - ( Ref Nothing - ( Local - ( Name "x68" ) - ) :| [] - ) - ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x69" ) - ) - ( AppN Nothing ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) - ) - ) ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) + ( ObjectProp ( Just Always ) ( Ref Nothing - ( Local - ( Name "x69" ) - ) :| [] + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) ) + ( PropName "intAdd" ) ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x70" ) - ) - ( AppN Nothing + ( Ref Nothing + ( Local + ( Name "x59" ) + ) :| [] + ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x60" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind" ) + ( Name "bind$w" ) ) ) ( AppN Nothing @@ -10173,104 +9459,58 @@ UberModule ) ( Ref Nothing ( Local - ( Name "x70" ) + ( Name "x60" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x71" ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind" ) - ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x61" ) :| [] ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "bind$w" ) ) ) - ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) - ( Ref Nothing - ( Local - ( Name "x71" ) - ) :| [] - ) - ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x72" ) - ) - ( AppN Nothing ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) - ) - ) ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) + ( ObjectProp ( Just Always ) ( Ref Nothing - ( Local - ( Name "x72" ) - ) :| [] + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) ) + ( PropName "intAdd" ) ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x73" ) - ) - ( AppN Nothing + ( Ref Nothing + ( Local + ( Name "x61" ) + ) :| [] + ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x62" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind" ) + ( Name "bind$w" ) ) ) ( AppN Nothing @@ -10293,104 +9533,58 @@ UberModule ) ( Ref Nothing ( Local - ( Name "x73" ) + ( Name "x62" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x74" ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind" ) - ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x63" ) :| [] ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "bind$w" ) ) ) - ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) - ( Ref Nothing - ( Local - ( Name "x74" ) - ) :| [] - ) - ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x75" ) - ) - ( AppN Nothing ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) - ) - ) ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) + ( ObjectProp ( Just Always ) ( Ref Nothing - ( Local - ( Name "x75" ) - ) :| [] + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) ) + ( PropName "intAdd" ) ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x76" ) - ) - ( AppN Nothing + ( Ref Nothing + ( Local + ( Name "x63" ) + ) :| [] + ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x64" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind" ) + ( Name "bind$w" ) ) ) ( AppN Nothing @@ -10411,197 +9605,673 @@ UberModule ) ( PropName "intAdd" ) ) - ( Ref Nothing - ( Local - ( Name "x76" ) - ) :| [] - ) - ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x77" ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind" ) + ( Ref Nothing + ( Local + ( Name "x64" ) + ) :| [] ) ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x65" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "bind$w" ) ) ) - ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) - ( Ref Nothing - ( Local - ( Name "x77" ) - ) :| [] - ) - ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x78" ) - ) - ( AppN Nothing ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) - ) - ) ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) + ( ObjectProp ( Just Always ) ( Ref Nothing - ( Local - ( Name "x78" ) - ) :| [] - ) - ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x79" ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Local - ( Name "$kont294" ) + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) ) + ( PropName "intAdd" ) ) ( Ref Nothing ( Local - ( Name "x1$298" ) + ( Name "x65" ) ) :| [] ) ) - ( Ref Nothing - ( Local - ( Name "x79" ) - ) :| [] + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x66" ) :| [] ) - ) :| [] + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "bind$w" ) + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) + ) + ) + ( AppN Nothing + ( AppN Nothing + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) + ) + ( PropName "intAdd" ) + ) + ( Ref Nothing + ( Local + ( Name "x66" ) + ) :| [] + ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x67" ) :| [] + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "bind$w" ) + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) + ) + ) + ( AppN Nothing + ( AppN Nothing + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) + ) + ( PropName "intAdd" ) + ) + ( Ref Nothing + ( Local + ( Name "x67" ) + ) :| [] + ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x68" ) :| [] + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "bind$w" ) + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) + ) + ) + ( AppN Nothing + ( AppN Nothing + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) + ) + ( PropName "intAdd" ) + ) + ( Ref Nothing + ( Local + ( Name "x68" ) + ) :| [] + ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x69" ) :| [] + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "bind$w" ) + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) + ) + ) + ( AppN Nothing + ( AppN Nothing + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) + ) + ( PropName "intAdd" ) + ) + ( Ref Nothing + ( Local + ( Name "x69" ) + ) :| [] + ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x70" ) :| [] + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "bind$w" ) + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) + ) + ) + ( AppN Nothing + ( AppN Nothing + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) + ) + ( PropName "intAdd" ) + ) + ( Ref Nothing + ( Local + ( Name "x70" ) + ) :| [] + ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x71" ) :| [] + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "bind$w" ) + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) + ) + ) + ( AppN Nothing + ( AppN Nothing + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) + ) + ( PropName "intAdd" ) + ) + ( Ref Nothing + ( Local + ( Name "x71" ) + ) :| [] + ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x72" ) :| [] + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "bind$w" ) + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) + ) + ) + ( AppN Nothing + ( AppN Nothing + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) + ) + ( PropName "intAdd" ) + ) + ( Ref Nothing + ( Local + ( Name "x72" ) + ) :| [] + ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x73" ) :| [] + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "bind$w" ) + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) + ) + ) + ( AppN Nothing + ( AppN Nothing + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) + ) + ( PropName "intAdd" ) + ) + ( Ref Nothing + ( Local + ( Name "x73" ) + ) :| [] + ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x74" ) :| [] + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "bind$w" ) + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) + ) + ) + ( AppN Nothing + ( AppN Nothing + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) + ) + ( PropName "intAdd" ) + ) + ( Ref Nothing + ( Local + ( Name "x74" ) + ) :| [] + ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x75" ) :| [] + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "bind$w" ) + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) + ) + ) + ( AppN Nothing + ( AppN Nothing + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) + ) + ( PropName "intAdd" ) + ) + ( Ref Nothing + ( Local + ( Name "x75" ) + ) :| [] + ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x76" ) :| [] + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "bind$w" ) + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) + ) + ) + ( AppN Nothing + ( AppN Nothing + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) + ) + ( PropName "intAdd" ) + ) + ( Ref Nothing + ( Local + ( Name "x76" ) + ) :| [] + ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x77" ) :| [] + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "bind$w" ) + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) + ) + ) + ( AppN Nothing + ( AppN Nothing + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) + ) + ( PropName "intAdd" ) + ) + ( Ref Nothing + ( Local + ( Name "x77" ) + ) :| [] + ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x78" ) :| [] + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "bind$w" ) + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) + ) + ) + ( AppN Nothing + ( AppN Nothing + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) + ) + ( PropName "intAdd" ) + ) + ( Ref Nothing + ( Local + ( Name "x78" ) + ) :| [] + ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x79" ) :| [] + ) + ( AppN Nothing + ( AppN Nothing + ( Ref Nothing + ( Local + ( Name "$kont294" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x1$298" ) + ) :| [] + ) + ) + ( Ref Nothing + ( Local + ( Name "x79" ) + ) :| [] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) ) ) @@ -10609,19 +10279,15 @@ UberModule ] ) ( AppN Nothing + ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind$w" ) ) ) ( AppN Nothing - ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind" ) ) ) - ( AppN Nothing - ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x1" ) ) - ( AppN Nothing + ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) + ( LiteralInt Nothing 1 :| [] ) :| + [ AbsN Nothing + ( ParamNamed Nothing ( Name "x1" ) :| [] ) ( AppN Nothing ( Ref Nothing - ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind" ) ) + ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind$w" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) @@ -10636,63 +10302,34 @@ UberModule ( Ref Nothing ( Local ( Name "x1" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x2" ) ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind" ) ) - ) - ( AppN Nothing - ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported ( ModuleName "Data.Semiring" ) ( Name "foreign" ) ) - ) - ( PropName "intAdd" ) - ) - ( Ref Nothing ( Local ( Name "x2" ) ) :| [] ) - ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x3" ) ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing ( Name "x2" ) :| [] ) ( AppN Nothing + ( Ref Nothing + ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind$w" ) ) + ) ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind" ) ) - ) + ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) ( AppN Nothing - ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported ( ModuleName "Data.Semiring" ) ( Name "foreign" ) ) - ) - ( PropName "intAdd" ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported ( ModuleName "Data.Semiring" ) ( Name "foreign" ) ) ) - ( Ref Nothing ( Local ( Name "x3" ) ) :| [] ) + ( PropName "intAdd" ) ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x4" ) ) - ( AppN Nothing + ( Ref Nothing ( Local ( Name "x2" ) ) :| [] ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing ( Name "x3" ) :| [] ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind" ) + ( Name "bind$w" ) ) ) ( AppN Nothing @@ -10707,82 +10344,45 @@ UberModule ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x4" ) ) :| [] ) + ( Ref Nothing ( Local ( Name "x3" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x5" ) ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind" ) - ) - ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing ( Name "x4" ) :| [] ) ( AppN Nothing ( Ref Nothing - ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) - ) - ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) - ( Ref Nothing ( Local ( Name "x5" ) ) :| [] ) + ( Imported + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "bind$w" ) ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x6" ) ) - ( AppN Nothing + ) ( AppN Nothing ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind" ) - ) + ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) - ) ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) ) - ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x6" ) ) :| [] ) + ( PropName "intAdd" ) ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x7" ) ) - ( AppN Nothing + ( Ref Nothing ( Local ( Name "x4" ) ) :| [] ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing ( Name "x5" ) :| [] ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind" ) + ( Name "bind$w" ) ) ) ( AppN Nothing @@ -10800,88 +10400,48 @@ UberModule ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x7" ) ) :| [] ) + ( Ref Nothing ( Local ( Name "x5" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x8" ) ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind" ) - ) - ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing ( Name "x6" ) :| [] ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "bind$w" ) ) ) - ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) - ( Ref Nothing ( Local ( Name "x8" ) ) :| [] ) - ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x9" ) ) - ( AppN Nothing ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) - ) - ) ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) ) - ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x9" ) ) :| [] ) + ( PropName "intAdd" ) ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x10" ) ) - ( AppN Nothing + ( Ref Nothing ( Local ( Name "x6" ) ) :| [] ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing ( Name "x7" ) :| [] ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind" ) + ( Name "bind$w" ) ) ) ( AppN Nothing @@ -10903,93 +10463,53 @@ UberModule ( PropName "intAdd" ) ) ( Ref Nothing - ( Local ( Name "x10" ) ) :| [] + ( Local ( Name "x7" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x11" ) ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind" ) - ) - ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing ( Name "x8" ) :| [] ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "bind$w" ) ) ) - ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) - ( Ref Nothing - ( Local ( Name "x11" ) ) :| [] - ) - ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x12" ) ) - ( AppN Nothing ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) - ) - ) ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) + ( ObjectProp ( Just Always ) ( Ref Nothing - ( Local ( Name "x12" ) ) :| [] + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) ) + ( PropName "intAdd" ) ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x13" ) ) - ( AppN Nothing + ( Ref Nothing + ( Local ( Name "x8" ) ) :| [] + ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x9" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind" ) + ( Name "bind$w" ) ) ) ( AppN Nothing @@ -11012,104 +10532,58 @@ UberModule ) ( Ref Nothing ( Local - ( Name "x13" ) + ( Name "x9" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x14" ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind" ) - ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x10" ) :| [] ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "bind$w" ) ) ) - ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) - ( Ref Nothing - ( Local - ( Name "x14" ) - ) :| [] - ) - ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x15" ) - ) - ( AppN Nothing ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) - ) - ) ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) + ( ObjectProp ( Just Always ) ( Ref Nothing - ( Local - ( Name "x15" ) - ) :| [] + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) ) + ( PropName "intAdd" ) ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x16" ) - ) - ( AppN Nothing + ( Ref Nothing + ( Local + ( Name "x10" ) + ) :| [] + ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x11" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind" ) + ( Name "bind$w" ) ) ) ( AppN Nothing @@ -11132,104 +10606,58 @@ UberModule ) ( Ref Nothing ( Local - ( Name "x16" ) + ( Name "x11" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x17" ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind" ) - ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x12" ) :| [] ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "bind$w" ) ) ) - ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) - ( Ref Nothing - ( Local - ( Name "x17" ) - ) :| [] - ) - ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x18" ) - ) - ( AppN Nothing ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) - ) - ) ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) + ( ObjectProp ( Just Always ) ( Ref Nothing - ( Local - ( Name "x18" ) - ) :| [] + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) ) + ( PropName "intAdd" ) ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x19" ) - ) - ( AppN Nothing + ( Ref Nothing + ( Local + ( Name "x12" ) + ) :| [] + ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x13" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind" ) + ( Name "bind$w" ) ) ) ( AppN Nothing @@ -11252,104 +10680,58 @@ UberModule ) ( Ref Nothing ( Local - ( Name "x19" ) + ( Name "x13" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x20" ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind" ) - ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x14" ) :| [] ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "bind$w" ) ) ) - ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) - ( Ref Nothing - ( Local - ( Name "x20" ) - ) :| [] - ) - ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x21" ) - ) - ( AppN Nothing ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) - ) - ) ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) + ( ObjectProp ( Just Always ) ( Ref Nothing - ( Local - ( Name "x21" ) - ) :| [] + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) ) + ( PropName "intAdd" ) ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x22" ) - ) - ( AppN Nothing + ( Ref Nothing + ( Local + ( Name "x14" ) + ) :| [] + ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x15" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind" ) + ( Name "bind$w" ) ) ) ( AppN Nothing @@ -11372,104 +10754,58 @@ UberModule ) ( Ref Nothing ( Local - ( Name "x22" ) + ( Name "x15" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x23" ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind" ) - ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x16" ) :| [] ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "bind$w" ) ) ) - ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) - ( Ref Nothing - ( Local - ( Name "x23" ) - ) :| [] - ) - ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x24" ) - ) - ( AppN Nothing ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) - ) - ) ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) + ( ObjectProp ( Just Always ) ( Ref Nothing - ( Local - ( Name "x24" ) - ) :| [] + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) ) + ( PropName "intAdd" ) ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x25" ) - ) - ( AppN Nothing + ( Ref Nothing + ( Local + ( Name "x16" ) + ) :| [] + ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x17" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind" ) + ( Name "bind$w" ) ) ) ( AppN Nothing @@ -11492,104 +10828,58 @@ UberModule ) ( Ref Nothing ( Local - ( Name "x25" ) + ( Name "x17" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x26" ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind" ) - ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x18" ) :| [] ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "bind$w" ) ) ) - ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) - ( Ref Nothing - ( Local - ( Name "x26" ) - ) :| [] - ) - ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x27" ) - ) - ( AppN Nothing ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) - ) - ) ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) + ( ObjectProp ( Just Always ) ( Ref Nothing - ( Local - ( Name "x27" ) - ) :| [] + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) ) + ( PropName "intAdd" ) ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x28" ) - ) - ( AppN Nothing + ( Ref Nothing + ( Local + ( Name "x18" ) + ) :| [] + ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x19" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind" ) + ( Name "bind$w" ) ) ) ( AppN Nothing @@ -11612,104 +10902,58 @@ UberModule ) ( Ref Nothing ( Local - ( Name "x28" ) + ( Name "x19" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x29" ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind" ) - ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x20" ) :| [] ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "bind$w" ) ) ) - ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) - ( Ref Nothing - ( Local - ( Name "x29" ) - ) :| [] - ) - ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x30" ) - ) - ( AppN Nothing ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) - ) - ) ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) + ( ObjectProp ( Just Always ) ( Ref Nothing - ( Local - ( Name "x30" ) - ) :| [] + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) ) + ( PropName "intAdd" ) ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x31" ) - ) - ( AppN Nothing + ( Ref Nothing + ( Local + ( Name "x20" ) + ) :| [] + ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x21" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind" ) + ( Name "bind$w" ) ) ) ( AppN Nothing @@ -11732,104 +10976,58 @@ UberModule ) ( Ref Nothing ( Local - ( Name "x31" ) + ( Name "x21" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x32" ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind" ) - ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x22" ) :| [] ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "bind$w" ) ) ) - ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) - ( Ref Nothing - ( Local - ( Name "x32" ) - ) :| [] - ) - ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x33" ) - ) - ( AppN Nothing ( AppN Nothing ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) - ) - ) - ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) - ( Ref Nothing - ( Local - ( Name "x33" ) - ) :| [] - ) - ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x34" ) + ( Imported + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) + ) ) ( AppN Nothing + ( AppN Nothing + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) + ) + ( PropName "intAdd" ) + ) + ( Ref Nothing + ( Local + ( Name "x22" ) + ) :| [] + ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x23" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind" ) + ( Name "bind$w" ) ) ) ( AppN Nothing @@ -11852,104 +11050,58 @@ UberModule ) ( Ref Nothing ( Local - ( Name "x34" ) + ( Name "x23" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x35" ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind" ) - ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x24" ) :| [] ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "bind$w" ) ) ) - ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) - ( Ref Nothing - ( Local - ( Name "x35" ) - ) :| [] - ) - ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x36" ) - ) - ( AppN Nothing ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) - ) - ) ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) + ( ObjectProp ( Just Always ) ( Ref Nothing - ( Local - ( Name "x36" ) - ) :| [] + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) ) + ( PropName "intAdd" ) ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x37" ) - ) - ( AppN Nothing + ( Ref Nothing + ( Local + ( Name "x24" ) + ) :| [] + ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x25" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind" ) + ( Name "bind$w" ) ) ) ( AppN Nothing @@ -11972,195 +11124,671 @@ UberModule ) ( Ref Nothing ( Local - ( Name "x37" ) + ( Name "x25" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x38" ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind" ) - ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x26" ) :| [] ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "bind$w" ) ) ) - ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) - ( Ref Nothing - ( Local - ( Name "x38" ) - ) :| [] - ) - ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x39" ) - ) - ( AppN Nothing ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) - ) - ) ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) + ( ObjectProp ( Just Always ) ( Ref Nothing - ( Local - ( Name "x39" ) - ) :| [] - ) - ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x40" ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Local - ( Name "$kont297" ) + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) ) + ( PropName "intAdd" ) ) ( Ref Nothing ( Local - ( Name "x1" ) + ( Name "x26" ) ) :| [] ) ) - ( Ref Nothing - ( Local - ( Name "x40" ) - ) :| [] + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x27" ) :| [] ) - ) :| [] + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "bind$w" ) + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) + ) + ) + ( AppN Nothing + ( AppN Nothing + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) + ) + ( PropName "intAdd" ) + ) + ( Ref Nothing + ( Local + ( Name "x27" ) + ) :| [] + ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x28" ) :| [] + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "bind$w" ) + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) + ) + ) + ( AppN Nothing + ( AppN Nothing + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) + ) + ( PropName "intAdd" ) + ) + ( Ref Nothing + ( Local + ( Name "x28" ) + ) :| [] + ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x29" ) :| [] + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "bind$w" ) + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) + ) + ) + ( AppN Nothing + ( AppN Nothing + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) + ) + ( PropName "intAdd" ) + ) + ( Ref Nothing + ( Local + ( Name "x29" ) + ) :| [] + ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x30" ) :| [] + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "bind$w" ) + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) + ) + ) + ( AppN Nothing + ( AppN Nothing + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) + ) + ( PropName "intAdd" ) + ) + ( Ref Nothing + ( Local + ( Name "x30" ) + ) :| [] + ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x31" ) :| [] + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "bind$w" ) + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) + ) + ) + ( AppN Nothing + ( AppN Nothing + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) + ) + ( PropName "intAdd" ) + ) + ( Ref Nothing + ( Local + ( Name "x31" ) + ) :| [] + ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x32" ) :| [] + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "bind$w" ) + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) + ) + ) + ( AppN Nothing + ( AppN Nothing + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) + ) + ( PropName "intAdd" ) + ) + ( Ref Nothing + ( Local + ( Name "x32" ) + ) :| [] + ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x33" ) :| [] + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "bind$w" ) + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) + ) + ) + ( AppN Nothing + ( AppN Nothing + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) + ) + ( PropName "intAdd" ) + ) + ( Ref Nothing + ( Local + ( Name "x33" ) + ) :| [] + ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x34" ) :| [] + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "bind$w" ) + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) + ) + ) + ( AppN Nothing + ( AppN Nothing + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) + ) + ( PropName "intAdd" ) + ) + ( Ref Nothing + ( Local + ( Name "x34" ) + ) :| [] + ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x35" ) :| [] + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "bind$w" ) + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) + ) + ) + ( AppN Nothing + ( AppN Nothing + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) + ) + ( PropName "intAdd" ) + ) + ( Ref Nothing + ( Local + ( Name "x35" ) + ) :| [] + ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x36" ) :| [] + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "bind$w" ) + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) + ) + ) + ( AppN Nothing + ( AppN Nothing + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) + ) + ( PropName "intAdd" ) + ) + ( Ref Nothing + ( Local + ( Name "x36" ) + ) :| [] + ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x37" ) :| [] + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "bind$w" ) + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) + ) + ) + ( AppN Nothing + ( AppN Nothing + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) + ) + ( PropName "intAdd" ) + ) + ( Ref Nothing + ( Local + ( Name "x37" ) + ) :| [] + ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x38" ) :| [] + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "bind$w" ) + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) + ) + ) + ( AppN Nothing + ( AppN Nothing + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) + ) + ( PropName "intAdd" ) + ) + ( Ref Nothing + ( Local + ( Name "x38" ) + ) :| [] + ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x39" ) :| [] + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "bind$w" ) + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) + ) + ) + ( AppN Nothing + ( AppN Nothing + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) + ) + ( PropName "intAdd" ) + ) + ( Ref Nothing + ( Local + ( Name "x39" ) + ) :| [] + ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x40" ) :| [] + ) + ( AppN Nothing + ( AppN Nothing + ( Ref Nothing + ( Local + ( Name "$kont297" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x1" ) + ) :| [] + ) + ) + ( Ref Nothing + ( Local + ( Name "x40" ) + ) :| [] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) ) ) @@ -12179,8 +11807,8 @@ UberModule ( Ref Nothing ( Imported ( ModuleName "Data.Show" ) ( Name "show" ) ) ) ( LiteralObject Nothing [ - ( PropName "show", Abs Nothing - ( ParamNamed Nothing ( Name "v$16$278" ) ) + ( PropName "show", AbsN Nothing + ( ParamNamed Nothing ( Name "v$16$278" ) :| [] ) ( IfThenElse Nothing ( Eq Nothing ( LiteralString Nothing "Data.Maybe∷Maybe.Just" ) diff --git a/test/ps/output/Golden.LongMaybeBind.Test/golden.lua b/test/ps/output/Golden.LongMaybeBind.Test/golden.lua index 4cda33fd..82e7c498 100644 --- a/test/ps/output/Golden.LongMaybeBind.Test/golden.lua +++ b/test/ps/output/Golden.LongMaybeBind.Test/golden.lua @@ -14,43 +14,41 @@ M.Data_Show_show = function(dict) return dict.show end M.Data_Maybe_Just = function(value0) return { ["$ctor"] = "Data.Maybe∷Maybe.Just", value0 = value0 } end -M.Golden_LongMaybeBind_Test_bind = function(v_S_270) - return function(v1_S_271) - if "Data.Maybe∷Maybe.Just" == v_S_270["$ctor"] then - return v1_S_271(v_S_270.value0) - elseif "Data.Maybe∷Maybe.Nothing" == v_S_270["$ctor"] then - return { ["$ctor"] = "Data.Maybe∷Maybe.Nothing" } - else - return error("No patterns matched") - end +M.Golden_LongMaybeBind_Test_bind_S_w = function(v_S_270, v1_S_271) + if "Data.Maybe∷Maybe.Just" == v_S_270["$ctor"] then + return v1_S_271(v_S_270.value0) + elseif "Data.Maybe∷Maybe.Nothing" == v_S_270["$ctor"] then + return { ["$ctor"] = "Data.Maybe∷Maybe.Nothing" } + else + return error("No patterns matched") end end M.Golden_LongMaybeBind_Test_compute = (function() local _S_kont279 = function(x1_S_280) return function(x277_S_281) - return M.Golden_LongMaybeBind_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x277_S_281)(1)))(function( x278 ) - return M.Golden_LongMaybeBind_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x278)(1)))(function( x279 ) - return M.Golden_LongMaybeBind_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x279)(1)))(function( x280 ) - return M.Golden_LongMaybeBind_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x280)(1)))(function( x281 ) - return M.Golden_LongMaybeBind_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x281)(1)))(function( x282 ) - return M.Golden_LongMaybeBind_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x282)(1)))(function( x283 ) - return M.Golden_LongMaybeBind_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x283)(1)))(function( x284 ) - return M.Golden_LongMaybeBind_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x284)(1)))(function( x285 ) - return M.Golden_LongMaybeBind_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x285)(1)))(function( x286 ) - return M.Golden_LongMaybeBind_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x286)(1)))(function( x287 ) - return M.Golden_LongMaybeBind_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x287)(1)))(function( x288 ) - return M.Golden_LongMaybeBind_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x288)(1)))(function( x289 ) - return M.Golden_LongMaybeBind_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x289)(1)))(function( x290 ) - return M.Golden_LongMaybeBind_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x290)(1)))(function( x291 ) - return M.Golden_LongMaybeBind_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x291)(1)))(function( x292 ) - return M.Golden_LongMaybeBind_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x292)(1)))(function( x293 ) - return M.Golden_LongMaybeBind_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x293)(1)))(function( x294 ) - return M.Golden_LongMaybeBind_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x294)(1)))(function( x295 ) - return M.Golden_LongMaybeBind_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x295)(1)))(function( x296 ) - return M.Golden_LongMaybeBind_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x296)(1)))(function( x297 ) - return M.Golden_LongMaybeBind_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x297)(1)))(function( x298 ) - return M.Golden_LongMaybeBind_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x298)(1)))(function( x299 ) - return M.Golden_LongMaybeBind_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x299)(1)))(function( x300 ) + return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x277_S_281)(1)), function( x278 ) + return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x278)(1)), function( x279 ) + return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x279)(1)), function( x280 ) + return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x280)(1)), function( x281 ) + return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x281)(1)), function( x282 ) + return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x282)(1)), function( x283 ) + return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x283)(1)), function( x284 ) + return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x284)(1)), function( x285 ) + return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x285)(1)), function( x286 ) + return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x286)(1)), function( x287 ) + return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x287)(1)), function( x288 ) + return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x288)(1)), function( x289 ) + return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x289)(1)), function( x290 ) + return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x290)(1)), function( x291 ) + return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x291)(1)), function( x292 ) + return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x292)(1)), function( x293 ) + return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x293)(1)), function( x294 ) + return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x294)(1)), function( x295 ) + return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x295)(1)), function( x296 ) + return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x296)(1)), function( x297 ) + return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x297)(1)), function( x298 ) + return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x298)(1)), function( x299 ) + return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x299)(1)), function( x300 ) return M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x1_S_280)(x300)) end) end) @@ -79,46 +77,46 @@ M.Golden_LongMaybeBind_Test_compute = (function() end local _S_kont282 = function(x1_S_283) return function(x238_S_284) - return M.Golden_LongMaybeBind_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x238_S_284)(1)))(function( x239 ) - return M.Golden_LongMaybeBind_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x239)(1)))(function( x240 ) - return M.Golden_LongMaybeBind_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x240)(1)))(function( x241 ) - return M.Golden_LongMaybeBind_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x241)(1)))(function( x242 ) - return M.Golden_LongMaybeBind_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x242)(1)))(function( x243 ) - return M.Golden_LongMaybeBind_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x243)(1)))(function( x244 ) - return M.Golden_LongMaybeBind_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x244)(1)))(function( x245 ) - return M.Golden_LongMaybeBind_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x245)(1)))(function( x246 ) - return M.Golden_LongMaybeBind_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x246)(1)))(function( x247 ) - return M.Golden_LongMaybeBind_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x247)(1)))(function( x248 ) - return M.Golden_LongMaybeBind_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x248)(1)))(function( x249 ) - return M.Golden_LongMaybeBind_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x249)(1)))(function( x250 ) - return M.Golden_LongMaybeBind_Test_bind(M.Data_Maybe_Just(M.Data_Unit_foreign.unit))(function( ) - return M.Golden_LongMaybeBind_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x250)(1)))(function( x251 ) - return M.Golden_LongMaybeBind_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x251)(1)))(function( x252 ) - return M.Golden_LongMaybeBind_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x252)(1)))(function( x253 ) - return M.Golden_LongMaybeBind_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x253)(1)))(function( x254 ) - return M.Golden_LongMaybeBind_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x254)(1)))(function( x255 ) - return M.Golden_LongMaybeBind_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x255)(1)))(function( x256 ) - return M.Golden_LongMaybeBind_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x256)(1)))(function( x257 ) - return M.Golden_LongMaybeBind_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x257)(1)))(function( x258 ) - return M.Golden_LongMaybeBind_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x258)(1)))(function( x259 ) - return M.Golden_LongMaybeBind_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x259)(1)))(function( x260 ) - return M.Golden_LongMaybeBind_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x260)(1)))(function( x261 ) - return M.Golden_LongMaybeBind_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x261)(1)))(function( x262 ) - return M.Golden_LongMaybeBind_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x262)(1)))(function( x263 ) - return M.Golden_LongMaybeBind_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x263)(1)))(function( x264 ) - return M.Golden_LongMaybeBind_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x264)(1)))(function( x265 ) - return M.Golden_LongMaybeBind_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x265)(1)))(function( x266 ) - return M.Golden_LongMaybeBind_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x266)(1)))(function( x267 ) - return M.Golden_LongMaybeBind_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x267)(1)))(function( x268 ) - return M.Golden_LongMaybeBind_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x268)(1)))(function( x269 ) - return M.Golden_LongMaybeBind_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x269)(1)))(function( x270 ) - return M.Golden_LongMaybeBind_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x270)(1)))(function( x271 ) - return M.Golden_LongMaybeBind_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x271)(1)))(function( x272 ) - return M.Golden_LongMaybeBind_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x272)(1)))(function( x273 ) - return M.Golden_LongMaybeBind_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x273)(1)))(function( x274 ) - return M.Golden_LongMaybeBind_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x274)(1)))(function( x275 ) - return M.Golden_LongMaybeBind_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x275)(1)))(function( x276 ) - return M.Golden_LongMaybeBind_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x276)(1)))(function( x277 ) + return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x238_S_284)(1)), function( x239 ) + return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x239)(1)), function( x240 ) + return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x240)(1)), function( x241 ) + return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x241)(1)), function( x242 ) + return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x242)(1)), function( x243 ) + return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x243)(1)), function( x244 ) + return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x244)(1)), function( x245 ) + return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x245)(1)), function( x246 ) + return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x246)(1)), function( x247 ) + return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x247)(1)), function( x248 ) + return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x248)(1)), function( x249 ) + return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x249)(1)), function( x250 ) + return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Unit_foreign.unit), function( ) + return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x250)(1)), function( x251 ) + return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x251)(1)), function( x252 ) + return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x252)(1)), function( x253 ) + return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x253)(1)), function( x254 ) + return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x254)(1)), function( x255 ) + return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x255)(1)), function( x256 ) + return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x256)(1)), function( x257 ) + return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x257)(1)), function( x258 ) + return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x258)(1)), function( x259 ) + return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x259)(1)), function( x260 ) + return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x260)(1)), function( x261 ) + return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x261)(1)), function( x262 ) + return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x262)(1)), function( x263 ) + return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x263)(1)), function( x264 ) + return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x264)(1)), function( x265 ) + return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x265)(1)), function( x266 ) + return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x266)(1)), function( x267 ) + return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x267)(1)), function( x268 ) + return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x268)(1)), function( x269 ) + return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x269)(1)), function( x270 ) + return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x270)(1)), function( x271 ) + return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x271)(1)), function( x272 ) + return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x272)(1)), function( x273 ) + return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x273)(1)), function( x274 ) + return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x274)(1)), function( x275 ) + return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x275)(1)), function( x276 ) + return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x276)(1)), function( x277 ) return _S_kont279(x1_S_283)(x277) end) end) @@ -164,46 +162,46 @@ M.Golden_LongMaybeBind_Test_compute = (function() end local _S_kont285 = function(x1_S_286) return function(x198_S_287) - return M.Golden_LongMaybeBind_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x198_S_287)(1)))(function( x199 ) - return M.Golden_LongMaybeBind_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x199)(1)))(function( x200 ) - return M.Golden_LongMaybeBind_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x200)(1)))(function( x201 ) - return M.Golden_LongMaybeBind_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x201)(1)))(function( x202 ) - return M.Golden_LongMaybeBind_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x202)(1)))(function( x203 ) - return M.Golden_LongMaybeBind_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x203)(1)))(function( x204 ) - return M.Golden_LongMaybeBind_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x204)(1)))(function( x205 ) - return M.Golden_LongMaybeBind_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x205)(1)))(function( x206 ) - return M.Golden_LongMaybeBind_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x206)(1)))(function( x207 ) - return M.Golden_LongMaybeBind_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x207)(1)))(function( x208 ) - return M.Golden_LongMaybeBind_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x208)(1)))(function( x209 ) - return M.Golden_LongMaybeBind_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x209)(1)))(function( x210 ) - return M.Golden_LongMaybeBind_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x210)(1)))(function( x211 ) - return M.Golden_LongMaybeBind_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x211)(1)))(function( x212 ) - return M.Golden_LongMaybeBind_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x212)(1)))(function( x213 ) - return M.Golden_LongMaybeBind_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x213)(1)))(function( x214 ) - return M.Golden_LongMaybeBind_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x214)(1)))(function( x215 ) - return M.Golden_LongMaybeBind_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x215)(1)))(function( x216 ) - return M.Golden_LongMaybeBind_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x216)(1)))(function( x217 ) - return M.Golden_LongMaybeBind_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x217)(1)))(function( x218 ) - return M.Golden_LongMaybeBind_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x218)(1)))(function( x219 ) - return M.Golden_LongMaybeBind_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x219)(1)))(function( x220 ) - return M.Golden_LongMaybeBind_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x220)(1)))(function( x221 ) - return M.Golden_LongMaybeBind_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x221)(1)))(function( x222 ) - return M.Golden_LongMaybeBind_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x222)(1)))(function( x223 ) - return M.Golden_LongMaybeBind_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x223)(1)))(function( x224 ) - return M.Golden_LongMaybeBind_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x224)(1)))(function( x225 ) - return M.Golden_LongMaybeBind_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x225)(1)))(function( x226 ) - return M.Golden_LongMaybeBind_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x226)(1)))(function( x227 ) - return M.Golden_LongMaybeBind_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x227)(1)))(function( x228 ) - return M.Golden_LongMaybeBind_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x228)(1)))(function( x229 ) - return M.Golden_LongMaybeBind_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x229)(1)))(function( x230 ) - return M.Golden_LongMaybeBind_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x230)(1)))(function( x231 ) - return M.Golden_LongMaybeBind_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x231)(1)))(function( x232 ) - return M.Golden_LongMaybeBind_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x232)(1)))(function( x233 ) - return M.Golden_LongMaybeBind_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x233)(1)))(function( x234 ) - return M.Golden_LongMaybeBind_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x234)(1)))(function( x235 ) - return M.Golden_LongMaybeBind_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x235)(1)))(function( x236 ) - return M.Golden_LongMaybeBind_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x236)(1)))(function( x237 ) - return M.Golden_LongMaybeBind_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x237)(1)))(function( x238 ) + return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x198_S_287)(1)), function( x199 ) + return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x199)(1)), function( x200 ) + return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x200)(1)), function( x201 ) + return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x201)(1)), function( x202 ) + return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x202)(1)), function( x203 ) + return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x203)(1)), function( x204 ) + return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x204)(1)), function( x205 ) + return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x205)(1)), function( x206 ) + return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x206)(1)), function( x207 ) + return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x207)(1)), function( x208 ) + return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x208)(1)), function( x209 ) + return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x209)(1)), function( x210 ) + return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x210)(1)), function( x211 ) + return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x211)(1)), function( x212 ) + return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x212)(1)), function( x213 ) + return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x213)(1)), function( x214 ) + return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x214)(1)), function( x215 ) + return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x215)(1)), function( x216 ) + return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x216)(1)), function( x217 ) + return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x217)(1)), function( x218 ) + return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x218)(1)), function( x219 ) + return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x219)(1)), function( x220 ) + return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x220)(1)), function( x221 ) + return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x221)(1)), function( x222 ) + return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x222)(1)), function( x223 ) + return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x223)(1)), function( x224 ) + return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x224)(1)), function( x225 ) + return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x225)(1)), function( x226 ) + return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x226)(1)), function( x227 ) + return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x227)(1)), function( x228 ) + return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x228)(1)), function( x229 ) + return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x229)(1)), function( x230 ) + return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x230)(1)), function( x231 ) + return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x231)(1)), function( x232 ) + return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x232)(1)), function( x233 ) + return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x233)(1)), function( x234 ) + return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x234)(1)), function( x235 ) + return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x235)(1)), function( x236 ) + return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x236)(1)), function( x237 ) + return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x237)(1)), function( x238 ) return _S_kont282(x1_S_286)(x238) end) end) @@ -249,46 +247,46 @@ M.Golden_LongMaybeBind_Test_compute = (function() end local _S_kont288 = function(x1_S_289) return function(x158_S_290) - return M.Golden_LongMaybeBind_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x158_S_290)(1)))(function( x159 ) - return M.Golden_LongMaybeBind_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x159)(1)))(function( x160 ) - return M.Golden_LongMaybeBind_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x160)(1)))(function( x161 ) - return M.Golden_LongMaybeBind_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x161)(1)))(function( x162 ) - return M.Golden_LongMaybeBind_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x162)(1)))(function( x163 ) - return M.Golden_LongMaybeBind_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x163)(1)))(function( x164 ) - return M.Golden_LongMaybeBind_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x164)(1)))(function( x165 ) - return M.Golden_LongMaybeBind_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x165)(1)))(function( x166 ) - return M.Golden_LongMaybeBind_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x166)(1)))(function( x167 ) - return M.Golden_LongMaybeBind_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x167)(1)))(function( x168 ) - return M.Golden_LongMaybeBind_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x168)(1)))(function( x169 ) - return M.Golden_LongMaybeBind_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x169)(1)))(function( x170 ) - return M.Golden_LongMaybeBind_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x170)(1)))(function( x171 ) - return M.Golden_LongMaybeBind_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x171)(1)))(function( x172 ) - return M.Golden_LongMaybeBind_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x172)(1)))(function( x173 ) - return M.Golden_LongMaybeBind_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x173)(1)))(function( x174 ) - return M.Golden_LongMaybeBind_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x174)(1)))(function( x175 ) - return M.Golden_LongMaybeBind_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x175)(1)))(function( x176 ) - return M.Golden_LongMaybeBind_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x176)(1)))(function( x177 ) - return M.Golden_LongMaybeBind_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x177)(1)))(function( x178 ) - return M.Golden_LongMaybeBind_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x178)(1)))(function( x179 ) - return M.Golden_LongMaybeBind_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x179)(1)))(function( x180 ) - return M.Golden_LongMaybeBind_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x180)(1)))(function( x181 ) - return M.Golden_LongMaybeBind_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x181)(1)))(function( x182 ) - return M.Golden_LongMaybeBind_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x182)(1)))(function( x183 ) - return M.Golden_LongMaybeBind_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x183)(1)))(function( x184 ) - return M.Golden_LongMaybeBind_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x184)(1)))(function( x185 ) - return M.Golden_LongMaybeBind_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x185)(1)))(function( x186 ) - return M.Golden_LongMaybeBind_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x186)(1)))(function( x187 ) - return M.Golden_LongMaybeBind_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x187)(1)))(function( x188 ) - return M.Golden_LongMaybeBind_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x188)(1)))(function( x189 ) - return M.Golden_LongMaybeBind_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x189)(1)))(function( x190 ) - return M.Golden_LongMaybeBind_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x190)(1)))(function( x191 ) - return M.Golden_LongMaybeBind_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x191)(1)))(function( x192 ) - return M.Golden_LongMaybeBind_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x192)(1)))(function( x193 ) - return M.Golden_LongMaybeBind_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x193)(1)))(function( x194 ) - return M.Golden_LongMaybeBind_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x194)(1)))(function( x195 ) - return M.Golden_LongMaybeBind_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x195)(1)))(function( x196 ) - return M.Golden_LongMaybeBind_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x196)(1)))(function( x197 ) - return M.Golden_LongMaybeBind_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x197)(1)))(function( x198 ) + return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x158_S_290)(1)), function( x159 ) + return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x159)(1)), function( x160 ) + return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x160)(1)), function( x161 ) + return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x161)(1)), function( x162 ) + return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x162)(1)), function( x163 ) + return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x163)(1)), function( x164 ) + return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x164)(1)), function( x165 ) + return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x165)(1)), function( x166 ) + return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x166)(1)), function( x167 ) + return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x167)(1)), function( x168 ) + return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x168)(1)), function( x169 ) + return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x169)(1)), function( x170 ) + return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x170)(1)), function( x171 ) + return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x171)(1)), function( x172 ) + return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x172)(1)), function( x173 ) + return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x173)(1)), function( x174 ) + return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x174)(1)), function( x175 ) + return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x175)(1)), function( x176 ) + return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x176)(1)), function( x177 ) + return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x177)(1)), function( x178 ) + return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x178)(1)), function( x179 ) + return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x179)(1)), function( x180 ) + return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x180)(1)), function( x181 ) + return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x181)(1)), function( x182 ) + return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x182)(1)), function( x183 ) + return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x183)(1)), function( x184 ) + return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x184)(1)), function( x185 ) + return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x185)(1)), function( x186 ) + return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x186)(1)), function( x187 ) + return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x187)(1)), function( x188 ) + return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x188)(1)), function( x189 ) + return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x189)(1)), function( x190 ) + return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x190)(1)), function( x191 ) + return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x191)(1)), function( x192 ) + return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x192)(1)), function( x193 ) + return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x193)(1)), function( x194 ) + return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x194)(1)), function( x195 ) + return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x195)(1)), function( x196 ) + return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x196)(1)), function( x197 ) + return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x197)(1)), function( x198 ) return _S_kont285(x1_S_289)(x198) end) end) @@ -334,46 +332,46 @@ M.Golden_LongMaybeBind_Test_compute = (function() end local _S_kont291 = function(x1_S_292) return function(x119_S_293) - return M.Golden_LongMaybeBind_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x119_S_293)(1)))(function( x120 ) - return M.Golden_LongMaybeBind_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x120)(1)))(function( x121 ) - return M.Golden_LongMaybeBind_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x121)(1)))(function( x122 ) - return M.Golden_LongMaybeBind_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x122)(1)))(function( x123 ) - return M.Golden_LongMaybeBind_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x123)(1)))(function( x124 ) - return M.Golden_LongMaybeBind_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x124)(1)))(function( x125 ) - return M.Golden_LongMaybeBind_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x125)(1)))(function( x126 ) - return M.Golden_LongMaybeBind_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x126)(1)))(function( x127 ) - return M.Golden_LongMaybeBind_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x127)(1)))(function( x128 ) - return M.Golden_LongMaybeBind_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x128)(1)))(function( x129 ) - return M.Golden_LongMaybeBind_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x129)(1)))(function( x130 ) - return M.Golden_LongMaybeBind_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x130)(1)))(function( x131 ) - return M.Golden_LongMaybeBind_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x131)(1)))(function( x132 ) - return M.Golden_LongMaybeBind_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x132)(1)))(function( x133 ) - return M.Golden_LongMaybeBind_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x133)(1)))(function( x134 ) - return M.Golden_LongMaybeBind_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x134)(1)))(function( x135 ) - return M.Golden_LongMaybeBind_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x135)(1)))(function( x136 ) - return M.Golden_LongMaybeBind_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x136)(1)))(function( x137 ) - return M.Golden_LongMaybeBind_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x137)(1)))(function( x138 ) - return M.Golden_LongMaybeBind_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x138)(1)))(function( x139 ) - return M.Golden_LongMaybeBind_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x139)(1)))(function( x140 ) - return M.Golden_LongMaybeBind_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x140)(1)))(function( x141 ) - return M.Golden_LongMaybeBind_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x141)(1)))(function( x142 ) - return M.Golden_LongMaybeBind_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x142)(1)))(function( x143 ) - return M.Golden_LongMaybeBind_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x143)(1)))(function( x144 ) - return M.Golden_LongMaybeBind_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x144)(1)))(function( x145 ) - return M.Golden_LongMaybeBind_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x145)(1)))(function( x146 ) - return M.Golden_LongMaybeBind_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x146)(1)))(function( x147 ) - return M.Golden_LongMaybeBind_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x147)(1)))(function( x148 ) - return M.Golden_LongMaybeBind_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x148)(1)))(function( x149 ) - return M.Golden_LongMaybeBind_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x149)(1)))(function( x150 ) - return M.Golden_LongMaybeBind_Test_bind(M.Data_Maybe_Just(M.Data_Unit_foreign.unit))(function( ) - return M.Golden_LongMaybeBind_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x150)(1)))(function( x151 ) - return M.Golden_LongMaybeBind_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x151)(1)))(function( x152 ) - return M.Golden_LongMaybeBind_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x152)(1)))(function( x153 ) - return M.Golden_LongMaybeBind_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x153)(1)))(function( x154 ) - return M.Golden_LongMaybeBind_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x154)(1)))(function( x155 ) - return M.Golden_LongMaybeBind_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x155)(1)))(function( x156 ) - return M.Golden_LongMaybeBind_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x156)(1)))(function( x157 ) - return M.Golden_LongMaybeBind_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x157)(1)))(function( x158 ) + return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x119_S_293)(1)), function( x120 ) + return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x120)(1)), function( x121 ) + return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x121)(1)), function( x122 ) + return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x122)(1)), function( x123 ) + return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x123)(1)), function( x124 ) + return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x124)(1)), function( x125 ) + return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x125)(1)), function( x126 ) + return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x126)(1)), function( x127 ) + return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x127)(1)), function( x128 ) + return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x128)(1)), function( x129 ) + return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x129)(1)), function( x130 ) + return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x130)(1)), function( x131 ) + return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x131)(1)), function( x132 ) + return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x132)(1)), function( x133 ) + return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x133)(1)), function( x134 ) + return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x134)(1)), function( x135 ) + return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x135)(1)), function( x136 ) + return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x136)(1)), function( x137 ) + return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x137)(1)), function( x138 ) + return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x138)(1)), function( x139 ) + return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x139)(1)), function( x140 ) + return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x140)(1)), function( x141 ) + return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x141)(1)), function( x142 ) + return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x142)(1)), function( x143 ) + return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x143)(1)), function( x144 ) + return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x144)(1)), function( x145 ) + return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x145)(1)), function( x146 ) + return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x146)(1)), function( x147 ) + return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x147)(1)), function( x148 ) + return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x148)(1)), function( x149 ) + return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x149)(1)), function( x150 ) + return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Unit_foreign.unit), function( ) + return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x150)(1)), function( x151 ) + return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x151)(1)), function( x152 ) + return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x152)(1)), function( x153 ) + return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x153)(1)), function( x154 ) + return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x154)(1)), function( x155 ) + return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x155)(1)), function( x156 ) + return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x156)(1)), function( x157 ) + return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x157)(1)), function( x158 ) return _S_kont288(x1_S_292)(x158) end) end) @@ -419,46 +417,46 @@ M.Golden_LongMaybeBind_Test_compute = (function() end local _S_kont294 = function(x1_S_295) return function(x79_S_296) - return M.Golden_LongMaybeBind_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x79_S_296)(1)))(function( x80 ) - return M.Golden_LongMaybeBind_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x80)(1)))(function( x81 ) - return M.Golden_LongMaybeBind_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x81)(1)))(function( x82 ) - return M.Golden_LongMaybeBind_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x82)(1)))(function( x83 ) - return M.Golden_LongMaybeBind_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x83)(1)))(function( x84 ) - return M.Golden_LongMaybeBind_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x84)(1)))(function( x85 ) - return M.Golden_LongMaybeBind_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x85)(1)))(function( x86 ) - return M.Golden_LongMaybeBind_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x86)(1)))(function( x87 ) - return M.Golden_LongMaybeBind_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x87)(1)))(function( x88 ) - return M.Golden_LongMaybeBind_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x88)(1)))(function( x89 ) - return M.Golden_LongMaybeBind_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x89)(1)))(function( x90 ) - return M.Golden_LongMaybeBind_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x90)(1)))(function( x91 ) - return M.Golden_LongMaybeBind_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x91)(1)))(function( x92 ) - return M.Golden_LongMaybeBind_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x92)(1)))(function( x93 ) - return M.Golden_LongMaybeBind_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x93)(1)))(function( x94 ) - return M.Golden_LongMaybeBind_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x94)(1)))(function( x95 ) - return M.Golden_LongMaybeBind_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x95)(1)))(function( x96 ) - return M.Golden_LongMaybeBind_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x96)(1)))(function( x97 ) - return M.Golden_LongMaybeBind_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x97)(1)))(function( x98 ) - return M.Golden_LongMaybeBind_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x98)(1)))(function( x99 ) - return M.Golden_LongMaybeBind_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x99)(1)))(function( x100 ) - return M.Golden_LongMaybeBind_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x100)(1)))(function( x101 ) - return M.Golden_LongMaybeBind_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x101)(1)))(function( x102 ) - return M.Golden_LongMaybeBind_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x102)(1)))(function( x103 ) - return M.Golden_LongMaybeBind_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x103)(1)))(function( x104 ) - return M.Golden_LongMaybeBind_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x104)(1)))(function( x105 ) - return M.Golden_LongMaybeBind_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x105)(1)))(function( x106 ) - return M.Golden_LongMaybeBind_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x106)(1)))(function( x107 ) - return M.Golden_LongMaybeBind_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x107)(1)))(function( x108 ) - return M.Golden_LongMaybeBind_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x108)(1)))(function( x109 ) - return M.Golden_LongMaybeBind_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x109)(1)))(function( x110 ) - return M.Golden_LongMaybeBind_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x110)(1)))(function( x111 ) - return M.Golden_LongMaybeBind_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x111)(1)))(function( x112 ) - return M.Golden_LongMaybeBind_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x112)(1)))(function( x113 ) - return M.Golden_LongMaybeBind_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x113)(1)))(function( x114 ) - return M.Golden_LongMaybeBind_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x114)(1)))(function( x115 ) - return M.Golden_LongMaybeBind_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x115)(1)))(function( x116 ) - return M.Golden_LongMaybeBind_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x116)(1)))(function( x117 ) - return M.Golden_LongMaybeBind_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x117)(1)))(function( x118 ) - return M.Golden_LongMaybeBind_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x118)(1)))(function( x119 ) + return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x79_S_296)(1)), function( x80 ) + return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x80)(1)), function( x81 ) + return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x81)(1)), function( x82 ) + return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x82)(1)), function( x83 ) + return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x83)(1)), function( x84 ) + return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x84)(1)), function( x85 ) + return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x85)(1)), function( x86 ) + return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x86)(1)), function( x87 ) + return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x87)(1)), function( x88 ) + return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x88)(1)), function( x89 ) + return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x89)(1)), function( x90 ) + return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x90)(1)), function( x91 ) + return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x91)(1)), function( x92 ) + return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x92)(1)), function( x93 ) + return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x93)(1)), function( x94 ) + return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x94)(1)), function( x95 ) + return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x95)(1)), function( x96 ) + return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x96)(1)), function( x97 ) + return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x97)(1)), function( x98 ) + return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x98)(1)), function( x99 ) + return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x99)(1)), function( x100 ) + return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x100)(1)), function( x101 ) + return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x101)(1)), function( x102 ) + return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x102)(1)), function( x103 ) + return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x103)(1)), function( x104 ) + return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x104)(1)), function( x105 ) + return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x105)(1)), function( x106 ) + return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x106)(1)), function( x107 ) + return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x107)(1)), function( x108 ) + return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x108)(1)), function( x109 ) + return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x109)(1)), function( x110 ) + return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x110)(1)), function( x111 ) + return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x111)(1)), function( x112 ) + return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x112)(1)), function( x113 ) + return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x113)(1)), function( x114 ) + return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x114)(1)), function( x115 ) + return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x115)(1)), function( x116 ) + return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x116)(1)), function( x117 ) + return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x117)(1)), function( x118 ) + return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x118)(1)), function( x119 ) return _S_kont291(x1_S_295)(x119) end) end) @@ -504,46 +502,46 @@ M.Golden_LongMaybeBind_Test_compute = (function() end local _S_kont297 = function(x1_S_298) return function(x40_S_299) - return M.Golden_LongMaybeBind_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x40_S_299)(1)))(function( x41 ) - return M.Golden_LongMaybeBind_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x41)(1)))(function( x42 ) - return M.Golden_LongMaybeBind_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x42)(1)))(function( x43 ) - return M.Golden_LongMaybeBind_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x43)(1)))(function( x44 ) - return M.Golden_LongMaybeBind_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x44)(1)))(function( x45 ) - return M.Golden_LongMaybeBind_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x45)(1)))(function( x46 ) - return M.Golden_LongMaybeBind_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x46)(1)))(function( x47 ) - return M.Golden_LongMaybeBind_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x47)(1)))(function( x48 ) - return M.Golden_LongMaybeBind_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x48)(1)))(function( x49 ) - return M.Golden_LongMaybeBind_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x49)(1)))(function( x50 ) - return M.Golden_LongMaybeBind_Test_bind(M.Data_Maybe_Just(M.Data_Unit_foreign.unit))(function( ) - return M.Golden_LongMaybeBind_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x50)(1)))(function( x51 ) - return M.Golden_LongMaybeBind_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x51)(1)))(function( x52 ) - return M.Golden_LongMaybeBind_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x52)(1)))(function( x53 ) - return M.Golden_LongMaybeBind_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x53)(1)))(function( x54 ) - return M.Golden_LongMaybeBind_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x54)(1)))(function( x55 ) - return M.Golden_LongMaybeBind_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x55)(1)))(function( x56 ) - return M.Golden_LongMaybeBind_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x56)(1)))(function( x57 ) - return M.Golden_LongMaybeBind_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x57)(1)))(function( x58 ) - return M.Golden_LongMaybeBind_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x58)(1)))(function( x59 ) - return M.Golden_LongMaybeBind_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x59)(1)))(function( x60 ) - return M.Golden_LongMaybeBind_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x60)(1)))(function( x61 ) - return M.Golden_LongMaybeBind_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x61)(1)))(function( x62 ) - return M.Golden_LongMaybeBind_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x62)(1)))(function( x63 ) - return M.Golden_LongMaybeBind_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x63)(1)))(function( x64 ) - return M.Golden_LongMaybeBind_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x64)(1)))(function( x65 ) - return M.Golden_LongMaybeBind_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x65)(1)))(function( x66 ) - return M.Golden_LongMaybeBind_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x66)(1)))(function( x67 ) - return M.Golden_LongMaybeBind_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x67)(1)))(function( x68 ) - return M.Golden_LongMaybeBind_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x68)(1)))(function( x69 ) - return M.Golden_LongMaybeBind_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x69)(1)))(function( x70 ) - return M.Golden_LongMaybeBind_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x70)(1)))(function( x71 ) - return M.Golden_LongMaybeBind_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x71)(1)))(function( x72 ) - return M.Golden_LongMaybeBind_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x72)(1)))(function( x73 ) - return M.Golden_LongMaybeBind_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x73)(1)))(function( x74 ) - return M.Golden_LongMaybeBind_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x74)(1)))(function( x75 ) - return M.Golden_LongMaybeBind_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x75)(1)))(function( x76 ) - return M.Golden_LongMaybeBind_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x76)(1)))(function( x77 ) - return M.Golden_LongMaybeBind_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x77)(1)))(function( x78 ) - return M.Golden_LongMaybeBind_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x78)(1)))(function( x79 ) + return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x40_S_299)(1)), function( x41 ) + return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x41)(1)), function( x42 ) + return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x42)(1)), function( x43 ) + return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x43)(1)), function( x44 ) + return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x44)(1)), function( x45 ) + return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x45)(1)), function( x46 ) + return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x46)(1)), function( x47 ) + return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x47)(1)), function( x48 ) + return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x48)(1)), function( x49 ) + return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x49)(1)), function( x50 ) + return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Unit_foreign.unit), function( ) + return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x50)(1)), function( x51 ) + return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x51)(1)), function( x52 ) + return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x52)(1)), function( x53 ) + return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x53)(1)), function( x54 ) + return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x54)(1)), function( x55 ) + return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x55)(1)), function( x56 ) + return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x56)(1)), function( x57 ) + return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x57)(1)), function( x58 ) + return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x58)(1)), function( x59 ) + return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x59)(1)), function( x60 ) + return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x60)(1)), function( x61 ) + return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x61)(1)), function( x62 ) + return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x62)(1)), function( x63 ) + return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x63)(1)), function( x64 ) + return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x64)(1)), function( x65 ) + return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x65)(1)), function( x66 ) + return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x66)(1)), function( x67 ) + return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x67)(1)), function( x68 ) + return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x68)(1)), function( x69 ) + return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x69)(1)), function( x70 ) + return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x70)(1)), function( x71 ) + return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x71)(1)), function( x72 ) + return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x72)(1)), function( x73 ) + return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x73)(1)), function( x74 ) + return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x74)(1)), function( x75 ) + return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x75)(1)), function( x76 ) + return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x76)(1)), function( x77 ) + return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x77)(1)), function( x78 ) + return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x78)(1)), function( x79 ) return _S_kont294(x1_S_298)(x79) end) end) @@ -587,46 +585,46 @@ M.Golden_LongMaybeBind_Test_compute = (function() end) end end - return M.Golden_LongMaybeBind_Test_bind(M.Data_Maybe_Just(1))(function(x1) - return M.Golden_LongMaybeBind_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x1)(1)))(function( x2 ) - return M.Golden_LongMaybeBind_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x2)(1)))(function( x3 ) - return M.Golden_LongMaybeBind_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x3)(1)))(function( x4 ) - return M.Golden_LongMaybeBind_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x4)(1)))(function( x5 ) - return M.Golden_LongMaybeBind_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x5)(1)))(function( x6 ) - return M.Golden_LongMaybeBind_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x6)(1)))(function( x7 ) - return M.Golden_LongMaybeBind_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x7)(1)))(function( x8 ) - return M.Golden_LongMaybeBind_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x8)(1)))(function( x9 ) - return M.Golden_LongMaybeBind_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x9)(1)))(function( x10 ) - return M.Golden_LongMaybeBind_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x10)(1)))(function( x11 ) - return M.Golden_LongMaybeBind_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x11)(1)))(function( x12 ) - return M.Golden_LongMaybeBind_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x12)(1)))(function( x13 ) - return M.Golden_LongMaybeBind_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x13)(1)))(function( x14 ) - return M.Golden_LongMaybeBind_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x14)(1)))(function( x15 ) - return M.Golden_LongMaybeBind_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x15)(1)))(function( x16 ) - return M.Golden_LongMaybeBind_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x16)(1)))(function( x17 ) - return M.Golden_LongMaybeBind_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x17)(1)))(function( x18 ) - return M.Golden_LongMaybeBind_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x18)(1)))(function( x19 ) - return M.Golden_LongMaybeBind_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x19)(1)))(function( x20 ) - return M.Golden_LongMaybeBind_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x20)(1)))(function( x21 ) - return M.Golden_LongMaybeBind_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x21)(1)))(function( x22 ) - return M.Golden_LongMaybeBind_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x22)(1)))(function( x23 ) - return M.Golden_LongMaybeBind_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x23)(1)))(function( x24 ) - return M.Golden_LongMaybeBind_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x24)(1)))(function( x25 ) - return M.Golden_LongMaybeBind_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x25)(1)))(function( x26 ) - return M.Golden_LongMaybeBind_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x26)(1)))(function( x27 ) - return M.Golden_LongMaybeBind_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x27)(1)))(function( x28 ) - return M.Golden_LongMaybeBind_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x28)(1)))(function( x29 ) - return M.Golden_LongMaybeBind_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x29)(1)))(function( x30 ) - return M.Golden_LongMaybeBind_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x30)(1)))(function( x31 ) - return M.Golden_LongMaybeBind_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x31)(1)))(function( x32 ) - return M.Golden_LongMaybeBind_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x32)(1)))(function( x33 ) - return M.Golden_LongMaybeBind_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x33)(1)))(function( x34 ) - return M.Golden_LongMaybeBind_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x34)(1)))(function( x35 ) - return M.Golden_LongMaybeBind_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x35)(1)))(function( x36 ) - return M.Golden_LongMaybeBind_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x36)(1)))(function( x37 ) - return M.Golden_LongMaybeBind_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x37)(1)))(function( x38 ) - return M.Golden_LongMaybeBind_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x38)(1)))(function( x39 ) - return M.Golden_LongMaybeBind_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x39)(1)))(function( x40 ) + return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(1), function(x1) + return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x1)(1)), function( x2 ) + return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x2)(1)), function( x3 ) + return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x3)(1)), function( x4 ) + return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x4)(1)), function( x5 ) + return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x5)(1)), function( x6 ) + return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x6)(1)), function( x7 ) + return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x7)(1)), function( x8 ) + return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x8)(1)), function( x9 ) + return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x9)(1)), function( x10 ) + return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x10)(1)), function( x11 ) + return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x11)(1)), function( x12 ) + return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x12)(1)), function( x13 ) + return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x13)(1)), function( x14 ) + return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x14)(1)), function( x15 ) + return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x15)(1)), function( x16 ) + return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x16)(1)), function( x17 ) + return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x17)(1)), function( x18 ) + return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x18)(1)), function( x19 ) + return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x19)(1)), function( x20 ) + return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x20)(1)), function( x21 ) + return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x21)(1)), function( x22 ) + return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x22)(1)), function( x23 ) + return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x23)(1)), function( x24 ) + return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x24)(1)), function( x25 ) + return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x25)(1)), function( x26 ) + return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x26)(1)), function( x27 ) + return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x27)(1)), function( x28 ) + return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x28)(1)), function( x29 ) + return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x29)(1)), function( x30 ) + return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x30)(1)), function( x31 ) + return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x31)(1)), function( x32 ) + return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x32)(1)), function( x33 ) + return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x33)(1)), function( x34 ) + return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x34)(1)), function( x35 ) + return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x35)(1)), function( x36 ) + return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x36)(1)), function( x37 ) + return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x37)(1)), function( x38 ) + return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x38)(1)), function( x39 ) + return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x39)(1)), function( x40 ) return _S_kont297(x1)(x40) end) end) diff --git a/test/ps/output/Golden.LongMaybeBindModule.Test/golden.ir b/test/ps/output/Golden.LongMaybeBindModule.Test/golden.ir index 1a4f9b52..30c32fc6 100644 --- a/test/ps/output/Golden.LongMaybeBindModule.Test/golden.ir +++ b/test/ps/output/Golden.LongMaybeBindModule.Test/golden.ir @@ -22,35 +22,32 @@ UberModule [ FieldName "value0" ] ), Standalone ( QName - { qnameModuleName = ModuleName "Golden.LongMaybeBindModule.Test", qnameName = Name "bind" - }, Abs Nothing - ( ParamNamed Nothing ( Name "v$545" ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "v1$546" ) ) + { qnameModuleName = ModuleName "Golden.LongMaybeBindModule.Test", qnameName = Name "bind$w" + }, AbsN Nothing + ( ParamNamed Nothing ( Name "v$545" ) :| [ ParamNamed Nothing ( Name "v1$546" ) ] ) + ( IfThenElse Nothing + ( Eq Nothing + ( LiteralString Nothing "Data.Maybe∷Maybe.Just" ) + ( ReflectCtor Nothing ( Ref Nothing ( Local ( Name "v$545" ) ) ) ) + ) + ( AppN Nothing + ( Ref Nothing ( Local ( Name "v1$546" ) ) ) + ( ObjectProp Nothing + ( Ref Nothing ( Local ( Name "v$545" ) ) ) + ( PropName "value0" ) :| [] + ) + ) ( IfThenElse Nothing ( Eq Nothing - ( LiteralString Nothing "Data.Maybe∷Maybe.Just" ) + ( LiteralString Nothing "Data.Maybe∷Maybe.Nothing" ) ( ReflectCtor Nothing ( Ref Nothing ( Local ( Name "v$545" ) ) ) ) ) - ( AppN Nothing - ( Ref Nothing ( Local ( Name "v1$546" ) ) ) - ( ObjectProp Nothing - ( Ref Nothing ( Local ( Name "v$545" ) ) ) - ( PropName "value0" ) :| [] - ) - ) - ( IfThenElse Nothing - ( Eq Nothing - ( LiteralString Nothing "Data.Maybe∷Maybe.Nothing" ) - ( ReflectCtor Nothing ( Ref Nothing ( Local ( Name "v$545" ) ) ) ) - ) - ( Ctor Nothing SumType - ( ModuleName "Data.Maybe" ) - ( TyName "Maybe" ) - ( CtorName "Nothing" ) [] - ) - ( Exception Nothing "No patterns matched" ) + ( Ctor Nothing SumType + ( ModuleName "Data.Maybe" ) + ( TyName "Maybe" ) + ( CtorName "Nothing" ) [] ) + ( Exception Nothing "No patterns matched" ) ) ) ) @@ -58,39 +55,35 @@ UberModule [ ( Name "compute", Let Nothing ( Standalone - ( Nothing, Name "$kont551", Abs Nothing - ( ParamNamed Nothing ( Name "x1$0$552" ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x277$276$553" ) ) + ( Nothing, Name "$kont551", AbsN Nothing + ( ParamNamed Nothing ( Name "x1$0$552" ) :| [] ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x277$276$553" ) :| [] ) ( AppN Nothing + ( Ref Nothing + ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind$w" ) ) + ) ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind" ) ) - ) + ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) ( AppN Nothing - ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported ( ModuleName "Data.Semiring" ) ( Name "foreign" ) ) - ) - ( PropName "intAdd" ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported ( ModuleName "Data.Semiring" ) ( Name "foreign" ) ) ) - ( Ref Nothing ( Local ( Name "x277$276$553" ) ) :| [] ) + ( PropName "intAdd" ) ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x278$277" ) ) - ( AppN Nothing + ( Ref Nothing ( Local ( Name "x277$276$553" ) ) :| [] ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing ( Name "x278$277" ) :| [] ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind" ) + ( Name "bind$w" ) ) ) ( AppN Nothing @@ -106,76 +99,39 @@ UberModule ( Ref Nothing ( Local ( Name "x278$277" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x279$278" ) ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind" ) - ) - ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing ( Name "x279$278" ) :| [] ) ( AppN Nothing ( Ref Nothing - ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) - ) - ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported ( ModuleName "Data.Semiring" ) ( Name "foreign" ) ) - ) - ( PropName "intAdd" ) - ) - ( Ref Nothing ( Local ( Name "x279$278" ) ) :| [] ) + ( Imported + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "bind$w" ) ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x280$279" ) ) - ( AppN Nothing + ) ( AppN Nothing ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind" ) - ) + ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) - ) ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported ( ModuleName "Data.Semiring" ) ( Name "foreign" ) ) ) - ( Ref Nothing ( Local ( Name "x280$279" ) ) :| [] ) + ( PropName "intAdd" ) ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x281$280" ) ) - ( AppN Nothing + ( Ref Nothing ( Local ( Name "x279$278" ) ) :| [] ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing ( Name "x280$279" ) :| [] ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind" ) + ( Name "bind$w" ) ) ) ( AppN Nothing @@ -193,85 +149,45 @@ UberModule ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x281$280" ) ) :| [] ) + ( Ref Nothing ( Local ( Name "x280$279" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x282$281" ) ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind" ) - ) - ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing ( Name "x281$280" ) :| [] ) ( AppN Nothing ( Ref Nothing - ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) - ) - ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) - ( Ref Nothing ( Local ( Name "x282$281" ) ) :| [] ) + ( Imported + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "bind$w" ) ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x283$282" ) ) - ( AppN Nothing + ) ( AppN Nothing ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind" ) - ) + ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) - ) - ) ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) ) - ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x283$282" ) ) :| [] ) + ( PropName "intAdd" ) ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x284$283" ) ) - ( AppN Nothing + ( Ref Nothing ( Local ( Name "x281$280" ) ) :| [] ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing ( Name "x282$281" ) :| [] ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind" ) + ( Name "bind$w" ) ) ) ( AppN Nothing @@ -293,93 +209,53 @@ UberModule ( PropName "intAdd" ) ) ( Ref Nothing - ( Local ( Name "x284$283" ) ) :| [] + ( Local ( Name "x282$281" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x285$284" ) ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind" ) - ) - ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing ( Name "x283$282" ) :| [] ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "bind$w" ) ) ) - ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) - ( Ref Nothing - ( Local ( Name "x285$284" ) ) :| [] - ) - ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x286$285" ) ) - ( AppN Nothing ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) - ) - ) ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) + ( ObjectProp ( Just Always ) ( Ref Nothing - ( Local ( Name "x286$285" ) ) :| [] + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) ) + ( PropName "intAdd" ) ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x287$286" ) ) - ( AppN Nothing + ( Ref Nothing + ( Local ( Name "x283$282" ) ) :| [] + ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x284$283" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind" ) + ( Name "bind$w" ) ) ) ( AppN Nothing @@ -402,104 +278,58 @@ UberModule ) ( Ref Nothing ( Local - ( Name "x287$286" ) + ( Name "x284$283" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x288$287" ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind" ) - ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x285$284" ) :| [] ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "bind$w" ) ) ) - ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) - ( Ref Nothing - ( Local - ( Name "x288$287" ) - ) :| [] - ) - ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x289$288" ) - ) - ( AppN Nothing ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) - ) - ) ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) + ( ObjectProp ( Just Always ) ( Ref Nothing - ( Local - ( Name "x289$288" ) - ) :| [] + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) ) + ( PropName "intAdd" ) ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x290$289" ) - ) - ( AppN Nothing + ( Ref Nothing + ( Local + ( Name "x285$284" ) + ) :| [] + ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x286$285" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind" ) + ( Name "bind$w" ) ) ) ( AppN Nothing @@ -522,104 +352,58 @@ UberModule ) ( Ref Nothing ( Local - ( Name "x290$289" ) + ( Name "x286$285" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x291$290" ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind" ) - ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x287$286" ) :| [] ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "bind$w" ) ) ) - ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) - ( Ref Nothing - ( Local - ( Name "x291$290" ) - ) :| [] - ) - ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x292$291" ) - ) - ( AppN Nothing ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) - ) - ) ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) + ( ObjectProp ( Just Always ) ( Ref Nothing - ( Local - ( Name "x292$291" ) - ) :| [] + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) ) + ( PropName "intAdd" ) ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x293$292" ) - ) - ( AppN Nothing + ( Ref Nothing + ( Local + ( Name "x287$286" ) + ) :| [] + ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x288$287" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind" ) + ( Name "bind$w" ) ) ) ( AppN Nothing @@ -642,104 +426,58 @@ UberModule ) ( Ref Nothing ( Local - ( Name "x293$292" ) + ( Name "x288$287" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x294$293" ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind" ) - ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x289$288" ) :| [] ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "bind$w" ) ) ) - ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) - ( Ref Nothing - ( Local - ( Name "x294$293" ) - ) :| [] - ) - ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x295$294" ) - ) - ( AppN Nothing ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) - ) - ) ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) + ( ObjectProp ( Just Always ) ( Ref Nothing - ( Local - ( Name "x295$294" ) - ) :| [] + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) ) + ( PropName "intAdd" ) ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x296$295" ) - ) - ( AppN Nothing + ( Ref Nothing + ( Local + ( Name "x289$288" ) + ) :| [] + ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x290$289" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind" ) + ( Name "bind$w" ) ) ) ( AppN Nothing @@ -762,104 +500,58 @@ UberModule ) ( Ref Nothing ( Local - ( Name "x296$295" ) + ( Name "x290$289" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x297$296" ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind" ) - ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x291$290" ) :| [] ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "bind$w" ) ) ) - ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) - ( Ref Nothing - ( Local - ( Name "x297$296" ) - ) :| [] - ) - ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x298$297" ) - ) - ( AppN Nothing ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) - ) - ) ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) + ( ObjectProp ( Just Always ) ( Ref Nothing - ( Local - ( Name "x298$297" ) - ) :| [] + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) ) + ( PropName "intAdd" ) ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x299$298" ) - ) - ( AppN Nothing + ( Ref Nothing + ( Local + ( Name "x291$290" ) + ) :| [] + ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x292$291" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind" ) + ( Name "bind$w" ) ) ) ( AppN Nothing @@ -882,131 +574,407 @@ UberModule ) ( Ref Nothing ( Local - ( Name "x299$298" ) + ( Name "x292$291" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x300$299" ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x293$292" ) :| [] ) - ) - ( AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "bind$w" ) + ) + ) + ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) - ( PropName "intAdd" ) - ) - ( Ref Nothing - ( Local - ( Name "x1$0$552" ) - ) :| [] - ) - ) - ( Ref Nothing - ( Local - ( Name "x300$299" ) - ) :| [] - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] + ( AppN Nothing + ( AppN Nothing + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) + ) + ( PropName "intAdd" ) + ) + ( Ref Nothing + ( Local + ( Name "x293$292" ) + ) :| [] + ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x294$293" ) :| [] + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "bind$w" ) + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) + ) + ) + ( AppN Nothing + ( AppN Nothing + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) + ) + ( PropName "intAdd" ) + ) + ( Ref Nothing + ( Local + ( Name "x294$293" ) + ) :| [] + ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x295$294" ) :| [] + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "bind$w" ) + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) + ) + ) + ( AppN Nothing + ( AppN Nothing + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) + ) + ( PropName "intAdd" ) + ) + ( Ref Nothing + ( Local + ( Name "x295$294" ) + ) :| [] + ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x296$295" ) :| [] + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "bind$w" ) + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) + ) + ) + ( AppN Nothing + ( AppN Nothing + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) + ) + ( PropName "intAdd" ) + ) + ( Ref Nothing + ( Local + ( Name "x296$295" ) + ) :| [] + ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x297$296" ) :| [] + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "bind$w" ) + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) + ) + ) + ( AppN Nothing + ( AppN Nothing + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) + ) + ( PropName "intAdd" ) + ) + ( Ref Nothing + ( Local + ( Name "x297$296" ) + ) :| [] + ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x298$297" ) :| [] + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "bind$w" ) + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) + ) + ) + ( AppN Nothing + ( AppN Nothing + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) + ) + ( PropName "intAdd" ) + ) + ( Ref Nothing + ( Local + ( Name "x298$297" ) + ) :| [] + ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x299$298" ) :| [] + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "bind$w" ) + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) + ) + ) + ( AppN Nothing + ( AppN Nothing + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) + ) + ( PropName "intAdd" ) + ) + ( Ref Nothing + ( Local + ( Name "x299$298" ) + ) :| [] + ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x300$299" ) :| [] + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) + ) + ) + ( AppN Nothing + ( AppN Nothing + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) + ) + ( PropName "intAdd" ) + ) + ( Ref Nothing + ( Local + ( Name "x1$0$552" ) + ) :| [] + ) + ) + ( Ref Nothing + ( Local + ( Name "x300$299" ) + ) :| [] + ) :| [] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) ) ) ) :| [ Standalone - ( Nothing, Name "$kont554", Abs Nothing - ( ParamNamed Nothing ( Name "x1$0$555" ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x238$237$556" ) ) + ( Nothing, Name "$kont554", AbsN Nothing + ( ParamNamed Nothing ( Name "x1$0$555" ) :| [] ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x238$237$556" ) :| [] ) ( AppN Nothing + ( Ref Nothing + ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind$w" ) ) + ) ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind" ) ) - ) + ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) ( AppN Nothing - ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported ( ModuleName "Data.Semiring" ) ( Name "foreign" ) ) - ) - ( PropName "intAdd" ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported ( ModuleName "Data.Semiring" ) ( Name "foreign" ) ) ) - ( Ref Nothing ( Local ( Name "x238$237$556" ) ) :| [] ) + ( PropName "intAdd" ) ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x239$238" ) ) - ( AppN Nothing + ( Ref Nothing ( Local ( Name "x238$237$556" ) ) :| [] ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing ( Name "x239$238" ) :| [] ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind" ) + ( Name "bind$w" ) ) ) ( AppN Nothing @@ -1022,76 +990,42 @@ UberModule ( Ref Nothing ( Local ( Name "x239$238" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x240$239" ) ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind" ) - ) - ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing ( Name "x240$239" ) :| [] ) ( AppN Nothing ( Ref Nothing - ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) - ) - ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported ( ModuleName "Data.Semiring" ) ( Name "foreign" ) ) - ) - ( PropName "intAdd" ) - ) - ( Ref Nothing ( Local ( Name "x240$239" ) ) :| [] ) + ( Imported + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "bind$w" ) ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x241$240" ) ) - ( AppN Nothing + ) ( AppN Nothing ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind" ) - ) + ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) - ) ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) ) - ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x241$240" ) ) :| [] ) + ( PropName "intAdd" ) ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x242$241" ) ) - ( AppN Nothing + ( Ref Nothing ( Local ( Name "x240$239" ) ) :| [] ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing ( Name "x241$240" ) :| [] ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind" ) + ( Name "bind$w" ) ) ) ( AppN Nothing @@ -1109,87 +1043,48 @@ UberModule ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x242$241" ) ) :| [] ) + ( Ref Nothing ( Local ( Name "x241$240" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x243$242" ) ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind" ) - ) - ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing ( Name "x242$241" ) :| [] ) ( AppN Nothing ( Ref Nothing - ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) - ) - ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) - ( Ref Nothing ( Local ( Name "x243$242" ) ) :| [] ) + ( Imported + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "bind$w" ) ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x244$243" ) ) - ( AppN Nothing + ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) - ) - ) ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) + ( ObjectProp ( Just Always ) ( Ref Nothing - ( Local ( Name "x244$243" ) ) :| [] + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) ) + ( PropName "intAdd" ) ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x245$244" ) ) - ( AppN Nothing + ( Ref Nothing ( Local ( Name "x242$241" ) ) :| [] ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing ( Name "x243$242" ) :| [] ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind" ) + ( Name "bind$w" ) ) ) ( AppN Nothing @@ -1211,93 +1106,55 @@ UberModule ( PropName "intAdd" ) ) ( Ref Nothing - ( Local ( Name "x245$244" ) ) :| [] + ( Local ( Name "x243$242" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x246$245" ) ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind" ) - ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x244$243" ) :| [] ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "bind$w" ) ) ) - ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) - ( Ref Nothing - ( Local ( Name "x246$245" ) ) :| [] - ) - ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x247$246" ) ) - ( AppN Nothing ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) - ) - ) ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) + ( ObjectProp ( Just Always ) ( Ref Nothing - ( Local ( Name "x247$246" ) ) :| [] + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) ) + ( PropName "intAdd" ) ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x248$247" ) ) - ( AppN Nothing + ( Ref Nothing + ( Local ( Name "x244$243" ) ) :| [] + ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x245$244" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind" ) + ( Name "bind$w" ) ) ) ( AppN Nothing @@ -1320,91 +1177,58 @@ UberModule ) ( Ref Nothing ( Local - ( Name "x248$247" ) + ( Name "x245$244" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x249$248" ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind" ) - ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x246$245" ) :| [] ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "bind$w" ) ) ) - ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) - ( Ref Nothing - ( Local - ( Name "x249$248" ) - ) :| [] - ) - ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x250$249" ) - ) - ( AppN Nothing ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( AppN Nothing + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) + ) + ( PropName "intAdd" ) ) - ) - ( ObjectProp ( Just Always ) ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) + ( Local + ( Name "x246$245" ) + ) :| [] ) - ( PropName "unit" ) :| [] - ) :| [] - ) - ) - ( Abs Nothing ( ParamUnused Nothing ) - ( AppN Nothing + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x247$246" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind" ) + ( Name "bind$w" ) ) ) ( AppN Nothing @@ -1427,104 +1251,58 @@ UberModule ) ( Ref Nothing ( Local - ( Name "x250$249" ) + ( Name "x247$246" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x251$250" ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind" ) - ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x248$247" ) :| [] ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "bind$w" ) ) ) - ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) - ( Ref Nothing - ( Local - ( Name "x251$250" ) - ) :| [] - ) - ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x252$251" ) - ) - ( AppN Nothing ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) - ) - ) ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) + ( ObjectProp ( Just Always ) ( Ref Nothing - ( Local - ( Name "x252$251" ) - ) :| [] + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) ) + ( PropName "intAdd" ) ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x253$252" ) - ) - ( AppN Nothing + ( Ref Nothing + ( Local + ( Name "x248$247" ) + ) :| [] + ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x249$248" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind" ) + ( Name "bind$w" ) ) ) ( AppN Nothing @@ -1547,104 +1325,46 @@ UberModule ) ( Ref Nothing ( Local - ( Name "x253$252" ) + ( Name "x249$248" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x254$253" ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind" ) - ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x250$249" ) :| [] ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "bind$w" ) ) ) - ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) - ( Ref Nothing - ( Local - ( Name "x254$253" ) - ) :| [] - ) - ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x255$254" ) - ) - ( AppN Nothing ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) - ( AppN Nothing + ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Data.Unit" ) + ( Name "foreign" ) ) ) - ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) - ( Ref Nothing - ( Local - ( Name "x255$254" ) - ) :| [] - ) - ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x256$255" ) - ) - ( AppN Nothing + ( PropName "unit" ) :| [] + ) :| + [ AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind" ) + ( Name "bind$w" ) ) ) ( AppN Nothing @@ -1667,104 +1387,58 @@ UberModule ) ( Ref Nothing ( Local - ( Name "x256$255" ) + ( Name "x250$249" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x257$256" ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind" ) - ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x251$250" ) :| [] ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "bind$w" ) ) ) - ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) - ( Ref Nothing - ( Local - ( Name "x257$256" ) - ) :| [] - ) - ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x258$257" ) - ) - ( AppN Nothing ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) - ) - ) ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) + ( ObjectProp ( Just Always ) ( Ref Nothing - ( Local - ( Name "x258$257" ) - ) :| [] + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) ) + ( PropName "intAdd" ) ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x259$258" ) - ) - ( AppN Nothing + ( Ref Nothing + ( Local + ( Name "x251$250" ) + ) :| [] + ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x252$251" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind" ) + ( Name "bind$w" ) ) ) ( AppN Nothing @@ -1787,104 +1461,58 @@ UberModule ) ( Ref Nothing ( Local - ( Name "x259$258" ) + ( Name "x252$251" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x260$259" ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind" ) - ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x253$252" ) :| [] ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "bind$w" ) ) ) - ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) - ( Ref Nothing - ( Local - ( Name "x260$259" ) - ) :| [] - ) - ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x261$260" ) - ) - ( AppN Nothing ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) - ) - ) ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) + ( ObjectProp ( Just Always ) ( Ref Nothing - ( Local - ( Name "x261$260" ) - ) :| [] + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) ) + ( PropName "intAdd" ) ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x262$261" ) - ) - ( AppN Nothing + ( Ref Nothing + ( Local + ( Name "x253$252" ) + ) :| [] + ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x254$253" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind" ) + ( Name "bind$w" ) ) ) ( AppN Nothing @@ -1907,104 +1535,58 @@ UberModule ) ( Ref Nothing ( Local - ( Name "x262$261" ) + ( Name "x254$253" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x263$262" ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind" ) - ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x255$254" ) :| [] ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "bind$w" ) ) ) - ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) - ( Ref Nothing - ( Local - ( Name "x263$262" ) - ) :| [] - ) - ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x264$263" ) - ) - ( AppN Nothing ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) - ) - ) ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) + ( ObjectProp ( Just Always ) ( Ref Nothing - ( Local - ( Name "x264$263" ) - ) :| [] + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) ) + ( PropName "intAdd" ) ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x265$264" ) - ) - ( AppN Nothing + ( Ref Nothing + ( Local + ( Name "x255$254" ) + ) :| [] + ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x256$255" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind" ) + ( Name "bind$w" ) ) ) ( AppN Nothing @@ -2027,104 +1609,58 @@ UberModule ) ( Ref Nothing ( Local - ( Name "x265$264" ) + ( Name "x256$255" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x266$265" ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind" ) - ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x257$256" ) :| [] ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "bind$w" ) ) ) - ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) - ( Ref Nothing - ( Local - ( Name "x266$265" ) - ) :| [] - ) - ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x267$266" ) - ) - ( AppN Nothing ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) - ) - ) ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) + ( ObjectProp ( Just Always ) ( Ref Nothing - ( Local - ( Name "x267$266" ) - ) :| [] + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) ) + ( PropName "intAdd" ) ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x268$267" ) - ) - ( AppN Nothing + ( Ref Nothing + ( Local + ( Name "x257$256" ) + ) :| [] + ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x258$257" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind" ) + ( Name "bind$w" ) ) ) ( AppN Nothing @@ -2147,104 +1683,58 @@ UberModule ) ( Ref Nothing ( Local - ( Name "x268$267" ) + ( Name "x258$257" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x269$268" ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) - ) - ) - ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) - ( Ref Nothing - ( Local - ( Name "x269$268" ) - ) :| [] - ) - ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing + ) :| + [ AbsN Nothing ( ParamNamed Nothing - ( Name "x270$269" ) + ( Name "x259$258" ) :| [] ) ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) - ) - ) - ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) - ( Ref Nothing - ( Local - ( Name "x270$269" ) - ) :| [] - ) - ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "bind$w" ) ) ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x271$270" ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) + ) ) ( AppN Nothing + ( AppN Nothing + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) + ) + ( PropName "intAdd" ) + ) + ( Ref Nothing + ( Local + ( Name "x259$258" ) + ) :| [] + ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x260$259" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind" ) + ( Name "bind$w" ) ) ) ( AppN Nothing @@ -2267,104 +1757,58 @@ UberModule ) ( Ref Nothing ( Local - ( Name "x271$270" ) + ( Name "x260$259" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x272$271" ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind" ) - ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x261$260" ) :| [] ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "bind$w" ) ) ) - ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) - ( Ref Nothing - ( Local - ( Name "x272$271" ) - ) :| [] - ) - ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x273$272" ) - ) - ( AppN Nothing ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) - ) - ) ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) + ( ObjectProp ( Just Always ) ( Ref Nothing - ( Local - ( Name "x273$272" ) - ) :| [] + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) ) + ( PropName "intAdd" ) ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x274$273" ) - ) - ( AppN Nothing + ( Ref Nothing + ( Local + ( Name "x261$260" ) + ) :| [] + ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x262$261" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind" ) + ( Name "bind$w" ) ) ) ( AppN Nothing @@ -2387,232 +1831,704 @@ UberModule ) ( Ref Nothing ( Local - ( Name "x274$273" ) + ( Name "x262$261" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x275$274" ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind" ) - ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x263$262" ) :| [] ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "bind$w" ) ) ) - ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) - ( Ref Nothing - ( Local - ( Name "x275$274" ) - ) :| [] - ) - ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x276$275" ) - ) - ( AppN Nothing ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) - ) - ) ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) + ( ObjectProp ( Just Always ) ( Ref Nothing - ( Local - ( Name "x276$275" ) - ) :| [] - ) - ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x277$276" ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Local - ( Name "$kont551" ) + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) ) + ( PropName "intAdd" ) ) ( Ref Nothing ( Local - ( Name "x1$0$555" ) + ( Name "x263$262" ) ) :| [] ) ) - ( Ref Nothing - ( Local - ( Name "x277$276" ) - ) :| [] + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x264$263" ) :| [] ) - ) :| [] + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "bind$w" ) + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) + ) + ) + ( AppN Nothing + ( AppN Nothing + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) + ) + ( PropName "intAdd" ) + ) + ( Ref Nothing + ( Local + ( Name "x264$263" ) + ) :| [] + ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x265$264" ) :| [] + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "bind$w" ) + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) + ) + ) + ( AppN Nothing + ( AppN Nothing + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) + ) + ( PropName "intAdd" ) + ) + ( Ref Nothing + ( Local + ( Name "x265$264" ) + ) :| [] + ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x266$265" ) :| [] + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "bind$w" ) + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) + ) + ) + ( AppN Nothing + ( AppN Nothing + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) + ) + ( PropName "intAdd" ) + ) + ( Ref Nothing + ( Local + ( Name "x266$265" ) + ) :| [] + ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x267$266" ) :| [] + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "bind$w" ) + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) + ) + ) + ( AppN Nothing + ( AppN Nothing + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) + ) + ( PropName "intAdd" ) + ) + ( Ref Nothing + ( Local + ( Name "x267$266" ) + ) :| [] + ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x268$267" ) :| [] + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "bind$w" ) + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) + ) + ) + ( AppN Nothing + ( AppN Nothing + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) + ) + ( PropName "intAdd" ) + ) + ( Ref Nothing + ( Local + ( Name "x268$267" ) + ) :| [] + ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x269$268" ) :| [] + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "bind$w" ) + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) + ) + ) + ( AppN Nothing + ( AppN Nothing + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) + ) + ( PropName "intAdd" ) + ) + ( Ref Nothing + ( Local + ( Name "x269$268" ) + ) :| [] + ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x270$269" ) :| [] + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "bind$w" ) + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) + ) + ) + ( AppN Nothing + ( AppN Nothing + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) + ) + ( PropName "intAdd" ) + ) + ( Ref Nothing + ( Local + ( Name "x270$269" ) + ) :| [] + ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x271$270" ) :| [] + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "bind$w" ) + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) + ) + ) + ( AppN Nothing + ( AppN Nothing + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) + ) + ( PropName "intAdd" ) + ) + ( Ref Nothing + ( Local + ( Name "x271$270" ) + ) :| [] + ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x272$271" ) :| [] + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "bind$w" ) + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) + ) + ) + ( AppN Nothing + ( AppN Nothing + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) + ) + ( PropName "intAdd" ) + ) + ( Ref Nothing + ( Local + ( Name "x272$271" ) + ) :| [] + ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x273$272" ) :| [] + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "bind$w" ) + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) + ) + ) + ( AppN Nothing + ( AppN Nothing + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) + ) + ( PropName "intAdd" ) + ) + ( Ref Nothing + ( Local + ( Name "x273$272" ) + ) :| [] + ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x274$273" ) :| [] + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "bind$w" ) + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) + ) + ) + ( AppN Nothing + ( AppN Nothing + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) + ) + ( PropName "intAdd" ) + ) + ( Ref Nothing + ( Local + ( Name "x274$273" ) + ) :| [] + ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x275$274" ) :| [] + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "bind$w" ) + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) + ) + ) + ( AppN Nothing + ( AppN Nothing + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) + ) + ( PropName "intAdd" ) + ) + ( Ref Nothing + ( Local + ( Name "x275$274" ) + ) :| [] + ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x276$275" ) :| [] + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "bind$w" ) + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) + ) + ) + ( AppN Nothing + ( AppN Nothing + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) + ) + ( PropName "intAdd" ) + ) + ( Ref Nothing + ( Local + ( Name "x276$275" ) + ) :| [] + ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x277$276" ) :| [] + ) + ( AppN Nothing + ( AppN Nothing + ( Ref Nothing + ( Local + ( Name "$kont551" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x1$0$555" ) + ) :| [] + ) + ) + ( Ref Nothing + ( Local + ( Name "x277$276" ) + ) :| [] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) ) ) ), Standalone - ( Nothing, Name "$kont557", Abs Nothing - ( ParamNamed Nothing ( Name "x1$0$558" ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x198$197$559" ) ) + ( Nothing, Name "$kont557", AbsN Nothing + ( ParamNamed Nothing ( Name "x1$0$558" ) :| [] ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x198$197$559" ) :| [] ) ( AppN Nothing + ( Ref Nothing + ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind$w" ) ) + ) ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind" ) ) - ) + ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) ( AppN Nothing - ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported ( ModuleName "Data.Semiring" ) ( Name "foreign" ) ) - ) - ( PropName "intAdd" ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported ( ModuleName "Data.Semiring" ) ( Name "foreign" ) ) ) - ( Ref Nothing ( Local ( Name "x198$197$559" ) ) :| [] ) + ( PropName "intAdd" ) ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x199$198" ) ) - ( AppN Nothing + ( Ref Nothing ( Local ( Name "x198$197$559" ) ) :| [] ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing ( Name "x199$198" ) :| [] ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind" ) + ( Name "bind$w" ) ) ) ( AppN Nothing @@ -2628,76 +2544,42 @@ UberModule ( Ref Nothing ( Local ( Name "x199$198" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x200$199" ) ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind" ) - ) - ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing ( Name "x200$199" ) :| [] ) ( AppN Nothing ( Ref Nothing - ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) - ) - ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported ( ModuleName "Data.Semiring" ) ( Name "foreign" ) ) - ) - ( PropName "intAdd" ) - ) - ( Ref Nothing ( Local ( Name "x200$199" ) ) :| [] ) + ( Imported + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "bind$w" ) ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x201$200" ) ) - ( AppN Nothing + ) ( AppN Nothing ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind" ) - ) + ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) - ) ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) ) - ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x201$200" ) ) :| [] ) + ( PropName "intAdd" ) ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x202$201" ) ) - ( AppN Nothing + ( Ref Nothing ( Local ( Name "x200$199" ) ) :| [] ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing ( Name "x201$200" ) :| [] ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind" ) + ( Name "bind$w" ) ) ) ( AppN Nothing @@ -2715,87 +2597,48 @@ UberModule ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x202$201" ) ) :| [] ) + ( Ref Nothing ( Local ( Name "x201$200" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x203$202" ) ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind" ) - ) - ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing ( Name "x202$201" ) :| [] ) ( AppN Nothing ( Ref Nothing - ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) - ) - ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) - ( Ref Nothing ( Local ( Name "x203$202" ) ) :| [] ) + ( Imported + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "bind$w" ) ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x204$203" ) ) - ( AppN Nothing + ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) - ) - ) ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) + ( ObjectProp ( Just Always ) ( Ref Nothing - ( Local ( Name "x204$203" ) ) :| [] + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) ) + ( PropName "intAdd" ) ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x205$204" ) ) - ( AppN Nothing + ( Ref Nothing ( Local ( Name "x202$201" ) ) :| [] ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing ( Name "x203$202" ) :| [] ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind" ) + ( Name "bind$w" ) ) ) ( AppN Nothing @@ -2817,93 +2660,55 @@ UberModule ( PropName "intAdd" ) ) ( Ref Nothing - ( Local ( Name "x205$204" ) ) :| [] + ( Local ( Name "x203$202" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x206$205" ) ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind" ) - ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x204$203" ) :| [] ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "bind$w" ) ) ) - ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) - ( Ref Nothing - ( Local ( Name "x206$205" ) ) :| [] - ) - ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x207$206" ) ) - ( AppN Nothing ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) - ) - ) ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) + ( ObjectProp ( Just Always ) ( Ref Nothing - ( Local ( Name "x207$206" ) ) :| [] + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) ) + ( PropName "intAdd" ) ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x208$207" ) ) - ( AppN Nothing + ( Ref Nothing + ( Local ( Name "x204$203" ) ) :| [] + ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x205$204" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind" ) + ( Name "bind$w" ) ) ) ( AppN Nothing @@ -2926,104 +2731,58 @@ UberModule ) ( Ref Nothing ( Local - ( Name "x208$207" ) + ( Name "x205$204" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x209$208" ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind" ) - ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x206$205" ) :| [] ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "bind$w" ) ) ) - ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) - ( Ref Nothing - ( Local - ( Name "x209$208" ) - ) :| [] - ) - ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x210$209" ) - ) - ( AppN Nothing ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) - ) - ) ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) + ( ObjectProp ( Just Always ) ( Ref Nothing - ( Local - ( Name "x210$209" ) - ) :| [] + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) ) + ( PropName "intAdd" ) ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x211$210" ) - ) - ( AppN Nothing + ( Ref Nothing + ( Local + ( Name "x206$205" ) + ) :| [] + ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x207$206" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind" ) + ( Name "bind$w" ) ) ) ( AppN Nothing @@ -3046,104 +2805,58 @@ UberModule ) ( Ref Nothing ( Local - ( Name "x211$210" ) + ( Name "x207$206" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x212$211" ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind" ) - ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x208$207" ) :| [] ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "bind$w" ) ) ) - ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) - ( Ref Nothing - ( Local - ( Name "x212$211" ) - ) :| [] - ) - ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x213$212" ) - ) - ( AppN Nothing ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) - ) - ) ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) + ( ObjectProp ( Just Always ) ( Ref Nothing - ( Local - ( Name "x213$212" ) - ) :| [] + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) ) + ( PropName "intAdd" ) ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x214$213" ) - ) - ( AppN Nothing + ( Ref Nothing + ( Local + ( Name "x208$207" ) + ) :| [] + ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x209$208" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind" ) + ( Name "bind$w" ) ) ) ( AppN Nothing @@ -3166,104 +2879,58 @@ UberModule ) ( Ref Nothing ( Local - ( Name "x214$213" ) + ( Name "x209$208" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x215$214" ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind" ) - ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x210$209" ) :| [] ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "bind$w" ) ) ) - ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) - ( Ref Nothing - ( Local - ( Name "x215$214" ) - ) :| [] - ) - ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x216$215" ) - ) - ( AppN Nothing ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) - ) - ) ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) + ( ObjectProp ( Just Always ) ( Ref Nothing - ( Local - ( Name "x216$215" ) - ) :| [] + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) ) + ( PropName "intAdd" ) ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x217$216" ) - ) - ( AppN Nothing + ( Ref Nothing + ( Local + ( Name "x210$209" ) + ) :| [] + ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x211$210" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind" ) + ( Name "bind$w" ) ) ) ( AppN Nothing @@ -3286,104 +2953,58 @@ UberModule ) ( Ref Nothing ( Local - ( Name "x217$216" ) + ( Name "x211$210" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x218$217" ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind" ) - ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x212$211" ) :| [] ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "bind$w" ) ) ) - ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) - ( Ref Nothing - ( Local - ( Name "x218$217" ) - ) :| [] - ) - ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x219$218" ) - ) - ( AppN Nothing ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) - ) - ) ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) + ( ObjectProp ( Just Always ) ( Ref Nothing - ( Local - ( Name "x219$218" ) - ) :| [] + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) ) + ( PropName "intAdd" ) ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x220$219" ) - ) - ( AppN Nothing + ( Ref Nothing + ( Local + ( Name "x212$211" ) + ) :| [] + ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x213$212" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind" ) + ( Name "bind$w" ) ) ) ( AppN Nothing @@ -3406,104 +3027,58 @@ UberModule ) ( Ref Nothing ( Local - ( Name "x220$219" ) + ( Name "x213$212" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x221$220" ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind" ) - ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x214$213" ) :| [] ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "bind$w" ) ) ) - ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) - ( Ref Nothing - ( Local - ( Name "x221$220" ) - ) :| [] - ) - ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x222$221" ) - ) - ( AppN Nothing ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) - ) - ) ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) + ( ObjectProp ( Just Always ) ( Ref Nothing - ( Local - ( Name "x222$221" ) - ) :| [] + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) ) + ( PropName "intAdd" ) ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x223$222" ) - ) - ( AppN Nothing + ( Ref Nothing + ( Local + ( Name "x214$213" ) + ) :| [] + ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x215$214" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind" ) + ( Name "bind$w" ) ) ) ( AppN Nothing @@ -3526,104 +3101,58 @@ UberModule ) ( Ref Nothing ( Local - ( Name "x223$222" ) + ( Name "x215$214" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x224$223" ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind" ) - ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x216$215" ) :| [] ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) - ) - ) - ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) - ( Ref Nothing - ( Local - ( Name "x224$223" ) - ) :| [] - ) - ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x225$224" ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) - ) - ) - ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) - ( Ref Nothing - ( Local - ( Name "x225$224" ) - ) :| [] - ) - ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "bind$w" ) ) ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x226$225" ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) + ) ) ( AppN Nothing + ( AppN Nothing + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) + ) + ( PropName "intAdd" ) + ) + ( Ref Nothing + ( Local + ( Name "x216$215" ) + ) :| [] + ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x217$216" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind" ) + ( Name "bind$w" ) ) ) ( AppN Nothing @@ -3646,104 +3175,58 @@ UberModule ) ( Ref Nothing ( Local - ( Name "x226$225" ) + ( Name "x217$216" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x227$226" ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind" ) - ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x218$217" ) :| [] ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "bind$w" ) ) ) - ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) - ( Ref Nothing - ( Local - ( Name "x227$226" ) - ) :| [] - ) - ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x228$227" ) - ) - ( AppN Nothing ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) - ) - ) ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) + ( ObjectProp ( Just Always ) ( Ref Nothing - ( Local - ( Name "x228$227" ) - ) :| [] + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) ) + ( PropName "intAdd" ) ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x229$228" ) - ) - ( AppN Nothing + ( Ref Nothing + ( Local + ( Name "x218$217" ) + ) :| [] + ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x219$218" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind" ) + ( Name "bind$w" ) ) ) ( AppN Nothing @@ -3766,104 +3249,58 @@ UberModule ) ( Ref Nothing ( Local - ( Name "x229$228" ) + ( Name "x219$218" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x230$229" ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind" ) - ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x220$219" ) :| [] ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "bind$w" ) ) ) - ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) - ( Ref Nothing - ( Local - ( Name "x230$229" ) - ) :| [] - ) - ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x231$230" ) - ) - ( AppN Nothing ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) - ) - ) ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) + ( ObjectProp ( Just Always ) ( Ref Nothing - ( Local - ( Name "x231$230" ) - ) :| [] + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) ) + ( PropName "intAdd" ) ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x232$231" ) - ) - ( AppN Nothing + ( Ref Nothing + ( Local + ( Name "x220$219" ) + ) :| [] + ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x221$220" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind" ) + ( Name "bind$w" ) ) ) ( AppN Nothing @@ -3886,104 +3323,58 @@ UberModule ) ( Ref Nothing ( Local - ( Name "x232$231" ) + ( Name "x221$220" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x233$232" ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind" ) - ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x222$221" ) :| [] ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "bind$w" ) ) ) - ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) - ( Ref Nothing - ( Local - ( Name "x233$232" ) - ) :| [] - ) - ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x234$233" ) - ) - ( AppN Nothing ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) - ) - ) ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) + ( ObjectProp ( Just Always ) ( Ref Nothing - ( Local - ( Name "x234$233" ) - ) :| [] + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) ) + ( PropName "intAdd" ) ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x235$234" ) - ) - ( AppN Nothing + ( Ref Nothing + ( Local + ( Name "x222$221" ) + ) :| [] + ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x223$222" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind" ) + ( Name "bind$w" ) ) ) ( AppN Nothing @@ -4006,232 +3397,704 @@ UberModule ) ( Ref Nothing ( Local - ( Name "x235$234" ) + ( Name "x223$222" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x236$235" ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind" ) - ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x224$223" ) :| [] ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "bind$w" ) ) ) ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) - ( Ref Nothing - ( Local - ( Name "x236$235" ) - ) :| [] - ) - ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x237$236" ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) - ) - ) - ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) - ( Ref Nothing - ( Local - ( Name "x237$236" ) - ) :| [] - ) - ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x238$237" ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) + ) ) ( AppN Nothing ( AppN Nothing - ( Ref Nothing - ( Local - ( Name "$kont554" ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) ) + ( PropName "intAdd" ) ) ( Ref Nothing ( Local - ( Name "x1$0$558" ) + ( Name "x224$223" ) ) :| [] ) ) - ( Ref Nothing - ( Local - ( Name "x238$237" ) - ) :| [] + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x225$224" ) :| [] ) - ) :| [] + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "bind$w" ) + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) + ) + ) + ( AppN Nothing + ( AppN Nothing + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) + ) + ( PropName "intAdd" ) + ) + ( Ref Nothing + ( Local + ( Name "x225$224" ) + ) :| [] + ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x226$225" ) :| [] + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "bind$w" ) + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) + ) + ) + ( AppN Nothing + ( AppN Nothing + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) + ) + ( PropName "intAdd" ) + ) + ( Ref Nothing + ( Local + ( Name "x226$225" ) + ) :| [] + ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x227$226" ) :| [] + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "bind$w" ) + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) + ) + ) + ( AppN Nothing + ( AppN Nothing + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) + ) + ( PropName "intAdd" ) + ) + ( Ref Nothing + ( Local + ( Name "x227$226" ) + ) :| [] + ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x228$227" ) :| [] + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "bind$w" ) + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) + ) + ) + ( AppN Nothing + ( AppN Nothing + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) + ) + ( PropName "intAdd" ) + ) + ( Ref Nothing + ( Local + ( Name "x228$227" ) + ) :| [] + ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x229$228" ) :| [] + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "bind$w" ) + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) + ) + ) + ( AppN Nothing + ( AppN Nothing + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) + ) + ( PropName "intAdd" ) + ) + ( Ref Nothing + ( Local + ( Name "x229$228" ) + ) :| [] + ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x230$229" ) :| [] + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "bind$w" ) + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) + ) + ) + ( AppN Nothing + ( AppN Nothing + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) + ) + ( PropName "intAdd" ) + ) + ( Ref Nothing + ( Local + ( Name "x230$229" ) + ) :| [] + ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x231$230" ) :| [] + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "bind$w" ) + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) + ) + ) + ( AppN Nothing + ( AppN Nothing + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) + ) + ( PropName "intAdd" ) + ) + ( Ref Nothing + ( Local + ( Name "x231$230" ) + ) :| [] + ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x232$231" ) :| [] + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "bind$w" ) + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) + ) + ) + ( AppN Nothing + ( AppN Nothing + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) + ) + ( PropName "intAdd" ) + ) + ( Ref Nothing + ( Local + ( Name "x232$231" ) + ) :| [] + ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x233$232" ) :| [] + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "bind$w" ) + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) + ) + ) + ( AppN Nothing + ( AppN Nothing + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) + ) + ( PropName "intAdd" ) + ) + ( Ref Nothing + ( Local + ( Name "x233$232" ) + ) :| [] + ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x234$233" ) :| [] + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "bind$w" ) + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) + ) + ) + ( AppN Nothing + ( AppN Nothing + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) + ) + ( PropName "intAdd" ) + ) + ( Ref Nothing + ( Local + ( Name "x234$233" ) + ) :| [] + ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x235$234" ) :| [] + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "bind$w" ) + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) + ) + ) + ( AppN Nothing + ( AppN Nothing + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) + ) + ( PropName "intAdd" ) + ) + ( Ref Nothing + ( Local + ( Name "x235$234" ) + ) :| [] + ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x236$235" ) :| [] + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "bind$w" ) + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) + ) + ) + ( AppN Nothing + ( AppN Nothing + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) + ) + ( PropName "intAdd" ) + ) + ( Ref Nothing + ( Local + ( Name "x236$235" ) + ) :| [] + ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x237$236" ) :| [] + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "bind$w" ) + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) + ) + ) + ( AppN Nothing + ( AppN Nothing + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) + ) + ( PropName "intAdd" ) + ) + ( Ref Nothing + ( Local + ( Name "x237$236" ) + ) :| [] + ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x238$237" ) :| [] + ) + ( AppN Nothing + ( AppN Nothing + ( Ref Nothing + ( Local + ( Name "$kont554" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x1$0$558" ) + ) :| [] + ) + ) + ( Ref Nothing + ( Local + ( Name "x238$237" ) + ) :| [] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) ) ) ), Standalone - ( Nothing, Name "$kont560", Abs Nothing - ( ParamNamed Nothing ( Name "x1$0$561" ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x158$157$562" ) ) + ( Nothing, Name "$kont560", AbsN Nothing + ( ParamNamed Nothing ( Name "x1$0$561" ) :| [] ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x158$157$562" ) :| [] ) ( AppN Nothing + ( Ref Nothing + ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind$w" ) ) + ) ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind" ) ) - ) + ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) ( AppN Nothing - ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported ( ModuleName "Data.Semiring" ) ( Name "foreign" ) ) - ) - ( PropName "intAdd" ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported ( ModuleName "Data.Semiring" ) ( Name "foreign" ) ) ) - ( Ref Nothing ( Local ( Name "x158$157$562" ) ) :| [] ) + ( PropName "intAdd" ) ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x159$158" ) ) - ( AppN Nothing + ( Ref Nothing ( Local ( Name "x158$157$562" ) ) :| [] ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing ( Name "x159$158" ) :| [] ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind" ) + ( Name "bind$w" ) ) ) ( AppN Nothing @@ -4247,76 +4110,42 @@ UberModule ( Ref Nothing ( Local ( Name "x159$158" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x160$159" ) ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind" ) - ) - ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing ( Name "x160$159" ) :| [] ) ( AppN Nothing ( Ref Nothing - ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) - ) - ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported ( ModuleName "Data.Semiring" ) ( Name "foreign" ) ) - ) - ( PropName "intAdd" ) - ) - ( Ref Nothing ( Local ( Name "x160$159" ) ) :| [] ) + ( Imported + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "bind$w" ) ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x161$160" ) ) - ( AppN Nothing + ) ( AppN Nothing ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind" ) - ) + ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) - ) ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) ) - ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x161$160" ) ) :| [] ) + ( PropName "intAdd" ) ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x162$161" ) ) - ( AppN Nothing + ( Ref Nothing ( Local ( Name "x160$159" ) ) :| [] ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing ( Name "x161$160" ) :| [] ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind" ) + ( Name "bind$w" ) ) ) ( AppN Nothing @@ -4334,87 +4163,48 @@ UberModule ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x162$161" ) ) :| [] ) + ( Ref Nothing ( Local ( Name "x161$160" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x163$162" ) ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind" ) - ) - ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing ( Name "x162$161" ) :| [] ) ( AppN Nothing ( Ref Nothing - ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) - ) - ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) - ( Ref Nothing ( Local ( Name "x163$162" ) ) :| [] ) + ( Imported + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "bind$w" ) ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x164$163" ) ) - ( AppN Nothing + ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) - ) - ) ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) + ( ObjectProp ( Just Always ) ( Ref Nothing - ( Local ( Name "x164$163" ) ) :| [] + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) ) + ( PropName "intAdd" ) ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x165$164" ) ) - ( AppN Nothing + ( Ref Nothing ( Local ( Name "x162$161" ) ) :| [] ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing ( Name "x163$162" ) :| [] ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind" ) + ( Name "bind$w" ) ) ) ( AppN Nothing @@ -4436,93 +4226,55 @@ UberModule ( PropName "intAdd" ) ) ( Ref Nothing - ( Local ( Name "x165$164" ) ) :| [] + ( Local ( Name "x163$162" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x166$165" ) ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind" ) - ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x164$163" ) :| [] ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "bind$w" ) ) ) - ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) - ( Ref Nothing - ( Local ( Name "x166$165" ) ) :| [] - ) - ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x167$166" ) ) - ( AppN Nothing ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) - ) - ) ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) + ( ObjectProp ( Just Always ) ( Ref Nothing - ( Local ( Name "x167$166" ) ) :| [] + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) ) + ( PropName "intAdd" ) ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x168$167" ) ) - ( AppN Nothing + ( Ref Nothing + ( Local ( Name "x164$163" ) ) :| [] + ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x165$164" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind" ) + ( Name "bind$w" ) ) ) ( AppN Nothing @@ -4545,104 +4297,58 @@ UberModule ) ( Ref Nothing ( Local - ( Name "x168$167" ) + ( Name "x165$164" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x169$168" ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind" ) - ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x166$165" ) :| [] ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "bind$w" ) ) ) - ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) - ( Ref Nothing - ( Local - ( Name "x169$168" ) - ) :| [] - ) - ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x170$169" ) - ) - ( AppN Nothing ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) - ) - ) ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) + ( ObjectProp ( Just Always ) ( Ref Nothing - ( Local - ( Name "x170$169" ) - ) :| [] + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) ) + ( PropName "intAdd" ) ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x171$170" ) - ) - ( AppN Nothing + ( Ref Nothing + ( Local + ( Name "x166$165" ) + ) :| [] + ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x167$166" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind" ) + ( Name "bind$w" ) ) ) ( AppN Nothing @@ -4665,104 +4371,58 @@ UberModule ) ( Ref Nothing ( Local - ( Name "x171$170" ) + ( Name "x167$166" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x172$171" ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind" ) - ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x168$167" ) :| [] ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "bind$w" ) ) ) - ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) - ( Ref Nothing - ( Local - ( Name "x172$171" ) - ) :| [] - ) - ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x173$172" ) - ) - ( AppN Nothing ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) - ) - ) ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) + ( ObjectProp ( Just Always ) ( Ref Nothing - ( Local - ( Name "x173$172" ) - ) :| [] + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) ) + ( PropName "intAdd" ) ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x174$173" ) - ) - ( AppN Nothing + ( Ref Nothing + ( Local + ( Name "x168$167" ) + ) :| [] + ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x169$168" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind" ) + ( Name "bind$w" ) ) ) ( AppN Nothing @@ -4785,104 +4445,58 @@ UberModule ) ( Ref Nothing ( Local - ( Name "x174$173" ) + ( Name "x169$168" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x175$174" ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind" ) - ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x170$169" ) :| [] ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "bind$w" ) ) ) - ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) - ( Ref Nothing - ( Local - ( Name "x175$174" ) - ) :| [] - ) - ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x176$175" ) - ) - ( AppN Nothing ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) - ) - ) ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) + ( ObjectProp ( Just Always ) ( Ref Nothing - ( Local - ( Name "x176$175" ) - ) :| [] + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) ) + ( PropName "intAdd" ) ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x177$176" ) - ) - ( AppN Nothing + ( Ref Nothing + ( Local + ( Name "x170$169" ) + ) :| [] + ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x171$170" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind" ) + ( Name "bind$w" ) ) ) ( AppN Nothing @@ -4905,104 +4519,58 @@ UberModule ) ( Ref Nothing ( Local - ( Name "x177$176" ) + ( Name "x171$170" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x178$177" ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind" ) - ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x172$171" ) :| [] ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "bind$w" ) ) ) - ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) - ( Ref Nothing - ( Local - ( Name "x178$177" ) - ) :| [] - ) - ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x179$178" ) - ) - ( AppN Nothing ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) - ) - ) ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) + ( ObjectProp ( Just Always ) ( Ref Nothing - ( Local - ( Name "x179$178" ) - ) :| [] + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) ) + ( PropName "intAdd" ) ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x180$179" ) - ) - ( AppN Nothing + ( Ref Nothing + ( Local + ( Name "x172$171" ) + ) :| [] + ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x173$172" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind" ) + ( Name "bind$w" ) ) ) ( AppN Nothing @@ -5025,104 +4593,58 @@ UberModule ) ( Ref Nothing ( Local - ( Name "x180$179" ) + ( Name "x173$172" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x181$180" ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind" ) - ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x174$173" ) :| [] ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "bind$w" ) ) ) - ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) - ( Ref Nothing - ( Local - ( Name "x181$180" ) - ) :| [] - ) - ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x182$181" ) - ) - ( AppN Nothing ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) - ) - ) ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) + ( ObjectProp ( Just Always ) ( Ref Nothing - ( Local - ( Name "x182$181" ) - ) :| [] + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) ) + ( PropName "intAdd" ) ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x183$182" ) - ) - ( AppN Nothing + ( Ref Nothing + ( Local + ( Name "x174$173" ) + ) :| [] + ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x175$174" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind" ) + ( Name "bind$w" ) ) ) ( AppN Nothing @@ -5145,104 +4667,58 @@ UberModule ) ( Ref Nothing ( Local - ( Name "x183$182" ) + ( Name "x175$174" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x184$183" ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind" ) - ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x176$175" ) :| [] ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "bind$w" ) ) ) - ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) - ( Ref Nothing - ( Local - ( Name "x184$183" ) - ) :| [] - ) - ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x185$184" ) - ) - ( AppN Nothing ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) - ) - ) ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) + ( ObjectProp ( Just Always ) ( Ref Nothing - ( Local - ( Name "x185$184" ) - ) :| [] + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) ) + ( PropName "intAdd" ) ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x186$185" ) - ) - ( AppN Nothing + ( Ref Nothing + ( Local + ( Name "x176$175" ) + ) :| [] + ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x177$176" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind" ) + ( Name "bind$w" ) ) ) ( AppN Nothing @@ -5265,104 +4741,58 @@ UberModule ) ( Ref Nothing ( Local - ( Name "x186$185" ) + ( Name "x177$176" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x187$186" ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind" ) - ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x178$177" ) :| [] ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "bind$w" ) ) ) - ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) - ( Ref Nothing - ( Local - ( Name "x187$186" ) - ) :| [] - ) - ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x188$187" ) - ) - ( AppN Nothing ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) - ) - ) ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) + ( ObjectProp ( Just Always ) ( Ref Nothing - ( Local - ( Name "x188$187" ) - ) :| [] + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) ) + ( PropName "intAdd" ) ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x189$188" ) - ) - ( AppN Nothing + ( Ref Nothing + ( Local + ( Name "x178$177" ) + ) :| [] + ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x179$178" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind" ) + ( Name "bind$w" ) ) ) ( AppN Nothing @@ -5385,104 +4815,58 @@ UberModule ) ( Ref Nothing ( Local - ( Name "x189$188" ) + ( Name "x179$178" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x190$189" ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) - ) - ) - ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) - ( Ref Nothing - ( Local - ( Name "x190$189" ) - ) :| [] - ) - ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing + ) :| + [ AbsN Nothing ( ParamNamed Nothing - ( Name "x191$190" ) + ( Name "x180$179" ) :| [] ) ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) - ) - ) - ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) - ( Ref Nothing - ( Local - ( Name "x191$190" ) - ) :| [] - ) - ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "bind$w" ) ) ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x192$191" ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) + ) ) ( AppN Nothing + ( AppN Nothing + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) + ) + ( PropName "intAdd" ) + ) + ( Ref Nothing + ( Local + ( Name "x180$179" ) + ) :| [] + ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x181$180" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind" ) + ( Name "bind$w" ) ) ) ( AppN Nothing @@ -5505,104 +4889,58 @@ UberModule ) ( Ref Nothing ( Local - ( Name "x192$191" ) + ( Name "x181$180" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x193$192" ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind" ) - ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x182$181" ) :| [] ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "bind$w" ) ) ) - ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) - ( Ref Nothing - ( Local - ( Name "x193$192" ) - ) :| [] - ) - ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x194$193" ) - ) - ( AppN Nothing ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) - ) - ) ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) + ( ObjectProp ( Just Always ) ( Ref Nothing - ( Local - ( Name "x194$193" ) - ) :| [] + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) ) + ( PropName "intAdd" ) ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x195$194" ) - ) - ( AppN Nothing + ( Ref Nothing + ( Local + ( Name "x182$181" ) + ) :| [] + ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x183$182" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind" ) + ( Name "bind$w" ) ) ) ( AppN Nothing @@ -5625,232 +4963,704 @@ UberModule ) ( Ref Nothing ( Local - ( Name "x195$194" ) + ( Name "x183$182" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x196$195" ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind" ) - ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x184$183" ) :| [] ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "bind$w" ) ) ) - ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) - ( Ref Nothing - ( Local - ( Name "x196$195" ) - ) :| [] - ) - ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x197$196" ) - ) - ( AppN Nothing ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) - ) - ) ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) + ( ObjectProp ( Just Always ) ( Ref Nothing - ( Local - ( Name "x197$196" ) - ) :| [] - ) - ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x198$197" ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Local - ( Name "$kont557" ) + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) ) + ( PropName "intAdd" ) ) ( Ref Nothing ( Local - ( Name "x1$0$561" ) + ( Name "x184$183" ) ) :| [] ) ) - ( Ref Nothing - ( Local - ( Name "x198$197" ) - ) :| [] + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x185$184" ) :| [] ) - ) :| [] + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "bind$w" ) + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) + ) + ) + ( AppN Nothing + ( AppN Nothing + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) + ) + ( PropName "intAdd" ) + ) + ( Ref Nothing + ( Local + ( Name "x185$184" ) + ) :| [] + ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x186$185" ) :| [] + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "bind$w" ) + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) + ) + ) + ( AppN Nothing + ( AppN Nothing + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) + ) + ( PropName "intAdd" ) + ) + ( Ref Nothing + ( Local + ( Name "x186$185" ) + ) :| [] + ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x187$186" ) :| [] + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "bind$w" ) + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) + ) + ) + ( AppN Nothing + ( AppN Nothing + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) + ) + ( PropName "intAdd" ) + ) + ( Ref Nothing + ( Local + ( Name "x187$186" ) + ) :| [] + ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x188$187" ) :| [] + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "bind$w" ) + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) + ) + ) + ( AppN Nothing + ( AppN Nothing + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) + ) + ( PropName "intAdd" ) + ) + ( Ref Nothing + ( Local + ( Name "x188$187" ) + ) :| [] + ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x189$188" ) :| [] + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "bind$w" ) + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) + ) + ) + ( AppN Nothing + ( AppN Nothing + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) + ) + ( PropName "intAdd" ) + ) + ( Ref Nothing + ( Local + ( Name "x189$188" ) + ) :| [] + ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x190$189" ) :| [] + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "bind$w" ) + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) + ) + ) + ( AppN Nothing + ( AppN Nothing + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) + ) + ( PropName "intAdd" ) + ) + ( Ref Nothing + ( Local + ( Name "x190$189" ) + ) :| [] + ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x191$190" ) :| [] + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "bind$w" ) + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) + ) + ) + ( AppN Nothing + ( AppN Nothing + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) + ) + ( PropName "intAdd" ) + ) + ( Ref Nothing + ( Local + ( Name "x191$190" ) + ) :| [] + ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x192$191" ) :| [] + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "bind$w" ) + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) + ) + ) + ( AppN Nothing + ( AppN Nothing + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) + ) + ( PropName "intAdd" ) + ) + ( Ref Nothing + ( Local + ( Name "x192$191" ) + ) :| [] + ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x193$192" ) :| [] + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "bind$w" ) + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) + ) + ) + ( AppN Nothing + ( AppN Nothing + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) + ) + ( PropName "intAdd" ) + ) + ( Ref Nothing + ( Local + ( Name "x193$192" ) + ) :| [] + ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x194$193" ) :| [] + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "bind$w" ) + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) + ) + ) + ( AppN Nothing + ( AppN Nothing + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) + ) + ( PropName "intAdd" ) + ) + ( Ref Nothing + ( Local + ( Name "x194$193" ) + ) :| [] + ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x195$194" ) :| [] + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "bind$w" ) + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) + ) + ) + ( AppN Nothing + ( AppN Nothing + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) + ) + ( PropName "intAdd" ) + ) + ( Ref Nothing + ( Local + ( Name "x195$194" ) + ) :| [] + ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x196$195" ) :| [] + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "bind$w" ) + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) + ) + ) + ( AppN Nothing + ( AppN Nothing + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) + ) + ( PropName "intAdd" ) + ) + ( Ref Nothing + ( Local + ( Name "x196$195" ) + ) :| [] + ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x197$196" ) :| [] + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "bind$w" ) + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) + ) + ) + ( AppN Nothing + ( AppN Nothing + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) + ) + ( PropName "intAdd" ) + ) + ( Ref Nothing + ( Local + ( Name "x197$196" ) + ) :| [] + ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x198$197" ) :| [] + ) + ( AppN Nothing + ( AppN Nothing + ( Ref Nothing + ( Local + ( Name "$kont557" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x1$0$561" ) + ) :| [] + ) + ) + ( Ref Nothing + ( Local + ( Name "x198$197" ) + ) :| [] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) ) ) ), Standalone - ( Nothing, Name "$kont563", Abs Nothing - ( ParamNamed Nothing ( Name "x1$0$564" ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x119$118$565" ) ) + ( Nothing, Name "$kont563", AbsN Nothing + ( ParamNamed Nothing ( Name "x1$0$564" ) :| [] ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x119$118$565" ) :| [] ) ( AppN Nothing + ( Ref Nothing + ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind$w" ) ) + ) ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind" ) ) - ) + ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) ( AppN Nothing - ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported ( ModuleName "Data.Semiring" ) ( Name "foreign" ) ) - ) - ( PropName "intAdd" ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported ( ModuleName "Data.Semiring" ) ( Name "foreign" ) ) ) - ( Ref Nothing ( Local ( Name "x119$118$565" ) ) :| [] ) + ( PropName "intAdd" ) ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x120$119" ) ) - ( AppN Nothing + ( Ref Nothing ( Local ( Name "x119$118$565" ) ) :| [] ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing ( Name "x120$119" ) :| [] ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind" ) + ( Name "bind$w" ) ) ) ( AppN Nothing @@ -5866,76 +5676,42 @@ UberModule ( Ref Nothing ( Local ( Name "x120$119" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x121$120" ) ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind" ) - ) - ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing ( Name "x121$120" ) :| [] ) ( AppN Nothing ( Ref Nothing - ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) - ) - ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported ( ModuleName "Data.Semiring" ) ( Name "foreign" ) ) - ) - ( PropName "intAdd" ) - ) - ( Ref Nothing ( Local ( Name "x121$120" ) ) :| [] ) + ( Imported + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "bind$w" ) ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x122$121" ) ) - ( AppN Nothing + ) ( AppN Nothing ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind" ) - ) + ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) - ) ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) ) - ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x122$121" ) ) :| [] ) + ( PropName "intAdd" ) ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x123$122" ) ) - ( AppN Nothing + ( Ref Nothing ( Local ( Name "x121$120" ) ) :| [] ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing ( Name "x122$121" ) :| [] ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind" ) + ( Name "bind$w" ) ) ) ( AppN Nothing @@ -5953,87 +5729,48 @@ UberModule ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x123$122" ) ) :| [] ) + ( Ref Nothing ( Local ( Name "x122$121" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x124$123" ) ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind" ) - ) - ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing ( Name "x123$122" ) :| [] ) ( AppN Nothing ( Ref Nothing - ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) - ) - ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) - ( Ref Nothing ( Local ( Name "x124$123" ) ) :| [] ) + ( Imported + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "bind$w" ) ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x125$124" ) ) - ( AppN Nothing + ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) - ) - ) ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) + ( ObjectProp ( Just Always ) ( Ref Nothing - ( Local ( Name "x125$124" ) ) :| [] + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) ) + ( PropName "intAdd" ) ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x126$125" ) ) - ( AppN Nothing + ( Ref Nothing ( Local ( Name "x123$122" ) ) :| [] ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing ( Name "x124$123" ) :| [] ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind" ) + ( Name "bind$w" ) ) ) ( AppN Nothing @@ -6055,93 +5792,55 @@ UberModule ( PropName "intAdd" ) ) ( Ref Nothing - ( Local ( Name "x126$125" ) ) :| [] + ( Local ( Name "x124$123" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x127$126" ) ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind" ) - ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x125$124" ) :| [] ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "bind$w" ) ) ) - ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) - ( Ref Nothing - ( Local ( Name "x127$126" ) ) :| [] - ) - ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x128$127" ) ) - ( AppN Nothing ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) - ) - ) ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) + ( ObjectProp ( Just Always ) ( Ref Nothing - ( Local ( Name "x128$127" ) ) :| [] + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) ) + ( PropName "intAdd" ) ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x129$128" ) ) - ( AppN Nothing + ( Ref Nothing + ( Local ( Name "x125$124" ) ) :| [] + ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x126$125" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind" ) + ( Name "bind$w" ) ) ) ( AppN Nothing @@ -6164,104 +5863,58 @@ UberModule ) ( Ref Nothing ( Local - ( Name "x129$128" ) + ( Name "x126$125" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x130$129" ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind" ) - ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x127$126" ) :| [] ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "bind$w" ) ) ) - ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) - ( Ref Nothing - ( Local - ( Name "x130$129" ) - ) :| [] - ) - ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x131$130" ) - ) - ( AppN Nothing ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) - ) - ) ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) + ( ObjectProp ( Just Always ) ( Ref Nothing - ( Local - ( Name "x131$130" ) - ) :| [] + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) ) + ( PropName "intAdd" ) ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x132$131" ) - ) - ( AppN Nothing + ( Ref Nothing + ( Local + ( Name "x127$126" ) + ) :| [] + ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x128$127" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind" ) + ( Name "bind$w" ) ) ) ( AppN Nothing @@ -6284,104 +5937,58 @@ UberModule ) ( Ref Nothing ( Local - ( Name "x132$131" ) + ( Name "x128$127" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x133$132" ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind" ) - ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x129$128" ) :| [] ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "bind$w" ) ) ) - ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) - ( Ref Nothing - ( Local - ( Name "x133$132" ) - ) :| [] - ) - ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x134$133" ) - ) - ( AppN Nothing ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) - ) - ) ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) + ( ObjectProp ( Just Always ) ( Ref Nothing - ( Local - ( Name "x134$133" ) - ) :| [] + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) ) + ( PropName "intAdd" ) ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x135$134" ) - ) - ( AppN Nothing + ( Ref Nothing + ( Local + ( Name "x129$128" ) + ) :| [] + ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x130$129" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind" ) + ( Name "bind$w" ) ) ) ( AppN Nothing @@ -6404,104 +6011,58 @@ UberModule ) ( Ref Nothing ( Local - ( Name "x135$134" ) + ( Name "x130$129" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x136$135" ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind" ) - ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x131$130" ) :| [] ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "bind$w" ) ) ) - ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) - ( Ref Nothing - ( Local - ( Name "x136$135" ) - ) :| [] - ) - ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x137$136" ) - ) - ( AppN Nothing ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) - ) - ) ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) + ( ObjectProp ( Just Always ) ( Ref Nothing - ( Local - ( Name "x137$136" ) - ) :| [] + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) ) + ( PropName "intAdd" ) ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x138$137" ) - ) - ( AppN Nothing + ( Ref Nothing + ( Local + ( Name "x131$130" ) + ) :| [] + ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x132$131" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind" ) + ( Name "bind$w" ) ) ) ( AppN Nothing @@ -6524,104 +6085,58 @@ UberModule ) ( Ref Nothing ( Local - ( Name "x138$137" ) + ( Name "x132$131" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x139$138" ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind" ) - ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x133$132" ) :| [] ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "bind$w" ) ) ) - ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) - ( Ref Nothing - ( Local - ( Name "x139$138" ) - ) :| [] - ) - ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x140$139" ) - ) - ( AppN Nothing ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) - ) - ) ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) + ( ObjectProp ( Just Always ) ( Ref Nothing - ( Local - ( Name "x140$139" ) - ) :| [] + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) ) + ( PropName "intAdd" ) ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x141$140" ) - ) - ( AppN Nothing + ( Ref Nothing + ( Local + ( Name "x133$132" ) + ) :| [] + ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x134$133" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind" ) + ( Name "bind$w" ) ) ) ( AppN Nothing @@ -6644,104 +6159,58 @@ UberModule ) ( Ref Nothing ( Local - ( Name "x141$140" ) + ( Name "x134$133" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x142$141" ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind" ) - ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x135$134" ) :| [] ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "bind$w" ) ) ) - ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) - ( Ref Nothing - ( Local - ( Name "x142$141" ) - ) :| [] - ) - ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x143$142" ) - ) - ( AppN Nothing ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) - ) - ) ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) + ( ObjectProp ( Just Always ) ( Ref Nothing - ( Local - ( Name "x143$142" ) - ) :| [] + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) ) + ( PropName "intAdd" ) ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x144$143" ) - ) - ( AppN Nothing + ( Ref Nothing + ( Local + ( Name "x135$134" ) + ) :| [] + ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x136$135" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind" ) + ( Name "bind$w" ) ) ) ( AppN Nothing @@ -6764,104 +6233,58 @@ UberModule ) ( Ref Nothing ( Local - ( Name "x144$143" ) + ( Name "x136$135" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x145$144" ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind" ) - ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x137$136" ) :| [] ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "bind$w" ) ) ) - ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) - ( Ref Nothing - ( Local - ( Name "x145$144" ) - ) :| [] - ) - ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x146$145" ) - ) - ( AppN Nothing ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) - ) - ) ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) + ( ObjectProp ( Just Always ) ( Ref Nothing - ( Local - ( Name "x146$145" ) - ) :| [] + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) ) + ( PropName "intAdd" ) ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x147$146" ) - ) - ( AppN Nothing + ( Ref Nothing + ( Local + ( Name "x137$136" ) + ) :| [] + ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x138$137" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind" ) + ( Name "bind$w" ) ) ) ( AppN Nothing @@ -6884,104 +6307,58 @@ UberModule ) ( Ref Nothing ( Local - ( Name "x147$146" ) + ( Name "x138$137" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x148$147" ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind" ) - ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x139$138" ) :| [] ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "bind$w" ) ) ) - ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) - ( Ref Nothing - ( Local - ( Name "x148$147" ) - ) :| [] - ) - ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x149$148" ) - ) - ( AppN Nothing ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) - ) - ) ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) + ( ObjectProp ( Just Always ) ( Ref Nothing - ( Local - ( Name "x149$148" ) - ) :| [] + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) ) + ( PropName "intAdd" ) ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x150$149" ) - ) - ( AppN Nothing + ( Ref Nothing + ( Local + ( Name "x139$138" ) + ) :| [] + ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x140$139" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind" ) + ( Name "bind$w" ) ) ) ( AppN Nothing @@ -6991,104 +6368,71 @@ UberModule ( Name "Just" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] - ) :| [] - ) - ) - ( Abs Nothing ( ParamUnused Nothing ) - ( AppN Nothing ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind" ) - ) - ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) - ) - ) - ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) - ( Ref Nothing - ( Local - ( Name "x150$149" ) - ) :| [] + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) ) ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] + ( PropName "intAdd" ) + ) + ( Ref Nothing + ( Local + ( Name "x140$139" ) + ) :| [] + ) ) - ) - ( Abs Nothing + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing ( ParamNamed Nothing - ( Name "x151$150" ) + ( Name "x141$140" ) :| [] ) ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "bind$w" ) + ) + ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) - ) - ) ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) + ( ObjectProp ( Just Always ) ( Ref Nothing - ( Local - ( Name "x151$150" ) - ) :| [] + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) ) + ( PropName "intAdd" ) ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x152$151" ) - ) - ( AppN Nothing + ( Ref Nothing + ( Local + ( Name "x141$140" ) + ) :| [] + ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x142$141" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind" ) + ( Name "bind$w" ) ) ) ( AppN Nothing @@ -7111,104 +6455,58 @@ UberModule ) ( Ref Nothing ( Local - ( Name "x152$151" ) + ( Name "x142$141" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x153$152" ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind" ) - ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x143$142" ) :| [] ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "bind$w" ) ) ) - ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) - ( Ref Nothing - ( Local - ( Name "x153$152" ) - ) :| [] - ) - ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x154$153" ) - ) - ( AppN Nothing ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) - ) - ) ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) + ( ObjectProp ( Just Always ) ( Ref Nothing - ( Local - ( Name "x154$153" ) - ) :| [] + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) ) + ( PropName "intAdd" ) ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x155$154" ) - ) - ( AppN Nothing + ( Ref Nothing + ( Local + ( Name "x143$142" ) + ) :| [] + ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x144$143" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind" ) + ( Name "bind$w" ) ) ) ( AppN Nothing @@ -7231,232 +6529,692 @@ UberModule ) ( Ref Nothing ( Local - ( Name "x155$154" ) + ( Name "x144$143" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x156$155" ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind" ) - ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x145$144" ) :| [] ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) - ) - ) - ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) - ( Ref Nothing - ( Local - ( Name "x156$155" ) - ) :| [] - ) - ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x157$156" ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) - ) - ) - ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) - ( Ref Nothing - ( Local - ( Name "x157$156" ) - ) :| [] - ) - ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "bind$w" ) ) ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x158$157" ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) + ) ) ( AppN Nothing ( AppN Nothing - ( Ref Nothing - ( Local - ( Name "$kont560" ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) ) + ( PropName "intAdd" ) ) ( Ref Nothing ( Local - ( Name "x1$0$564" ) + ( Name "x145$144" ) ) :| [] ) ) - ( Ref Nothing - ( Local - ( Name "x158$157" ) - ) :| [] + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x146$145" ) :| [] ) - ) :| [] + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "bind$w" ) + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) + ) + ) + ( AppN Nothing + ( AppN Nothing + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) + ) + ( PropName "intAdd" ) + ) + ( Ref Nothing + ( Local + ( Name "x146$145" ) + ) :| [] + ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x147$146" ) :| [] + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "bind$w" ) + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) + ) + ) + ( AppN Nothing + ( AppN Nothing + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) + ) + ( PropName "intAdd" ) + ) + ( Ref Nothing + ( Local + ( Name "x147$146" ) + ) :| [] + ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x148$147" ) :| [] + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "bind$w" ) + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) + ) + ) + ( AppN Nothing + ( AppN Nothing + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) + ) + ( PropName "intAdd" ) + ) + ( Ref Nothing + ( Local + ( Name "x148$147" ) + ) :| [] + ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x149$148" ) :| [] + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "bind$w" ) + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) + ) + ) + ( AppN Nothing + ( AppN Nothing + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) + ) + ( PropName "intAdd" ) + ) + ( Ref Nothing + ( Local + ( Name "x149$148" ) + ) :| [] + ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x150$149" ) :| [] + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "bind$w" ) + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) + ) + ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "foreign" ) + ) + ) + ( PropName "unit" ) :| [] + ) :| + [ AbsN Nothing + ( ParamUnused Nothing :| [] ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "bind$w" ) + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) + ) + ) + ( AppN Nothing + ( AppN Nothing + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) + ) + ( PropName "intAdd" ) + ) + ( Ref Nothing + ( Local + ( Name "x150$149" ) + ) :| [] + ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x151$150" ) :| [] + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "bind$w" ) + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) + ) + ) + ( AppN Nothing + ( AppN Nothing + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) + ) + ( PropName "intAdd" ) + ) + ( Ref Nothing + ( Local + ( Name "x151$150" ) + ) :| [] + ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x152$151" ) :| [] + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "bind$w" ) + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) + ) + ) + ( AppN Nothing + ( AppN Nothing + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) + ) + ( PropName "intAdd" ) + ) + ( Ref Nothing + ( Local + ( Name "x152$151" ) + ) :| [] + ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x153$152" ) :| [] + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "bind$w" ) + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) + ) + ) + ( AppN Nothing + ( AppN Nothing + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) + ) + ( PropName "intAdd" ) + ) + ( Ref Nothing + ( Local + ( Name "x153$152" ) + ) :| [] + ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x154$153" ) :| [] + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "bind$w" ) + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) + ) + ) + ( AppN Nothing + ( AppN Nothing + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) + ) + ( PropName "intAdd" ) + ) + ( Ref Nothing + ( Local + ( Name "x154$153" ) + ) :| [] + ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x155$154" ) :| [] + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "bind$w" ) + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) + ) + ) + ( AppN Nothing + ( AppN Nothing + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) + ) + ( PropName "intAdd" ) + ) + ( Ref Nothing + ( Local + ( Name "x155$154" ) + ) :| [] + ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x156$155" ) :| [] + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "bind$w" ) + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) + ) + ) + ( AppN Nothing + ( AppN Nothing + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) + ) + ( PropName "intAdd" ) + ) + ( Ref Nothing + ( Local + ( Name "x156$155" ) + ) :| [] + ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x157$156" ) :| [] + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "bind$w" ) + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) + ) + ) + ( AppN Nothing + ( AppN Nothing + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) + ) + ( PropName "intAdd" ) + ) + ( Ref Nothing + ( Local + ( Name "x157$156" ) + ) :| [] + ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x158$157" ) :| [] + ) + ( AppN Nothing + ( AppN Nothing + ( Ref Nothing + ( Local + ( Name "$kont560" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x1$0$564" ) + ) :| [] + ) + ) + ( Ref Nothing + ( Local + ( Name "x158$157" ) + ) :| [] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) ) ) ), Standalone - ( Nothing, Name "$kont566", Abs Nothing - ( ParamNamed Nothing ( Name "x1$0$567" ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x79$78$568" ) ) + ( Nothing, Name "$kont566", AbsN Nothing + ( ParamNamed Nothing ( Name "x1$0$567" ) :| [] ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x79$78$568" ) :| [] ) ( AppN Nothing + ( Ref Nothing + ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind$w" ) ) + ) ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind" ) ) - ) + ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) ( AppN Nothing - ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported ( ModuleName "Data.Semiring" ) ( Name "foreign" ) ) - ) - ( PropName "intAdd" ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported ( ModuleName "Data.Semiring" ) ( Name "foreign" ) ) ) - ( Ref Nothing ( Local ( Name "x79$78$568" ) ) :| [] ) + ( PropName "intAdd" ) ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x80$79" ) ) - ( AppN Nothing + ( Ref Nothing ( Local ( Name "x79$78$568" ) ) :| [] ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing ( Name "x80$79" ) :| [] ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind" ) + ( Name "bind$w" ) ) ) ( AppN Nothing @@ -7472,76 +7230,42 @@ UberModule ( Ref Nothing ( Local ( Name "x80$79" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x81$80" ) ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind" ) - ) - ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing ( Name "x81$80" ) :| [] ) ( AppN Nothing ( Ref Nothing - ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) - ) - ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported ( ModuleName "Data.Semiring" ) ( Name "foreign" ) ) - ) - ( PropName "intAdd" ) - ) - ( Ref Nothing ( Local ( Name "x81$80" ) ) :| [] ) + ( Imported + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "bind$w" ) ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x82$81" ) ) - ( AppN Nothing + ) ( AppN Nothing ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind" ) - ) + ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) - ) ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) ) - ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x82$81" ) ) :| [] ) + ( PropName "intAdd" ) ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x83$82" ) ) - ( AppN Nothing + ( Ref Nothing ( Local ( Name "x81$80" ) ) :| [] ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing ( Name "x82$81" ) :| [] ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind" ) + ( Name "bind$w" ) ) ) ( AppN Nothing @@ -7559,85 +7283,48 @@ UberModule ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x83$82" ) ) :| [] ) + ( Ref Nothing ( Local ( Name "x82$81" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x84$83" ) ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind" ) - ) - ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing ( Name "x83$82" ) :| [] ) ( AppN Nothing ( Ref Nothing - ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) - ) - ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) - ( Ref Nothing ( Local ( Name "x84$83" ) ) :| [] ) + ( Imported + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "bind$w" ) ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x85$84" ) ) - ( AppN Nothing + ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) - ) - ) ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) ) - ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x85$84" ) ) :| [] ) + ( PropName "intAdd" ) ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x86$85" ) ) - ( AppN Nothing + ( Ref Nothing ( Local ( Name "x83$82" ) ) :| [] ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing ( Name "x84$83" ) :| [] ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind" ) + ( Name "bind$w" ) ) ) ( AppN Nothing @@ -7659,93 +7346,53 @@ UberModule ( PropName "intAdd" ) ) ( Ref Nothing - ( Local ( Name "x86$85" ) ) :| [] + ( Local ( Name "x84$83" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x87$86" ) ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind" ) - ) - ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing ( Name "x85$84" ) :| [] ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "bind$w" ) ) ) - ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) - ( Ref Nothing - ( Local ( Name "x87$86" ) ) :| [] - ) - ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x88$87" ) ) - ( AppN Nothing ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) - ) - ) ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) + ( ObjectProp ( Just Always ) ( Ref Nothing - ( Local ( Name "x88$87" ) ) :| [] + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) ) + ( PropName "intAdd" ) ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x89$88" ) ) - ( AppN Nothing + ( Ref Nothing + ( Local ( Name "x85$84" ) ) :| [] + ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x86$85" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind" ) + ( Name "bind$w" ) ) ) ( AppN Nothing @@ -7768,104 +7415,58 @@ UberModule ) ( Ref Nothing ( Local - ( Name "x89$88" ) + ( Name "x86$85" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x90$89" ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind" ) - ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x87$86" ) :| [] ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "bind$w" ) ) ) - ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) - ( Ref Nothing - ( Local - ( Name "x90$89" ) - ) :| [] - ) - ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x91$90" ) - ) - ( AppN Nothing ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) - ) - ) ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) + ( ObjectProp ( Just Always ) ( Ref Nothing - ( Local - ( Name "x91$90" ) - ) :| [] + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) ) + ( PropName "intAdd" ) ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x92$91" ) - ) - ( AppN Nothing + ( Ref Nothing + ( Local + ( Name "x87$86" ) + ) :| [] + ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x88$87" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind" ) + ( Name "bind$w" ) ) ) ( AppN Nothing @@ -7888,104 +7489,58 @@ UberModule ) ( Ref Nothing ( Local - ( Name "x92$91" ) + ( Name "x88$87" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x93$92" ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind" ) - ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x89$88" ) :| [] ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "bind$w" ) ) ) - ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) - ( Ref Nothing - ( Local - ( Name "x93$92" ) - ) :| [] - ) - ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x94$93" ) - ) - ( AppN Nothing ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) - ) - ) ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) + ( ObjectProp ( Just Always ) ( Ref Nothing - ( Local - ( Name "x94$93" ) - ) :| [] + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) ) + ( PropName "intAdd" ) ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x95$94" ) - ) - ( AppN Nothing + ( Ref Nothing + ( Local + ( Name "x89$88" ) + ) :| [] + ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x90$89" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind" ) + ( Name "bind$w" ) ) ) ( AppN Nothing @@ -8008,104 +7563,58 @@ UberModule ) ( Ref Nothing ( Local - ( Name "x95$94" ) + ( Name "x90$89" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x96$95" ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind" ) - ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x91$90" ) :| [] ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "bind$w" ) ) ) - ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) - ( Ref Nothing - ( Local - ( Name "x96$95" ) - ) :| [] - ) - ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x97$96" ) - ) - ( AppN Nothing ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) - ) - ) ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) + ( ObjectProp ( Just Always ) ( Ref Nothing - ( Local - ( Name "x97$96" ) - ) :| [] + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) ) + ( PropName "intAdd" ) ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x98$97" ) - ) - ( AppN Nothing + ( Ref Nothing + ( Local + ( Name "x91$90" ) + ) :| [] + ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x92$91" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind" ) + ( Name "bind$w" ) ) ) ( AppN Nothing @@ -8128,104 +7637,58 @@ UberModule ) ( Ref Nothing ( Local - ( Name "x98$97" ) + ( Name "x92$91" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x99$98" ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind" ) - ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x93$92" ) :| [] ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "bind$w" ) ) ) - ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) - ( Ref Nothing - ( Local - ( Name "x99$98" ) - ) :| [] - ) - ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x100$99" ) - ) - ( AppN Nothing ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) - ) - ) ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) ) - ( PropName "intAdd" ) - ) - ( Ref Nothing - ( Local - ( Name "x100$99" ) - ) :| [] ) + ( PropName "intAdd" ) ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x101$100" ) - ) - ( AppN Nothing + ( Ref Nothing + ( Local + ( Name "x93$92" ) + ) :| [] + ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x94$93" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind" ) + ( Name "bind$w" ) ) ) ( AppN Nothing @@ -8248,104 +7711,58 @@ UberModule ) ( Ref Nothing ( Local - ( Name "x101$100" ) + ( Name "x94$93" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x102$101" ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind" ) - ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x95$94" ) :| [] ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "bind$w" ) ) ) - ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) - ( Ref Nothing - ( Local - ( Name "x102$101" ) - ) :| [] - ) - ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x103$102" ) - ) - ( AppN Nothing ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) - ) - ) ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) + ( ObjectProp ( Just Always ) ( Ref Nothing - ( Local - ( Name "x103$102" ) - ) :| [] + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) ) + ( PropName "intAdd" ) ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x104$103" ) - ) - ( AppN Nothing + ( Ref Nothing + ( Local + ( Name "x95$94" ) + ) :| [] + ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x96$95" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind" ) + ( Name "bind$w" ) ) ) ( AppN Nothing @@ -8368,104 +7785,58 @@ UberModule ) ( Ref Nothing ( Local - ( Name "x104$103" ) + ( Name "x96$95" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x105$104" ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind" ) - ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x97$96" ) :| [] ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "bind$w" ) ) ) - ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) - ( Ref Nothing - ( Local - ( Name "x105$104" ) - ) :| [] - ) - ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x106$105" ) - ) - ( AppN Nothing ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) - ) - ) ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) + ( ObjectProp ( Just Always ) ( Ref Nothing - ( Local - ( Name "x106$105" ) - ) :| [] + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) ) + ( PropName "intAdd" ) ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x107$106" ) - ) - ( AppN Nothing + ( Ref Nothing + ( Local + ( Name "x97$96" ) + ) :| [] + ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x98$97" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind" ) + ( Name "bind$w" ) ) ) ( AppN Nothing @@ -8488,104 +7859,58 @@ UberModule ) ( Ref Nothing ( Local - ( Name "x107$106" ) + ( Name "x98$97" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x108$107" ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind" ) - ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x99$98" ) :| [] ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "bind$w" ) ) ) - ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) - ( Ref Nothing - ( Local - ( Name "x108$107" ) - ) :| [] - ) - ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x109$108" ) - ) - ( AppN Nothing ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) - ) - ) ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) + ( ObjectProp ( Just Always ) ( Ref Nothing - ( Local - ( Name "x109$108" ) - ) :| [] + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) ) + ( PropName "intAdd" ) ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x110$109" ) - ) - ( AppN Nothing + ( Ref Nothing + ( Local + ( Name "x99$98" ) + ) :| [] + ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x100$99" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind" ) + ( Name "bind$w" ) ) ) ( AppN Nothing @@ -8608,104 +7933,58 @@ UberModule ) ( Ref Nothing ( Local - ( Name "x110$109" ) + ( Name "x100$99" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x111$110" ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) - ) - ) - ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) - ( Ref Nothing - ( Local - ( Name "x111$110" ) - ) :| [] - ) - ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing + ) :| + [ AbsN Nothing ( ParamNamed Nothing - ( Name "x112$111" ) + ( Name "x101$100" ) :| [] ) ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) - ) - ) - ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) - ( Ref Nothing - ( Local - ( Name "x112$111" ) - ) :| [] - ) - ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "bind$w" ) ) ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x113$112" ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) + ) ) ( AppN Nothing + ( AppN Nothing + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) + ) + ( PropName "intAdd" ) + ) + ( Ref Nothing + ( Local + ( Name "x101$100" ) + ) :| [] + ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x102$101" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind" ) + ( Name "bind$w" ) ) ) ( AppN Nothing @@ -8728,104 +8007,58 @@ UberModule ) ( Ref Nothing ( Local - ( Name "x113$112" ) + ( Name "x102$101" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x114$113" ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind" ) - ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x103$102" ) :| [] ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "bind$w" ) ) ) - ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) - ( Ref Nothing - ( Local - ( Name "x114$113" ) - ) :| [] - ) - ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x115$114" ) - ) - ( AppN Nothing ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) - ) - ) ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) + ( ObjectProp ( Just Always ) ( Ref Nothing - ( Local - ( Name "x115$114" ) - ) :| [] + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) ) + ( PropName "intAdd" ) ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x116$115" ) - ) - ( AppN Nothing + ( Ref Nothing + ( Local + ( Name "x103$102" ) + ) :| [] + ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x104$103" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind" ) + ( Name "bind$w" ) ) ) ( AppN Nothing @@ -8848,232 +8081,704 @@ UberModule ) ( Ref Nothing ( Local - ( Name "x116$115" ) + ( Name "x104$103" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x117$116" ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind" ) - ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x105$104" ) :| [] ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "bind$w" ) ) ) - ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) - ( Ref Nothing - ( Local - ( Name "x117$116" ) - ) :| [] - ) - ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x118$117" ) - ) - ( AppN Nothing ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) - ) - ) ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) + ( ObjectProp ( Just Always ) ( Ref Nothing - ( Local - ( Name "x118$117" ) - ) :| [] - ) - ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x119$118" ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Local - ( Name "$kont563" ) + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) ) + ( PropName "intAdd" ) ) ( Ref Nothing ( Local - ( Name "x1$0$567" ) + ( Name "x105$104" ) ) :| [] ) ) - ( Ref Nothing - ( Local - ( Name "x119$118" ) - ) :| [] + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x106$105" ) :| [] ) - ) :| [] + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "bind$w" ) + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) + ) + ) + ( AppN Nothing + ( AppN Nothing + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) + ) + ( PropName "intAdd" ) + ) + ( Ref Nothing + ( Local + ( Name "x106$105" ) + ) :| [] + ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x107$106" ) :| [] + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "bind$w" ) + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) + ) + ) + ( AppN Nothing + ( AppN Nothing + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) + ) + ( PropName "intAdd" ) + ) + ( Ref Nothing + ( Local + ( Name "x107$106" ) + ) :| [] + ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x108$107" ) :| [] + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "bind$w" ) + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) + ) + ) + ( AppN Nothing + ( AppN Nothing + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) + ) + ( PropName "intAdd" ) + ) + ( Ref Nothing + ( Local + ( Name "x108$107" ) + ) :| [] + ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x109$108" ) :| [] + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "bind$w" ) + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) + ) + ) + ( AppN Nothing + ( AppN Nothing + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) + ) + ( PropName "intAdd" ) + ) + ( Ref Nothing + ( Local + ( Name "x109$108" ) + ) :| [] + ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x110$109" ) :| [] + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "bind$w" ) + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) + ) + ) + ( AppN Nothing + ( AppN Nothing + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) + ) + ( PropName "intAdd" ) + ) + ( Ref Nothing + ( Local + ( Name "x110$109" ) + ) :| [] + ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x111$110" ) :| [] + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "bind$w" ) + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) + ) + ) + ( AppN Nothing + ( AppN Nothing + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) + ) + ( PropName "intAdd" ) + ) + ( Ref Nothing + ( Local + ( Name "x111$110" ) + ) :| [] + ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x112$111" ) :| [] + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "bind$w" ) + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) + ) + ) + ( AppN Nothing + ( AppN Nothing + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) + ) + ( PropName "intAdd" ) + ) + ( Ref Nothing + ( Local + ( Name "x112$111" ) + ) :| [] + ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x113$112" ) :| [] + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "bind$w" ) + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) + ) + ) + ( AppN Nothing + ( AppN Nothing + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) + ) + ( PropName "intAdd" ) + ) + ( Ref Nothing + ( Local + ( Name "x113$112" ) + ) :| [] + ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x114$113" ) :| [] + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "bind$w" ) + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) + ) + ) + ( AppN Nothing + ( AppN Nothing + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) + ) + ( PropName "intAdd" ) + ) + ( Ref Nothing + ( Local + ( Name "x114$113" ) + ) :| [] + ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x115$114" ) :| [] + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "bind$w" ) + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) + ) + ) + ( AppN Nothing + ( AppN Nothing + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) + ) + ( PropName "intAdd" ) + ) + ( Ref Nothing + ( Local + ( Name "x115$114" ) + ) :| [] + ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x116$115" ) :| [] + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "bind$w" ) + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) + ) + ) + ( AppN Nothing + ( AppN Nothing + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) + ) + ( PropName "intAdd" ) + ) + ( Ref Nothing + ( Local + ( Name "x116$115" ) + ) :| [] + ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x117$116" ) :| [] + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "bind$w" ) + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) + ) + ) + ( AppN Nothing + ( AppN Nothing + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) + ) + ( PropName "intAdd" ) + ) + ( Ref Nothing + ( Local + ( Name "x117$116" ) + ) :| [] + ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x118$117" ) :| [] + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "bind$w" ) + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) + ) + ) + ( AppN Nothing + ( AppN Nothing + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) + ) + ( PropName "intAdd" ) + ) + ( Ref Nothing + ( Local + ( Name "x118$117" ) + ) :| [] + ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x119$118" ) :| [] + ) + ( AppN Nothing + ( AppN Nothing + ( Ref Nothing + ( Local + ( Name "$kont563" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x1$0$567" ) + ) :| [] + ) + ) + ( Ref Nothing + ( Local + ( Name "x119$118" ) + ) :| [] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) ) ) ), Standalone - ( Nothing, Name "$kont569", Abs Nothing - ( ParamNamed Nothing ( Name "x1$0$570" ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x40$39$571" ) ) + ( Nothing, Name "$kont569", AbsN Nothing + ( ParamNamed Nothing ( Name "x1$0$570" ) :| [] ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x40$39$571" ) :| [] ) ( AppN Nothing + ( Ref Nothing + ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind$w" ) ) + ) ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind" ) ) - ) + ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) ( AppN Nothing - ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported ( ModuleName "Data.Semiring" ) ( Name "foreign" ) ) - ) - ( PropName "intAdd" ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported ( ModuleName "Data.Semiring" ) ( Name "foreign" ) ) ) - ( Ref Nothing ( Local ( Name "x40$39$571" ) ) :| [] ) + ( PropName "intAdd" ) ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x41$40" ) ) - ( AppN Nothing + ( Ref Nothing ( Local ( Name "x40$39$571" ) ) :| [] ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing ( Name "x41$40" ) :| [] ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind" ) + ( Name "bind$w" ) ) ) ( AppN Nothing @@ -9085,80 +8790,46 @@ UberModule ( Imported ( ModuleName "Data.Semiring" ) ( Name "foreign" ) ) ) ( PropName "intAdd" ) - ) - ( Ref Nothing ( Local ( Name "x41$40" ) ) :| [] ) - ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x42$41" ) ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) - ) - ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported ( ModuleName "Data.Semiring" ) ( Name "foreign" ) ) - ) - ( PropName "intAdd" ) - ) - ( Ref Nothing ( Local ( Name "x42$41" ) ) :| [] ) - ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] + ) + ( Ref Nothing ( Local ( Name "x41$40" ) ) :| [] ) ) - ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x43$42" ) ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing ( Name "x42$41" ) :| [] ) ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "bind$w" ) + ) + ) ( AppN Nothing ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind" ) - ) + ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) - ) ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) ) - ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x43$42" ) ) :| [] ) + ( PropName "intAdd" ) ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x44$43" ) ) - ( AppN Nothing + ( Ref Nothing ( Local ( Name "x42$41" ) ) :| [] ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing ( Name "x43$42" ) :| [] ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind" ) + ( Name "bind$w" ) ) ) ( AppN Nothing @@ -9176,85 +8847,48 @@ UberModule ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x44$43" ) ) :| [] ) + ( Ref Nothing ( Local ( Name "x43$42" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x45$44" ) ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind" ) - ) - ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing ( Name "x44$43" ) :| [] ) ( AppN Nothing ( Ref Nothing - ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) - ) - ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) - ( Ref Nothing ( Local ( Name "x45$44" ) ) :| [] ) + ( Imported + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "bind$w" ) ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x46$45" ) ) - ( AppN Nothing + ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) - ) - ) ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) ) - ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x46$45" ) ) :| [] ) + ( PropName "intAdd" ) ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x47$46" ) ) - ( AppN Nothing + ( Ref Nothing ( Local ( Name "x44$43" ) ) :| [] ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing ( Name "x45$44" ) :| [] ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind" ) + ( Name "bind$w" ) ) ) ( AppN Nothing @@ -9276,93 +8910,53 @@ UberModule ( PropName "intAdd" ) ) ( Ref Nothing - ( Local ( Name "x47$46" ) ) :| [] + ( Local ( Name "x45$44" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x48$47" ) ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind" ) - ) - ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing ( Name "x46$45" ) :| [] ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "bind$w" ) ) ) - ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) - ( Ref Nothing - ( Local ( Name "x48$47" ) ) :| [] - ) - ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x49$48" ) ) - ( AppN Nothing ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) - ) - ) ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) + ( ObjectProp ( Just Always ) ( Ref Nothing - ( Local ( Name "x49$48" ) ) :| [] + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) ) + ( PropName "intAdd" ) ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x50$49" ) ) - ( AppN Nothing + ( Ref Nothing + ( Local ( Name "x46$45" ) ) :| [] + ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x47$46" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind" ) + ( Name "bind$w" ) ) ) ( AppN Nothing @@ -9372,104 +8966,71 @@ UberModule ( Name "Just" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] - ) :| [] - ) - ) - ( Abs Nothing ( ParamUnused Nothing ) - ( AppN Nothing ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind" ) - ) - ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) - ) - ) - ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) - ( Ref Nothing - ( Local - ( Name "x50$49" ) - ) :| [] + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) ) ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] + ( PropName "intAdd" ) + ) + ( Ref Nothing + ( Local + ( Name "x47$46" ) + ) :| [] + ) ) - ) - ( Abs Nothing + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing ( ParamNamed Nothing - ( Name "x51$50" ) + ( Name "x48$47" ) :| [] ) ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "bind$w" ) + ) + ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) - ) - ) ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) + ( ObjectProp ( Just Always ) ( Ref Nothing - ( Local - ( Name "x51$50" ) - ) :| [] + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) ) + ( PropName "intAdd" ) ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x52$51" ) - ) - ( AppN Nothing + ( Ref Nothing + ( Local + ( Name "x48$47" ) + ) :| [] + ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x49$48" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind" ) + ( Name "bind$w" ) ) ) ( AppN Nothing @@ -9492,104 +9053,46 @@ UberModule ) ( Ref Nothing ( Local - ( Name "x52$51" ) + ( Name "x49$48" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x53$52" ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind" ) - ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x50$49" ) :| [] ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) - ) - ) - ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) - ( Ref Nothing - ( Local - ( Name "x53$52" ) - ) :| [] - ) - ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x54$53" ) - ) - ( AppN Nothing + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "bind$w" ) + ) + ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) - ( AppN Nothing + ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Data.Unit" ) + ( Name "foreign" ) ) ) - ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) - ( Ref Nothing - ( Local - ( Name "x54$53" ) - ) :| [] - ) - ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x55$54" ) - ) - ( AppN Nothing + ( PropName "unit" ) :| [] + ) :| + [ AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind" ) + ( Name "bind$w" ) ) ) ( AppN Nothing @@ -9612,104 +9115,58 @@ UberModule ) ( Ref Nothing ( Local - ( Name "x55$54" ) + ( Name "x50$49" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x56$55" ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind" ) - ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x51$50" ) :| [] ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "bind$w" ) ) ) - ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) - ( Ref Nothing - ( Local - ( Name "x56$55" ) - ) :| [] - ) - ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x57$56" ) - ) - ( AppN Nothing ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) - ) - ) ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) + ( ObjectProp ( Just Always ) ( Ref Nothing - ( Local - ( Name "x57$56" ) - ) :| [] + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) ) + ( PropName "intAdd" ) ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x58$57" ) - ) - ( AppN Nothing + ( Ref Nothing + ( Local + ( Name "x51$50" ) + ) :| [] + ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x52$51" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind" ) + ( Name "bind$w" ) ) ) ( AppN Nothing @@ -9732,104 +9189,58 @@ UberModule ) ( Ref Nothing ( Local - ( Name "x58$57" ) + ( Name "x52$51" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x59$58" ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind" ) - ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x53$52" ) :| [] ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "bind$w" ) ) ) - ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) - ( Ref Nothing - ( Local - ( Name "x59$58" ) - ) :| [] - ) - ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x60$59" ) - ) - ( AppN Nothing ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) - ) - ) ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) + ( ObjectProp ( Just Always ) ( Ref Nothing - ( Local - ( Name "x60$59" ) - ) :| [] + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) ) + ( PropName "intAdd" ) ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x61$60" ) - ) - ( AppN Nothing + ( Ref Nothing + ( Local + ( Name "x53$52" ) + ) :| [] + ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x54$53" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind" ) + ( Name "bind$w" ) ) ) ( AppN Nothing @@ -9852,104 +9263,58 @@ UberModule ) ( Ref Nothing ( Local - ( Name "x61$60" ) + ( Name "x54$53" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x62$61" ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind" ) - ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x55$54" ) :| [] ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "bind$w" ) ) ) - ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) - ( Ref Nothing - ( Local - ( Name "x62$61" ) - ) :| [] - ) - ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x63$62" ) - ) - ( AppN Nothing ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) - ) - ) ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) + ( ObjectProp ( Just Always ) ( Ref Nothing - ( Local - ( Name "x63$62" ) - ) :| [] + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) ) + ( PropName "intAdd" ) ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x64$63" ) - ) - ( AppN Nothing + ( Ref Nothing + ( Local + ( Name "x55$54" ) + ) :| [] + ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x56$55" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind" ) + ( Name "bind$w" ) ) ) ( AppN Nothing @@ -9972,104 +9337,58 @@ UberModule ) ( Ref Nothing ( Local - ( Name "x64$63" ) + ( Name "x56$55" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x65$64" ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) - ) - ) - ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) - ( Ref Nothing - ( Local - ( Name "x65$64" ) - ) :| [] - ) - ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing + ) :| + [ AbsN Nothing ( ParamNamed Nothing - ( Name "x66$65" ) + ( Name "x57$56" ) :| [] ) ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "bind$w" ) + ) + ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) - ) - ) ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) + ( ObjectProp ( Just Always ) ( Ref Nothing - ( Local - ( Name "x66$65" ) - ) :| [] + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) ) + ( PropName "intAdd" ) ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x67$66" ) - ) - ( AppN Nothing + ( Ref Nothing + ( Local + ( Name "x57$56" ) + ) :| [] + ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x58$57" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind" ) + ( Name "bind$w" ) ) ) ( AppN Nothing @@ -10092,104 +9411,58 @@ UberModule ) ( Ref Nothing ( Local - ( Name "x67$66" ) + ( Name "x58$57" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x68$67" ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind" ) - ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x59$58" ) :| [] ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "bind$w" ) ) ) - ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) - ( Ref Nothing - ( Local - ( Name "x68$67" ) - ) :| [] - ) - ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x69$68" ) - ) - ( AppN Nothing ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) - ) - ) ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) + ( ObjectProp ( Just Always ) ( Ref Nothing - ( Local - ( Name "x69$68" ) - ) :| [] + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) ) + ( PropName "intAdd" ) ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x70$69" ) - ) - ( AppN Nothing + ( Ref Nothing + ( Local + ( Name "x59$58" ) + ) :| [] + ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x60$59" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind" ) + ( Name "bind$w" ) ) ) ( AppN Nothing @@ -10212,104 +9485,58 @@ UberModule ) ( Ref Nothing ( Local - ( Name "x70$69" ) + ( Name "x60$59" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x71$70" ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind" ) - ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x61$60" ) :| [] ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "bind$w" ) ) ) - ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) - ( Ref Nothing - ( Local - ( Name "x71$70" ) - ) :| [] - ) - ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x72$71" ) - ) - ( AppN Nothing ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) - ) - ) ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) + ( ObjectProp ( Just Always ) ( Ref Nothing - ( Local - ( Name "x72$71" ) - ) :| [] + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) ) + ( PropName "intAdd" ) ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x73$72" ) - ) - ( AppN Nothing + ( Ref Nothing + ( Local + ( Name "x61$60" ) + ) :| [] + ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x62$61" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind" ) + ( Name "bind$w" ) ) ) ( AppN Nothing @@ -10332,104 +9559,58 @@ UberModule ) ( Ref Nothing ( Local - ( Name "x73$72" ) + ( Name "x62$61" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x74$73" ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind" ) - ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x63$62" ) :| [] ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "bind$w" ) ) ) - ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) - ( Ref Nothing - ( Local - ( Name "x74$73" ) - ) :| [] - ) - ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x75$74" ) - ) - ( AppN Nothing ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) - ) - ) ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) + ( ObjectProp ( Just Always ) ( Ref Nothing - ( Local - ( Name "x75$74" ) - ) :| [] + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) ) + ( PropName "intAdd" ) ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x76$75" ) - ) - ( AppN Nothing + ( Ref Nothing + ( Local + ( Name "x63$62" ) + ) :| [] + ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x64$63" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind" ) + ( Name "bind$w" ) ) ) ( AppN Nothing @@ -10439,208 +9620,684 @@ UberModule ( Name "Just" ) ) ) - ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) - ( Ref Nothing - ( Local - ( Name "x76$75" ) - ) :| [] - ) - ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x77$76" ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) - ) - ) - ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) - ( Ref Nothing - ( Local - ( Name "x77$76" ) - ) :| [] + ( AppN Nothing + ( AppN Nothing + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) ) ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] + ( PropName "intAdd" ) + ) + ( Ref Nothing + ( Local + ( Name "x64$63" ) + ) :| [] + ) ) - ) - ( Abs Nothing + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing ( ParamNamed Nothing - ( Name "x78$77" ) + ( Name "x65$64" ) :| [] ) ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "bind$w" ) + ) + ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) - ) - ) ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) + ( ObjectProp ( Just Always ) ( Ref Nothing - ( Local - ( Name "x78$77" ) - ) :| [] - ) - ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x79$78" ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Local - ( Name "$kont566" ) + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) ) + ( PropName "intAdd" ) ) ( Ref Nothing ( Local - ( Name "x1$0$570" ) + ( Name "x65$64" ) ) :| [] ) ) - ( Ref Nothing - ( Local - ( Name "x79$78" ) - ) :| [] + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x66$65" ) :| [] ) - ) :| [] + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "bind$w" ) + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) + ) + ) + ( AppN Nothing + ( AppN Nothing + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) + ) + ( PropName "intAdd" ) + ) + ( Ref Nothing + ( Local + ( Name "x66$65" ) + ) :| [] + ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x67$66" ) :| [] + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "bind$w" ) + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) + ) + ) + ( AppN Nothing + ( AppN Nothing + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) + ) + ( PropName "intAdd" ) + ) + ( Ref Nothing + ( Local + ( Name "x67$66" ) + ) :| [] + ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x68$67" ) :| [] + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "bind$w" ) + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) + ) + ) + ( AppN Nothing + ( AppN Nothing + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) + ) + ( PropName "intAdd" ) + ) + ( Ref Nothing + ( Local + ( Name "x68$67" ) + ) :| [] + ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x69$68" ) :| [] + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "bind$w" ) + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) + ) + ) + ( AppN Nothing + ( AppN Nothing + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) + ) + ( PropName "intAdd" ) + ) + ( Ref Nothing + ( Local + ( Name "x69$68" ) + ) :| [] + ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x70$69" ) :| [] + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "bind$w" ) + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) + ) + ) + ( AppN Nothing + ( AppN Nothing + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) + ) + ( PropName "intAdd" ) + ) + ( Ref Nothing + ( Local + ( Name "x70$69" ) + ) :| [] + ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x71$70" ) :| [] + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "bind$w" ) + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) + ) + ) + ( AppN Nothing + ( AppN Nothing + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) + ) + ( PropName "intAdd" ) + ) + ( Ref Nothing + ( Local + ( Name "x71$70" ) + ) :| [] + ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x72$71" ) :| [] + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "bind$w" ) + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) + ) + ) + ( AppN Nothing + ( AppN Nothing + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) + ) + ( PropName "intAdd" ) + ) + ( Ref Nothing + ( Local + ( Name "x72$71" ) + ) :| [] + ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x73$72" ) :| [] + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "bind$w" ) + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) + ) + ) + ( AppN Nothing + ( AppN Nothing + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) + ) + ( PropName "intAdd" ) + ) + ( Ref Nothing + ( Local + ( Name "x73$72" ) + ) :| [] + ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x74$73" ) :| [] + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "bind$w" ) + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) + ) + ) + ( AppN Nothing + ( AppN Nothing + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) + ) + ( PropName "intAdd" ) + ) + ( Ref Nothing + ( Local + ( Name "x74$73" ) + ) :| [] + ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x75$74" ) :| [] + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "bind$w" ) + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) + ) + ) + ( AppN Nothing + ( AppN Nothing + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) + ) + ( PropName "intAdd" ) + ) + ( Ref Nothing + ( Local + ( Name "x75$74" ) + ) :| [] + ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x76$75" ) :| [] + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "bind$w" ) + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) + ) + ) + ( AppN Nothing + ( AppN Nothing + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) + ) + ( PropName "intAdd" ) + ) + ( Ref Nothing + ( Local + ( Name "x76$75" ) + ) :| [] + ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x77$76" ) :| [] + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "bind$w" ) + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) + ) + ) + ( AppN Nothing + ( AppN Nothing + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) + ) + ( PropName "intAdd" ) + ) + ( Ref Nothing + ( Local + ( Name "x77$76" ) + ) :| [] + ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x78$77" ) :| [] + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "bind$w" ) + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) + ) + ) + ( AppN Nothing + ( AppN Nothing + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) + ) + ( PropName "intAdd" ) + ) + ( Ref Nothing + ( Local + ( Name "x78$77" ) + ) :| [] + ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x79$78" ) :| [] + ) + ( AppN Nothing + ( AppN Nothing + ( Ref Nothing + ( Local + ( Name "$kont566" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x1$0$570" ) + ) :| [] + ) + ) + ( Ref Nothing + ( Local + ( Name "x79$78" ) + ) :| [] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) ) ) @@ -10648,21 +10305,17 @@ UberModule ] ) ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind" ) ) - ) - ( AppN Nothing - ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) + ( Ref Nothing + ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind$w" ) ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x1$0" ) ) - ( AppN Nothing + ( AppN Nothing + ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) + ( LiteralInt Nothing 1 :| [] ) :| + [ AbsN Nothing + ( ParamNamed Nothing ( Name "x1$0" ) :| [] ) ( AppN Nothing ( Ref Nothing - ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind" ) ) + ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind$w" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) @@ -10677,66 +10330,37 @@ UberModule ( Ref Nothing ( Local ( Name "x1$0" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x2$1" ) ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind" ) ) - ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing ( Name "x2$1" ) :| [] ) ( AppN Nothing - ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( 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 + ( Imported + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "bind$w" ) ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x3$2" ) ) - ( AppN Nothing + ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind" ) - ) - ) + ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) ( AppN Nothing - ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported ( ModuleName "Data.Semiring" ) ( Name "foreign" ) ) - ) - ( PropName "intAdd" ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported ( ModuleName "Data.Semiring" ) ( Name "foreign" ) ) ) - ( Ref Nothing ( Local ( Name "x3$2" ) ) :| [] ) + ( PropName "intAdd" ) ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x4$3" ) ) - ( AppN Nothing + ( Ref Nothing ( Local ( Name "x2$1" ) ) :| [] ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing ( Name "x3$2" ) :| [] ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind" ) + ( Name "bind$w" ) ) ) ( AppN Nothing @@ -10751,82 +10375,45 @@ UberModule ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x4$3" ) ) :| [] ) + ( Ref Nothing ( Local ( Name "x3$2" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x5$4" ) ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind" ) - ) - ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing ( Name "x4$3" ) :| [] ) ( AppN Nothing ( Ref Nothing - ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) - ) - ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) - ( Ref Nothing ( Local ( Name "x5$4" ) ) :| [] ) + ( Imported + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "bind$w" ) ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x6$5" ) ) - ( AppN Nothing + ) ( AppN Nothing ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind" ) - ) + ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) - ) ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) ) - ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x6$5" ) ) :| [] ) + ( PropName "intAdd" ) ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x7$6" ) ) - ( AppN Nothing + ( Ref Nothing ( Local ( Name "x4$3" ) ) :| [] ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing ( Name "x5$4" ) :| [] ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind" ) + ( Name "bind$w" ) ) ) ( AppN Nothing @@ -10844,90 +10431,48 @@ UberModule ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x7$6" ) ) :| [] ) + ( Ref Nothing ( Local ( Name "x5$4" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x8$7" ) ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind" ) - ) - ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing ( Name "x6$5" ) :| [] ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "bind$w" ) ) ) - ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) - ( Ref Nothing ( Local ( Name "x8$7" ) ) :| [] ) - ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x9$8" ) ) - ( AppN Nothing ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) - ) - ) ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) + ( ObjectProp ( Just Always ) ( Ref Nothing - ( Local ( Name "x9$8" ) ) :| [] + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) ) + ( PropName "intAdd" ) ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x10$9" ) ) - ( AppN Nothing + ( Ref Nothing ( Local ( Name "x6$5" ) ) :| [] ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing ( Name "x7$6" ) :| [] ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind" ) + ( Name "bind$w" ) ) ) ( AppN Nothing @@ -10949,97 +10494,55 @@ UberModule ( PropName "intAdd" ) ) ( Ref Nothing - ( Local ( Name "x10$9" ) ) :| [] + ( Local ( Name "x7$6" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x11$10" ) ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind" ) - ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x8$7" ) :| [] ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "bind$w" ) ) ) - ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) - ( Ref Nothing - ( Local ( Name "x11$10" ) ) :| [] - ) - ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x12$11" ) ) - ( AppN Nothing ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) - ) - ) ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) + ( ObjectProp ( Just Always ) ( Ref Nothing - ( Local - ( Name "x12$11" ) - ) :| [] + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) ) + ( PropName "intAdd" ) ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x13$12" ) - ) - ( AppN Nothing + ( Ref Nothing + ( Local ( Name "x8$7" ) ) :| [] + ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x9$8" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind" ) + ( Name "bind$w" ) ) ) ( AppN Nothing @@ -11062,104 +10565,58 @@ UberModule ) ( Ref Nothing ( Local - ( Name "x13$12" ) + ( Name "x9$8" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x14$13" ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind" ) - ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x10$9" ) :| [] ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "bind$w" ) ) ) - ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) - ( Ref Nothing - ( Local - ( Name "x14$13" ) - ) :| [] - ) - ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x15$14" ) - ) - ( AppN Nothing ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) - ) - ) ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) + ( ObjectProp ( Just Always ) ( Ref Nothing - ( Local - ( Name "x15$14" ) - ) :| [] + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) ) + ( PropName "intAdd" ) ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x16$15" ) - ) - ( AppN Nothing + ( Ref Nothing + ( Local + ( Name "x10$9" ) + ) :| [] + ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x11$10" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind" ) + ( Name "bind$w" ) ) ) ( AppN Nothing @@ -11182,104 +10639,58 @@ UberModule ) ( Ref Nothing ( Local - ( Name "x16$15" ) + ( Name "x11$10" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x17$16" ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind" ) - ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x12$11" ) :| [] ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "bind$w" ) ) ) - ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) - ( Ref Nothing - ( Local - ( Name "x17$16" ) - ) :| [] - ) - ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x18$17" ) - ) - ( AppN Nothing ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) - ) - ) ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) + ( ObjectProp ( Just Always ) ( Ref Nothing - ( Local - ( Name "x18$17" ) - ) :| [] + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) ) + ( PropName "intAdd" ) ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x19$18" ) - ) - ( AppN Nothing + ( Ref Nothing + ( Local + ( Name "x12$11" ) + ) :| [] + ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x13$12" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind" ) + ( Name "bind$w" ) ) ) ( AppN Nothing @@ -11302,104 +10713,58 @@ UberModule ) ( Ref Nothing ( Local - ( Name "x19$18" ) + ( Name "x13$12" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x20$19" ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind" ) - ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x14$13" ) :| [] ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "bind$w" ) ) ) - ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) - ( Ref Nothing - ( Local - ( Name "x20$19" ) - ) :| [] - ) - ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x21$20" ) - ) - ( AppN Nothing ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) - ) - ) ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) + ( ObjectProp ( Just Always ) ( Ref Nothing - ( Local - ( Name "x21$20" ) - ) :| [] + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) ) + ( PropName "intAdd" ) ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x22$21" ) - ) - ( AppN Nothing + ( Ref Nothing + ( Local + ( Name "x14$13" ) + ) :| [] + ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x15$14" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind" ) + ( Name "bind$w" ) ) ) ( AppN Nothing @@ -11422,104 +10787,58 @@ UberModule ) ( Ref Nothing ( Local - ( Name "x22$21" ) + ( Name "x15$14" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x23$22" ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind" ) - ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x16$15" ) :| [] ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "bind$w" ) ) ) - ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) - ( Ref Nothing - ( Local - ( Name "x23$22" ) - ) :| [] - ) - ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x24$23" ) - ) - ( AppN Nothing ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) - ) - ) ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) + ( ObjectProp ( Just Always ) ( Ref Nothing - ( Local - ( Name "x24$23" ) - ) :| [] + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) ) + ( PropName "intAdd" ) ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x25$24" ) - ) - ( AppN Nothing + ( Ref Nothing + ( Local + ( Name "x16$15" ) + ) :| [] + ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x17$16" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind" ) + ( Name "bind$w" ) ) ) ( AppN Nothing @@ -11542,104 +10861,58 @@ UberModule ) ( Ref Nothing ( Local - ( Name "x25$24" ) + ( Name "x17$16" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x26$25" ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind" ) - ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x18$17" ) :| [] ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "bind$w" ) ) ) - ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) - ( Ref Nothing - ( Local - ( Name "x26$25" ) - ) :| [] - ) - ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x27$26" ) - ) - ( AppN Nothing ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) - ) - ) ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) + ( ObjectProp ( Just Always ) ( Ref Nothing - ( Local - ( Name "x27$26" ) - ) :| [] + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) ) + ( PropName "intAdd" ) ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x28$27" ) - ) - ( AppN Nothing + ( Ref Nothing + ( Local + ( Name "x18$17" ) + ) :| [] + ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x19$18" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind" ) + ( Name "bind$w" ) ) ) ( AppN Nothing @@ -11662,104 +10935,58 @@ UberModule ) ( Ref Nothing ( Local - ( Name "x28$27" ) + ( Name "x19$18" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x29$28" ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind" ) - ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x20$19" ) :| [] ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "bind$w" ) ) ) - ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) - ( Ref Nothing - ( Local - ( Name "x29$28" ) - ) :| [] - ) - ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x30$29" ) - ) - ( AppN Nothing ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) - ) - ) ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) + ( ObjectProp ( Just Always ) ( Ref Nothing - ( Local - ( Name "x30$29" ) - ) :| [] + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) ) + ( PropName "intAdd" ) ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x31$30" ) - ) - ( AppN Nothing + ( Ref Nothing + ( Local + ( Name "x20$19" ) + ) :| [] + ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x21$20" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind" ) + ( Name "bind$w" ) ) ) ( AppN Nothing @@ -11782,104 +11009,58 @@ UberModule ) ( Ref Nothing ( Local - ( Name "x31$30" ) + ( Name "x21$20" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x32$31" ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind" ) - ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x22$21" ) :| [] ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "bind$w" ) ) ) - ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) - ( Ref Nothing - ( Local - ( Name "x32$31" ) - ) :| [] - ) - ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x33$32" ) - ) - ( AppN Nothing ( AppN Nothing ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) - ) - ) - ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) - ( Ref Nothing - ( Local - ( Name "x33$32" ) - ) :| [] - ) - ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x34$33" ) + ( Imported + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) + ) ) ( AppN Nothing + ( AppN Nothing + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) + ) + ( PropName "intAdd" ) + ) + ( Ref Nothing + ( Local + ( Name "x22$21" ) + ) :| [] + ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x23$22" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind" ) + ( Name "bind$w" ) ) ) ( AppN Nothing @@ -11902,104 +11083,58 @@ UberModule ) ( Ref Nothing ( Local - ( Name "x34$33" ) + ( Name "x23$22" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x35$34" ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind" ) - ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x24$23" ) :| [] ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "bind$w" ) ) ) - ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) - ( Ref Nothing - ( Local - ( Name "x35$34" ) - ) :| [] - ) - ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x36$35" ) - ) - ( AppN Nothing ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) - ) - ) ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) + ( ObjectProp ( Just Always ) ( Ref Nothing - ( Local - ( Name "x36$35" ) - ) :| [] + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) ) + ( PropName "intAdd" ) ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x37$36" ) - ) - ( AppN Nothing + ( Ref Nothing + ( Local + ( Name "x24$23" ) + ) :| [] + ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x25$24" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind" ) + ( Name "bind$w" ) ) ) ( AppN Nothing @@ -12022,195 +11157,671 @@ UberModule ) ( Ref Nothing ( Local - ( Name "x37$36" ) + ( Name "x25$24" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x38$37" ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind" ) - ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x26$25" ) :| [] ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "bind$w" ) ) ) - ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) - ( Ref Nothing - ( Local - ( Name "x38$37" ) - ) :| [] - ) - ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x39$38" ) - ) - ( AppN Nothing ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) - ) - ) ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "foreign" ) - ) - ) - ( PropName "intAdd" ) - ) + ( ObjectProp ( Just Always ) ( Ref Nothing - ( Local - ( Name "x39$38" ) - ) :| [] - ) - ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing - ( Name "x40$39" ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Local - ( Name "$kont569" ) + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) ) + ( PropName "intAdd" ) ) ( Ref Nothing ( Local - ( Name "x1$0" ) + ( Name "x26$25" ) ) :| [] ) ) - ( Ref Nothing - ( Local - ( Name "x40$39" ) - ) :| [] + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x27$26" ) :| [] ) - ) :| [] + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "bind$w" ) + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) + ) + ) + ( AppN Nothing + ( AppN Nothing + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) + ) + ( PropName "intAdd" ) + ) + ( Ref Nothing + ( Local + ( Name "x27$26" ) + ) :| [] + ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x28$27" ) :| [] + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "bind$w" ) + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) + ) + ) + ( AppN Nothing + ( AppN Nothing + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) + ) + ( PropName "intAdd" ) + ) + ( Ref Nothing + ( Local + ( Name "x28$27" ) + ) :| [] + ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x29$28" ) :| [] + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "bind$w" ) + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) + ) + ) + ( AppN Nothing + ( AppN Nothing + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) + ) + ( PropName "intAdd" ) + ) + ( Ref Nothing + ( Local + ( Name "x29$28" ) + ) :| [] + ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x30$29" ) :| [] + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "bind$w" ) + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) + ) + ) + ( AppN Nothing + ( AppN Nothing + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) + ) + ( PropName "intAdd" ) + ) + ( Ref Nothing + ( Local + ( Name "x30$29" ) + ) :| [] + ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x31$30" ) :| [] + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "bind$w" ) + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) + ) + ) + ( AppN Nothing + ( AppN Nothing + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) + ) + ( PropName "intAdd" ) + ) + ( Ref Nothing + ( Local + ( Name "x31$30" ) + ) :| [] + ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x32$31" ) :| [] + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "bind$w" ) + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) + ) + ) + ( AppN Nothing + ( AppN Nothing + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) + ) + ( PropName "intAdd" ) + ) + ( Ref Nothing + ( Local + ( Name "x32$31" ) + ) :| [] + ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x33$32" ) :| [] + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "bind$w" ) + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) + ) + ) + ( AppN Nothing + ( AppN Nothing + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) + ) + ( PropName "intAdd" ) + ) + ( Ref Nothing + ( Local + ( Name "x33$32" ) + ) :| [] + ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x34$33" ) :| [] + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "bind$w" ) + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) + ) + ) + ( AppN Nothing + ( AppN Nothing + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) + ) + ( PropName "intAdd" ) + ) + ( Ref Nothing + ( Local + ( Name "x34$33" ) + ) :| [] + ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x35$34" ) :| [] + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "bind$w" ) + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) + ) + ) + ( AppN Nothing + ( AppN Nothing + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) + ) + ( PropName "intAdd" ) + ) + ( Ref Nothing + ( Local + ( Name "x35$34" ) + ) :| [] + ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x36$35" ) :| [] + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "bind$w" ) + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) + ) + ) + ( AppN Nothing + ( AppN Nothing + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) + ) + ( PropName "intAdd" ) + ) + ( Ref Nothing + ( Local + ( Name "x36$35" ) + ) :| [] + ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x37$36" ) :| [] + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "bind$w" ) + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) + ) + ) + ( AppN Nothing + ( AppN Nothing + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) + ) + ( PropName "intAdd" ) + ) + ( Ref Nothing + ( Local + ( Name "x37$36" ) + ) :| [] + ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x38$37" ) :| [] + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "bind$w" ) + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) + ) + ) + ( AppN Nothing + ( AppN Nothing + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) + ) + ( PropName "intAdd" ) + ) + ( Ref Nothing + ( Local + ( Name "x38$37" ) + ) :| [] + ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x39$38" ) :| [] + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "bind$w" ) + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) + ) + ) + ( AppN Nothing + ( AppN Nothing + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) + ) + ( PropName "intAdd" ) + ) + ( Ref Nothing + ( Local + ( Name "x39$38" ) + ) :| [] + ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x40$39" ) :| [] + ) + ( AppN Nothing + ( AppN Nothing + ( Ref Nothing + ( Local + ( Name "$kont569" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x1$0" ) + ) :| [] + ) + ) + ( Ref Nothing + ( Local + ( Name "x40$39" ) + ) :| [] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) ) ) diff --git a/test/ps/output/Golden.LongMaybeBindModule.Test/golden.lua b/test/ps/output/Golden.LongMaybeBindModule.Test/golden.lua index 0450158d..50a1598d 100644 --- a/test/ps/output/Golden.LongMaybeBindModule.Test/golden.lua +++ b/test/ps/output/Golden.LongMaybeBindModule.Test/golden.lua @@ -6,44 +6,42 @@ M.Data_Semiring_foreign = { M.Data_Maybe_Just = function(value0) return { ["$ctor"] = "Data.Maybe∷Maybe.Just", value0 = value0 } end -M.Golden_LongMaybeBindModule_Test_bind = function(v_S_545) - return function(v1_S_546) - if "Data.Maybe∷Maybe.Just" == v_S_545["$ctor"] then - return v1_S_546(v_S_545.value0) - elseif "Data.Maybe∷Maybe.Nothing" == v_S_545["$ctor"] then - return { ["$ctor"] = "Data.Maybe∷Maybe.Nothing" } - else - return error("No patterns matched") - end +M.Golden_LongMaybeBindModule_Test_bind_S_w = function(v_S_545, v1_S_546) + if "Data.Maybe∷Maybe.Just" == v_S_545["$ctor"] then + return v1_S_546(v_S_545.value0) + elseif "Data.Maybe∷Maybe.Nothing" == v_S_545["$ctor"] then + return { ["$ctor"] = "Data.Maybe∷Maybe.Nothing" } + else + return error("No patterns matched") end end return { compute = (function() local _S_kont551 = function(x1_S_0_S_552) return function(x277_S_276_S_553) - return M.Golden_LongMaybeBindModule_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x277_S_276_S_553)(1)))(function( x278_S_277 ) - return M.Golden_LongMaybeBindModule_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x278_S_277)(1)))(function( x279_S_278 ) - return M.Golden_LongMaybeBindModule_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x279_S_278)(1)))(function( x280_S_279 ) - return M.Golden_LongMaybeBindModule_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x280_S_279)(1)))(function( x281_S_280 ) - return M.Golden_LongMaybeBindModule_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x281_S_280)(1)))(function( x282_S_281 ) - return M.Golden_LongMaybeBindModule_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x282_S_281)(1)))(function( x283_S_282 ) - return M.Golden_LongMaybeBindModule_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x283_S_282)(1)))(function( x284_S_283 ) - return M.Golden_LongMaybeBindModule_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x284_S_283)(1)))(function( x285_S_284 ) - return M.Golden_LongMaybeBindModule_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x285_S_284)(1)))(function( x286_S_285 ) - return M.Golden_LongMaybeBindModule_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x286_S_285)(1)))(function( x287_S_286 ) - return M.Golden_LongMaybeBindModule_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x287_S_286)(1)))(function( x288_S_287 ) - return M.Golden_LongMaybeBindModule_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x288_S_287)(1)))(function( x289_S_288 ) - return M.Golden_LongMaybeBindModule_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x289_S_288)(1)))(function( x290_S_289 ) - return M.Golden_LongMaybeBindModule_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x290_S_289)(1)))(function( x291_S_290 ) - return M.Golden_LongMaybeBindModule_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x291_S_290)(1)))(function( x292_S_291 ) - return M.Golden_LongMaybeBindModule_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x292_S_291)(1)))(function( x293_S_292 ) - return M.Golden_LongMaybeBindModule_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x293_S_292)(1)))(function( x294_S_293 ) - return M.Golden_LongMaybeBindModule_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x294_S_293)(1)))(function( x295_S_294 ) - return M.Golden_LongMaybeBindModule_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x295_S_294)(1)))(function( x296_S_295 ) - return M.Golden_LongMaybeBindModule_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x296_S_295)(1)))(function( x297_S_296 ) - return M.Golden_LongMaybeBindModule_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x297_S_296)(1)))(function( x298_S_297 ) - return M.Golden_LongMaybeBindModule_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x298_S_297)(1)))(function( x299_S_298 ) - return M.Golden_LongMaybeBindModule_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x299_S_298)(1)))(function( x300_S_299 ) + return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x277_S_276_S_553)(1)), function( x278_S_277 ) + return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x278_S_277)(1)), function( x279_S_278 ) + return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x279_S_278)(1)), function( x280_S_279 ) + return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x280_S_279)(1)), function( x281_S_280 ) + return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x281_S_280)(1)), function( x282_S_281 ) + return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x282_S_281)(1)), function( x283_S_282 ) + return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x283_S_282)(1)), function( x284_S_283 ) + return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x284_S_283)(1)), function( x285_S_284 ) + return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x285_S_284)(1)), function( x286_S_285 ) + return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x286_S_285)(1)), function( x287_S_286 ) + return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x287_S_286)(1)), function( x288_S_287 ) + return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x288_S_287)(1)), function( x289_S_288 ) + return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x289_S_288)(1)), function( x290_S_289 ) + return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x290_S_289)(1)), function( x291_S_290 ) + return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x291_S_290)(1)), function( x292_S_291 ) + return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x292_S_291)(1)), function( x293_S_292 ) + return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x293_S_292)(1)), function( x294_S_293 ) + return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x294_S_293)(1)), function( x295_S_294 ) + return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x295_S_294)(1)), function( x296_S_295 ) + return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x296_S_295)(1)), function( x297_S_296 ) + return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x297_S_296)(1)), function( x298_S_297 ) + return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x298_S_297)(1)), function( x299_S_298 ) + return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x299_S_298)(1)), function( x300_S_299 ) return M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x1_S_0_S_552)(x300_S_299)) end) end) @@ -72,46 +70,46 @@ return { end local _S_kont554 = function(x1_S_0_S_555) return function(x238_S_237_S_556) - return M.Golden_LongMaybeBindModule_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x238_S_237_S_556)(1)))(function( x239_S_238 ) - return M.Golden_LongMaybeBindModule_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x239_S_238)(1)))(function( x240_S_239 ) - return M.Golden_LongMaybeBindModule_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x240_S_239)(1)))(function( x241_S_240 ) - return M.Golden_LongMaybeBindModule_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x241_S_240)(1)))(function( x242_S_241 ) - return M.Golden_LongMaybeBindModule_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x242_S_241)(1)))(function( x243_S_242 ) - return M.Golden_LongMaybeBindModule_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x243_S_242)(1)))(function( x244_S_243 ) - return M.Golden_LongMaybeBindModule_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x244_S_243)(1)))(function( x245_S_244 ) - return M.Golden_LongMaybeBindModule_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x245_S_244)(1)))(function( x246_S_245 ) - return M.Golden_LongMaybeBindModule_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x246_S_245)(1)))(function( x247_S_246 ) - return M.Golden_LongMaybeBindModule_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x247_S_246)(1)))(function( x248_S_247 ) - return M.Golden_LongMaybeBindModule_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x248_S_247)(1)))(function( x249_S_248 ) - return M.Golden_LongMaybeBindModule_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x249_S_248)(1)))(function( x250_S_249 ) - return M.Golden_LongMaybeBindModule_Test_bind(M.Data_Maybe_Just(M.Data_Unit_foreign.unit))(function( ) - return M.Golden_LongMaybeBindModule_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x250_S_249)(1)))(function( x251_S_250 ) - return M.Golden_LongMaybeBindModule_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x251_S_250)(1)))(function( x252_S_251 ) - return M.Golden_LongMaybeBindModule_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x252_S_251)(1)))(function( x253_S_252 ) - return M.Golden_LongMaybeBindModule_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x253_S_252)(1)))(function( x254_S_253 ) - return M.Golden_LongMaybeBindModule_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x254_S_253)(1)))(function( x255_S_254 ) - return M.Golden_LongMaybeBindModule_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x255_S_254)(1)))(function( x256_S_255 ) - return M.Golden_LongMaybeBindModule_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x256_S_255)(1)))(function( x257_S_256 ) - return M.Golden_LongMaybeBindModule_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x257_S_256)(1)))(function( x258_S_257 ) - return M.Golden_LongMaybeBindModule_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x258_S_257)(1)))(function( x259_S_258 ) - return M.Golden_LongMaybeBindModule_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x259_S_258)(1)))(function( x260_S_259 ) - return M.Golden_LongMaybeBindModule_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x260_S_259)(1)))(function( x261_S_260 ) - return M.Golden_LongMaybeBindModule_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x261_S_260)(1)))(function( x262_S_261 ) - return M.Golden_LongMaybeBindModule_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x262_S_261)(1)))(function( x263_S_262 ) - return M.Golden_LongMaybeBindModule_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x263_S_262)(1)))(function( x264_S_263 ) - return M.Golden_LongMaybeBindModule_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x264_S_263)(1)))(function( x265_S_264 ) - return M.Golden_LongMaybeBindModule_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x265_S_264)(1)))(function( x266_S_265 ) - return M.Golden_LongMaybeBindModule_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x266_S_265)(1)))(function( x267_S_266 ) - return M.Golden_LongMaybeBindModule_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x267_S_266)(1)))(function( x268_S_267 ) - return M.Golden_LongMaybeBindModule_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x268_S_267)(1)))(function( x269_S_268 ) - return M.Golden_LongMaybeBindModule_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x269_S_268)(1)))(function( x270_S_269 ) - return M.Golden_LongMaybeBindModule_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x270_S_269)(1)))(function( x271_S_270 ) - return M.Golden_LongMaybeBindModule_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x271_S_270)(1)))(function( x272_S_271 ) - return M.Golden_LongMaybeBindModule_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x272_S_271)(1)))(function( x273_S_272 ) - return M.Golden_LongMaybeBindModule_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x273_S_272)(1)))(function( x274_S_273 ) - return M.Golden_LongMaybeBindModule_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x274_S_273)(1)))(function( x275_S_274 ) - return M.Golden_LongMaybeBindModule_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x275_S_274)(1)))(function( x276_S_275 ) - return M.Golden_LongMaybeBindModule_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x276_S_275)(1)))(function( x277_S_276 ) + return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x238_S_237_S_556)(1)), function( x239_S_238 ) + return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x239_S_238)(1)), function( x240_S_239 ) + return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x240_S_239)(1)), function( x241_S_240 ) + return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x241_S_240)(1)), function( x242_S_241 ) + return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x242_S_241)(1)), function( x243_S_242 ) + return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x243_S_242)(1)), function( x244_S_243 ) + return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x244_S_243)(1)), function( x245_S_244 ) + return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x245_S_244)(1)), function( x246_S_245 ) + return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x246_S_245)(1)), function( x247_S_246 ) + return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x247_S_246)(1)), function( x248_S_247 ) + return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x248_S_247)(1)), function( x249_S_248 ) + return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x249_S_248)(1)), function( x250_S_249 ) + return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Unit_foreign.unit), function( ) + return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x250_S_249)(1)), function( x251_S_250 ) + return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x251_S_250)(1)), function( x252_S_251 ) + return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x252_S_251)(1)), function( x253_S_252 ) + return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x253_S_252)(1)), function( x254_S_253 ) + return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x254_S_253)(1)), function( x255_S_254 ) + return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x255_S_254)(1)), function( x256_S_255 ) + return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x256_S_255)(1)), function( x257_S_256 ) + return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x257_S_256)(1)), function( x258_S_257 ) + return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x258_S_257)(1)), function( x259_S_258 ) + return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x259_S_258)(1)), function( x260_S_259 ) + return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x260_S_259)(1)), function( x261_S_260 ) + return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x261_S_260)(1)), function( x262_S_261 ) + return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x262_S_261)(1)), function( x263_S_262 ) + return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x263_S_262)(1)), function( x264_S_263 ) + return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x264_S_263)(1)), function( x265_S_264 ) + return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x265_S_264)(1)), function( x266_S_265 ) + return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x266_S_265)(1)), function( x267_S_266 ) + return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x267_S_266)(1)), function( x268_S_267 ) + return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x268_S_267)(1)), function( x269_S_268 ) + return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x269_S_268)(1)), function( x270_S_269 ) + return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x270_S_269)(1)), function( x271_S_270 ) + return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x271_S_270)(1)), function( x272_S_271 ) + return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x272_S_271)(1)), function( x273_S_272 ) + return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x273_S_272)(1)), function( x274_S_273 ) + return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x274_S_273)(1)), function( x275_S_274 ) + return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x275_S_274)(1)), function( x276_S_275 ) + return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x276_S_275)(1)), function( x277_S_276 ) return _S_kont551(x1_S_0_S_555)(x277_S_276) end) end) @@ -157,46 +155,46 @@ return { end local _S_kont557 = function(x1_S_0_S_558) return function(x198_S_197_S_559) - return M.Golden_LongMaybeBindModule_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x198_S_197_S_559)(1)))(function( x199_S_198 ) - return M.Golden_LongMaybeBindModule_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x199_S_198)(1)))(function( x200_S_199 ) - return M.Golden_LongMaybeBindModule_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x200_S_199)(1)))(function( x201_S_200 ) - return M.Golden_LongMaybeBindModule_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x201_S_200)(1)))(function( x202_S_201 ) - return M.Golden_LongMaybeBindModule_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x202_S_201)(1)))(function( x203_S_202 ) - return M.Golden_LongMaybeBindModule_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x203_S_202)(1)))(function( x204_S_203 ) - return M.Golden_LongMaybeBindModule_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x204_S_203)(1)))(function( x205_S_204 ) - return M.Golden_LongMaybeBindModule_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x205_S_204)(1)))(function( x206_S_205 ) - return M.Golden_LongMaybeBindModule_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x206_S_205)(1)))(function( x207_S_206 ) - return M.Golden_LongMaybeBindModule_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x207_S_206)(1)))(function( x208_S_207 ) - return M.Golden_LongMaybeBindModule_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x208_S_207)(1)))(function( x209_S_208 ) - return M.Golden_LongMaybeBindModule_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x209_S_208)(1)))(function( x210_S_209 ) - return M.Golden_LongMaybeBindModule_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x210_S_209)(1)))(function( x211_S_210 ) - return M.Golden_LongMaybeBindModule_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x211_S_210)(1)))(function( x212_S_211 ) - return M.Golden_LongMaybeBindModule_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x212_S_211)(1)))(function( x213_S_212 ) - return M.Golden_LongMaybeBindModule_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x213_S_212)(1)))(function( x214_S_213 ) - return M.Golden_LongMaybeBindModule_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x214_S_213)(1)))(function( x215_S_214 ) - return M.Golden_LongMaybeBindModule_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x215_S_214)(1)))(function( x216_S_215 ) - return M.Golden_LongMaybeBindModule_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x216_S_215)(1)))(function( x217_S_216 ) - return M.Golden_LongMaybeBindModule_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x217_S_216)(1)))(function( x218_S_217 ) - return M.Golden_LongMaybeBindModule_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x218_S_217)(1)))(function( x219_S_218 ) - return M.Golden_LongMaybeBindModule_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x219_S_218)(1)))(function( x220_S_219 ) - return M.Golden_LongMaybeBindModule_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x220_S_219)(1)))(function( x221_S_220 ) - return M.Golden_LongMaybeBindModule_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x221_S_220)(1)))(function( x222_S_221 ) - return M.Golden_LongMaybeBindModule_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x222_S_221)(1)))(function( x223_S_222 ) - return M.Golden_LongMaybeBindModule_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x223_S_222)(1)))(function( x224_S_223 ) - return M.Golden_LongMaybeBindModule_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x224_S_223)(1)))(function( x225_S_224 ) - return M.Golden_LongMaybeBindModule_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x225_S_224)(1)))(function( x226_S_225 ) - return M.Golden_LongMaybeBindModule_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x226_S_225)(1)))(function( x227_S_226 ) - return M.Golden_LongMaybeBindModule_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x227_S_226)(1)))(function( x228_S_227 ) - return M.Golden_LongMaybeBindModule_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x228_S_227)(1)))(function( x229_S_228 ) - return M.Golden_LongMaybeBindModule_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x229_S_228)(1)))(function( x230_S_229 ) - return M.Golden_LongMaybeBindModule_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x230_S_229)(1)))(function( x231_S_230 ) - return M.Golden_LongMaybeBindModule_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x231_S_230)(1)))(function( x232_S_231 ) - return M.Golden_LongMaybeBindModule_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x232_S_231)(1)))(function( x233_S_232 ) - return M.Golden_LongMaybeBindModule_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x233_S_232)(1)))(function( x234_S_233 ) - return M.Golden_LongMaybeBindModule_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x234_S_233)(1)))(function( x235_S_234 ) - return M.Golden_LongMaybeBindModule_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x235_S_234)(1)))(function( x236_S_235 ) - return M.Golden_LongMaybeBindModule_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x236_S_235)(1)))(function( x237_S_236 ) - return M.Golden_LongMaybeBindModule_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x237_S_236)(1)))(function( x238_S_237 ) + return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x198_S_197_S_559)(1)), function( x199_S_198 ) + return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x199_S_198)(1)), function( x200_S_199 ) + return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x200_S_199)(1)), function( x201_S_200 ) + return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x201_S_200)(1)), function( x202_S_201 ) + return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x202_S_201)(1)), function( x203_S_202 ) + return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x203_S_202)(1)), function( x204_S_203 ) + return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x204_S_203)(1)), function( x205_S_204 ) + return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x205_S_204)(1)), function( x206_S_205 ) + return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x206_S_205)(1)), function( x207_S_206 ) + return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x207_S_206)(1)), function( x208_S_207 ) + return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x208_S_207)(1)), function( x209_S_208 ) + return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x209_S_208)(1)), function( x210_S_209 ) + return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x210_S_209)(1)), function( x211_S_210 ) + return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x211_S_210)(1)), function( x212_S_211 ) + return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x212_S_211)(1)), function( x213_S_212 ) + return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x213_S_212)(1)), function( x214_S_213 ) + return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x214_S_213)(1)), function( x215_S_214 ) + return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x215_S_214)(1)), function( x216_S_215 ) + return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x216_S_215)(1)), function( x217_S_216 ) + return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x217_S_216)(1)), function( x218_S_217 ) + return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x218_S_217)(1)), function( x219_S_218 ) + return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x219_S_218)(1)), function( x220_S_219 ) + return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x220_S_219)(1)), function( x221_S_220 ) + return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x221_S_220)(1)), function( x222_S_221 ) + return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x222_S_221)(1)), function( x223_S_222 ) + return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x223_S_222)(1)), function( x224_S_223 ) + return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x224_S_223)(1)), function( x225_S_224 ) + return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x225_S_224)(1)), function( x226_S_225 ) + return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x226_S_225)(1)), function( x227_S_226 ) + return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x227_S_226)(1)), function( x228_S_227 ) + return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x228_S_227)(1)), function( x229_S_228 ) + return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x229_S_228)(1)), function( x230_S_229 ) + return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x230_S_229)(1)), function( x231_S_230 ) + return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x231_S_230)(1)), function( x232_S_231 ) + return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x232_S_231)(1)), function( x233_S_232 ) + return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x233_S_232)(1)), function( x234_S_233 ) + return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x234_S_233)(1)), function( x235_S_234 ) + return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x235_S_234)(1)), function( x236_S_235 ) + return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x236_S_235)(1)), function( x237_S_236 ) + return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x237_S_236)(1)), function( x238_S_237 ) return _S_kont554(x1_S_0_S_558)(x238_S_237) end) end) @@ -242,46 +240,46 @@ return { end local _S_kont560 = function(x1_S_0_S_561) return function(x158_S_157_S_562) - return M.Golden_LongMaybeBindModule_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x158_S_157_S_562)(1)))(function( x159_S_158 ) - return M.Golden_LongMaybeBindModule_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x159_S_158)(1)))(function( x160_S_159 ) - return M.Golden_LongMaybeBindModule_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x160_S_159)(1)))(function( x161_S_160 ) - return M.Golden_LongMaybeBindModule_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x161_S_160)(1)))(function( x162_S_161 ) - return M.Golden_LongMaybeBindModule_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x162_S_161)(1)))(function( x163_S_162 ) - return M.Golden_LongMaybeBindModule_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x163_S_162)(1)))(function( x164_S_163 ) - return M.Golden_LongMaybeBindModule_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x164_S_163)(1)))(function( x165_S_164 ) - return M.Golden_LongMaybeBindModule_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x165_S_164)(1)))(function( x166_S_165 ) - return M.Golden_LongMaybeBindModule_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x166_S_165)(1)))(function( x167_S_166 ) - return M.Golden_LongMaybeBindModule_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x167_S_166)(1)))(function( x168_S_167 ) - return M.Golden_LongMaybeBindModule_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x168_S_167)(1)))(function( x169_S_168 ) - return M.Golden_LongMaybeBindModule_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x169_S_168)(1)))(function( x170_S_169 ) - return M.Golden_LongMaybeBindModule_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x170_S_169)(1)))(function( x171_S_170 ) - return M.Golden_LongMaybeBindModule_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x171_S_170)(1)))(function( x172_S_171 ) - return M.Golden_LongMaybeBindModule_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x172_S_171)(1)))(function( x173_S_172 ) - return M.Golden_LongMaybeBindModule_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x173_S_172)(1)))(function( x174_S_173 ) - return M.Golden_LongMaybeBindModule_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x174_S_173)(1)))(function( x175_S_174 ) - return M.Golden_LongMaybeBindModule_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x175_S_174)(1)))(function( x176_S_175 ) - return M.Golden_LongMaybeBindModule_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x176_S_175)(1)))(function( x177_S_176 ) - return M.Golden_LongMaybeBindModule_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x177_S_176)(1)))(function( x178_S_177 ) - return M.Golden_LongMaybeBindModule_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x178_S_177)(1)))(function( x179_S_178 ) - return M.Golden_LongMaybeBindModule_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x179_S_178)(1)))(function( x180_S_179 ) - return M.Golden_LongMaybeBindModule_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x180_S_179)(1)))(function( x181_S_180 ) - return M.Golden_LongMaybeBindModule_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x181_S_180)(1)))(function( x182_S_181 ) - return M.Golden_LongMaybeBindModule_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x182_S_181)(1)))(function( x183_S_182 ) - return M.Golden_LongMaybeBindModule_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x183_S_182)(1)))(function( x184_S_183 ) - return M.Golden_LongMaybeBindModule_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x184_S_183)(1)))(function( x185_S_184 ) - return M.Golden_LongMaybeBindModule_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x185_S_184)(1)))(function( x186_S_185 ) - return M.Golden_LongMaybeBindModule_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x186_S_185)(1)))(function( x187_S_186 ) - return M.Golden_LongMaybeBindModule_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x187_S_186)(1)))(function( x188_S_187 ) - return M.Golden_LongMaybeBindModule_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x188_S_187)(1)))(function( x189_S_188 ) - return M.Golden_LongMaybeBindModule_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x189_S_188)(1)))(function( x190_S_189 ) - return M.Golden_LongMaybeBindModule_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x190_S_189)(1)))(function( x191_S_190 ) - return M.Golden_LongMaybeBindModule_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x191_S_190)(1)))(function( x192_S_191 ) - return M.Golden_LongMaybeBindModule_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x192_S_191)(1)))(function( x193_S_192 ) - return M.Golden_LongMaybeBindModule_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x193_S_192)(1)))(function( x194_S_193 ) - return M.Golden_LongMaybeBindModule_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x194_S_193)(1)))(function( x195_S_194 ) - return M.Golden_LongMaybeBindModule_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x195_S_194)(1)))(function( x196_S_195 ) - return M.Golden_LongMaybeBindModule_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x196_S_195)(1)))(function( x197_S_196 ) - return M.Golden_LongMaybeBindModule_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x197_S_196)(1)))(function( x198_S_197 ) + return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x158_S_157_S_562)(1)), function( x159_S_158 ) + return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x159_S_158)(1)), function( x160_S_159 ) + return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x160_S_159)(1)), function( x161_S_160 ) + return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x161_S_160)(1)), function( x162_S_161 ) + return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x162_S_161)(1)), function( x163_S_162 ) + return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x163_S_162)(1)), function( x164_S_163 ) + return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x164_S_163)(1)), function( x165_S_164 ) + return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x165_S_164)(1)), function( x166_S_165 ) + return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x166_S_165)(1)), function( x167_S_166 ) + return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x167_S_166)(1)), function( x168_S_167 ) + return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x168_S_167)(1)), function( x169_S_168 ) + return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x169_S_168)(1)), function( x170_S_169 ) + return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x170_S_169)(1)), function( x171_S_170 ) + return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x171_S_170)(1)), function( x172_S_171 ) + return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x172_S_171)(1)), function( x173_S_172 ) + return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x173_S_172)(1)), function( x174_S_173 ) + return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x174_S_173)(1)), function( x175_S_174 ) + return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x175_S_174)(1)), function( x176_S_175 ) + return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x176_S_175)(1)), function( x177_S_176 ) + return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x177_S_176)(1)), function( x178_S_177 ) + return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x178_S_177)(1)), function( x179_S_178 ) + return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x179_S_178)(1)), function( x180_S_179 ) + return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x180_S_179)(1)), function( x181_S_180 ) + return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x181_S_180)(1)), function( x182_S_181 ) + return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x182_S_181)(1)), function( x183_S_182 ) + return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x183_S_182)(1)), function( x184_S_183 ) + return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x184_S_183)(1)), function( x185_S_184 ) + return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x185_S_184)(1)), function( x186_S_185 ) + return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x186_S_185)(1)), function( x187_S_186 ) + return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x187_S_186)(1)), function( x188_S_187 ) + return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x188_S_187)(1)), function( x189_S_188 ) + return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x189_S_188)(1)), function( x190_S_189 ) + return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x190_S_189)(1)), function( x191_S_190 ) + return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x191_S_190)(1)), function( x192_S_191 ) + return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x192_S_191)(1)), function( x193_S_192 ) + return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x193_S_192)(1)), function( x194_S_193 ) + return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x194_S_193)(1)), function( x195_S_194 ) + return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x195_S_194)(1)), function( x196_S_195 ) + return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x196_S_195)(1)), function( x197_S_196 ) + return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x197_S_196)(1)), function( x198_S_197 ) return _S_kont557(x1_S_0_S_561)(x198_S_197) end) end) @@ -327,46 +325,46 @@ return { end local _S_kont563 = function(x1_S_0_S_564) return function(x119_S_118_S_565) - return M.Golden_LongMaybeBindModule_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x119_S_118_S_565)(1)))(function( x120_S_119 ) - return M.Golden_LongMaybeBindModule_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x120_S_119)(1)))(function( x121_S_120 ) - return M.Golden_LongMaybeBindModule_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x121_S_120)(1)))(function( x122_S_121 ) - return M.Golden_LongMaybeBindModule_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x122_S_121)(1)))(function( x123_S_122 ) - return M.Golden_LongMaybeBindModule_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x123_S_122)(1)))(function( x124_S_123 ) - return M.Golden_LongMaybeBindModule_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x124_S_123)(1)))(function( x125_S_124 ) - return M.Golden_LongMaybeBindModule_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x125_S_124)(1)))(function( x126_S_125 ) - return M.Golden_LongMaybeBindModule_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x126_S_125)(1)))(function( x127_S_126 ) - return M.Golden_LongMaybeBindModule_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x127_S_126)(1)))(function( x128_S_127 ) - return M.Golden_LongMaybeBindModule_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x128_S_127)(1)))(function( x129_S_128 ) - return M.Golden_LongMaybeBindModule_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x129_S_128)(1)))(function( x130_S_129 ) - return M.Golden_LongMaybeBindModule_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x130_S_129)(1)))(function( x131_S_130 ) - return M.Golden_LongMaybeBindModule_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x131_S_130)(1)))(function( x132_S_131 ) - return M.Golden_LongMaybeBindModule_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x132_S_131)(1)))(function( x133_S_132 ) - return M.Golden_LongMaybeBindModule_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x133_S_132)(1)))(function( x134_S_133 ) - return M.Golden_LongMaybeBindModule_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x134_S_133)(1)))(function( x135_S_134 ) - return M.Golden_LongMaybeBindModule_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x135_S_134)(1)))(function( x136_S_135 ) - return M.Golden_LongMaybeBindModule_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x136_S_135)(1)))(function( x137_S_136 ) - return M.Golden_LongMaybeBindModule_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x137_S_136)(1)))(function( x138_S_137 ) - return M.Golden_LongMaybeBindModule_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x138_S_137)(1)))(function( x139_S_138 ) - return M.Golden_LongMaybeBindModule_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x139_S_138)(1)))(function( x140_S_139 ) - return M.Golden_LongMaybeBindModule_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x140_S_139)(1)))(function( x141_S_140 ) - return M.Golden_LongMaybeBindModule_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x141_S_140)(1)))(function( x142_S_141 ) - return M.Golden_LongMaybeBindModule_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x142_S_141)(1)))(function( x143_S_142 ) - return M.Golden_LongMaybeBindModule_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x143_S_142)(1)))(function( x144_S_143 ) - return M.Golden_LongMaybeBindModule_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x144_S_143)(1)))(function( x145_S_144 ) - return M.Golden_LongMaybeBindModule_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x145_S_144)(1)))(function( x146_S_145 ) - return M.Golden_LongMaybeBindModule_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x146_S_145)(1)))(function( x147_S_146 ) - return M.Golden_LongMaybeBindModule_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x147_S_146)(1)))(function( x148_S_147 ) - return M.Golden_LongMaybeBindModule_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x148_S_147)(1)))(function( x149_S_148 ) - return M.Golden_LongMaybeBindModule_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x149_S_148)(1)))(function( x150_S_149 ) - return M.Golden_LongMaybeBindModule_Test_bind(M.Data_Maybe_Just(M.Data_Unit_foreign.unit))(function( ) - return M.Golden_LongMaybeBindModule_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x150_S_149)(1)))(function( x151_S_150 ) - return M.Golden_LongMaybeBindModule_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x151_S_150)(1)))(function( x152_S_151 ) - return M.Golden_LongMaybeBindModule_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x152_S_151)(1)))(function( x153_S_152 ) - return M.Golden_LongMaybeBindModule_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x153_S_152)(1)))(function( x154_S_153 ) - return M.Golden_LongMaybeBindModule_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x154_S_153)(1)))(function( x155_S_154 ) - return M.Golden_LongMaybeBindModule_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x155_S_154)(1)))(function( x156_S_155 ) - return M.Golden_LongMaybeBindModule_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x156_S_155)(1)))(function( x157_S_156 ) - return M.Golden_LongMaybeBindModule_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x157_S_156)(1)))(function( x158_S_157 ) + return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x119_S_118_S_565)(1)), function( x120_S_119 ) + return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x120_S_119)(1)), function( x121_S_120 ) + return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x121_S_120)(1)), function( x122_S_121 ) + return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x122_S_121)(1)), function( x123_S_122 ) + return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x123_S_122)(1)), function( x124_S_123 ) + return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x124_S_123)(1)), function( x125_S_124 ) + return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x125_S_124)(1)), function( x126_S_125 ) + return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x126_S_125)(1)), function( x127_S_126 ) + return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x127_S_126)(1)), function( x128_S_127 ) + return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x128_S_127)(1)), function( x129_S_128 ) + return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x129_S_128)(1)), function( x130_S_129 ) + return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x130_S_129)(1)), function( x131_S_130 ) + return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x131_S_130)(1)), function( x132_S_131 ) + return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x132_S_131)(1)), function( x133_S_132 ) + return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x133_S_132)(1)), function( x134_S_133 ) + return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x134_S_133)(1)), function( x135_S_134 ) + return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x135_S_134)(1)), function( x136_S_135 ) + return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x136_S_135)(1)), function( x137_S_136 ) + return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x137_S_136)(1)), function( x138_S_137 ) + return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x138_S_137)(1)), function( x139_S_138 ) + return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x139_S_138)(1)), function( x140_S_139 ) + return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x140_S_139)(1)), function( x141_S_140 ) + return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x141_S_140)(1)), function( x142_S_141 ) + return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x142_S_141)(1)), function( x143_S_142 ) + return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x143_S_142)(1)), function( x144_S_143 ) + return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x144_S_143)(1)), function( x145_S_144 ) + return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x145_S_144)(1)), function( x146_S_145 ) + return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x146_S_145)(1)), function( x147_S_146 ) + return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x147_S_146)(1)), function( x148_S_147 ) + return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x148_S_147)(1)), function( x149_S_148 ) + return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x149_S_148)(1)), function( x150_S_149 ) + return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Unit_foreign.unit), function( ) + return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x150_S_149)(1)), function( x151_S_150 ) + return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x151_S_150)(1)), function( x152_S_151 ) + return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x152_S_151)(1)), function( x153_S_152 ) + return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x153_S_152)(1)), function( x154_S_153 ) + return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x154_S_153)(1)), function( x155_S_154 ) + return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x155_S_154)(1)), function( x156_S_155 ) + return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x156_S_155)(1)), function( x157_S_156 ) + return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x157_S_156)(1)), function( x158_S_157 ) return _S_kont560(x1_S_0_S_564)(x158_S_157) end) end) @@ -412,46 +410,46 @@ return { end local _S_kont566 = function(x1_S_0_S_567) return function(x79_S_78_S_568) - return M.Golden_LongMaybeBindModule_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x79_S_78_S_568)(1)))(function( x80_S_79 ) - return M.Golden_LongMaybeBindModule_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x80_S_79)(1)))(function( x81_S_80 ) - return M.Golden_LongMaybeBindModule_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x81_S_80)(1)))(function( x82_S_81 ) - return M.Golden_LongMaybeBindModule_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x82_S_81)(1)))(function( x83_S_82 ) - return M.Golden_LongMaybeBindModule_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x83_S_82)(1)))(function( x84_S_83 ) - return M.Golden_LongMaybeBindModule_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x84_S_83)(1)))(function( x85_S_84 ) - return M.Golden_LongMaybeBindModule_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x85_S_84)(1)))(function( x86_S_85 ) - return M.Golden_LongMaybeBindModule_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x86_S_85)(1)))(function( x87_S_86 ) - return M.Golden_LongMaybeBindModule_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x87_S_86)(1)))(function( x88_S_87 ) - return M.Golden_LongMaybeBindModule_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x88_S_87)(1)))(function( x89_S_88 ) - return M.Golden_LongMaybeBindModule_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x89_S_88)(1)))(function( x90_S_89 ) - return M.Golden_LongMaybeBindModule_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x90_S_89)(1)))(function( x91_S_90 ) - return M.Golden_LongMaybeBindModule_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x91_S_90)(1)))(function( x92_S_91 ) - return M.Golden_LongMaybeBindModule_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x92_S_91)(1)))(function( x93_S_92 ) - return M.Golden_LongMaybeBindModule_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x93_S_92)(1)))(function( x94_S_93 ) - return M.Golden_LongMaybeBindModule_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x94_S_93)(1)))(function( x95_S_94 ) - return M.Golden_LongMaybeBindModule_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x95_S_94)(1)))(function( x96_S_95 ) - return M.Golden_LongMaybeBindModule_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x96_S_95)(1)))(function( x97_S_96 ) - return M.Golden_LongMaybeBindModule_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x97_S_96)(1)))(function( x98_S_97 ) - return M.Golden_LongMaybeBindModule_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x98_S_97)(1)))(function( x99_S_98 ) - return M.Golden_LongMaybeBindModule_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x99_S_98)(1)))(function( x100_S_99 ) - return M.Golden_LongMaybeBindModule_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x100_S_99)(1)))(function( x101_S_100 ) - return M.Golden_LongMaybeBindModule_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x101_S_100)(1)))(function( x102_S_101 ) - return M.Golden_LongMaybeBindModule_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x102_S_101)(1)))(function( x103_S_102 ) - return M.Golden_LongMaybeBindModule_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x103_S_102)(1)))(function( x104_S_103 ) - return M.Golden_LongMaybeBindModule_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x104_S_103)(1)))(function( x105_S_104 ) - return M.Golden_LongMaybeBindModule_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x105_S_104)(1)))(function( x106_S_105 ) - return M.Golden_LongMaybeBindModule_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x106_S_105)(1)))(function( x107_S_106 ) - return M.Golden_LongMaybeBindModule_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x107_S_106)(1)))(function( x108_S_107 ) - return M.Golden_LongMaybeBindModule_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x108_S_107)(1)))(function( x109_S_108 ) - return M.Golden_LongMaybeBindModule_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x109_S_108)(1)))(function( x110_S_109 ) - return M.Golden_LongMaybeBindModule_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x110_S_109)(1)))(function( x111_S_110 ) - return M.Golden_LongMaybeBindModule_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x111_S_110)(1)))(function( x112_S_111 ) - return M.Golden_LongMaybeBindModule_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x112_S_111)(1)))(function( x113_S_112 ) - return M.Golden_LongMaybeBindModule_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x113_S_112)(1)))(function( x114_S_113 ) - return M.Golden_LongMaybeBindModule_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x114_S_113)(1)))(function( x115_S_114 ) - return M.Golden_LongMaybeBindModule_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x115_S_114)(1)))(function( x116_S_115 ) - return M.Golden_LongMaybeBindModule_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x116_S_115)(1)))(function( x117_S_116 ) - return M.Golden_LongMaybeBindModule_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x117_S_116)(1)))(function( x118_S_117 ) - return M.Golden_LongMaybeBindModule_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x118_S_117)(1)))(function( x119_S_118 ) + return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x79_S_78_S_568)(1)), function( x80_S_79 ) + return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x80_S_79)(1)), function( x81_S_80 ) + return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x81_S_80)(1)), function( x82_S_81 ) + return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x82_S_81)(1)), function( x83_S_82 ) + return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x83_S_82)(1)), function( x84_S_83 ) + return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x84_S_83)(1)), function( x85_S_84 ) + return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x85_S_84)(1)), function( x86_S_85 ) + return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x86_S_85)(1)), function( x87_S_86 ) + return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x87_S_86)(1)), function( x88_S_87 ) + return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x88_S_87)(1)), function( x89_S_88 ) + return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x89_S_88)(1)), function( x90_S_89 ) + return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x90_S_89)(1)), function( x91_S_90 ) + return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x91_S_90)(1)), function( x92_S_91 ) + return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x92_S_91)(1)), function( x93_S_92 ) + return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x93_S_92)(1)), function( x94_S_93 ) + return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x94_S_93)(1)), function( x95_S_94 ) + return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x95_S_94)(1)), function( x96_S_95 ) + return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x96_S_95)(1)), function( x97_S_96 ) + return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x97_S_96)(1)), function( x98_S_97 ) + return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x98_S_97)(1)), function( x99_S_98 ) + return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x99_S_98)(1)), function( x100_S_99 ) + return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x100_S_99)(1)), function( x101_S_100 ) + return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x101_S_100)(1)), function( x102_S_101 ) + return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x102_S_101)(1)), function( x103_S_102 ) + return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x103_S_102)(1)), function( x104_S_103 ) + return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x104_S_103)(1)), function( x105_S_104 ) + return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x105_S_104)(1)), function( x106_S_105 ) + return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x106_S_105)(1)), function( x107_S_106 ) + return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x107_S_106)(1)), function( x108_S_107 ) + return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x108_S_107)(1)), function( x109_S_108 ) + return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x109_S_108)(1)), function( x110_S_109 ) + return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x110_S_109)(1)), function( x111_S_110 ) + return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x111_S_110)(1)), function( x112_S_111 ) + return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x112_S_111)(1)), function( x113_S_112 ) + return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x113_S_112)(1)), function( x114_S_113 ) + return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x114_S_113)(1)), function( x115_S_114 ) + return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x115_S_114)(1)), function( x116_S_115 ) + return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x116_S_115)(1)), function( x117_S_116 ) + return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x117_S_116)(1)), function( x118_S_117 ) + return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x118_S_117)(1)), function( x119_S_118 ) return _S_kont563(x1_S_0_S_567)(x119_S_118) end) end) @@ -497,46 +495,46 @@ return { end local _S_kont569 = function(x1_S_0_S_570) return function(x40_S_39_S_571) - return M.Golden_LongMaybeBindModule_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x40_S_39_S_571)(1)))(function( x41_S_40 ) - return M.Golden_LongMaybeBindModule_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x41_S_40)(1)))(function( x42_S_41 ) - return M.Golden_LongMaybeBindModule_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x42_S_41)(1)))(function( x43_S_42 ) - return M.Golden_LongMaybeBindModule_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x43_S_42)(1)))(function( x44_S_43 ) - return M.Golden_LongMaybeBindModule_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x44_S_43)(1)))(function( x45_S_44 ) - return M.Golden_LongMaybeBindModule_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x45_S_44)(1)))(function( x46_S_45 ) - return M.Golden_LongMaybeBindModule_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x46_S_45)(1)))(function( x47_S_46 ) - return M.Golden_LongMaybeBindModule_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x47_S_46)(1)))(function( x48_S_47 ) - return M.Golden_LongMaybeBindModule_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x48_S_47)(1)))(function( x49_S_48 ) - return M.Golden_LongMaybeBindModule_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x49_S_48)(1)))(function( x50_S_49 ) - return M.Golden_LongMaybeBindModule_Test_bind(M.Data_Maybe_Just(M.Data_Unit_foreign.unit))(function( ) - return M.Golden_LongMaybeBindModule_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x50_S_49)(1)))(function( x51_S_50 ) - return M.Golden_LongMaybeBindModule_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x51_S_50)(1)))(function( x52_S_51 ) - return M.Golden_LongMaybeBindModule_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x52_S_51)(1)))(function( x53_S_52 ) - return M.Golden_LongMaybeBindModule_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x53_S_52)(1)))(function( x54_S_53 ) - return M.Golden_LongMaybeBindModule_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x54_S_53)(1)))(function( x55_S_54 ) - return M.Golden_LongMaybeBindModule_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x55_S_54)(1)))(function( x56_S_55 ) - return M.Golden_LongMaybeBindModule_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x56_S_55)(1)))(function( x57_S_56 ) - return M.Golden_LongMaybeBindModule_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x57_S_56)(1)))(function( x58_S_57 ) - return M.Golden_LongMaybeBindModule_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x58_S_57)(1)))(function( x59_S_58 ) - return M.Golden_LongMaybeBindModule_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x59_S_58)(1)))(function( x60_S_59 ) - return M.Golden_LongMaybeBindModule_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x60_S_59)(1)))(function( x61_S_60 ) - return M.Golden_LongMaybeBindModule_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x61_S_60)(1)))(function( x62_S_61 ) - return M.Golden_LongMaybeBindModule_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x62_S_61)(1)))(function( x63_S_62 ) - return M.Golden_LongMaybeBindModule_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x63_S_62)(1)))(function( x64_S_63 ) - return M.Golden_LongMaybeBindModule_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x64_S_63)(1)))(function( x65_S_64 ) - return M.Golden_LongMaybeBindModule_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x65_S_64)(1)))(function( x66_S_65 ) - return M.Golden_LongMaybeBindModule_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x66_S_65)(1)))(function( x67_S_66 ) - return M.Golden_LongMaybeBindModule_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x67_S_66)(1)))(function( x68_S_67 ) - return M.Golden_LongMaybeBindModule_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x68_S_67)(1)))(function( x69_S_68 ) - return M.Golden_LongMaybeBindModule_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x69_S_68)(1)))(function( x70_S_69 ) - return M.Golden_LongMaybeBindModule_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x70_S_69)(1)))(function( x71_S_70 ) - return M.Golden_LongMaybeBindModule_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x71_S_70)(1)))(function( x72_S_71 ) - return M.Golden_LongMaybeBindModule_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x72_S_71)(1)))(function( x73_S_72 ) - return M.Golden_LongMaybeBindModule_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x73_S_72)(1)))(function( x74_S_73 ) - return M.Golden_LongMaybeBindModule_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x74_S_73)(1)))(function( x75_S_74 ) - return M.Golden_LongMaybeBindModule_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x75_S_74)(1)))(function( x76_S_75 ) - return M.Golden_LongMaybeBindModule_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x76_S_75)(1)))(function( x77_S_76 ) - return M.Golden_LongMaybeBindModule_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x77_S_76)(1)))(function( x78_S_77 ) - return M.Golden_LongMaybeBindModule_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x78_S_77)(1)))(function( x79_S_78 ) + return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x40_S_39_S_571)(1)), function( x41_S_40 ) + return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x41_S_40)(1)), function( x42_S_41 ) + return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x42_S_41)(1)), function( x43_S_42 ) + return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x43_S_42)(1)), function( x44_S_43 ) + return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x44_S_43)(1)), function( x45_S_44 ) + return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x45_S_44)(1)), function( x46_S_45 ) + return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x46_S_45)(1)), function( x47_S_46 ) + return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x47_S_46)(1)), function( x48_S_47 ) + return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x48_S_47)(1)), function( x49_S_48 ) + return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x49_S_48)(1)), function( x50_S_49 ) + return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Unit_foreign.unit), function( ) + return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x50_S_49)(1)), function( x51_S_50 ) + return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x51_S_50)(1)), function( x52_S_51 ) + return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x52_S_51)(1)), function( x53_S_52 ) + return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x53_S_52)(1)), function( x54_S_53 ) + return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x54_S_53)(1)), function( x55_S_54 ) + return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x55_S_54)(1)), function( x56_S_55 ) + return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x56_S_55)(1)), function( x57_S_56 ) + return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x57_S_56)(1)), function( x58_S_57 ) + return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x58_S_57)(1)), function( x59_S_58 ) + return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x59_S_58)(1)), function( x60_S_59 ) + return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x60_S_59)(1)), function( x61_S_60 ) + return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x61_S_60)(1)), function( x62_S_61 ) + return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x62_S_61)(1)), function( x63_S_62 ) + return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x63_S_62)(1)), function( x64_S_63 ) + return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x64_S_63)(1)), function( x65_S_64 ) + return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x65_S_64)(1)), function( x66_S_65 ) + return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x66_S_65)(1)), function( x67_S_66 ) + return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x67_S_66)(1)), function( x68_S_67 ) + return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x68_S_67)(1)), function( x69_S_68 ) + return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x69_S_68)(1)), function( x70_S_69 ) + return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x70_S_69)(1)), function( x71_S_70 ) + return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x71_S_70)(1)), function( x72_S_71 ) + return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x72_S_71)(1)), function( x73_S_72 ) + return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x73_S_72)(1)), function( x74_S_73 ) + return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x74_S_73)(1)), function( x75_S_74 ) + return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x75_S_74)(1)), function( x76_S_75 ) + return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x76_S_75)(1)), function( x77_S_76 ) + return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x77_S_76)(1)), function( x78_S_77 ) + return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x78_S_77)(1)), function( x79_S_78 ) return _S_kont566(x1_S_0_S_570)(x79_S_78) end) end) @@ -580,46 +578,46 @@ return { end) end end - return M.Golden_LongMaybeBindModule_Test_bind(M.Data_Maybe_Just(1))(function( x1_S_0 ) - return M.Golden_LongMaybeBindModule_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x1_S_0)(1)))(function( x2_S_1 ) - return M.Golden_LongMaybeBindModule_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x2_S_1)(1)))(function( x3_S_2 ) - return M.Golden_LongMaybeBindModule_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x3_S_2)(1)))(function( x4_S_3 ) - return M.Golden_LongMaybeBindModule_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x4_S_3)(1)))(function( x5_S_4 ) - return M.Golden_LongMaybeBindModule_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x5_S_4)(1)))(function( x6_S_5 ) - return M.Golden_LongMaybeBindModule_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x6_S_5)(1)))(function( x7_S_6 ) - return M.Golden_LongMaybeBindModule_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x7_S_6)(1)))(function( x8_S_7 ) - return M.Golden_LongMaybeBindModule_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x8_S_7)(1)))(function( x9_S_8 ) - return M.Golden_LongMaybeBindModule_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x9_S_8)(1)))(function( x10_S_9 ) - return M.Golden_LongMaybeBindModule_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x10_S_9)(1)))(function( x11_S_10 ) - return M.Golden_LongMaybeBindModule_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x11_S_10)(1)))(function( x12_S_11 ) - return M.Golden_LongMaybeBindModule_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x12_S_11)(1)))(function( x13_S_12 ) - return M.Golden_LongMaybeBindModule_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x13_S_12)(1)))(function( x14_S_13 ) - return M.Golden_LongMaybeBindModule_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x14_S_13)(1)))(function( x15_S_14 ) - return M.Golden_LongMaybeBindModule_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x15_S_14)(1)))(function( x16_S_15 ) - return M.Golden_LongMaybeBindModule_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x16_S_15)(1)))(function( x17_S_16 ) - return M.Golden_LongMaybeBindModule_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x17_S_16)(1)))(function( x18_S_17 ) - return M.Golden_LongMaybeBindModule_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x18_S_17)(1)))(function( x19_S_18 ) - return M.Golden_LongMaybeBindModule_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x19_S_18)(1)))(function( x20_S_19 ) - return M.Golden_LongMaybeBindModule_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x20_S_19)(1)))(function( x21_S_20 ) - return M.Golden_LongMaybeBindModule_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x21_S_20)(1)))(function( x22_S_21 ) - return M.Golden_LongMaybeBindModule_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x22_S_21)(1)))(function( x23_S_22 ) - return M.Golden_LongMaybeBindModule_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x23_S_22)(1)))(function( x24_S_23 ) - return M.Golden_LongMaybeBindModule_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x24_S_23)(1)))(function( x25_S_24 ) - return M.Golden_LongMaybeBindModule_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x25_S_24)(1)))(function( x26_S_25 ) - return M.Golden_LongMaybeBindModule_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x26_S_25)(1)))(function( x27_S_26 ) - return M.Golden_LongMaybeBindModule_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x27_S_26)(1)))(function( x28_S_27 ) - return M.Golden_LongMaybeBindModule_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x28_S_27)(1)))(function( x29_S_28 ) - return M.Golden_LongMaybeBindModule_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x29_S_28)(1)))(function( x30_S_29 ) - return M.Golden_LongMaybeBindModule_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x30_S_29)(1)))(function( x31_S_30 ) - return M.Golden_LongMaybeBindModule_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x31_S_30)(1)))(function( x32_S_31 ) - return M.Golden_LongMaybeBindModule_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x32_S_31)(1)))(function( x33_S_32 ) - return M.Golden_LongMaybeBindModule_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x33_S_32)(1)))(function( x34_S_33 ) - return M.Golden_LongMaybeBindModule_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x34_S_33)(1)))(function( x35_S_34 ) - return M.Golden_LongMaybeBindModule_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x35_S_34)(1)))(function( x36_S_35 ) - return M.Golden_LongMaybeBindModule_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x36_S_35)(1)))(function( x37_S_36 ) - return M.Golden_LongMaybeBindModule_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x37_S_36)(1)))(function( x38_S_37 ) - return M.Golden_LongMaybeBindModule_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x38_S_37)(1)))(function( x39_S_38 ) - return M.Golden_LongMaybeBindModule_Test_bind(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x39_S_38)(1)))(function( x40_S_39 ) + return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(1), function( x1_S_0 ) + return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x1_S_0)(1)), function( x2_S_1 ) + return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x2_S_1)(1)), function( x3_S_2 ) + return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x3_S_2)(1)), function( x4_S_3 ) + return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x4_S_3)(1)), function( x5_S_4 ) + return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x5_S_4)(1)), function( x6_S_5 ) + return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x6_S_5)(1)), function( x7_S_6 ) + return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x7_S_6)(1)), function( x8_S_7 ) + return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x8_S_7)(1)), function( x9_S_8 ) + return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x9_S_8)(1)), function( x10_S_9 ) + return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x10_S_9)(1)), function( x11_S_10 ) + return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x11_S_10)(1)), function( x12_S_11 ) + return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x12_S_11)(1)), function( x13_S_12 ) + return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x13_S_12)(1)), function( x14_S_13 ) + return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x14_S_13)(1)), function( x15_S_14 ) + return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x15_S_14)(1)), function( x16_S_15 ) + return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x16_S_15)(1)), function( x17_S_16 ) + return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x17_S_16)(1)), function( x18_S_17 ) + return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x18_S_17)(1)), function( x19_S_18 ) + return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x19_S_18)(1)), function( x20_S_19 ) + return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x20_S_19)(1)), function( x21_S_20 ) + return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x21_S_20)(1)), function( x22_S_21 ) + return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x22_S_21)(1)), function( x23_S_22 ) + return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x23_S_22)(1)), function( x24_S_23 ) + return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x24_S_23)(1)), function( x25_S_24 ) + return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x25_S_24)(1)), function( x26_S_25 ) + return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x26_S_25)(1)), function( x27_S_26 ) + return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x27_S_26)(1)), function( x28_S_27 ) + return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x28_S_27)(1)), function( x29_S_28 ) + return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x29_S_28)(1)), function( x30_S_29 ) + return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x30_S_29)(1)), function( x31_S_30 ) + return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x31_S_30)(1)), function( x32_S_31 ) + return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x32_S_31)(1)), function( x33_S_32 ) + return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x33_S_32)(1)), function( x34_S_33 ) + return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x34_S_33)(1)), function( x35_S_34 ) + return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x35_S_34)(1)), function( x36_S_35 ) + return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x36_S_35)(1)), function( x37_S_36 ) + return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x37_S_36)(1)), function( x38_S_37 ) + return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x38_S_37)(1)), function( x39_S_38 ) + return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Semiring_foreign.intAdd(x39_S_38)(1)), function( x40_S_39 ) return _S_kont569(x1_S_0)(x40_S_39) end) end) diff --git a/test/ps/output/Golden.LongReaderBind.Test/golden.ir b/test/ps/output/Golden.LongReaderBind.Test/golden.ir index f0ee0cca..2393c278 100644 --- a/test/ps/output/Golden.LongReaderBind.Test/golden.ir +++ b/test/ps/output/Golden.LongReaderBind.Test/golden.ir @@ -29,12 +29,12 @@ UberModule { qnameModuleName = ModuleName "Control.Semigroupoid", qnameName = Name "semigroupoidFn" }, LiteralObject Nothing [ - ( PropName "compose", Abs Nothing - ( ParamNamed Nothing ( Name "f" ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "g" ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x" ) ) + ( PropName "compose", AbsN Nothing + ( ParamNamed Nothing ( Name "f" ) :| [] ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "g" ) :| [] ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x" ) :| [] ) ( AppN Nothing ( Ref Nothing ( Local ( Name "f" ) ) ) ( AppN Nothing @@ -49,42 +49,43 @@ UberModule ), Standalone ( QName { qnameModuleName = ModuleName "Control.Semigroupoid", qnameName = Name "compose" - }, Abs Nothing - ( ParamNamed Nothing ( Name "dict" ) ) + }, AbsN Nothing + ( ParamNamed Nothing ( Name "dict" ) :| [] ) ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "dict" ) ) ) ( PropName "compose" ) ) ), Standalone ( QName { qnameModuleName = ModuleName "Control.Applicative", qnameName = Name "pure" - }, Abs Nothing - ( ParamNamed Nothing ( Name "dict" ) ) + }, AbsN Nothing + ( ParamNamed Nothing ( Name "dict" ) :| [] ) ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "dict" ) ) ) ( PropName "pure" ) ) ), Standalone ( QName - { qnameModuleName = ModuleName "Control.Bind", qnameName = Name "bind" }, Abs Nothing - ( ParamNamed Nothing ( Name "dict" ) ) + { qnameModuleName = ModuleName "Control.Bind", qnameName = Name "bind" }, AbsN Nothing + ( ParamNamed Nothing ( Name "dict" ) :| [] ) ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "dict" ) ) ) ( PropName "bind" ) ) ), Standalone ( QName { qnameModuleName = ModuleName "Data.Identity", qnameName = Name "applyIdentity" }, LiteralObject Nothing [ - ( PropName "apply", Abs Nothing - ( ParamNamed Nothing ( Name "v" ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "v1" ) ) + ( PropName "apply", AbsN Nothing + ( ParamNamed Nothing ( Name "v" ) :| [] ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "v1" ) :| [] ) ( AppN Nothing ( Ref Nothing ( Local ( Name "v" ) ) ) ( Ref Nothing ( Local ( Name "v1" ) ) :| [] ) ) ) ), - ( PropName "Functor0", Abs Nothing ( ParamUnused Nothing ) + ( PropName "Functor0", AbsN Nothing + ( ParamUnused Nothing :| [] ) ( LiteralObject Nothing [ - ( PropName "map", Abs Nothing - ( ParamNamed Nothing ( Name "f$461" ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "m$462" ) ) + ( PropName "map", AbsN Nothing + ( ParamNamed Nothing ( Name "f$461" ) :| [] ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "m$462" ) :| [] ) ( AppN Nothing ( Ref Nothing ( Local ( Name "f$461" ) ) ) ( Ref Nothing ( Local ( Name "m$462" ) ) :| [] ) @@ -100,17 +101,18 @@ UberModule { qnameModuleName = ModuleName "Data.Identity", qnameName = Name "bindIdentity" }, LiteralObject Nothing [ - ( PropName "bind", Abs Nothing - ( ParamNamed Nothing ( Name "v" ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "f" ) ) + ( PropName "bind", AbsN Nothing + ( ParamNamed Nothing ( Name "v" ) :| [] ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "f" ) :| [] ) ( AppN Nothing ( Ref Nothing ( Local ( Name "f" ) ) ) ( Ref Nothing ( Local ( Name "v" ) ) :| [] ) ) ) ), - ( PropName "Apply0", Abs Nothing ( ParamUnused Nothing ) + ( PropName "Apply0", AbsN Nothing + ( ParamUnused Nothing :| [] ) ( Ref Nothing ( Imported ( ModuleName "Data.Identity" ) ( Name "applyIdentity" ) ) ) ) ] @@ -119,11 +121,12 @@ UberModule { qnameModuleName = ModuleName "Data.Identity", qnameName = Name "applicativeIdentity" }, LiteralObject Nothing [ - ( PropName "pure", Abs Nothing - ( ParamNamed Nothing ( Name "x$463" ) ) + ( PropName "pure", AbsN Nothing + ( ParamNamed Nothing ( Name "x$463" ) :| [] ) ( Ref Nothing ( Local ( Name "x$463" ) ) ) ), - ( PropName "Apply0", Abs Nothing ( ParamUnused Nothing ) + ( PropName "Apply0", AbsN Nothing + ( ParamUnused Nothing :| [] ) ( Ref Nothing ( Imported ( ModuleName "Data.Identity" ) ( Name "applyIdentity" ) ) ) ) ] @@ -138,16 +141,16 @@ UberModule ), Standalone ( QName { qnameModuleName = ModuleName "Control.Monad.Reader.Trans", qnameName = Name "applyReaderT" - }, Abs Nothing - ( ParamNamed Nothing ( Name "dictApply" ) ) + }, AbsN Nothing + ( ParamNamed Nothing ( Name "dictApply" ) :| [] ) ( LiteralObject Nothing [ - ( PropName "apply", Abs Nothing - ( ParamNamed Nothing ( Name "v" ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "v1" ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "r" ) ) + ( PropName "apply", AbsN Nothing + ( ParamNamed Nothing ( Name "v" ) :| [] ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "v1" ) :| [] ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "r" ) :| [] ) ( AppN Nothing ( AppN Nothing ( ObjectProp Nothing @@ -167,7 +170,8 @@ UberModule ) ) ), - ( PropName "Functor0", Abs Nothing ( ParamUnused Nothing ) + ( PropName "Functor0", AbsN Nothing + ( ParamUnused Nothing :| [] ) ( LiteralObject Nothing [ ( PropName "map", AppN Nothing @@ -175,10 +179,10 @@ UberModule ( Ref Nothing ( Imported ( ModuleName "Control.Monad.Reader.Trans" ) ( Name "compose" ) ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "f$458" ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "v$459" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "f$458" ) :| [] ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "v$459" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -215,16 +219,16 @@ UberModule ), Standalone ( QName { qnameModuleName = ModuleName "Control.Monad.Reader.Trans", qnameName = Name "bindReaderT" - }, Abs Nothing - ( ParamNamed Nothing ( Name "dictBind" ) ) + }, AbsN Nothing + ( ParamNamed Nothing ( Name "dictBind" ) :| [] ) ( LiteralObject Nothing [ - ( PropName "bind", Abs Nothing - ( ParamNamed Nothing ( Name "v" ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "k" ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "r" ) ) + ( PropName "bind", AbsN Nothing + ( ParamNamed Nothing ( Name "v" ) :| [] ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "k" ) :| [] ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "r" ) :| [] ) ( AppN Nothing ( AppN Nothing ( AppN Nothing @@ -236,8 +240,8 @@ UberModule ( Ref Nothing ( Local ( Name "r" ) ) :| [] ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "a" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "a" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing ( Local ( Name "k" ) ) ) @@ -250,7 +254,8 @@ UberModule ) ) ), - ( PropName "Apply0", Abs Nothing ( ParamUnused Nothing ) + ( PropName "Apply0", AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Control.Monad.Reader.Trans" ) ( Name "applyReaderT" ) ) @@ -271,8 +276,8 @@ UberModule ), Standalone ( QName { qnameModuleName = ModuleName "Control.Monad.Reader.Trans", qnameName = Name "applicativeReaderT" - }, Abs Nothing - ( ParamNamed Nothing ( Name "dictApplicative" ) ) + }, AbsN Nothing + ( ParamNamed Nothing ( Name "dictApplicative" ) :| [] ) ( LiteralObject Nothing [ ( PropName "pure", AppN Nothing @@ -280,8 +285,8 @@ UberModule ( Ref Nothing ( Imported ( ModuleName "Control.Monad.Reader.Trans" ) ( Name "compose" ) ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x$460" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x$460" ) :| [] ) ( Ref Nothing ( Local ( Name "x$460" ) ) ) :| [] ) ) @@ -290,9 +295,10 @@ UberModule ( Ref Nothing ( Imported ( ModuleName "Control.Monad.Reader.Trans" ) ( Name "compose" ) ) ) - ( Abs ( Just Always ) - ( ParamNamed Nothing ( Name "a$306" ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN ( Just Always ) + ( ParamNamed Nothing ( Name "a$306" ) :| [] ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( Ref Nothing ( Local ( Name "a$306" ) ) ) ) :| [] ) @@ -303,7 +309,8 @@ UberModule ) :| [] ) ), - ( PropName "Apply0", Abs Nothing ( ParamUnused Nothing ) + ( PropName "Apply0", AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Control.Monad.Reader.Trans" ) ( Name "applyReaderT" ) ) @@ -342,12 +349,14 @@ UberModule ( Standalone ( Nothing, Name "dictMonad$455", LiteralObject Nothing [ - ( PropName "Applicative0", Abs Nothing ( ParamUnused Nothing ) + ( PropName "Applicative0", AbsN Nothing + ( ParamUnused Nothing :| [] ) ( Ref Nothing ( Imported ( ModuleName "Data.Identity" ) ( Name "applicativeIdentity" ) ) ) ), - ( PropName "Bind1", Abs Nothing ( ParamUnused Nothing ) + ( PropName "Bind1", AbsN Nothing + ( ParamUnused Nothing :| [] ) ( Ref Nothing ( Imported ( ModuleName "Data.Identity" ) ( Name "bindIdentity" ) ) ) @@ -369,10 +378,12 @@ UberModule ) :| [] ) ), - ( PropName "Monad0", Abs Nothing ( ParamUnused Nothing ) + ( PropName "Monad0", AbsN Nothing + ( ParamUnused Nothing :| [] ) ( LiteralObject Nothing [ - ( PropName "Applicative0", Abs Nothing ( ParamUnused Nothing ) + ( PropName "Applicative0", AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( Ref Nothing ( Imported @@ -391,7 +402,8 @@ UberModule ) ) ), - ( PropName "Bind1", Abs Nothing ( ParamUnused Nothing ) + ( PropName "Bind1", AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( Ref Nothing ( Imported @@ -422,10 +434,10 @@ UberModule { qnameModuleName = ModuleName "Golden.LongReaderBind.Test", qnameName = Name "go" }, Let Nothing ( Standalone - ( Nothing, Name "$kont469", Abs Nothing - ( ParamNamed Nothing ( Name "x1$470" ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x100$471" ) ) + ( Nothing, Name "$kont469", AbsN Nothing + ( ParamNamed Nothing ( Name "x1$470" ) :| [] ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x100$471" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -435,7 +447,8 @@ UberModule ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) ( Name "ask" ) ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -448,7 +461,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -461,7 +475,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -477,7 +492,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -493,7 +509,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -509,7 +526,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -525,7 +543,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -541,7 +560,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -557,7 +577,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -573,7 +594,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -589,7 +611,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -605,7 +628,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -621,7 +645,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -637,7 +662,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -653,7 +679,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -669,7 +696,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -685,7 +713,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -701,7 +730,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -717,7 +747,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -733,7 +764,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -749,7 +781,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -765,7 +798,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -781,7 +815,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -797,7 +832,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -813,7 +849,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -829,7 +866,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -845,7 +883,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -861,7 +900,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -877,7 +917,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -893,7 +934,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -909,7 +951,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -925,7 +968,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -941,7 +985,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -957,7 +1002,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -973,7 +1019,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -989,7 +1036,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -1005,7 +1053,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -1021,7 +1070,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -1037,7 +1087,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -1053,9 +1104,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x200" ) + ( Name "x200" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -1205,10 +1256,10 @@ UberModule ) ) :| [ Standalone - ( Nothing, Name "$kont472", Abs Nothing - ( ParamNamed Nothing ( Name "x1$473" ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x100$474" ) ) + ( Nothing, Name "$kont472", AbsN Nothing + ( ParamNamed Nothing ( Name "x1$473" ) :| [] ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x100$474" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -1218,7 +1269,8 @@ UberModule ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) ( Name "ask" ) ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -1231,7 +1283,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -1247,7 +1300,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -1263,7 +1317,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -1279,7 +1334,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -1295,7 +1351,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -1311,7 +1368,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -1327,7 +1385,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -1343,7 +1402,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -1359,7 +1419,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -1375,7 +1436,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -1391,7 +1453,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -1407,7 +1470,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -1423,7 +1487,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -1439,7 +1504,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -1455,7 +1521,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -1471,7 +1538,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -1487,7 +1555,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -1503,7 +1572,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -1519,7 +1589,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -1535,7 +1606,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -1551,7 +1623,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -1567,7 +1640,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -1583,7 +1657,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -1599,7 +1674,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -1615,7 +1691,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -1631,7 +1708,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -1647,7 +1725,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -1663,7 +1742,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -1679,7 +1759,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -1695,7 +1776,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -1711,7 +1793,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -1727,7 +1810,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -1743,7 +1827,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -1759,7 +1844,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -1775,7 +1861,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -1791,7 +1878,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -1807,7 +1895,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -1823,7 +1912,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -1839,7 +1929,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -1941,8 +2032,8 @@ UberModule ) ) ), Standalone - ( Nothing, Name "$kont475", Abs Nothing - ( ParamNamed Nothing ( Name "x1$476" ) ) + ( Nothing, Name "$kont475", AbsN Nothing + ( ParamNamed Nothing ( Name "x1$476" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -1952,7 +2043,8 @@ UberModule ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) ( Name "ask" ) ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -1965,7 +2057,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -1978,7 +2071,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -1994,7 +2088,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -2010,7 +2105,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -2026,7 +2122,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -2042,7 +2139,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -2058,7 +2156,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -2074,7 +2173,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -2090,7 +2190,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -2106,7 +2207,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -2122,7 +2224,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -2138,7 +2241,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -2154,7 +2258,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -2170,7 +2275,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -2186,7 +2292,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -2202,7 +2309,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -2218,7 +2326,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -2234,7 +2343,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -2250,9 +2360,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x100" ) + ( Name "x100" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -2269,7 +2379,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -2285,7 +2396,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -2301,7 +2413,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -2317,7 +2430,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -2333,7 +2447,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -2349,7 +2464,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -2365,7 +2481,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -2381,7 +2498,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -2397,7 +2515,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -2413,7 +2532,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -2429,7 +2549,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -2445,7 +2566,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -2461,7 +2583,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -2477,7 +2600,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -2493,7 +2617,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -2509,7 +2634,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -2525,7 +2651,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -2541,7 +2668,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -2557,7 +2685,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -2573,7 +2702,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -2674,8 +2804,8 @@ UberModule ) ) ), Standalone - ( Nothing, Name "$kont477", Abs Nothing - ( ParamNamed Nothing ( Name "x1$478" ) ) + ( Nothing, Name "$kont477", AbsN Nothing + ( ParamNamed Nothing ( Name "x1$478" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -2685,7 +2815,8 @@ UberModule ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) ( Name "ask" ) ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -2698,7 +2829,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -2711,7 +2843,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -2727,7 +2860,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -2743,7 +2877,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -2759,7 +2894,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -2775,7 +2911,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -2791,7 +2928,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -2807,7 +2945,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -2823,7 +2962,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -2839,7 +2979,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -2855,7 +2996,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -2871,7 +3013,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -2887,7 +3030,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -2903,7 +3047,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -2919,7 +3064,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -2935,7 +3081,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -2951,7 +3098,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -2967,7 +3115,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -2983,7 +3132,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -2999,7 +3149,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -3015,7 +3166,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -3031,7 +3183,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -3047,7 +3200,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -3063,7 +3217,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -3079,7 +3234,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -3095,7 +3251,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -3111,7 +3268,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -3127,7 +3285,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -3143,7 +3302,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -3159,7 +3319,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -3175,7 +3336,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -3191,7 +3353,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -3207,7 +3370,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -3223,7 +3387,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -3239,7 +3404,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -3255,7 +3421,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -3271,7 +3438,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -3287,7 +3455,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -3303,7 +3472,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( Ref Nothing ( Local @@ -3408,8 +3578,8 @@ UberModule ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) ( Name "ask" ) ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x1" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x1" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -3419,7 +3589,8 @@ UberModule ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) ( Name "ask" ) ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -3429,7 +3600,8 @@ UberModule ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) ( Name "ask" ) ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -3442,7 +3614,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -3458,7 +3631,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -3474,7 +3648,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -3490,7 +3665,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -3506,7 +3682,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -3522,7 +3699,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -3538,7 +3716,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -3554,7 +3733,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -3570,7 +3750,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -3586,7 +3767,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -3602,7 +3784,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -3618,7 +3801,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -3634,7 +3818,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -3650,7 +3835,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -3666,7 +3852,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -3682,7 +3869,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -3698,7 +3886,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -3714,7 +3903,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -3730,7 +3920,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -3746,7 +3937,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -3762,7 +3954,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -3778,7 +3971,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -3794,7 +3988,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -3810,7 +4005,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -3826,7 +4022,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -3842,7 +4039,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -3858,7 +4056,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -3874,7 +4073,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -3890,7 +4090,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -3906,7 +4107,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -3922,7 +4124,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -3938,7 +4141,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -3954,7 +4158,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -3970,7 +4175,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -3986,7 +4192,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -4002,7 +4209,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -4018,7 +4226,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( Ref Nothing ( Local diff --git a/test/ps/output/Golden.LongStackBind.Test/golden.ir b/test/ps/output/Golden.LongStackBind.Test/golden.ir index 2f3c3cf8..4aa8ff90 100644 --- a/test/ps/output/Golden.LongStackBind.Test/golden.ir +++ b/test/ps/output/Golden.LongStackBind.Test/golden.ir @@ -41,12 +41,12 @@ UberModule { qnameModuleName = ModuleName "Control.Semigroupoid", qnameName = Name "semigroupoidFn" }, LiteralObject Nothing [ - ( PropName "compose", Abs Nothing - ( ParamNamed Nothing ( Name "f" ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "g" ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x" ) ) + ( PropName "compose", AbsN Nothing + ( ParamNamed Nothing ( Name "f" ) :| [] ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "g" ) :| [] ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x" ) :| [] ) ( AppN Nothing ( Ref Nothing ( Local ( Name "f" ) ) ) ( AppN Nothing @@ -61,34 +61,34 @@ UberModule ), Standalone ( QName { qnameModuleName = ModuleName "Control.Semigroupoid", qnameName = Name "compose" - }, Abs Nothing - ( ParamNamed Nothing ( Name "dict" ) ) + }, AbsN Nothing + ( ParamNamed Nothing ( Name "dict" ) :| [] ) ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "dict" ) ) ) ( PropName "compose" ) ) ), Standalone ( QName - { qnameModuleName = ModuleName "Data.Show", qnameName = Name "show" }, Abs Nothing - ( ParamNamed Nothing ( Name "dict" ) ) + { qnameModuleName = ModuleName "Data.Show", qnameName = Name "show" }, AbsN Nothing + ( ParamNamed Nothing ( Name "dict" ) :| [] ) ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "dict" ) ) ) ( PropName "show" ) ) ), Standalone ( QName - { qnameModuleName = ModuleName "Data.Functor", qnameName = Name "map" }, Abs Nothing - ( ParamNamed Nothing ( Name "dict" ) ) + { qnameModuleName = ModuleName "Data.Functor", qnameName = Name "map" }, AbsN Nothing + ( ParamNamed Nothing ( Name "dict" ) :| [] ) ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "dict" ) ) ) ( PropName "map" ) ) ), Standalone ( QName { qnameModuleName = ModuleName "Control.Applicative", qnameName = Name "pure" - }, Abs Nothing - ( ParamNamed Nothing ( Name "dict" ) ) + }, AbsN Nothing + ( ParamNamed Nothing ( Name "dict" ) :| [] ) ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "dict" ) ) ) ( PropName "pure" ) ) ), Standalone ( QName - { qnameModuleName = ModuleName "Control.Bind", qnameName = Name "bind" }, Abs Nothing - ( ParamNamed Nothing ( Name "dict" ) ) + { qnameModuleName = ModuleName "Control.Bind", qnameName = Name "bind" }, AbsN Nothing + ( ParamNamed Nothing ( Name "dict" ) :| [] ) ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "dict" ) ) ) ( PropName "bind" ) ) ), Standalone ( QName - { qnameModuleName = ModuleName "Control.Monad", qnameName = Name "ap" }, Abs Nothing - ( ParamNamed Nothing ( Name "dictMonad" ) ) + { qnameModuleName = ModuleName "Control.Monad", qnameName = Name "ap" }, AbsN Nothing + ( ParamNamed Nothing ( Name "dictMonad" ) :| [] ) ( Let Nothing ( Standalone ( Nothing, Name "bind", AppN Nothing @@ -102,24 +102,24 @@ UberModule ) ) :| [] ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "f" ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "a" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "f" ) :| [] ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "a" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing ( Local ( Name "bind" ) ) ) ( Ref Nothing ( Local ( Name "f" ) ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "f'" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "f'" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing ( Local ( Name "bind" ) ) ) ( Ref Nothing ( Local ( Name "a" ) ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "a'" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "a'" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -176,10 +176,10 @@ UberModule { qnameModuleName = ModuleName "Data.Identity", qnameName = Name "functorIdentity" }, LiteralObject Nothing [ - ( PropName "map", Abs Nothing - ( ParamNamed Nothing ( Name "f" ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "m" ) ) + ( PropName "map", AbsN Nothing + ( ParamNamed Nothing ( Name "f" ) :| [] ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "m" ) :| [] ) ( AppN Nothing ( Ref Nothing ( Local ( Name "f" ) ) ) ( Ref Nothing ( Local ( Name "m" ) ) :| [] ) @@ -192,25 +192,26 @@ UberModule { qnameModuleName = ModuleName "Data.Identity", qnameName = Name "applyIdentity" }, LiteralObject Nothing [ - ( PropName "apply", Abs Nothing - ( ParamNamed Nothing ( Name "v" ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "v1" ) ) + ( PropName "apply", AbsN Nothing + ( ParamNamed Nothing ( Name "v" ) :| [] ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "v1" ) :| [] ) ( AppN Nothing ( Ref Nothing ( Local ( Name "v" ) ) ) ( Ref Nothing ( Local ( Name "v1" ) ) :| [] ) ) ) ), - ( PropName "Functor0", Abs Nothing ( ParamUnused Nothing ) + ( PropName "Functor0", AbsN Nothing + ( ParamUnused Nothing :| [] ) ( Ref Nothing ( Imported ( ModuleName "Data.Identity" ) ( Name "functorIdentity" ) ) ) ) ] ), Standalone ( QName { qnameModuleName = ModuleName "Control.Monad.State.Class", qnameName = Name "state" - }, Abs Nothing - ( ParamNamed Nothing ( Name "dict" ) ) + }, AbsN Nothing + ( ParamNamed Nothing ( Name "dict" ) :| [] ) ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "dict" ) ) ) ( PropName "state" ) ) ), Standalone ( QName @@ -223,14 +224,14 @@ UberModule ), Standalone ( QName { qnameModuleName = ModuleName "Control.Monad.Except.Trans", qnameName = Name "functorExceptT" - }, Abs Nothing - ( ParamNamed Nothing ( Name "dictFunctor" ) ) + }, AbsN Nothing + ( ParamNamed Nothing ( Name "dictFunctor" ) :| [] ) ( LiteralObject Nothing [ - ( PropName "map", Abs Nothing - ( ParamNamed Nothing ( Name "f" ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "v$542" ) ) + ( PropName "map", AbsN Nothing + ( ParamNamed Nothing ( Name "f" ) :| [] ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "v$542" ) :| [] ) ( AppN Nothing ( AppN Nothing ( AppN Nothing @@ -242,10 +243,10 @@ UberModule ( Ref Nothing ( Imported ( ModuleName "Data.Functor" ) ( Name "map" ) ) ) ( LiteralObject Nothing [ - ( PropName "map", Abs Nothing - ( ParamNamed Nothing ( Name "f$551" ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "m$552" ) ) + ( PropName "map", AbsN Nothing + ( ParamNamed Nothing ( Name "f$551" ) :| [] ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "m$552" ) :| [] ) ( IfThenElse Nothing ( Eq Nothing ( LiteralString Nothing "Data.Either∷Either.Left" ) @@ -302,11 +303,12 @@ UberModule ( ( QName { qnameModuleName = ModuleName "Control.Monad.Except.Trans", qnameName = Name "monadExceptT" - }, Abs Nothing - ( ParamNamed Nothing ( Name "dictMonad" ) ) + }, AbsN Nothing + ( ParamNamed Nothing ( Name "dictMonad" ) :| [] ) ( LiteralObject Nothing [ - ( PropName "Applicative0", Abs Nothing ( ParamUnused Nothing ) + ( PropName "Applicative0", AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( Ref Nothing ( Imported @@ -317,7 +319,8 @@ UberModule ( Ref Nothing ( Local ( Name "dictMonad" ) ) :| [] ) ) ), - ( PropName "Bind1", Abs Nothing ( ParamUnused Nothing ) + ( PropName "Bind1", AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Control.Monad.Except.Trans" ) ( Name "bindExceptT" ) ) @@ -331,14 +334,14 @@ UberModule [ ( QName { qnameModuleName = ModuleName "Control.Monad.Except.Trans", qnameName = Name "bindExceptT" - }, Abs Nothing - ( ParamNamed Nothing ( Name "dictMonad" ) ) + }, AbsN Nothing + ( ParamNamed Nothing ( Name "dictMonad" ) :| [] ) ( LiteralObject Nothing [ - ( PropName "bind", Abs Nothing - ( ParamNamed Nothing ( Name "v" ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "k" ) ) + ( PropName "bind", AbsN Nothing + ( ParamNamed Nothing ( Name "v" ) :| [] ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "k" ) :| [] ) ( AppN Nothing ( AppN Nothing ( AppN Nothing @@ -357,8 +360,8 @@ UberModule ) ( Ref Nothing ( Local ( Name "v" ) ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "v2$550" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "v2$550" ) :| [] ) ( IfThenElse Nothing ( Eq Nothing ( LiteralString Nothing "Data.Either∷Either.Left" ) @@ -419,7 +422,8 @@ UberModule ) ) ), - ( PropName "Apply0", Abs Nothing ( ParamUnused Nothing ) + ( PropName "Apply0", AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( Ref Nothing ( Imported @@ -435,8 +439,8 @@ UberModule ), ( QName { qnameModuleName = ModuleName "Control.Monad.Except.Trans", qnameName = Name "applyExceptT" - }, Abs Nothing - ( ParamNamed Nothing ( Name "dictMonad" ) ) + }, AbsN Nothing + ( ParamNamed Nothing ( Name "dictMonad" ) :| [] ) ( LiteralObject Nothing [ ( PropName "apply", AppN Nothing @@ -451,7 +455,8 @@ UberModule ( Ref Nothing ( Local ( Name "dictMonad" ) ) :| [] ) :| [] ) ), - ( PropName "Functor0", Abs Nothing ( ParamUnused Nothing ) + ( PropName "Functor0", AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( Ref Nothing ( Imported @@ -491,8 +496,8 @@ UberModule ), ( QName { qnameModuleName = ModuleName "Control.Monad.Except.Trans", qnameName = Name "applicativeExceptT" - }, Abs Nothing - ( ParamNamed Nothing ( Name "dictMonad" ) ) + }, AbsN Nothing + ( ParamNamed Nothing ( Name "dictMonad" ) :| [] ) ( LiteralObject Nothing [ ( PropName "pure", AppN Nothing @@ -500,8 +505,8 @@ UberModule ( Ref Nothing ( Imported ( ModuleName "Control.Monad.Except.Trans" ) ( Name "compose" ) ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x$543" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x$543" ) :| [] ) ( Ref Nothing ( Local ( Name "x$543" ) ) ) :| [] ) ) @@ -530,7 +535,8 @@ UberModule ) :| [] ) ), - ( PropName "Apply0", Abs Nothing ( ParamUnused Nothing ) + ( PropName "Apply0", AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( Ref Nothing ( Imported @@ -549,11 +555,12 @@ UberModule ( ( QName { qnameModuleName = ModuleName "Control.Monad.State.Trans", qnameName = Name "monadStateT" - }, Abs Nothing - ( ParamNamed Nothing ( Name "dictMonad" ) ) + }, AbsN Nothing + ( ParamNamed Nothing ( Name "dictMonad" ) :| [] ) ( LiteralObject Nothing [ - ( PropName "Applicative0", Abs Nothing ( ParamUnused Nothing ) + ( PropName "Applicative0", AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( Ref Nothing ( Imported @@ -564,7 +571,8 @@ UberModule ( Ref Nothing ( Local ( Name "dictMonad" ) ) :| [] ) ) ), - ( PropName "Bind1", Abs Nothing ( ParamUnused Nothing ) + ( PropName "Bind1", AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Control.Monad.State.Trans" ) ( Name "bindStateT" ) ) @@ -578,16 +586,16 @@ UberModule [ ( QName { qnameModuleName = ModuleName "Control.Monad.State.Trans", qnameName = Name "bindStateT" - }, Abs Nothing - ( ParamNamed Nothing ( Name "dictMonad" ) ) + }, AbsN Nothing + ( ParamNamed Nothing ( Name "dictMonad" ) :| [] ) ( LiteralObject Nothing [ - ( PropName "bind", Abs Nothing - ( ParamNamed Nothing ( Name "v" ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "f" ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "s" ) ) + ( PropName "bind", AbsN Nothing + ( ParamNamed Nothing ( Name "v" ) :| [] ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "f" ) :| [] ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "s" ) :| [] ) ( AppN Nothing ( AppN Nothing ( AppN Nothing @@ -609,8 +617,8 @@ UberModule ( Ref Nothing ( Local ( Name "s" ) ) :| [] ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "v1" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "v1" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing ( Local ( Name "f" ) ) ) @@ -629,7 +637,8 @@ UberModule ) ) ), - ( PropName "Apply0", Abs Nothing ( ParamUnused Nothing ) + ( PropName "Apply0", AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Control.Monad.State.Trans" ) ( Name "applyStateT" ) ) @@ -642,8 +651,8 @@ UberModule ), ( QName { qnameModuleName = ModuleName "Control.Monad.State.Trans", qnameName = Name "applyStateT" - }, Abs Nothing - ( ParamNamed Nothing ( Name "dictMonad" ) ) + }, AbsN Nothing + ( ParamNamed Nothing ( Name "dictMonad" ) :| [] ) ( LiteralObject Nothing [ ( PropName "apply", AppN Nothing @@ -655,15 +664,16 @@ UberModule ( Ref Nothing ( Local ( Name "dictMonad" ) ) :| [] ) :| [] ) ), - ( PropName "Functor0", Abs Nothing ( ParamUnused Nothing ) + ( PropName "Functor0", AbsN Nothing + ( ParamUnused Nothing :| [] ) ( LiteralObject Nothing [ - ( PropName "map", Abs Nothing - ( ParamNamed Nothing ( Name "f$537" ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "v$538" ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "s$539" ) ) + ( PropName "map", AbsN Nothing + ( ParamNamed Nothing ( Name "f$537" ) :| [] ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "v$538" ) :| [] ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "s$539" ) :| [] ) ( AppN Nothing ( AppN Nothing ( AppN Nothing @@ -702,8 +712,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "v1$540" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "v1$540" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -740,14 +750,14 @@ UberModule ), ( QName { qnameModuleName = ModuleName "Control.Monad.State.Trans", qnameName = Name "applicativeStateT" - }, Abs Nothing - ( ParamNamed Nothing ( Name "dictMonad" ) ) + }, AbsN Nothing + ( ParamNamed Nothing ( Name "dictMonad" ) :| [] ) ( LiteralObject Nothing [ - ( PropName "pure", Abs Nothing - ( ParamNamed Nothing ( Name "a" ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "s" ) ) + ( PropName "pure", AbsN Nothing + ( ParamNamed Nothing ( Name "a" ) :| [] ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "s" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -773,7 +783,8 @@ UberModule ) ) ), - ( PropName "Apply0", Abs Nothing ( ParamUnused Nothing ) + ( PropName "Apply0", AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Control.Monad.State.Trans" ) ( Name "applyStateT" ) ) @@ -794,14 +805,16 @@ UberModule ) ( LiteralObject Nothing [ - ( PropName "Applicative0", Abs Nothing ( ParamUnused Nothing ) + ( PropName "Applicative0", AbsN Nothing + ( ParamUnused Nothing :| [] ) ( LiteralObject Nothing [ - ( PropName "pure", Abs Nothing - ( ParamNamed Nothing ( Name "x$546" ) ) + ( PropName "pure", AbsN Nothing + ( ParamNamed Nothing ( Name "x$546" ) :| [] ) ( Ref Nothing ( Local ( Name "x$546" ) ) ) ), - ( PropName "Apply0", Abs Nothing ( ParamUnused Nothing ) + ( PropName "Apply0", AbsN Nothing + ( ParamUnused Nothing :| [] ) ( Ref Nothing ( Imported ( ModuleName "Data.Identity" ) ( Name "applyIdentity" ) ) ) @@ -809,20 +822,22 @@ UberModule ] ) ), - ( PropName "Bind1", Abs Nothing ( ParamUnused Nothing ) + ( PropName "Bind1", AbsN Nothing + ( ParamUnused Nothing :| [] ) ( LiteralObject Nothing [ - ( PropName "bind", Abs Nothing - ( ParamNamed Nothing ( Name "v$128$544" ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "f$129$545" ) ) + ( PropName "bind", AbsN Nothing + ( ParamNamed Nothing ( Name "v$128$544" ) :| [] ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "f$129$545" ) :| [] ) ( AppN Nothing ( Ref Nothing ( Local ( Name "f$129$545" ) ) ) ( Ref Nothing ( Local ( Name "v$128$544" ) ) :| [] ) ) ) ), - ( PropName "Apply0", Abs Nothing ( ParamUnused Nothing ) + ( PropName "Apply0", AbsN Nothing + ( ParamUnused Nothing :| [] ) ( Ref Nothing ( Imported ( ModuleName "Data.Identity" ) ( Name "applyIdentity" ) ) ) @@ -855,8 +870,8 @@ UberModule { qnameModuleName = ModuleName "Golden.LongStackBind.Test", qnameName = Name "monadStateStateT" }, LiteralObject Nothing [ - ( PropName "state", Abs Nothing - ( ParamNamed Nothing ( Name "f$21" ) ) + ( PropName "state", AbsN Nothing + ( ParamNamed Nothing ( Name "f$21" ) :| [] ) ( AppN Nothing ( AppN Nothing ( AppN Nothing @@ -891,7 +906,8 @@ UberModule ( Ref Nothing ( Local ( Name "f$21" ) ) :| [] ) ) ), - ( PropName "Monad0", Abs Nothing ( ParamUnused Nothing ) + ( PropName "Monad0", AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Control.Monad.State.Trans" ) ( Name "monadStateT" ) ) @@ -918,8 +934,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "s$106" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "s$106" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Tuple" ) ( Name "Tuple" ) ) ) @@ -939,8 +955,8 @@ UberModule ), Standalone ( QName { qnameModuleName = ModuleName "Golden.LongStackBind.Test", qnameName = Name "put" - }, Abs Nothing - ( ParamNamed Nothing ( Name "s$109" ) ) + }, AbsN Nothing + ( ParamNamed Nothing ( Name "s$109" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -953,7 +969,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Tuple" ) ( Name "Tuple" ) ) ) @@ -971,8 +988,8 @@ UberModule { qnameModuleName = ModuleName "Golden.LongStackBind.Test", qnameName = Name "go" }, Let Nothing ( Standalone - ( Nothing, Name "$kont558", Abs Nothing - ( ParamNamed Nothing ( Name "x1$559" ) ) + ( Nothing, Name "$kont558", AbsN Nothing + ( ParamNamed Nothing ( Name "x1$559" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -982,8 +999,8 @@ UberModule ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "get" ) ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x141" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x141" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -1007,7 +1024,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -1020,8 +1038,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x142" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x142" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -1051,7 +1069,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -1067,8 +1086,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x143" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x143" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -1101,7 +1120,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -1117,8 +1137,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x144" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x144" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -1151,7 +1171,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -1167,8 +1188,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x145" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x145" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -1203,7 +1224,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -1219,8 +1241,10 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x146" ) ) + ( AbsN Nothing + ( ParamNamed Nothing + ( Name "x146" ) :| [] + ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -1255,7 +1279,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -1271,9 +1296,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x147" ) + ( Name "x147" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -1311,7 +1336,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -1327,9 +1353,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x148" ) + ( Name "x148" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -1367,7 +1393,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -1383,9 +1410,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x149" ) + ( Name "x149" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -1423,7 +1450,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -1439,9 +1467,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x150" ) + ( Name "x150" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -1479,7 +1507,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -1495,9 +1524,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "final" ) + ( Name "final" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -1590,8 +1619,8 @@ UberModule ) ) :| [ Standalone - ( Nothing, Name "$kont560", Abs Nothing - ( ParamNamed Nothing ( Name "x1$561" ) ) + ( Nothing, Name "$kont560", AbsN Nothing + ( ParamNamed Nothing ( Name "x1$561" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -1601,8 +1630,8 @@ UberModule ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "get" ) ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x121" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x121" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -1626,7 +1655,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -1639,8 +1669,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x122" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x122" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -1673,7 +1703,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -1689,8 +1720,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x123" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x123" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -1723,7 +1754,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -1739,8 +1771,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x124" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x124" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -1773,7 +1805,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -1789,8 +1822,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x125" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x125" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -1825,7 +1858,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -1841,8 +1875,10 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x126" ) ) + ( AbsN Nothing + ( ParamNamed Nothing + ( Name "x126" ) :| [] + ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -1879,7 +1915,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -1895,9 +1932,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x127" ) + ( Name "x127" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -1935,7 +1972,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -1951,9 +1989,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x128" ) + ( Name "x128" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -1991,7 +2029,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -2007,9 +2046,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x129" ) + ( Name "x129" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -2047,7 +2086,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -2063,9 +2103,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x130" ) + ( Name "x130" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -2103,7 +2143,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -2119,9 +2160,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x131" ) + ( Name "x131" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -2159,7 +2200,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -2175,9 +2217,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x132" ) + ( Name "x132" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -2215,7 +2257,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -2231,9 +2274,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x133" ) + ( Name "x133" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -2271,7 +2314,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -2287,9 +2331,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x134" ) + ( Name "x134" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -2327,7 +2371,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -2343,9 +2388,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x135" ) + ( Name "x135" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -2383,7 +2428,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -2399,9 +2445,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x136" ) + ( Name "x136" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -2439,7 +2485,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -2455,9 +2502,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x137" ) + ( Name "x137" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -2495,7 +2542,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -2511,9 +2559,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x138" ) + ( Name "x138" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -2551,7 +2599,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -2567,9 +2616,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x139" ) + ( Name "x139" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -2607,7 +2656,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -2623,9 +2673,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x140" ) + ( Name "x140" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -2663,7 +2713,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( Ref Nothing ( Local @@ -2757,8 +2808,8 @@ UberModule ) ) ), Standalone - ( Nothing, Name "$kont562", Abs Nothing - ( ParamNamed Nothing ( Name "x1$563" ) ) + ( Nothing, Name "$kont562", AbsN Nothing + ( ParamNamed Nothing ( Name "x1$563" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -2768,8 +2819,8 @@ UberModule ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "get" ) ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x101" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x101" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -2793,7 +2844,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -2806,8 +2858,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x102" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x102" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -2840,7 +2892,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -2856,8 +2909,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x103" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x103" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -2890,7 +2943,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -2906,8 +2960,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x104" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x104" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -2940,7 +2994,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -2956,8 +3011,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x105" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x105" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -2992,7 +3047,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -3008,8 +3064,10 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x106" ) ) + ( AbsN Nothing + ( ParamNamed Nothing + ( Name "x106" ) :| [] + ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -3046,7 +3104,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -3062,9 +3121,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x107" ) + ( Name "x107" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -3102,7 +3161,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -3118,9 +3178,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x108" ) + ( Name "x108" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -3158,7 +3218,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -3174,9 +3235,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x109" ) + ( Name "x109" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -3214,7 +3275,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -3230,9 +3292,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x110" ) + ( Name "x110" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -3270,7 +3332,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -3286,9 +3349,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x111" ) + ( Name "x111" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -3326,7 +3389,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -3342,9 +3406,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x112" ) + ( Name "x112" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -3382,7 +3446,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -3398,9 +3463,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x113" ) + ( Name "x113" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -3438,7 +3503,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -3454,9 +3520,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x114" ) + ( Name "x114" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -3494,7 +3560,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -3510,9 +3577,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x115" ) + ( Name "x115" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -3550,7 +3617,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -3566,9 +3634,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x116" ) + ( Name "x116" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -3606,7 +3674,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -3622,9 +3691,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x117" ) + ( Name "x117" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -3662,7 +3731,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -3678,9 +3748,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x118" ) + ( Name "x118" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -3718,7 +3788,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -3734,9 +3805,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x119" ) + ( Name "x119" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -3774,7 +3845,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -3790,9 +3862,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x120" ) + ( Name "x120" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -3830,7 +3902,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( Ref Nothing ( Local @@ -3924,8 +3997,8 @@ UberModule ) ) ), Standalone - ( Nothing, Name "$kont564", Abs Nothing - ( ParamNamed Nothing ( Name "x1$565" ) ) + ( Nothing, Name "$kont564", AbsN Nothing + ( ParamNamed Nothing ( Name "x1$565" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -3935,8 +4008,8 @@ UberModule ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "get" ) ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x81" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x81" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -3960,7 +4033,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -3973,8 +4047,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x82" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x82" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -4007,7 +4081,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -4023,8 +4098,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x83" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x83" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -4057,7 +4132,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -4073,8 +4149,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x84" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x84" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -4107,7 +4183,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -4123,8 +4200,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x85" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x85" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -4159,7 +4236,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -4175,8 +4253,10 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x86" ) ) + ( AbsN Nothing + ( ParamNamed Nothing + ( Name "x86" ) :| [] + ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -4211,7 +4291,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -4227,9 +4308,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x87" ) + ( Name "x87" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -4267,7 +4348,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -4283,9 +4365,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x88" ) + ( Name "x88" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -4323,7 +4405,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -4339,9 +4422,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x89" ) + ( Name "x89" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -4379,7 +4462,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -4395,9 +4479,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x90" ) + ( Name "x90" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -4435,7 +4519,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -4451,9 +4536,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x91" ) + ( Name "x91" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -4491,7 +4576,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -4507,9 +4593,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x92" ) + ( Name "x92" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -4547,7 +4633,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -4563,9 +4650,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x93" ) + ( Name "x93" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -4603,7 +4690,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -4619,9 +4707,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x94" ) + ( Name "x94" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -4659,7 +4747,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -4675,9 +4764,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x95" ) + ( Name "x95" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -4715,7 +4804,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -4731,9 +4821,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x96" ) + ( Name "x96" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -4771,7 +4861,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -4787,9 +4878,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x97" ) + ( Name "x97" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -4827,7 +4918,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -4843,9 +4935,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x98" ) + ( Name "x98" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -4883,7 +4975,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -4899,9 +4992,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x99" ) + ( Name "x99" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -4939,7 +5032,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -4955,9 +5049,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x100" ) + ( Name "x100" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -4995,7 +5089,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( Ref Nothing ( Local @@ -5089,8 +5184,8 @@ UberModule ) ) ), Standalone - ( Nothing, Name "$kont566", Abs Nothing - ( ParamNamed Nothing ( Name "x1$567" ) ) + ( Nothing, Name "$kont566", AbsN Nothing + ( ParamNamed Nothing ( Name "x1$567" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -5100,8 +5195,8 @@ UberModule ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "get" ) ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x61" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x61" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -5125,7 +5220,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -5138,8 +5234,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x62" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x62" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -5172,7 +5268,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -5188,8 +5285,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x63" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x63" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -5222,7 +5319,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -5238,8 +5336,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x64" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x64" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -5272,7 +5370,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -5288,8 +5387,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x65" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x65" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -5324,7 +5423,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -5340,8 +5440,10 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x66" ) ) + ( AbsN Nothing + ( ParamNamed Nothing + ( Name "x66" ) :| [] + ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -5376,7 +5478,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -5392,9 +5495,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x67" ) + ( Name "x67" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -5432,7 +5535,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -5448,9 +5552,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x68" ) + ( Name "x68" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -5488,7 +5592,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -5504,9 +5609,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x69" ) + ( Name "x69" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -5544,7 +5649,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -5560,9 +5666,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x70" ) + ( Name "x70" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -5600,7 +5706,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -5616,9 +5723,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x71" ) + ( Name "x71" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -5656,7 +5763,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -5672,9 +5780,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x72" ) + ( Name "x72" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -5712,7 +5820,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -5728,9 +5837,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x73" ) + ( Name "x73" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -5768,7 +5877,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -5784,9 +5894,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x74" ) + ( Name "x74" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -5824,7 +5934,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -5840,9 +5951,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x75" ) + ( Name "x75" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -5880,7 +5991,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -5896,9 +6008,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x76" ) + ( Name "x76" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -5936,7 +6048,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -5952,9 +6065,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x77" ) + ( Name "x77" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -5992,7 +6105,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -6008,9 +6122,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x78" ) + ( Name "x78" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -6048,7 +6162,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -6064,9 +6179,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x79" ) + ( Name "x79" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -6104,7 +6219,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -6120,9 +6236,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x80" ) + ( Name "x80" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -6160,7 +6276,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( Ref Nothing ( Local @@ -6254,8 +6371,8 @@ UberModule ) ) ), Standalone - ( Nothing, Name "$kont568", Abs Nothing - ( ParamNamed Nothing ( Name "x1$569" ) ) + ( Nothing, Name "$kont568", AbsN Nothing + ( ParamNamed Nothing ( Name "x1$569" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -6265,8 +6382,8 @@ UberModule ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "get" ) ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x41" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x41" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -6290,7 +6407,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -6303,8 +6421,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x42" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x42" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -6337,7 +6455,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -6353,8 +6472,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x43" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x43" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -6387,7 +6506,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -6403,8 +6523,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x44" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x44" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -6437,7 +6557,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -6453,8 +6574,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x45" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x45" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -6489,7 +6610,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -6505,8 +6627,10 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x46" ) ) + ( AbsN Nothing + ( ParamNamed Nothing + ( Name "x46" ) :| [] + ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -6541,7 +6665,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -6557,9 +6682,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x47" ) + ( Name "x47" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -6597,7 +6722,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -6613,9 +6739,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x48" ) + ( Name "x48" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -6653,7 +6779,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -6669,9 +6796,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x49" ) + ( Name "x49" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -6709,7 +6836,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -6725,9 +6853,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x50" ) + ( Name "x50" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -6765,7 +6893,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -6781,9 +6910,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x51" ) + ( Name "x51" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -6821,7 +6950,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -6837,9 +6967,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x52" ) + ( Name "x52" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -6877,7 +7007,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -6893,9 +7024,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x53" ) + ( Name "x53" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -6933,7 +7064,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -6949,9 +7081,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x54" ) + ( Name "x54" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -6989,7 +7121,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -7005,9 +7138,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x55" ) + ( Name "x55" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -7045,7 +7178,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -7061,9 +7195,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x56" ) + ( Name "x56" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -7101,7 +7235,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -7117,9 +7252,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x57" ) + ( Name "x57" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -7157,7 +7292,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -7173,9 +7309,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x58" ) + ( Name "x58" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -7213,7 +7349,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -7229,9 +7366,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x59" ) + ( Name "x59" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -7269,7 +7406,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -7285,9 +7423,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x60" ) + ( Name "x60" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -7325,7 +7463,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( Ref Nothing ( Local @@ -7419,8 +7558,8 @@ UberModule ) ) ), Standalone - ( Nothing, Name "$kont570", Abs Nothing - ( ParamNamed Nothing ( Name "x1$571" ) ) + ( Nothing, Name "$kont570", AbsN Nothing + ( ParamNamed Nothing ( Name "x1$571" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -7430,8 +7569,8 @@ UberModule ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "get" ) ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x21" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x21" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -7455,7 +7594,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -7468,8 +7608,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x22" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x22" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -7502,7 +7642,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -7518,8 +7659,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x23" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x23" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -7552,7 +7693,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -7568,8 +7710,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x24" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x24" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -7602,7 +7744,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -7618,8 +7761,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x25" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x25" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -7654,7 +7797,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -7670,8 +7814,10 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x26" ) ) + ( AbsN Nothing + ( ParamNamed Nothing + ( Name "x26" ) :| [] + ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -7706,7 +7852,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -7722,9 +7869,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x27" ) + ( Name "x27" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -7762,7 +7909,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -7778,9 +7926,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x28" ) + ( Name "x28" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -7818,7 +7966,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -7834,9 +7983,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x29" ) + ( Name "x29" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -7874,7 +8023,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -7890,9 +8040,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x30" ) + ( Name "x30" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -7930,7 +8080,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -7946,9 +8097,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x31" ) + ( Name "x31" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -7986,7 +8137,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -8002,9 +8154,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x32" ) + ( Name "x32" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -8042,7 +8194,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -8058,9 +8211,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x33" ) + ( Name "x33" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -8098,7 +8251,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -8114,9 +8268,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x34" ) + ( Name "x34" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -8154,7 +8308,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -8170,9 +8325,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x35" ) + ( Name "x35" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -8210,7 +8365,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -8226,9 +8382,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x36" ) + ( Name "x36" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -8266,7 +8422,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -8282,9 +8439,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x37" ) + ( Name "x37" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -8322,7 +8479,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -8338,9 +8496,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x38" ) + ( Name "x38" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -8378,7 +8536,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -8394,9 +8553,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x39" ) + ( Name "x39" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -8434,7 +8593,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -8450,9 +8610,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x40" ) + ( Name "x40" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -8490,7 +8650,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( Ref Nothing ( Local @@ -8593,8 +8754,8 @@ UberModule ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "get" ) ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x1" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x1" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -8618,7 +8779,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -8628,8 +8790,8 @@ UberModule ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "get" ) ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x2" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x2" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -8653,7 +8815,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -8669,8 +8832,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x3" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x3" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -8703,7 +8866,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -8719,8 +8883,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x4" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x4" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -8753,7 +8917,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -8769,8 +8934,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x5" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x5" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -8803,7 +8968,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -8819,8 +8985,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x6" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x6" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -8855,7 +9021,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -8871,8 +9038,10 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x7" ) ) + ( AbsN Nothing + ( ParamNamed Nothing + ( Name "x7" ) :| [] + ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -8909,7 +9078,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -8925,9 +9095,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x8" ) + ( Name "x8" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -8965,7 +9135,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -8981,9 +9152,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x9" ) + ( Name "x9" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -9021,7 +9192,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -9037,9 +9209,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x10" ) + ( Name "x10" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -9077,7 +9249,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -9093,9 +9266,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x11" ) + ( Name "x11" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -9133,7 +9306,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -9149,9 +9323,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x12" ) + ( Name "x12" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -9189,7 +9363,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -9205,9 +9380,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x13" ) + ( Name "x13" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -9245,7 +9420,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -9261,9 +9437,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x14" ) + ( Name "x14" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -9301,7 +9477,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -9317,9 +9494,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x15" ) + ( Name "x15" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -9357,7 +9534,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -9373,9 +9551,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x16" ) + ( Name "x16" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -9413,7 +9591,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -9429,9 +9608,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x17" ) + ( Name "x17" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -9469,7 +9648,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -9485,9 +9665,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x18" ) + ( Name "x18" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -9525,7 +9705,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -9541,9 +9722,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x19" ) + ( Name "x19" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -9581,7 +9762,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -9597,9 +9779,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x20" ) + ( Name "x20" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -9637,7 +9819,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( Ref Nothing ( Local @@ -9747,8 +9930,8 @@ UberModule ( PropName "unsafeCoerce" ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "v$82" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "v$82" ) :| [] ) ( Ref Nothing ( Local ( Name "v$82" ) ) ) :| [] ) ) @@ -9765,8 +9948,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "v$547" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "v$547" ) :| [] ) ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "v$547" ) ) ) ( PropName "value0" ) @@ -9797,8 +9980,8 @@ UberModule ( Ref Nothing ( Imported ( ModuleName "Data.Show" ) ( Name "show" ) ) ) ( LiteralObject Nothing [ - ( PropName "show", Abs Nothing - ( ParamNamed Nothing ( Name "v$228$557" ) ) + ( PropName "show", AbsN Nothing + ( ParamNamed Nothing ( Name "v$228$557" ) :| [] ) ( IfThenElse Nothing ( Eq Nothing ( LiteralString Nothing "Data.Either∷Either.Left" ) diff --git a/test/ps/output/Golden.LongStateBind.Test/golden.ir b/test/ps/output/Golden.LongStateBind.Test/golden.ir index 63d61a2e..38900699 100644 --- a/test/ps/output/Golden.LongStateBind.Test/golden.ir +++ b/test/ps/output/Golden.LongStateBind.Test/golden.ir @@ -27,13 +27,13 @@ UberModule ), Standalone ( QName { qnameModuleName = ModuleName "Control.Applicative", qnameName = Name "pure" - }, Abs Nothing - ( ParamNamed Nothing ( Name "dict" ) ) + }, AbsN Nothing + ( ParamNamed Nothing ( Name "dict" ) :| [] ) ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "dict" ) ) ) ( PropName "pure" ) ) ), Standalone ( QName - { qnameModuleName = ModuleName "Control.Bind", qnameName = Name "bind" }, Abs Nothing - ( ParamNamed Nothing ( Name "dict" ) ) + { qnameModuleName = ModuleName "Control.Bind", qnameName = Name "bind" }, AbsN Nothing + ( ParamNamed Nothing ( Name "dict" ) :| [] ) ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "dict" ) ) ) ( PropName "bind" ) ) ), Standalone ( QName @@ -48,23 +48,24 @@ UberModule { qnameModuleName = ModuleName "Data.Identity", qnameName = Name "applyIdentity" }, LiteralObject Nothing [ - ( PropName "apply", Abs Nothing - ( ParamNamed Nothing ( Name "v" ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "v1" ) ) + ( PropName "apply", AbsN Nothing + ( ParamNamed Nothing ( Name "v" ) :| [] ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "v1" ) :| [] ) ( AppN Nothing ( Ref Nothing ( Local ( Name "v" ) ) ) ( Ref Nothing ( Local ( Name "v1" ) ) :| [] ) ) ) ), - ( PropName "Functor0", Abs Nothing ( ParamUnused Nothing ) + ( PropName "Functor0", AbsN Nothing + ( ParamUnused Nothing :| [] ) ( LiteralObject Nothing [ - ( PropName "map", Abs Nothing - ( ParamNamed Nothing ( Name "f$486" ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "m$487" ) ) + ( PropName "map", AbsN Nothing + ( ParamNamed Nothing ( Name "f$486" ) :| [] ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "m$487" ) :| [] ) ( AppN Nothing ( Ref Nothing ( Local ( Name "f$486" ) ) ) ( Ref Nothing ( Local ( Name "m$487" ) ) :| [] ) @@ -80,14 +81,16 @@ UberModule { qnameModuleName = ModuleName "Data.Identity", qnameName = Name "monadIdentity" }, LiteralObject Nothing [ - ( PropName "Applicative0", Abs Nothing ( ParamUnused Nothing ) + ( PropName "Applicative0", AbsN Nothing + ( ParamUnused Nothing :| [] ) ( LiteralObject Nothing [ - ( PropName "pure", Abs Nothing - ( ParamNamed Nothing ( Name "x$488" ) ) + ( PropName "pure", AbsN Nothing + ( ParamNamed Nothing ( Name "x$488" ) :| [] ) ( Ref Nothing ( Local ( Name "x$488" ) ) ) ), - ( PropName "Apply0", Abs Nothing ( ParamUnused Nothing ) + ( PropName "Apply0", AbsN Nothing + ( ParamUnused Nothing :| [] ) ( Ref Nothing ( Imported ( ModuleName "Data.Identity" ) ( Name "applyIdentity" ) ) ) @@ -95,20 +98,22 @@ UberModule ] ) ), - ( PropName "Bind1", Abs Nothing ( ParamUnused Nothing ) + ( PropName "Bind1", AbsN Nothing + ( ParamUnused Nothing :| [] ) ( LiteralObject Nothing [ - ( PropName "bind", Abs Nothing - ( ParamNamed Nothing ( Name "v$78" ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "f$79" ) ) + ( PropName "bind", AbsN Nothing + ( ParamNamed Nothing ( Name "v$78" ) :| [] ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "f$79" ) :| [] ) ( AppN Nothing ( Ref Nothing ( Local ( Name "f$79" ) ) ) ( Ref Nothing ( Local ( Name "v$78" ) ) :| [] ) ) ) ), - ( PropName "Apply0", Abs Nothing ( ParamUnused Nothing ) + ( PropName "Apply0", AbsN Nothing + ( ParamUnused Nothing :| [] ) ( Ref Nothing ( Imported ( ModuleName "Data.Identity" ) ( Name "applyIdentity" ) ) ) @@ -120,18 +125,19 @@ UberModule ), Standalone ( QName { qnameModuleName = ModuleName "Control.Monad.State.Class", qnameName = Name "state" - }, Abs Nothing - ( ParamNamed Nothing ( Name "dict" ) ) + }, AbsN Nothing + ( ParamNamed Nothing ( Name "dict" ) :| [] ) ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "dict" ) ) ) ( PropName "state" ) ) ), RecursiveGroup ( ( QName { qnameModuleName = ModuleName "Control.Monad.State.Trans", qnameName = Name "monadStateT" - }, Abs Nothing - ( ParamNamed Nothing ( Name "dictMonad" ) ) + }, AbsN Nothing + ( ParamNamed Nothing ( Name "dictMonad" ) :| [] ) ( LiteralObject Nothing [ - ( PropName "Applicative0", Abs Nothing ( ParamUnused Nothing ) + ( PropName "Applicative0", AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( Ref Nothing ( Imported @@ -142,7 +148,8 @@ UberModule ( Ref Nothing ( Local ( Name "dictMonad" ) ) :| [] ) ) ), - ( PropName "Bind1", Abs Nothing ( ParamUnused Nothing ) + ( PropName "Bind1", AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Control.Monad.State.Trans" ) ( Name "bindStateT" ) ) @@ -156,16 +163,16 @@ UberModule [ ( QName { qnameModuleName = ModuleName "Control.Monad.State.Trans", qnameName = Name "bindStateT" - }, Abs Nothing - ( ParamNamed Nothing ( Name "dictMonad" ) ) + }, AbsN Nothing + ( ParamNamed Nothing ( Name "dictMonad" ) :| [] ) ( LiteralObject Nothing [ - ( PropName "bind", Abs Nothing - ( ParamNamed Nothing ( Name "v" ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "f" ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "s" ) ) + ( PropName "bind", AbsN Nothing + ( ParamNamed Nothing ( Name "v" ) :| [] ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "f" ) :| [] ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "s" ) :| [] ) ( AppN Nothing ( AppN Nothing ( AppN Nothing @@ -187,8 +194,8 @@ UberModule ( Ref Nothing ( Local ( Name "s" ) ) :| [] ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "v1" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "v1" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing ( Local ( Name "f" ) ) ) @@ -207,7 +214,8 @@ UberModule ) ) ), - ( PropName "Apply0", Abs Nothing ( ParamUnused Nothing ) + ( PropName "Apply0", AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Control.Monad.State.Trans" ) ( Name "applyStateT" ) ) @@ -220,8 +228,8 @@ UberModule ), ( QName { qnameModuleName = ModuleName "Control.Monad.State.Trans", qnameName = Name "applyStateT" - }, Abs Nothing - ( ParamNamed Nothing ( Name "dictMonad" ) ) + }, AbsN Nothing + ( ParamNamed Nothing ( Name "dictMonad" ) :| [] ) ( LiteralObject Nothing [ ( PropName "apply", Let Nothing @@ -251,24 +259,24 @@ UberModule ) ) :| [] ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "f$491" ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "a$492" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "f$491" ) :| [] ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "a$492" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing ( Local ( Name "bind$490" ) ) ) ( Ref Nothing ( Local ( Name "f$491" ) ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "f'$493" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "f'$493" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing ( Local ( Name "bind$490" ) ) ) ( Ref Nothing ( Local ( Name "a$492" ) ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "a'$494" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "a'$494" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -303,15 +311,16 @@ UberModule ) ) ), - ( PropName "Functor0", Abs Nothing ( ParamUnused Nothing ) + ( PropName "Functor0", AbsN Nothing + ( ParamUnused Nothing :| [] ) ( LiteralObject Nothing [ - ( PropName "map", Abs Nothing - ( ParamNamed Nothing ( Name "f$482" ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "v$483" ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "s$484" ) ) + ( PropName "map", AbsN Nothing + ( ParamNamed Nothing ( Name "f$482" ) :| [] ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "v$483" ) :| [] ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "s$484" ) :| [] ) ( AppN Nothing ( AppN Nothing ( ObjectProp Nothing @@ -348,8 +357,8 @@ UberModule ) ( PropName "map" ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "v1$485" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "v1$485" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -386,14 +395,14 @@ UberModule ), ( QName { qnameModuleName = ModuleName "Control.Monad.State.Trans", qnameName = Name "applicativeStateT" - }, Abs Nothing - ( ParamNamed Nothing ( Name "dictMonad" ) ) + }, AbsN Nothing + ( ParamNamed Nothing ( Name "dictMonad" ) :| [] ) ( LiteralObject Nothing [ - ( PropName "pure", Abs Nothing - ( ParamNamed Nothing ( Name "a" ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "s" ) ) + ( PropName "pure", AbsN Nothing + ( ParamNamed Nothing ( Name "a" ) :| [] ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "s" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -419,7 +428,8 @@ UberModule ) ) ), - ( PropName "Apply0", Abs Nothing ( ParamUnused Nothing ) + ( PropName "Apply0", AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Control.Monad.State.Trans" ) ( Name "applyStateT" ) ) @@ -452,10 +462,10 @@ UberModule { qnameModuleName = ModuleName "Golden.LongStateBind.Test", qnameName = Name "monadStateStateT" }, LiteralObject Nothing [ - ( PropName "state", Abs Nothing - ( ParamNamed Nothing ( Name "f$27" ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x$503" ) ) + ( PropName "state", AbsN Nothing + ( ParamNamed Nothing ( Name "f$27" ) :| [] ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x$503" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Control.Applicative" ) ( Name "pure" ) ) ) @@ -478,7 +488,8 @@ UberModule ) ) ), - ( PropName "Monad0", Abs Nothing ( ParamUnused Nothing ) + ( PropName "Monad0", AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Control.Monad.State.Trans" ) ( Name "monadStateT" ) ) @@ -502,8 +513,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "s$54" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "s$54" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Tuple" ) ( Name "Tuple" ) ) ) @@ -523,8 +534,8 @@ UberModule ), Standalone ( QName { qnameModuleName = ModuleName "Golden.LongStateBind.Test", qnameName = Name "put" - }, Abs Nothing - ( ParamNamed Nothing ( Name "s$57" ) ) + }, AbsN Nothing + ( ParamNamed Nothing ( Name "s$57" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -537,7 +548,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Tuple" ) ( Name "Tuple" ) ) ) @@ -555,10 +567,10 @@ UberModule { qnameModuleName = ModuleName "Golden.LongStateBind.Test", qnameName = Name "go" }, Let Nothing ( Standalone - ( Nothing, Name "$kont504", Abs Nothing - ( ParamNamed Nothing ( Name "x1$505" ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x100$506" ) ) + ( Nothing, Name "$kont504", AbsN Nothing + ( ParamNamed Nothing ( Name "x1$505" ) :| [] ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x100$506" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -568,8 +580,8 @@ UberModule ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "get" ) ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x141" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x141" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -593,7 +605,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -606,8 +619,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x142" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x142" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -640,7 +653,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -656,8 +670,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x143" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x143" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -690,7 +704,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -706,8 +721,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x144" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x144" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -740,7 +755,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -756,8 +772,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x145" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x145" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -792,7 +808,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -808,8 +825,10 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x146" ) ) + ( AbsN Nothing + ( ParamNamed Nothing + ( Name "x146" ) :| [] + ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -846,7 +865,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -862,9 +882,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x147" ) + ( Name "x147" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -902,7 +922,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -918,9 +939,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x148" ) + ( Name "x148" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -958,7 +979,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -974,9 +996,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x149" ) + ( Name "x149" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -1014,7 +1036,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -1030,9 +1053,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x150" ) + ( Name "x150" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -1070,7 +1093,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -1086,9 +1110,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "final" ) + ( Name "final" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -1200,10 +1224,10 @@ UberModule ) ) :| [ Standalone - ( Nothing, Name "$kont507", Abs Nothing - ( ParamNamed Nothing ( Name "x1$508" ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x100$509" ) ) + ( Nothing, Name "$kont507", AbsN Nothing + ( ParamNamed Nothing ( Name "x1$508" ) :| [] ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x100$509" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -1213,8 +1237,8 @@ UberModule ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "get" ) ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x121" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x121" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -1238,7 +1262,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -1254,8 +1279,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x122" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x122" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -1288,7 +1313,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -1304,8 +1330,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x123" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x123" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -1338,7 +1364,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -1354,8 +1381,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x124" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x124" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -1390,7 +1417,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -1406,8 +1434,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x125" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x125" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -1442,7 +1470,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -1458,8 +1487,10 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x126" ) ) + ( AbsN Nothing + ( ParamNamed Nothing + ( Name "x126" ) :| [] + ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -1496,7 +1527,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -1512,9 +1544,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x127" ) + ( Name "x127" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -1552,7 +1584,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -1568,9 +1601,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x128" ) + ( Name "x128" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -1608,7 +1641,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -1624,9 +1658,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x129" ) + ( Name "x129" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -1664,7 +1698,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -1680,9 +1715,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x130" ) + ( Name "x130" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -1720,7 +1755,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -1736,9 +1772,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x131" ) + ( Name "x131" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -1776,7 +1812,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -1792,9 +1829,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x132" ) + ( Name "x132" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -1832,7 +1869,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -1848,9 +1886,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x133" ) + ( Name "x133" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -1888,7 +1926,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -1904,9 +1943,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x134" ) + ( Name "x134" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -1944,7 +1983,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -1960,9 +2000,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x135" ) + ( Name "x135" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -2000,7 +2040,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -2016,9 +2057,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x136" ) + ( Name "x136" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -2056,7 +2097,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -2072,9 +2114,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x137" ) + ( Name "x137" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -2112,7 +2154,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -2128,9 +2171,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x138" ) + ( Name "x138" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -2168,7 +2211,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -2184,9 +2228,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x139" ) + ( Name "x139" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -2224,7 +2268,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -2240,9 +2285,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x140" ) + ( Name "x140" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -2280,7 +2325,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -2382,10 +2428,10 @@ UberModule ) ) ), Standalone - ( Nothing, Name "$kont510", Abs Nothing - ( ParamNamed Nothing ( Name "x1$511" ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x100$512" ) ) + ( Nothing, Name "$kont510", AbsN Nothing + ( ParamNamed Nothing ( Name "x1$511" ) :| [] ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x100$512" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -2395,8 +2441,8 @@ UberModule ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "get" ) ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x101" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x101" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -2420,7 +2466,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -2436,8 +2483,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x102" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x102" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -2470,7 +2517,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -2486,8 +2534,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x103" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x103" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -2520,7 +2568,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -2536,8 +2585,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x104" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x104" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -2572,7 +2621,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -2588,8 +2638,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x105" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x105" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -2624,7 +2674,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -2640,8 +2691,10 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x106" ) ) + ( AbsN Nothing + ( ParamNamed Nothing + ( Name "x106" ) :| [] + ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -2678,7 +2731,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -2694,9 +2748,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x107" ) + ( Name "x107" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -2734,7 +2788,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -2750,9 +2805,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x108" ) + ( Name "x108" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -2790,7 +2845,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -2806,9 +2862,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x109" ) + ( Name "x109" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -2846,7 +2902,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -2862,9 +2919,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x110" ) + ( Name "x110" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -2902,7 +2959,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -2918,9 +2976,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x111" ) + ( Name "x111" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -2958,7 +3016,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -2974,9 +3033,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x112" ) + ( Name "x112" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -3014,7 +3073,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -3030,9 +3090,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x113" ) + ( Name "x113" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -3070,7 +3130,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -3086,9 +3147,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x114" ) + ( Name "x114" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -3126,7 +3187,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -3142,9 +3204,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x115" ) + ( Name "x115" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -3182,7 +3244,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -3198,9 +3261,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x116" ) + ( Name "x116" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -3238,7 +3301,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -3254,9 +3318,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x117" ) + ( Name "x117" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -3294,7 +3358,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -3310,9 +3375,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x118" ) + ( Name "x118" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -3350,7 +3415,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -3366,9 +3432,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x119" ) + ( Name "x119" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -3406,7 +3472,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -3422,9 +3489,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x120" ) + ( Name "x120" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -3462,7 +3529,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -3564,8 +3632,8 @@ UberModule ) ) ), Standalone - ( Nothing, Name "$kont513", Abs Nothing - ( ParamNamed Nothing ( Name "x1$514" ) ) + ( Nothing, Name "$kont513", AbsN Nothing + ( ParamNamed Nothing ( Name "x1$514" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -3575,8 +3643,8 @@ UberModule ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "get" ) ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x81" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x81" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -3600,7 +3668,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -3613,8 +3682,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x82" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x82" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -3647,7 +3716,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -3663,8 +3733,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x83" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x83" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -3697,7 +3767,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -3713,8 +3784,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x84" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x84" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -3747,7 +3818,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -3763,8 +3835,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x85" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x85" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -3799,7 +3871,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -3815,8 +3888,10 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x86" ) ) + ( AbsN Nothing + ( ParamNamed Nothing + ( Name "x86" ) :| [] + ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -3851,7 +3926,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -3867,9 +3943,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x87" ) + ( Name "x87" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -3907,7 +3983,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -3923,9 +4000,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x88" ) + ( Name "x88" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -3963,7 +4040,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -3979,9 +4057,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x89" ) + ( Name "x89" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -4019,7 +4097,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -4035,9 +4114,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x90" ) + ( Name "x90" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -4075,7 +4154,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -4091,9 +4171,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x91" ) + ( Name "x91" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -4131,7 +4211,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -4147,9 +4228,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x92" ) + ( Name "x92" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -4187,7 +4268,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -4203,9 +4285,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x93" ) + ( Name "x93" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -4243,7 +4325,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -4259,9 +4342,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x94" ) + ( Name "x94" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -4299,7 +4382,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -4315,9 +4399,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x95" ) + ( Name "x95" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -4355,7 +4439,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -4371,9 +4456,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x96" ) + ( Name "x96" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -4411,7 +4496,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -4427,9 +4513,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x97" ) + ( Name "x97" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -4467,7 +4553,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -4483,9 +4570,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x98" ) + ( Name "x98" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -4523,7 +4610,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -4539,9 +4627,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x99" ) + ( Name "x99" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -4579,7 +4667,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -4595,9 +4684,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x100" ) + ( Name "x100" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -4635,7 +4724,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -4736,8 +4826,8 @@ UberModule ) ) ), Standalone - ( Nothing, Name "$kont515", Abs Nothing - ( ParamNamed Nothing ( Name "x1$516" ) ) + ( Nothing, Name "$kont515", AbsN Nothing + ( ParamNamed Nothing ( Name "x1$516" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -4747,8 +4837,8 @@ UberModule ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "get" ) ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x61" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x61" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -4772,7 +4862,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -4785,8 +4876,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x62" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x62" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -4819,7 +4910,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -4835,8 +4927,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x63" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x63" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -4869,7 +4961,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -4885,8 +4978,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x64" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x64" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -4919,7 +5012,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -4935,8 +5029,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x65" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x65" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -4971,7 +5065,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -4987,8 +5082,10 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x66" ) ) + ( AbsN Nothing + ( ParamNamed Nothing + ( Name "x66" ) :| [] + ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -5023,7 +5120,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -5039,9 +5137,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x67" ) + ( Name "x67" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -5079,7 +5177,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -5095,9 +5194,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x68" ) + ( Name "x68" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -5135,7 +5234,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -5151,9 +5251,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x69" ) + ( Name "x69" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -5191,7 +5291,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -5207,9 +5308,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x70" ) + ( Name "x70" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -5247,7 +5348,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -5263,9 +5365,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x71" ) + ( Name "x71" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -5303,7 +5405,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -5319,9 +5422,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x72" ) + ( Name "x72" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -5359,7 +5462,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -5375,9 +5479,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x73" ) + ( Name "x73" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -5415,7 +5519,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -5431,9 +5536,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x74" ) + ( Name "x74" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -5471,7 +5576,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -5487,9 +5593,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x75" ) + ( Name "x75" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -5527,7 +5633,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -5543,9 +5650,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x76" ) + ( Name "x76" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -5583,7 +5690,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -5599,9 +5707,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x77" ) + ( Name "x77" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -5639,7 +5747,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -5655,9 +5764,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x78" ) + ( Name "x78" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -5695,7 +5804,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -5711,9 +5821,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x79" ) + ( Name "x79" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -5751,7 +5861,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -5767,9 +5878,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x80" ) + ( Name "x80" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -5807,7 +5918,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( Ref Nothing ( Local @@ -5901,8 +6013,8 @@ UberModule ) ) ), Standalone - ( Nothing, Name "$kont517", Abs Nothing - ( ParamNamed Nothing ( Name "x1$518" ) ) + ( Nothing, Name "$kont517", AbsN Nothing + ( ParamNamed Nothing ( Name "x1$518" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -5912,8 +6024,8 @@ UberModule ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "get" ) ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x41" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x41" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -5937,7 +6049,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -5950,8 +6063,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x42" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x42" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -5984,7 +6097,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -6000,8 +6114,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x43" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x43" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -6034,7 +6148,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -6050,8 +6165,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x44" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x44" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -6084,7 +6199,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -6100,8 +6216,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x45" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x45" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -6136,7 +6252,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -6152,8 +6269,10 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x46" ) ) + ( AbsN Nothing + ( ParamNamed Nothing + ( Name "x46" ) :| [] + ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -6188,7 +6307,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -6204,9 +6324,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x47" ) + ( Name "x47" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -6244,7 +6364,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -6260,9 +6381,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x48" ) + ( Name "x48" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -6300,7 +6421,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -6316,9 +6438,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x49" ) + ( Name "x49" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -6356,7 +6478,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -6372,9 +6495,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x50" ) + ( Name "x50" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -6412,7 +6535,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -6428,9 +6552,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x51" ) + ( Name "x51" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -6468,7 +6592,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -6484,9 +6609,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x52" ) + ( Name "x52" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -6524,7 +6649,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -6540,9 +6666,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x53" ) + ( Name "x53" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -6580,7 +6706,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -6596,9 +6723,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x54" ) + ( Name "x54" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -6636,7 +6763,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -6652,9 +6780,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x55" ) + ( Name "x55" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -6692,7 +6820,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -6708,9 +6837,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x56" ) + ( Name "x56" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -6748,7 +6877,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -6764,9 +6894,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x57" ) + ( Name "x57" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -6804,7 +6934,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -6820,9 +6951,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x58" ) + ( Name "x58" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -6860,7 +6991,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -6876,9 +7008,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x59" ) + ( Name "x59" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -6916,7 +7048,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -6932,9 +7065,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x60" ) + ( Name "x60" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -6972,7 +7105,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( Ref Nothing ( Local @@ -7066,8 +7200,8 @@ UberModule ) ) ), Standalone - ( Nothing, Name "$kont519", Abs Nothing - ( ParamNamed Nothing ( Name "x1$520" ) ) + ( Nothing, Name "$kont519", AbsN Nothing + ( ParamNamed Nothing ( Name "x1$520" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -7077,8 +7211,8 @@ UberModule ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "get" ) ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x21" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x21" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -7102,7 +7236,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -7115,8 +7250,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x22" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x22" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -7149,7 +7284,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -7165,8 +7301,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x23" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x23" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -7199,7 +7335,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -7215,8 +7352,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x24" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x24" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -7249,7 +7386,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -7265,8 +7403,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x25" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x25" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -7301,7 +7439,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -7317,8 +7456,10 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x26" ) ) + ( AbsN Nothing + ( ParamNamed Nothing + ( Name "x26" ) :| [] + ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -7353,7 +7494,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -7369,9 +7511,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x27" ) + ( Name "x27" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -7409,7 +7551,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -7425,9 +7568,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x28" ) + ( Name "x28" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -7465,7 +7608,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -7481,9 +7625,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x29" ) + ( Name "x29" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -7521,7 +7665,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -7537,9 +7682,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x30" ) + ( Name "x30" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -7577,7 +7722,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -7593,9 +7739,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x31" ) + ( Name "x31" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -7633,7 +7779,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -7649,9 +7796,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x32" ) + ( Name "x32" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -7689,7 +7836,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -7705,9 +7853,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x33" ) + ( Name "x33" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -7745,7 +7893,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -7761,9 +7910,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x34" ) + ( Name "x34" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -7801,7 +7950,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -7817,9 +7967,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x35" ) + ( Name "x35" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -7857,7 +8007,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -7873,9 +8024,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x36" ) + ( Name "x36" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -7913,7 +8064,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -7929,9 +8081,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x37" ) + ( Name "x37" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -7969,7 +8121,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -7985,9 +8138,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x38" ) + ( Name "x38" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -8025,7 +8178,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -8041,9 +8195,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x39" ) + ( Name "x39" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -8081,7 +8235,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -8097,9 +8252,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x40" ) + ( Name "x40" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -8137,7 +8292,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( Ref Nothing ( Local @@ -8240,8 +8396,8 @@ UberModule ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "get" ) ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x1" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x1" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -8265,7 +8421,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -8275,8 +8432,8 @@ UberModule ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "get" ) ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x2" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x2" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -8300,7 +8457,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -8316,8 +8474,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x3" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x3" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -8350,7 +8508,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -8366,8 +8525,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x4" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x4" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -8400,7 +8559,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -8416,8 +8576,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x5" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x5" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -8450,7 +8610,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -8466,8 +8627,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x6" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x6" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -8502,7 +8663,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -8518,8 +8680,10 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x7" ) ) + ( AbsN Nothing + ( ParamNamed Nothing + ( Name "x7" ) :| [] + ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -8556,7 +8720,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -8572,9 +8737,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x8" ) + ( Name "x8" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -8612,7 +8777,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -8628,9 +8794,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x9" ) + ( Name "x9" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -8668,7 +8834,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -8684,9 +8851,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x10" ) + ( Name "x10" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -8724,7 +8891,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -8740,9 +8908,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x11" ) + ( Name "x11" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -8780,7 +8948,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -8796,9 +8965,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x12" ) + ( Name "x12" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -8836,7 +9005,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -8852,9 +9022,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x13" ) + ( Name "x13" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -8892,7 +9062,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -8908,9 +9079,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x14" ) + ( Name "x14" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -8948,7 +9119,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -8964,9 +9136,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x15" ) + ( Name "x15" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -9004,7 +9176,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -9020,9 +9193,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x16" ) + ( Name "x16" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -9060,7 +9233,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -9076,9 +9250,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x17" ) + ( Name "x17" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -9116,7 +9290,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -9132,9 +9307,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x18" ) + ( Name "x18" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -9172,7 +9347,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -9188,9 +9364,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x19" ) + ( Name "x19" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -9228,7 +9404,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -9244,9 +9421,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x20" ) + ( Name "x20" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -9284,7 +9461,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( Ref Nothing ( Local diff --git a/test/ps/output/Golden.LongWriterBind.Test/golden.ir b/test/ps/output/Golden.LongWriterBind.Test/golden.ir index d9588b4b..8316cbc6 100644 --- a/test/ps/output/Golden.LongWriterBind.Test/golden.ir +++ b/test/ps/output/Golden.LongWriterBind.Test/golden.ir @@ -35,12 +35,12 @@ UberModule { qnameModuleName = ModuleName "Control.Semigroupoid", qnameName = Name "semigroupoidFn" }, LiteralObject Nothing [ - ( PropName "compose", Abs Nothing - ( ParamNamed Nothing ( Name "f" ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "g" ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x" ) ) + ( PropName "compose", AbsN Nothing + ( ParamNamed Nothing ( Name "f" ) :| [] ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "g" ) :| [] ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x" ) :| [] ) ( AppN Nothing ( Ref Nothing ( Local ( Name "f" ) ) ) ( AppN Nothing @@ -55,8 +55,8 @@ UberModule ), Standalone ( QName { qnameModuleName = ModuleName "Control.Semigroupoid", qnameName = Name "compose" - }, Abs Nothing - ( ParamNamed Nothing ( Name "dict" ) ) + }, AbsN Nothing + ( ParamNamed Nothing ( Name "dict" ) :| [] ) ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "dict" ) ) ) ( PropName "compose" ) ) ), Standalone ( QName @@ -70,24 +70,24 @@ UberModule ] ), Standalone ( QName - { qnameModuleName = ModuleName "Data.Semigroup", qnameName = Name "append" }, Abs Nothing - ( ParamNamed Nothing ( Name "dict" ) ) + { qnameModuleName = ModuleName "Data.Semigroup", qnameName = Name "append" }, AbsN Nothing + ( ParamNamed Nothing ( Name "dict" ) :| [] ) ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "dict" ) ) ) ( PropName "append" ) ) ), Standalone ( QName - { qnameModuleName = ModuleName "Data.Functor", qnameName = Name "map" }, Abs Nothing - ( ParamNamed Nothing ( Name "dict" ) ) + { qnameModuleName = ModuleName "Data.Functor", qnameName = Name "map" }, AbsN Nothing + ( ParamNamed Nothing ( Name "dict" ) :| [] ) ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "dict" ) ) ) ( PropName "map" ) ) ), Standalone ( QName { qnameModuleName = ModuleName "Control.Applicative", qnameName = Name "pure" - }, Abs Nothing - ( ParamNamed Nothing ( Name "dict" ) ) + }, AbsN Nothing + ( ParamNamed Nothing ( Name "dict" ) :| [] ) ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "dict" ) ) ) ( PropName "pure" ) ) ), Standalone ( QName - { qnameModuleName = ModuleName "Control.Bind", qnameName = Name "bind" }, Abs Nothing - ( ParamNamed Nothing ( Name "dict" ) ) + { qnameModuleName = ModuleName "Control.Bind", qnameName = Name "bind" }, AbsN Nothing + ( ParamNamed Nothing ( Name "dict" ) :| [] ) ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "dict" ) ) ) ( PropName "bind" ) ) ), Standalone ( QName @@ -95,7 +95,8 @@ UberModule }, LiteralObject Nothing [ ( PropName "mempty", LiteralArray Nothing [] ), - ( PropName "Semigroup0", Abs Nothing ( ParamUnused Nothing ) + ( PropName "Semigroup0", AbsN Nothing + ( ParamUnused Nothing :| [] ) ( Ref Nothing ( Imported ( ModuleName "Data.Semigroup" ) ( Name "semigroupArray" ) ) ) ) ] @@ -112,23 +113,24 @@ UberModule { qnameModuleName = ModuleName "Data.Identity", qnameName = Name "applyIdentity" }, LiteralObject Nothing [ - ( PropName "apply", Abs Nothing - ( ParamNamed Nothing ( Name "v" ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "v1" ) ) + ( PropName "apply", AbsN Nothing + ( ParamNamed Nothing ( Name "v" ) :| [] ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "v1" ) :| [] ) ( AppN Nothing ( Ref Nothing ( Local ( Name "v" ) ) ) ( Ref Nothing ( Local ( Name "v1" ) ) :| [] ) ) ) ), - ( PropName "Functor0", Abs Nothing ( ParamUnused Nothing ) + ( PropName "Functor0", AbsN Nothing + ( ParamUnused Nothing :| [] ) ( LiteralObject Nothing [ - ( PropName "map", Abs Nothing - ( ParamNamed Nothing ( Name "f$468" ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "m$469" ) ) + ( PropName "map", AbsN Nothing + ( ParamNamed Nothing ( Name "f$468" ) :| [] ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "m$469" ) :| [] ) ( AppN Nothing ( Ref Nothing ( Local ( Name "f$468" ) ) ) ( Ref Nothing ( Local ( Name "m$469" ) ) :| [] ) @@ -144,17 +146,18 @@ UberModule { qnameModuleName = ModuleName "Data.Identity", qnameName = Name "bindIdentity" }, LiteralObject Nothing [ - ( PropName "bind", Abs Nothing - ( ParamNamed Nothing ( Name "v" ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "f" ) ) + ( PropName "bind", AbsN Nothing + ( ParamNamed Nothing ( Name "v" ) :| [] ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "f" ) :| [] ) ( AppN Nothing ( Ref Nothing ( Local ( Name "f" ) ) ) ( Ref Nothing ( Local ( Name "v" ) ) :| [] ) ) ) ), - ( PropName "Apply0", Abs Nothing ( ParamUnused Nothing ) + ( PropName "Apply0", AbsN Nothing + ( ParamUnused Nothing :| [] ) ( Ref Nothing ( Imported ( ModuleName "Data.Identity" ) ( Name "applyIdentity" ) ) ) ) ] @@ -163,11 +166,12 @@ UberModule { qnameModuleName = ModuleName "Data.Identity", qnameName = Name "applicativeIdentity" }, LiteralObject Nothing [ - ( PropName "pure", Abs Nothing - ( ParamNamed Nothing ( Name "x$470" ) ) + ( PropName "pure", AbsN Nothing + ( ParamNamed Nothing ( Name "x$470" ) :| [] ) ( Ref Nothing ( Local ( Name "x$470" ) ) ) ), - ( PropName "Apply0", Abs Nothing ( ParamUnused Nothing ) + ( PropName "Apply0", AbsN Nothing + ( ParamUnused Nothing :| [] ) ( Ref Nothing ( Imported ( ModuleName "Data.Identity" ) ( Name "applyIdentity" ) ) ) ) ] @@ -181,320 +185,307 @@ UberModule ) ), Standalone ( QName - { qnameModuleName = ModuleName "Control.Monad.Writer.Trans", qnameName = Name "applyWriterT" - }, Abs Nothing - ( ParamNamed Nothing ( Name "dictSemigroup" ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "dictApply" ) ) - ( Let Nothing - ( Standalone - ( Nothing, Name "Functor0", AppN Nothing - ( ObjectProp Nothing - ( Ref Nothing ( Local ( Name "dictApply" ) ) ) - ( PropName "Functor0" ) - ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) - ) :| [] - ) - ( LiteralObject Nothing - [ - ( PropName "apply", Abs Nothing - ( ParamNamed Nothing ( Name "v" ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "v1" ) ) + { qnameModuleName = ModuleName "Control.Monad.Writer.Trans", qnameName = Name "applyWriterT$w" + }, AbsN Nothing + ( ParamNamed Nothing + ( Name "dictSemigroup" ) :| + [ ParamNamed Nothing ( Name "dictApply" ) ] + ) + ( Let Nothing + ( Standalone + ( Nothing, Name "Functor0", AppN Nothing + ( ObjectProp Nothing + ( Ref Nothing ( Local ( Name "dictApply" ) ) ) + ( PropName "Functor0" ) + ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ) :| [] + ) + ( LiteralObject Nothing + [ + ( PropName "apply", AbsN Nothing + ( ParamNamed Nothing ( Name "v" ) :| [] ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "v1" ) :| [] ) + ( AppN Nothing ( AppN Nothing + ( ObjectProp Nothing + ( Ref Nothing ( Local ( Name "dictApply" ) ) ) + ( PropName "apply" ) + ) ( AppN Nothing - ( ObjectProp Nothing - ( Ref Nothing ( Local ( Name "dictApply" ) ) ) - ( PropName "apply" ) - ) ( AppN Nothing ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Data.Functor" ) ( Name "map" ) ) - ) - ( Ref Nothing ( Local ( Name "Functor0" ) ) :| [] ) + ( Ref Nothing + ( Imported ( ModuleName "Data.Functor" ) ( Name "map" ) ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "v3$33" ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "v4$34" ) ) + ( Ref Nothing ( Local ( Name "Functor0" ) ) :| [] ) + ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "v3$33" ) :| [] ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "v4$34" ) :| [] ) + ( AppN Nothing ( AppN Nothing + ( Ref Nothing + ( Imported ( ModuleName "Data.Tuple" ) ( Name "Tuple" ) ) + ) ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Data.Tuple" ) ( Name "Tuple" ) ) - ) - ( AppN Nothing - ( ObjectProp Nothing - ( Ref Nothing ( Local ( Name "v3$33" ) ) ) - ( PropName "value0" ) - ) - ( ObjectProp Nothing - ( Ref Nothing ( Local ( Name "v4$34" ) ) ) - ( PropName "value0" ) :| [] - ) :| [] + ( ObjectProp Nothing + ( Ref Nothing ( Local ( Name "v3$33" ) ) ) + ( PropName "value0" ) ) + ( ObjectProp Nothing + ( Ref Nothing ( Local ( Name "v4$34" ) ) ) + ( PropName "value0" ) :| [] + ) :| [] ) + ) + ( AppN Nothing ( AppN Nothing ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semigroup" ) - ( Name "append" ) - ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Semigroup" ) + ( Name "append" ) ) - ( Ref Nothing ( Local ( Name "dictSemigroup" ) ) :| [] ) - ) - ( ObjectProp Nothing - ( Ref Nothing ( Local ( Name "v3$33" ) ) ) - ( PropName "value1" ) :| [] ) + ( Ref Nothing ( Local ( Name "dictSemigroup" ) ) :| [] ) ) ( ObjectProp Nothing - ( Ref Nothing ( Local ( Name "v4$34" ) ) ) + ( Ref Nothing ( Local ( Name "v3$33" ) ) ) ( PropName "value1" ) :| [] - ) :| [] + ) ) + ( ObjectProp Nothing + ( Ref Nothing ( Local ( Name "v4$34" ) ) ) + ( PropName "value1" ) :| [] + ) :| [] ) - ) :| [] - ) + ) + ) :| [] ) - ( Ref Nothing ( Local ( Name "v" ) ) :| [] ) :| [] ) + ( Ref Nothing ( Local ( Name "v" ) ) :| [] ) :| [] ) - ( Ref Nothing ( Local ( Name "v1" ) ) :| [] ) ) + ( Ref Nothing ( Local ( Name "v1" ) ) :| [] ) ) - ), - ( PropName "Functor0", Abs Nothing ( ParamUnused Nothing ) - ( LiteralObject Nothing - [ - ( PropName "map", Abs Nothing - ( ParamNamed Nothing ( Name "f$463" ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "v$466" ) ) + ) + ), + ( PropName "Functor0", AbsN Nothing + ( ParamUnused Nothing :| [] ) + ( LiteralObject Nothing + [ + ( PropName "map", AbsN Nothing + ( ParamNamed Nothing ( Name "f$463" ) :| [] ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "v$466" ) :| [] ) + ( AppN Nothing ( AppN Nothing ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Data.Functor" ) ( Name "map" ) ) - ) - ( Ref Nothing ( Local ( Name "Functor0" ) ) :| [] ) + ( Ref Nothing + ( Imported ( ModuleName "Data.Functor" ) ( Name "map" ) ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "v$464" ) ) + ( Ref Nothing ( Local ( Name "Functor0" ) ) :| [] ) + ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "v$464" ) :| [] ) + ( AppN Nothing ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Data.Tuple" ) ( Name "Tuple" ) ) - ) - ( AppN Nothing - ( Ref Nothing ( Local ( Name "f$463" ) ) ) - ( ObjectProp Nothing - ( Ref Nothing ( Local ( Name "v$464" ) ) ) - ( PropName "value0" ) :| [] - ) :| [] - ) + ( Ref Nothing + ( Imported ( ModuleName "Data.Tuple" ) ( Name "Tuple" ) ) ) - ( ObjectProp Nothing - ( Ref Nothing ( Local ( Name "v$464" ) ) ) - ( PropName "value1" ) :| [] + ( AppN Nothing + ( Ref Nothing ( Local ( Name "f$463" ) ) ) + ( ObjectProp Nothing + ( Ref Nothing ( Local ( Name "v$464" ) ) ) + ( PropName "value0" ) :| [] + ) :| [] ) - ) :| [] - ) + ) + ( ObjectProp Nothing + ( Ref Nothing ( Local ( Name "v$464" ) ) ) + ( PropName "value1" ) :| [] + ) + ) :| [] ) - ( Ref Nothing ( Local ( Name "v$466" ) ) :| [] ) ) + ( Ref Nothing ( Local ( Name "v$466" ) ) :| [] ) ) ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) ) ), Standalone ( QName - { qnameModuleName = ModuleName "Control.Monad.Writer.Trans", qnameName = Name "bindWriterT" - }, Abs Nothing - ( ParamNamed Nothing ( Name "dictSemigroup" ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "dictBind" ) ) - ( Let Nothing - ( Standalone - ( Nothing, Name "Apply0", AppN Nothing - ( ObjectProp Nothing - ( Ref Nothing ( Local ( Name "dictBind" ) ) ) - ( PropName "Apply0" ) - ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) - ) :| [] - ) - ( LiteralObject Nothing - [ - ( PropName "bind", Abs Nothing - ( ParamNamed Nothing ( Name "v" ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "k" ) ) + { qnameModuleName = ModuleName "Control.Monad.Writer.Trans", qnameName = Name "bindWriterT$w" + }, AbsN Nothing + ( ParamNamed Nothing + ( Name "dictSemigroup" ) :| + [ ParamNamed Nothing ( Name "dictBind" ) ] + ) + ( Let Nothing + ( Standalone + ( Nothing, Name "Apply0", AppN Nothing + ( ObjectProp Nothing + ( Ref Nothing ( Local ( Name "dictBind" ) ) ) + ( PropName "Apply0" ) + ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ) :| [] + ) + ( LiteralObject Nothing + [ + ( PropName "bind", AbsN Nothing + ( ParamNamed Nothing ( Name "v" ) :| [] ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "k" ) :| [] ) + ( AppN Nothing ( AppN Nothing ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Control.Bind" ) ( Name "bind" ) ) - ) - ( Ref Nothing ( Local ( Name "dictBind" ) ) :| [] ) - ) - ( Ref Nothing ( Local ( Name "v" ) ) :| [] ) + ( Ref Nothing ( Imported ( ModuleName "Control.Bind" ) ( Name "bind" ) ) ) + ( Ref Nothing ( Local ( Name "dictBind" ) ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "v1" ) ) + ( Ref Nothing ( Local ( Name "v" ) ) :| [] ) + ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "v1" ) :| [] ) + ( AppN Nothing ( AppN Nothing ( AppN Nothing + ( Ref Nothing + ( Imported ( ModuleName "Data.Functor" ) ( Name "map" ) ) + ) ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Data.Functor" ) ( Name "map" ) ) + ( ObjectProp Nothing + ( Ref Nothing ( Local ( Name "Apply0" ) ) ) + ( PropName "Functor0" ) ) + ( Ref Nothing + ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] + ) :| [] + ) + ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "v3" ) :| [] ) + ( AppN Nothing ( AppN Nothing + ( Ref Nothing + ( Imported ( ModuleName "Data.Tuple" ) ( Name "Tuple" ) ) + ) ( ObjectProp Nothing - ( Ref Nothing ( Local ( Name "Apply0" ) ) ) - ( PropName "Functor0" ) + ( Ref Nothing ( Local ( Name "v3" ) ) ) + ( PropName "value0" ) :| [] ) - ( Ref Nothing - ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] - ) :| [] ) - ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "v3" ) ) ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Data.Tuple" ) ( Name "Tuple" ) ) - ) - ( ObjectProp Nothing - ( Ref Nothing ( Local ( Name "v3" ) ) ) - ( PropName "value0" ) :| [] - ) - ) ( AppN Nothing ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semigroup" ) - ( Name "append" ) - ) - ) - ( Ref Nothing ( Local ( Name "dictSemigroup" ) ) :| [] ) - ) - ( ObjectProp Nothing - ( Ref Nothing ( Local ( Name "v1" ) ) ) - ( PropName "value1" ) :| [] + ( Ref Nothing + ( Imported ( ModuleName "Data.Semigroup" ) ( Name "append" ) ) ) + ( Ref Nothing ( Local ( Name "dictSemigroup" ) ) :| [] ) ) ( ObjectProp Nothing - ( Ref Nothing ( Local ( Name "v3" ) ) ) + ( Ref Nothing ( Local ( Name "v1" ) ) ) ( PropName "value1" ) :| [] - ) :| [] + ) ) - ) :| [] - ) - ) - ( AppN Nothing - ( Ref Nothing ( Local ( Name "k" ) ) ) - ( ObjectProp Nothing - ( Ref Nothing ( Local ( Name "v1" ) ) ) - ( PropName "value0" ) :| [] + ( ObjectProp Nothing + ( Ref Nothing ( Local ( Name "v3" ) ) ) + ( PropName "value1" ) :| [] + ) :| [] + ) ) :| [] ) - ) :| [] - ) + ) + ( AppN Nothing + ( Ref Nothing ( Local ( Name "k" ) ) ) + ( ObjectProp Nothing + ( Ref Nothing ( Local ( Name "v1" ) ) ) + ( PropName "value0" ) :| [] + ) :| [] + ) + ) :| [] ) ) - ), - ( PropName "Apply0", Abs Nothing ( ParamUnused Nothing ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Control.Monad.Writer.Trans" ) - ( Name "applyWriterT" ) - ) - ) - ( Ref Nothing ( Local ( Name "dictSemigroup" ) ) :| [] ) + ) + ), + ( PropName "Apply0", AbsN Nothing + ( ParamUnused Nothing :| [] ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Control.Monad.Writer.Trans" ) + ( Name "applyWriterT$w" ) ) - ( Ref Nothing ( Local ( Name "Apply0" ) ) :| [] ) + ) + ( Ref Nothing + ( Local ( Name "dictSemigroup" ) ) :| + [ Ref Nothing ( Local ( Name "Apply0" ) ) ] ) ) - ] - ) + ) + ] ) ) ), Standalone ( QName - { qnameModuleName = ModuleName "Control.Monad.Writer.Trans", qnameName = Name "applicativeWriterT" - }, Abs Nothing - ( ParamNamed Nothing ( Name "dictMonoid" ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "dictApplicative" ) ) - ( LiteralObject Nothing - [ - ( PropName "pure", Abs Nothing - ( ParamNamed Nothing ( Name "a" ) ) + { qnameModuleName = ModuleName "Control.Monad.Writer.Trans", qnameName = Name "applicativeWriterT$w" + }, AbsN Nothing + ( ParamNamed Nothing + ( Name "dictMonoid" ) :| + [ ParamNamed Nothing ( Name "dictApplicative" ) ] + ) + ( LiteralObject Nothing + [ + ( PropName "pure", AbsN Nothing + ( ParamNamed Nothing ( Name "a" ) :| [] ) + ( AppN Nothing + ( AppN Nothing + ( Ref Nothing ( Imported ( ModuleName "Control.Applicative" ) ( Name "pure" ) ) ) + ( Ref Nothing ( Local ( Name "dictApplicative" ) ) :| [] ) + ) ( AppN Nothing ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Control.Applicative" ) ( Name "pure" ) ) - ) - ( Ref Nothing ( Local ( Name "dictApplicative" ) ) :| [] ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing ( Imported ( ModuleName "Data.Tuple" ) ( Name "Tuple" ) ) ) - ( Ref Nothing ( Local ( Name "a" ) ) :| [] ) - ) - ( ObjectProp Nothing - ( Ref Nothing ( Local ( Name "dictMonoid" ) ) ) - ( PropName "mempty" ) :| [] - ) :| [] + ( Ref Nothing ( Imported ( ModuleName "Data.Tuple" ) ( Name "Tuple" ) ) ) + ( Ref Nothing ( Local ( Name "a" ) ) :| [] ) ) + ( ObjectProp Nothing + ( Ref Nothing ( Local ( Name "dictMonoid" ) ) ) + ( PropName "mempty" ) :| [] + ) :| [] + ) + ) + ), + ( PropName "Apply0", AbsN Nothing + ( ParamUnused Nothing :| [] ) + ( AppN Nothing + ( Ref Nothing + ( Imported ( ModuleName "Control.Monad.Writer.Trans" ) ( Name "applyWriterT$w" ) ) ) - ), - ( PropName "Apply0", Abs Nothing ( ParamUnused Nothing ) ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Control.Monad.Writer.Trans" ) - ( Name "applyWriterT" ) - ) - ) - ( AppN Nothing - ( ObjectProp Nothing - ( Ref Nothing ( Local ( Name "dictMonoid" ) ) ) - ( PropName "Semigroup0" ) - ) - ( Ref Nothing - ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] - ) :| [] - ) + ( ObjectProp Nothing + ( Ref Nothing ( Local ( Name "dictMonoid" ) ) ) + ( PropName "Semigroup0" ) ) - ( AppN Nothing + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) :| + [ 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" ) ) :| [] ) + ] ) ) - ] - ) + ) + ] ) ), Standalone ( QName @@ -502,16 +493,12 @@ UberModule }, AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Control.Bind" ) ( Name "bind" ) ) ) ( 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 "Control.Monad.Writer.Trans" ) ( Name "bindWriterT$w" ) ) ) ( Ref Nothing - ( Imported ( ModuleName "Data.Identity" ) ( Name "bindIdentity" ) ) :| [] + ( Imported ( ModuleName "Data.Semigroup" ) ( Name "semigroupArray" ) ) :| + [ Ref Nothing ( Imported ( ModuleName "Data.Identity" ) ( Name "bindIdentity" ) ) ] ) :| [] ) ), Standalone @@ -522,12 +509,14 @@ UberModule ( Standalone ( Nothing, Name "dictMonad$478", LiteralObject Nothing [ - ( PropName "Applicative0", Abs Nothing ( ParamUnused Nothing ) + ( PropName "Applicative0", AbsN Nothing + ( ParamUnused Nothing :| [] ) ( Ref Nothing ( Imported ( ModuleName "Data.Identity" ) ( Name "applicativeIdentity" ) ) ) ), - ( PropName "Bind1", Abs Nothing ( ParamUnused Nothing ) + ( PropName "Bind1", AbsN Nothing + ( ParamUnused Nothing :| [] ) ( Ref Nothing ( Imported ( ModuleName "Data.Identity" ) ( Name "bindIdentity" ) ) ) @@ -542,8 +531,8 @@ UberModule ( Ref Nothing ( Imported ( ModuleName "Control.Monad.Writer.Trans" ) ( Name "compose" ) ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x$467$479" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x$467$479" ) :| [] ) ( Ref Nothing ( Local ( Name "x$467$479" ) ) ) :| [] ) ) @@ -576,7 +565,8 @@ UberModule ) :| [] ) ), - ( PropName "Semigroup0", Abs Nothing ( ParamUnused Nothing ) + ( PropName "Semigroup0", AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( ObjectProp Nothing ( Ref Nothing @@ -587,62 +577,61 @@ UberModule ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ) ), - ( PropName "Monad1", Abs Nothing ( ParamUnused Nothing ) + ( PropName "Monad1", AbsN Nothing + ( ParamUnused Nothing :| [] ) ( LiteralObject Nothing [ - ( PropName "Applicative0", Abs Nothing ( ParamUnused Nothing ) + ( PropName "Applicative0", AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Control.Monad.Writer.Trans" ) - ( Name "applicativeWriterT" ) - ) - ) - ( Ref Nothing - ( Imported ( ModuleName "Data.Monoid" ) ( Name "monoidArray" ) ) :| [] - ) - ) - ( AppN Nothing - ( ObjectProp Nothing - ( Ref Nothing ( Local ( Name "dictMonad$478" ) ) ) - ( PropName "Applicative0" ) + ( Ref Nothing + ( Imported + ( ModuleName "Control.Monad.Writer.Trans" ) + ( Name "applicativeWriterT$w" ) ) - ( Ref Nothing - ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] - ) :| [] ) - ) - ), - ( PropName "Bind1", Abs Nothing ( ParamUnused Nothing ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Control.Monad.Writer.Trans" ) - ( Name "bindWriterT" ) - ) - ) - ( AppN Nothing + ( Ref Nothing + ( Imported ( ModuleName "Data.Monoid" ) ( Name "monoidArray" ) ) :| + [ AppN Nothing ( ObjectProp Nothing - ( Ref Nothing - ( Imported ( ModuleName "Data.Monoid" ) ( Name "monoidArray" ) ) - ) - ( PropName "Semigroup0" ) + ( Ref Nothing ( Local ( Name "dictMonad$478" ) ) ) + ( PropName "Applicative0" ) ) ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] - ) :| [] + ) + ] + ) + ) + ), + ( PropName "Bind1", AbsN Nothing + ( ParamUnused Nothing :| [] ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Control.Monad.Writer.Trans" ) + ( Name "bindWriterT$w" ) ) ) ( AppN Nothing ( ObjectProp Nothing - ( Ref Nothing ( Local ( Name "dictMonad$478" ) ) ) - ( PropName "Bind1" ) + ( Ref Nothing + ( Imported ( ModuleName "Data.Monoid" ) ( Name "monoidArray" ) ) + ) + ( PropName "Semigroup0" ) ) ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] - ) :| [] + ) :| + [ AppN Nothing + ( ObjectProp Nothing + ( Ref Nothing ( Local ( Name "dictMonad$478" ) ) ) + ( PropName "Bind1" ) + ) + ( Ref Nothing + ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] + ) + ] ) ) ) @@ -670,7 +659,8 @@ UberModule ( LiteralArray Nothing [ LiteralInt Nothing 161 ] :| [] ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -683,7 +673,8 @@ UberModule ( LiteralArray Nothing [ LiteralInt Nothing 162 ] :| [] ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -696,7 +687,8 @@ UberModule ( LiteralArray Nothing [ LiteralInt Nothing 163 ] :| [] ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -715,7 +707,8 @@ UberModule ( LiteralArray Nothing [ LiteralInt Nothing 164 ] :| [] ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -734,7 +727,8 @@ UberModule ( LiteralArray Nothing [ LiteralInt Nothing 165 ] :| [] ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -753,7 +747,8 @@ UberModule ( LiteralArray Nothing [ LiteralInt Nothing 166 ] :| [] ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -774,7 +769,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -795,7 +791,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -816,7 +813,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -837,7 +835,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -858,7 +857,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -879,7 +879,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -900,7 +901,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -921,7 +923,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -942,7 +945,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -963,7 +967,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -984,7 +989,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -1005,7 +1011,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -1026,7 +1033,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -1047,7 +1055,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -1068,7 +1077,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -1089,7 +1099,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -1110,7 +1121,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -1131,7 +1143,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -1152,7 +1165,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -1173,7 +1187,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -1194,7 +1209,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -1215,7 +1231,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -1236,7 +1253,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -1257,7 +1275,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -1278,7 +1297,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -1299,7 +1319,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -1320,7 +1341,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -1341,7 +1363,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -1362,7 +1385,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -1383,7 +1407,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -1404,7 +1429,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -1425,7 +1451,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -1446,7 +1473,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -1467,7 +1495,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -1477,25 +1506,23 @@ UberModule ) ) ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Control.Monad.Writer.Trans" ) - ( Name "applicativeWriterT" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Monoid" ) - ( Name "monoidArray" ) - ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Control.Monad.Writer.Trans" ) + ( Name "applicativeWriterT$w" ) ) ) ( Ref Nothing ( Imported - ( ModuleName "Data.Identity" ) - ( Name "applicativeIdentity" ) - ) :| [] + ( ModuleName "Data.Monoid" ) + ( Name "monoidArray" ) + ) :| + [ Ref Nothing + ( Imported + ( ModuleName "Data.Identity" ) + ( Name "applicativeIdentity" ) + ) + ] ) :| [] ) ) @@ -1594,7 +1621,8 @@ UberModule ( LiteralArray Nothing [ LiteralInt Nothing 121 ] :| [] ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -1607,7 +1635,8 @@ UberModule ( LiteralArray Nothing [ LiteralInt Nothing 122 ] :| [] ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -1623,7 +1652,8 @@ UberModule ( LiteralArray Nothing [ LiteralInt Nothing 123 ] :| [] ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -1642,7 +1672,8 @@ UberModule ( LiteralArray Nothing [ LiteralInt Nothing 124 ] :| [] ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -1661,7 +1692,8 @@ UberModule ( LiteralArray Nothing [ LiteralInt Nothing 125 ] :| [] ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -1682,7 +1714,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -1703,7 +1736,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -1724,7 +1758,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -1745,7 +1780,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -1766,7 +1802,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -1787,7 +1824,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -1808,7 +1846,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -1829,7 +1868,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -1850,7 +1890,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -1871,7 +1912,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -1892,7 +1934,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -1913,7 +1956,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -1934,7 +1978,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -1955,7 +2000,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -1976,7 +2022,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -1997,7 +2044,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -2018,7 +2066,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -2039,7 +2088,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -2060,7 +2110,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -2081,7 +2132,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -2102,7 +2154,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -2123,7 +2176,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -2144,7 +2198,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -2165,7 +2220,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -2186,7 +2242,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -2207,7 +2264,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -2228,7 +2286,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -2249,7 +2308,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -2270,7 +2330,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -2291,7 +2352,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -2312,7 +2374,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -2333,7 +2396,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -2354,7 +2418,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -2375,7 +2440,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -2396,7 +2462,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( Ref Nothing ( Local ( Name "$kont482" ) @@ -2494,7 +2561,8 @@ UberModule ( LiteralArray Nothing [ LiteralInt Nothing 81 ] :| [] ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -2507,7 +2575,8 @@ UberModule ( LiteralArray Nothing [ LiteralInt Nothing 82 ] :| [] ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -2523,7 +2592,8 @@ UberModule ( LiteralArray Nothing [ LiteralInt Nothing 83 ] :| [] ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -2542,7 +2612,8 @@ UberModule ( LiteralArray Nothing [ LiteralInt Nothing 84 ] :| [] ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -2561,7 +2632,8 @@ UberModule ( LiteralArray Nothing [ LiteralInt Nothing 85 ] :| [] ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -2580,7 +2652,8 @@ UberModule ( LiteralArray Nothing [ LiteralInt Nothing 86 ] :| [] ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -2601,7 +2674,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -2622,7 +2696,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -2643,7 +2718,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -2664,7 +2740,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -2685,7 +2762,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -2706,7 +2784,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -2727,7 +2806,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -2748,7 +2828,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -2769,7 +2850,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -2790,7 +2872,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -2811,7 +2894,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -2832,7 +2916,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -2853,7 +2938,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -2874,7 +2960,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -2895,7 +2982,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -2916,7 +3004,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -2937,7 +3026,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -2958,7 +3048,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -2979,7 +3070,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -3000,7 +3092,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -3021,7 +3114,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -3042,7 +3136,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -3063,7 +3158,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -3084,7 +3180,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -3105,7 +3202,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -3126,7 +3224,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -3147,7 +3246,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -3168,7 +3268,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -3189,7 +3290,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -3210,7 +3312,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -3231,7 +3334,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -3252,7 +3356,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -3273,7 +3378,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -3294,7 +3400,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( Ref Nothing ( Local ( Name "$kont483" ) @@ -3392,7 +3499,8 @@ UberModule ( LiteralArray Nothing [ LiteralInt Nothing 41 ] :| [] ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -3405,7 +3513,8 @@ UberModule ( LiteralArray Nothing [ LiteralInt Nothing 42 ] :| [] ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -3421,7 +3530,8 @@ UberModule ( LiteralArray Nothing [ LiteralInt Nothing 43 ] :| [] ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -3440,7 +3550,8 @@ UberModule ( LiteralArray Nothing [ LiteralInt Nothing 44 ] :| [] ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -3459,7 +3570,8 @@ UberModule ( LiteralArray Nothing [ LiteralInt Nothing 45 ] :| [] ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -3478,7 +3590,8 @@ UberModule ( LiteralArray Nothing [ LiteralInt Nothing 46 ] :| [] ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -3499,7 +3612,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -3520,7 +3634,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -3541,7 +3656,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -3562,7 +3678,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -3583,7 +3700,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -3604,7 +3722,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -3625,7 +3744,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -3646,7 +3766,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -3667,7 +3788,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -3688,7 +3810,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -3709,7 +3832,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -3730,7 +3854,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -3751,7 +3876,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -3772,7 +3898,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -3793,7 +3920,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -3814,7 +3942,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -3835,7 +3964,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -3856,7 +3986,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -3877,7 +4008,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -3898,7 +4030,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -3919,7 +4052,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -3940,7 +4074,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -3961,7 +4096,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -3982,7 +4118,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -4003,7 +4140,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -4024,7 +4162,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -4045,7 +4184,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -4066,7 +4206,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -4087,7 +4228,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -4108,7 +4250,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -4129,7 +4272,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -4150,7 +4294,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -4171,7 +4316,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -4192,7 +4338,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( Ref Nothing ( Local ( Name "$kont484" ) @@ -4292,7 +4439,8 @@ UberModule ( LiteralArray Nothing [ LiteralInt Nothing 1 ] :| [] ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -4305,7 +4453,8 @@ UberModule ( LiteralArray Nothing [ LiteralInt Nothing 2 ] :| [] ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -4318,7 +4467,8 @@ UberModule ( LiteralArray Nothing [ LiteralInt Nothing 3 ] :| [] ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -4334,7 +4484,8 @@ UberModule ( LiteralArray Nothing [ LiteralInt Nothing 4 ] :| [] ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -4353,7 +4504,8 @@ UberModule ( LiteralArray Nothing [ LiteralInt Nothing 5 ] :| [] ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -4372,7 +4524,8 @@ UberModule ( LiteralArray Nothing [ LiteralInt Nothing 6 ] :| [] ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -4391,7 +4544,8 @@ UberModule ( LiteralArray Nothing [ LiteralInt Nothing 7 ] :| [] ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -4412,7 +4566,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -4433,7 +4588,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -4454,7 +4610,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -4475,7 +4632,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -4496,7 +4654,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -4517,7 +4676,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -4538,7 +4698,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -4559,7 +4720,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -4580,7 +4742,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -4601,7 +4764,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -4622,7 +4786,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -4643,7 +4808,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -4664,7 +4830,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -4685,7 +4852,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -4706,7 +4874,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -4727,7 +4896,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -4748,7 +4918,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -4769,7 +4940,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -4790,7 +4962,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -4811,7 +4984,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -4832,7 +5006,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -4853,7 +5028,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -4874,7 +5050,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -4895,7 +5072,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -4916,7 +5094,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -4937,7 +5116,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -4958,7 +5138,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -4979,7 +5160,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -5000,7 +5182,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -5021,7 +5204,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -5042,7 +5226,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -5063,7 +5248,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -5084,7 +5270,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( Ref Nothing ( Local ( Name "$kont485" ) @@ -5190,8 +5377,8 @@ UberModule ( PropName "unsafeCoerce" ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "v$39$461" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "v$39$461" ) :| [] ) ( Ref Nothing ( Local ( Name "v$39$461" ) ) ) :| [] ) ) diff --git a/test/ps/output/Golden.LongWriterBind.Test/golden.lua b/test/ps/output/Golden.LongWriterBind.Test/golden.lua index c5016404..9742bb45 100644 --- a/test/ps/output/Golden.LongWriterBind.Test/golden.lua +++ b/test/ps/output/Golden.LongWriterBind.Test/golden.lua @@ -57,65 +57,61 @@ M.Data_Identity_applicativeIdentity = { Apply0 = function() return M.Data_Identity_applyIdentity end } M.Control_Monad_Writer_Trans_compose = M.Control_Semigroupoid_compose(M.Control_Semigroupoid_semigroupoidFn) -M.Control_Monad_Writer_Trans_applyWriterT = function(dictSemigroup) - return function(dictApply) - local Functor0 = dictApply.Functor0() - return { - apply = function(v) - return function(v1) - return dictApply.apply(M.Data_Functor_map(Functor0)(function(v3_S_33) - return function(v4_S_34) - return M.Data_Tuple_Tuple(v3_S_33.value0(v4_S_34.value0))(M.Data_Semigroup_append(dictSemigroup)(v3_S_33.value1)(v4_S_34.value1)) - end - end)(v))(v1) - end - end, - Functor0 = function() - return { - map = function(f_S_463) - return function(v_S_466) - return M.Data_Functor_map(Functor0)(function(v_S_464) - return M.Data_Tuple_Tuple(f_S_463(v_S_464.value0))(v_S_464.value1) - end)(v_S_466) - end +M.Control_Monad_Writer_Trans_applyWriterT_S_w = function( dictSemigroup +, dictApply ) + local Functor0 = dictApply.Functor0() + return { + apply = function(v) + return function(v1) + return dictApply.apply(M.Data_Functor_map(Functor0)(function(v3_S_33) + return function(v4_S_34) + return M.Data_Tuple_Tuple(v3_S_33.value0(v4_S_34.value0))(M.Data_Semigroup_append(dictSemigroup)(v3_S_33.value1)(v4_S_34.value1)) end - } + end)(v))(v1) end - } - end -end -M.Control_Monad_Writer_Trans_bindWriterT = function(dictSemigroup) - return function(dictBind) - local Apply0 = dictBind.Apply0() - return { - bind = function(v) - return function(k) - return M.Control_Bind_bind(dictBind)(v)(function(v1) - return M.Data_Functor_map(Apply0.Functor0())(function(v3) - return M.Data_Tuple_Tuple(v3.value0)(M.Data_Semigroup_append(dictSemigroup)(v1.value1)(v3.value1)) - end)(k(v1.value0)) - end) + end, + Functor0 = function() + return { + map = function(f_S_463) + return function(v_S_466) + return M.Data_Functor_map(Functor0)(function(v_S_464) + return M.Data_Tuple_Tuple(f_S_463(v_S_464.value0))(v_S_464.value1) + end)(v_S_466) + end end - end, - Apply0 = function() - return M.Control_Monad_Writer_Trans_applyWriterT(dictSemigroup)(Apply0) - end - } - end + } + end + } end -M.Control_Monad_Writer_Trans_applicativeWriterT = function(dictMonoid) - return function(dictApplicative) - return { - pure = function(a) - return M.Control_Applicative_pure(dictApplicative)(M.Data_Tuple_Tuple(a)(dictMonoid.mempty)) - end, - Apply0 = function() - return M.Control_Monad_Writer_Trans_applyWriterT(dictMonoid.Semigroup0())(dictApplicative.Apply0()) +M.Control_Monad_Writer_Trans_bindWriterT_S_w = function(dictSemigroup, dictBind) + local Apply0 = dictBind.Apply0() + return { + bind = function(v) + return function(k) + return M.Control_Bind_bind(dictBind)(v)(function(v1) + return M.Data_Functor_map(Apply0.Functor0())(function(v3) + return M.Data_Tuple_Tuple(v3.value0)(M.Data_Semigroup_append(dictSemigroup)(v1.value1)(v3.value1)) + end)(k(v1.value0)) + end) end - } - end + end, + Apply0 = function() + return M.Control_Monad_Writer_Trans_applyWriterT_S_w(dictSemigroup, Apply0) + end + } +end +M.Control_Monad_Writer_Trans_applicativeWriterT_S_w = function( dictMonoid +, dictApplicative ) + return { + pure = function(a) + return M.Control_Applicative_pure(dictApplicative)(M.Data_Tuple_Tuple(a)(dictMonoid.mempty)) + end, + Apply0 = function() + return M.Control_Monad_Writer_Trans_applyWriterT_S_w(dictMonoid.Semigroup0(), dictApplicative.Apply0()) + end + } end -M.Golden_LongWriterBind_Test_discard = M.Control_Bind_bind(M.Control_Monad_Writer_Trans_bindWriterT(M.Data_Semigroup_semigroupArray)(M.Data_Identity_bindIdentity)) +M.Golden_LongWriterBind_Test_discard = M.Control_Bind_bind(M.Control_Monad_Writer_Trans_bindWriterT_S_w(M.Data_Semigroup_semigroupArray, M.Data_Identity_bindIdentity)) M.Golden_LongWriterBind_Test_tell = (function() local dictMonad_S_478 = { Applicative0 = function() return M.Data_Identity_applicativeIdentity end, @@ -246,7 +242,7 @@ M.Golden_LongWriterBind_Test_go = (function() return M.Golden_LongWriterBind_Test_discard(M.Golden_LongWriterBind_Test_tell({ [1] = 200 }))(function( ) - return M.Control_Applicative_pure(M.Control_Monad_Writer_Trans_applicativeWriterT(M.Data_Monoid_monoidArray)(M.Data_Identity_applicativeIdentity))(42) + return M.Control_Applicative_pure(M.Control_Monad_Writer_Trans_applicativeWriterT_S_w(M.Data_Monoid_monoidArray, M.Data_Identity_applicativeIdentity))(42) end) end) end) diff --git a/test/ps/output/Golden.MaybeChain.Test/golden.ir b/test/ps/output/Golden.MaybeChain.Test/golden.ir index 065094e2..fb5fd98c 100644 --- a/test/ps/output/Golden.MaybeChain.Test/golden.ir +++ b/test/ps/output/Golden.MaybeChain.Test/golden.ir @@ -21,13 +21,13 @@ UberModule ), Standalone ( QName { qnameModuleName = ModuleName "Control.Applicative", qnameName = Name "pure" - }, Abs Nothing - ( ParamNamed Nothing ( Name "dict" ) ) + }, AbsN Nothing + ( ParamNamed Nothing ( Name "dict" ) :| [] ) ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "dict" ) ) ) ( PropName "pure" ) ) ), Standalone ( QName - { qnameModuleName = ModuleName "Control.Bind", qnameName = Name "bind" }, Abs Nothing - ( ParamNamed Nothing ( Name "dict" ) ) + { qnameModuleName = ModuleName "Control.Bind", qnameName = Name "bind" }, AbsN Nothing + ( ParamNamed Nothing ( Name "dict" ) :| [] ) ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "dict" ) ) ) ( PropName "bind" ) ) ), Standalone ( QName @@ -46,33 +46,30 @@ UberModule [ FieldName "value0" ] ), Standalone ( QName - { qnameModuleName = ModuleName "Data.Maybe", qnameName = Name "maybe" }, Abs Nothing - ( ParamNamed Nothing ( Name "v" ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "v1" ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "v2" ) ) - ( IfThenElse Nothing - ( Eq Nothing - ( LiteralString Nothing "Data.Maybe∷Maybe.Nothing" ) - ( ReflectCtor Nothing ( Ref Nothing ( Local ( Name "v2" ) ) ) ) - ) - ( Ref Nothing ( Local ( Name "v" ) ) ) - ( IfThenElse Nothing - ( Eq Nothing - ( LiteralString Nothing "Data.Maybe∷Maybe.Just" ) - ( ReflectCtor Nothing ( Ref Nothing ( Local ( Name "v2" ) ) ) ) - ) - ( AppN Nothing - ( Ref Nothing ( Local ( Name "v1" ) ) ) - ( ObjectProp Nothing - ( Ref Nothing ( Local ( Name "v2" ) ) ) - ( PropName "value0" ) :| [] - ) - ) - ( Exception Nothing "No patterns matched" ) + { qnameModuleName = ModuleName "Data.Maybe", qnameName = Name "maybe$w" }, AbsN Nothing + ( ParamNamed Nothing + ( Name "v" ) :| + [ ParamNamed Nothing ( Name "v1" ), ParamNamed Nothing ( Name "v2" ) ] + ) + ( IfThenElse Nothing + ( Eq Nothing + ( LiteralString Nothing "Data.Maybe∷Maybe.Nothing" ) + ( ReflectCtor Nothing ( Ref Nothing ( Local ( Name "v2" ) ) ) ) + ) + ( Ref Nothing ( Local ( Name "v" ) ) ) + ( IfThenElse Nothing + ( Eq Nothing + ( LiteralString Nothing "Data.Maybe∷Maybe.Just" ) + ( ReflectCtor Nothing ( Ref Nothing ( Local ( Name "v2" ) ) ) ) + ) + ( AppN Nothing + ( Ref Nothing ( Local ( Name "v1" ) ) ) + ( ObjectProp Nothing + ( Ref Nothing ( Local ( Name "v2" ) ) ) + ( PropName "value0" ) :| [] ) ) + ( Exception Nothing "No patterns matched" ) ) ) ), RecursiveGroup @@ -81,10 +78,12 @@ UberModule { qnameModuleName = ModuleName "Effect", qnameName = Name "monadEffect" }, LiteralObject Nothing [ - ( PropName "Applicative0", Abs Nothing ( ParamUnused Nothing ) + ( PropName "Applicative0", AbsN Nothing + ( ParamUnused Nothing :| [] ) ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "applicativeEffect" ) ) ) ), - ( PropName "Bind1", Abs Nothing ( ParamUnused Nothing ) + ( PropName "Bind1", AbsN Nothing + ( ParamUnused Nothing :| [] ) ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "bindEffect" ) ) ) ) ] @@ -98,7 +97,8 @@ UberModule ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "foreign" ) ) ) ( PropName "bindE" ) ), - ( PropName "Apply0", Abs Nothing ( ParamUnused Nothing ) + ( PropName "Apply0", AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "Lazy_applyEffect" ) ) ) ( LiteralInt Nothing 0 :| [] ) @@ -114,7 +114,8 @@ UberModule ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "foreign" ) ) ) ( PropName "pureE" ) ), - ( PropName "Apply0", Abs Nothing ( ParamUnused Nothing ) + ( PropName "Apply0", AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "Lazy_applyEffect" ) ) ) ( LiteralInt Nothing 0 :| [] ) @@ -129,13 +130,14 @@ UberModule ( Ref Nothing ( Local ( Name "PSLUA_runtime_lazy" ) ) ) ( LiteralString Nothing "functorEffect" :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( LiteralObject Nothing [ - ( PropName "map", Abs Nothing - ( ParamNamed Nothing ( Name "f$121" ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "a$122" ) ) + ( PropName "map", AbsN Nothing + ( ParamNamed Nothing ( Name "f$121" ) :| [] ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "a$122" ) :| [] ) ( AppN Nothing ( AppN Nothing ( ObjectProp Nothing @@ -182,7 +184,8 @@ UberModule ( Ref Nothing ( Local ( Name "PSLUA_runtime_lazy" ) ) ) ( LiteralString Nothing "applyEffect" :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( LiteralObject Nothing [ ( PropName "apply", Let Nothing @@ -202,24 +205,24 @@ UberModule ) ) :| [] ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "f$103" ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "a$104" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "f$103" ) :| [] ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "a$104" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing ( Local ( Name "bind$101" ) ) ) ( Ref Nothing ( Local ( Name "f$103" ) ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "f'$105" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "f'$105" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing ( Local ( Name "bind$101" ) ) ) ( Ref Nothing ( Local ( Name "a$104" ) ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "a'$106" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "a'$106" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -258,7 +261,8 @@ UberModule ) ) ), - ( PropName "Functor0", Abs Nothing ( ParamUnused Nothing ) + ( PropName "Functor0", AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "Lazy_functorEffect" ) ) @@ -274,8 +278,8 @@ UberModule ), Standalone ( QName { qnameModuleName = ModuleName "Golden.MaybeChain.Test", qnameName = Name "logShow" - }, Abs Nothing - ( ParamNamed Nothing ( Name "a$4" ) ) + }, AbsN Nothing + ( ParamNamed Nothing ( Name "a$4" ) :| [] ) ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) @@ -292,38 +296,36 @@ UberModule ), Standalone ( QName { qnameModuleName = ModuleName "Golden.MaybeChain.Test", qnameName = Name "identity" - }, Abs Nothing - ( ParamNamed Nothing ( Name "x$280" ) ) + }, AbsN Nothing + ( ParamNamed Nothing ( Name "x$280" ) :| [] ) ( Ref Nothing ( Local ( Name "x$280" ) ) ) ), Standalone ( QName - { qnameModuleName = ModuleName "Golden.MaybeChain.Test", qnameName = Name "map" - }, Abs Nothing - ( ParamNamed Nothing ( Name "v$275" ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "v1$276" ) ) - ( IfThenElse Nothing - ( Eq Nothing - ( LiteralString Nothing "Data.Maybe∷Maybe.Just" ) - ( ReflectCtor Nothing ( Ref Nothing ( Local ( Name "v1$276" ) ) ) ) - ) + { qnameModuleName = ModuleName "Golden.MaybeChain.Test", qnameName = Name "map$w" + }, AbsN Nothing + ( ParamNamed Nothing ( Name "v$275" ) :| [ ParamNamed Nothing ( Name "v1$276" ) ] ) + ( IfThenElse Nothing + ( Eq Nothing + ( LiteralString Nothing "Data.Maybe∷Maybe.Just" ) + ( ReflectCtor Nothing ( Ref Nothing ( Local ( Name "v1$276" ) ) ) ) + ) + ( AppN Nothing + ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) ( AppN Nothing - ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( AppN Nothing - ( Ref Nothing ( Local ( Name "v$275" ) ) ) - ( ObjectProp Nothing - ( Ref Nothing ( Local ( Name "v1$276" ) ) ) - ( PropName "value0" ) :| [] - ) :| [] - ) + ( Ref Nothing ( Local ( Name "v$275" ) ) ) + ( ObjectProp Nothing + ( Ref Nothing ( Local ( Name "v1$276" ) ) ) + ( PropName "value0" ) :| [] + ) :| [] ) - ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Nothing" ) ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Nothing" ) ) ) ) ) ], uberModuleForeigns = [], uberModuleExports = [ - ( Name "main", Abs Nothing ( ParamUnused Nothing ) + ( Name "main", AbsN Nothing + ( ParamUnused Nothing :| [] ) ( Let Nothing ( Standalone ( Nothing, Name "_", AppN Nothing @@ -332,39 +334,31 @@ UberModule ( Imported ( ModuleName "Golden.MaybeChain.Test" ) ( Name "logShow" ) ) ) ( AppN Nothing - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "maybe" ) ) ) - ( LiteralInt Nothing 0 :| [] ) - ) - ( Ref Nothing - ( Imported ( ModuleName "Golden.MaybeChain.Test" ) ( Name "identity" ) ) :| [] - ) - ) - ( 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 "Just" ) ) :| [] ) - ) - ( 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 ( Imported ( ModuleName "Data.Maybe" ) ( Name "maybe$w" ) ) ) + ( LiteralInt Nothing 0 :| + [ Ref Nothing + ( Imported + ( ModuleName "Golden.MaybeChain.Test" ) + ( Name "identity" ) + ), AppN Nothing + ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "maybe$w" ) ) ) ( Ref Nothing - ( Imported ( ModuleName "Data.Maybe" ) ( Name "Nothing" ) ) :| [] - ) :| [] - ) :| [] + ( Imported ( ModuleName "Data.Maybe" ) ( Name "Nothing" ) ) :| + [ Ref Nothing + ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ), AppN Nothing + ( Ref Nothing + ( Imported ( ModuleName "Golden.MaybeChain.Test" ) ( Name "map$w" ) ) + ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x$0" ) :| [] ) + ( Ref Nothing ( Local ( Name "x$0" ) ) ) :| + [ Ref Nothing + ( Imported ( ModuleName "Data.Maybe" ) ( Name "Nothing" ) ) + ] + ) + ] + ) + ] ) :| [] ) ) @@ -377,40 +371,34 @@ UberModule ( Imported ( ModuleName "Golden.MaybeChain.Test" ) ( Name "logShow" ) ) ) ( AppN Nothing - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "maybe" ) ) ) - ( LiteralInt Nothing 0 :| [] ) - ) - ( Ref Nothing - ( Imported ( ModuleName "Golden.MaybeChain.Test" ) ( Name "identity" ) ) :| [] - ) - ) - ( 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 "Just" ) ) :| [] ) - ) - ( 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 ( Imported ( ModuleName "Data.Maybe" ) ( Name "maybe$w" ) ) ) + ( LiteralInt Nothing 0 :| + [ Ref Nothing + ( Imported + ( ModuleName "Golden.MaybeChain.Test" ) + ( Name "identity" ) + ), AppN Nothing + ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "maybe$w" ) ) ) + ( Ref Nothing + ( Imported ( ModuleName "Data.Maybe" ) ( Name "Nothing" ) ) :| + [ Ref Nothing + ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ), AppN Nothing + ( Ref Nothing + ( Imported ( ModuleName "Golden.MaybeChain.Test" ) ( Name "map$w" ) ) + ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x0$1" ) :| [] ) + ( Ref Nothing ( Local ( Name "x0$1" ) ) ) :| + [ AppN Nothing + ( Ref Nothing + ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) + ) + ( LiteralInt Nothing 42 :| [] ) + ] + ) + ] ) - ( AppN Nothing - ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 42 :| [] ) :| [] - ) :| [] - ) :| [] + ] ) :| [] ) ) diff --git a/test/ps/output/Golden.MaybeChain.Test/golden.lua b/test/ps/output/Golden.MaybeChain.Test/golden.lua index 50d22dd7..ead53979 100644 --- a/test/ps/output/Golden.MaybeChain.Test/golden.lua +++ b/test/ps/output/Golden.MaybeChain.Test/golden.lua @@ -33,17 +33,13 @@ M.Data_Maybe_Nothing = { ["$ctor"] = "Data.Maybe∷Maybe.Nothing" } M.Data_Maybe_Just = function(value0) return { ["$ctor"] = "Data.Maybe∷Maybe.Just", value0 = value0 } end -M.Data_Maybe_maybe = function(v) - return function(v1) - return function(v2) - if "Data.Maybe∷Maybe.Nothing" == v2["$ctor"] then - return v - elseif "Data.Maybe∷Maybe.Just" == v2["$ctor"] then - return v1(v2.value0) - else - return error("No patterns matched") - end - end +M.Data_Maybe_maybe_S_w = function(v, v1, v2) + if "Data.Maybe∷Maybe.Nothing" == v2["$ctor"] then + return v + elseif "Data.Maybe∷Maybe.Just" == v2["$ctor"] then + return v1(v2.value0) + else + return error("No patterns matched") end end M.Effect_monadEffect = { @@ -88,20 +84,18 @@ M.Golden_MaybeChain_Test_logShow = function(a_S_4) return M.Effect_Console_foreign.log(M.Data_Show_foreign.showIntImpl(a_S_4)) end M.Golden_MaybeChain_Test_identity = function(x_S_280) return x_S_280 end -M.Golden_MaybeChain_Test_map = function(v_S_275) - return function(v1_S_276) - if "Data.Maybe∷Maybe.Just" == v1_S_276["$ctor"] then - return M.Data_Maybe_Just(v_S_275(v1_S_276.value0)) - else - return M.Data_Maybe_Nothing - end +M.Golden_MaybeChain_Test_map_S_w = function(v_S_275, v1_S_276) + if "Data.Maybe∷Maybe.Just" == v1_S_276["$ctor"] then + return M.Data_Maybe_Just(v_S_275(v1_S_276.value0)) + else + return M.Data_Maybe_Nothing end end return (function() - local _ = M.Golden_MaybeChain_Test_logShow(M.Data_Maybe_maybe(0)(M.Golden_MaybeChain_Test_identity)(M.Data_Maybe_maybe(M.Data_Maybe_Nothing)(M.Data_Maybe_Just)(M.Golden_MaybeChain_Test_map(function( x_S_0 ) + local _ = M.Golden_MaybeChain_Test_logShow(M.Data_Maybe_maybe_S_w(0, M.Golden_MaybeChain_Test_identity, M.Data_Maybe_maybe_S_w(M.Data_Maybe_Nothing, M.Data_Maybe_Just, M.Golden_MaybeChain_Test_map_S_w(function( x_S_0 ) return x_S_0 - end)(M.Data_Maybe_Nothing))))() - return M.Golden_MaybeChain_Test_logShow(M.Data_Maybe_maybe(0)(M.Golden_MaybeChain_Test_identity)(M.Data_Maybe_maybe(M.Data_Maybe_Nothing)(M.Data_Maybe_Just)(M.Golden_MaybeChain_Test_map(function( x0_S_1 ) + end, M.Data_Maybe_Nothing))))() + return M.Golden_MaybeChain_Test_logShow(M.Data_Maybe_maybe_S_w(0, M.Golden_MaybeChain_Test_identity, M.Data_Maybe_maybe_S_w(M.Data_Maybe_Nothing, M.Data_Maybe_Just, M.Golden_MaybeChain_Test_map_S_w(function( x0_S_1 ) return x0_S_1 - end)(M.Data_Maybe_Just(42)))))() + end, M.Data_Maybe_Just(42)))))() end)() diff --git a/test/ps/output/Golden.MaybeChainModule.Test/golden.ir b/test/ps/output/Golden.MaybeChainModule.Test/golden.ir index 265e1e4f..59d22ccf 100644 --- a/test/ps/output/Golden.MaybeChainModule.Test/golden.ir +++ b/test/ps/output/Golden.MaybeChainModule.Test/golden.ir @@ -17,134 +17,116 @@ UberModule [ FieldName "value0" ] ), Standalone ( QName - { qnameModuleName = ModuleName "Data.Maybe", qnameName = Name "maybe" }, Abs Nothing - ( ParamNamed Nothing ( Name "v" ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "v1" ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "v2" ) ) - ( IfThenElse Nothing - ( Eq Nothing - ( LiteralString Nothing "Data.Maybe∷Maybe.Nothing" ) - ( ReflectCtor Nothing ( Ref Nothing ( Local ( Name "v2" ) ) ) ) - ) - ( Ref Nothing ( Local ( Name "v" ) ) ) - ( IfThenElse Nothing - ( Eq Nothing - ( LiteralString Nothing "Data.Maybe∷Maybe.Just" ) - ( ReflectCtor Nothing ( Ref Nothing ( Local ( Name "v2" ) ) ) ) - ) - ( AppN Nothing - ( Ref Nothing ( Local ( Name "v1" ) ) ) - ( ObjectProp Nothing - ( Ref Nothing ( Local ( Name "v2" ) ) ) - ( PropName "value0" ) :| [] - ) - ) - ( Exception Nothing "No patterns matched" ) + { qnameModuleName = ModuleName "Data.Maybe", qnameName = Name "maybe$w" }, AbsN Nothing + ( ParamNamed Nothing + ( Name "v" ) :| + [ ParamNamed Nothing ( Name "v1" ), ParamNamed Nothing ( Name "v2" ) ] + ) + ( IfThenElse Nothing + ( Eq Nothing + ( LiteralString Nothing "Data.Maybe∷Maybe.Nothing" ) + ( ReflectCtor Nothing ( Ref Nothing ( Local ( Name "v2" ) ) ) ) + ) + ( Ref Nothing ( Local ( Name "v" ) ) ) + ( IfThenElse Nothing + ( Eq Nothing + ( LiteralString Nothing "Data.Maybe∷Maybe.Just" ) + ( ReflectCtor Nothing ( Ref Nothing ( Local ( Name "v2" ) ) ) ) + ) + ( AppN Nothing + ( Ref Nothing ( Local ( Name "v1" ) ) ) + ( ObjectProp Nothing + ( Ref Nothing ( Local ( Name "v2" ) ) ) + ( PropName "value0" ) :| [] ) ) + ( Exception Nothing "No patterns matched" ) ) ) ), Standalone ( QName { qnameModuleName = ModuleName "Golden.MaybeChainModule.Test", qnameName = Name "identity" - }, Abs Nothing - ( ParamNamed Nothing ( Name "x$254" ) ) + }, AbsN Nothing + ( ParamNamed Nothing ( Name "x$254" ) :| [] ) ( Ref Nothing ( Local ( Name "x$254" ) ) ) ), Standalone ( QName - { qnameModuleName = ModuleName "Golden.MaybeChainModule.Test", qnameName = Name "map" - }, Abs Nothing - ( ParamNamed Nothing ( Name "v$251" ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "v1$252" ) ) - ( IfThenElse Nothing - ( Eq Nothing - ( LiteralString Nothing "Data.Maybe∷Maybe.Just" ) - ( ReflectCtor Nothing ( Ref Nothing ( Local ( Name "v1$252" ) ) ) ) - ) + { qnameModuleName = ModuleName "Golden.MaybeChainModule.Test", qnameName = Name "map$w" + }, AbsN Nothing + ( ParamNamed Nothing ( Name "v$251" ) :| [ ParamNamed Nothing ( Name "v1$252" ) ] ) + ( IfThenElse Nothing + ( Eq Nothing + ( LiteralString Nothing "Data.Maybe∷Maybe.Just" ) + ( ReflectCtor Nothing ( Ref Nothing ( Local ( Name "v1$252" ) ) ) ) + ) + ( AppN Nothing + ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) ( AppN Nothing - ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( AppN Nothing - ( Ref Nothing ( Local ( Name "v$251" ) ) ) - ( ObjectProp Nothing - ( Ref Nothing ( Local ( Name "v1$252" ) ) ) - ( PropName "value0" ) :| [] - ) :| [] - ) + ( Ref Nothing ( Local ( Name "v$251" ) ) ) + ( ObjectProp Nothing + ( Ref Nothing ( Local ( Name "v1$252" ) ) ) + ( PropName "value0" ) :| [] + ) :| [] ) - ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Nothing" ) ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Nothing" ) ) ) ) ) ], uberModuleForeigns = [], uberModuleExports = [ ( Name "chainedNothing", AppN Nothing - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "maybe" ) ) ) - ( LiteralInt Nothing 0 :| [] ) - ) - ( Ref Nothing - ( Imported ( ModuleName "Golden.MaybeChainModule.Test" ) ( Name "identity" ) ) :| [] - ) - ) - ( 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 "Just" ) ) :| [] ) - ) - ( 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 ( Imported ( ModuleName "Data.Maybe" ) ( Name "maybe$w" ) ) ) + ( LiteralInt Nothing 0 :| + [ Ref Nothing + ( Imported + ( ModuleName "Golden.MaybeChainModule.Test" ) + ( Name "identity" ) + ), AppN Nothing + ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "maybe$w" ) ) ) + ( Ref Nothing + ( Imported ( ModuleName "Data.Maybe" ) ( Name "Nothing" ) ) :| + [ Ref Nothing + ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ), AppN Nothing + ( Ref Nothing + ( Imported ( ModuleName "Golden.MaybeChainModule.Test" ) ( Name "map$w" ) ) + ) + ( AbsN Nothing + ( ParamNamed Nothing ( 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", AppN Nothing - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "maybe" ) ) ) - ( LiteralInt Nothing 0 :| [] ) - ) - ( Ref Nothing - ( Imported ( ModuleName "Golden.MaybeChainModule.Test" ) ( Name "identity" ) ) :| [] - ) - ) - ( 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 "Just" ) ) :| [] ) - ) - ( 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 ( Imported ( ModuleName "Data.Maybe" ) ( Name "maybe$w" ) ) ) + ( LiteralInt Nothing 0 :| + [ Ref Nothing + ( Imported + ( ModuleName "Golden.MaybeChainModule.Test" ) + ( Name "identity" ) + ), AppN Nothing + ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "maybe$w" ) ) ) + ( Ref Nothing + ( Imported ( ModuleName "Data.Maybe" ) ( Name "Nothing" ) ) :| + [ Ref Nothing + ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ), AppN Nothing + ( Ref Nothing + ( Imported ( ModuleName "Golden.MaybeChainModule.Test" ) ( Name "map$w" ) ) + ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x$0" ) :| [] ) + ( Ref Nothing ( Local ( Name "x$0" ) ) ) :| + [ AppN Nothing + ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) + ( LiteralInt Nothing 42 :| [] ) + ] + ) + ] ) - ( AppN Nothing - ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( LiteralInt Nothing 42 :| [] ) :| [] - ) :| [] - ) :| [] + ] ) ) ] diff --git a/test/ps/output/Golden.MaybeChainModule.Test/golden.lua b/test/ps/output/Golden.MaybeChainModule.Test/golden.lua index 50dd6a39..a2d7f275 100644 --- a/test/ps/output/Golden.MaybeChainModule.Test/golden.lua +++ b/test/ps/output/Golden.MaybeChainModule.Test/golden.lua @@ -3,34 +3,28 @@ M.Data_Maybe_Nothing = { ["$ctor"] = "Data.Maybe∷Maybe.Nothing" } M.Data_Maybe_Just = function(value0) return { ["$ctor"] = "Data.Maybe∷Maybe.Just", value0 = value0 } end -M.Data_Maybe_maybe = function(v) - return function(v1) - return function(v2) - if "Data.Maybe∷Maybe.Nothing" == v2["$ctor"] then - return v - elseif "Data.Maybe∷Maybe.Just" == v2["$ctor"] then - return v1(v2.value0) - else - return error("No patterns matched") - end - end +M.Data_Maybe_maybe_S_w = function(v, v1, v2) + if "Data.Maybe∷Maybe.Nothing" == v2["$ctor"] then + return v + elseif "Data.Maybe∷Maybe.Just" == v2["$ctor"] then + return v1(v2.value0) + else + return error("No patterns matched") end end M.Golden_MaybeChainModule_Test_identity = function(x_S_254) return x_S_254 end -M.Golden_MaybeChainModule_Test_map = function(v_S_251) - return function(v1_S_252) - if "Data.Maybe∷Maybe.Just" == v1_S_252["$ctor"] then - return M.Data_Maybe_Just(v_S_251(v1_S_252.value0)) - else - return M.Data_Maybe_Nothing - end +M.Golden_MaybeChainModule_Test_map_S_w = function(v_S_251, v1_S_252) + if "Data.Maybe∷Maybe.Just" == v1_S_252["$ctor"] then + return M.Data_Maybe_Just(v_S_251(v1_S_252.value0)) + else + return M.Data_Maybe_Nothing end end return { - chainedNothing = M.Data_Maybe_maybe(0)(M.Golden_MaybeChainModule_Test_identity)(M.Data_Maybe_maybe(M.Data_Maybe_Nothing)(M.Data_Maybe_Just)(M.Golden_MaybeChainModule_Test_map(function( x_S_1 ) + chainedNothing = M.Data_Maybe_maybe_S_w(0, M.Golden_MaybeChainModule_Test_identity, M.Data_Maybe_maybe_S_w(M.Data_Maybe_Nothing, M.Data_Maybe_Just, M.Golden_MaybeChainModule_Test_map_S_w(function( x_S_1 ) return x_S_1 - end)(M.Data_Maybe_Nothing))), - chainedJust = M.Data_Maybe_maybe(0)(M.Golden_MaybeChainModule_Test_identity)(M.Data_Maybe_maybe(M.Data_Maybe_Nothing)(M.Data_Maybe_Just)(M.Golden_MaybeChainModule_Test_map(function( x_S_0 ) + end, M.Data_Maybe_Nothing))), + chainedJust = M.Data_Maybe_maybe_S_w(0, M.Golden_MaybeChainModule_Test_identity, M.Data_Maybe_maybe_S_w(M.Data_Maybe_Nothing, M.Data_Maybe_Just, M.Golden_MaybeChainModule_Test_map_S_w(function( x_S_0 ) return x_S_0 - end)(M.Data_Maybe_Just(42)))) + end, M.Data_Maybe_Just(42)))) } diff --git a/test/ps/output/Golden.NameShadowing.Test/golden.ir b/test/ps/output/Golden.NameShadowing.Test/golden.ir index cc74ec68..b16980cc 100644 --- a/test/ps/output/Golden.NameShadowing.Test/golden.ir +++ b/test/ps/output/Golden.NameShadowing.Test/golden.ir @@ -2,63 +2,52 @@ UberModule { uberModuleBindings = [ Standalone ( QName - { qnameModuleName = ModuleName "Golden.NameShadowing.Test", qnameName = Name "f" - }, Abs Nothing - ( ParamNamed Nothing ( Name "v" ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "v1" ) ) + { qnameModuleName = ModuleName "Golden.NameShadowing.Test", qnameName = Name "f$w" + }, AbsN Nothing + ( ParamNamed Nothing ( Name "v" ) :| [ ParamNamed Nothing ( Name "v1" ) ] ) + ( IfThenElse Nothing + ( Eq Nothing ( LiteralInt Nothing 1 ) ( Ref Nothing ( Local ( Name "v" ) ) ) ) + ( LiteralInt Nothing 1 ) ( IfThenElse Nothing - ( Eq Nothing ( LiteralInt Nothing 1 ) ( Ref Nothing ( Local ( Name "v" ) ) ) ) - ( LiteralInt Nothing 1 ) - ( IfThenElse Nothing - ( Eq Nothing ( LiteralInt Nothing 1 ) ( Ref Nothing ( Local ( Name "v1" ) ) ) ) - ( LiteralInt Nothing 2 ) - ( LiteralInt Nothing 3 ) - ) + ( Eq Nothing ( LiteralInt Nothing 1 ) ( Ref Nothing ( Local ( Name "v1" ) ) ) ) + ( LiteralInt Nothing 2 ) + ( LiteralInt Nothing 3 ) ) ) ) ], uberModuleForeigns = [], uberModuleExports = [ - ( Name "b", Abs Nothing - ( ParamNamed Nothing ( Name "x$0" ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x1$1" ) ) + ( Name "b", AbsN Nothing + ( ParamNamed Nothing ( Name "x$0" ) :| [] ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x1$1" ) :| [] ) ( AppN Nothing + ( Ref Nothing ( Imported ( ModuleName "Golden.NameShadowing.Test" ) ( Name "f$w" ) ) ) ( AppN Nothing - ( Ref Nothing ( Imported ( ModuleName "Golden.NameShadowing.Test" ) ( Name "f" ) ) ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Golden.NameShadowing.Test" ) ( Name "f" ) ) - ) - ( Ref Nothing ( Local ( Name "x$0" ) ) :| [] ) - ) - ( Ref Nothing ( Local ( Name "x1$1" ) ) :| [] ) :| [] + ( Ref Nothing + ( Imported ( ModuleName "Golden.NameShadowing.Test" ) ( Name "f$w" ) ) ) - ) - ( AppN Nothing - ( AppN Nothing + ( Ref Nothing + ( Local ( Name "x$0" ) ) :| + [ Ref Nothing ( Local ( Name "x1$1" ) ) ] + ) :| + [ AppN Nothing ( Ref Nothing - ( Imported ( ModuleName "Golden.NameShadowing.Test" ) ( Name "f" ) ) + ( Imported ( ModuleName "Golden.NameShadowing.Test" ) ( Name "f$w" ) ) ) - ( LiteralInt Nothing 42 :| [] ) - ) - ( LiteralInt Nothing 1 :| [] ) :| [] + ( LiteralInt Nothing 42 :| [ LiteralInt Nothing 1 ] ) + ] ) ) ) ), - ( Name "c", Abs Nothing - ( ParamNamed Nothing ( Name "x$3" ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x1$4" ) ) + ( Name "c", AbsN Nothing + ( ParamNamed Nothing ( Name "x$3" ) :| [] ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x1$4" ) :| [] ) ( AppN Nothing - ( AppN Nothing - ( Ref Nothing ( Imported ( ModuleName "Golden.NameShadowing.Test" ) ( Name "f" ) ) ) - ( Ref Nothing ( Local ( Name "x1$4" ) ) :| [] ) - ) - ( Ref Nothing ( Local ( Name "x$3" ) ) :| [] ) + ( Ref Nothing ( Imported ( ModuleName "Golden.NameShadowing.Test" ) ( Name "f$w" ) ) ) + ( Ref Nothing ( Local ( Name "x1$4" ) ) :| [ Ref Nothing ( Local ( Name "x$3" ) ) ] ) ) ) ) diff --git a/test/ps/output/Golden.NameShadowing.Test/golden.lua b/test/ps/output/Golden.NameShadowing.Test/golden.lua index 4e6ab1ee..252b4b60 100644 --- a/test/ps/output/Golden.NameShadowing.Test/golden.lua +++ b/test/ps/output/Golden.NameShadowing.Test/golden.lua @@ -1,18 +1,16 @@ local M = {} -M.Golden_NameShadowing_Test_f = function(v) - return function(v1) - if 1 == v then return 1 elseif 1 == v1 then return 2 else return 3 end - end +M.Golden_NameShadowing_Test_f_S_w = function(v, v1) + if 1 == v then return 1 elseif 1 == v1 then return 2 else return 3 end end return { b = function(x_S_0) return function(x1_S_1) - return M.Golden_NameShadowing_Test_f(M.Golden_NameShadowing_Test_f(x_S_0)(x1_S_1))(M.Golden_NameShadowing_Test_f(42)(1)) + return M.Golden_NameShadowing_Test_f_S_w(M.Golden_NameShadowing_Test_f_S_w(x_S_0, x1_S_1), M.Golden_NameShadowing_Test_f_S_w(42, 1)) end end, c = function(x_S_3) return function(x1_S_4) - return M.Golden_NameShadowing_Test_f(x1_S_4)(x_S_3) + return M.Golden_NameShadowing_Test_f_S_w(x1_S_4, x_S_3) end end } diff --git a/test/ps/output/Golden.Nested.Test/golden.ir b/test/ps/output/Golden.Nested.Test/golden.ir index 8cc4041a..799121a2 100644 --- a/test/ps/output/Golden.Nested.Test/golden.ir +++ b/test/ps/output/Golden.Nested.Test/golden.ir @@ -3,8 +3,8 @@ UberModule [ Standalone ( QName { qnameModuleName = ModuleName "Golden.Nested.Test", qnameName = Name "isZero" - }, Abs Nothing - ( ParamNamed Nothing ( Name "v" ) ) + }, AbsN Nothing + ( ParamNamed Nothing ( Name "v" ) :| [] ) ( IfThenElse Nothing ( Eq Nothing ( LiteralInt Nothing 0 ) diff --git a/test/ps/output/Golden.Newtype.Test/golden.ir b/test/ps/output/Golden.Newtype.Test/golden.ir index e331d47a..240c448c 100644 --- a/test/ps/output/Golden.Newtype.Test/golden.ir +++ b/test/ps/output/Golden.Newtype.Test/golden.ir @@ -2,15 +2,15 @@ UberModule { uberModuleBindings = [ Standalone ( QName - { qnameModuleName = ModuleName "Golden.Newtype.Test", qnameName = Name "NT" }, Abs Nothing - ( ParamNamed Nothing ( Name "x" ) ) + { qnameModuleName = ModuleName "Golden.Newtype.Test", qnameName = Name "NT" }, AbsN Nothing + ( ParamNamed Nothing ( Name "x" ) :| [] ) ( Ref Nothing ( Local ( Name "x" ) ) ) ) ], uberModuleForeigns = [], uberModuleExports = [ ( Name "NT", Ref Nothing ( Imported ( ModuleName "Golden.Newtype.Test" ) ( Name "NT" ) ) ), - ( Name "f", Abs Nothing - ( ParamNamed Nothing ( Name "v$0" ) ) + ( Name "f", AbsN Nothing + ( ParamNamed Nothing ( Name "v$0" ) :| [] ) ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "v$0" ) ) ) ( PropName "foo" ) ) ), ( Name "g", Ref Nothing ( Imported ( ModuleName "Golden.Newtype.Test" ) ( Name "NT" ) ) ) diff --git a/test/ps/output/Golden.PatternMatching.Test1/golden.ir b/test/ps/output/Golden.PatternMatching.Test1/golden.ir index 471398cf..fffffb1d 100644 --- a/test/ps/output/Golden.PatternMatching.Test1/golden.ir +++ b/test/ps/output/Golden.PatternMatching.Test1/golden.ir @@ -24,8 +24,8 @@ UberModule ( CtorName "Not" ) [ FieldName "value0" ] ), - ( Name "pat", Abs Nothing - ( ParamNamed Nothing ( Name "e$2" ) ) + ( Name "pat", AbsN Nothing + ( ParamNamed Nothing ( Name "e$2" ) :| [] ) ( IfThenElse Nothing ( Eq Nothing ( LiteralString Nothing "Golden.PatternMatching.Test1∷E.Not" ) @@ -147,12 +147,12 @@ UberModule ( CtorName "T" ) [ FieldName "value0", FieldName "value1" ] ), - ( Name "fst", Abs Nothing - ( ParamNamed Nothing ( Name "v$0" ) ) + ( Name "fst", AbsN Nothing + ( ParamNamed Nothing ( Name "v$0" ) :| [] ) ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "v$0" ) ) ) ( PropName "value0" ) ) ), - ( Name "snd", Abs Nothing - ( ParamNamed Nothing ( Name "v$3" ) ) + ( Name "snd", AbsN Nothing + ( ParamNamed Nothing ( Name "v$3" ) :| [] ) ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "v$3" ) ) ) ( PropName "value1" ) ) ) ] diff --git a/test/ps/output/Golden.PatternMatching.Test2/golden.ir b/test/ps/output/Golden.PatternMatching.Test2/golden.ir index d218cab8..a2c2773b 100644 --- a/test/ps/output/Golden.PatternMatching.Test2/golden.ir +++ b/test/ps/output/Golden.PatternMatching.Test2/golden.ir @@ -4,8 +4,8 @@ UberModule ( ( QName { qnameModuleName = ModuleName "Golden.PatternMatching.Test2", qnameName = Name "bat" - }, Abs Nothing - ( ParamNamed Nothing ( Name "n" ) ) + }, AbsN Nothing + ( ParamNamed Nothing ( Name "n" ) :| [] ) ( IfThenElse Nothing ( Eq Nothing ( LiteralString Nothing "Golden.PatternMatching.Test1∷N.Zero" ) @@ -56,8 +56,8 @@ UberModule ( CtorName "Mul" ) [ FieldName "value0", FieldName "value1" ] ), - ( Name "pat", Abs Nothing - ( ParamNamed Nothing ( Name "e$0" ) ) + ( Name "pat", AbsN Nothing + ( ParamNamed Nothing ( Name "e$0" ) :| [] ) ( IfThenElse Nothing ( Eq Nothing ( LiteralString Nothing "Golden.PatternMatching.Test2∷N.Add" ) diff --git a/test/ps/output/Golden.ProfunctorDictLens.Test/golden.ir b/test/ps/output/Golden.ProfunctorDictLens.Test/golden.ir index c33ac855..4da17351 100644 --- a/test/ps/output/Golden.ProfunctorDictLens.Test/golden.ir +++ b/test/ps/output/Golden.ProfunctorDictLens.Test/golden.ir @@ -55,18 +55,18 @@ UberModule ), Standalone ( QName { qnameModuleName = ModuleName "Control.Applicative", qnameName = Name "pure" - }, Abs Nothing - ( ParamNamed Nothing ( Name "dict" ) ) + }, AbsN Nothing + ( ParamNamed Nothing ( Name "dict" ) :| [] ) ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "dict" ) ) ) ( PropName "pure" ) ) ), Standalone ( QName - { qnameModuleName = ModuleName "Control.Bind", qnameName = Name "bind" }, Abs Nothing - ( ParamNamed Nothing ( Name "dict" ) ) + { qnameModuleName = ModuleName "Control.Bind", qnameName = Name "bind" }, AbsN Nothing + ( ParamNamed Nothing ( Name "dict" ) :| [] ) ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "dict" ) ) ) ( PropName "bind" ) ) ), Standalone ( QName - { qnameModuleName = ModuleName "Data.Newtype", qnameName = Name "unwrap" - }, Abs Nothing ( ParamUnused Nothing ) + { qnameModuleName = ModuleName "Data.Newtype", qnameName = Name "unwrap" }, AbsN Nothing + ( ParamUnused Nothing :| [] ) ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Unsafe.Coerce" ) ( Name "foreign" ) ) ) ( PropName "unsafeCoerce" ) @@ -74,12 +74,12 @@ UberModule ), Standalone ( QName { qnameModuleName = ModuleName "Data.Profunctor", qnameName = Name "composeFlipped" - }, Abs Nothing - ( ParamNamed Nothing ( Name "f$263" ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "g$264" ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x$274" ) ) + }, AbsN Nothing + ( ParamNamed Nothing ( Name "f$263" ) :| [] ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "g$264" ) :| [] ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x$274" ) :| [] ) ( AppN Nothing ( Ref Nothing ( Local ( Name "g$264" ) ) ) ( AppN Nothing @@ -94,12 +94,12 @@ UberModule { qnameModuleName = ModuleName "Data.Profunctor", qnameName = Name "profunctorFn" }, LiteralObject Nothing [ - ( PropName "dimap", Abs Nothing - ( ParamNamed Nothing ( Name "a2b" ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "c2d" ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "b2c" ) ) + ( PropName "dimap", AbsN Nothing + ( ParamNamed Nothing ( Name "a2b" ) :| [] ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "c2d" ) :| [] ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "b2c" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -123,8 +123,8 @@ UberModule ] ), Standalone ( QName - { qnameModuleName = ModuleName "Data.Profunctor", qnameName = Name "dimap" }, Abs Nothing - ( ParamNamed Nothing ( Name "dict" ) ) + { qnameModuleName = ModuleName "Data.Profunctor", qnameName = Name "dimap" }, AbsN Nothing + ( ParamNamed Nothing ( Name "dict" ) :| [] ) ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "dict" ) ) ) ( PropName "dimap" ) ) ), RecursiveGroup ( @@ -132,10 +132,12 @@ UberModule { qnameModuleName = ModuleName "Effect", qnameName = Name "monadEffect" }, LiteralObject Nothing [ - ( PropName "Applicative0", Abs Nothing ( ParamUnused Nothing ) + ( PropName "Applicative0", AbsN Nothing + ( ParamUnused Nothing :| [] ) ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "applicativeEffect" ) ) ) ), - ( PropName "Bind1", Abs Nothing ( ParamUnused Nothing ) + ( PropName "Bind1", AbsN Nothing + ( ParamUnused Nothing :| [] ) ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "bindEffect" ) ) ) ) ] @@ -149,7 +151,8 @@ UberModule ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "foreign" ) ) ) ( PropName "bindE" ) ), - ( PropName "Apply0", Abs Nothing ( ParamUnused Nothing ) + ( PropName "Apply0", AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "Lazy_applyEffect" ) ) ) ( LiteralInt Nothing 0 :| [] ) @@ -165,7 +168,8 @@ UberModule ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "foreign" ) ) ) ( PropName "pureE" ) ), - ( PropName "Apply0", Abs Nothing ( ParamUnused Nothing ) + ( PropName "Apply0", AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "Lazy_applyEffect" ) ) ) ( LiteralInt Nothing 0 :| [] ) @@ -180,13 +184,14 @@ UberModule ( Ref Nothing ( Local ( Name "PSLUA_runtime_lazy" ) ) ) ( LiteralString Nothing "functorEffect" :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( LiteralObject Nothing [ - ( PropName "map", Abs Nothing - ( ParamNamed Nothing ( Name "f$111" ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "a$112" ) ) + ( PropName "map", AbsN Nothing + ( ParamNamed Nothing ( Name "f$111" ) :| [] ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "a$112" ) :| [] ) ( AppN Nothing ( AppN Nothing ( ObjectProp Nothing @@ -233,7 +238,8 @@ UberModule ( Ref Nothing ( Local ( Name "PSLUA_runtime_lazy" ) ) ) ( LiteralString Nothing "applyEffect" :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( LiteralObject Nothing [ ( PropName "apply", Let Nothing @@ -253,24 +259,24 @@ UberModule ) ) :| [] ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "f$92" ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "a$93" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "f$92" ) :| [] ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "a$93" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing ( Local ( Name "bind$90" ) ) ) ( Ref Nothing ( Local ( Name "f$92" ) ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "f'$94" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "f'$94" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing ( Local ( Name "bind$90" ) ) ) ( Ref Nothing ( Local ( Name "a$93" ) ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "a'$95" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "a'$95" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -309,7 +315,8 @@ UberModule ) ) ), - ( PropName "Functor0", Abs Nothing ( ParamUnused Nothing ) + ( PropName "Functor0", AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "Lazy_functorEffect" ) ) @@ -337,8 +344,8 @@ UberModule ), Standalone ( QName { qnameModuleName = ModuleName "Golden.ProfunctorDictLens.Test", qnameName = Name "logShow" - }, Abs Nothing - ( ParamNamed Nothing ( Name "a$5" ) ) + }, AbsN Nothing + ( ParamNamed Nothing ( Name "a$5" ) :| [] ) ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) @@ -355,14 +362,14 @@ UberModule ), Standalone ( QName { qnameModuleName = ModuleName "Golden.ProfunctorDictLens.Test", qnameName = Name "Wrapped" - }, Abs Nothing - ( ParamNamed Nothing ( Name "x" ) ) + }, AbsN Nothing + ( ParamNamed Nothing ( Name "x" ) :| [] ) ( Ref Nothing ( Local ( Name "x" ) ) ) ), Standalone ( QName { qnameModuleName = ModuleName "Golden.ProfunctorDictLens.Test", qnameName = Name "_Wrapped" - }, Abs Nothing - ( ParamNamed Nothing ( Name "dictProfunctor" ) ) + }, AbsN Nothing + ( ParamNamed Nothing ( Name "dictProfunctor" ) :| [] ) ( AppN Nothing ( AppN Nothing ( AppN Nothing @@ -394,7 +401,8 @@ UberModule ( Name "_Wrapped", Ref Nothing ( Imported ( ModuleName "Golden.ProfunctorDictLens.Test" ) ( Name "_Wrapped" ) ) ), - ( Name "main", Abs Nothing ( ParamUnused Nothing ) + ( Name "main", AbsN Nothing + ( ParamUnused Nothing :| [] ) ( Let Nothing ( Standalone ( Nothing, Name "_", AppN Nothing @@ -414,8 +422,8 @@ UberModule ( Name "_Wrapped1" ) ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "v$0" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "v$0" ) :| [] ) ( AppN Nothing ( AppN Nothing ( ObjectProp Nothing @@ -454,8 +462,8 @@ UberModule ( Name "_Wrapped1" ) ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "v0$1" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "v0$1" ) :| [] ) ( AppN Nothing ( AppN Nothing ( ObjectProp Nothing @@ -518,8 +526,8 @@ UberModule ( PropName "unsafeCoerce" ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "v1$2" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "v1$2" ) :| [] ) ( AppN Nothing ( AppN Nothing ( ObjectProp ( Just Always ) @@ -544,7 +552,8 @@ UberModule ), ( Name "newtypeWrapped", LiteralObject Nothing [ - ( PropName "Coercible0", Abs Nothing ( ParamUnused Nothing ) + ( PropName "Coercible0", AbsN Nothing + ( ParamUnused Nothing :| [] ) ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) ) ) ] diff --git a/test/ps/output/Golden.RecGroupOrder.Test/golden.ir b/test/ps/output/Golden.RecGroupOrder.Test/golden.ir index 90f09852..d8161bf2 100644 --- a/test/ps/output/Golden.RecGroupOrder.Test/golden.ir +++ b/test/ps/output/Golden.RecGroupOrder.Test/golden.ir @@ -15,8 +15,8 @@ UberModule ), Standalone ( QName { qnameModuleName = ModuleName "Golden.RecGroupOrder.Test", qnameName = Name "store" - }, Abs Nothing - ( ParamNamed Nothing ( Name "f" ) ) + }, AbsN Nothing + ( ParamNamed Nothing ( Name "f" ) :| [] ) ( LiteralObject Nothing [ ( PropName "run", Ref Nothing ( Local ( Name "f" ) ) ), @@ -37,12 +37,14 @@ UberModule ( Ref Nothing ( Local ( Name "PSLUA_runtime_lazy" ) ) ) ( LiteralString Nothing "record" :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.RecGroupOrder.Test" ) ( Name "store" ) ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( ObjectProp Nothing ( AppN Nothing ( Ref Nothing ( Local ( Name "Lazy_record$0" ) ) ) diff --git a/test/ps/output/Golden.RecordsAccess.Test/golden.ir b/test/ps/output/Golden.RecordsAccess.Test/golden.ir index 46a8e715..f6df4d4c 100644 --- a/test/ps/output/Golden.RecordsAccess.Test/golden.ir +++ b/test/ps/output/Golden.RecordsAccess.Test/golden.ir @@ -15,16 +15,16 @@ UberModule ( Ref Nothing ( Imported ( ModuleName "Golden.RecordsAccess.Test" ) ( Name "r" ) ) ) ( PropName "x" ) ), - ( Name "test2", Abs Nothing - ( ParamNamed Nothing ( Name "v$0" ) ) + ( Name "test2", AbsN Nothing + ( ParamNamed Nothing ( Name "v$0" ) :| [] ) ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "v$0" ) ) ) ( PropName "x" ) ) ), - ( Name "test3", Abs Nothing - ( ParamNamed Nothing ( Name "v$1" ) ) + ( Name "test3", AbsN Nothing + ( ParamNamed Nothing ( Name "v$1" ) :| [] ) ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "v$1" ) ) ) ( PropName "x" ) ) ), - ( Name "test4", Abs Nothing - ( ParamNamed Nothing ( Name "v$3" ) ) + ( Name "test4", AbsN Nothing + ( ParamNamed Nothing ( Name "v$3" ) :| [] ) ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "v$3" ) ) ) ( PropName "x" ) ) ) ] diff --git a/test/ps/output/Golden.RecordsUpdate.Test/golden.ir b/test/ps/output/Golden.RecordsUpdate.Test/golden.ir index 39129ae8..e9f620ab 100644 --- a/test/ps/output/Golden.RecordsUpdate.Test/golden.ir +++ b/test/ps/output/Golden.RecordsUpdate.Test/golden.ir @@ -24,15 +24,15 @@ UberModule ( Ref Nothing ( Imported ( ModuleName "Golden.RecordsUpdate.Test" ) ( Name "r" ) ) ) ( ( PropName "x", LiteralInt Nothing 2 ) :| [] ) ), - ( Name "test2", Abs Nothing - ( ParamNamed Nothing ( Name "v$1" ) ) + ( Name "test2", AbsN Nothing + ( ParamNamed Nothing ( Name "v$1" ) :| [] ) ( ObjectUpdate Nothing ( Ref Nothing ( Local ( Name "v$1" ) ) ) ( ( PropName "y", LiteralBool Nothing False ) :| [] ) ) ), - ( Name "test3", Abs Nothing - ( ParamNamed Nothing ( Name "v$2" ) ) + ( Name "test3", AbsN Nothing + ( ParamNamed Nothing ( Name "v$2" ) :| [] ) ( ObjectUpdate Nothing ( Ref Nothing ( Local ( Name "v$2" ) ) ) ( @@ -43,8 +43,8 @@ UberModule ) ) ), - ( Name "test4", Abs Nothing - ( ParamNamed Nothing ( Name "v$3" ) ) + ( Name "test4", AbsN Nothing + ( ParamNamed Nothing ( Name "v$3" ) :| [] ) ( ObjectUpdate Nothing ( Ref Nothing ( Local ( Name "v$3" ) ) ) ( ( PropName "x", LiteralInt Nothing 1 ) :| [] ) diff --git a/test/ps/output/Golden.RecursiveBindings.Test/golden.ir b/test/ps/output/Golden.RecursiveBindings.Test/golden.ir index 08a7736a..3f5a8241 100644 --- a/test/ps/output/Golden.RecursiveBindings.Test/golden.ir +++ b/test/ps/output/Golden.RecursiveBindings.Test/golden.ir @@ -4,8 +4,8 @@ UberModule ( Name "letRec", Let Nothing ( RecursiveGroup ( - ( Nothing, Name "yes$0", Abs Nothing - ( ParamNamed Nothing ( Name "v$2" ) ) + ( Nothing, Name "yes$0", AbsN Nothing + ( ParamNamed Nothing ( Name "v$2" ) :| [] ) ( IfThenElse Nothing ( Ref Nothing ( Local ( Name "v$2" ) ) ) ( AppN Nothing @@ -25,8 +25,8 @@ UberModule ) ) :| [ - ( Nothing, Name "no$1", Abs Nothing - ( ParamNamed Nothing ( Name "v0$3" ) ) + ( Nothing, Name "no$1", AbsN Nothing + ( ParamNamed Nothing ( Name "v0$3" ) :| [] ) ( IfThenElse Nothing ( Ref Nothing ( Local ( Name "v0$3" ) ) ) ( AppN Nothing @@ -56,8 +56,8 @@ UberModule ( Name "whereRec", Let Nothing ( RecursiveGroup ( - ( Nothing, Name "yes$14", Abs Nothing - ( ParamNamed Nothing ( Name "v$16" ) ) + ( Nothing, Name "yes$14", AbsN Nothing + ( ParamNamed Nothing ( Name "v$16" ) :| [] ) ( IfThenElse Nothing ( Ref Nothing ( Local ( Name "v$16" ) ) ) ( AppN Nothing @@ -77,8 +77,8 @@ UberModule ) ) :| [ - ( Nothing, Name "no$15", Abs Nothing - ( ParamNamed Nothing ( Name "v0$17" ) ) + ( Nothing, Name "no$15", AbsN Nothing + ( ParamNamed Nothing ( Name "v0$17" ) :| [] ) ( IfThenElse Nothing ( Ref Nothing ( Local ( Name "v0$17" ) ) ) ( AppN Nothing @@ -110,14 +110,16 @@ UberModule ( Nothing, Name "z$4", LiteralInt Nothing 1 ) :| [ RecursiveGroup ( - ( Nothing, Name "b$5", Abs Nothing ( ParamUnused Nothing ) + ( Nothing, Name "b$5", AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( Ref Nothing ( Local ( Name "a$6" ) ) ) ( Ref Nothing ( Local ( Name "z$4" ) ) :| [] ) ) ) :| [ - ( Nothing, Name "a$6", Abs Nothing ( ParamUnused Nothing ) + ( Nothing, Name "a$6", AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( Ref Nothing ( Local ( Name "b$5" ) ) ) ( Ref Nothing ( Local ( Name "z$4" ) ) :| [] ) @@ -125,41 +127,28 @@ UberModule ) ] ), Standalone - ( Nothing, Name "f$7", Abs Nothing ( ParamUnused Nothing ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "k$13" ) ) - ( AppN Nothing - ( Ref Nothing ( Local ( Name "a$6" ) ) ) - ( Ref Nothing ( Local ( Name "k$13" ) ) :| [] ) - ) + ( Nothing, Name "f$7$w", AbsN Nothing + ( ParamNamed Nothing ( Name "f$7$u1" ) :| [ ParamNamed Nothing ( Name "k$13" ) ] ) + ( AppN Nothing + ( Ref Nothing ( Local ( Name "a$6" ) ) ) + ( Ref Nothing ( Local ( Name "k$13" ) ) :| [] ) ) ), Standalone ( 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 "f$7$w" ) ) ) + ( Ref Nothing ( Local ( Name "z$4" ) ) :| [ Ref Nothing ( Local ( Name "z$4" ) ) ] ) ) ] ) ( AppN Nothing + ( Ref Nothing ( Local ( Name "f$7$w" ) ) ) ( AppN Nothing - ( Ref Nothing ( Local ( Name "f$7" ) ) ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing ( Local ( Name "f$7" ) ) ) - ( Ref Nothing ( Local ( Name "y$8" ) ) :| [] ) - ) - ( Ref Nothing ( Local ( Name "y$8" ) ) :| [] ) :| [] - ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing ( Local ( Name "f$7" ) ) ) - ( Ref Nothing ( Local ( Name "y$8" ) ) :| [] ) - ) - ( LiteralInt Nothing 0 :| [] ) :| [] + ( Ref Nothing ( Local ( Name "f$7$w" ) ) ) + ( Ref Nothing ( Local ( Name "y$8" ) ) :| [ Ref Nothing ( Local ( Name "y$8" ) ) ] ) :| + [ AppN Nothing + ( Ref Nothing ( Local ( Name "f$7$w" ) ) ) + ( Ref Nothing ( Local ( Name "y$8" ) ) :| [ LiteralInt Nothing 0 ] ) + ] ) ) ) diff --git a/test/ps/output/Golden.RecursiveBindings.Test/golden.lua b/test/ps/output/Golden.RecursiveBindings.Test/golden.lua index 1c60f3db..d4a96995 100644 --- a/test/ps/output/Golden.RecursiveBindings.Test/golden.lua +++ b/test/ps/output/Golden.RecursiveBindings.Test/golden.lua @@ -51,10 +51,8 @@ return { local a_S_6 b_S_5 = function() return a_S_6(z_S_4) end a_S_6 = function() return b_S_5(z_S_4) end - local f_S_7 = function() - return function(k_S_13) return a_S_6(k_S_13) end - end - local y_S_8 = f_S_7(z_S_4)(z_S_4) - return f_S_7(f_S_7(y_S_8)(y_S_8))(f_S_7(y_S_8)(0)) + local f_S_7_S_w = function(f_S_7_S_u1, k_S_13) return a_S_6(k_S_13) end + local y_S_8 = f_S_7_S_w(z_S_4, z_S_4) + return f_S_7_S_w(f_S_7_S_w(y_S_8, y_S_8), f_S_7_S_w(y_S_8, 0)) end)() } diff --git a/test/ps/output/Golden.StringCodePoints.Test/golden.ir b/test/ps/output/Golden.StringCodePoints.Test/golden.ir index b3f40aca..877c47ff 100644 --- a/test/ps/output/Golden.StringCodePoints.Test/golden.ir +++ b/test/ps/output/Golden.StringCodePoints.Test/golden.ir @@ -130,12 +130,12 @@ UberModule { qnameModuleName = ModuleName "Control.Semigroupoid", qnameName = Name "semigroupoidFn" }, LiteralObject Nothing [ - ( PropName "compose", Abs Nothing - ( ParamNamed Nothing ( Name "f" ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "g" ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x" ) ) + ( PropName "compose", AbsN Nothing + ( ParamNamed Nothing ( Name "f" ) :| [] ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "g" ) :| [] ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x" ) :| [] ) ( AppN Nothing ( Ref Nothing ( Local ( Name "f" ) ) ) ( AppN Nothing @@ -150,8 +150,8 @@ UberModule ), Standalone ( QName { qnameModuleName = ModuleName "Control.Semigroupoid", qnameName = Name "compose" - }, Abs Nothing - ( ParamNamed Nothing ( Name "dict" ) ) + }, AbsN Nothing + ( ParamNamed Nothing ( Name "dict" ) :| [] ) ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "dict" ) ) ) ( PropName "compose" ) ) ), RecursiveGroup ( @@ -161,10 +161,10 @@ UberModule [ ( PropName "ff", LiteralBool Nothing False ), ( PropName "tt", LiteralBool Nothing True ), - ( PropName "implies", Abs Nothing - ( ParamNamed Nothing ( Name "a" ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "b" ) ) + ( PropName "implies", AbsN Nothing + ( ParamNamed Nothing ( Name "a" ) :| [] ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "b" ) :| [] ) ( AppN Nothing ( AppN Nothing ( ObjectProp Nothing @@ -210,8 +210,8 @@ UberModule ), Standalone ( QName { qnameModuleName = ModuleName "Data.HeytingAlgebra", qnameName = Name "conj" - }, Abs Nothing - ( ParamNamed Nothing ( Name "dict" ) ) + }, AbsN Nothing + ( ParamNamed Nothing ( Name "dict" ) :| [] ) ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "dict" ) ) ) ( PropName "conj" ) ) ), Standalone ( QName @@ -224,8 +224,8 @@ UberModule ] ), Standalone ( QName - { qnameModuleName = ModuleName "Data.Eq", qnameName = Name "eq" }, Abs Nothing - ( ParamNamed Nothing ( Name "dict" ) ) + { qnameModuleName = ModuleName "Data.Eq", qnameName = Name "eq" }, AbsN Nothing + ( ParamNamed Nothing ( Name "dict" ) :| [] ) ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "dict" ) ) ) ( PropName "eq" ) ) ), Standalone ( QName @@ -239,8 +239,8 @@ UberModule ] ), Standalone ( QName - { qnameModuleName = ModuleName "Data.Semigroup", qnameName = Name "append" }, Abs Nothing - ( ParamNamed Nothing ( Name "dict" ) ) + { qnameModuleName = ModuleName "Data.Semigroup", qnameName = Name "append" }, AbsN Nothing + ( ParamNamed Nothing ( Name "dict" ) :| [] ) ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "dict" ) ) ) ( PropName "append" ) ) ), Standalone ( QName @@ -254,8 +254,8 @@ UberModule ] ), Standalone ( QName - { qnameModuleName = ModuleName "Data.Show", qnameName = Name "show" }, Abs Nothing - ( ParamNamed Nothing ( Name "dict" ) ) + { qnameModuleName = ModuleName "Data.Show", qnameName = Name "show" }, AbsN Nothing + ( ParamNamed Nothing ( Name "dict" ) :| [] ) ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "dict" ) ) ) ( PropName "show" ) ) ), Standalone ( QName @@ -296,13 +296,13 @@ UberModule ] ), Standalone ( QName - { qnameModuleName = ModuleName "Data.Semiring", qnameName = Name "add" }, Abs Nothing - ( ParamNamed Nothing ( Name "dict" ) ) + { qnameModuleName = ModuleName "Data.Semiring", qnameName = Name "add" }, AbsN Nothing + ( ParamNamed Nothing ( Name "dict" ) :| [] ) ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "dict" ) ) ) ( PropName "add" ) ) ), Standalone ( QName - { qnameModuleName = ModuleName "Data.Ring", qnameName = Name "sub" }, Abs Nothing - ( ParamNamed Nothing ( Name "dict" ) ) + { qnameModuleName = ModuleName "Data.Ring", qnameName = Name "sub" }, AbsN Nothing + ( ParamNamed Nothing ( Name "dict" ) :| [] ) ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "dict" ) ) ) ( PropName "sub" ) ) ), Standalone ( QName @@ -313,7 +313,8 @@ UberModule ( Ref Nothing ( Imported ( ModuleName "Data.Ring" ) ( Name "foreign" ) ) ) ( PropName "intSub" ) ), - ( PropName "Semiring0", Abs Nothing ( ParamUnused Nothing ) + ( PropName "Semiring0", AbsN Nothing + ( ParamUnused Nothing :| [] ) ( Ref Nothing ( Imported ( ModuleName "Data.Semiring" ) ( Name "semiringInt" ) ) ) ) ] @@ -335,7 +336,8 @@ UberModule ) ( Ref Nothing ( Imported ( ModuleName "Data.Ordering" ) ( Name "GT" ) ) :| [] ) ), - ( PropName "Eq0", Abs Nothing ( ParamUnused Nothing ) + ( PropName "Eq0", AbsN Nothing + ( ParamUnused Nothing :| [] ) ( Ref Nothing ( Imported ( ModuleName "Data.Eq" ) ( Name "eqInt" ) ) ) ) ] @@ -357,7 +359,8 @@ UberModule ) ( Ref Nothing ( Imported ( ModuleName "Data.Ordering" ) ( Name "GT" ) ) :| [] ) ), - ( PropName "Eq0", Abs Nothing ( ParamUnused Nothing ) + ( PropName "Eq0", AbsN Nothing + ( ParamUnused Nothing :| [] ) ( LiteralObject Nothing [ ( PropName "eq", ObjectProp ( Just Always ) @@ -370,111 +373,103 @@ UberModule ] ), Standalone ( QName - { qnameModuleName = ModuleName "Data.Ord", qnameName = Name "compare" }, Abs Nothing - ( ParamNamed Nothing ( Name "dict" ) ) + { qnameModuleName = ModuleName "Data.Ord", qnameName = Name "compare" }, AbsN Nothing + ( ParamNamed Nothing ( Name "dict" ) :| [] ) ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "dict" ) ) ) ( PropName "compare" ) ) ), Standalone ( QName - { qnameModuleName = ModuleName "Data.Ord", qnameName = Name "greaterThanOrEq" - }, Abs Nothing - ( ParamNamed Nothing ( Name "dictOrd" ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "a1" ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "a2" ) ) - ( IfThenElse Nothing - ( Eq Nothing - ( LiteralString Nothing "Data.Ordering∷Ordering.LT" ) - ( ReflectCtor Nothing + { qnameModuleName = ModuleName "Data.Ord", qnameName = Name "greaterThanOrEq$w" + }, AbsN Nothing + ( ParamNamed Nothing + ( Name "dictOrd" ) :| + [ ParamNamed Nothing ( Name "a1" ), ParamNamed Nothing ( Name "a2" ) ] + ) + ( IfThenElse Nothing + ( Eq Nothing + ( LiteralString Nothing "Data.Ordering∷Ordering.LT" ) + ( ReflectCtor Nothing + ( AppN Nothing + ( AppN Nothing ( AppN Nothing - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing ( Imported ( ModuleName "Data.Ord" ) ( Name "compare" ) ) ) - ( Ref Nothing ( Local ( Name "dictOrd" ) ) :| [] ) - ) - ( Ref Nothing ( Local ( Name "a1" ) ) :| [] ) - ) - ( Ref Nothing ( Local ( Name "a2" ) ) :| [] ) + ( Ref Nothing ( Imported ( ModuleName "Data.Ord" ) ( Name "compare" ) ) ) + ( Ref Nothing ( Local ( Name "dictOrd" ) ) :| [] ) ) + ( Ref Nothing ( Local ( Name "a1" ) ) :| [] ) ) - ) ( LiteralBool Nothing False ) ( LiteralBool Nothing True ) + ( Ref Nothing ( Local ( Name "a2" ) ) :| [] ) + ) ) - ) + ) ( LiteralBool Nothing False ) ( LiteralBool Nothing True ) ) ), Standalone ( QName - { qnameModuleName = ModuleName "Data.Ord", qnameName = Name "lessThan" }, Abs Nothing - ( ParamNamed Nothing ( Name "dictOrd" ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "a1" ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "a2" ) ) - ( IfThenElse Nothing - ( Eq Nothing - ( LiteralString Nothing "Data.Ordering∷Ordering.LT" ) - ( ReflectCtor Nothing + { qnameModuleName = ModuleName "Data.Ord", qnameName = Name "lessThan$w" }, AbsN Nothing + ( ParamNamed Nothing + ( Name "dictOrd" ) :| + [ ParamNamed Nothing ( Name "a1" ), ParamNamed Nothing ( Name "a2" ) ] + ) + ( IfThenElse Nothing + ( Eq Nothing + ( LiteralString Nothing "Data.Ordering∷Ordering.LT" ) + ( ReflectCtor Nothing + ( AppN Nothing + ( AppN Nothing ( AppN Nothing - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing ( Imported ( ModuleName "Data.Ord" ) ( Name "compare" ) ) ) - ( Ref Nothing ( Local ( Name "dictOrd" ) ) :| [] ) - ) - ( Ref Nothing ( Local ( Name "a1" ) ) :| [] ) - ) - ( Ref Nothing ( Local ( Name "a2" ) ) :| [] ) + ( Ref Nothing ( Imported ( ModuleName "Data.Ord" ) ( Name "compare" ) ) ) + ( Ref Nothing ( Local ( Name "dictOrd" ) ) :| [] ) ) + ( Ref Nothing ( Local ( Name "a1" ) ) :| [] ) ) - ) ( LiteralBool Nothing True ) ( LiteralBool Nothing False ) + ( Ref Nothing ( Local ( Name "a2" ) ) :| [] ) + ) ) - ) + ) ( LiteralBool Nothing True ) ( LiteralBool Nothing False ) ) ), Standalone ( QName - { qnameModuleName = ModuleName "Data.Ord", qnameName = Name "lessThanOrEq" }, Abs Nothing - ( ParamNamed Nothing ( Name "dictOrd" ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "a1" ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "a2" ) ) - ( IfThenElse Nothing - ( Eq Nothing - ( LiteralString Nothing "Data.Ordering∷Ordering.GT" ) - ( ReflectCtor Nothing + { qnameModuleName = ModuleName "Data.Ord", qnameName = Name "lessThanOrEq$w" + }, AbsN Nothing + ( ParamNamed Nothing + ( Name "dictOrd" ) :| + [ ParamNamed Nothing ( Name "a1" ), ParamNamed Nothing ( Name "a2" ) ] + ) + ( IfThenElse Nothing + ( Eq Nothing + ( LiteralString Nothing "Data.Ordering∷Ordering.GT" ) + ( ReflectCtor Nothing + ( AppN Nothing + ( AppN Nothing ( AppN Nothing - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing ( Imported ( ModuleName "Data.Ord" ) ( Name "compare" ) ) ) - ( Ref Nothing ( Local ( Name "dictOrd" ) ) :| [] ) - ) - ( Ref Nothing ( Local ( Name "a1" ) ) :| [] ) - ) - ( Ref Nothing ( Local ( Name "a2" ) ) :| [] ) + ( Ref Nothing ( Imported ( ModuleName "Data.Ord" ) ( Name "compare" ) ) ) + ( Ref Nothing ( Local ( Name "dictOrd" ) ) :| [] ) ) + ( Ref Nothing ( Local ( Name "a1" ) ) :| [] ) ) - ) ( LiteralBool Nothing False ) ( LiteralBool Nothing True ) + ( Ref Nothing ( Local ( Name "a2" ) ) :| [] ) + ) ) - ) + ) ( LiteralBool Nothing False ) ( LiteralBool Nothing True ) ) ), Standalone ( QName - { qnameModuleName = ModuleName "Data.Functor", qnameName = Name "map" }, Abs Nothing - ( ParamNamed Nothing ( Name "dict" ) ) + { qnameModuleName = ModuleName "Data.Functor", qnameName = Name "map" }, AbsN Nothing + ( ParamNamed Nothing ( Name "dict" ) :| [] ) ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "dict" ) ) ) ( PropName "map" ) ) ), Standalone ( QName { qnameModuleName = ModuleName "Control.Applicative", qnameName = Name "pure" - }, Abs Nothing - ( ParamNamed Nothing ( Name "dict" ) ) + }, AbsN Nothing + ( ParamNamed Nothing ( Name "dict" ) :| [] ) ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "dict" ) ) ) ( PropName "pure" ) ) ), Standalone ( QName - { qnameModuleName = ModuleName "Control.Bind", qnameName = Name "bind" }, Abs Nothing - ( ParamNamed Nothing ( Name "dict" ) ) + { qnameModuleName = ModuleName "Control.Bind", qnameName = Name "bind" }, AbsN Nothing + ( ParamNamed Nothing ( Name "dict" ) :| [] ) ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "dict" ) ) ) ( PropName "bind" ) ) ), Standalone ( QName - { qnameModuleName = ModuleName "Data.Bounded", qnameName = Name "top" }, Abs Nothing - ( ParamNamed Nothing ( Name "dict" ) ) + { qnameModuleName = ModuleName "Data.Bounded", qnameName = Name "top" }, AbsN Nothing + ( ParamNamed Nothing ( Name "dict" ) :| [] ) ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "dict" ) ) ) ( PropName "top" ) ) ), Standalone ( QName @@ -489,14 +484,15 @@ UberModule ( Ref Nothing ( Imported ( ModuleName "Data.Bounded" ) ( Name "foreign" ) ) ) ( PropName "bottomChar" ) ), - ( PropName "Ord0", Abs Nothing ( ParamUnused Nothing ) + ( PropName "Ord0", AbsN Nothing + ( ParamUnused Nothing :| [] ) ( Ref Nothing ( Imported ( ModuleName "Data.Ord" ) ( Name "ordChar" ) ) ) ) ] ), Standalone ( QName - { qnameModuleName = ModuleName "Data.Bounded", qnameName = Name "bottom" }, Abs Nothing - ( ParamNamed Nothing ( Name "dict" ) ) + { qnameModuleName = ModuleName "Data.Bounded", qnameName = Name "bottom" }, AbsN Nothing + ( ParamNamed Nothing ( Name "dict" ) :| [] ) ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "dict" ) ) ) ( PropName "bottom" ) ) ), Standalone ( QName @@ -515,10 +511,12 @@ UberModule ( Ref Nothing ( Imported ( ModuleName "Data.EuclideanRing" ) ( Name "foreign" ) ) ) ( PropName "intMod" ) ), - ( PropName "CommutativeRing0", Abs Nothing ( ParamUnused Nothing ) + ( PropName "CommutativeRing0", AbsN Nothing + ( ParamUnused Nothing :| [] ) ( LiteralObject Nothing [ - ( PropName "Ring0", Abs Nothing ( ParamUnused Nothing ) + ( PropName "Ring0", AbsN Nothing + ( ParamUnused Nothing :| [] ) ( Ref Nothing ( Imported ( ModuleName "Data.Ring" ) ( Name "ringInt" ) ) ) ) ] @@ -549,12 +547,12 @@ UberModule [ FieldName "value0" ] ), Standalone ( QName - { qnameModuleName = ModuleName "Data.Maybe", qnameName = Name "showMaybe" }, Abs Nothing - ( ParamNamed Nothing ( Name "dictShow" ) ) + { qnameModuleName = ModuleName "Data.Maybe", qnameName = Name "showMaybe" }, AbsN Nothing + ( ParamNamed Nothing ( Name "dictShow" ) :| [] ) ( LiteralObject Nothing [ - ( PropName "show", Abs Nothing - ( ParamNamed Nothing ( Name "v" ) ) + ( PropName "show", AbsN Nothing + ( ParamNamed Nothing ( Name "v" ) :| [] ) ( IfThenElse Nothing ( Eq Nothing ( LiteralString Nothing "Data.Maybe∷Maybe.Just" ) @@ -599,10 +597,10 @@ UberModule { qnameModuleName = ModuleName "Data.Maybe", qnameName = Name "functorMaybe" }, LiteralObject Nothing [ - ( PropName "map", Abs Nothing - ( ParamNamed Nothing ( Name "v" ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "v1" ) ) + ( PropName "map", AbsN Nothing + ( ParamNamed Nothing ( Name "v" ) :| [] ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "v1" ) :| [] ) ( IfThenElse Nothing ( Eq Nothing ( LiteralString Nothing "Data.Maybe∷Maybe.Just" ) @@ -625,10 +623,10 @@ UberModule ] ), Standalone ( QName - { qnameModuleName = ModuleName "Data.Maybe", qnameName = Name "fromJust" - }, Abs Nothing ( ParamUnused Nothing ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "v" ) ) + { qnameModuleName = ModuleName "Data.Maybe", qnameName = Name "fromJust" }, AbsN Nothing + ( ParamUnused Nothing :| [] ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "v" ) :| [] ) ( IfThenElse Nothing ( Eq Nothing ( LiteralString Nothing "Data.Maybe∷Maybe.Just" ) @@ -644,10 +642,12 @@ UberModule { qnameModuleName = ModuleName "Effect", qnameName = Name "monadEffect" }, LiteralObject Nothing [ - ( PropName "Applicative0", Abs Nothing ( ParamUnused Nothing ) + ( PropName "Applicative0", AbsN Nothing + ( ParamUnused Nothing :| [] ) ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "applicativeEffect" ) ) ) ), - ( PropName "Bind1", Abs Nothing ( ParamUnused Nothing ) + ( PropName "Bind1", AbsN Nothing + ( ParamUnused Nothing :| [] ) ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "bindEffect" ) ) ) ) ] @@ -661,7 +661,8 @@ UberModule ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "foreign" ) ) ) ( PropName "bindE" ) ), - ( PropName "Apply0", Abs Nothing ( ParamUnused Nothing ) + ( PropName "Apply0", AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "Lazy_applyEffect" ) ) ) ( LiteralInt Nothing 0 :| [] ) @@ -677,7 +678,8 @@ UberModule ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "foreign" ) ) ) ( PropName "pureE" ) ), - ( PropName "Apply0", Abs Nothing ( ParamUnused Nothing ) + ( PropName "Apply0", AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "Lazy_applyEffect" ) ) ) ( LiteralInt Nothing 0 :| [] ) @@ -692,13 +694,14 @@ UberModule ( Ref Nothing ( Local ( Name "PSLUA_runtime_lazy" ) ) ) ( LiteralString Nothing "functorEffect" :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( LiteralObject Nothing [ - ( PropName "map", Abs Nothing - ( ParamNamed Nothing ( Name "f$997" ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "a$998" ) ) + ( PropName "map", AbsN Nothing + ( ParamNamed Nothing ( Name "f$997" ) :| [] ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "a$998" ) :| [] ) ( AppN Nothing ( AppN Nothing ( ObjectProp Nothing @@ -745,7 +748,8 @@ UberModule ( Ref Nothing ( Local ( Name "PSLUA_runtime_lazy" ) ) ) ( LiteralString Nothing "applyEffect" :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( LiteralObject Nothing [ ( PropName "apply", Let Nothing @@ -765,24 +769,24 @@ UberModule ) ) :| [] ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "f$1318" ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "a$1319" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "f$1318" ) :| [] ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "a$1319" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing ( Local ( Name "bind$1317" ) ) ) ( Ref Nothing ( Local ( Name "f$1318" ) ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "f'$1320" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "f'$1320" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing ( Local ( Name "bind$1317" ) ) ) ( Ref Nothing ( Local ( Name "a$1319" ) ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "a'$1321" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "a'$1321" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -821,7 +825,8 @@ UberModule ) ) ), - ( PropName "Functor0", Abs Nothing ( ParamUnused Nothing ) + ( PropName "Functor0", AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "Lazy_functorEffect" ) ) @@ -851,22 +856,22 @@ UberModule ( Ref Nothing ( Imported ( ModuleName "Data.Bounded" ) ( Name "boundedChar" ) ) :| [] ) ), Standalone ( QName - { qnameModuleName = ModuleName "Data.Enum", qnameName = Name "toEnum" }, Abs Nothing - ( ParamNamed Nothing ( Name "dict" ) ) + { qnameModuleName = ModuleName "Data.Enum", qnameName = Name "toEnum" }, AbsN Nothing + ( ParamNamed Nothing ( Name "dict" ) :| [] ) ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "dict" ) ) ) ( PropName "toEnum" ) ) ), Standalone ( QName - { qnameModuleName = ModuleName "Data.Enum", qnameName = Name "fromEnum" }, Abs Nothing - ( ParamNamed Nothing ( Name "dict" ) ) + { qnameModuleName = ModuleName "Data.Enum", qnameName = Name "fromEnum" }, AbsN Nothing + ( ParamNamed Nothing ( Name "dict" ) :| [] ) ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "dict" ) ) ) ( PropName "fromEnum" ) ) ), Standalone ( QName - { qnameModuleName = ModuleName "Data.Enum", qnameName = Name "defaultSucc" }, Abs Nothing - ( ParamNamed Nothing ( Name "toEnum'" ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "fromEnum'" ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "a" ) ) + { qnameModuleName = ModuleName "Data.Enum", qnameName = Name "defaultSucc" }, AbsN Nothing + ( ParamNamed Nothing ( Name "toEnum'" ) :| [] ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "fromEnum'" ) :| [] ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "a" ) :| [] ) ( AppN Nothing ( Ref Nothing ( Local ( Name "toEnum'" ) ) ) ( AppN Nothing @@ -889,12 +894,12 @@ UberModule ) ), Standalone ( QName - { qnameModuleName = ModuleName "Data.Enum", qnameName = Name "defaultPred" }, Abs Nothing - ( ParamNamed Nothing ( Name "toEnum'" ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "fromEnum'" ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "a" ) ) + { qnameModuleName = ModuleName "Data.Enum", qnameName = Name "defaultPred" }, AbsN Nothing + ( ParamNamed Nothing ( Name "toEnum'" ) :| [] ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "fromEnum'" ) :| [] ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "a" ) :| [] ) ( AppN Nothing ( Ref Nothing ( Local ( Name "toEnum'" ) ) ) ( AppN Nothing @@ -912,8 +917,8 @@ UberModule ) ), Standalone ( QName - { qnameModuleName = ModuleName "Data.Enum", qnameName = Name "charToEnum" }, Abs Nothing - ( ParamNamed Nothing ( Name "v" ) ) + { qnameModuleName = ModuleName "Data.Enum", qnameName = Name "charToEnum" }, AbsN Nothing + ( ParamNamed Nothing ( Name "v" ) :| [] ) ( IfThenElse Nothing ( AppN Nothing ( AppN Nothing @@ -927,40 +932,32 @@ UberModule ) ) ( AppN Nothing - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Data.Ord" ) ( Name "greaterThanOrEq" ) ) + ( Ref Nothing ( Imported ( ModuleName "Data.Ord" ) ( Name "greaterThanOrEq$w" ) ) ) + ( Ref Nothing + ( Imported ( ModuleName "Data.Ord" ) ( Name "ordInt" ) ) :| + [ Ref Nothing + ( Local ( Name "v" ) ), AppN Nothing + ( ObjectProp ( Just Always ) + ( Ref Nothing ( Imported ( ModuleName "Data.Enum" ) ( Name "foreign" ) ) ) + ( PropName "toCharCode" ) ) - ( Ref Nothing ( Imported ( ModuleName "Data.Ord" ) ( Name "ordInt" ) ) :| [] ) - ) - ( Ref Nothing ( Local ( Name "v" ) ) :| [] ) - ) - ( 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" ) ) :| [] ) + ] ) :| [] ) ) ( AppN Nothing - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing ( Imported ( ModuleName "Data.Ord" ) ( Name "lessThanOrEq" ) ) ) - ( Ref Nothing ( Imported ( ModuleName "Data.Ord" ) ( Name "ordInt" ) ) :| [] ) - ) - ( Ref Nothing ( Local ( Name "v" ) ) :| [] ) - ) - ( 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.Ord" ) ( Name "lessThanOrEq$w" ) ) ) + ( Ref Nothing + ( Imported ( ModuleName "Data.Ord" ) ( Name "ordInt" ) ) :| + [ Ref Nothing + ( Local ( Name "v" ) ), AppN Nothing + ( ObjectProp ( Just Always ) + ( Ref Nothing ( Imported ( ModuleName "Data.Enum" ) ( Name "foreign" ) ) ) + ( PropName "toCharCode" ) + ) + ( Ref Nothing ( Imported ( ModuleName "Data.Enum" ) ( Name "top1" ) ) :| [] ) + ] ) :| [] ) ) @@ -1007,10 +1004,12 @@ UberModule ( Ref Nothing ( Imported ( ModuleName "Data.Enum" ) ( Name "foreign" ) ) ) ( PropName "toCharCode" ) ), - ( PropName "Bounded0", Abs Nothing ( ParamUnused Nothing ) + ( PropName "Bounded0", AbsN Nothing + ( ParamUnused Nothing :| [] ) ( Ref Nothing ( Imported ( ModuleName "Data.Bounded" ) ( Name "boundedChar" ) ) ) ), - ( PropName "Enum1", Abs Nothing ( ParamUnused Nothing ) + ( PropName "Enum1", AbsN Nothing + ( ParamUnused Nothing :| [] ) ( LiteralObject Nothing [ ( PropName "succ", AppN Nothing @@ -1037,7 +1036,8 @@ UberModule ( PropName "toCharCode" ) :| [] ) ), - ( PropName "Ord0", Abs Nothing ( ParamUnused Nothing ) + ( PropName "Ord0", AbsN Nothing + ( ParamUnused Nothing :| [] ) ( Ref Nothing ( Imported ( ModuleName "Data.Ord" ) ( Name "ordChar" ) ) ) ) ] @@ -1075,9 +1075,21 @@ UberModule ), Standalone ( QName { qnameModuleName = ModuleName "Data.String.CodePoints", qnameName = Name "lessThanOrEq" - }, AppN Nothing - ( Ref Nothing ( Imported ( ModuleName "Data.Ord" ) ( Name "lessThanOrEq" ) ) ) - ( Ref Nothing ( Imported ( ModuleName "Data.Ord" ) ( Name "ordInt" ) ) :| [] ) + }, AbsN Nothing + ( ParamNamed Nothing ( Name "lessThanOrEq$p2$1337" ) :| [] ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "lessThanOrEq$p3$1338" ) :| [] ) + ( AppN Nothing + ( Ref Nothing ( Imported ( ModuleName "Data.Ord" ) ( Name "lessThanOrEq$w" ) ) ) + ( Ref Nothing + ( Imported ( ModuleName "Data.Ord" ) ( Name "ordInt" ) ) :| + [ Ref Nothing + ( Local ( Name "lessThanOrEq$p2$1337" ) ), Ref Nothing + ( Local ( Name "lessThanOrEq$p3$1338" ) ) + ] + ) + ) + ) ), Standalone ( QName { qnameModuleName = ModuleName "Data.String.CodePoints", qnameName = Name "fromEnum" @@ -1101,9 +1113,21 @@ UberModule ), Standalone ( QName { qnameModuleName = ModuleName "Data.String.CodePoints", qnameName = Name "lessThan" - }, AppN Nothing - ( Ref Nothing ( Imported ( ModuleName "Data.Ord" ) ( Name "lessThan" ) ) ) - ( Ref Nothing ( Imported ( ModuleName "Data.Ord" ) ( Name "ordInt" ) ) :| [] ) + }, AbsN Nothing + ( ParamNamed Nothing ( Name "lessThan$p2$1340" ) :| [] ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "lessThan$p3$1341" ) :| [] ) + ( AppN Nothing + ( Ref Nothing ( Imported ( ModuleName "Data.Ord" ) ( Name "lessThan$w" ) ) ) + ( Ref Nothing + ( Imported ( ModuleName "Data.Ord" ) ( Name "ordInt" ) ) :| + [ Ref Nothing + ( Local ( Name "lessThan$p2$1340" ) ), Ref Nothing + ( Local ( Name "lessThan$p3$1341" ) ) + ] + ) + ) + ) ), Standalone ( QName { qnameModuleName = ModuleName "Data.String.CodePoints", qnameName = Name "unsafeCodePointAt0" @@ -1112,8 +1136,8 @@ UberModule ( Ref Nothing ( Imported ( ModuleName "Data.String.CodePoints" ) ( Name "foreign" ) ) ) ( PropName "_unsafeCodePointAt0" ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "s$27" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "s$27" ) :| [] ) ( Let Nothing ( Standalone ( Nothing, Name "cu0$28", AppN Nothing @@ -1322,8 +1346,8 @@ UberModule ( PropName "singleton" ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x$62" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x$62" ) :| [] ) ( Let Nothing ( Standalone ( Nothing, Name "v$63", AppN Nothing @@ -1352,38 +1376,36 @@ UberModule ) ( IfThenElse 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 ( Local ( Name "x$62" ) ) :| [] ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing ( Imported ( ModuleName "Data.Enum" ) ( Name "fromEnum" ) ) ) - ( Ref Nothing - ( Imported ( ModuleName "Data.Enum" ) ( Name "boundedEnumChar" ) ) :| [] - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Data.Bounded" ) ( Name "bottom" ) ) - ) + ( Ref Nothing ( Imported ( ModuleName "Data.Ord" ) ( Name "lessThan$w" ) ) ) + ( Ref Nothing + ( Imported ( ModuleName "Data.Ord" ) ( Name "ordInt" ) ) :| + [ Ref Nothing + ( Local ( Name "x$62" ) ), AppN Nothing ( AppN Nothing - ( ObjectProp Nothing - ( Ref Nothing - ( Imported ( ModuleName "Data.Enum" ) ( Name "boundedEnumChar" ) ) - ) - ( PropName "Bounded0" ) + ( Ref Nothing + ( Imported ( ModuleName "Data.Enum" ) ( Name "fromEnum" ) ) ) ( Ref Nothing - ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] + ( Imported ( ModuleName "Data.Enum" ) ( Name "boundedEnumChar" ) ) :| [] + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported ( ModuleName "Data.Bounded" ) ( Name "bottom" ) ) + ) + ( AppN Nothing + ( ObjectProp Nothing + ( Ref Nothing + ( Imported ( ModuleName "Data.Enum" ) ( Name "boundedEnumChar" ) ) + ) + ( PropName "Bounded0" ) + ) + ( Ref Nothing + ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] + ) :| [] ) :| [] - ) :| [] - ) :| [] + ) + ] ) ) ( AppN Nothing @@ -1407,8 +1429,8 @@ UberModule ), Standalone ( QName { qnameModuleName = ModuleName "Data.String.CodePoints", qnameName = Name "singletonFallback" - }, Abs Nothing - ( ParamNamed Nothing ( Name "v" ) ) + }, AbsN Nothing + ( ParamNamed Nothing ( Name "v" ) :| [] ) ( IfThenElse Nothing ( AppN Nothing ( AppN Nothing @@ -1521,10 +1543,10 @@ UberModule { qnameModuleName = ModuleName "Data.String.CodePoints", qnameName = Name "ordCodePoint" }, LiteralObject Nothing [ - ( PropName "compare", Abs Nothing - ( ParamNamed Nothing ( Name "x" ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "y" ) ) + ( PropName "compare", AbsN Nothing + ( ParamNamed Nothing ( Name "x" ) :| [] ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "y" ) :| [] ) ( AppN Nothing ( AppN Nothing ( AppN Nothing @@ -1537,13 +1559,14 @@ UberModule ) ) ), - ( PropName "Eq0", Abs Nothing ( ParamUnused Nothing ) + ( PropName "Eq0", AbsN Nothing + ( ParamUnused Nothing :| [] ) ( LiteralObject Nothing [ - ( PropName "eq", Abs Nothing - ( ParamNamed Nothing ( Name "x$20" ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "y$21" ) ) + ( PropName "eq", AbsN Nothing + ( ParamNamed Nothing ( Name "x$20" ) :| [] ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "y$21" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -1563,8 +1586,8 @@ UberModule ( ( QName { qnameModuleName = ModuleName "Data.String.CodePoints", qnameName = Name "uncons" - }, Abs Nothing - ( ParamNamed Nothing ( Name "s" ) ) + }, AbsN Nothing + ( ParamNamed Nothing ( Name "s" ) :| [] ) ( IfThenElse Nothing ( AppN Nothing ( AppN Nothing @@ -1596,13 +1619,10 @@ UberModule ( Ref Nothing ( Local ( Name "s" ) ) :| [] ) ), ( PropName "tail", AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Data.String.CodePoints" ) ( Name "drop" ) ) - ) - ( LiteralInt Nothing 1 :| [] ) + ( Ref Nothing + ( Imported ( ModuleName "Data.String.CodePoints" ) ( Name "drop$w" ) ) ) - ( Ref Nothing ( Local ( Name "s" ) ) :| [] ) + ( LiteralInt Nothing 1 :| [ Ref Nothing ( Local ( Name "s" ) ) ] ) ) ] :| [] ) @@ -1611,152 +1631,155 @@ UberModule ) :| [ ( QName - { qnameModuleName = ModuleName "Data.String.CodePoints", qnameName = Name "takeFallback" - }, Abs Nothing - ( ParamNamed Nothing ( Name "v" ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "v1" ) ) - ( IfThenElse Nothing + { qnameModuleName = ModuleName "Data.String.CodePoints", qnameName = Name "takeFallback$w" + }, AbsN Nothing + ( ParamNamed Nothing ( Name "v" ) :| [ ParamNamed Nothing ( Name "v1" ) ] ) + ( IfThenElse Nothing + ( AppN Nothing ( AppN Nothing - ( AppN Nothing + ( Ref Nothing + ( Imported ( ModuleName "Data.String.CodePoints" ) ( Name "lessThan" ) ) + ) + ( Ref Nothing ( Local ( Name "v" ) ) :| [] ) + ) + ( LiteralInt Nothing 1 :| [] ) + ) + ( LiteralString Nothing "" ) + ( Let Nothing + ( Standalone + ( Nothing, Name "v2$17", AppN Nothing ( Ref Nothing - ( Imported ( ModuleName "Data.String.CodePoints" ) ( Name "lessThan" ) ) + ( Imported ( ModuleName "Data.String.CodePoints" ) ( Name "uncons" ) ) ) - ( Ref Nothing ( Local ( Name "v" ) ) :| [] ) - ) - ( LiteralInt Nothing 1 :| [] ) + ( Ref Nothing ( Local ( Name "v1" ) ) :| [] ) + ) :| [] ) - ( LiteralString Nothing "" ) - ( Let Nothing - ( Standalone - ( Nothing, Name "v2$17", AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Data.String.CodePoints" ) ( Name "uncons" ) ) - ) - ( Ref Nothing ( Local ( Name "v1" ) ) :| [] ) - ) :| [] + ( IfThenElse Nothing + ( Eq Nothing + ( LiteralString Nothing "Data.Maybe∷Maybe.Just" ) + ( ReflectCtor Nothing ( Ref Nothing ( Local ( Name "v2$17" ) ) ) ) ) - ( IfThenElse Nothing - ( Eq Nothing - ( LiteralString Nothing "Data.Maybe∷Maybe.Just" ) - ( ReflectCtor Nothing ( Ref Nothing ( Local ( Name "v2$17" ) ) ) ) - ) + ( AppN Nothing ( AppN Nothing + ( Ref Nothing + ( Imported ( ModuleName "Data.String.CodePoints" ) ( Name "append" ) ) + ) ( AppN Nothing ( Ref Nothing - ( Imported ( ModuleName "Data.String.CodePoints" ) ( Name "append" ) ) + ( Imported ( ModuleName "Data.String.CodePoints" ) ( Name "singleton" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.String.CodePoints" ) - ( Name "singleton" ) - ) - ) + ( ObjectProp Nothing ( ObjectProp Nothing - ( ObjectProp Nothing - ( Ref Nothing ( Local ( Name "v2$17" ) ) ) - ( PropName "value0" ) - ) - ( PropName "head" ) :| [] - ) :| [] + ( Ref Nothing ( Local ( Name "v2$17" ) ) ) + ( PropName "value0" ) + ) + ( PropName "head" ) :| [] + ) :| [] + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.String.CodePoints" ) + ( Name "takeFallback$w" ) ) ) ( AppN Nothing ( AppN Nothing ( Ref Nothing - ( Imported - ( ModuleName "Data.String.CodePoints" ) - ( Name "takeFallback" ) - ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Data.String.CodePoints" ) ( Name "sub" ) ) - ) - ( Ref Nothing ( Local ( Name "v" ) ) :| [] ) - ) - ( LiteralInt Nothing 1 :| [] ) :| [] + ( Imported ( ModuleName "Data.String.CodePoints" ) ( Name "sub" ) ) ) + ( Ref Nothing ( Local ( Name "v" ) ) :| [] ) ) - ( ObjectProp Nothing + ( LiteralInt Nothing 1 :| [] ) :| + [ ObjectProp Nothing ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "v2$17" ) ) ) ( PropName "value0" ) ) - ( PropName "tail" ) :| [] - ) :| [] - ) + ( PropName "tail" ) + ] + ) :| [] ) - ( Ref Nothing ( Local ( Name "v1" ) ) ) ) + ( Ref Nothing ( Local ( Name "v1" ) ) ) + ) + ) + ) + ), + ( QName + { qnameModuleName = ModuleName "Data.String.CodePoints", qnameName = Name "takeFallback" + }, AbsN Nothing + ( ParamNamed Nothing ( Name "takeFallback$p1" ) :| [] ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "takeFallback$p2" ) :| [] ) + ( AppN Nothing + ( Ref Nothing + ( Imported ( ModuleName "Data.String.CodePoints" ) ( Name "takeFallback$w" ) ) + ) + ( Ref Nothing + ( Local ( Name "takeFallback$p1" ) ) :| + [ Ref Nothing ( Local ( Name "takeFallback$p2" ) ) ] ) ) ) ), ( QName - { qnameModuleName = ModuleName "Data.String.CodePoints", qnameName = Name "take" - }, Abs Nothing - ( ParamNamed Nothing ( Name "n" ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "s" ) ) + { qnameModuleName = ModuleName "Data.String.CodePoints", qnameName = Name "take$w" + }, AbsN Nothing + ( ParamNamed Nothing ( Name "n" ) :| [ ParamNamed Nothing ( Name "s" ) ] ) + ( AppN Nothing ( AppN Nothing ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported ( ModuleName "Data.String.CodePoints" ) ( Name "foreign" ) ) - ) - ( PropName "_take" ) - ) + ( ObjectProp ( Just Always ) ( Ref Nothing - ( Imported - ( ModuleName "Data.String.CodePoints" ) - ( Name "takeFallback" ) - ) :| [] + ( Imported ( ModuleName "Data.String.CodePoints" ) ( Name "foreign" ) ) ) + ( PropName "_take" ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.String.CodePoints" ) + ( Name "takeFallback" ) + ) :| [] ) - ( Ref Nothing ( Local ( Name "n" ) ) :| [] ) ) - ( Ref Nothing ( Local ( Name "s" ) ) :| [] ) + ( Ref Nothing ( Local ( Name "n" ) ) :| [] ) ) + ( Ref Nothing ( Local ( Name "s" ) ) :| [] ) ) ), ( QName - { qnameModuleName = ModuleName "Data.String.CodePoints", qnameName = Name "drop" - }, Abs Nothing - ( ParamNamed Nothing ( Name "n" ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "s" ) ) + { qnameModuleName = ModuleName "Data.String.CodePoints", qnameName = Name "drop$w" + }, AbsN Nothing + ( ParamNamed Nothing ( Name "n" ) :| [ ParamNamed Nothing ( Name "s" ) ] ) + ( AppN Nothing ( AppN Nothing + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported ( ModuleName "Data.String.CodeUnits" ) ( Name "foreign" ) ) + ) + ( PropName "drop" ) + ) ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Data.String.CodeUnits" ) ( Name "foreign" ) ) ) - ( PropName "drop" ) + ( PropName "length" ) ) ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported ( ModuleName "Data.String.CodeUnits" ) ( Name "foreign" ) ) - ) - ( PropName "length" ) + ( Ref Nothing + ( Imported ( ModuleName "Data.String.CodePoints" ) ( Name "take$w" ) ) ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Data.String.CodePoints" ) ( Name "take" ) ) - ) - ( Ref Nothing ( Local ( Name "n" ) ) :| [] ) - ) - ( Ref Nothing ( Local ( Name "s" ) ) :| [] ) :| [] + ( Ref Nothing + ( Local ( Name "n" ) ) :| + [ Ref Nothing ( Local ( Name "s" ) ) ] ) :| [] - ) + ) :| [] ) - ( Ref Nothing ( Local ( Name "s" ) ) :| [] ) ) + ( Ref Nothing ( Local ( Name "s" ) ) :| [] ) ) ) ] @@ -1769,8 +1792,8 @@ UberModule ( Ref Nothing ( Imported ( ModuleName "Data.String.CodePoints" ) ( Name "foreign" ) ) ) ( PropName "_toCodePointArray" ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "s$10" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "s$10" ) :| [] ) ( AppN Nothing ( AppN Nothing ( AppN Nothing @@ -1783,8 +1806,8 @@ UberModule ) ( PropName "unfoldrArrayImpl" ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "v2$1313$1335" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "v2$1313$1335" ) :| [] ) ( IfThenElse Nothing ( Eq Nothing ( LiteralString Nothing "Data.Maybe∷Maybe.Nothing" ) @@ -1811,7 +1834,8 @@ UberModule ) ( PropName "_unsafePartial" ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "fromJust" ) ) @@ -1823,24 +1847,24 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "v$1333" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "v$1333" ) :| [] ) ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "v$1333" ) ) ) ( PropName "value0" ) ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "v$1334" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "v$1334" ) :| [] ) ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "v$1334" ) ) ) ( PropName "value1" ) ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "s$11" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "s$11" ) :| [] ) ( AppN Nothing ( AppN Nothing ( AppN Nothing @@ -1849,8 +1873,8 @@ UberModule ( Imported ( ModuleName "Data.Maybe" ) ( Name "functorMaybe" ) ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "v$12" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "v$12" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ctor Nothing ProductType @@ -1890,157 +1914,115 @@ UberModule ), RecursiveGroup ( ( QName - { qnameModuleName = ModuleName "Data.String.CodePoints", qnameName = Name "codePointAtFallback" - }, Abs Nothing - ( ParamNamed Nothing ( Name "n" ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "s" ) ) - ( Let Nothing - ( Standalone - ( Nothing, Name "v", AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Data.String.CodePoints" ) ( Name "uncons" ) ) - ) - ( Ref Nothing ( Local ( Name "s" ) ) :| [] ) - ) :| [] + { qnameModuleName = ModuleName "Data.String.CodePoints", qnameName = Name "codePointAtFallback$w" + }, AbsN Nothing + ( ParamNamed Nothing ( Name "n" ) :| [ ParamNamed Nothing ( Name "s" ) ] ) + ( Let Nothing + ( Standalone + ( Nothing, Name "v", AppN Nothing + ( Ref Nothing + ( Imported ( ModuleName "Data.String.CodePoints" ) ( Name "uncons" ) ) + ) + ( Ref Nothing ( Local ( Name "s" ) ) :| [] ) + ) :| [] + ) + ( IfThenElse Nothing + ( Eq Nothing + ( LiteralString Nothing "Data.Maybe∷Maybe.Just" ) + ( ReflectCtor Nothing ( Ref Nothing ( Local ( Name "v" ) ) ) ) ) ( IfThenElse Nothing - ( Eq Nothing - ( LiteralString Nothing "Data.Maybe∷Maybe.Just" ) - ( ReflectCtor Nothing ( Ref Nothing ( Local ( Name "v" ) ) ) ) - ) - ( IfThenElse Nothing + ( AppN Nothing ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Data.String.CodePoints" ) ( Name "eq" ) ) - ) - ( Ref Nothing ( Local ( Name "n" ) ) :| [] ) + ( Ref Nothing + ( Imported ( ModuleName "Data.String.CodePoints" ) ( Name "eq" ) ) ) - ( LiteralInt Nothing 0 :| [] ) + ( Ref Nothing ( Local ( Name "n" ) ) :| [] ) ) - ( AppN Nothing - ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) + ( LiteralInt Nothing 0 :| [] ) + ) + ( AppN Nothing + ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) + ( ObjectProp Nothing ( ObjectProp Nothing - ( ObjectProp Nothing - ( Ref Nothing ( Local ( Name "v" ) ) ) - ( PropName "value0" ) - ) - ( PropName "head" ) :| [] + ( Ref Nothing ( Local ( Name "v" ) ) ) + ( PropName "value0" ) + ) + ( PropName "head" ) :| [] + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.String.CodePoints" ) + ( Name "codePointAtFallback$w" ) ) ) ( AppN Nothing ( AppN Nothing ( Ref Nothing - ( Imported - ( ModuleName "Data.String.CodePoints" ) - ( Name "codePointAtFallback" ) - ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Data.String.CodePoints" ) ( Name "sub" ) ) - ) - ( Ref Nothing ( Local ( Name "n" ) ) :| [] ) - ) - ( LiteralInt Nothing 1 :| [] ) :| [] + ( Imported ( ModuleName "Data.String.CodePoints" ) ( Name "sub" ) ) ) + ( Ref Nothing ( Local ( Name "n" ) ) :| [] ) ) - ( ObjectProp Nothing + ( LiteralInt Nothing 1 :| [] ) :| + [ ObjectProp Nothing ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "v" ) ) ) ( PropName "value0" ) ) - ( PropName "tail" ) :| [] - ) + ( PropName "tail" ) + ] ) ) - ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Nothing" ) ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Nothing" ) ) ) ) ) - ) :| [] - ), Standalone - ( QName - { qnameModuleName = ModuleName "Data.String.CodePoints", qnameName = Name "codePointAt" - }, Abs Nothing - ( ParamNamed Nothing ( Name "v" ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "v1" ) ) - ( IfThenElse Nothing - ( AppN Nothing + ) :| + [ + ( QName + { qnameModuleName = ModuleName "Data.String.CodePoints", qnameName = Name "codePointAtFallback" + }, AbsN Nothing + ( ParamNamed Nothing ( Name "codePointAtFallback$p1" ) :| [] ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "codePointAtFallback$p2" ) :| [] ) ( AppN Nothing ( Ref Nothing - ( Imported ( ModuleName "Data.String.CodePoints" ) ( Name "lessThan" ) ) + ( Imported + ( ModuleName "Data.String.CodePoints" ) + ( Name "codePointAtFallback$w" ) + ) + ) + ( Ref Nothing + ( Local ( Name "codePointAtFallback$p1" ) ) :| + [ Ref Nothing ( Local ( Name "codePointAtFallback$p2" ) ) ] ) - ( Ref Nothing ( Local ( Name "v" ) ) :| [] ) ) - ( LiteralInt Nothing 0 :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Nothing" ) ) ) - ( IfThenElse Nothing - ( Eq Nothing ( LiteralInt Nothing 0 ) ( Ref Nothing ( Local ( Name "v" ) ) ) ) - ( IfThenElse Nothing - ( Eq Nothing ( LiteralString Nothing "" ) ( Ref Nothing ( Local ( Name "v1" ) ) ) ) - ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Nothing" ) ) ) - ( IfThenElse Nothing - ( Eq Nothing ( LiteralInt Nothing 0 ) ( Ref Nothing ( Local ( Name "v" ) ) ) ) - ( AppN Nothing - ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.String.CodePoints" ) - ( Name "unsafeCodePointAt0" ) - ) - ) - ( Ref Nothing ( Local ( Name "v1" ) ) :| [] ) :| [] - ) - ) - ( AppN Nothing - ( AppN Nothing - ( AppN Nothing - ( AppN Nothing - ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.String.CodePoints" ) - ( Name "foreign" ) - ) - ) - ( PropName "_codePointAt" ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.String.CodePoints" ) - ( Name "codePointAtFallback" ) - ) :| [] - ) - ) - ( Ref Nothing - ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) :| [] - ) - ) - ( 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 "v1" ) ) :| [] ) - ) - ) + ) + ] + ), Standalone + ( QName + { qnameModuleName = ModuleName "Data.String.CodePoints", qnameName = Name "codePointAt$w" + }, AbsN Nothing + ( ParamNamed Nothing ( Name "v" ) :| [ ParamNamed Nothing ( Name "v1" ) ] ) + ( IfThenElse Nothing + ( AppN Nothing + ( AppN Nothing + ( Ref Nothing + ( Imported ( ModuleName "Data.String.CodePoints" ) ( Name "lessThan" ) ) ) + ( Ref Nothing ( Local ( Name "v" ) ) :| [] ) + ) + ( LiteralInt Nothing 0 :| [] ) + ) + ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Nothing" ) ) ) + ( IfThenElse Nothing + ( Eq Nothing ( LiteralInt Nothing 0 ) ( Ref Nothing ( Local ( Name "v" ) ) ) ) + ( IfThenElse Nothing + ( Eq Nothing ( LiteralString Nothing "" ) ( Ref Nothing ( Local ( Name "v1" ) ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Nothing" ) ) ) ( IfThenElse Nothing ( Eq Nothing ( LiteralInt Nothing 0 ) ( Ref Nothing ( Local ( Name "v" ) ) ) ) ( AppN Nothing @@ -2098,6 +2080,62 @@ UberModule ) ) ) + ( IfThenElse Nothing + ( Eq Nothing ( LiteralInt Nothing 0 ) ( Ref Nothing ( Local ( Name "v" ) ) ) ) + ( AppN Nothing + ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.String.CodePoints" ) + ( Name "unsafeCodePointAt0" ) + ) + ) + ( Ref Nothing ( Local ( Name "v1" ) ) :| [] ) :| [] + ) + ) + ( AppN Nothing + ( AppN Nothing + ( AppN Nothing + ( AppN Nothing + ( AppN Nothing + ( AppN Nothing + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.String.CodePoints" ) + ( Name "foreign" ) + ) + ) + ( PropName "_codePointAt" ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.String.CodePoints" ) + ( Name "codePointAtFallback" ) + ) :| [] + ) + ) + ( Ref Nothing + ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) :| [] + ) + ) + ( 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 "v1" ) ) :| [] ) + ) + ) ) ) ), RecursiveGroup @@ -2113,12 +2151,12 @@ UberModule ) ( LiteralInt Nothing 1 :| [] ) ), - ( PropName "fromEnum", Abs Nothing - ( ParamNamed Nothing ( Name "v" ) ) + ( PropName "fromEnum", AbsN Nothing + ( ParamNamed Nothing ( Name "v" ) :| [] ) ( Ref Nothing ( Local ( Name "v" ) ) ) ), - ( PropName "toEnum", Abs Nothing - ( ParamNamed Nothing ( Name "n0" ) ) + ( PropName "toEnum", AbsN Nothing + ( ParamNamed Nothing ( Name "n0" ) :| [] ) ( IfThenElse Nothing ( AppN Nothing ( AppN Nothing @@ -2126,18 +2164,13 @@ UberModule ( Imported ( ModuleName "Data.String.CodePoints" ) ( Name "conj" ) ) ) ( AppN Nothing - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Data.Ord" ) ( Name "greaterThanOrEq" ) ) - ) - ( Ref Nothing - ( Imported ( ModuleName "Data.Ord" ) ( Name "ordInt" ) ) :| [] - ) - ) - ( Ref Nothing ( Local ( Name "n0" ) ) :| [] ) + ( Ref Nothing + ( Imported ( ModuleName "Data.Ord" ) ( Name "greaterThanOrEq$w" ) ) ) - ( LiteralInt Nothing 0 :| [] ) :| [] + ( Ref Nothing + ( Imported ( ModuleName "Data.Ord" ) ( Name "ordInt" ) ) :| + [ Ref Nothing ( Local ( Name "n0" ) ), LiteralInt Nothing 0 ] + ) :| [] ) ) ( AppN Nothing @@ -2157,12 +2190,14 @@ UberModule ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Nothing" ) ) ) ) ), - ( PropName "Bounded0", Abs Nothing ( ParamUnused Nothing ) + ( PropName "Bounded0", AbsN Nothing + ( ParamUnused Nothing :| [] ) ( LiteralObject Nothing [ ( PropName "bottom", LiteralInt Nothing 0 ), ( PropName "top", LiteralInt Nothing 1114111 ), - ( PropName "Ord0", Abs Nothing ( ParamUnused Nothing ) + ( PropName "Ord0", AbsN Nothing + ( ParamUnused Nothing :| [] ) ( Ref Nothing ( Imported ( ModuleName "Data.String.CodePoints" ) ( Name "ordCodePoint" ) ) ) @@ -2170,7 +2205,8 @@ UberModule ] ) ), - ( PropName "Enum1", Abs Nothing ( ParamUnused Nothing ) + ( PropName "Enum1", AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.String.CodePoints" ) ( Name "Lazy_enumCodePoint" ) ) @@ -2188,7 +2224,8 @@ UberModule ( Ref Nothing ( Local ( Name "PSLUA_runtime_lazy" ) ) ) ( LiteralString Nothing "enumCodePoint" :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( LiteralObject Nothing [ ( PropName "succ", AppN Nothing @@ -2241,7 +2278,8 @@ UberModule ) :| [] ) ), - ( PropName "Ord0", Abs Nothing ( ParamUnused Nothing ) + ( PropName "Ord0", AbsN Nothing + ( ParamUnused Nothing :| [] ) ( Ref Nothing ( Imported ( ModuleName "Data.String.CodePoints" ) ( Name "ordCodePoint" ) ) ) @@ -2253,21 +2291,33 @@ UberModule ] ), Standalone ( QName - { qnameModuleName = ModuleName "Effect.Console", qnameName = Name "logShow" }, Abs Nothing - ( ParamNamed Nothing ( Name "dictShow" ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "a" ) ) + { qnameModuleName = ModuleName "Effect.Console", qnameName = Name "logShow$w" + }, AbsN Nothing + ( ParamNamed Nothing ( Name "dictShow" ) :| [ ParamNamed Nothing ( Name "a" ) ] ) + ( AppN Nothing + ( ObjectProp ( Just Always ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) + ( PropName "log" ) + ) ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) - ( PropName "log" ) - ) ( AppN Nothing - ( AppN Nothing - ( Ref Nothing ( Imported ( ModuleName "Data.Show" ) ( Name "show" ) ) ) - ( Ref Nothing ( Local ( Name "dictShow" ) ) :| [] ) - ) - ( Ref Nothing ( Local ( Name "a" ) ) :| [] ) :| [] + ( Ref Nothing ( Imported ( ModuleName "Data.Show" ) ( Name "show" ) ) ) + ( Ref Nothing ( Local ( Name "dictShow" ) ) :| [] ) + ) + ( Ref Nothing ( Local ( Name "a" ) ) :| [] ) :| [] + ) + ) + ), Standalone + ( QName + { qnameModuleName = ModuleName "Effect.Console", qnameName = Name "logShow" }, AbsN Nothing + ( ParamNamed Nothing ( Name "logShow$p1" ) :| [] ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "logShow$p2" ) :| [] ) + ( AppN Nothing + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "logShow$w" ) ) ) + ( Ref Nothing + ( Local ( Name "logShow$p1" ) ) :| + [ Ref Nothing ( Local ( Name "logShow$p2" ) ) ] ) ) ) @@ -2351,7 +2401,8 @@ UberModule ( Ref Nothing ( Imported ( ModuleName "Partial.Unsafe" ) ( Name "foreign" ) ) ) ( PropName "_unsafePartial" ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "fromJust" ) ) ) ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) @@ -2403,7 +2454,8 @@ UberModule ( Name "codes", Ref Nothing ( Imported ( ModuleName "Golden.StringCodePoints.Test" ) ( Name "codes" ) ) ), - ( Name "main", Abs Nothing ( ParamUnused Nothing ) + ( Name "main", AbsN Nothing + ( ParamUnused Nothing :| [] ) ( Let Nothing ( Standalone ( Nothing, Name "_", AppN Nothing @@ -2478,13 +2530,10 @@ UberModule ( Imported ( ModuleName "Golden.StringCodePoints.Test" ) ( Name "codes" ) ) ) ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Data.String.CodePoints" ) ( Name "take" ) ) - ) - ( LiteralInt Nothing 2 :| [] ) + ( Ref Nothing + ( Imported ( ModuleName "Data.String.CodePoints" ) ( Name "take$w" ) ) ) - ( LiteralString Nothing "aéЯ𝐀z" :| [] ) :| [] + ( LiteralInt Nothing 2 :| [ LiteralString Nothing "aéЯ𝐀z" ] ) :| [] ) :| [] ) ) @@ -2500,13 +2549,10 @@ UberModule ( Imported ( ModuleName "Golden.StringCodePoints.Test" ) ( Name "codes" ) ) ) ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Data.String.CodePoints" ) ( Name "drop" ) ) - ) - ( LiteralInt Nothing 2 :| [] ) + ( Ref Nothing + ( Imported ( ModuleName "Data.String.CodePoints" ) ( Name "drop$w" ) ) ) - ( LiteralString Nothing "aéЯ𝐀z" :| [] ) :| [] + ( LiteralInt Nothing 2 :| [ LiteralString Nothing "aéЯ𝐀z" ] ) :| [] ) :| [] ) ) @@ -2530,16 +2576,13 @@ UberModule ) ) ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.String.CodePoints" ) - ( Name "codePointAt" ) - ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.String.CodePoints" ) + ( Name "codePointAt$w" ) ) - ( LiteralInt Nothing 0 :| [] ) ) - ( LiteralString Nothing "aéЯ𝐀z" :| [] ) :| [] + ( LiteralInt Nothing 0 :| [ LiteralString Nothing "aéЯ𝐀z" ] ) :| [] ) :| [] ) ) @@ -2563,16 +2606,13 @@ UberModule ) ) ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.String.CodePoints" ) - ( Name "codePointAt" ) - ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.String.CodePoints" ) + ( Name "codePointAt$w" ) ) - ( LiteralInt Nothing 3 :| [] ) ) - ( LiteralString Nothing "aéЯ𝐀z" :| [] ) :| [] + ( LiteralInt Nothing 3 :| [ LiteralString Nothing "aéЯ𝐀z" ] ) :| [] ) :| [] ) ) @@ -2596,16 +2636,13 @@ UberModule ) ) ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.String.CodePoints" ) - ( Name "codePointAt" ) - ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.String.CodePoints" ) + ( Name "codePointAt$w" ) ) - ( LiteralInt Nothing 5 :| [] ) ) - ( LiteralString Nothing "aéЯ𝐀z" :| [] ) :| [] + ( LiteralInt Nothing 5 :| [ LiteralString Nothing "aéЯ𝐀z" ] ) :| [] ) :| [] ) ) @@ -2636,8 +2673,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "v$0" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "v$0" ) :| [] ) ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "v$0" ) ) ) ( PropName "head" ) @@ -2657,125 +2694,121 @@ UberModule ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "logShow$w" ) ) ) ( AppN Nothing - ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "logShow" ) ) ) - ( AppN Nothing - ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "showMaybe" ) ) ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.StringCodePoints.Test" ) - ( Name "showArray" ) - ) :| [] + ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "showMaybe" ) ) ) + ( Ref Nothing + ( Imported + ( ModuleName "Golden.StringCodePoints.Test" ) + ( Name "showArray" ) ) :| [] - ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Golden.StringCodePoints.Test" ) ( Name "map" ) ) - ) + ) :| + [ AppN Nothing ( AppN Nothing + ( Ref Nothing + ( Imported ( ModuleName "Golden.StringCodePoints.Test" ) ( Name "map" ) ) + ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.StringCodePoints.Test" ) - ( Name "compose" ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.StringCodePoints.Test" ) + ( Name "compose" ) + ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Golden.StringCodePoints.Test" ) + ( Name "codes" ) + ) :| [] ) ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.StringCodePoints.Test" ) - ( Name "codes" ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "v0$1" ) :| [] ) + ( ObjectProp Nothing + ( Ref Nothing ( Local ( Name "v0$1" ) ) ) + ( PropName "tail" ) ) :| [] - ) - ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "v0$1" ) ) - ( ObjectProp Nothing - ( Ref Nothing ( Local ( Name "v0$1" ) ) ) - ( PropName "tail" ) ) :| [] - ) :| [] + ) ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Data.String.CodePoints" ) ( Name "uncons" ) ) + ( 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" ) ) :| [] ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( AppN Nothing - ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "logShow" ) ) ) - ( LiteralObject Nothing - [ - ( PropName "show", Abs Nothing - ( ParamNamed Nothing ( Name "v$1235" ) ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "logShow$w" ) ) ) + ( LiteralObject Nothing + [ + ( PropName "show", AbsN Nothing + ( ParamNamed Nothing ( Name "v$1235" ) :| [] ) + ( IfThenElse Nothing + ( Ref Nothing ( Local ( Name "v$1235" ) ) ) + ( LiteralString Nothing "true" ) ( IfThenElse Nothing - ( Ref Nothing ( Local ( Name "v$1235" ) ) ) - ( LiteralString Nothing "true" ) - ( IfThenElse Nothing - ( Eq Nothing ( LiteralBool Nothing False ) - ( Ref Nothing ( Local ( Name "v$1235" ) ) ) - ) - ( LiteralString Nothing "false" ) - ( Exception Nothing "No patterns matched" ) + ( Eq Nothing ( LiteralBool Nothing False ) + ( Ref Nothing ( Local ( Name "v$1235" ) ) ) ) + ( LiteralString Nothing "false" ) + ( Exception Nothing "No patterns matched" ) ) ) - ] :| [] - ) - ) - ( AppN Nothing - ( AppN Nothing + ) + ] :| + [ AppN Nothing ( AppN Nothing - ( Ref Nothing ( Imported ( ModuleName "Data.Eq" ) ( Name "eq" ) ) ) - ( LiteralObject Nothing - [ - ( PropName "eq", ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported ( ModuleName "Data.Eq" ) ( Name "foreign" ) ) + ( AppN Nothing + ( Ref Nothing ( Imported ( ModuleName "Data.Eq" ) ( Name "eq" ) ) ) + ( LiteralObject Nothing + [ + ( PropName "eq", ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported ( ModuleName "Data.Eq" ) ( Name "foreign" ) ) + ) + ( PropName "eqStringImpl" ) ) - ( PropName "eqStringImpl" ) - ) - ] :| [] + ] :| [] + ) ) - ) - ( AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) + ( AppN Nothing + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.String.CodePoints" ) + ( Name "foreign" ) + ) + ) + ( PropName "_fromCodePointArray" ) + ) ( Ref Nothing ( Imported ( ModuleName "Data.String.CodePoints" ) - ( Name "foreign" ) - ) + ( Name "singletonFallback" ) + ) :| [] ) - ( PropName "_fromCodePointArray" ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.String.CodePoints" ) - ( Name "singletonFallback" ) - ) :| [] ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.String.CodePoints" ) - ( Name "toCodePointArray" ) + ( 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" ) ) :| [] ) diff --git a/test/ps/output/Golden.StringCodePoints.Test/golden.lua b/test/ps/output/Golden.StringCodePoints.Test/golden.lua index f77c856b..b78897ed 100644 --- a/test/ps/output/Golden.StringCodePoints.Test/golden.lua +++ b/test/ps/output/Golden.StringCodePoints.Test/golden.lua @@ -346,37 +346,25 @@ M.Data_Ord_ordChar = { Eq0 = function() return { eq = M.Data_Eq_foreign.eqCharImpl } end } M.Data_Ord_compare = function(dict) return dict.compare end -M.Data_Ord_greaterThanOrEq = function(dictOrd) - return function(a1) - return function(a2) - if "Data.Ordering∷Ordering.LT" == (M.Data_Ord_compare(dictOrd)(a1)(a2))["$ctor"] then - return false - else - return true - end - end +M.Data_Ord_greaterThanOrEq_S_w = function(dictOrd, a1, a2) + if "Data.Ordering∷Ordering.LT" == (M.Data_Ord_compare(dictOrd)(a1)(a2))["$ctor"] then + return false + else + return true end end -M.Data_Ord_lessThan = function(dictOrd) - return function(a1) - return function(a2) - if "Data.Ordering∷Ordering.LT" == (M.Data_Ord_compare(dictOrd)(a1)(a2))["$ctor"] then - return true - else - return false - end - end +M.Data_Ord_lessThan_S_w = function(dictOrd, a1, a2) + if "Data.Ordering∷Ordering.LT" == (M.Data_Ord_compare(dictOrd)(a1)(a2))["$ctor"] then + return true + else + return false end end -M.Data_Ord_lessThanOrEq = function(dictOrd) - return function(a1) - return function(a2) - if "Data.Ordering∷Ordering.GT" == (M.Data_Ord_compare(dictOrd)(a1)(a2))["$ctor"] then - return false - else - return true - end - end +M.Data_Ord_lessThanOrEq_S_w = function(dictOrd, a1, a2) + if "Data.Ordering∷Ordering.GT" == (M.Data_Ord_compare(dictOrd)(a1)(a2))["$ctor"] then + return false + else + return true end end M.Data_Functor_map = function(dict) return dict.map end @@ -493,7 +481,7 @@ M.Data_Enum_defaultPred = function(toEnumPrime) end end M.Data_Enum_charToEnum = function(v) - if M.Data_HeytingAlgebra_conj(M.Data_HeytingAlgebra_heytingAlgebraBoolean)(M.Data_Ord_greaterThanOrEq(M.Data_Ord_ordInt)(v)(M.Data_Enum_foreign.toCharCode(M.Data_Enum_bottom1)))(M.Data_Ord_lessThanOrEq(M.Data_Ord_ordInt)(v)(M.Data_Enum_foreign.toCharCode(M.Data_Enum_top1))) then + if M.Data_HeytingAlgebra_conj(M.Data_HeytingAlgebra_heytingAlgebraBoolean)(M.Data_Ord_greaterThanOrEq_S_w(M.Data_Ord_ordInt, v, M.Data_Enum_foreign.toCharCode(M.Data_Enum_bottom1)))(M.Data_Ord_lessThanOrEq_S_w(M.Data_Ord_ordInt, v, M.Data_Enum_foreign.toCharCode(M.Data_Enum_top1))) then return M.Data_Maybe_Just(M.Data_Enum_foreign.fromCharCode(v)) else return M.Data_Maybe_Nothing @@ -516,11 +504,19 @@ M.Data_String_CodePoints_add = M.Data_Semiring_add(M.Data_Semiring_semiringInt) M.Data_String_CodePoints_sub = M.Data_Ring_sub(M.Data_Ring_ringInt) M.Data_String_CodePoints_append = M.Data_Semigroup_append(M.Data_Semigroup_semigroupString) M.Data_String_CodePoints_conj = M.Data_HeytingAlgebra_conj(M.Data_HeytingAlgebra_heytingAlgebraBoolean) -M.Data_String_CodePoints_lessThanOrEq = M.Data_Ord_lessThanOrEq(M.Data_Ord_ordInt) +M.Data_String_CodePoints_lessThanOrEq = function(lessThanOrEq_S_p2_S_1337) + return function(lessThanOrEq_S_p3_S_1338) + return M.Data_Ord_lessThanOrEq_S_w(M.Data_Ord_ordInt, lessThanOrEq_S_p2_S_1337, lessThanOrEq_S_p3_S_1338) + end +end M.Data_String_CodePoints_fromEnum = M.Data_Enum_fromEnum(M.Data_Enum_boundedEnumChar) M.Data_String_CodePoints_compose = M.Control_Semigroupoid_compose(M.Control_Semigroupoid_semigroupoidFn) M.Data_String_CodePoints_eq = M.Data_Eq_eq(M.Data_Eq_eqInt) -M.Data_String_CodePoints_lessThan = M.Data_Ord_lessThan(M.Data_Ord_ordInt) +M.Data_String_CodePoints_lessThan = function(lessThan_S_p2_S_1340) + return function(lessThan_S_p3_S_1341) + return M.Data_Ord_lessThan_S_w(M.Data_Ord_ordInt, lessThan_S_p2_S_1340, lessThan_S_p3_S_1341) + end +end M.Data_String_CodePoints_unsafeCodePointAt0 = M.Data_String_CodePoints_foreign._unsafeCodePointAt0(function( s_S_27 ) local cu0_S_28 = M.Data_String_CodePoints_fromEnum(M.Data_String_Unsafe_foreign.charAt(0)(s_S_27)) if M.Data_String_CodePoints_conj(M.Data_String_CodePoints_conj(M.Data_String_CodePoints_lessThanOrEq(55296)(cu0_S_28))(M.Data_String_CodePoints_lessThanOrEq(cu0_S_28)(56319)))((function( ) @@ -545,7 +541,7 @@ M.Data_String_CodePoints_fromCharCode = M.Data_String_CodePoints_compose(M.Data_ if "Data.Maybe∷Maybe.Just" == v_S_63["$ctor"] then return v_S_63.value0 elseif "Data.Maybe∷Maybe.Nothing" == v_S_63["$ctor"] then - if M.Data_Ord_lessThan(M.Data_Ord_ordInt)(x_S_62)(M.Data_Enum_fromEnum(M.Data_Enum_boundedEnumChar)(M.Data_Bounded_bottom(M.Data_Enum_boundedEnumChar.Bounded0()))) then + if M.Data_Ord_lessThan_S_w(M.Data_Ord_ordInt, x_S_62, M.Data_Enum_fromEnum(M.Data_Enum_boundedEnumChar)(M.Data_Bounded_bottom(M.Data_Enum_boundedEnumChar.Bounded0()))) then return M.Data_Bounded_bottom(M.Data_Bounded_boundedChar) else return M.Data_Bounded_top(M.Data_Bounded_boundedChar) @@ -582,33 +578,32 @@ M.Data_String_CodePoints_uncons = function(s) else return M.Data_Maybe_Just({ head = M.Data_String_CodePoints_unsafeCodePointAt0(s), - tail = M.Data_String_CodePoints_drop(1)(s) + tail = M.Data_String_CodePoints_drop_S_w(1, s) }) end end -M.Data_String_CodePoints_takeFallback = function(v) - return function(v1) - if M.Data_String_CodePoints_lessThan(v)(1) then - return "" +M.Data_String_CodePoints_takeFallback_S_w = function(v, v1) + if M.Data_String_CodePoints_lessThan(v)(1) then + return "" + else + local v2_S_17 = M.Data_String_CodePoints_uncons(v1) + if "Data.Maybe∷Maybe.Just" == v2_S_17["$ctor"] then + return M.Data_String_CodePoints_append(M.Data_String_CodePoints_singleton(v2_S_17.value0.head))(M.Data_String_CodePoints_takeFallback_S_w(M.Data_String_CodePoints_sub(v)(1), v2_S_17.value0.tail)) else - local v2_S_17 = M.Data_String_CodePoints_uncons(v1) - if "Data.Maybe∷Maybe.Just" == v2_S_17["$ctor"] then - return M.Data_String_CodePoints_append(M.Data_String_CodePoints_singleton(v2_S_17.value0.head))(M.Data_String_CodePoints_takeFallback(M.Data_String_CodePoints_sub(v)(1))(v2_S_17.value0.tail)) - else - return v1 - end + return v1 end end end -M.Data_String_CodePoints_take = function(n) - return function(s) - return M.Data_String_CodePoints_foreign._take(M.Data_String_CodePoints_takeFallback)(n)(s) +M.Data_String_CodePoints_takeFallback = function(takeFallback_S_p1) + return function(takeFallback_S_p2) + return M.Data_String_CodePoints_takeFallback_S_w(takeFallback_S_p1, takeFallback_S_p2) end end -M.Data_String_CodePoints_drop = function(n) - return function(s) - return M.Data_String_CodeUnits_foreign.drop(M.Data_String_CodeUnits_foreign.length(M.Data_String_CodePoints_take(n)(s)))(s) - end +M.Data_String_CodePoints_take_S_w = function(n, s) + return M.Data_String_CodePoints_foreign._take(M.Data_String_CodePoints_takeFallback)(n)(s) +end +M.Data_String_CodePoints_drop_S_w = function(n, s) + return M.Data_String_CodeUnits_foreign.drop(M.Data_String_CodeUnits_foreign.length(M.Data_String_CodePoints_take_S_w(n, s)))(s) end M.Data_String_CodePoints_toCodePointArray = M.Data_String_CodePoints_foreign._toCodePointArray(function( s_S_10 ) return M.Data_Unfoldable_foreign.unfoldrArrayImpl(function(v2_S_1313_S_1335) @@ -631,44 +626,45 @@ M.Data_String_CodePoints_toCodePointArray = M.Data_String_CodePoints_foreign._to end)(M.Data_String_CodePoints_uncons(s_S_11)) end)(s_S_10) end)(M.Data_String_CodePoints_unsafeCodePointAt0) -M.Data_String_CodePoints_codePointAtFallback = function(n) - return function(s) - local v = M.Data_String_CodePoints_uncons(s) - if "Data.Maybe∷Maybe.Just" == v["$ctor"] then - if M.Data_String_CodePoints_eq(n)(0) then - return M.Data_Maybe_Just(v.value0.head) - else - return M.Data_String_CodePoints_codePointAtFallback(M.Data_String_CodePoints_sub(n)(1))(v.value0.tail) - end +M.Data_String_CodePoints_codePointAtFallback_S_w = function(n, s) + local v = M.Data_String_CodePoints_uncons(s) + if "Data.Maybe∷Maybe.Just" == v["$ctor"] then + if M.Data_String_CodePoints_eq(n)(0) then + return M.Data_Maybe_Just(v.value0.head) else - return M.Data_Maybe_Nothing + return M.Data_String_CodePoints_codePointAtFallback_S_w(M.Data_String_CodePoints_sub(n)(1), v.value0.tail) end + else + return M.Data_Maybe_Nothing end end -M.Data_String_CodePoints_codePointAt = function(v) - return function(v1) - if M.Data_String_CodePoints_lessThan(v)(0) then +M.Data_String_CodePoints_codePointAtFallback = function( codePointAtFallback_S_p1 ) + return function(codePointAtFallback_S_p2) + return M.Data_String_CodePoints_codePointAtFallback_S_w(codePointAtFallback_S_p1, codePointAtFallback_S_p2) + end +end +M.Data_String_CodePoints_codePointAt_S_w = function(v, v1) + if M.Data_String_CodePoints_lessThan(v)(0) then + return M.Data_Maybe_Nothing + elseif 0 == v then + if "" == v1 then return M.Data_Maybe_Nothing - elseif 0 == v then - if "" == v1 then - return M.Data_Maybe_Nothing - elseif 0 == v then - return M.Data_Maybe_Just(M.Data_String_CodePoints_unsafeCodePointAt0(v1)) - else - return M.Data_String_CodePoints_foreign._codePointAt(M.Data_String_CodePoints_codePointAtFallback)(M.Data_Maybe_Just)(M.Data_Maybe_Nothing)(M.Data_String_CodePoints_unsafeCodePointAt0)(v)(v1) - end elseif 0 == v then return M.Data_Maybe_Just(M.Data_String_CodePoints_unsafeCodePointAt0(v1)) else return M.Data_String_CodePoints_foreign._codePointAt(M.Data_String_CodePoints_codePointAtFallback)(M.Data_Maybe_Just)(M.Data_Maybe_Nothing)(M.Data_String_CodePoints_unsafeCodePointAt0)(v)(v1) end + elseif 0 == v then + return M.Data_Maybe_Just(M.Data_String_CodePoints_unsafeCodePointAt0(v1)) + else + return M.Data_String_CodePoints_foreign._codePointAt(M.Data_String_CodePoints_codePointAtFallback)(M.Data_Maybe_Just)(M.Data_Maybe_Nothing)(M.Data_String_CodePoints_unsafeCodePointAt0)(v)(v1) end end M.Data_String_CodePoints_boundedEnumCodePoint = { cardinality = M.Data_String_CodePoints_add(1114111)(1), fromEnum = function(v) return v end, toEnum = function(n0) - if M.Data_String_CodePoints_conj(M.Data_Ord_greaterThanOrEq(M.Data_Ord_ordInt)(n0)(0))(M.Data_String_CodePoints_lessThanOrEq(n0)(1114111)) then + if M.Data_String_CodePoints_conj(M.Data_Ord_greaterThanOrEq_S_w(M.Data_Ord_ordInt, n0, 0))(M.Data_String_CodePoints_lessThanOrEq(n0)(1114111)) then return M.Data_Maybe_Just(n0) else return M.Data_Maybe_Nothing @@ -690,9 +686,12 @@ M.Data_String_CodePoints_Lazy_enumCodePoint = PSLUA_runtime_lazy("enumCodePoint" Ord0 = function() return M.Data_String_CodePoints_ordCodePoint end } end) -M.Effect_Console_logShow = function(dictShow) - return function(a) - return M.Effect_Console_foreign.log(M.Data_Show_show(dictShow)(a)) +M.Effect_Console_logShow_S_w = function(dictShow, a) + return M.Effect_Console_foreign.log(M.Data_Show_show(dictShow)(a)) +end +M.Effect_Console_logShow = function(logShow_S_p1) + return function(logShow_S_p2) + return M.Effect_Console_logShow_S_w(logShow_S_p1, logShow_S_p2) end end M.Golden_StringCodePoints_Test_compose = M.Control_Semigroupoid_compose(M.Control_Semigroupoid_semigroupoidFn) @@ -715,18 +714,18 @@ return (function() local _ = M.Golden_StringCodePoints_Test_logShow(M.Golden_StringCodePoints_Test_codes("aéЯ𝐀z"))() local _ = M.Golden_StringCodePoints_Test_logShow1(M.Data_String_CodePoints_compose(M.Data_Array_foreign.length)(M.Data_String_CodePoints_toCodePointArray)("aéЯ𝐀z"))() local _ = M.Golden_StringCodePoints_Test_logShow1(M.Data_String_CodeUnits_foreign.length("aéЯ𝐀z"))() - local _ = M.Golden_StringCodePoints_Test_logShow(M.Golden_StringCodePoints_Test_codes(M.Data_String_CodePoints_take(2)("aéЯ𝐀z")))() - local _ = M.Golden_StringCodePoints_Test_logShow(M.Golden_StringCodePoints_Test_codes(M.Data_String_CodePoints_drop(2)("aéЯ𝐀z")))() - local _ = M.Golden_StringCodePoints_Test_logShow2(M.Golden_StringCodePoints_Test_map(M.Golden_StringCodePoints_Test_fromEnum)(M.Data_String_CodePoints_codePointAt(0)("aéЯ𝐀z")))() - local _ = M.Golden_StringCodePoints_Test_logShow2(M.Golden_StringCodePoints_Test_map(M.Golden_StringCodePoints_Test_fromEnum)(M.Data_String_CodePoints_codePointAt(3)("aéЯ𝐀z")))() - local _ = M.Golden_StringCodePoints_Test_logShow2(M.Golden_StringCodePoints_Test_map(M.Golden_StringCodePoints_Test_fromEnum)(M.Data_String_CodePoints_codePointAt(5)("aéЯ𝐀z")))() + local _ = M.Golden_StringCodePoints_Test_logShow(M.Golden_StringCodePoints_Test_codes(M.Data_String_CodePoints_take_S_w(2, "aéЯ𝐀z")))() + local _ = M.Golden_StringCodePoints_Test_logShow(M.Golden_StringCodePoints_Test_codes(M.Data_String_CodePoints_drop_S_w(2, "aéЯ𝐀z")))() + local _ = M.Golden_StringCodePoints_Test_logShow2(M.Golden_StringCodePoints_Test_map(M.Golden_StringCodePoints_Test_fromEnum)(M.Data_String_CodePoints_codePointAt_S_w(0, "aéЯ𝐀z")))() + local _ = M.Golden_StringCodePoints_Test_logShow2(M.Golden_StringCodePoints_Test_map(M.Golden_StringCodePoints_Test_fromEnum)(M.Data_String_CodePoints_codePointAt_S_w(3, "aéЯ𝐀z")))() + local _ = M.Golden_StringCodePoints_Test_logShow2(M.Golden_StringCodePoints_Test_map(M.Golden_StringCodePoints_Test_fromEnum)(M.Data_String_CodePoints_codePointAt_S_w(5, "aéЯ𝐀z")))() local _ = M.Golden_StringCodePoints_Test_logShow2(M.Golden_StringCodePoints_Test_map(M.Golden_StringCodePoints_Test_compose(M.Golden_StringCodePoints_Test_fromEnum)(function( v_S_0 ) return v_S_0.head end))(M.Data_String_CodePoints_uncons("aéЯ𝐀z")))() - local _ = M.Effect_Console_logShow(M.Data_Maybe_showMaybe(M.Golden_StringCodePoints_Test_showArray))(M.Golden_StringCodePoints_Test_map(M.Golden_StringCodePoints_Test_compose(M.Golden_StringCodePoints_Test_codes)(function( v0_S_1 ) + local _ = M.Effect_Console_logShow_S_w(M.Data_Maybe_showMaybe(M.Golden_StringCodePoints_Test_showArray), M.Golden_StringCodePoints_Test_map(M.Golden_StringCodePoints_Test_compose(M.Golden_StringCodePoints_Test_codes)(function( v0_S_1 ) return v0_S_1.tail end))(M.Data_String_CodePoints_uncons("aéЯ𝐀z")))() - local _ = M.Effect_Console_logShow({ + local _ = M.Effect_Console_logShow_S_w({ show = function(v_S_1235) if v_S_1235 then return "true" @@ -736,7 +735,7 @@ return (function() return error("No patterns matched") end end - })(M.Data_Eq_eq({ + }, M.Data_Eq_eq({ eq = M.Data_Eq_foreign.eqStringImpl })(M.Data_String_CodePoints_foreign._fromCodePointArray(M.Data_String_CodePoints_singletonFallback)(M.Data_String_CodePoints_toCodePointArray("aéЯ𝐀z")))("aéЯ𝐀z"))() return M.Golden_StringCodePoints_Test_logShow(M.Golden_StringCodePoints_Test_codes(M.Data_String_CodePoints_singleton(M.Golden_StringCodePoints_Test_cp(119808))))() diff --git a/test/ps/output/Golden.TailRecM2Shadow.Test/golden.ir b/test/ps/output/Golden.TailRecM2Shadow.Test/golden.ir index 6c02e2a0..e8bda48b 100644 --- a/test/ps/output/Golden.TailRecM2Shadow.Test/golden.ir +++ b/test/ps/output/Golden.TailRecM2Shadow.Test/golden.ir @@ -45,13 +45,13 @@ UberModule ), Standalone ( QName { qnameModuleName = ModuleName "Control.Applicative", qnameName = Name "pure" - }, Abs Nothing - ( ParamNamed Nothing ( Name "dict" ) ) + }, AbsN Nothing + ( ParamNamed Nothing ( Name "dict" ) :| [] ) ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "dict" ) ) ) ( PropName "pure" ) ) ), Standalone ( QName - { qnameModuleName = ModuleName "Control.Bind", qnameName = Name "bind" }, Abs Nothing - ( ParamNamed Nothing ( Name "dict" ) ) + { qnameModuleName = ModuleName "Control.Bind", qnameName = Name "bind" }, AbsN Nothing + ( ParamNamed Nothing ( Name "dict" ) :| [] ) ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "dict" ) ) ) ( PropName "bind" ) ) ), RecursiveGroup ( @@ -59,10 +59,12 @@ UberModule { qnameModuleName = ModuleName "Effect", qnameName = Name "monadEffect" }, LiteralObject Nothing [ - ( PropName "Applicative0", Abs Nothing ( ParamUnused Nothing ) + ( PropName "Applicative0", AbsN Nothing + ( ParamUnused Nothing :| [] ) ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "applicativeEffect" ) ) ) ), - ( PropName "Bind1", Abs Nothing ( ParamUnused Nothing ) + ( PropName "Bind1", AbsN Nothing + ( ParamUnused Nothing :| [] ) ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "bindEffect" ) ) ) ) ] @@ -76,7 +78,8 @@ UberModule ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "foreign" ) ) ) ( PropName "bindE" ) ), - ( PropName "Apply0", Abs Nothing ( ParamUnused Nothing ) + ( PropName "Apply0", AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "Lazy_applyEffect" ) ) ) ( LiteralInt Nothing 0 :| [] ) @@ -92,7 +95,8 @@ UberModule ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "foreign" ) ) ) ( PropName "pureE" ) ), - ( PropName "Apply0", Abs Nothing ( ParamUnused Nothing ) + ( PropName "Apply0", AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "Lazy_applyEffect" ) ) ) ( LiteralInt Nothing 0 :| [] ) @@ -107,13 +111,14 @@ UberModule ( Ref Nothing ( Local ( Name "PSLUA_runtime_lazy" ) ) ) ( LiteralString Nothing "functorEffect" :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( LiteralObject Nothing [ - ( PropName "map", Abs Nothing - ( ParamNamed Nothing ( Name "f$239" ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "a$240" ) ) + ( PropName "map", AbsN Nothing + ( ParamNamed Nothing ( Name "f$239" ) :| [] ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "a$240" ) :| [] ) ( AppN Nothing ( AppN Nothing ( ObjectProp Nothing @@ -160,7 +165,8 @@ UberModule ( Ref Nothing ( Local ( Name "PSLUA_runtime_lazy" ) ) ) ( LiteralString Nothing "applyEffect" :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( LiteralObject Nothing [ ( PropName "apply", Let Nothing @@ -180,24 +186,24 @@ UberModule ) ) :| [] ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "f$221" ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "a$222" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "f$221" ) :| [] ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "a$222" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing ( Local ( Name "bind$219" ) ) ) ( Ref Nothing ( Local ( Name "f$221" ) ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "f'$223" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "f'$223" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing ( Local ( Name "bind$219" ) ) ) ( Ref Nothing ( Local ( Name "a$222" ) ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "a'$224" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "a'$224" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -236,7 +242,8 @@ UberModule ) ) ), - ( PropName "Functor0", Abs Nothing ( ParamUnused Nothing ) + ( PropName "Functor0", AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "Lazy_functorEffect" ) ) @@ -270,8 +277,8 @@ UberModule ), Standalone ( QName { qnameModuleName = ModuleName "Golden.TailRecM2Shadow.Test", qnameName = Name "sumFrom" - }, Abs Nothing - ( ParamNamed Nothing ( Name "dictMonadRec" ) ) + }, AbsN Nothing + ( ParamNamed Nothing ( Name "dictMonadRec" ) :| [] ) ( Let Nothing ( Standalone ( Nothing, Name "pure", AppN Nothing @@ -291,18 +298,18 @@ UberModule ) ) :| [] ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "b" ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "n" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "b" ) :| [] ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "n" ) :| [] ) ( AppN Nothing ( AppN Nothing ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "dictMonadRec" ) ) ) ( PropName "tailRecM" ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "o$450" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "o$450" ) :| [] ) ( AppN Nothing ( Let Nothing ( Standalone @@ -311,8 +318,8 @@ UberModule ( PropName "a" ) ) :| [] ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "i$2" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "i$2" ) :| [] ) ( IfThenElse Nothing ( IfThenElse Nothing ( Eq Nothing @@ -440,7 +447,8 @@ UberModule ( Name "sumFrom", Ref Nothing ( Imported ( ModuleName "Golden.TailRecM2Shadow.Test" ) ( Name "sumFrom" ) ) ), - ( Name "main", Abs Nothing ( ParamUnused Nothing ) + ( Name "main", AbsN Nothing + ( ParamUnused Nothing :| [] ) ( Let Nothing ( Standalone ( Nothing, Name "r$0", AppN Nothing @@ -452,11 +460,12 @@ UberModule ) ( LiteralObject Nothing [ - ( PropName "tailRecM", Abs Nothing - ( ParamNamed Nothing ( Name "f$11" ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "a$12" ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( PropName "tailRecM", AbsN Nothing + ( ParamNamed Nothing ( Name "f$11" ) :| [] ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "a$12" ) :| [] ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( Let Nothing ( Standalone ( Nothing, Name "r$16", AppN Nothing @@ -504,7 +513,8 @@ UberModule ) ( PropName "untilE" ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( Let Nothing ( Standalone ( Nothing, Name "v0$17", AppN Nothing @@ -536,7 +546,8 @@ UberModule ( Ref Nothing ( Local ( Name "v0$17" ) ) ) ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( Let Nothing ( Standalone ( Nothing, Name "e$19", AppN Nothing @@ -665,9 +676,10 @@ UberModule ) ( PropName "_unsafePartial" ) ) - ( Abs Nothing ( ParamUnused Nothing ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "v$9$20" ) ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "v$9$20" ) :| [] ) ( IfThenElse Nothing ( Eq Nothing ( LiteralString Nothing "Control.Monad.Rec.Class∷Step.Done" ) @@ -706,7 +718,8 @@ UberModule ) ) ), - ( PropName "Monad0", Abs Nothing ( ParamUnused Nothing ) + ( PropName "Monad0", AbsN Nothing + ( ParamUnused Nothing :| [] ) ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "monadEffect" ) ) ) diff --git a/test/ps/output/Golden.Unbinding.Test/golden.ir b/test/ps/output/Golden.Unbinding.Test/golden.ir index 08368d43..b6297d0a 100644 --- a/test/ps/output/Golden.Unbinding.Test/golden.ir +++ b/test/ps/output/Golden.Unbinding.Test/golden.ir @@ -2,26 +2,35 @@ UberModule { uberModuleBindings = [ Standalone ( QName - { qnameModuleName = ModuleName "Golden.Unbinding.Test", qnameName = Name "f" - }, Abs Nothing ( ParamUnused Nothing ) - ( Abs Nothing ( ParamUnused Nothing ) ( LiteralInt Nothing 3 ) ) + { qnameModuleName = ModuleName "Golden.Unbinding.Test", qnameName = Name "f$w" + }, AbsN Nothing + ( ParamUnused Nothing :| [ ParamUnused Nothing ] ) + ( LiteralInt Nothing 3 ) ) ], uberModuleForeigns = [], uberModuleExports = [ ( Name "a", LiteralInt Nothing 1 ), ( Name "b", LiteralInt Nothing 2 ), - ( Name "f", Ref Nothing ( Imported ( ModuleName "Golden.Unbinding.Test" ) ( Name "f" ) ) ), - ( Name "c", AppN Nothing - ( AppN Nothing - ( Ref Nothing ( Imported ( ModuleName "Golden.Unbinding.Test" ) ( Name "f" ) ) ) - ( LiteralInt Nothing 1 :| [] ) - ) - ( AppN Nothing + ( Name "f", AbsN Nothing + ( ParamNamed Nothing ( Name "f$p1$0" ) :| [] ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "f$p2$1" ) :| [] ) ( AppN Nothing - ( Ref Nothing ( Imported ( ModuleName "Golden.Unbinding.Test" ) ( Name "f" ) ) ) - ( LiteralInt Nothing 2 :| [] ) + ( Ref Nothing ( Imported ( ModuleName "Golden.Unbinding.Test" ) ( Name "f$w" ) ) ) + ( Ref Nothing + ( Local ( Name "f$p1$0" ) ) :| + [ Ref Nothing ( Local ( Name "f$p2$1" ) ) ] + ) ) - ( LiteralInt Nothing 1 :| [] ) :| [] + ) + ), + ( Name "c", AppN Nothing + ( Ref Nothing ( Imported ( ModuleName "Golden.Unbinding.Test" ) ( Name "f$w" ) ) ) + ( LiteralInt Nothing 1 :| + [ AppN Nothing + ( Ref Nothing ( Imported ( ModuleName "Golden.Unbinding.Test" ) ( Name "f$w" ) ) ) + ( LiteralInt Nothing 2 :| [ LiteralInt Nothing 1 ] ) + ] ) ) ] diff --git a/test/ps/output/Golden.Unbinding.Test/golden.lua b/test/ps/output/Golden.Unbinding.Test/golden.lua index f6ba7d7c..37cda2b5 100644 --- a/test/ps/output/Golden.Unbinding.Test/golden.lua +++ b/test/ps/output/Golden.Unbinding.Test/golden.lua @@ -1,8 +1,12 @@ local M = {} -M.Golden_Unbinding_Test_f = function() return function() return 3 end end +M.Golden_Unbinding_Test_f_S_w = function() return 3 end return { a = 1, b = 2, - f = M.Golden_Unbinding_Test_f, - c = M.Golden_Unbinding_Test_f(1)(M.Golden_Unbinding_Test_f(2)(1)) + f = function(f_S_p1_S_0) + return function(f_S_p2_S_1) + return M.Golden_Unbinding_Test_f_S_w(f_S_p1_S_0, f_S_p2_S_1) + end + end, + c = M.Golden_Unbinding_Test_f_S_w(1, M.Golden_Unbinding_Test_f_S_w(2, 1)) } diff --git a/test/ps/output/Golden.Uncurry.Test/corefn.json b/test/ps/output/Golden.Uncurry.Test/corefn.json new file mode 100644 index 00000000..f436b73c --- /dev/null +++ b/test/ps/output/Golden.Uncurry.Test/corefn.json @@ -0,0 +1 @@ +{"builtWith":"0.15.16","comments":[{"LineComment":" | Exercises the worker/wrapper uncurrying pass end to end: functions"},{"LineComment":" | used saturated, partially applied, passed higher-order, mutually"},{"LineComment":" | recursive, locally recursive, over-applied, and with an unused"},{"LineComment":" | parameter. The eval oracle pins that the transformation preserves"},{"LineComment":" | runtime behavior for every shape."}],"decls":[{"annotation":{"meta":null,"sourceSpan":{"end":[0,0],"start":[0,0]}},"bindType":"NonRec","expression":{"abstraction":{"annotation":{"meta":{"metaType":"IsForeign"},"sourceSpan":{"end":[36,21],"start":[36,19]}},"type":"Var","value":{"identifier":"eq","moduleName":["Data","Eq"]}},"annotation":{"meta":{"metaType":"IsSyntheticApp"},"sourceSpan":{"end":[36,23],"start":[36,17]}},"argument":{"annotation":{"meta":null,"sourceSpan":{"end":[0,0],"start":[0,0]}},"type":"Var","value":{"identifier":"eqInt","moduleName":["Data","Eq"]}},"type":"App"},"identifier":"eq"},{"annotation":{"meta":null,"sourceSpan":{"end":[0,0],"start":[0,0]}},"bindType":"NonRec","expression":{"abstraction":{"annotation":{"meta":{"metaType":"IsForeign"},"sourceSpan":{"end":[36,47],"start":[36,46]}},"type":"Var","value":{"identifier":"add","moduleName":["Data","Semiring"]}},"annotation":{"meta":{"metaType":"IsSyntheticApp"},"sourceSpan":{"end":[36,49],"start":[36,42]}},"argument":{"annotation":{"meta":null,"sourceSpan":{"end":[0,0],"start":[0,0]}},"type":"Var","value":{"identifier":"semiringInt","moduleName":["Data","Semiring"]}},"type":"App"},"identifier":"add"},{"annotation":{"meta":null,"sourceSpan":{"end":[0,0],"start":[0,0]}},"bindType":"NonRec","expression":{"abstraction":{"annotation":{"meta":{"metaType":"IsForeign"},"sourceSpan":{"end":[36,55],"start":[36,54]}},"type":"Var","value":{"identifier":"sub","moduleName":["Data","Ring"]}},"annotation":{"meta":{"metaType":"IsSyntheticApp"},"sourceSpan":{"end":[36,57],"start":[36,52]}},"argument":{"annotation":{"meta":null,"sourceSpan":{"end":[0,0],"start":[0,0]}},"type":"Var","value":{"identifier":"ringInt","moduleName":["Data","Ring"]}},"type":"App"},"identifier":"sub"},{"annotation":{"meta":null,"sourceSpan":{"end":[0,0],"start":[0,0]}},"bindType":"NonRec","expression":{"abstraction":{"abstraction":{"annotation":{"meta":{"metaType":"IsForeign"},"sourceSpan":{"end":[48,23],"start":[48,3]}},"type":"Var","value":{"identifier":"discard","moduleName":["Control","Bind"]}},"annotation":{"meta":{"metaType":"IsSyntheticApp"},"sourceSpan":{"end":[48,23],"start":[48,3]}},"argument":{"annotation":{"meta":null,"sourceSpan":{"end":[0,0],"start":[0,0]}},"type":"Var","value":{"identifier":"discardUnit","moduleName":["Control","Bind"]}},"type":"App"},"annotation":{"meta":{"metaType":"IsSyntheticApp"},"sourceSpan":{"end":[48,23],"start":[48,3]}},"argument":{"annotation":{"meta":null,"sourceSpan":{"end":[0,0],"start":[0,0]}},"type":"Var","value":{"identifier":"bindEffect","moduleName":["Effect"]}},"type":"App"},"identifier":"discard"},{"annotation":{"meta":null,"sourceSpan":{"end":[0,0],"start":[0,0]}},"bindType":"NonRec","expression":{"abstraction":{"annotation":{"meta":{"metaType":"IsForeign"},"sourceSpan":{"end":[48,10],"start":[48,3]}},"type":"Var","value":{"identifier":"logShow","moduleName":["Effect","Console"]}},"annotation":{"meta":{"metaType":"IsSyntheticApp"},"sourceSpan":{"end":[48,23],"start":[48,3]}},"argument":{"annotation":{"meta":null,"sourceSpan":{"end":[0,0],"start":[0,0]}},"type":"Var","value":{"identifier":"showInt","moduleName":["Data","Show"]}},"type":"App"},"identifier":"logShow"},{"annotation":{"meta":null,"sourceSpan":{"end":[0,0],"start":[0,0]}},"bindType":"NonRec","expression":{"abstraction":{"annotation":{"meta":{"metaType":"IsForeign"},"sourceSpan":{"end":[53,10],"start":[53,3]}},"type":"Var","value":{"identifier":"logShow","moduleName":["Effect","Console"]}},"annotation":{"meta":{"metaType":"IsSyntheticApp"},"sourceSpan":{"end":[53,39],"start":[53,3]}},"argument":{"abstraction":{"annotation":{"meta":null,"sourceSpan":{"end":[0,0],"start":[0,0]}},"type":"Var","value":{"identifier":"showArray","moduleName":["Data","Show"]}},"annotation":{"meta":{"metaType":"IsSyntheticApp"},"sourceSpan":{"end":[53,39],"start":[53,3]}},"argument":{"annotation":{"meta":null,"sourceSpan":{"end":[0,0],"start":[0,0]}},"type":"Var","value":{"identifier":"showInt","moduleName":["Data","Show"]}},"type":"App"},"type":"App"},"identifier":"logShow1"},{"annotation":{"meta":null,"sourceSpan":{"end":[0,0],"start":[0,0]}},"bindType":"NonRec","expression":{"abstraction":{"annotation":{"meta":{"metaType":"IsForeign"},"sourceSpan":{"end":[53,15],"start":[53,12]}},"type":"Var","value":{"identifier":"map","moduleName":["Data","Functor"]}},"annotation":{"meta":{"metaType":"IsSyntheticApp"},"sourceSpan":{"end":[53,26],"start":[53,12]}},"argument":{"annotation":{"meta":null,"sourceSpan":{"end":[0,0],"start":[0,0]}},"type":"Var","value":{"identifier":"functorArray","moduleName":["Data","Functor"]}},"type":"App"},"identifier":"map"},{"annotation":{"meta":null,"sourceSpan":{"end":[32,20],"start":[32,1]}},"bindType":"NonRec","expression":{"annotation":{"meta":null,"sourceSpan":{"end":[32,20],"start":[32,1]}},"argument":"m","body":{"annotation":{"meta":{"metaType":"IsWhere"},"sourceSpan":{"end":[33,17],"start":[33,11]}},"binds":[{"bindType":"Rec","binds":[{"annotation":{"meta":null,"sourceSpan":{"end":[35,26],"start":[35,3]}},"expression":{"annotation":{"meta":null,"sourceSpan":{"end":[35,26],"start":[35,3]}},"argument":"acc","body":{"annotation":{"meta":null,"sourceSpan":{"end":[35,26],"start":[35,3]}},"argument":"n","body":{"annotation":{"meta":null,"sourceSpan":{"end":[36,58],"start":[36,14]}},"caseAlternatives":[{"binders":[{"annotation":{"meta":null,"sourceSpan":{"end":[36,58],"start":[36,14]}},"binderType":"LiteralBinder","literal":{"literalType":"BooleanLiteral","value":true}}],"expression":{"annotation":{"meta":null,"sourceSpan":{"end":[36,32],"start":[36,29]}},"type":"Var","value":{"identifier":"acc","sourcePos":[36,3]}},"isGuarded":false},{"binders":[{"annotation":{"meta":null,"sourceSpan":{"end":[36,58],"start":[36,14]}},"binderType":"NullBinder"}],"expression":{"abstraction":{"abstraction":{"annotation":{"meta":null,"sourceSpan":{"end":[36,40],"start":[36,38]}},"type":"Var","value":{"identifier":"go","sourcePos":[35,3]}},"annotation":{"meta":null,"sourceSpan":{"end":[36,50],"start":[36,38]}},"argument":{"abstraction":{"abstraction":{"annotation":{"meta":null,"sourceSpan":{"end":[0,0],"start":[0,0]}},"type":"Var","value":{"identifier":"add","moduleName":["Golden","Uncurry","Test"]}},"annotation":{"meta":null,"sourceSpan":{"end":[36,49],"start":[36,42]}},"argument":{"annotation":{"meta":null,"sourceSpan":{"end":[36,45],"start":[36,42]}},"type":"Var","value":{"identifier":"acc","sourcePos":[36,3]}},"type":"App"},"annotation":{"meta":null,"sourceSpan":{"end":[36,49],"start":[36,42]}},"argument":{"annotation":{"meta":null,"sourceSpan":{"end":[36,49],"start":[36,48]}},"type":"Var","value":{"identifier":"n","sourcePos":[36,3]}},"type":"App"},"type":"App"},"annotation":{"meta":null,"sourceSpan":{"end":[36,58],"start":[36,38]}},"argument":{"abstraction":{"abstraction":{"annotation":{"meta":null,"sourceSpan":{"end":[0,0],"start":[0,0]}},"type":"Var","value":{"identifier":"sub","moduleName":["Golden","Uncurry","Test"]}},"annotation":{"meta":null,"sourceSpan":{"end":[36,57],"start":[36,52]}},"argument":{"annotation":{"meta":null,"sourceSpan":{"end":[36,53],"start":[36,52]}},"type":"Var","value":{"identifier":"n","sourcePos":[36,3]}},"type":"App"},"annotation":{"meta":null,"sourceSpan":{"end":[36,57],"start":[36,52]}},"argument":{"annotation":{"meta":null,"sourceSpan":{"end":[36,57],"start":[36,56]}},"type":"Literal","value":{"literalType":"IntLiteral","value":1}},"type":"App"},"type":"App"},"isGuarded":false}],"caseExpressions":[{"abstraction":{"abstraction":{"annotation":{"meta":null,"sourceSpan":{"end":[0,0],"start":[0,0]}},"type":"Var","value":{"identifier":"eq","moduleName":["Golden","Uncurry","Test"]}},"annotation":{"meta":null,"sourceSpan":{"end":[36,23],"start":[36,17]}},"argument":{"annotation":{"meta":null,"sourceSpan":{"end":[36,18],"start":[36,17]}},"type":"Var","value":{"identifier":"n","sourcePos":[36,3]}},"type":"App"},"annotation":{"meta":null,"sourceSpan":{"end":[36,23],"start":[36,17]}},"argument":{"annotation":{"meta":null,"sourceSpan":{"end":[36,23],"start":[36,22]}},"type":"Literal","value":{"literalType":"IntLiteral","value":0}},"type":"App"}],"type":"Case"},"type":"Abs"},"type":"Abs"},"identifier":"go"}]}],"expression":{"abstraction":{"abstraction":{"annotation":{"meta":null,"sourceSpan":{"end":[33,13],"start":[33,11]}},"type":"Var","value":{"identifier":"go","sourcePos":[35,3]}},"annotation":{"meta":null,"sourceSpan":{"end":[33,15],"start":[33,11]}},"argument":{"annotation":{"meta":null,"sourceSpan":{"end":[33,15],"start":[33,14]}},"type":"Literal","value":{"literalType":"IntLiteral","value":0}},"type":"App"},"annotation":{"meta":null,"sourceSpan":{"end":[33,17],"start":[33,11]}},"argument":{"annotation":{"meta":null,"sourceSpan":{"end":[33,17],"start":[33,16]}},"type":"Var","value":{"identifier":"m","sourcePos":[33,1]}},"type":"App"},"type":"Let"},"type":"Abs"},"identifier":"sumTo"},{"bindType":"Rec","binds":[{"annotation":{"meta":null,"sourceSpan":{"end":[28,30],"start":[28,1]}},"expression":{"annotation":{"meta":null,"sourceSpan":{"end":[28,30],"start":[28,1]}},"argument":"acc","body":{"annotation":{"meta":null,"sourceSpan":{"end":[28,30],"start":[28,1]}},"argument":"n","body":{"annotation":{"meta":null,"sourceSpan":{"end":[29,69],"start":[29,18]}},"caseAlternatives":[{"binders":[{"annotation":{"meta":null,"sourceSpan":{"end":[29,69],"start":[29,18]}},"binderType":"LiteralBinder","literal":{"literalType":"BooleanLiteral","value":true}}],"expression":{"annotation":{"meta":null,"sourceSpan":{"end":[29,36],"start":[29,33]}},"type":"Var","value":{"identifier":"acc","sourcePos":[29,1]}},"isGuarded":false},{"binders":[{"annotation":{"meta":null,"sourceSpan":{"end":[29,69],"start":[29,18]}},"binderType":"NullBinder"}],"expression":{"abstraction":{"abstraction":{"annotation":{"meta":null,"sourceSpan":{"end":[29,51],"start":[29,42]}},"type":"Var","value":{"identifier":"evenSteps","moduleName":["Golden","Uncurry","Test"]}},"annotation":{"meta":null,"sourceSpan":{"end":[29,61],"start":[29,42]}},"argument":{"abstraction":{"abstraction":{"annotation":{"meta":null,"sourceSpan":{"end":[0,0],"start":[0,0]}},"type":"Var","value":{"identifier":"add","moduleName":["Golden","Uncurry","Test"]}},"annotation":{"meta":null,"sourceSpan":{"end":[29,60],"start":[29,53]}},"argument":{"annotation":{"meta":null,"sourceSpan":{"end":[29,56],"start":[29,53]}},"type":"Var","value":{"identifier":"acc","sourcePos":[29,1]}},"type":"App"},"annotation":{"meta":null,"sourceSpan":{"end":[29,60],"start":[29,53]}},"argument":{"annotation":{"meta":null,"sourceSpan":{"end":[29,60],"start":[29,59]}},"type":"Literal","value":{"literalType":"IntLiteral","value":1}},"type":"App"},"type":"App"},"annotation":{"meta":null,"sourceSpan":{"end":[29,69],"start":[29,42]}},"argument":{"abstraction":{"abstraction":{"annotation":{"meta":null,"sourceSpan":{"end":[0,0],"start":[0,0]}},"type":"Var","value":{"identifier":"sub","moduleName":["Golden","Uncurry","Test"]}},"annotation":{"meta":null,"sourceSpan":{"end":[29,68],"start":[29,63]}},"argument":{"annotation":{"meta":null,"sourceSpan":{"end":[29,64],"start":[29,63]}},"type":"Var","value":{"identifier":"n","sourcePos":[29,1]}},"type":"App"},"annotation":{"meta":null,"sourceSpan":{"end":[29,68],"start":[29,63]}},"argument":{"annotation":{"meta":null,"sourceSpan":{"end":[29,68],"start":[29,67]}},"type":"Literal","value":{"literalType":"IntLiteral","value":1}},"type":"App"},"type":"App"},"isGuarded":false}],"caseExpressions":[{"abstraction":{"abstraction":{"annotation":{"meta":null,"sourceSpan":{"end":[0,0],"start":[0,0]}},"type":"Var","value":{"identifier":"eq","moduleName":["Golden","Uncurry","Test"]}},"annotation":{"meta":null,"sourceSpan":{"end":[29,27],"start":[29,21]}},"argument":{"annotation":{"meta":null,"sourceSpan":{"end":[29,22],"start":[29,21]}},"type":"Var","value":{"identifier":"n","sourcePos":[29,1]}},"type":"App"},"annotation":{"meta":null,"sourceSpan":{"end":[29,27],"start":[29,21]}},"argument":{"annotation":{"meta":null,"sourceSpan":{"end":[29,27],"start":[29,26]}},"type":"Literal","value":{"literalType":"IntLiteral","value":0}},"type":"App"}],"type":"Case"},"type":"Abs"},"type":"Abs"},"identifier":"oddSteps"},{"annotation":{"meta":null,"sourceSpan":{"end":[25,31],"start":[25,1]}},"expression":{"annotation":{"meta":null,"sourceSpan":{"end":[25,31],"start":[25,1]}},"argument":"acc","body":{"annotation":{"meta":null,"sourceSpan":{"end":[25,31],"start":[25,1]}},"argument":"n","body":{"annotation":{"meta":null,"sourceSpan":{"end":[26,69],"start":[26,19]}},"caseAlternatives":[{"binders":[{"annotation":{"meta":null,"sourceSpan":{"end":[26,69],"start":[26,19]}},"binderType":"LiteralBinder","literal":{"literalType":"BooleanLiteral","value":true}}],"expression":{"annotation":{"meta":null,"sourceSpan":{"end":[26,37],"start":[26,34]}},"type":"Var","value":{"identifier":"acc","sourcePos":[26,1]}},"isGuarded":false},{"binders":[{"annotation":{"meta":null,"sourceSpan":{"end":[26,69],"start":[26,19]}},"binderType":"NullBinder"}],"expression":{"abstraction":{"abstraction":{"annotation":{"meta":null,"sourceSpan":{"end":[26,51],"start":[26,43]}},"type":"Var","value":{"identifier":"oddSteps","moduleName":["Golden","Uncurry","Test"]}},"annotation":{"meta":null,"sourceSpan":{"end":[26,61],"start":[26,43]}},"argument":{"abstraction":{"abstraction":{"annotation":{"meta":null,"sourceSpan":{"end":[0,0],"start":[0,0]}},"type":"Var","value":{"identifier":"add","moduleName":["Golden","Uncurry","Test"]}},"annotation":{"meta":null,"sourceSpan":{"end":[26,60],"start":[26,53]}},"argument":{"annotation":{"meta":null,"sourceSpan":{"end":[26,56],"start":[26,53]}},"type":"Var","value":{"identifier":"acc","sourcePos":[26,1]}},"type":"App"},"annotation":{"meta":null,"sourceSpan":{"end":[26,60],"start":[26,53]}},"argument":{"annotation":{"meta":null,"sourceSpan":{"end":[26,60],"start":[26,59]}},"type":"Literal","value":{"literalType":"IntLiteral","value":1}},"type":"App"},"type":"App"},"annotation":{"meta":null,"sourceSpan":{"end":[26,69],"start":[26,43]}},"argument":{"abstraction":{"abstraction":{"annotation":{"meta":null,"sourceSpan":{"end":[0,0],"start":[0,0]}},"type":"Var","value":{"identifier":"sub","moduleName":["Golden","Uncurry","Test"]}},"annotation":{"meta":null,"sourceSpan":{"end":[26,68],"start":[26,63]}},"argument":{"annotation":{"meta":null,"sourceSpan":{"end":[26,64],"start":[26,63]}},"type":"Var","value":{"identifier":"n","sourcePos":[26,1]}},"type":"App"},"annotation":{"meta":null,"sourceSpan":{"end":[26,68],"start":[26,63]}},"argument":{"annotation":{"meta":null,"sourceSpan":{"end":[26,68],"start":[26,67]}},"type":"Literal","value":{"literalType":"IntLiteral","value":1}},"type":"App"},"type":"App"},"isGuarded":false}],"caseExpressions":[{"abstraction":{"abstraction":{"annotation":{"meta":null,"sourceSpan":{"end":[0,0],"start":[0,0]}},"type":"Var","value":{"identifier":"eq","moduleName":["Golden","Uncurry","Test"]}},"annotation":{"meta":null,"sourceSpan":{"end":[26,28],"start":[26,22]}},"argument":{"annotation":{"meta":null,"sourceSpan":{"end":[26,23],"start":[26,22]}},"type":"Var","value":{"identifier":"n","sourcePos":[26,1]}},"type":"App"},"annotation":{"meta":null,"sourceSpan":{"end":[26,28],"start":[26,22]}},"argument":{"annotation":{"meta":null,"sourceSpan":{"end":[26,28],"start":[26,27]}},"type":"Literal","value":{"literalType":"IntLiteral","value":0}},"type":"App"}],"type":"Case"},"type":"Abs"},"type":"Abs"},"identifier":"evenSteps"}]},{"annotation":{"meta":null,"sourceSpan":{"end":[43,33],"start":[43,1]}},"bindType":"NonRec","expression":{"annotation":{"meta":null,"sourceSpan":{"end":[43,33],"start":[43,1]}},"argument":"x","body":{"annotation":{"meta":null,"sourceSpan":{"end":[43,33],"start":[43,1]}},"argument":"v","body":{"annotation":{"meta":null,"sourceSpan":{"end":[44,20],"start":[44,19]}},"type":"Var","value":{"identifier":"x","sourcePos":[44,1]}},"type":"Abs"},"type":"Abs"},"identifier":"alwaysFirst"},{"annotation":{"meta":null,"sourceSpan":{"end":[39,38],"start":[39,1]}},"bindType":"NonRec","expression":{"annotation":{"meta":null,"sourceSpan":{"end":[39,38],"start":[39,1]}},"argument":"x","body":{"annotation":{"meta":null,"sourceSpan":{"end":[39,38],"start":[39,1]}},"argument":"y","body":{"abstraction":{"annotation":{"meta":null,"sourceSpan":{"end":[0,0],"start":[0,0]}},"type":"Var","value":{"identifier":"add","moduleName":["Golden","Uncurry","Test"]}},"annotation":{"meta":null,"sourceSpan":{"end":[40,26],"start":[40,15]}},"argument":{"abstraction":{"abstraction":{"annotation":{"meta":null,"sourceSpan":{"end":[0,0],"start":[0,0]}},"type":"Var","value":{"identifier":"add","moduleName":["Golden","Uncurry","Test"]}},"annotation":{"meta":null,"sourceSpan":{"end":[40,25],"start":[40,20]}},"argument":{"annotation":{"meta":null,"sourceSpan":{"end":[40,21],"start":[40,20]}},"type":"Var","value":{"identifier":"x","sourcePos":[40,1]}},"type":"App"},"annotation":{"meta":null,"sourceSpan":{"end":[40,25],"start":[40,20]}},"argument":{"annotation":{"meta":null,"sourceSpan":{"end":[40,25],"start":[40,24]}},"type":"Var","value":{"identifier":"y","sourcePos":[40,1]}},"type":"App"},"type":"App"},"type":"Abs"},"type":"Abs"},"identifier":"adderOf"},{"annotation":{"meta":null,"sourceSpan":{"end":[16,33],"start":[16,1]}},"bindType":"NonRec","expression":{"annotation":{"meta":null,"sourceSpan":{"end":[16,33],"start":[16,1]}},"argument":"x","body":{"annotation":{"meta":null,"sourceSpan":{"end":[16,33],"start":[16,1]}},"argument":"y","body":{"annotation":{"meta":null,"sourceSpan":{"end":[16,33],"start":[16,1]}},"argument":"z","body":{"abstraction":{"abstraction":{"annotation":{"meta":null,"sourceSpan":{"end":[0,0],"start":[0,0]}},"type":"Var","value":{"identifier":"add","moduleName":["Golden","Uncurry","Test"]}},"annotation":{"meta":null,"sourceSpan":{"end":[17,23],"start":[17,14]}},"argument":{"abstraction":{"abstraction":{"annotation":{"meta":null,"sourceSpan":{"end":[0,0],"start":[0,0]}},"type":"Var","value":{"identifier":"add","moduleName":["Golden","Uncurry","Test"]}},"annotation":{"meta":null,"sourceSpan":{"end":[17,23],"start":[17,14]}},"argument":{"annotation":{"meta":null,"sourceSpan":{"end":[17,15],"start":[17,14]}},"type":"Var","value":{"identifier":"x","sourcePos":[17,1]}},"type":"App"},"annotation":{"meta":null,"sourceSpan":{"end":[17,23],"start":[17,14]}},"argument":{"annotation":{"meta":null,"sourceSpan":{"end":[17,19],"start":[17,18]}},"type":"Var","value":{"identifier":"y","sourcePos":[17,1]}},"type":"App"},"type":"App"},"annotation":{"meta":null,"sourceSpan":{"end":[17,23],"start":[17,14]}},"argument":{"annotation":{"meta":null,"sourceSpan":{"end":[17,23],"start":[17,22]}},"type":"Var","value":{"identifier":"z","sourcePos":[17,1]}},"type":"App"},"type":"Abs"},"type":"Abs"},"type":"Abs"},"identifier":"add3"},{"annotation":{"meta":null,"sourceSpan":{"end":[20,18],"start":[20,1]}},"bindType":"NonRec","expression":{"abstraction":{"abstraction":{"annotation":{"meta":null,"sourceSpan":{"end":[21,11],"start":[21,7]}},"type":"Var","value":{"identifier":"add3","moduleName":["Golden","Uncurry","Test"]}},"annotation":{"meta":null,"sourceSpan":{"end":[21,13],"start":[21,7]}},"argument":{"annotation":{"meta":null,"sourceSpan":{"end":[21,13],"start":[21,12]}},"type":"Literal","value":{"literalType":"IntLiteral","value":1}},"type":"App"},"annotation":{"meta":null,"sourceSpan":{"end":[21,15],"start":[21,7]}},"argument":{"annotation":{"meta":null,"sourceSpan":{"end":[21,15],"start":[21,14]}},"type":"Literal","value":{"literalType":"IntLiteral","value":0}},"type":"App"},"identifier":"inc"},{"annotation":{"meta":null,"sourceSpan":{"end":[46,20],"start":[46,1]}},"bindType":"NonRec","expression":{"abstraction":{"abstraction":{"annotation":{"meta":null,"sourceSpan":{"end":[0,0],"start":[0,0]}},"type":"Var","value":{"identifier":"discard","moduleName":["Golden","Uncurry","Test"]}},"annotation":{"meta":null,"sourceSpan":{"end":[48,23],"start":[48,3]}},"argument":{"abstraction":{"annotation":{"meta":null,"sourceSpan":{"end":[0,0],"start":[0,0]}},"type":"Var","value":{"identifier":"logShow","moduleName":["Golden","Uncurry","Test"]}},"annotation":{"meta":null,"sourceSpan":{"end":[48,23],"start":[48,3]}},"argument":{"abstraction":{"abstraction":{"abstraction":{"annotation":{"meta":null,"sourceSpan":{"end":[48,16],"start":[48,12]}},"type":"Var","value":{"identifier":"add3","moduleName":["Golden","Uncurry","Test"]}},"annotation":{"meta":null,"sourceSpan":{"end":[48,18],"start":[48,12]}},"argument":{"annotation":{"meta":null,"sourceSpan":{"end":[48,18],"start":[48,17]}},"type":"Literal","value":{"literalType":"IntLiteral","value":1}},"type":"App"},"annotation":{"meta":null,"sourceSpan":{"end":[48,20],"start":[48,12]}},"argument":{"annotation":{"meta":null,"sourceSpan":{"end":[48,20],"start":[48,19]}},"type":"Literal","value":{"literalType":"IntLiteral","value":2}},"type":"App"},"annotation":{"meta":null,"sourceSpan":{"end":[48,22],"start":[48,12]}},"argument":{"annotation":{"meta":null,"sourceSpan":{"end":[48,22],"start":[48,21]}},"type":"Literal","value":{"literalType":"IntLiteral","value":3}},"type":"App"},"type":"App"},"type":"App"},"annotation":{"meta":null,"sourceSpan":{"end":[48,23],"start":[48,3]}},"argument":{"annotation":{"meta":null,"sourceSpan":{"end":[48,23],"start":[48,3]}},"argument":"$__unused","body":{"abstraction":{"abstraction":{"annotation":{"meta":null,"sourceSpan":{"end":[0,0],"start":[0,0]}},"type":"Var","value":{"identifier":"discard","moduleName":["Golden","Uncurry","Test"]}},"annotation":{"meta":null,"sourceSpan":{"end":[49,23],"start":[49,3]}},"argument":{"abstraction":{"annotation":{"meta":null,"sourceSpan":{"end":[0,0],"start":[0,0]}},"type":"Var","value":{"identifier":"logShow","moduleName":["Golden","Uncurry","Test"]}},"annotation":{"meta":null,"sourceSpan":{"end":[49,23],"start":[49,3]}},"argument":{"abstraction":{"abstraction":{"abstraction":{"annotation":{"meta":null,"sourceSpan":{"end":[49,16],"start":[49,12]}},"type":"Var","value":{"identifier":"add3","moduleName":["Golden","Uncurry","Test"]}},"annotation":{"meta":null,"sourceSpan":{"end":[49,18],"start":[49,12]}},"argument":{"annotation":{"meta":null,"sourceSpan":{"end":[49,18],"start":[49,17]}},"type":"Literal","value":{"literalType":"IntLiteral","value":4}},"type":"App"},"annotation":{"meta":null,"sourceSpan":{"end":[49,20],"start":[49,12]}},"argument":{"annotation":{"meta":null,"sourceSpan":{"end":[49,20],"start":[49,19]}},"type":"Literal","value":{"literalType":"IntLiteral","value":5}},"type":"App"},"annotation":{"meta":null,"sourceSpan":{"end":[49,22],"start":[49,12]}},"argument":{"annotation":{"meta":null,"sourceSpan":{"end":[49,22],"start":[49,21]}},"type":"Literal","value":{"literalType":"IntLiteral","value":6}},"type":"App"},"type":"App"},"type":"App"},"annotation":{"meta":null,"sourceSpan":{"end":[49,23],"start":[49,3]}},"argument":{"annotation":{"meta":null,"sourceSpan":{"end":[49,23],"start":[49,3]}},"argument":"$__unused","body":{"annotation":{"meta":null,"sourceSpan":{"end":[50,18],"start":[50,3]}},"binds":[{"annotation":{"meta":null,"sourceSpan":{"end":[50,18],"start":[50,7]}},"bindType":"NonRec","expression":{"abstraction":{"annotation":{"meta":null,"sourceSpan":{"end":[50,15],"start":[50,11]}},"type":"Var","value":{"identifier":"add3","moduleName":["Golden","Uncurry","Test"]}},"annotation":{"meta":null,"sourceSpan":{"end":[50,18],"start":[50,11]}},"argument":{"annotation":{"meta":null,"sourceSpan":{"end":[50,18],"start":[50,16]}},"type":"Literal","value":{"literalType":"IntLiteral","value":10}},"type":"App"},"identifier":"f"}],"expression":{"abstraction":{"abstraction":{"annotation":{"meta":null,"sourceSpan":{"end":[0,0],"start":[0,0]}},"type":"Var","value":{"identifier":"discard","moduleName":["Golden","Uncurry","Test"]}},"annotation":{"meta":null,"sourceSpan":{"end":[51,18],"start":[51,3]}},"argument":{"abstraction":{"annotation":{"meta":null,"sourceSpan":{"end":[0,0],"start":[0,0]}},"type":"Var","value":{"identifier":"logShow","moduleName":["Golden","Uncurry","Test"]}},"annotation":{"meta":null,"sourceSpan":{"end":[51,18],"start":[51,3]}},"argument":{"abstraction":{"abstraction":{"annotation":{"meta":null,"sourceSpan":{"end":[51,13],"start":[51,12]}},"type":"Var","value":{"identifier":"f","sourcePos":[50,7]}},"annotation":{"meta":null,"sourceSpan":{"end":[51,15],"start":[51,12]}},"argument":{"annotation":{"meta":null,"sourceSpan":{"end":[51,15],"start":[51,14]}},"type":"Literal","value":{"literalType":"IntLiteral","value":1}},"type":"App"},"annotation":{"meta":null,"sourceSpan":{"end":[51,17],"start":[51,12]}},"argument":{"annotation":{"meta":null,"sourceSpan":{"end":[51,17],"start":[51,16]}},"type":"Literal","value":{"literalType":"IntLiteral","value":2}},"type":"App"},"type":"App"},"type":"App"},"annotation":{"meta":null,"sourceSpan":{"end":[51,18],"start":[51,3]}},"argument":{"annotation":{"meta":null,"sourceSpan":{"end":[51,18],"start":[51,3]}},"argument":"$__unused","body":{"abstraction":{"abstraction":{"annotation":{"meta":null,"sourceSpan":{"end":[0,0],"start":[0,0]}},"type":"Var","value":{"identifier":"discard","moduleName":["Golden","Uncurry","Test"]}},"annotation":{"meta":null,"sourceSpan":{"end":[52,19],"start":[52,3]}},"argument":{"abstraction":{"annotation":{"meta":null,"sourceSpan":{"end":[0,0],"start":[0,0]}},"type":"Var","value":{"identifier":"logShow","moduleName":["Golden","Uncurry","Test"]}},"annotation":{"meta":null,"sourceSpan":{"end":[52,19],"start":[52,3]}},"argument":{"abstraction":{"annotation":{"meta":null,"sourceSpan":{"end":[52,15],"start":[52,12]}},"type":"Var","value":{"identifier":"inc","moduleName":["Golden","Uncurry","Test"]}},"annotation":{"meta":null,"sourceSpan":{"end":[52,18],"start":[52,12]}},"argument":{"annotation":{"meta":null,"sourceSpan":{"end":[52,18],"start":[52,16]}},"type":"Literal","value":{"literalType":"IntLiteral","value":41}},"type":"App"},"type":"App"},"type":"App"},"annotation":{"meta":null,"sourceSpan":{"end":[52,19],"start":[52,3]}},"argument":{"annotation":{"meta":null,"sourceSpan":{"end":[52,19],"start":[52,3]}},"argument":"$__unused","body":{"abstraction":{"abstraction":{"annotation":{"meta":null,"sourceSpan":{"end":[0,0],"start":[0,0]}},"type":"Var","value":{"identifier":"discard","moduleName":["Golden","Uncurry","Test"]}},"annotation":{"meta":null,"sourceSpan":{"end":[53,39],"start":[53,3]}},"argument":{"abstraction":{"annotation":{"meta":null,"sourceSpan":{"end":[0,0],"start":[0,0]}},"type":"Var","value":{"identifier":"logShow1","moduleName":["Golden","Uncurry","Test"]}},"annotation":{"meta":null,"sourceSpan":{"end":[53,39],"start":[53,3]}},"argument":{"abstraction":{"abstraction":{"annotation":{"meta":null,"sourceSpan":{"end":[0,0],"start":[0,0]}},"type":"Var","value":{"identifier":"map","moduleName":["Golden","Uncurry","Test"]}},"annotation":{"meta":null,"sourceSpan":{"end":[53,26],"start":[53,12]}},"argument":{"abstraction":{"abstraction":{"annotation":{"meta":null,"sourceSpan":{"end":[53,21],"start":[53,17]}},"type":"Var","value":{"identifier":"add3","moduleName":["Golden","Uncurry","Test"]}},"annotation":{"meta":null,"sourceSpan":{"end":[53,23],"start":[53,17]}},"argument":{"annotation":{"meta":null,"sourceSpan":{"end":[53,23],"start":[53,22]}},"type":"Literal","value":{"literalType":"IntLiteral","value":1}},"type":"App"},"annotation":{"meta":null,"sourceSpan":{"end":[53,25],"start":[53,17]}},"argument":{"annotation":{"meta":null,"sourceSpan":{"end":[53,25],"start":[53,24]}},"type":"Literal","value":{"literalType":"IntLiteral","value":2}},"type":"App"},"type":"App"},"annotation":{"meta":null,"sourceSpan":{"end":[53,38],"start":[53,12]}},"argument":{"annotation":{"meta":null,"sourceSpan":{"end":[53,38],"start":[53,27]}},"type":"Literal","value":{"literalType":"ArrayLiteral","value":[{"annotation":{"meta":null,"sourceSpan":{"end":[53,30],"start":[53,29]}},"type":"Literal","value":{"literalType":"IntLiteral","value":1}},{"annotation":{"meta":null,"sourceSpan":{"end":[53,33],"start":[53,32]}},"type":"Literal","value":{"literalType":"IntLiteral","value":2}},{"annotation":{"meta":null,"sourceSpan":{"end":[53,36],"start":[53,35]}},"type":"Literal","value":{"literalType":"IntLiteral","value":3}}]}},"type":"App"},"type":"App"},"type":"App"},"annotation":{"meta":null,"sourceSpan":{"end":[53,39],"start":[53,3]}},"argument":{"annotation":{"meta":null,"sourceSpan":{"end":[53,39],"start":[53,3]}},"argument":"$__unused","body":{"abstraction":{"abstraction":{"annotation":{"meta":null,"sourceSpan":{"end":[0,0],"start":[0,0]}},"type":"Var","value":{"identifier":"discard","moduleName":["Golden","Uncurry","Test"]}},"annotation":{"meta":null,"sourceSpan":{"end":[54,27],"start":[54,3]}},"argument":{"abstraction":{"annotation":{"meta":null,"sourceSpan":{"end":[0,0],"start":[0,0]}},"type":"Var","value":{"identifier":"logShow","moduleName":["Golden","Uncurry","Test"]}},"annotation":{"meta":null,"sourceSpan":{"end":[54,27],"start":[54,3]}},"argument":{"abstraction":{"abstraction":{"annotation":{"meta":null,"sourceSpan":{"end":[54,21],"start":[54,12]}},"type":"Var","value":{"identifier":"evenSteps","moduleName":["Golden","Uncurry","Test"]}},"annotation":{"meta":null,"sourceSpan":{"end":[54,23],"start":[54,12]}},"argument":{"annotation":{"meta":null,"sourceSpan":{"end":[54,23],"start":[54,22]}},"type":"Literal","value":{"literalType":"IntLiteral","value":0}},"type":"App"},"annotation":{"meta":null,"sourceSpan":{"end":[54,26],"start":[54,12]}},"argument":{"annotation":{"meta":null,"sourceSpan":{"end":[54,26],"start":[54,24]}},"type":"Literal","value":{"literalType":"IntLiteral","value":10}},"type":"App"},"type":"App"},"type":"App"},"annotation":{"meta":null,"sourceSpan":{"end":[54,27],"start":[54,3]}},"argument":{"annotation":{"meta":null,"sourceSpan":{"end":[54,27],"start":[54,3]}},"argument":"$__unused","body":{"abstraction":{"abstraction":{"annotation":{"meta":null,"sourceSpan":{"end":[0,0],"start":[0,0]}},"type":"Var","value":{"identifier":"discard","moduleName":["Golden","Uncurry","Test"]}},"annotation":{"meta":null,"sourceSpan":{"end":[55,25],"start":[55,3]}},"argument":{"abstraction":{"annotation":{"meta":null,"sourceSpan":{"end":[0,0],"start":[0,0]}},"type":"Var","value":{"identifier":"logShow","moduleName":["Golden","Uncurry","Test"]}},"annotation":{"meta":null,"sourceSpan":{"end":[55,25],"start":[55,3]}},"argument":{"abstraction":{"abstraction":{"annotation":{"meta":null,"sourceSpan":{"end":[55,20],"start":[55,12]}},"type":"Var","value":{"identifier":"oddSteps","moduleName":["Golden","Uncurry","Test"]}},"annotation":{"meta":null,"sourceSpan":{"end":[55,22],"start":[55,12]}},"argument":{"annotation":{"meta":null,"sourceSpan":{"end":[55,22],"start":[55,21]}},"type":"Literal","value":{"literalType":"IntLiteral","value":0}},"type":"App"},"annotation":{"meta":null,"sourceSpan":{"end":[55,24],"start":[55,12]}},"argument":{"annotation":{"meta":null,"sourceSpan":{"end":[55,24],"start":[55,23]}},"type":"Literal","value":{"literalType":"IntLiteral","value":7}},"type":"App"},"type":"App"},"type":"App"},"annotation":{"meta":null,"sourceSpan":{"end":[55,25],"start":[55,3]}},"argument":{"annotation":{"meta":null,"sourceSpan":{"end":[55,25],"start":[55,3]}},"argument":"$__unused","body":{"abstraction":{"abstraction":{"annotation":{"meta":null,"sourceSpan":{"end":[0,0],"start":[0,0]}},"type":"Var","value":{"identifier":"discard","moduleName":["Golden","Uncurry","Test"]}},"annotation":{"meta":null,"sourceSpan":{"end":[56,21],"start":[56,3]}},"argument":{"abstraction":{"annotation":{"meta":null,"sourceSpan":{"end":[0,0],"start":[0,0]}},"type":"Var","value":{"identifier":"logShow","moduleName":["Golden","Uncurry","Test"]}},"annotation":{"meta":null,"sourceSpan":{"end":[56,21],"start":[56,3]}},"argument":{"abstraction":{"annotation":{"meta":null,"sourceSpan":{"end":[56,17],"start":[56,12]}},"type":"Var","value":{"identifier":"sumTo","moduleName":["Golden","Uncurry","Test"]}},"annotation":{"meta":null,"sourceSpan":{"end":[56,20],"start":[56,12]}},"argument":{"annotation":{"meta":null,"sourceSpan":{"end":[56,20],"start":[56,18]}},"type":"Literal","value":{"literalType":"IntLiteral","value":10}},"type":"App"},"type":"App"},"type":"App"},"annotation":{"meta":null,"sourceSpan":{"end":[56,21],"start":[56,3]}},"argument":{"annotation":{"meta":null,"sourceSpan":{"end":[56,21],"start":[56,3]}},"argument":"$__unused","body":{"abstraction":{"abstraction":{"annotation":{"meta":null,"sourceSpan":{"end":[0,0],"start":[0,0]}},"type":"Var","value":{"identifier":"discard","moduleName":["Golden","Uncurry","Test"]}},"annotation":{"meta":null,"sourceSpan":{"end":[57,22],"start":[57,3]}},"argument":{"abstraction":{"annotation":{"meta":null,"sourceSpan":{"end":[0,0],"start":[0,0]}},"type":"Var","value":{"identifier":"logShow","moduleName":["Golden","Uncurry","Test"]}},"annotation":{"meta":null,"sourceSpan":{"end":[57,22],"start":[57,3]}},"argument":{"abstraction":{"annotation":{"meta":null,"sourceSpan":{"end":[57,17],"start":[57,12]}},"type":"Var","value":{"identifier":"sumTo","moduleName":["Golden","Uncurry","Test"]}},"annotation":{"meta":null,"sourceSpan":{"end":[57,21],"start":[57,12]}},"argument":{"annotation":{"meta":null,"sourceSpan":{"end":[57,21],"start":[57,18]}},"type":"Literal","value":{"literalType":"IntLiteral","value":100}},"type":"App"},"type":"App"},"type":"App"},"annotation":{"meta":null,"sourceSpan":{"end":[57,22],"start":[57,3]}},"argument":{"annotation":{"meta":null,"sourceSpan":{"end":[57,22],"start":[57,3]}},"argument":"$__unused","body":{"abstraction":{"abstraction":{"annotation":{"meta":null,"sourceSpan":{"end":[0,0],"start":[0,0]}},"type":"Var","value":{"identifier":"discard","moduleName":["Golden","Uncurry","Test"]}},"annotation":{"meta":null,"sourceSpan":{"end":[58,26],"start":[58,3]}},"argument":{"abstraction":{"annotation":{"meta":null,"sourceSpan":{"end":[0,0],"start":[0,0]}},"type":"Var","value":{"identifier":"logShow","moduleName":["Golden","Uncurry","Test"]}},"annotation":{"meta":null,"sourceSpan":{"end":[58,26],"start":[58,3]}},"argument":{"abstraction":{"abstraction":{"abstraction":{"annotation":{"meta":null,"sourceSpan":{"end":[58,19],"start":[58,12]}},"type":"Var","value":{"identifier":"adderOf","moduleName":["Golden","Uncurry","Test"]}},"annotation":{"meta":null,"sourceSpan":{"end":[58,21],"start":[58,12]}},"argument":{"annotation":{"meta":null,"sourceSpan":{"end":[58,21],"start":[58,20]}},"type":"Literal","value":{"literalType":"IntLiteral","value":1}},"type":"App"},"annotation":{"meta":null,"sourceSpan":{"end":[58,23],"start":[58,12]}},"argument":{"annotation":{"meta":null,"sourceSpan":{"end":[58,23],"start":[58,22]}},"type":"Literal","value":{"literalType":"IntLiteral","value":2}},"type":"App"},"annotation":{"meta":null,"sourceSpan":{"end":[58,25],"start":[58,12]}},"argument":{"annotation":{"meta":null,"sourceSpan":{"end":[58,25],"start":[58,24]}},"type":"Literal","value":{"literalType":"IntLiteral","value":3}},"type":"App"},"type":"App"},"type":"App"},"annotation":{"meta":null,"sourceSpan":{"end":[58,26],"start":[58,3]}},"argument":{"annotation":{"meta":null,"sourceSpan":{"end":[58,26],"start":[58,3]}},"argument":"$__unused","body":{"abstraction":{"abstraction":{"annotation":{"meta":null,"sourceSpan":{"end":[0,0],"start":[0,0]}},"type":"Var","value":{"identifier":"discard","moduleName":["Golden","Uncurry","Test"]}},"annotation":{"meta":null,"sourceSpan":{"end":[59,26],"start":[59,3]}},"argument":{"abstraction":{"annotation":{"meta":null,"sourceSpan":{"end":[0,0],"start":[0,0]}},"type":"Var","value":{"identifier":"logShow","moduleName":["Golden","Uncurry","Test"]}},"annotation":{"meta":null,"sourceSpan":{"end":[59,26],"start":[59,3]}},"argument":{"abstraction":{"abstraction":{"abstraction":{"annotation":{"meta":null,"sourceSpan":{"end":[59,19],"start":[59,12]}},"type":"Var","value":{"identifier":"adderOf","moduleName":["Golden","Uncurry","Test"]}},"annotation":{"meta":null,"sourceSpan":{"end":[59,21],"start":[59,12]}},"argument":{"annotation":{"meta":null,"sourceSpan":{"end":[59,21],"start":[59,20]}},"type":"Literal","value":{"literalType":"IntLiteral","value":2}},"type":"App"},"annotation":{"meta":null,"sourceSpan":{"end":[59,23],"start":[59,12]}},"argument":{"annotation":{"meta":null,"sourceSpan":{"end":[59,23],"start":[59,22]}},"type":"Literal","value":{"literalType":"IntLiteral","value":3}},"type":"App"},"annotation":{"meta":null,"sourceSpan":{"end":[59,25],"start":[59,12]}},"argument":{"annotation":{"meta":null,"sourceSpan":{"end":[59,25],"start":[59,24]}},"type":"Literal","value":{"literalType":"IntLiteral","value":4}},"type":"App"},"type":"App"},"type":"App"},"annotation":{"meta":null,"sourceSpan":{"end":[59,26],"start":[59,3]}},"argument":{"annotation":{"meta":null,"sourceSpan":{"end":[59,26],"start":[59,3]}},"argument":"$__unused","body":{"abstraction":{"abstraction":{"annotation":{"meta":null,"sourceSpan":{"end":[0,0],"start":[0,0]}},"type":"Var","value":{"identifier":"discard","moduleName":["Golden","Uncurry","Test"]}},"annotation":{"meta":null,"sourceSpan":{"end":[60,28],"start":[60,3]}},"argument":{"abstraction":{"annotation":{"meta":null,"sourceSpan":{"end":[0,0],"start":[0,0]}},"type":"Var","value":{"identifier":"logShow","moduleName":["Golden","Uncurry","Test"]}},"annotation":{"meta":null,"sourceSpan":{"end":[60,28],"start":[60,3]}},"argument":{"abstraction":{"abstraction":{"annotation":{"meta":null,"sourceSpan":{"end":[60,23],"start":[60,12]}},"type":"Var","value":{"identifier":"alwaysFirst","moduleName":["Golden","Uncurry","Test"]}},"annotation":{"meta":null,"sourceSpan":{"end":[60,25],"start":[60,12]}},"argument":{"annotation":{"meta":null,"sourceSpan":{"end":[60,25],"start":[60,24]}},"type":"Literal","value":{"literalType":"IntLiteral","value":7}},"type":"App"},"annotation":{"meta":null,"sourceSpan":{"end":[60,27],"start":[60,12]}},"argument":{"annotation":{"meta":null,"sourceSpan":{"end":[60,27],"start":[60,26]}},"type":"Literal","value":{"literalType":"IntLiteral","value":8}},"type":"App"},"type":"App"},"type":"App"},"annotation":{"meta":null,"sourceSpan":{"end":[60,28],"start":[60,3]}},"argument":{"annotation":{"meta":null,"sourceSpan":{"end":[60,28],"start":[60,3]}},"argument":"$__unused","body":{"abstraction":{"annotation":{"meta":null,"sourceSpan":{"end":[0,0],"start":[0,0]}},"type":"Var","value":{"identifier":"logShow","moduleName":["Golden","Uncurry","Test"]}},"annotation":{"meta":null,"sourceSpan":{"end":[61,29],"start":[61,3]}},"argument":{"abstraction":{"abstraction":{"annotation":{"meta":null,"sourceSpan":{"end":[61,23],"start":[61,12]}},"type":"Var","value":{"identifier":"alwaysFirst","moduleName":["Golden","Uncurry","Test"]}},"annotation":{"meta":null,"sourceSpan":{"end":[61,25],"start":[61,12]}},"argument":{"annotation":{"meta":null,"sourceSpan":{"end":[61,25],"start":[61,24]}},"type":"Literal","value":{"literalType":"IntLiteral","value":9}},"type":"App"},"annotation":{"meta":null,"sourceSpan":{"end":[61,28],"start":[61,12]}},"argument":{"annotation":{"meta":null,"sourceSpan":{"end":[61,28],"start":[61,26]}},"type":"Literal","value":{"literalType":"IntLiteral","value":10}},"type":"App"},"type":"App"},"type":"Abs"},"type":"App"},"type":"Abs"},"type":"App"},"type":"Abs"},"type":"App"},"type":"Abs"},"type":"App"},"type":"Abs"},"type":"App"},"type":"Abs"},"type":"App"},"type":"Abs"},"type":"App"},"type":"Abs"},"type":"App"},"type":"Abs"},"type":"App"},"type":"Abs"},"type":"App"},"type":"Let"},"type":"Abs"},"type":"App"},"type":"Abs"},"type":"App"},"identifier":"main"}],"exports":["add3","inc","evenSteps","oddSteps","sumTo","adderOf","alwaysFirst","main"],"foreign":[],"imports":[{"annotation":{"meta":null,"sourceSpan":{"end":[61,29],"start":[6,1]}},"moduleName":["Control","Bind"]},{"annotation":{"meta":null,"sourceSpan":{"end":[61,29],"start":[6,1]}},"moduleName":["Data","Eq"]},{"annotation":{"meta":null,"sourceSpan":{"end":[61,29],"start":[6,1]}},"moduleName":["Data","Functor"]},{"annotation":{"meta":null,"sourceSpan":{"end":[61,29],"start":[6,1]}},"moduleName":["Data","Ring"]},{"annotation":{"meta":null,"sourceSpan":{"end":[61,29],"start":[6,1]}},"moduleName":["Data","Semiring"]},{"annotation":{"meta":null,"sourceSpan":{"end":[61,29],"start":[6,1]}},"moduleName":["Data","Show"]},{"annotation":{"meta":null,"sourceSpan":{"end":[61,29],"start":[6,1]}},"moduleName":["Effect"]},{"annotation":{"meta":null,"sourceSpan":{"end":[61,29],"start":[6,1]}},"moduleName":["Effect","Console"]},{"annotation":{"meta":null,"sourceSpan":{"end":[61,29],"start":[6,1]}},"moduleName":["Golden","Uncurry","Test"]},{"annotation":{"meta":null,"sourceSpan":{"end":[8,15],"start":[8,1]}},"moduleName":["Prelude"]},{"annotation":{"meta":null,"sourceSpan":{"end":[61,29],"start":[6,1]}},"moduleName":["Prim"]}],"moduleName":["Golden","Uncurry","Test"],"modulePath":"src/Golden/Uncurry/Test.purs","reExports":{},"sourceSpan":{"end":[61,29],"start":[6,1]}} \ No newline at end of file diff --git a/test/ps/output/Golden.Uncurry.Test/eval/.gitignore b/test/ps/output/Golden.Uncurry.Test/eval/.gitignore new file mode 100644 index 00000000..d2dc29bb --- /dev/null +++ b/test/ps/output/Golden.Uncurry.Test/eval/.gitignore @@ -0,0 +1 @@ +actual.txt diff --git a/test/ps/output/Golden.Uncurry.Test/eval/golden.txt b/test/ps/output/Golden.Uncurry.Test/eval/golden.txt new file mode 100644 index 00000000..ff2b6919 --- /dev/null +++ b/test/ps/output/Golden.Uncurry.Test/eval/golden.txt @@ -0,0 +1,13 @@ +6 +15 +13 +42 +[4,5,6] +10 +7 +55 +5050 +6 +9 +7 +9 diff --git a/test/ps/output/Golden.Uncurry.Test/golden.ir b/test/ps/output/Golden.Uncurry.Test/golden.ir new file mode 100644 index 00000000..faf997d1 --- /dev/null +++ b/test/ps/output/Golden.Uncurry.Test/golden.ir @@ -0,0 +1,852 @@ +UberModule + { uberModuleBindings = + [ Standalone + ( QName + { qnameModuleName = ModuleName "Data.Eq", qnameName = Name "foreign" + }, ForeignImport Nothing + ( ModuleName "Data.Eq" ) ".spago/p/prelude/26c058c2a053cf4dd7240f0d822ec096c0fecbe1/src/Data/Eq.purs" + [ ( Nothing, Name "eqIntImpl" ) ] + ), Standalone + ( QName + { qnameModuleName = ModuleName "Data.Show", qnameName = Name "foreign" + }, ForeignImport Nothing + ( ModuleName "Data.Show" ) ".spago/p/prelude/26c058c2a053cf4dd7240f0d822ec096c0fecbe1/src/Data/Show.purs" + [ ( Nothing, Name "showIntImpl" ), ( Nothing, Name "showArrayImpl" ) ] + ), Standalone + ( QName + { qnameModuleName = ModuleName "Data.Semiring", qnameName = Name "foreign" + }, ForeignImport Nothing + ( ModuleName "Data.Semiring" ) ".spago/p/prelude/26c058c2a053cf4dd7240f0d822ec096c0fecbe1/src/Data/Semiring.purs" + [ ( Nothing, Name "intAdd" ) ] + ), Standalone + ( QName + { qnameModuleName = ModuleName "Data.Ring", qnameName = Name "foreign" + }, ForeignImport Nothing + ( ModuleName "Data.Ring" ) ".spago/p/prelude/26c058c2a053cf4dd7240f0d822ec096c0fecbe1/src/Data/Ring.purs" + [ ( Nothing, Name "intSub" ) ] + ), Standalone + ( QName + { qnameModuleName = ModuleName "Data.Functor", qnameName = Name "foreign" + }, ForeignImport Nothing + ( ModuleName "Data.Functor" ) ".spago/p/prelude/26c058c2a053cf4dd7240f0d822ec096c0fecbe1/src/Data/Functor.purs" + [ ( Nothing, Name "arrayMap" ) ] + ), Standalone + ( QName + { qnameModuleName = ModuleName "Effect", qnameName = Name "foreign" + }, ForeignImport Nothing + ( ModuleName "Effect" ) ".spago/p/effect/82bac3dff904fa34534c4f5b9deeb5da359471c8/src/Effect.purs" + [ ( Nothing, Name "pureE" ), ( Nothing, Name "bindE" ) ] + ), Standalone + ( QName + { qnameModuleName = ModuleName "Effect.Console", qnameName = Name "foreign" + }, ForeignImport Nothing + ( ModuleName "Effect.Console" ) ".spago/p/console/f82835a0b873aafe6bd7b14dd30cc150553d4ab9/src/Effect/Console.purs" + [ ( Nothing, Name "log" ) ] + ), Standalone + ( QName + { qnameModuleName = ModuleName "Data.Show", qnameName = Name "showInt" + }, LiteralObject Nothing + [ + ( PropName "show", ObjectProp ( Just Always ) + ( Ref Nothing ( Imported ( ModuleName "Data.Show" ) ( Name "foreign" ) ) ) + ( PropName "showIntImpl" ) + ) + ] + ), Standalone + ( QName + { qnameModuleName = ModuleName "Data.Show", qnameName = Name "show" }, AbsN Nothing + ( ParamNamed Nothing ( Name "dict" ) :| [] ) + ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "dict" ) ) ) ( PropName "show" ) ) + ), Standalone + ( QName + { qnameModuleName = ModuleName "Control.Applicative", qnameName = Name "pure" + }, AbsN Nothing + ( ParamNamed Nothing ( Name "dict" ) :| [] ) + ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "dict" ) ) ) ( PropName "pure" ) ) + ), Standalone + ( QName + { qnameModuleName = ModuleName "Control.Bind", qnameName = Name "bind" }, AbsN Nothing + ( ParamNamed Nothing ( Name "dict" ) :| [] ) + ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "dict" ) ) ) ( PropName "bind" ) ) + ), RecursiveGroup + ( + ( QName + { qnameModuleName = ModuleName "Effect", qnameName = Name "monadEffect" + }, LiteralObject Nothing + [ + ( PropName "Applicative0", AbsN Nothing + ( ParamUnused Nothing :| [] ) + ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "applicativeEffect" ) ) ) + ), + ( PropName "Bind1", AbsN Nothing + ( ParamUnused Nothing :| [] ) + ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "bindEffect" ) ) ) + ) + ] + ) :| + [ + ( QName + { qnameModuleName = ModuleName "Effect", qnameName = Name "bindEffect" + }, LiteralObject Nothing + [ + ( PropName "bind", ObjectProp ( Just Always ) + ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "foreign" ) ) ) + ( PropName "bindE" ) + ), + ( PropName "Apply0", AbsN Nothing + ( ParamUnused Nothing :| [] ) + ( AppN Nothing + ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "Lazy_applyEffect" ) ) ) + ( LiteralInt Nothing 0 :| [] ) + ) + ) + ] + ), + ( QName + { qnameModuleName = ModuleName "Effect", qnameName = Name "applicativeEffect" + }, LiteralObject Nothing + [ + ( PropName "pure", ObjectProp ( Just Always ) + ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "foreign" ) ) ) + ( PropName "pureE" ) + ), + ( PropName "Apply0", AbsN Nothing + ( ParamUnused Nothing :| [] ) + ( AppN Nothing + ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "Lazy_applyEffect" ) ) ) + ( LiteralInt Nothing 0 :| [] ) + ) + ) + ] + ), + ( QName + { qnameModuleName = ModuleName "Effect", qnameName = Name "Lazy_functorEffect" + }, AppN Nothing + ( AppN Nothing + ( Ref Nothing ( Local ( Name "PSLUA_runtime_lazy" ) ) ) + ( LiteralString Nothing "functorEffect" :| [] ) + ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) + ( LiteralObject Nothing + [ + ( PropName "map", AbsN Nothing + ( ParamNamed Nothing ( Name "f$26" ) :| [] ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "a$27" ) :| [] ) + ( AppN Nothing + ( AppN Nothing + ( ObjectProp Nothing + ( AppN Nothing + ( ObjectProp Nothing + ( Ref Nothing + ( Imported ( ModuleName "Effect" ) ( Name "applicativeEffect" ) ) + ) + ( PropName "Apply0" ) + ) + ( Ref Nothing + ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] + ) + ) + ( PropName "apply" ) + ) + ( AppN Nothing + ( AppN Nothing + ( Ref Nothing + ( Imported ( ModuleName "Control.Applicative" ) ( Name "pure" ) ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Effect" ) + ( Name "applicativeEffect" ) + ) :| [] + ) + ) + ( Ref Nothing ( Local ( Name "f$26" ) ) :| [] ) :| [] + ) + ) + ( Ref Nothing ( Local ( Name "a$27" ) ) :| [] ) + ) + ) + ) + ] + ) :| [] + ) + ), + ( QName + { qnameModuleName = ModuleName "Effect", qnameName = Name "Lazy_applyEffect" + }, AppN Nothing + ( AppN Nothing + ( Ref Nothing ( Local ( Name "PSLUA_runtime_lazy" ) ) ) + ( LiteralString Nothing "applyEffect" :| [] ) + ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) + ( LiteralObject Nothing + [ + ( PropName "apply", Let Nothing + ( Standalone + ( Nothing, Name "bind$5", AppN Nothing + ( Ref Nothing ( Imported ( ModuleName "Control.Bind" ) ( Name "bind" ) ) ) + ( AppN Nothing + ( ObjectProp Nothing + ( Ref Nothing + ( Imported ( ModuleName "Effect" ) ( Name "monadEffect" ) ) + ) + ( PropName "Bind1" ) + ) + ( Ref Nothing + ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] + ) :| [] + ) + ) :| [] + ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "f$7" ) :| [] ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "a$8" ) :| [] ) + ( AppN Nothing + ( AppN Nothing + ( Ref Nothing ( Local ( Name "bind$5" ) ) ) + ( Ref Nothing ( Local ( Name "f$7" ) ) :| [] ) + ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "f'$9" ) :| [] ) + ( AppN Nothing + ( AppN Nothing + ( Ref Nothing ( Local ( Name "bind$5" ) ) ) + ( Ref Nothing ( Local ( Name "a$8" ) ) :| [] ) + ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "a'$10" ) :| [] ) + ( AppN Nothing + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Control.Applicative" ) + ( Name "pure" ) + ) + ) + ( AppN Nothing + ( ObjectProp Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Effect" ) + ( Name "monadEffect" ) + ) + ) + ( PropName "Applicative0" ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Prim" ) + ( Name "undefined" ) + ) :| [] + ) :| [] + ) + ) + ( AppN Nothing + ( Ref Nothing ( Local ( Name "f'$9" ) ) ) + ( Ref Nothing ( Local ( Name "a'$10" ) ) :| [] ) :| [] + ) + ) :| [] + ) + ) :| [] + ) + ) + ) + ) + ), + ( PropName "Functor0", AbsN Nothing + ( ParamUnused Nothing :| [] ) + ( AppN Nothing + ( Ref Nothing + ( Imported ( ModuleName "Effect" ) ( Name "Lazy_functorEffect" ) ) + ) + ( LiteralInt Nothing 0 :| [] ) + ) + ) + ] + ) :| [] + ) + ) + ] + ), Standalone + ( QName + { qnameModuleName = ModuleName "Effect.Console", qnameName = Name "logShow$w" + }, AbsN Nothing + ( ParamNamed Nothing ( Name "dictShow" ) :| [ ParamNamed Nothing ( Name "a" ) ] ) + ( AppN Nothing + ( ObjectProp ( Just Always ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) + ( PropName "log" ) + ) + ( AppN Nothing + ( AppN Nothing + ( Ref Nothing ( Imported ( ModuleName "Data.Show" ) ( Name "show" ) ) ) + ( Ref Nothing ( Local ( Name "dictShow" ) ) :| [] ) + ) + ( Ref Nothing ( Local ( Name "a" ) ) :| [] ) :| [] + ) + ) + ), Standalone + ( QName + { qnameModuleName = ModuleName "Golden.Uncurry.Test", qnameName = Name "discard" + }, AppN Nothing + ( Ref Nothing ( Imported ( ModuleName "Control.Bind" ) ( Name "bind" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "bindEffect" ) ) :| [] ) + ), Standalone + ( QName + { qnameModuleName = ModuleName "Golden.Uncurry.Test", qnameName = Name "logShow" + }, AbsN Nothing + ( ParamNamed Nothing ( Name "logShow$p2$188" ) :| [] ) + ( AppN Nothing + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "logShow$w" ) ) ) + ( Ref Nothing + ( Imported ( ModuleName "Data.Show" ) ( Name "showInt" ) ) :| + [ Ref Nothing ( Local ( Name "logShow$p2$188" ) ) ] + ) + ) + ), Standalone + ( QName + { qnameModuleName = ModuleName "Golden.Uncurry.Test", qnameName = Name "sumTo" + }, AbsN Nothing + ( ParamNamed Nothing ( Name "m" ) :| [] ) + ( Let Nothing + ( RecursiveGroup + ( + ( Nothing, Name "go$w", AbsN Nothing + ( ParamNamed Nothing ( Name "acc" ) :| [ ParamNamed Nothing ( Name "n" ) ] ) + ( IfThenElse Nothing + ( AppN Nothing + ( AppN Nothing + ( ObjectProp ( Just Always ) + ( Ref Nothing ( Imported ( ModuleName "Data.Eq" ) ( Name "foreign" ) ) ) + ( PropName "eqIntImpl" ) + ) + ( Ref Nothing ( Local ( Name "n" ) ) :| [] ) + ) + ( LiteralInt Nothing 0 :| [] ) + ) + ( Ref Nothing ( Local ( Name "acc" ) ) ) + ( AppN Nothing + ( Ref Nothing ( Local ( Name "go$w" ) ) ) + ( AppN Nothing + ( AppN Nothing + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported ( ModuleName "Data.Semiring" ) ( Name "foreign" ) ) + ) + ( PropName "intAdd" ) + ) + ( Ref Nothing ( Local ( Name "acc" ) ) :| [] ) + ) + ( Ref Nothing ( Local ( Name "n" ) ) :| [] ) :| + [ AppN Nothing + ( AppN Nothing + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported ( ModuleName "Data.Ring" ) ( Name "foreign" ) ) + ) + ( PropName "intSub" ) + ) + ( Ref Nothing ( Local ( Name "n" ) ) :| [] ) + ) + ( LiteralInt Nothing 1 :| [] ) + ] + ) + ) + ) + ) :| [] + ) :| [] + ) + ( AppN Nothing + ( Ref Nothing ( Local ( Name "go$w" ) ) ) + ( LiteralInt Nothing 0 :| [ Ref Nothing ( Local ( Name "m" ) ) ] ) + ) + ) + ), RecursiveGroup + ( + ( QName + { qnameModuleName = ModuleName "Golden.Uncurry.Test", qnameName = Name "oddSteps$w" + }, AbsN Nothing + ( ParamNamed Nothing ( Name "acc" ) :| [ ParamNamed Nothing ( Name "n" ) ] ) + ( IfThenElse Nothing + ( AppN Nothing + ( AppN Nothing + ( ObjectProp ( Just Always ) + ( Ref Nothing ( Imported ( ModuleName "Data.Eq" ) ( Name "foreign" ) ) ) + ( PropName "eqIntImpl" ) + ) + ( Ref Nothing ( Local ( Name "n" ) ) :| [] ) + ) + ( LiteralInt Nothing 0 :| [] ) + ) + ( Ref Nothing ( Local ( Name "acc" ) ) ) + ( AppN Nothing + ( Ref Nothing + ( Imported ( ModuleName "Golden.Uncurry.Test" ) ( Name "evenSteps$w" ) ) + ) + ( AppN Nothing + ( AppN Nothing + ( ObjectProp ( Just Always ) + ( Ref Nothing ( Imported ( ModuleName "Data.Semiring" ) ( Name "foreign" ) ) ) + ( PropName "intAdd" ) + ) + ( Ref Nothing ( Local ( Name "acc" ) ) :| [] ) + ) + ( LiteralInt Nothing 1 :| [] ) :| + [ AppN Nothing + ( AppN Nothing + ( ObjectProp ( Just Always ) + ( Ref Nothing ( Imported ( ModuleName "Data.Ring" ) ( Name "foreign" ) ) ) + ( PropName "intSub" ) + ) + ( Ref Nothing ( Local ( Name "n" ) ) :| [] ) + ) + ( LiteralInt Nothing 1 :| [] ) + ] + ) + ) + ) + ) :| + [ + ( QName + { qnameModuleName = ModuleName "Golden.Uncurry.Test", qnameName = Name "oddSteps" + }, AbsN Nothing + ( ParamNamed Nothing ( Name "oddSteps$p1" ) :| [] ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "oddSteps$p2" ) :| [] ) + ( AppN Nothing + ( Ref Nothing + ( Imported ( ModuleName "Golden.Uncurry.Test" ) ( Name "oddSteps$w" ) ) + ) + ( Ref Nothing + ( Local ( Name "oddSteps$p1" ) ) :| + [ Ref Nothing ( Local ( Name "oddSteps$p2" ) ) ] + ) + ) + ) + ), + ( QName + { qnameModuleName = ModuleName "Golden.Uncurry.Test", qnameName = Name "evenSteps$w" + }, AbsN Nothing + ( ParamNamed Nothing ( Name "acc" ) :| [ ParamNamed Nothing ( Name "n" ) ] ) + ( IfThenElse Nothing + ( AppN Nothing + ( AppN Nothing + ( ObjectProp ( Just Always ) + ( Ref Nothing ( Imported ( ModuleName "Data.Eq" ) ( Name "foreign" ) ) ) + ( PropName "eqIntImpl" ) + ) + ( Ref Nothing ( Local ( Name "n" ) ) :| [] ) + ) + ( LiteralInt Nothing 0 :| [] ) + ) + ( Ref Nothing ( Local ( Name "acc" ) ) ) + ( AppN Nothing + ( Ref Nothing + ( Imported ( ModuleName "Golden.Uncurry.Test" ) ( Name "oddSteps$w" ) ) + ) + ( AppN Nothing + ( AppN Nothing + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported ( ModuleName "Data.Semiring" ) ( Name "foreign" ) ) + ) + ( PropName "intAdd" ) + ) + ( Ref Nothing ( Local ( Name "acc" ) ) :| [] ) + ) + ( LiteralInt Nothing 1 :| [] ) :| + [ AppN Nothing + ( AppN Nothing + ( ObjectProp ( Just Always ) + ( Ref Nothing ( Imported ( ModuleName "Data.Ring" ) ( Name "foreign" ) ) ) + ( PropName "intSub" ) + ) + ( Ref Nothing ( Local ( Name "n" ) ) :| [] ) + ) + ( LiteralInt Nothing 1 :| [] ) + ] + ) + ) + ) + ), + ( QName + { qnameModuleName = ModuleName "Golden.Uncurry.Test", qnameName = Name "evenSteps" + }, AbsN Nothing + ( ParamNamed Nothing ( Name "evenSteps$p1" ) :| [] ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "evenSteps$p2" ) :| [] ) + ( AppN Nothing + ( Ref Nothing + ( Imported ( ModuleName "Golden.Uncurry.Test" ) ( Name "evenSteps$w" ) ) + ) + ( Ref Nothing + ( Local ( Name "evenSteps$p1" ) ) :| + [ Ref Nothing ( Local ( Name "evenSteps$p2" ) ) ] + ) + ) + ) + ) + ] + ), Standalone + ( QName + { qnameModuleName = ModuleName "Golden.Uncurry.Test", qnameName = Name "alwaysFirst$w" + }, AbsN Nothing + ( ParamNamed Nothing ( Name "x" ) :| [ ParamUnused Nothing ] ) + ( Ref Nothing ( Local ( Name "x" ) ) ) + ), Standalone + ( QName + { qnameModuleName = ModuleName "Golden.Uncurry.Test", qnameName = Name "adderOf$w" + }, AbsN Nothing + ( ParamNamed Nothing ( Name "x" ) :| [ ParamNamed Nothing ( Name "y" ) ] ) + ( AppN Nothing + ( ObjectProp ( Just Always ) + ( Ref Nothing ( Imported ( ModuleName "Data.Semiring" ) ( Name "foreign" ) ) ) + ( PropName "intAdd" ) + ) + ( 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 "y" ) ) :| [] ) :| [] + ) + ) + ), Standalone + ( QName + { qnameModuleName = ModuleName "Golden.Uncurry.Test", qnameName = Name "add3$w" + }, AbsN Nothing + ( ParamNamed Nothing + ( Name "x" ) :| + [ ParamNamed Nothing ( Name "y" ), ParamNamed Nothing ( Name "z" ) ] + ) + ( AppN Nothing + ( AppN Nothing + ( ObjectProp ( Just Always ) + ( Ref Nothing ( Imported ( ModuleName "Data.Semiring" ) ( Name "foreign" ) ) ) + ( PropName "intAdd" ) + ) + ( 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 "y" ) ) :| [] ) :| [] + ) + ) + ( Ref Nothing ( Local ( Name "z" ) ) :| [] ) + ) + ), Standalone + ( QName + { qnameModuleName = ModuleName "Golden.Uncurry.Test", qnameName = Name "add3" + }, AbsN Nothing + ( ParamNamed Nothing ( Name "add3$p1" ) :| [] ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "add3$p2" ) :| [] ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "add3$p3" ) :| [] ) + ( AppN Nothing + ( Ref Nothing ( Imported ( ModuleName "Golden.Uncurry.Test" ) ( Name "add3$w" ) ) ) + ( Ref Nothing + ( Local ( Name "add3$p1" ) ) :| + [ Ref Nothing + ( Local ( Name "add3$p2" ) ), Ref Nothing + ( Local ( Name "add3$p3" ) ) + ] + ) + ) + ) + ) + ), Standalone + ( QName + { qnameModuleName = ModuleName "Golden.Uncurry.Test", qnameName = Name "inc" + }, AppN Nothing + ( AppN Nothing + ( Ref Nothing ( Imported ( ModuleName "Golden.Uncurry.Test" ) ( Name "add3" ) ) ) + ( LiteralInt Nothing 1 :| [] ) + ) + ( LiteralInt Nothing 0 :| [] ) + ) + ], uberModuleForeigns = [], uberModuleExports = + [ + ( Name "add3", Ref Nothing + ( Imported ( ModuleName "Golden.Uncurry.Test" ) ( Name "add3" ) ) + ), + ( Name "inc", Ref Nothing ( Imported ( ModuleName "Golden.Uncurry.Test" ) ( Name "inc" ) ) ), + ( Name "evenSteps", Ref Nothing + ( Imported ( ModuleName "Golden.Uncurry.Test" ) ( Name "evenSteps" ) ) + ), + ( Name "oddSteps", Ref Nothing + ( Imported ( ModuleName "Golden.Uncurry.Test" ) ( Name "oddSteps" ) ) + ), + ( Name "sumTo", Ref Nothing + ( Imported ( ModuleName "Golden.Uncurry.Test" ) ( Name "sumTo" ) ) + ), + ( Name "adderOf", AbsN Nothing + ( ParamNamed Nothing ( Name "adderOf$p1$183" ) :| [] ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "adderOf$p2$184" ) :| [] ) + ( AppN Nothing + ( Ref Nothing ( Imported ( ModuleName "Golden.Uncurry.Test" ) ( Name "adderOf$w" ) ) ) + ( Ref Nothing + ( Local ( Name "adderOf$p1$183" ) ) :| + [ Ref Nothing ( Local ( Name "adderOf$p2$184" ) ) ] + ) + ) + ) + ), + ( Name "alwaysFirst", AbsN Nothing + ( ParamNamed Nothing ( Name "alwaysFirst$p1$185" ) :| [] ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "alwaysFirst$p2$186" ) :| [] ) + ( AppN Nothing + ( Ref Nothing + ( Imported ( ModuleName "Golden.Uncurry.Test" ) ( Name "alwaysFirst$w" ) ) + ) + ( Ref Nothing + ( Local ( Name "alwaysFirst$p1$185" ) ) :| + [ Ref Nothing ( Local ( Name "alwaysFirst$p2$186" ) ) ] + ) + ) + ) + ), + ( Name "main", AbsN Nothing + ( ParamUnused Nothing :| [] ) + ( Let Nothing + ( Standalone + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing + ( Ref Nothing + ( Imported ( ModuleName "Golden.Uncurry.Test" ) ( Name "logShow" ) ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported ( ModuleName "Golden.Uncurry.Test" ) ( Name "add3$w" ) ) + ) + ( LiteralInt Nothing 1 :| [ LiteralInt Nothing 2, LiteralInt Nothing 3 ] ) :| [] + ) + ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ) :| + [ Standalone + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing + ( Ref Nothing + ( Imported ( ModuleName "Golden.Uncurry.Test" ) ( Name "logShow" ) ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported ( ModuleName "Golden.Uncurry.Test" ) ( Name "add3$w" ) ) + ) + ( LiteralInt Nothing 4 :| [ LiteralInt Nothing 5, LiteralInt Nothing 6 ] ) :| [] + ) + ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ), Standalone + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing + ( Ref Nothing + ( Imported ( ModuleName "Golden.Uncurry.Test" ) ( Name "logShow" ) ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported ( ModuleName "Golden.Uncurry.Test" ) ( Name "add3$w" ) ) + ) + ( LiteralInt Nothing 10 :| + [ LiteralInt Nothing 1, LiteralInt Nothing 2 ] + ) :| [] + ) + ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ), Standalone + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing + ( Ref Nothing + ( Imported ( ModuleName "Golden.Uncurry.Test" ) ( Name "logShow" ) ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported ( ModuleName "Golden.Uncurry.Test" ) ( Name "inc" ) ) + ) + ( LiteralInt Nothing 41 :| [] ) :| [] + ) + ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ), Standalone + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "logShow$w" ) ) ) + ( LiteralObject Nothing + [ + ( PropName "show", AppN Nothing + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported ( ModuleName "Data.Show" ) ( Name "foreign" ) ) + ) + ( PropName "showArrayImpl" ) + ) + ( AppN Nothing + ( Ref Nothing ( Imported ( ModuleName "Data.Show" ) ( Name "show" ) ) ) + ( Ref Nothing + ( Imported ( ModuleName "Data.Show" ) ( Name "showInt" ) ) :| [] + ) :| [] + ) + ) + ] :| + [ AppN Nothing + ( AppN Nothing + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported ( ModuleName "Data.Functor" ) ( Name "foreign" ) ) + ) + ( PropName "arrayMap" ) + ) + ( AppN Nothing + ( AppN Nothing + ( Ref Nothing + ( Imported ( ModuleName "Golden.Uncurry.Test" ) ( Name "add3" ) ) + ) + ( LiteralInt Nothing 1 :| [] ) + ) + ( LiteralInt Nothing 2 :| [] ) :| [] + ) + ) + ( LiteralArray Nothing + [ LiteralInt Nothing 1, LiteralInt Nothing 2, LiteralInt Nothing 3 ] :| [] + ) + ] + ) + ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ), Standalone + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing + ( Ref Nothing + ( Imported ( ModuleName "Golden.Uncurry.Test" ) ( Name "logShow" ) ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported ( ModuleName "Golden.Uncurry.Test" ) ( Name "evenSteps$w" ) ) + ) + ( LiteralInt Nothing 0 :| [ LiteralInt Nothing 10 ] ) :| [] + ) + ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ), Standalone + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing + ( Ref Nothing + ( Imported ( ModuleName "Golden.Uncurry.Test" ) ( Name "logShow" ) ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported ( ModuleName "Golden.Uncurry.Test" ) ( Name "oddSteps$w" ) ) + ) + ( LiteralInt Nothing 0 :| [ LiteralInt Nothing 7 ] ) :| [] + ) + ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ), Standalone + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing + ( Ref Nothing + ( Imported ( ModuleName "Golden.Uncurry.Test" ) ( Name "logShow" ) ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported ( ModuleName "Golden.Uncurry.Test" ) ( Name "sumTo" ) ) + ) + ( LiteralInt Nothing 10 :| [] ) :| [] + ) + ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ), Standalone + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing + ( Ref Nothing + ( Imported ( ModuleName "Golden.Uncurry.Test" ) ( Name "logShow" ) ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported ( ModuleName "Golden.Uncurry.Test" ) ( Name "sumTo" ) ) + ) + ( LiteralInt Nothing 100 :| [] ) :| [] + ) + ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ), Standalone + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing + ( Ref Nothing + ( Imported ( ModuleName "Golden.Uncurry.Test" ) ( Name "logShow" ) ) + ) + ( AppN Nothing + ( AppN Nothing + ( Ref Nothing + ( Imported ( ModuleName "Golden.Uncurry.Test" ) ( Name "adderOf$w" ) ) + ) + ( LiteralInt Nothing 1 :| [ LiteralInt Nothing 2 ] ) + ) + ( LiteralInt Nothing 3 :| [] ) :| [] + ) + ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ), Standalone + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing + ( Ref Nothing + ( Imported ( ModuleName "Golden.Uncurry.Test" ) ( Name "logShow" ) ) + ) + ( AppN Nothing + ( AppN Nothing + ( Ref Nothing + ( Imported ( ModuleName "Golden.Uncurry.Test" ) ( Name "adderOf$w" ) ) + ) + ( LiteralInt Nothing 2 :| [ LiteralInt Nothing 3 ] ) + ) + ( LiteralInt Nothing 4 :| [] ) :| [] + ) + ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ), Standalone + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing + ( Ref Nothing + ( Imported ( ModuleName "Golden.Uncurry.Test" ) ( Name "logShow" ) ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported ( ModuleName "Golden.Uncurry.Test" ) ( Name "alwaysFirst$w" ) ) + ) + ( LiteralInt Nothing 7 :| [ LiteralInt Nothing 8 ] ) :| [] + ) + ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ) + ] + ) + ( AppN Nothing + ( AppN Nothing + ( Ref Nothing ( Imported ( ModuleName "Golden.Uncurry.Test" ) ( Name "logShow" ) ) ) + ( AppN Nothing + ( Ref Nothing + ( Imported ( ModuleName "Golden.Uncurry.Test" ) ( Name "alwaysFirst$w" ) ) + ) + ( LiteralInt Nothing 9 :| [ LiteralInt Nothing 10 ] ) :| [] + ) + ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ) + ) + ) + ] + } \ No newline at end of file diff --git a/test/ps/output/Golden.Uncurry.Test/golden.lua b/test/ps/output/Golden.Uncurry.Test/golden.lua new file mode 100644 index 00000000..53a1a405 --- /dev/null +++ b/test/ps/output/Golden.Uncurry.Test/golden.lua @@ -0,0 +1,179 @@ +local function PSLUA_runtime_lazy(name) + return function(init) + local state = 0 + local val = nil + return function() + if state == 2 then + return val + elseif state == 1 then + return error(name .. " was needed before it finished initializing") + else + state = 1 + val = init() + state = 2 + return val + end + end + end +end +local M = {} +M.Data_Eq_foreign = (function() + local refEq = function(r1) return function(r2) return r1 == r2 end end + return { eqIntImpl = refEq } +end)() +M.Data_Show_foreign = { + showIntImpl = function(n) return tostring(n) end, + showArrayImpl = function(f) + return function(xs) + local l = #(xs) + local ss = {} + for i = 1, l do ss[i] = f(xs[i]) end + return "[" .. table.concat(ss, ",") .. "]" + end + end +} +M.Data_Semiring_foreign = { + intAdd = function(x) return function(y) return x + y end end +} +M.Data_Ring_foreign = { + intSub = function(x) return function(y) return x - y end end +} +M.Data_Functor_foreign = { + arrayMap = function(f) + return function(arr) + local l = #(arr) + local result = {} + for i = 1, l do result[i] = f(arr[i]) end + return result + end + end +} +M.Effect_foreign = { + pureE = function(a) return function() return a end end, + bindE = function(a) + return function(f) return function() return f(a())() end end + end +} +M.Effect_Console_foreign = { + log = function(s) return function() print(s) end end +} +M.Data_Show_showInt = { show = M.Data_Show_foreign.showIntImpl } +M.Data_Show_show = function(dict) return dict.show end +M.Control_Applicative_pure = function(dict) return dict.pure end +M.Control_Bind_bind = function(dict) return dict.bind end +M.Effect_monadEffect = { + Applicative0 = function() return M.Effect_applicativeEffect end, + Bind1 = function() return M.Effect_bindEffect end +} +M.Effect_bindEffect = { + bind = M.Effect_foreign.bindE, + Apply0 = function() return M.Effect_Lazy_applyEffect(0) end +} +M.Effect_applicativeEffect = { + pure = M.Effect_foreign.pureE, + Apply0 = function() return M.Effect_Lazy_applyEffect(0) end +} +M.Effect_Lazy_functorEffect = PSLUA_runtime_lazy("functorEffect")(function() + return { + map = function(f_S_26) + return function(a_S_27) + return (M.Effect_applicativeEffect.Apply0()).apply(M.Control_Applicative_pure(M.Effect_applicativeEffect)(f_S_26))(a_S_27) + end + end + } +end) +M.Effect_Lazy_applyEffect = PSLUA_runtime_lazy("applyEffect")(function() + return { + apply = (function() + local bind_S_5 = M.Control_Bind_bind(M.Effect_monadEffect.Bind1()) + return function(f_S_7) + return function(a_S_8) + return bind_S_5(f_S_7)(function(fPrime_S_9) + return bind_S_5(a_S_8)(function(aPrime_S_10) + return M.Control_Applicative_pure(M.Effect_monadEffect.Applicative0())(fPrime_S_9(aPrime_S_10)) + end) + end) + end + end + end)(), + Functor0 = function() return M.Effect_Lazy_functorEffect(0) end + } +end) +M.Effect_Console_logShow_S_w = function(dictShow, a) + return M.Effect_Console_foreign.log(M.Data_Show_show(dictShow)(a)) +end +M.Golden_Uncurry_Test_discard = M.Control_Bind_bind(M.Effect_bindEffect) +M.Golden_Uncurry_Test_logShow = function(logShow_S_p2_S_188) + return M.Effect_Console_logShow_S_w(M.Data_Show_showInt, logShow_S_p2_S_188) +end +M.Golden_Uncurry_Test_sumTo = function(m) + local go_S_w + go_S_w = function(acc, n) + if M.Data_Eq_foreign.eqIntImpl(n)(0) then + return acc + else + return go_S_w(M.Data_Semiring_foreign.intAdd(acc)(n), M.Data_Ring_foreign.intSub(n)(1)) + end + end + return go_S_w(0, m) +end +M.Golden_Uncurry_Test_oddSteps_S_w = function(acc, n) + if M.Data_Eq_foreign.eqIntImpl(n)(0) then + return acc + else + return M.Golden_Uncurry_Test_evenSteps_S_w(M.Data_Semiring_foreign.intAdd(acc)(1), M.Data_Ring_foreign.intSub(n)(1)) + end +end +M.Golden_Uncurry_Test_oddSteps = function(oddSteps_S_p1) + return function(oddSteps_S_p2) + return M.Golden_Uncurry_Test_oddSteps_S_w(oddSteps_S_p1, oddSteps_S_p2) + end +end +M.Golden_Uncurry_Test_evenSteps_S_w = function(acc, n) + if M.Data_Eq_foreign.eqIntImpl(n)(0) then + return acc + else + return M.Golden_Uncurry_Test_oddSteps_S_w(M.Data_Semiring_foreign.intAdd(acc)(1), M.Data_Ring_foreign.intSub(n)(1)) + end +end +M.Golden_Uncurry_Test_evenSteps = function(evenSteps_S_p1) + return function(evenSteps_S_p2) + return M.Golden_Uncurry_Test_evenSteps_S_w(evenSteps_S_p1, evenSteps_S_p2) + end +end +M.Golden_Uncurry_Test_alwaysFirst_S_w = function(x) return x end +M.Golden_Uncurry_Test_adderOf_S_w = function(x, y) + return M.Data_Semiring_foreign.intAdd(M.Data_Semiring_foreign.intAdd(x)(y)) +end +M.Golden_Uncurry_Test_add3_S_w = function(x, y, z) + return M.Data_Semiring_foreign.intAdd(M.Data_Semiring_foreign.intAdd(x)(y))(z) +end +M.Golden_Uncurry_Test_add3 = function(add3_S_p1) + return function(add3_S_p2) + return function(add3_S_p3) + return M.Golden_Uncurry_Test_add3_S_w(add3_S_p1, add3_S_p2, add3_S_p3) + end + end +end +M.Golden_Uncurry_Test_inc = M.Golden_Uncurry_Test_add3(1)(0) +return (function() + local _ = M.Golden_Uncurry_Test_logShow(M.Golden_Uncurry_Test_add3_S_w(1, 2, 3))() + local _ = M.Golden_Uncurry_Test_logShow(M.Golden_Uncurry_Test_add3_S_w(4, 5, 6))() + local _ = M.Golden_Uncurry_Test_logShow(M.Golden_Uncurry_Test_add3_S_w(10, 1, 2))() + local _ = M.Golden_Uncurry_Test_logShow(M.Golden_Uncurry_Test_inc(41))() + local _ = M.Effect_Console_logShow_S_w({ + show = M.Data_Show_foreign.showArrayImpl(M.Data_Show_show(M.Data_Show_showInt)) + }, M.Data_Functor_foreign.arrayMap(M.Golden_Uncurry_Test_add3(1)(2))({ + [1] = 1, + [2] = 2, + [3] = 3 + }))() + local _ = M.Golden_Uncurry_Test_logShow(M.Golden_Uncurry_Test_evenSteps_S_w(0, 10))() + local _ = M.Golden_Uncurry_Test_logShow(M.Golden_Uncurry_Test_oddSteps_S_w(0, 7))() + local _ = M.Golden_Uncurry_Test_logShow(M.Golden_Uncurry_Test_sumTo(10))() + local _ = M.Golden_Uncurry_Test_logShow(M.Golden_Uncurry_Test_sumTo(100))() + local _ = M.Golden_Uncurry_Test_logShow(M.Golden_Uncurry_Test_adderOf_S_w(1, 2)(3))() + local _ = M.Golden_Uncurry_Test_logShow(M.Golden_Uncurry_Test_adderOf_S_w(2, 3)(4))() + local _ = M.Golden_Uncurry_Test_logShow(M.Golden_Uncurry_Test_alwaysFirst_S_w(7, 8))() + return M.Golden_Uncurry_Test_logShow(M.Golden_Uncurry_Test_alwaysFirst_S_w(9, 10))() +end)() diff --git a/test/ps/output/Golden.Values.Test/golden.ir b/test/ps/output/Golden.Values.Test/golden.ir index 18b73670..9bf31ebd 100644 --- a/test/ps/output/Golden.Values.Test/golden.ir +++ b/test/ps/output/Golden.Values.Test/golden.ir @@ -14,6 +14,6 @@ UberModule ( PropName "c", LiteralChar Nothing 'c' ) ] ), - ( Name "f", Abs Nothing ( ParamUnused Nothing ) ( LiteralBool Nothing True ) ) + ( Name "f", AbsN Nothing ( ParamUnused Nothing :| [] ) ( LiteralBool Nothing True ) ) ] } \ No newline at end of file diff --git a/test/ps/src/Bench/CurriedStep.purs b/test/ps/src/Bench/CurriedStep.purs new file mode 100644 index 00000000..8ee5fd97 --- /dev/null +++ b/test/ps/src/Bench/CurriedStep.purs @@ -0,0 +1,13 @@ +-- | A hot loop through a two-argument function that is always fully +-- | applied — the shape the uncurrying worker/wrapper split turns into +-- | a direct n-ary call, which is what lets LuaJIT record a trace +-- | through it instead of aborting on per-iteration closure creation. +module Bench.CurriedStep where + +import Prelude + +run :: Int -> Int +run n = go 0 n + where + go :: Int -> Int -> Int + go acc i = if i == 0 then acc else go (acc + i) (i - 1) diff --git a/test/ps/src/Golden/Uncurry/Test.purs b/test/ps/src/Golden/Uncurry/Test.purs new file mode 100644 index 00000000..e6810ed6 --- /dev/null +++ b/test/ps/src/Golden/Uncurry/Test.purs @@ -0,0 +1,61 @@ +-- | Exercises the worker/wrapper uncurrying pass end to end: functions +-- | used saturated, partially applied, passed higher-order, mutually +-- | recursive, locally recursive, over-applied, and with an unused +-- | parameter. The eval oracle pins that the transformation preserves +-- | runtime behavior for every shape. +module Golden.Uncurry.Test where + +import Prelude + +import Effect (Effect) +import Effect.Console (logShow) + +-- Used saturated, partially applied, and passed higher-order: the +-- saturated sites go through the worker while the curried wrapper +-- keeps serving the other two shapes. +add3 :: Int -> Int -> Int -> Int +add3 x y z = x + y + z + +-- A top-level partial application of `add3` (a value binding). +inc :: Int -> Int +inc = add3 1 0 + +-- Mutually recursive, both always saturated: the recursive calls +-- should become direct worker-to-worker calls. +evenSteps :: Int -> Int -> Int +evenSteps acc n = if n == 0 then acc else oddSteps (acc + 1) (n - 1) + +oddSteps :: Int -> Int -> Int +oddSteps acc n = if n == 0 then acc else evenSteps (acc + 1) (n - 1) + +-- A local recursive two-argument loop. +sumTo :: Int -> Int +sumTo m = go 0 m + where + go :: Int -> Int -> Int + go acc n = if n == 0 then acc else go (acc + n) (n - 1) + +-- Returns a function: `adderOf a b c` over-applies the manifest arity. +adderOf :: Int -> Int -> (Int -> Int) +adderOf x y = add (x + y) + +-- An unused second parameter. +alwaysFirst :: Int -> Int -> Int +alwaysFirst x _ = x + +main :: Effect Unit +main = do + logShow (add3 1 2 3) + logShow (add3 4 5 6) + let f = add3 10 + logShow (f 1 2) + logShow (inc 41) + logShow (map (add3 1 2) [ 1, 2, 3 ]) + logShow (evenSteps 0 10) + logShow (oddSteps 0 7) + logShow (sumTo 10) + logShow (sumTo 100) + logShow (adderOf 1 2 3) + logShow (adderOf 2 3 4) + logShow (alwaysFirst 7 8) + logShow (alwaysFirst 9 10)