From ab826ee84a796aecc4b62a68d258b9ca0be7e880 Mon Sep 17 00:00:00 2001 From: Yura Lazarev Date: Tue, 7 Jul 2026 18:00:31 +0200 Subject: [PATCH 1/6] feat: represent abstraction as an n-ary AbsN node MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit The definition-side counterpart of AppN (#199): Abs becomes the singleton pattern synonym of AbsN, so every unary rule compiles unchanged. Total traversals (getAnn, setAnn, subexpressions, countFreeRefs, alphaEq, freshenBinders), the scope walkers (Uniquify, Linker.qualifyTopRefs, DCE, Linter, Query.collectBoundNames) and the Lua codegen handle the n-ary node; codegen drops the trailing run of unused parameters and elides the trailing run of Prim.undefined arguments (a non-trailing one lowers to nil). The WellApplied invariant generalizes to the two well-formedness conditions of Note [n-ary abstraction] — exact-arity application of literal lambdas, ParamUnused only as a trailing run — and now rides along with GUC at every pass boundary. DCE blanks only a dead suffix of an AbsN parameter list, preserving the trailing-run condition. Nothing produces a multi-parameter AbsN yet, so generated Lua is unchanged: golden.ir churns mechanically with the AbsN Show shape, golden.lua and eval oracles stay byte-identical. --- lib/Language/PureScript/Backend/IR/DCE.hs | 53 +- .../PureScript/Backend/IR/FlattenDeepBinds.hs | 1 + lib/Language/PureScript/Backend/IR/Linker.hs | 11 +- lib/Language/PureScript/Backend/IR/Linter.hs | 75 +- lib/Language/PureScript/Backend/IR/MagicDo.hs | 1 + .../PureScript/Backend/IR/Optimizer.hs | 7 +- lib/Language/PureScript/Backend/IR/Pass.hs | 10 +- lib/Language/PureScript/Backend/IR/Query.hs | 4 +- lib/Language/PureScript/Backend/IR/Types.hs | 136 +- .../PureScript/Backend/IR/Uniquify.hs | 18 +- lib/Language/PureScript/Backend/Lua.hs | 40 +- .../Backend/IR/FlattenDeepBinds/Spec.hs | 4 +- test/Language/PureScript/Backend/IR/Gen.hs | 30 + .../PureScript/Backend/IR/Linter/Spec.hs | 42 +- .../PureScript/Backend/IR/Types/Spec.hs | 38 + test/Language/PureScript/Backend/Lua/Spec.hs | 57 +- .../ps/output/Golden.Annotations.M1/golden.ir | 4 +- .../ps/output/Golden.Annotations.M2/golden.ir | 4 +- .../output/Golden.ArrayOfUnits.Test/golden.ir | 117 +- .../Golden.ArrayPatternMatch.Test/golden.ir | 75 +- test/ps/output/Golden.Beta.Test/golden.ir | 4 +- .../Golden.BugListGenericEq.Test/golden.ir | 197 +-- .../Golden.CaseStatements.Test/golden.ir | 22 +- .../output/Golden.CharLiterals.Test/golden.ir | 64 +- test/ps/output/Golden.Currying.Test/golden.ir | 19 +- .../Golden.DataDeclarations.Test2/golden.ir | 5 +- .../Golden.DerivedFunctor.Test/golden.ir | 104 +- .../ps/output/Golden.Fibonacci.Test/golden.ir | 4 +- test/ps/output/Golden.FloatIn.Test/golden.ir | 83 +- .../Golden.ForeignSharing.Test/golden.ir | 3 +- .../Golden.GenericEqTwoTypes.Test/golden.ir | 252 +-- .../output/Golden.HelloPrelude.Test/golden.ir | 49 +- test/ps/output/Golden.Inline.Test/golden.ir | 4 +- test/ps/output/Golden.Issue37.Test/golden.ir | 80 +- .../Golden.LongApplyChain.Test/golden.ir | 46 +- .../Golden.LongBindFlipped.Test/golden.ir | 20 +- .../Golden.LongCallbackChain.Test/golden.ir | 1258 +++++++-------- .../output/Golden.LongDoBlock.Test/golden.ir | 59 +- .../Golden.LongEitherBind.Test/golden.ir | 1311 ++++++++-------- .../Golden.LongExceptBind.Test/golden.ir | 1006 ++++++------ .../Golden.LongMaybeBind.Test/golden.ir | 1303 ++++++++-------- .../Golden.LongMaybeBindModule.Test/golden.ir | 1297 ++++++++-------- .../Golden.LongReaderBind.Test/golden.ir | 771 ++++++---- .../Golden.LongStackBind.Test/golden.ir | 1365 ++++++++++------- .../Golden.LongStateBind.Test/golden.ir | 1274 ++++++++------- .../Golden.LongWriterBind.Test/golden.ir | 779 ++++++---- .../output/Golden.MaybeChain.Test/golden.ir | 92 +- .../Golden.MaybeChainModule.Test/golden.ir | 32 +- .../Golden.NameShadowing.Test/golden.ir | 24 +- test/ps/output/Golden.Nested.Test/golden.ir | 4 +- test/ps/output/Golden.Newtype.Test/golden.ir | 8 +- .../Golden.PatternMatching.Test1/golden.ir | 12 +- .../Golden.PatternMatching.Test2/golden.ir | 8 +- .../Golden.ProfunctorDictLens.Test/golden.ir | 115 +- .../Golden.RecGroupOrder.Test/golden.ir | 10 +- .../Golden.RecordsAccess.Test/golden.ir | 12 +- .../Golden.RecordsUpdate.Test/golden.ir | 12 +- .../Golden.RecursiveBindings.Test/golden.ir | 29 +- .../Golden.StringCodePoints.Test/golden.ir | 391 ++--- .../Golden.TailRecM2Shadow.Test/golden.ir | 103 +- .../ps/output/Golden.Unbinding.Test/golden.ir | 5 +- test/ps/output/Golden.Values.Test/golden.ir | 2 +- 62 files changed, 7180 insertions(+), 5785 deletions(-) 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..a9ec36fa 100644 --- a/lib/Language/PureScript/Backend/IR/FlattenDeepBinds.hs +++ b/lib/Language/PureScript/Backend/IR/FlattenDeepBinds.hs @@ -156,6 +156,7 @@ import Language.PureScript.Backend.IR.Types , refLocal , rewriteExpTopDownM , substituteCopyM + , pattern Abs , pattern App ) 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..949d16b0 100644 --- a/lib/Language/PureScript/Backend/IR/Optimizer.hs +++ b/lib/Language/PureScript/Backend/IR/Optimizer.hs @@ -47,6 +47,7 @@ import Language.PureScript.Backend.IR.Types , substituteCopyM , substituteMoveM , thenRewrite + , pattern Abs , pattern App ) import Language.PureScript.Backend.IR.Uniquify (uniquifyNames) @@ -162,8 +163,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 {..} = 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..b429884a 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) @@ -120,9 +121,10 @@ 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. +'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 +135,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 +270,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 +300,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 +369,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 +494,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 +606,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 +679,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 +728,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 +850,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/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/test/Language/PureScript/Backend/IR/FlattenDeepBinds/Spec.hs b/test/Language/PureScript/Backend/IR/FlattenDeepBinds/Spec.hs index 1a570a09..5e627e8b 100644 --- a/test/Language/PureScript/Backend/IR/FlattenDeepBinds/Spec.hs +++ b/test/Language/PureScript/Backend/IR/FlattenDeepBinds/Spec.hs @@ -388,11 +388,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@). 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/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/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/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..5a15e554 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,10 +343,10 @@ 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" }, AbsN Nothing + ( ParamNamed Nothing ( Name "dictShow" ) :| [] ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "a" ) :| [] ) ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) @@ -370,7 +377,8 @@ UberModule ] ) :| [] ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( Let Nothing ( Standalone ( Nothing, Name "_", AppN Nothing @@ -385,8 +393,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 +413,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 +442,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" ) ) ) ) :| [] ) @@ -456,7 +465,8 @@ UberModule ) ( LiteralObject Nothing [ - ( PropName "show", Abs Nothing ( ParamUnused Nothing ) + ( PropName "show", AbsN Nothing + ( ParamUnused Nothing :| [] ) ( LiteralString Nothing "unit" ) ) ] :| [] @@ -509,9 +519,10 @@ UberModule ) ( PropName "foldl" ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "c$372$881" ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "c$372$881" ) :| [] ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( ObjectProp Nothing 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..4df83c0a 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,30 +93,32 @@ 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" ) ) + { qnameModuleName = ModuleName "Data.Eq", qnameName = Name "eqRowCons" }, AbsN Nothing + ( ParamNamed Nothing ( Name "dictEqRecord" ) :| [] ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "dictIsSymbol" ) :| [] ) + ( AbsN 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" ) ) + ( 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 @@ -200,31 +202,31 @@ 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.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 +249,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 +268,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 +285,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 +301,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 +355,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 +376,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 +432,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 +455,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 +492,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 +520,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 +566,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 +589,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 +622,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 +658,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 +711,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 @@ -744,9 +756,13 @@ UberModule ) ( LiteralObject Nothing [ - ( PropName "eqRecord", Abs Nothing ( ParamUnused Nothing ) - ( Abs Nothing ( ParamUnused Nothing ) - ( Abs Nothing ( ParamUnused Nothing ) ( LiteralBool Nothing True ) ) + ( PropName "eqRecord", AbsN Nothing + ( ParamUnused Nothing :| [] ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( LiteralBool Nothing True ) + ) ) ) ] :| [] @@ -761,7 +777,8 @@ UberModule ) ( LiteralObject Nothing [ - ( PropName "reflectSymbol", Abs Nothing ( ParamUnused Nothing ) + ( PropName "reflectSymbol", AbsN Nothing + ( ParamUnused Nothing :| [] ) ( LiteralString Nothing "tail" ) ) ] :| [] @@ -791,7 +808,8 @@ UberModule ) ( LiteralObject Nothing [ - ( PropName "reflectSymbol", Abs Nothing ( ParamUnused Nothing ) + ( PropName "reflectSymbol", AbsN Nothing + ( ParamUnused Nothing :| [] ) ( LiteralString Nothing "head" ) ) ] :| [] @@ -876,10 +894,10 @@ UberModule ), Standalone ( QName { qnameModuleName = ModuleName "Golden.BugListGenericEq.Test", qnameName = Name "cons" - }, Abs Nothing - ( ParamNamed Nothing ( Name "head" ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "tail" ) ) + }, AbsN Nothing + ( ParamNamed Nothing ( Name "head" ) :| [] ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "tail" ) :| [] ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.BugListGenericEq.Test" ) ( Name "Cons" ) ) @@ -904,7 +922,8 @@ UberModule ( Name "cons", Ref Nothing ( Imported ( ModuleName "Golden.BugListGenericEq.Test" ) ( Name "cons" ) ) ), - ( 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.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..b440ea44 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" ) @@ -516,10 +523,10 @@ UberModule ), Standalone ( QName { qnameModuleName = ModuleName "Golden.DerivedFunctor.Test", qnameName = Name "fromRight" - }, Abs Nothing - ( ParamNamed Nothing ( Name "fallback" ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "v" ) ) + }, AbsN Nothing + ( ParamNamed Nothing ( Name "fallback" ) :| [] ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "v" ) :| [] ) ( IfThenElse Nothing ( Eq Nothing ( LiteralString Nothing "Golden.DerivedFunctor.Test∷Either.Left" ) @@ -557,7 +564,8 @@ UberModule ( 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 @@ -577,8 +585,8 @@ UberModule ( Ref Nothing ( Imported ( ModuleName "Golden.DerivedFunctor.Test" ) ( Name "map1" ) ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "v$0" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "v$0" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -625,8 +633,8 @@ UberModule ( Ref Nothing ( Imported ( ModuleName "Golden.DerivedFunctor.Test" ) ( Name "map1" ) ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "v0$1" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "v0$1" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -674,8 +682,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.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..2a4a1196 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" ) ) ) @@ -292,10 +299,10 @@ UberModule ), Standalone ( QName { qnameModuleName = ModuleName "Golden.FloatIn.Test", qnameName = Name "pickShared" - }, Abs Nothing - ( ParamNamed Nothing ( Name "useIt" ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "n" ) ) + }, AbsN Nothing + ( ParamNamed Nothing ( Name "useIt" ) :| [] ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "n" ) :| [] ) ( IfThenElse Nothing ( Ref Nothing ( Local ( Name "useIt" ) ) ) ( Let Nothing @@ -312,7 +319,8 @@ UberModule ) ( Let Nothing ( Standalone - ( Nothing, Name "f", Abs Nothing ( ParamUnused Nothing ) + ( Nothing, Name "f", AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -353,8 +361,8 @@ UberModule ), 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" ) ) ) @@ -376,10 +384,10 @@ UberModule ), Standalone ( QName { qnameModuleName = ModuleName "Golden.FloatIn.Test", qnameName = Name "pick" - }, Abs Nothing - ( ParamNamed Nothing ( Name "useIt" ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "n" ) ) + }, AbsN Nothing + ( ParamNamed Nothing ( Name "useIt" ) :| [] ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "n" ) :| [] ) ( IfThenElse Nothing ( Ref Nothing ( Local ( Name "useIt" ) ) ) ( Let Nothing @@ -418,7 +426,8 @@ UberModule ( Name "pickShared", Ref Nothing ( Imported ( ModuleName "Golden.FloatIn.Test" ) ( Name "pickShared" ) ) ), - ( 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.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..bc74044c 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,25 +107,27 @@ 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" ) ) + { qnameModuleName = ModuleName "Data.Eq", qnameName = Name "eqRowCons" }, AbsN Nothing + ( ParamNamed Nothing ( Name "dictEqRecord" ) :| [] ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "dictIsSymbol" ) :| [] ) + ( AbsN 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" ) ) + ( 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 @@ -209,13 +211,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 @@ -243,14 +245,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 +270,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 +303,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 +312,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 +346,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 +365,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 +382,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 +398,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 +452,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 +473,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 +529,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 +546,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 +579,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 +638,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 @@ -647,9 +659,11 @@ UberModule ( 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 ) ) + ( PropName "eqRecord", AbsN Nothing + ( ParamUnused Nothing :| [] ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) + ( AbsN Nothing ( ParamUnused Nothing :| [] ) ( LiteralBool Nothing True ) ) ) ) ] :| [] @@ -665,8 +679,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" ) ) ) @@ -715,12 +729,12 @@ UberModule ), 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" ) ) + }, AbsN Nothing + ( ParamNamed Nothing ( Name "left" ) :| [] ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "value" ) :| [] ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "right" ) :| [] ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.GenericEqTwoTypes.Test" ) ( Name "Node" ) ) @@ -740,8 +754,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 +782,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 +817,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 +845,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 +879,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 @@ -942,7 +956,8 @@ UberModule ) ( LiteralObject Nothing [ - ( PropName "reflectSymbol", Abs Nothing ( ParamUnused Nothing ) + ( PropName "reflectSymbol", AbsN Nothing + ( ParamUnused Nothing :| [] ) ( LiteralString Nothing "value" ) ) ] :| [] @@ -962,7 +977,8 @@ UberModule ) ( LiteralObject Nothing [ - ( PropName "reflectSymbol", Abs Nothing ( ParamUnused Nothing ) + ( PropName "reflectSymbol", AbsN Nothing + ( ParamUnused Nothing :| [] ) ( LiteralString Nothing "right" ) ) ] :| [] @@ -988,7 +1004,8 @@ UberModule ) ( LiteralObject Nothing [ - ( PropName "reflectSymbol", Abs Nothing ( ParamUnused Nothing ) + ( PropName "reflectSymbol", AbsN Nothing + ( ParamUnused Nothing :| [] ) ( LiteralString Nothing "left" ) ) ] :| [] @@ -1033,14 +1050,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 @@ -1100,7 +1117,8 @@ UberModule ) ( LiteralObject Nothing [ - ( PropName "reflectSymbol", Abs Nothing ( ParamUnused Nothing ) + ( PropName "reflectSymbol", AbsN Nothing + ( ParamUnused Nothing :| [] ) ( LiteralString Nothing "tail" ) ) ] :| [] @@ -1126,7 +1144,8 @@ UberModule ) ( LiteralObject Nothing [ - ( PropName "reflectSymbol", Abs Nothing ( ParamUnused Nothing ) + ( PropName "reflectSymbol", AbsN Nothing + ( ParamUnused Nothing :| [] ) ( LiteralString Nothing "head" ) ) ] :| [] @@ -1162,10 +1181,10 @@ UberModule ), Standalone ( QName { qnameModuleName = ModuleName "Golden.GenericEqTwoTypes.Test", qnameName = Name "cons" - }, Abs Nothing - ( ParamNamed Nothing ( Name "head" ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "tail" ) ) + }, AbsN Nothing + ( ParamNamed Nothing ( Name "head" ) :| [] ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "tail" ) :| [] ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.GenericEqTwoTypes.Test" ) ( Name "Cons" ) ) @@ -1199,7 +1218,8 @@ UberModule ( Name "node", Ref Nothing ( Imported ( ModuleName "Golden.GenericEqTwoTypes.Test" ) ( Name "node" ) ) ), - ( 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.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..5608fb16 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,17 +112,18 @@ 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" ) ) + }, AbsN Nothing + ( ParamNamed Nothing ( Name "a$131" ) :| [] ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "b$132" ) :| [] ) ( AppN Nothing ( AppN Nothing ( ObjectProp Nothing @@ -145,9 +146,10 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x$281" ) ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x$281" ) :| [] ) ( Ref Nothing ( Local ( Name "x$281" ) ) ) ) :| [] ) @@ -5442,8 +5444,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.LongBindFlipped.Test/golden.ir b/test/ps/output/Golden.LongBindFlipped.Test/golden.ir index eaf381a6..7d31ffc9 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 @@ -40,10 +40,10 @@ UberModule ), 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" ) ) + }, AbsN Nothing + ( ParamNamed Nothing ( Name "b$135$275" ) :| [] ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "a$136$276" ) :| [] ) ( IfThenElse Nothing ( Eq Nothing ( LiteralString Nothing "Data.Maybe∷Maybe.Just" ) @@ -73,8 +73,8 @@ UberModule ), 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 @@ -4819,8 +4819,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.LongCallbackChain.Test/golden.ir b/test/ps/output/Golden.LongCallbackChain.Test/golden.ir index 29a91d68..87b54ee5 100644 --- a/test/ps/output/Golden.LongCallbackChain.Test/golden.ir +++ b/test/ps/output/Golden.LongCallbackChain.Test/golden.ir @@ -28,10 +28,10 @@ UberModule ( ( QName { qnameModuleName = ModuleName "Golden.LongCallbackChain.Test", qnameName = Name "withInc" - }, Abs Nothing - ( ParamNamed Nothing ( Name "n" ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "k" ) ) + }, AbsN Nothing + ( ParamNamed Nothing ( Name "n" ) :| [] ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "k" ) :| [] ) ( IfThenElse Nothing ( IfThenElse Nothing ( Eq Nothing @@ -116,8 +116,8 @@ UberModule { 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 @@ -125,8 +125,8 @@ UberModule ) ( Ref Nothing ( Local ( Name "x280$183" ) ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x281" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x281" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -134,8 +134,8 @@ UberModule ) ( Ref Nothing ( Local ( Name "x281" ) ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x282" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x282" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -146,8 +146,8 @@ UberModule ) ( Ref Nothing ( Local ( Name "x282" ) ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x283" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x283" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -158,8 +158,8 @@ UberModule ) ( Ref Nothing ( Local ( Name "x283" ) ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x284" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x284" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -170,8 +170,8 @@ UberModule ) ( Ref Nothing ( Local ( Name "x284" ) ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x285" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x285" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -182,8 +182,8 @@ UberModule ) ( Ref Nothing ( Local ( Name "x285" ) ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x286" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x286" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -194,8 +194,8 @@ UberModule ) ( Ref Nothing ( Local ( Name "x286" ) ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x287" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x287" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -206,8 +206,8 @@ UberModule ) ( Ref Nothing ( Local ( Name "x287" ) ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x288" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x288" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -218,8 +218,8 @@ UberModule ) ( Ref Nothing ( Local ( Name "x288" ) ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x289" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x289" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -230,8 +230,8 @@ UberModule ) ( Ref Nothing ( Local ( Name "x289" ) ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x290" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x290" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -244,8 +244,10 @@ UberModule ( Local ( Name "x290" ) ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x291" ) ) + ( AbsN Nothing + ( ParamNamed Nothing + ( Name "x291" ) :| [] + ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -258,8 +260,10 @@ UberModule ( Local ( Name "x291" ) ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x292" ) ) + ( AbsN Nothing + ( ParamNamed Nothing + ( Name "x292" ) :| [] + ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -272,9 +276,9 @@ UberModule ( Local ( Name "x292" ) ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x293" ) + ( Name "x293" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -290,9 +294,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x294" ) + ( Name "x294" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -308,9 +312,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x295" ) + ( Name "x295" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -326,9 +330,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x296" ) + ( Name "x296" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -344,9 +348,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x297" ) + ( Name "x297" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -362,9 +366,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x298" ) + ( Name "x298" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -380,9 +384,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x299" ) + ( Name "x299" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -398,9 +402,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x300" ) + ( Name "x300" ) :| [] ) ( Ref Nothing ( Local @@ -449,8 +453,8 @@ UberModule ) ) :| [ 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 @@ -458,8 +462,8 @@ UberModule ) ( Ref Nothing ( Local ( Name "x240$185" ) ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x241" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x241" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -470,8 +474,8 @@ UberModule ) ( Ref Nothing ( Local ( Name "x241" ) ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x242" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x242" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -482,8 +486,8 @@ UberModule ) ( Ref Nothing ( Local ( Name "x242" ) ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x243" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x243" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -494,8 +498,8 @@ UberModule ) ( Ref Nothing ( Local ( Name "x243" ) ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x244" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x244" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -506,8 +510,8 @@ UberModule ) ( Ref Nothing ( Local ( Name "x244" ) ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x245" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x245" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -518,8 +522,8 @@ UberModule ) ( Ref Nothing ( Local ( Name "x245" ) ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x246" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x246" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -530,8 +534,8 @@ UberModule ) ( Ref Nothing ( Local ( Name "x246" ) ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x247" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x247" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -542,8 +546,8 @@ UberModule ) ( Ref Nothing ( Local ( Name "x247" ) ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x248" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x248" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -554,8 +558,8 @@ UberModule ) ( Ref Nothing ( Local ( Name "x248" ) ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x249" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x249" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -568,8 +572,8 @@ UberModule ( Local ( Name "x249" ) ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x250" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x250" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -582,8 +586,10 @@ UberModule ( Local ( Name "x250" ) ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x251" ) ) + ( AbsN Nothing + ( ParamNamed Nothing + ( Name "x251" ) :| [] + ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -596,9 +602,9 @@ UberModule ( Local ( Name "x251" ) ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x252" ) + ( Name "x252" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -612,9 +618,9 @@ UberModule ( Local ( Name "x252" ) ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x253" ) + ( Name "x253" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -630,9 +636,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x254" ) + ( Name "x254" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -648,9 +654,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x255" ) + ( Name "x255" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -666,9 +672,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x256" ) + ( Name "x256" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -684,9 +690,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x257" ) + ( Name "x257" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -702,9 +708,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x258" ) + ( Name "x258" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -720,9 +726,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x259" ) + ( Name "x259" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -738,9 +744,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x260" ) + ( Name "x260" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -756,9 +762,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x261" ) + ( Name "x261" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -774,9 +780,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x262" ) + ( Name "x262" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -792,9 +798,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x263" ) + ( Name "x263" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -810,9 +816,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x264" ) + ( Name "x264" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -828,9 +834,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x265" ) + ( Name "x265" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -846,9 +852,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x266" ) + ( Name "x266" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -864,9 +870,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x267" ) + ( Name "x267" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -882,9 +888,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x268" ) + ( Name "x268" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -900,9 +906,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x269" ) + ( Name "x269" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -918,9 +924,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x270" ) + ( Name "x270" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -936,9 +942,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x271" ) + ( Name "x271" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -954,9 +960,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x272" ) + ( Name "x272" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -972,9 +978,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x273" ) + ( Name "x273" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -990,9 +996,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x274" ) + ( Name "x274" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -1008,9 +1014,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x275" ) + ( Name "x275" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -1026,9 +1032,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x276" ) + ( Name "x276" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -1044,9 +1050,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x277" ) + ( Name "x277" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -1062,9 +1068,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x278" ) + ( Name "x278" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -1080,9 +1086,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x279" ) + ( Name "x279" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -1098,9 +1104,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x280" ) + ( Name "x280" ) :| [] ) ( AppN Nothing ( Ref Nothing @@ -1195,8 +1201,8 @@ UberModule ) ) ), 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 @@ -1204,8 +1210,8 @@ UberModule ) ( Ref Nothing ( Local ( Name "x200$187" ) ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x201" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x201" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -1216,8 +1222,8 @@ UberModule ) ( Ref Nothing ( Local ( Name "x201" ) ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x202" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x202" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -1228,8 +1234,8 @@ UberModule ) ( Ref Nothing ( Local ( Name "x202" ) ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x203" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x203" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -1240,8 +1246,8 @@ UberModule ) ( Ref Nothing ( Local ( Name "x203" ) ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x204" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x204" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -1252,8 +1258,8 @@ UberModule ) ( Ref Nothing ( Local ( Name "x204" ) ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x205" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x205" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -1264,8 +1270,8 @@ UberModule ) ( Ref Nothing ( Local ( Name "x205" ) ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x206" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x206" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -1276,8 +1282,8 @@ UberModule ) ( Ref Nothing ( Local ( Name "x206" ) ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x207" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x207" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -1288,8 +1294,8 @@ UberModule ) ( Ref Nothing ( Local ( Name "x207" ) ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x208" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x208" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -1300,8 +1306,8 @@ UberModule ) ( Ref Nothing ( Local ( Name "x208" ) ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x209" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x209" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -1314,8 +1320,8 @@ UberModule ( Local ( Name "x209" ) ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x210" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x210" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -1328,8 +1334,10 @@ UberModule ( Local ( Name "x210" ) ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x211" ) ) + ( AbsN Nothing + ( ParamNamed Nothing + ( Name "x211" ) :| [] + ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -1342,9 +1350,9 @@ UberModule ( Local ( Name "x211" ) ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x212" ) + ( Name "x212" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -1358,9 +1366,9 @@ UberModule ( Local ( Name "x212" ) ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x213" ) + ( Name "x213" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -1376,9 +1384,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x214" ) + ( Name "x214" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -1394,9 +1402,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x215" ) + ( Name "x215" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -1412,9 +1420,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x216" ) + ( Name "x216" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -1430,9 +1438,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x217" ) + ( Name "x217" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -1448,9 +1456,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x218" ) + ( Name "x218" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -1466,9 +1474,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x219" ) + ( Name "x219" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -1484,9 +1492,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x220" ) + ( Name "x220" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -1502,9 +1510,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x221" ) + ( Name "x221" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -1520,9 +1528,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x222" ) + ( Name "x222" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -1538,9 +1546,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x223" ) + ( Name "x223" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -1556,9 +1564,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x224" ) + ( Name "x224" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -1574,9 +1582,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x225" ) + ( Name "x225" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -1592,9 +1600,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x226" ) + ( Name "x226" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -1610,9 +1618,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x227" ) + ( Name "x227" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -1628,9 +1636,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x228" ) + ( Name "x228" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -1646,9 +1654,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x229" ) + ( Name "x229" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -1664,9 +1672,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x230" ) + ( Name "x230" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -1682,9 +1690,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x231" ) + ( Name "x231" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -1700,9 +1708,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x232" ) + ( Name "x232" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -1718,9 +1726,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x233" ) + ( Name "x233" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -1736,9 +1744,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x234" ) + ( Name "x234" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -1754,9 +1762,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x235" ) + ( Name "x235" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -1772,9 +1780,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x236" ) + ( Name "x236" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -1790,9 +1798,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x237" ) + ( Name "x237" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -1808,9 +1816,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x238" ) + ( Name "x238" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -1826,9 +1834,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x239" ) + ( Name "x239" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -1844,9 +1852,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x240" ) + ( Name "x240" ) :| [] ) ( AppN Nothing ( Ref Nothing @@ -1941,8 +1949,8 @@ UberModule ) ) ), 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 @@ -1950,8 +1958,8 @@ UberModule ) ( Ref Nothing ( Local ( Name "x160$189" ) ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x161" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x161" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -1962,8 +1970,8 @@ UberModule ) ( Ref Nothing ( Local ( Name "x161" ) ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x162" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x162" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -1974,8 +1982,8 @@ UberModule ) ( Ref Nothing ( Local ( Name "x162" ) ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x163" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x163" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -1986,8 +1994,8 @@ UberModule ) ( Ref Nothing ( Local ( Name "x163" ) ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x164" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x164" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -1998,8 +2006,8 @@ UberModule ) ( Ref Nothing ( Local ( Name "x164" ) ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x165" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x165" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -2010,8 +2018,8 @@ UberModule ) ( Ref Nothing ( Local ( Name "x165" ) ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x166" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x166" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -2022,8 +2030,8 @@ UberModule ) ( Ref Nothing ( Local ( Name "x166" ) ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x167" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x167" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -2034,8 +2042,8 @@ UberModule ) ( Ref Nothing ( Local ( Name "x167" ) ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x168" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x168" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -2046,8 +2054,8 @@ UberModule ) ( Ref Nothing ( Local ( Name "x168" ) ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x169" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x169" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -2060,8 +2068,8 @@ UberModule ( Local ( Name "x169" ) ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x170" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x170" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -2074,8 +2082,10 @@ UberModule ( Local ( Name "x170" ) ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x171" ) ) + ( AbsN Nothing + ( ParamNamed Nothing + ( Name "x171" ) :| [] + ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -2088,9 +2098,9 @@ UberModule ( Local ( Name "x171" ) ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x172" ) + ( Name "x172" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -2104,9 +2114,9 @@ UberModule ( Local ( Name "x172" ) ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x173" ) + ( Name "x173" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -2122,9 +2132,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x174" ) + ( Name "x174" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -2140,9 +2150,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x175" ) + ( Name "x175" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -2158,9 +2168,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x176" ) + ( Name "x176" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -2176,9 +2186,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x177" ) + ( Name "x177" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -2194,9 +2204,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x178" ) + ( Name "x178" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -2212,9 +2222,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x179" ) + ( Name "x179" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -2230,9 +2240,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x180" ) + ( Name "x180" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -2248,9 +2258,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x181" ) + ( Name "x181" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -2266,9 +2276,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x182" ) + ( Name "x182" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -2284,9 +2294,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x183" ) + ( Name "x183" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -2302,9 +2312,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x184" ) + ( Name "x184" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -2320,9 +2330,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x185" ) + ( Name "x185" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -2338,9 +2348,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x186" ) + ( Name "x186" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -2356,9 +2366,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x187" ) + ( Name "x187" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -2374,9 +2384,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x188" ) + ( Name "x188" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -2392,9 +2402,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x189" ) + ( Name "x189" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -2410,9 +2420,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x190" ) + ( Name "x190" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -2428,9 +2438,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x191" ) + ( Name "x191" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -2446,9 +2456,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x192" ) + ( Name "x192" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -2464,9 +2474,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x193" ) + ( Name "x193" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -2482,9 +2492,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x194" ) + ( Name "x194" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -2500,9 +2510,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x195" ) + ( Name "x195" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -2518,9 +2528,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x196" ) + ( Name "x196" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -2536,9 +2546,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x197" ) + ( Name "x197" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -2554,9 +2564,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x198" ) + ( Name "x198" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -2572,9 +2582,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x199" ) + ( Name "x199" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -2590,9 +2600,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x200" ) + ( Name "x200" ) :| [] ) ( AppN Nothing ( Ref Nothing @@ -2687,8 +2697,8 @@ UberModule ) ) ), 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 @@ -2696,8 +2706,8 @@ UberModule ) ( Ref Nothing ( Local ( Name "x120$191" ) ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x121" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x121" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -2708,8 +2718,8 @@ UberModule ) ( Ref Nothing ( Local ( Name "x121" ) ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x122" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x122" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -2720,8 +2730,8 @@ UberModule ) ( Ref Nothing ( Local ( Name "x122" ) ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x123" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x123" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -2732,8 +2742,8 @@ UberModule ) ( Ref Nothing ( Local ( Name "x123" ) ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x124" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x124" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -2744,8 +2754,8 @@ UberModule ) ( Ref Nothing ( Local ( Name "x124" ) ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x125" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x125" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -2756,8 +2766,8 @@ UberModule ) ( Ref Nothing ( Local ( Name "x125" ) ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x126" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x126" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -2768,8 +2778,8 @@ UberModule ) ( Ref Nothing ( Local ( Name "x126" ) ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x127" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x127" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -2780,8 +2790,8 @@ UberModule ) ( Ref Nothing ( Local ( Name "x127" ) ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x128" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x128" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -2792,8 +2802,8 @@ UberModule ) ( Ref Nothing ( Local ( Name "x128" ) ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x129" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x129" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -2806,8 +2816,8 @@ UberModule ( Local ( Name "x129" ) ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x130" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x130" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -2820,8 +2830,10 @@ UberModule ( Local ( Name "x130" ) ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x131" ) ) + ( AbsN Nothing + ( ParamNamed Nothing + ( Name "x131" ) :| [] + ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -2834,9 +2846,9 @@ UberModule ( Local ( Name "x131" ) ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x132" ) + ( Name "x132" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -2850,9 +2862,9 @@ UberModule ( Local ( Name "x132" ) ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x133" ) + ( Name "x133" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -2868,9 +2880,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x134" ) + ( Name "x134" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -2886,9 +2898,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x135" ) + ( Name "x135" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -2904,9 +2916,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x136" ) + ( Name "x136" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -2922,9 +2934,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x137" ) + ( Name "x137" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -2940,9 +2952,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x138" ) + ( Name "x138" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -2958,9 +2970,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x139" ) + ( Name "x139" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -2976,9 +2988,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x140" ) + ( Name "x140" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -2994,9 +3006,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x141" ) + ( Name "x141" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -3012,9 +3024,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x142" ) + ( Name "x142" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -3030,9 +3042,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x143" ) + ( Name "x143" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -3048,9 +3060,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x144" ) + ( Name "x144" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -3066,9 +3078,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x145" ) + ( Name "x145" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -3084,9 +3096,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x146" ) + ( Name "x146" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -3102,9 +3114,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x147" ) + ( Name "x147" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -3120,9 +3132,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x148" ) + ( Name "x148" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -3138,9 +3150,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x149" ) + ( Name "x149" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -3156,9 +3168,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x150" ) + ( Name "x150" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -3174,9 +3186,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x151" ) + ( Name "x151" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -3192,9 +3204,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x152" ) + ( Name "x152" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -3210,9 +3222,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x153" ) + ( Name "x153" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -3228,9 +3240,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x154" ) + ( Name "x154" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -3246,9 +3258,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x155" ) + ( Name "x155" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -3264,9 +3276,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x156" ) + ( Name "x156" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -3282,9 +3294,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x157" ) + ( Name "x157" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -3300,9 +3312,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x158" ) + ( Name "x158" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -3318,9 +3330,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x159" ) + ( Name "x159" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -3336,9 +3348,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x160" ) + ( Name "x160" ) :| [] ) ( AppN Nothing ( Ref Nothing @@ -3433,8 +3445,8 @@ UberModule ) ) ), 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 @@ -3442,8 +3454,8 @@ UberModule ) ( Ref Nothing ( Local ( Name "x80$193" ) ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x81" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x81" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -3454,8 +3466,8 @@ UberModule ) ( Ref Nothing ( Local ( Name "x81" ) ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x82" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x82" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -3466,8 +3478,8 @@ UberModule ) ( Ref Nothing ( Local ( Name "x82" ) ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x83" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x83" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -3478,8 +3490,8 @@ UberModule ) ( Ref Nothing ( Local ( Name "x83" ) ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x84" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x84" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -3490,8 +3502,8 @@ UberModule ) ( Ref Nothing ( Local ( Name "x84" ) ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x85" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x85" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -3502,8 +3514,8 @@ UberModule ) ( Ref Nothing ( Local ( Name "x85" ) ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x86" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x86" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -3514,8 +3526,8 @@ UberModule ) ( Ref Nothing ( Local ( Name "x86" ) ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x87" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x87" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -3526,8 +3538,8 @@ UberModule ) ( Ref Nothing ( Local ( Name "x87" ) ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x88" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x88" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -3538,8 +3550,8 @@ UberModule ) ( Ref Nothing ( Local ( Name "x88" ) ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x89" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x89" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -3550,8 +3562,8 @@ UberModule ) ( Ref Nothing ( Local ( Name "x89" ) ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x90" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x90" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -3564,8 +3576,10 @@ UberModule ( Local ( Name "x90" ) ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x91" ) ) + ( AbsN Nothing + ( ParamNamed Nothing + ( Name "x91" ) :| [] + ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -3578,8 +3592,10 @@ UberModule ( Local ( Name "x91" ) ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x92" ) ) + ( AbsN Nothing + ( ParamNamed Nothing + ( Name "x92" ) :| [] + ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -3592,9 +3608,9 @@ UberModule ( Local ( Name "x92" ) ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x93" ) + ( Name "x93" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -3610,9 +3626,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x94" ) + ( Name "x94" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -3628,9 +3644,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x95" ) + ( Name "x95" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -3646,9 +3662,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x96" ) + ( Name "x96" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -3664,9 +3680,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x97" ) + ( Name "x97" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -3682,9 +3698,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x98" ) + ( Name "x98" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -3700,9 +3716,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x99" ) + ( Name "x99" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -3718,9 +3734,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x100" ) + ( Name "x100" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -3736,9 +3752,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x101" ) + ( Name "x101" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -3754,9 +3770,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x102" ) + ( Name "x102" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -3772,9 +3788,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x103" ) + ( Name "x103" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -3790,9 +3806,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x104" ) + ( Name "x104" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -3808,9 +3824,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x105" ) + ( Name "x105" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -3826,9 +3842,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x106" ) + ( Name "x106" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -3844,9 +3860,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x107" ) + ( Name "x107" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -3862,9 +3878,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x108" ) + ( Name "x108" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -3880,9 +3896,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x109" ) + ( Name "x109" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -3898,9 +3914,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x110" ) + ( Name "x110" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -3916,9 +3932,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x111" ) + ( Name "x111" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -3934,9 +3950,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x112" ) + ( Name "x112" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -3952,9 +3968,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x113" ) + ( Name "x113" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -3970,9 +3986,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x114" ) + ( Name "x114" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -3988,9 +4004,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x115" ) + ( Name "x115" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -4006,9 +4022,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x116" ) + ( Name "x116" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -4024,9 +4040,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x117" ) + ( Name "x117" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -4042,9 +4058,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x118" ) + ( Name "x118" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -4060,9 +4076,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x119" ) + ( Name "x119" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -4078,9 +4094,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x120" ) + ( Name "x120" ) :| [] ) ( AppN Nothing ( Ref Nothing @@ -4175,8 +4191,8 @@ UberModule ) ) ), 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 @@ -4184,8 +4200,8 @@ UberModule ) ( Ref Nothing ( Local ( Name "x40$195" ) ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x41" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x41" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -4196,8 +4212,8 @@ UberModule ) ( Ref Nothing ( Local ( Name "x41" ) ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x42" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x42" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -4208,8 +4224,8 @@ UberModule ) ( Ref Nothing ( Local ( Name "x42" ) ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x43" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x43" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -4220,8 +4236,8 @@ UberModule ) ( Ref Nothing ( Local ( Name "x43" ) ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x44" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x44" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -4232,8 +4248,8 @@ UberModule ) ( Ref Nothing ( Local ( Name "x44" ) ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x45" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x45" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -4244,8 +4260,8 @@ UberModule ) ( Ref Nothing ( Local ( Name "x45" ) ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x46" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x46" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -4256,8 +4272,8 @@ UberModule ) ( Ref Nothing ( Local ( Name "x46" ) ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x47" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x47" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -4268,8 +4284,8 @@ UberModule ) ( Ref Nothing ( Local ( Name "x47" ) ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x48" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x48" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -4280,8 +4296,8 @@ UberModule ) ( Ref Nothing ( Local ( Name "x48" ) ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x49" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x49" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -4292,8 +4308,8 @@ UberModule ) ( Ref Nothing ( Local ( Name "x49" ) ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x50" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x50" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -4306,8 +4322,10 @@ UberModule ( Local ( Name "x50" ) ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x51" ) ) + ( AbsN Nothing + ( ParamNamed Nothing + ( Name "x51" ) :| [] + ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -4320,8 +4338,10 @@ UberModule ( Local ( Name "x51" ) ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x52" ) ) + ( AbsN Nothing + ( ParamNamed Nothing + ( Name "x52" ) :| [] + ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -4334,9 +4354,9 @@ UberModule ( Local ( Name "x52" ) ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x53" ) + ( Name "x53" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -4352,9 +4372,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x54" ) + ( Name "x54" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -4370,9 +4390,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x55" ) + ( Name "x55" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -4388,9 +4408,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x56" ) + ( Name "x56" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -4406,9 +4426,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x57" ) + ( Name "x57" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -4424,9 +4444,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x58" ) + ( Name "x58" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -4442,9 +4462,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x59" ) + ( Name "x59" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -4460,9 +4480,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x60" ) + ( Name "x60" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -4478,9 +4498,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x61" ) + ( Name "x61" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -4496,9 +4516,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x62" ) + ( Name "x62" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -4514,9 +4534,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x63" ) + ( Name "x63" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -4532,9 +4552,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x64" ) + ( Name "x64" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -4550,9 +4570,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x65" ) + ( Name "x65" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -4568,9 +4588,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x66" ) + ( Name "x66" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -4586,9 +4606,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x67" ) + ( Name "x67" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -4604,9 +4624,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x68" ) + ( Name "x68" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -4622,9 +4642,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x69" ) + ( Name "x69" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -4640,9 +4660,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x70" ) + ( Name "x70" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -4658,9 +4678,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x71" ) + ( Name "x71" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -4676,9 +4696,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x72" ) + ( Name "x72" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -4694,9 +4714,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x73" ) + ( Name "x73" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -4712,9 +4732,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x74" ) + ( Name "x74" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -4730,9 +4750,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x75" ) + ( Name "x75" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -4748,9 +4768,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x76" ) + ( Name "x76" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -4766,9 +4786,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x77" ) + ( Name "x77" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -4784,9 +4804,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x78" ) + ( Name "x78" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -4802,9 +4822,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x79" ) + ( Name "x79" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -4820,9 +4840,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x80" ) + ( Name "x80" ) :| [] ) ( AppN Nothing ( Ref Nothing @@ -4926,8 +4946,8 @@ UberModule ) ( LiteralInt Nothing 0 :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x1" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x1" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -4935,8 +4955,8 @@ UberModule ) ( Ref Nothing ( Local ( Name "x1" ) ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x2" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x2" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -4944,8 +4964,8 @@ UberModule ) ( Ref Nothing ( Local ( Name "x2" ) ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x3" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x3" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -4956,8 +4976,8 @@ UberModule ) ( Ref Nothing ( Local ( Name "x3" ) ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x4" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x4" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -4968,8 +4988,8 @@ UberModule ) ( Ref Nothing ( Local ( Name "x4" ) ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x5" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x5" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -4980,8 +5000,8 @@ UberModule ) ( Ref Nothing ( Local ( Name "x5" ) ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x6" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x6" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -4992,8 +5012,8 @@ UberModule ) ( Ref Nothing ( Local ( Name "x6" ) ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x7" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x7" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -5004,8 +5024,8 @@ UberModule ) ( Ref Nothing ( Local ( Name "x7" ) ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x8" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x8" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -5016,8 +5036,8 @@ UberModule ) ( Ref Nothing ( Local ( Name "x8" ) ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x9" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x9" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -5028,8 +5048,8 @@ UberModule ) ( Ref Nothing ( Local ( Name "x9" ) ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x10" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x10" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -5040,8 +5060,8 @@ UberModule ) ( Ref Nothing ( Local ( Name "x10" ) ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x11" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x11" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -5054,8 +5074,8 @@ UberModule ( Local ( Name "x11" ) ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x12" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x12" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -5068,8 +5088,10 @@ UberModule ( Local ( Name "x12" ) ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x13" ) ) + ( AbsN Nothing + ( ParamNamed Nothing + ( Name "x13" ) :| [] + ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -5082,9 +5104,9 @@ UberModule ( Local ( Name "x13" ) ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x14" ) + ( Name "x14" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -5098,9 +5120,9 @@ UberModule ( Local ( Name "x14" ) ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x15" ) + ( Name "x15" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -5116,9 +5138,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x16" ) + ( Name "x16" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -5134,9 +5156,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x17" ) + ( Name "x17" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -5152,9 +5174,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x18" ) + ( Name "x18" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -5170,9 +5192,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x19" ) + ( Name "x19" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -5188,9 +5210,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x20" ) + ( Name "x20" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -5206,9 +5228,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x21" ) + ( Name "x21" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -5224,9 +5246,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x22" ) + ( Name "x22" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -5242,9 +5264,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x23" ) + ( Name "x23" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -5260,9 +5282,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x24" ) + ( Name "x24" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -5278,9 +5300,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x25" ) + ( Name "x25" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -5296,9 +5318,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x26" ) + ( Name "x26" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -5314,9 +5336,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x27" ) + ( Name "x27" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -5332,9 +5354,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x28" ) + ( Name "x28" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -5350,9 +5372,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x29" ) + ( Name "x29" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -5368,9 +5390,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x30" ) + ( Name "x30" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -5386,9 +5408,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x31" ) + ( Name "x31" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -5404,9 +5426,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x32" ) + ( Name "x32" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -5422,9 +5444,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x33" ) + ( Name "x33" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -5440,9 +5462,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x34" ) + ( Name "x34" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -5458,9 +5480,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x35" ) + ( Name "x35" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -5476,9 +5498,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x36" ) + ( Name "x36" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -5494,9 +5516,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x37" ) + ( Name "x37" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -5512,9 +5534,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x38" ) + ( Name "x38" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -5530,9 +5552,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x39" ) + ( Name "x39" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -5548,9 +5570,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x40" ) + ( Name "x40" ) :| [] ) ( AppN Nothing ( Ref Nothing 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..b690f7e0 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 @@ -46,10 +46,10 @@ UberModule ), Standalone ( QName { qnameModuleName = ModuleName "Golden.LongMaybeBind.Test", qnameName = Name "bind" - }, Abs Nothing - ( ParamNamed Nothing ( Name "v$270" ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "v1$271" ) ) + }, AbsN Nothing + ( ParamNamed Nothing ( Name "v$270" ) :| [] ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "v1$271" ) :| [] ) ( IfThenElse Nothing ( Eq Nothing ( LiteralString Nothing "Data.Maybe∷Maybe.Just" ) @@ -81,10 +81,10 @@ 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 ( AppN Nothing ( Ref Nothing @@ -106,8 +106,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x278" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x278" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -129,8 +129,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x279" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x279" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -154,8 +154,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x280" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x280" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -185,8 +185,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x281" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x281" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -216,8 +216,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x282" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x282" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -247,8 +247,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x283" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x283" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -281,8 +281,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x284" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x284" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -315,8 +315,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x285" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x285" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -351,8 +351,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x286" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x286" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -387,8 +387,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x287" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x287" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -423,8 +423,10 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x288" ) ) + ( AbsN Nothing + ( ParamNamed Nothing + ( Name "x288" ) :| [] + ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -461,9 +463,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x289" ) + ( Name "x289" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -501,9 +503,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x290" ) + ( Name "x290" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -541,9 +543,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x291" ) + ( Name "x291" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -581,9 +583,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x292" ) + ( Name "x292" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -621,9 +623,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x293" ) + ( Name "x293" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -661,9 +663,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x294" ) + ( Name "x294" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -701,9 +703,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x295" ) + ( Name "x295" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -741,9 +743,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x296" ) + ( Name "x296" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -781,9 +783,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x297" ) + ( Name "x297" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -821,9 +823,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x298" ) + ( Name "x298" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -861,9 +863,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x299" ) + ( Name "x299" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -901,9 +903,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x300" ) + ( Name "x300" ) :| [] ) ( AppN Nothing ( Ref Nothing @@ -985,10 +987,10 @@ UberModule ) ) :| [ 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 ( AppN Nothing ( Ref Nothing @@ -1010,8 +1012,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x239" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x239" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -1033,8 +1035,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x240" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x240" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -1061,8 +1063,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x241" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x241" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -1092,8 +1094,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x242" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x242" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -1123,8 +1125,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x243" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x243" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -1154,8 +1156,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x244" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x244" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -1188,8 +1190,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x245" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x245" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -1224,8 +1226,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x246" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x246" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -1260,8 +1262,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x247" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x247" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -1296,8 +1298,10 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x248" ) ) + ( AbsN Nothing + ( ParamNamed Nothing + ( Name "x248" ) :| [] + ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -1332,8 +1336,10 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x249" ) ) + ( AbsN Nothing + ( ParamNamed Nothing + ( Name "x249" ) :| [] + ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -1370,9 +1376,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x250" ) + ( Name "x250" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -1400,7 +1406,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -1437,9 +1444,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x251" ) + ( Name "x251" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -1477,9 +1484,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x252" ) + ( Name "x252" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -1517,9 +1524,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x253" ) + ( Name "x253" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -1557,9 +1564,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x254" ) + ( Name "x254" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -1597,9 +1604,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x255" ) + ( Name "x255" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -1637,9 +1644,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x256" ) + ( Name "x256" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -1677,9 +1684,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x257" ) + ( Name "x257" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -1717,9 +1724,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x258" ) + ( Name "x258" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -1757,9 +1764,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x259" ) + ( Name "x259" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -1797,9 +1804,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x260" ) + ( Name "x260" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -1837,9 +1844,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x261" ) + ( Name "x261" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -1877,9 +1884,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x262" ) + ( Name "x262" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -1917,9 +1924,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x263" ) + ( Name "x263" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -1957,9 +1964,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x264" ) + ( Name "x264" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -1997,9 +2004,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x265" ) + ( Name "x265" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -2037,9 +2044,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x266" ) + ( Name "x266" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -2077,9 +2084,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x267" ) + ( Name "x267" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -2117,9 +2124,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x268" ) + ( Name "x268" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -2157,9 +2164,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x269" ) + ( Name "x269" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -2197,9 +2204,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x270" ) + ( Name "x270" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -2237,9 +2244,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x271" ) + ( Name "x271" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -2277,9 +2284,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x272" ) + ( Name "x272" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -2317,9 +2324,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x273" ) + ( Name "x273" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -2357,9 +2364,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x274" ) + ( Name "x274" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -2397,9 +2404,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x275" ) + ( Name "x275" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -2437,9 +2444,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x276" ) + ( Name "x276" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -2477,9 +2484,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x277" ) + ( Name "x277" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -2582,10 +2589,10 @@ UberModule ) ) ), 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 ( AppN Nothing ( Ref Nothing @@ -2607,8 +2614,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x199" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x199" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -2630,8 +2637,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x200" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x200" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -2658,8 +2665,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x201" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x201" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -2689,8 +2696,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x202" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x202" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -2720,8 +2727,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x203" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x203" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -2751,8 +2758,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x204" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x204" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -2785,8 +2792,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x205" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x205" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -2821,8 +2828,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x206" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x206" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -2857,8 +2864,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x207" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x207" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -2893,8 +2900,10 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x208" ) ) + ( AbsN Nothing + ( ParamNamed Nothing + ( Name "x208" ) :| [] + ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -2929,8 +2938,10 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x209" ) ) + ( AbsN Nothing + ( ParamNamed Nothing + ( Name "x209" ) :| [] + ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -2967,9 +2978,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x210" ) + ( Name "x210" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -3007,9 +3018,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x211" ) + ( Name "x211" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -3047,9 +3058,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x212" ) + ( Name "x212" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -3087,9 +3098,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x213" ) + ( Name "x213" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -3127,9 +3138,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x214" ) + ( Name "x214" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -3167,9 +3178,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x215" ) + ( Name "x215" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -3207,9 +3218,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x216" ) + ( Name "x216" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -3247,9 +3258,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x217" ) + ( Name "x217" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -3287,9 +3298,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x218" ) + ( Name "x218" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -3327,9 +3338,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x219" ) + ( Name "x219" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -3367,9 +3378,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x220" ) + ( Name "x220" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -3407,9 +3418,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x221" ) + ( Name "x221" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -3447,9 +3458,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x222" ) + ( Name "x222" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -3487,9 +3498,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x223" ) + ( Name "x223" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -3527,9 +3538,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x224" ) + ( Name "x224" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -3567,9 +3578,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x225" ) + ( Name "x225" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -3607,9 +3618,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x226" ) + ( Name "x226" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -3647,9 +3658,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x227" ) + ( Name "x227" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -3687,9 +3698,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x228" ) + ( Name "x228" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -3727,9 +3738,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x229" ) + ( Name "x229" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -3767,9 +3778,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x230" ) + ( Name "x230" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -3807,9 +3818,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x231" ) + ( Name "x231" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -3847,9 +3858,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x232" ) + ( Name "x232" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -3887,9 +3898,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x233" ) + ( Name "x233" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -3927,9 +3938,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x234" ) + ( Name "x234" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -3967,9 +3978,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x235" ) + ( Name "x235" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -4007,9 +4018,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x236" ) + ( Name "x236" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -4047,9 +4058,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x237" ) + ( Name "x237" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -4087,9 +4098,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x238" ) + ( Name "x238" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -4192,10 +4203,10 @@ UberModule ) ) ), 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 ( AppN Nothing ( Ref Nothing @@ -4217,8 +4228,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x159" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x159" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -4240,8 +4251,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x160" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x160" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -4268,8 +4279,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x161" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x161" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -4299,8 +4310,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x162" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x162" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -4330,8 +4341,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x163" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x163" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -4361,8 +4372,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x164" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x164" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -4395,8 +4406,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x165" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x165" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -4431,8 +4442,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x166" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x166" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -4467,8 +4478,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x167" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x167" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -4503,8 +4514,10 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x168" ) ) + ( AbsN Nothing + ( ParamNamed Nothing + ( Name "x168" ) :| [] + ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -4539,8 +4552,10 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x169" ) ) + ( AbsN Nothing + ( ParamNamed Nothing + ( Name "x169" ) :| [] + ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -4577,9 +4592,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x170" ) + ( Name "x170" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -4617,9 +4632,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x171" ) + ( Name "x171" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -4657,9 +4672,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x172" ) + ( Name "x172" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -4697,9 +4712,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x173" ) + ( Name "x173" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -4737,9 +4752,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x174" ) + ( Name "x174" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -4777,9 +4792,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x175" ) + ( Name "x175" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -4817,9 +4832,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x176" ) + ( Name "x176" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -4857,9 +4872,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x177" ) + ( Name "x177" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -4897,9 +4912,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x178" ) + ( Name "x178" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -4937,9 +4952,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x179" ) + ( Name "x179" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -4977,9 +4992,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x180" ) + ( Name "x180" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -5017,9 +5032,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x181" ) + ( Name "x181" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -5057,9 +5072,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x182" ) + ( Name "x182" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -5097,9 +5112,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x183" ) + ( Name "x183" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -5137,9 +5152,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x184" ) + ( Name "x184" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -5177,9 +5192,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x185" ) + ( Name "x185" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -5217,9 +5232,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x186" ) + ( Name "x186" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -5257,9 +5272,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x187" ) + ( Name "x187" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -5297,9 +5312,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x188" ) + ( Name "x188" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -5337,9 +5352,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x189" ) + ( Name "x189" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -5377,9 +5392,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x190" ) + ( Name "x190" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -5417,9 +5432,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x191" ) + ( Name "x191" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -5457,9 +5472,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x192" ) + ( Name "x192" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -5497,9 +5512,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x193" ) + ( Name "x193" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -5537,9 +5552,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x194" ) + ( Name "x194" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -5577,9 +5592,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x195" ) + ( Name "x195" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -5617,9 +5632,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x196" ) + ( Name "x196" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -5657,9 +5672,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x197" ) + ( Name "x197" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -5697,9 +5712,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x198" ) + ( Name "x198" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -5802,10 +5817,10 @@ UberModule ) ) ), 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 ( AppN Nothing ( Ref Nothing @@ -5827,8 +5842,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x120" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x120" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -5850,8 +5865,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x121" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x121" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -5878,8 +5893,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x122" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x122" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -5909,8 +5924,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x123" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x123" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -5940,8 +5955,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x124" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x124" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -5971,8 +5986,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x125" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x125" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -6005,8 +6020,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x126" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x126" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -6041,8 +6056,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x127" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x127" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -6077,8 +6092,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x128" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x128" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -6113,8 +6128,10 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x129" ) ) + ( AbsN Nothing + ( ParamNamed Nothing + ( Name "x129" ) :| [] + ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -6149,8 +6166,10 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x130" ) ) + ( AbsN Nothing + ( ParamNamed Nothing + ( Name "x130" ) :| [] + ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -6187,9 +6206,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x131" ) + ( Name "x131" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -6227,9 +6246,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x132" ) + ( Name "x132" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -6267,9 +6286,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x133" ) + ( Name "x133" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -6307,9 +6326,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x134" ) + ( Name "x134" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -6347,9 +6366,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x135" ) + ( Name "x135" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -6387,9 +6406,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x136" ) + ( Name "x136" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -6427,9 +6446,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x137" ) + ( Name "x137" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -6467,9 +6486,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x138" ) + ( Name "x138" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -6507,9 +6526,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x139" ) + ( Name "x139" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -6547,9 +6566,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x140" ) + ( Name "x140" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -6587,9 +6606,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x141" ) + ( Name "x141" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -6627,9 +6646,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x142" ) + ( Name "x142" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -6667,9 +6686,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x143" ) + ( Name "x143" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -6707,9 +6726,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x144" ) + ( Name "x144" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -6747,9 +6766,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x145" ) + ( Name "x145" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -6787,9 +6806,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x146" ) + ( Name "x146" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -6827,9 +6846,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x147" ) + ( Name "x147" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -6867,9 +6886,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x148" ) + ( Name "x148" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -6907,9 +6926,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x149" ) + ( Name "x149" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -6947,9 +6966,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x150" ) + ( Name "x150" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -6977,7 +6996,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -7014,9 +7034,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x151" ) + ( Name "x151" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -7054,9 +7074,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x152" ) + ( Name "x152" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -7094,9 +7114,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x153" ) + ( Name "x153" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -7134,9 +7154,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x154" ) + ( Name "x154" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -7174,9 +7194,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x155" ) + ( Name "x155" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -7214,9 +7234,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x156" ) + ( Name "x156" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -7254,9 +7274,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x157" ) + ( Name "x157" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -7294,9 +7314,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x158" ) + ( Name "x158" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -7399,10 +7419,10 @@ UberModule ) ) ), 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 ( AppN Nothing ( Ref Nothing @@ -7424,8 +7444,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x80" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x80" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -7447,8 +7467,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x81" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x81" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -7475,8 +7495,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x82" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x82" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -7506,8 +7526,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x83" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x83" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -7537,8 +7557,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x84" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x84" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -7568,8 +7588,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x85" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x85" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -7602,8 +7622,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x86" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x86" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -7636,8 +7656,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x87" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x87" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -7672,8 +7692,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x88" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x88" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -7708,8 +7728,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x89" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x89" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -7744,8 +7764,10 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x90" ) ) + ( AbsN Nothing + ( ParamNamed Nothing + ( Name "x90" ) :| [] + ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -7782,9 +7804,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x91" ) + ( Name "x91" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -7822,9 +7844,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x92" ) + ( Name "x92" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -7862,9 +7884,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x93" ) + ( Name "x93" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -7902,9 +7924,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x94" ) + ( Name "x94" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -7942,9 +7964,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x95" ) + ( Name "x95" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -7982,9 +8004,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x96" ) + ( Name "x96" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -8022,9 +8044,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x97" ) + ( Name "x97" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -8062,9 +8084,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x98" ) + ( Name "x98" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -8102,9 +8124,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x99" ) + ( Name "x99" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -8142,9 +8164,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x100" ) + ( Name "x100" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -8182,9 +8204,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x101" ) + ( Name "x101" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -8222,9 +8244,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x102" ) + ( Name "x102" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -8262,9 +8284,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x103" ) + ( Name "x103" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -8302,9 +8324,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x104" ) + ( Name "x104" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -8342,9 +8364,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x105" ) + ( Name "x105" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -8382,9 +8404,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x106" ) + ( Name "x106" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -8422,9 +8444,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x107" ) + ( Name "x107" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -8462,9 +8484,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x108" ) + ( Name "x108" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -8502,9 +8524,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x109" ) + ( Name "x109" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -8542,9 +8564,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x110" ) + ( Name "x110" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -8582,9 +8604,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x111" ) + ( Name "x111" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -8622,9 +8644,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x112" ) + ( Name "x112" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -8662,9 +8684,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x113" ) + ( Name "x113" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -8702,9 +8724,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x114" ) + ( Name "x114" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -8742,9 +8764,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x115" ) + ( Name "x115" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -8782,9 +8804,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x116" ) + ( Name "x116" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -8822,9 +8844,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x117" ) + ( Name "x117" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -8862,9 +8884,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x118" ) + ( Name "x118" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -8902,9 +8924,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x119" ) + ( Name "x119" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -9007,10 +9029,10 @@ UberModule ) ) ), 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 ( AppN Nothing ( Ref Nothing @@ -9032,8 +9054,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x41" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x41" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -9055,8 +9077,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x42" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x42" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -9083,8 +9105,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x43" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x43" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -9114,8 +9136,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x44" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x44" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -9145,8 +9167,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x45" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x45" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -9176,8 +9198,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x46" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x46" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -9210,8 +9232,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x47" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x47" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -9244,8 +9266,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x48" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x48" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -9280,8 +9302,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x49" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x49" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -9316,8 +9338,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x50" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x50" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -9344,7 +9366,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -9381,9 +9404,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x51" ) + ( Name "x51" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -9421,9 +9444,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x52" ) + ( Name "x52" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -9461,9 +9484,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x53" ) + ( Name "x53" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -9501,9 +9524,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x54" ) + ( Name "x54" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -9541,9 +9564,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x55" ) + ( Name "x55" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -9581,9 +9604,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x56" ) + ( Name "x56" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -9621,9 +9644,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x57" ) + ( Name "x57" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -9661,9 +9684,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x58" ) + ( Name "x58" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -9701,9 +9724,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x59" ) + ( Name "x59" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -9741,9 +9764,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x60" ) + ( Name "x60" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -9781,9 +9804,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x61" ) + ( Name "x61" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -9821,9 +9844,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x62" ) + ( Name "x62" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -9861,9 +9884,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x63" ) + ( Name "x63" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -9901,9 +9924,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x64" ) + ( Name "x64" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -9941,9 +9964,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x65" ) + ( Name "x65" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -9981,9 +10004,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x66" ) + ( Name "x66" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -10021,9 +10044,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x67" ) + ( Name "x67" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -10061,9 +10084,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x68" ) + ( Name "x68" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -10101,9 +10124,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x69" ) + ( Name "x69" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -10141,9 +10164,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x70" ) + ( Name "x70" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -10181,9 +10204,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x71" ) + ( Name "x71" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -10221,9 +10244,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x72" ) + ( Name "x72" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -10261,9 +10284,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x73" ) + ( Name "x73" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -10301,9 +10324,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x74" ) + ( Name "x74" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -10341,9 +10364,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x75" ) + ( Name "x75" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -10381,9 +10404,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x76" ) + ( Name "x76" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -10421,9 +10444,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x77" ) + ( Name "x77" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -10461,9 +10484,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x78" ) + ( Name "x78" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -10501,9 +10524,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x79" ) + ( Name "x79" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -10616,8 +10639,8 @@ UberModule ( LiteralInt Nothing 1 :| [] ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x1" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x1" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -10639,8 +10662,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x2" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x2" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -10662,8 +10685,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x3" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x3" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -10685,8 +10708,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x4" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x4" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -10713,8 +10736,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x5" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x5" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -10744,8 +10767,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x6" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x6" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -10775,8 +10798,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x7" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x7" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -10806,8 +10829,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x8" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x8" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -10840,8 +10863,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x9" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x9" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -10874,8 +10897,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x10" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x10" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -10910,8 +10933,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x11" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x11" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -10946,8 +10969,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x12" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x12" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -10982,8 +11005,10 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x13" ) ) + ( AbsN Nothing + ( ParamNamed Nothing + ( Name "x13" ) :| [] + ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -11020,9 +11045,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x14" ) + ( Name "x14" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -11060,9 +11085,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x15" ) + ( Name "x15" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -11100,9 +11125,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x16" ) + ( Name "x16" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -11140,9 +11165,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x17" ) + ( Name "x17" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -11180,9 +11205,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x18" ) + ( Name "x18" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -11220,9 +11245,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x19" ) + ( Name "x19" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -11260,9 +11285,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x20" ) + ( Name "x20" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -11300,9 +11325,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x21" ) + ( Name "x21" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -11340,9 +11365,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x22" ) + ( Name "x22" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -11380,9 +11405,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x23" ) + ( Name "x23" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -11420,9 +11445,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x24" ) + ( Name "x24" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -11460,9 +11485,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x25" ) + ( Name "x25" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -11500,9 +11525,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x26" ) + ( Name "x26" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -11540,9 +11565,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x27" ) + ( Name "x27" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -11580,9 +11605,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x28" ) + ( Name "x28" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -11620,9 +11645,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x29" ) + ( Name "x29" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -11660,9 +11685,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x30" ) + ( Name "x30" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -11700,9 +11725,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x31" ) + ( Name "x31" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -11740,9 +11765,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x32" ) + ( Name "x32" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -11780,9 +11805,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x33" ) + ( Name "x33" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -11820,9 +11845,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x34" ) + ( Name "x34" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -11860,9 +11885,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x35" ) + ( Name "x35" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -11900,9 +11925,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x36" ) + ( Name "x36" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -11940,9 +11965,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x37" ) + ( Name "x37" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -11980,9 +12005,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x38" ) + ( Name "x38" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -12020,9 +12045,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x39" ) + ( Name "x39" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -12060,9 +12085,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x40" ) + ( Name "x40" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -12179,8 +12204,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.LongMaybeBindModule.Test/golden.ir b/test/ps/output/Golden.LongMaybeBindModule.Test/golden.ir index 1a4f9b52..d9c8ea28 100644 --- a/test/ps/output/Golden.LongMaybeBindModule.Test/golden.ir +++ b/test/ps/output/Golden.LongMaybeBindModule.Test/golden.ir @@ -23,10 +23,10 @@ UberModule ), Standalone ( QName { qnameModuleName = ModuleName "Golden.LongMaybeBindModule.Test", qnameName = Name "bind" - }, Abs Nothing - ( ParamNamed Nothing ( Name "v$545" ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "v1$546" ) ) + }, AbsN Nothing + ( ParamNamed Nothing ( Name "v$545" ) :| [] ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "v1$546" ) :| [] ) ( IfThenElse Nothing ( Eq Nothing ( LiteralString Nothing "Data.Maybe∷Maybe.Just" ) @@ -58,10 +58,10 @@ 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 ( AppN Nothing ( Ref Nothing @@ -83,8 +83,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x278$277" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x278$277" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -109,8 +109,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x279$278" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x279$278" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -137,8 +137,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x280$279" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x280$279" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -168,8 +168,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x281$280" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x281$280" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -199,8 +199,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x282$281" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x282$281" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -230,8 +230,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x283$282" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x283$282" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -264,8 +264,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x284$283" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x284$283" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -300,8 +300,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x285$284" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x285$284" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -336,8 +336,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x286$285" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x286$285" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -372,8 +372,10 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x287$286" ) ) + ( AbsN Nothing + ( ParamNamed Nothing + ( Name "x287$286" ) :| [] + ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -410,9 +412,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x288$287" ) + ( Name "x288$287" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -450,9 +452,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x289$288" ) + ( Name "x289$288" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -490,9 +492,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x290$289" ) + ( Name "x290$289" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -530,9 +532,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x291$290" ) + ( Name "x291$290" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -570,9 +572,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x292$291" ) + ( Name "x292$291" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -610,9 +612,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x293$292" ) + ( Name "x293$292" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -650,9 +652,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x294$293" ) + ( Name "x294$293" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -690,9 +692,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x295$294" ) + ( Name "x295$294" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -730,9 +732,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x296$295" ) + ( Name "x296$295" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -770,9 +772,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x297$296" ) + ( Name "x297$296" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -810,9 +812,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x298$297" ) + ( Name "x298$297" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -850,9 +852,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x299$298" ) + ( Name "x299$298" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -890,9 +892,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x300$299" ) + ( Name "x300$299" ) :| [] ) ( AppN Nothing ( Ref Nothing @@ -974,10 +976,10 @@ UberModule ) ) :| [ 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 ( AppN Nothing ( Ref Nothing @@ -999,8 +1001,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x239$238" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x239$238" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -1025,8 +1027,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x240$239" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x240$239" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -1053,8 +1055,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x241$240" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x241$240" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -1084,8 +1086,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x242$241" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x242$241" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -1115,8 +1117,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x243$242" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x243$242" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -1146,8 +1148,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x244$243" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x244$243" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -1182,8 +1184,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x245$244" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x245$244" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -1218,8 +1220,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x246$245" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x246$245" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -1254,8 +1256,10 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x247$246" ) ) + ( AbsN Nothing + ( ParamNamed Nothing + ( Name "x247$246" ) :| [] + ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -1290,8 +1294,10 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x248$247" ) ) + ( AbsN Nothing + ( ParamNamed Nothing + ( Name "x248$247" ) :| [] + ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -1328,9 +1334,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x249$248" ) + ( Name "x249$248" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -1368,9 +1374,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x250$249" ) + ( Name "x250$249" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -1398,7 +1404,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -1435,9 +1442,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x251$250" ) + ( Name "x251$250" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -1475,9 +1482,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x252$251" ) + ( Name "x252$251" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -1515,9 +1522,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x253$252" ) + ( Name "x253$252" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -1555,9 +1562,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x254$253" ) + ( Name "x254$253" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -1595,9 +1602,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x255$254" ) + ( Name "x255$254" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -1635,9 +1642,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x256$255" ) + ( Name "x256$255" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -1675,9 +1682,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x257$256" ) + ( Name "x257$256" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -1715,9 +1722,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x258$257" ) + ( Name "x258$257" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -1755,9 +1762,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x259$258" ) + ( Name "x259$258" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -1795,9 +1802,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x260$259" ) + ( Name "x260$259" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -1835,9 +1842,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x261$260" ) + ( Name "x261$260" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -1875,9 +1882,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x262$261" ) + ( Name "x262$261" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -1915,9 +1922,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x263$262" ) + ( Name "x263$262" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -1955,9 +1962,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x264$263" ) + ( Name "x264$263" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -1995,9 +2002,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x265$264" ) + ( Name "x265$264" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -2035,9 +2042,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x266$265" ) + ( Name "x266$265" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -2075,9 +2082,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x267$266" ) + ( Name "x267$266" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -2115,9 +2122,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x268$267" ) + ( Name "x268$267" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -2155,9 +2162,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x269$268" ) + ( Name "x269$268" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -2195,9 +2202,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x270$269" ) + ( Name "x270$269" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -2235,9 +2242,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x271$270" ) + ( Name "x271$270" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -2275,9 +2282,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x272$271" ) + ( Name "x272$271" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -2315,9 +2322,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x273$272" ) + ( Name "x273$272" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -2355,9 +2362,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x274$273" ) + ( Name "x274$273" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -2395,9 +2402,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x275$274" ) + ( Name "x275$274" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -2435,9 +2442,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x276$275" ) + ( Name "x276$275" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -2475,9 +2482,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x277$276" ) + ( Name "x277$276" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -2580,10 +2587,10 @@ UberModule ) ) ), 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 ( AppN Nothing ( Ref Nothing @@ -2605,8 +2612,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x199$198" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x199$198" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -2631,8 +2638,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x200$199" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x200$199" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -2659,8 +2666,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x201$200" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x201$200" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -2690,8 +2697,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x202$201" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x202$201" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -2721,8 +2728,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x203$202" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x203$202" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -2752,8 +2759,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x204$203" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x204$203" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -2788,8 +2795,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x205$204" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x205$204" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -2824,8 +2831,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x206$205" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x206$205" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -2860,8 +2867,10 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x207$206" ) ) + ( AbsN Nothing + ( ParamNamed Nothing + ( Name "x207$206" ) :| [] + ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -2896,8 +2905,10 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x208$207" ) ) + ( AbsN Nothing + ( ParamNamed Nothing + ( Name "x208$207" ) :| [] + ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -2934,9 +2945,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x209$208" ) + ( Name "x209$208" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -2974,9 +2985,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x210$209" ) + ( Name "x210$209" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -3014,9 +3025,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x211$210" ) + ( Name "x211$210" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -3054,9 +3065,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x212$211" ) + ( Name "x212$211" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -3094,9 +3105,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x213$212" ) + ( Name "x213$212" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -3134,9 +3145,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x214$213" ) + ( Name "x214$213" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -3174,9 +3185,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x215$214" ) + ( Name "x215$214" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -3214,9 +3225,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x216$215" ) + ( Name "x216$215" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -3254,9 +3265,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x217$216" ) + ( Name "x217$216" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -3294,9 +3305,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x218$217" ) + ( Name "x218$217" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -3334,9 +3345,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x219$218" ) + ( Name "x219$218" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -3374,9 +3385,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x220$219" ) + ( Name "x220$219" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -3414,9 +3425,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x221$220" ) + ( Name "x221$220" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -3454,9 +3465,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x222$221" ) + ( Name "x222$221" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -3494,9 +3505,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x223$222" ) + ( Name "x223$222" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -3534,9 +3545,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x224$223" ) + ( Name "x224$223" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -3574,9 +3585,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x225$224" ) + ( Name "x225$224" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -3614,9 +3625,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x226$225" ) + ( Name "x226$225" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -3654,9 +3665,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x227$226" ) + ( Name "x227$226" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -3694,9 +3705,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x228$227" ) + ( Name "x228$227" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -3734,9 +3745,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x229$228" ) + ( Name "x229$228" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -3774,9 +3785,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x230$229" ) + ( Name "x230$229" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -3814,9 +3825,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x231$230" ) + ( Name "x231$230" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -3854,9 +3865,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x232$231" ) + ( Name "x232$231" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -3894,9 +3905,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x233$232" ) + ( Name "x233$232" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -3934,9 +3945,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x234$233" ) + ( Name "x234$233" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -3974,9 +3985,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x235$234" ) + ( Name "x235$234" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -4014,9 +4025,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x236$235" ) + ( Name "x236$235" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -4054,9 +4065,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x237$236" ) + ( Name "x237$236" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -4094,9 +4105,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x238$237" ) + ( Name "x238$237" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -4199,10 +4210,10 @@ UberModule ) ) ), 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 ( AppN Nothing ( Ref Nothing @@ -4224,8 +4235,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x159$158" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x159$158" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -4250,8 +4261,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x160$159" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x160$159" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -4278,8 +4289,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x161$160" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x161$160" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -4309,8 +4320,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x162$161" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x162$161" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -4340,8 +4351,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x163$162" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x163$162" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -4371,8 +4382,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x164$163" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x164$163" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -4407,8 +4418,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x165$164" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x165$164" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -4443,8 +4454,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x166$165" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x166$165" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -4479,8 +4490,10 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x167$166" ) ) + ( AbsN Nothing + ( ParamNamed Nothing + ( Name "x167$166" ) :| [] + ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -4515,8 +4528,10 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x168$167" ) ) + ( AbsN Nothing + ( ParamNamed Nothing + ( Name "x168$167" ) :| [] + ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -4553,9 +4568,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x169$168" ) + ( Name "x169$168" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -4593,9 +4608,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x170$169" ) + ( Name "x170$169" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -4633,9 +4648,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x171$170" ) + ( Name "x171$170" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -4673,9 +4688,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x172$171" ) + ( Name "x172$171" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -4713,9 +4728,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x173$172" ) + ( Name "x173$172" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -4753,9 +4768,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x174$173" ) + ( Name "x174$173" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -4793,9 +4808,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x175$174" ) + ( Name "x175$174" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -4833,9 +4848,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x176$175" ) + ( Name "x176$175" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -4873,9 +4888,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x177$176" ) + ( Name "x177$176" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -4913,9 +4928,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x178$177" ) + ( Name "x178$177" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -4953,9 +4968,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x179$178" ) + ( Name "x179$178" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -4993,9 +5008,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x180$179" ) + ( Name "x180$179" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -5033,9 +5048,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x181$180" ) + ( Name "x181$180" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -5073,9 +5088,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x182$181" ) + ( Name "x182$181" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -5113,9 +5128,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x183$182" ) + ( Name "x183$182" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -5153,9 +5168,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x184$183" ) + ( Name "x184$183" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -5193,9 +5208,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x185$184" ) + ( Name "x185$184" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -5233,9 +5248,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x186$185" ) + ( Name "x186$185" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -5273,9 +5288,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x187$186" ) + ( Name "x187$186" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -5313,9 +5328,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x188$187" ) + ( Name "x188$187" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -5353,9 +5368,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x189$188" ) + ( Name "x189$188" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -5393,9 +5408,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x190$189" ) + ( Name "x190$189" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -5433,9 +5448,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x191$190" ) + ( Name "x191$190" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -5473,9 +5488,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x192$191" ) + ( Name "x192$191" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -5513,9 +5528,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x193$192" ) + ( Name "x193$192" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -5553,9 +5568,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x194$193" ) + ( Name "x194$193" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -5593,9 +5608,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x195$194" ) + ( Name "x195$194" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -5633,9 +5648,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x196$195" ) + ( Name "x196$195" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -5673,9 +5688,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x197$196" ) + ( Name "x197$196" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -5713,9 +5728,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x198$197" ) + ( Name "x198$197" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -5818,10 +5833,10 @@ UberModule ) ) ), 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 ( AppN Nothing ( Ref Nothing @@ -5843,8 +5858,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x120$119" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x120$119" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -5869,8 +5884,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x121$120" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x121$120" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -5897,8 +5912,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x122$121" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x122$121" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -5928,8 +5943,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x123$122" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x123$122" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -5959,8 +5974,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x124$123" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x124$123" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -5990,8 +6005,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x125$124" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x125$124" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -6026,8 +6041,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x126$125" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x126$125" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -6062,8 +6077,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x127$126" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x127$126" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -6098,8 +6113,10 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x128$127" ) ) + ( AbsN Nothing + ( ParamNamed Nothing + ( Name "x128$127" ) :| [] + ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -6134,8 +6151,10 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x129$128" ) ) + ( AbsN Nothing + ( ParamNamed Nothing + ( Name "x129$128" ) :| [] + ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -6172,9 +6191,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x130$129" ) + ( Name "x130$129" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -6212,9 +6231,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x131$130" ) + ( Name "x131$130" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -6252,9 +6271,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x132$131" ) + ( Name "x132$131" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -6292,9 +6311,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x133$132" ) + ( Name "x133$132" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -6332,9 +6351,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x134$133" ) + ( Name "x134$133" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -6372,9 +6391,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x135$134" ) + ( Name "x135$134" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -6412,9 +6431,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x136$135" ) + ( Name "x136$135" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -6452,9 +6471,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x137$136" ) + ( Name "x137$136" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -6492,9 +6511,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x138$137" ) + ( Name "x138$137" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -6532,9 +6551,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x139$138" ) + ( Name "x139$138" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -6572,9 +6591,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x140$139" ) + ( Name "x140$139" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -6612,9 +6631,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x141$140" ) + ( Name "x141$140" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -6652,9 +6671,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x142$141" ) + ( Name "x142$141" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -6692,9 +6711,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x143$142" ) + ( Name "x143$142" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -6732,9 +6751,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x144$143" ) + ( Name "x144$143" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -6772,9 +6791,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x145$144" ) + ( Name "x145$144" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -6812,9 +6831,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x146$145" ) + ( Name "x146$145" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -6852,9 +6871,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x147$146" ) + ( Name "x147$146" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -6892,9 +6911,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x148$147" ) + ( Name "x148$147" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -6932,9 +6951,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x149$148" ) + ( Name "x149$148" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -6972,9 +6991,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x150$149" ) + ( Name "x150$149" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -7002,7 +7021,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -7039,9 +7059,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x151$150" ) + ( Name "x151$150" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -7079,9 +7099,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x152$151" ) + ( Name "x152$151" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -7119,9 +7139,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x153$152" ) + ( Name "x153$152" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -7159,9 +7179,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x154$153" ) + ( Name "x154$153" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -7199,9 +7219,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x155$154" ) + ( Name "x155$154" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -7239,9 +7259,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x156$155" ) + ( Name "x156$155" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -7279,9 +7299,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x157$156" ) + ( Name "x157$156" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -7319,9 +7339,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x158$157" ) + ( Name "x158$157" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -7424,10 +7444,10 @@ UberModule ) ) ), 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 ( AppN Nothing ( Ref Nothing @@ -7449,8 +7469,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x80$79" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x80$79" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -7475,8 +7495,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x81$80" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x81$80" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -7503,8 +7523,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x82$81" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x82$81" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -7534,8 +7554,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x83$82" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x83$82" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -7565,8 +7585,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x84$83" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x84$83" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -7596,8 +7616,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x85$84" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x85$84" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -7630,8 +7650,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x86$85" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x86$85" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -7666,8 +7686,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x87$86" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x87$86" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -7702,8 +7722,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x88$87" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x88$87" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -7738,8 +7758,10 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x89$88" ) ) + ( AbsN Nothing + ( ParamNamed Nothing + ( Name "x89$88" ) :| [] + ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -7776,9 +7798,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x90$89" ) + ( Name "x90$89" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -7816,9 +7838,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x91$90" ) + ( Name "x91$90" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -7856,9 +7878,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x92$91" ) + ( Name "x92$91" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -7896,9 +7918,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x93$92" ) + ( Name "x93$92" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -7936,9 +7958,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x94$93" ) + ( Name "x94$93" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -7976,9 +7998,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x95$94" ) + ( Name "x95$94" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -8016,9 +8038,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x96$95" ) + ( Name "x96$95" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -8056,9 +8078,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x97$96" ) + ( Name "x97$96" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -8096,9 +8118,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x98$97" ) + ( Name "x98$97" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -8136,9 +8158,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x99$98" ) + ( Name "x99$98" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -8176,9 +8198,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x100$99" ) + ( Name "x100$99" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -8216,9 +8238,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x101$100" ) + ( Name "x101$100" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -8256,9 +8278,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x102$101" ) + ( Name "x102$101" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -8296,9 +8318,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x103$102" ) + ( Name "x103$102" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -8336,9 +8358,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x104$103" ) + ( Name "x104$103" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -8376,9 +8398,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x105$104" ) + ( Name "x105$104" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -8416,9 +8438,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x106$105" ) + ( Name "x106$105" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -8456,9 +8478,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x107$106" ) + ( Name "x107$106" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -8496,9 +8518,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x108$107" ) + ( Name "x108$107" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -8536,9 +8558,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x109$108" ) + ( Name "x109$108" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -8576,9 +8598,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x110$109" ) + ( Name "x110$109" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -8616,9 +8638,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x111$110" ) + ( Name "x111$110" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -8656,9 +8678,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x112$111" ) + ( Name "x112$111" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -8696,9 +8718,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x113$112" ) + ( Name "x113$112" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -8736,9 +8758,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x114$113" ) + ( Name "x114$113" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -8776,9 +8798,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x115$114" ) + ( Name "x115$114" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -8816,9 +8838,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x116$115" ) + ( Name "x116$115" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -8856,9 +8878,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x117$116" ) + ( Name "x117$116" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -8896,9 +8918,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x118$117" ) + ( Name "x118$117" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -8936,9 +8958,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x119$118" ) + ( Name "x119$118" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -9041,10 +9063,10 @@ UberModule ) ) ), 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 ( AppN Nothing ( Ref Nothing @@ -9066,8 +9088,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x41$40" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x41$40" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -9092,8 +9114,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x42$41" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x42$41" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -9120,8 +9142,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x43$42" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x43$42" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -9151,8 +9173,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x44$43" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x44$43" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -9182,8 +9204,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x45$44" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x45$44" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -9213,8 +9235,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x46$45" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x46$45" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -9247,8 +9269,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x47$46" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x47$46" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -9283,8 +9305,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x48$47" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x48$47" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -9319,8 +9341,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x49$48" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x49$48" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -9355,8 +9377,10 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x50$49" ) ) + ( AbsN Nothing + ( ParamNamed Nothing + ( Name "x50$49" ) :| [] + ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -9383,7 +9407,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -9420,9 +9445,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x51$50" ) + ( Name "x51$50" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -9460,9 +9485,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x52$51" ) + ( Name "x52$51" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -9500,9 +9525,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x53$52" ) + ( Name "x53$52" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -9540,9 +9565,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x54$53" ) + ( Name "x54$53" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -9580,9 +9605,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x55$54" ) + ( Name "x55$54" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -9620,9 +9645,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x56$55" ) + ( Name "x56$55" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -9660,9 +9685,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x57$56" ) + ( Name "x57$56" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -9700,9 +9725,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x58$57" ) + ( Name "x58$57" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -9740,9 +9765,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x59$58" ) + ( Name "x59$58" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -9780,9 +9805,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x60$59" ) + ( Name "x60$59" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -9820,9 +9845,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x61$60" ) + ( Name "x61$60" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -9860,9 +9885,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x62$61" ) + ( Name "x62$61" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -9900,9 +9925,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x63$62" ) + ( Name "x63$62" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -9940,9 +9965,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x64$63" ) + ( Name "x64$63" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -9980,9 +10005,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x65$64" ) + ( Name "x65$64" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -10020,9 +10045,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x66$65" ) + ( Name "x66$65" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -10060,9 +10085,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x67$66" ) + ( Name "x67$66" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -10100,9 +10125,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x68$67" ) + ( Name "x68$67" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -10140,9 +10165,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x69$68" ) + ( Name "x69$68" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -10180,9 +10205,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x70$69" ) + ( Name "x70$69" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -10220,9 +10245,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x71$70" ) + ( Name "x71$70" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -10260,9 +10285,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x72$71" ) + ( Name "x72$71" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -10300,9 +10325,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x73$72" ) + ( Name "x73$72" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -10340,9 +10365,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x74$73" ) + ( Name "x74$73" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -10380,9 +10405,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x75$74" ) + ( Name "x75$74" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -10420,9 +10445,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x76$75" ) + ( Name "x76$75" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -10460,9 +10485,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x77$76" ) + ( Name "x77$76" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -10500,9 +10525,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x78$77" ) + ( Name "x78$77" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -10540,9 +10565,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x79$78" ) + ( Name "x79$78" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -10657,8 +10682,8 @@ UberModule ( LiteralInt Nothing 1 :| [] ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x1$0" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x1$0" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -10680,8 +10705,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x2$1" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x2$1" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -10703,8 +10728,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x3$2" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x3$2" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -10729,8 +10754,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x4$3" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x4$3" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -10757,8 +10782,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x5$4" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x5$4" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -10788,8 +10813,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x6$5" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x6$5" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -10819,8 +10844,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x7$6" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x7$6" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -10850,8 +10875,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x8$7" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x8$7" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -10884,8 +10909,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x9$8" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x9$8" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -10920,8 +10945,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x10$9" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x10$9" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -10956,8 +10981,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x11$10" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x11$10" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -10992,8 +11017,10 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x12$11" ) ) + ( AbsN Nothing + ( ParamNamed Nothing + ( Name "x12$11" ) :| [] + ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -11030,9 +11057,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x13$12" ) + ( Name "x13$12" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -11070,9 +11097,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x14$13" ) + ( Name "x14$13" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -11110,9 +11137,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x15$14" ) + ( Name "x15$14" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -11150,9 +11177,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x16$15" ) + ( Name "x16$15" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -11190,9 +11217,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x17$16" ) + ( Name "x17$16" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -11230,9 +11257,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x18$17" ) + ( Name "x18$17" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -11270,9 +11297,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x19$18" ) + ( Name "x19$18" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -11310,9 +11337,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x20$19" ) + ( Name "x20$19" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -11350,9 +11377,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x21$20" ) + ( Name "x21$20" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -11390,9 +11417,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x22$21" ) + ( Name "x22$21" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -11430,9 +11457,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x23$22" ) + ( Name "x23$22" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -11470,9 +11497,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x24$23" ) + ( Name "x24$23" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -11510,9 +11537,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x25$24" ) + ( Name "x25$24" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -11550,9 +11577,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x26$25" ) + ( Name "x26$25" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -11590,9 +11617,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x27$26" ) + ( Name "x27$26" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -11630,9 +11657,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x28$27" ) + ( Name "x28$27" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -11670,9 +11697,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x29$28" ) + ( Name "x29$28" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -11710,9 +11737,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x30$29" ) + ( Name "x30$29" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -11750,9 +11777,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x31$30" ) + ( Name "x31$30" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -11790,9 +11817,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x32$31" ) + ( Name "x32$31" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -11830,9 +11857,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x33$32" ) + ( Name "x33$32" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -11870,9 +11897,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x34$33" ) + ( Name "x34$33" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -11910,9 +11937,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x35$34" ) + ( Name "x35$34" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -11950,9 +11977,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x36$35" ) + ( Name "x36$35" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -11990,9 +12017,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x37$36" ) + ( Name "x37$36" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -12030,9 +12057,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x38$37" ) + ( Name "x38$37" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -12070,9 +12097,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x39$38" ) + ( Name "x39$38" ) :| [] ) ( AppN Nothing ( AppN Nothing @@ -12110,9 +12137,9 @@ UberModule ) :| [] ) ) - ( Abs Nothing + ( AbsN Nothing ( ParamNamed Nothing - ( Name "x40$39" ) + ( Name "x40$39" ) :| [] ) ( AppN Nothing ( AppN Nothing 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..c68bddb7 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" ) ) ) ) ] @@ -182,10 +186,10 @@ UberModule ), Standalone ( QName { qnameModuleName = ModuleName "Control.Monad.Writer.Trans", qnameName = Name "applyWriterT" - }, Abs Nothing - ( ParamNamed Nothing ( Name "dictSemigroup" ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "dictApply" ) ) + }, AbsN Nothing + ( ParamNamed Nothing ( Name "dictSemigroup" ) :| [] ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "dictApply" ) :| [] ) ( Let Nothing ( Standalone ( Nothing, Name "Functor0", AppN Nothing @@ -198,10 +202,10 @@ UberModule ) ( 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 ( AppN Nothing ( ObjectProp Nothing @@ -216,10 +220,10 @@ UberModule ) ( Ref Nothing ( Local ( Name "Functor0" ) ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "v3$33" ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "v4$34" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "v3$33" ) :| [] ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "v4$34" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -268,13 +272,14 @@ UberModule ) ) ), - ( PropName "Functor0", Abs Nothing ( ParamUnused Nothing ) + ( PropName "Functor0", AbsN Nothing + ( ParamUnused Nothing :| [] ) ( LiteralObject Nothing [ - ( PropName "map", Abs Nothing - ( ParamNamed Nothing ( Name "f$463" ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "v$466" ) ) + ( PropName "map", AbsN Nothing + ( ParamNamed Nothing ( Name "f$463" ) :| [] ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "v$466" ) :| [] ) ( AppN Nothing ( AppN Nothing ( AppN Nothing @@ -283,8 +288,8 @@ UberModule ) ( Ref Nothing ( Local ( Name "Functor0" ) ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "v$464" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "v$464" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -319,10 +324,10 @@ UberModule ), Standalone ( QName { qnameModuleName = ModuleName "Control.Monad.Writer.Trans", qnameName = Name "bindWriterT" - }, Abs Nothing - ( ParamNamed Nothing ( Name "dictSemigroup" ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "dictBind" ) ) + }, AbsN Nothing + ( ParamNamed Nothing ( Name "dictSemigroup" ) :| [] ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "dictBind" ) :| [] ) ( Let Nothing ( Standalone ( Nothing, Name "Apply0", AppN Nothing @@ -335,10 +340,10 @@ UberModule ) ( 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 @@ -349,8 +354,8 @@ UberModule ) ( Ref Nothing ( Local ( Name "v" ) ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "v1" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "v1" ) :| [] ) ( AppN Nothing ( AppN Nothing ( AppN Nothing @@ -367,8 +372,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "v3" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "v3" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -415,7 +420,8 @@ UberModule ) ) ), - ( PropName "Apply0", Abs Nothing ( ParamUnused Nothing ) + ( PropName "Apply0", AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -436,14 +442,14 @@ UberModule ), Standalone ( QName { qnameModuleName = ModuleName "Control.Monad.Writer.Trans", qnameName = Name "applicativeWriterT" - }, Abs Nothing - ( ParamNamed Nothing ( Name "dictMonoid" ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "dictApplicative" ) ) + }, AbsN Nothing + ( ParamNamed Nothing ( Name "dictMonoid" ) :| [] ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "dictApplicative" ) :| [] ) ( LiteralObject Nothing [ - ( PropName "pure", Abs Nothing - ( ParamNamed Nothing ( Name "a" ) ) + ( PropName "pure", AbsN Nothing + ( ParamNamed Nothing ( Name "a" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -463,7 +469,8 @@ UberModule ) ) ), - ( PropName "Apply0", Abs Nothing ( ParamUnused Nothing ) + ( PropName "Apply0", AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -522,12 +529,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 +551,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 +585,8 @@ UberModule ) :| [] ) ), - ( PropName "Semigroup0", Abs Nothing ( ParamUnused Nothing ) + ( PropName "Semigroup0", AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( ObjectProp Nothing ( Ref Nothing @@ -587,10 +597,12 @@ 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 @@ -614,7 +626,8 @@ UberModule ) ) ), - ( PropName "Bind1", Abs Nothing ( ParamUnused Nothing ) + ( PropName "Bind1", AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -670,7 +683,8 @@ UberModule ( LiteralArray Nothing [ LiteralInt Nothing 161 ] :| [] ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -683,7 +697,8 @@ UberModule ( LiteralArray Nothing [ LiteralInt Nothing 162 ] :| [] ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -696,7 +711,8 @@ UberModule ( LiteralArray Nothing [ LiteralInt Nothing 163 ] :| [] ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -715,7 +731,8 @@ UberModule ( LiteralArray Nothing [ LiteralInt Nothing 164 ] :| [] ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -734,7 +751,8 @@ UberModule ( LiteralArray Nothing [ LiteralInt Nothing 165 ] :| [] ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -753,7 +771,8 @@ UberModule ( LiteralArray Nothing [ LiteralInt Nothing 166 ] :| [] ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -774,7 +793,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -795,7 +815,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -816,7 +837,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -837,7 +859,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -858,7 +881,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -879,7 +903,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -900,7 +925,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -921,7 +947,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -942,7 +969,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -963,7 +991,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -984,7 +1013,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -1005,7 +1035,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -1026,7 +1057,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -1047,7 +1079,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -1068,7 +1101,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -1089,7 +1123,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -1110,7 +1145,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -1131,7 +1167,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -1152,7 +1189,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -1173,7 +1211,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -1194,7 +1233,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -1215,7 +1255,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -1236,7 +1277,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -1257,7 +1299,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -1278,7 +1321,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -1299,7 +1343,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -1320,7 +1365,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -1341,7 +1387,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -1362,7 +1409,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -1383,7 +1431,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -1404,7 +1453,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -1425,7 +1475,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -1446,7 +1497,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -1467,7 +1519,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -1594,7 +1647,8 @@ UberModule ( LiteralArray Nothing [ LiteralInt Nothing 121 ] :| [] ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -1607,7 +1661,8 @@ UberModule ( LiteralArray Nothing [ LiteralInt Nothing 122 ] :| [] ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -1623,7 +1678,8 @@ UberModule ( LiteralArray Nothing [ LiteralInt Nothing 123 ] :| [] ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -1642,7 +1698,8 @@ UberModule ( LiteralArray Nothing [ LiteralInt Nothing 124 ] :| [] ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -1661,7 +1718,8 @@ UberModule ( LiteralArray Nothing [ LiteralInt Nothing 125 ] :| [] ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -1682,7 +1740,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -1703,7 +1762,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -1724,7 +1784,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -1745,7 +1806,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -1766,7 +1828,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -1787,7 +1850,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -1808,7 +1872,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -1829,7 +1894,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -1850,7 +1916,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -1871,7 +1938,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -1892,7 +1960,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -1913,7 +1982,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -1934,7 +2004,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -1955,7 +2026,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -1976,7 +2048,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -1997,7 +2070,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -2018,7 +2092,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -2039,7 +2114,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -2060,7 +2136,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -2081,7 +2158,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -2102,7 +2180,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -2123,7 +2202,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -2144,7 +2224,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -2165,7 +2246,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -2186,7 +2268,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -2207,7 +2290,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -2228,7 +2312,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -2249,7 +2334,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -2270,7 +2356,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -2291,7 +2378,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -2312,7 +2400,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -2333,7 +2422,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -2354,7 +2444,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -2375,7 +2466,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -2396,7 +2488,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( Ref Nothing ( Local ( Name "$kont482" ) @@ -2494,7 +2587,8 @@ UberModule ( LiteralArray Nothing [ LiteralInt Nothing 81 ] :| [] ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -2507,7 +2601,8 @@ UberModule ( LiteralArray Nothing [ LiteralInt Nothing 82 ] :| [] ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -2523,7 +2618,8 @@ UberModule ( LiteralArray Nothing [ LiteralInt Nothing 83 ] :| [] ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -2542,7 +2638,8 @@ UberModule ( LiteralArray Nothing [ LiteralInt Nothing 84 ] :| [] ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -2561,7 +2658,8 @@ UberModule ( LiteralArray Nothing [ LiteralInt Nothing 85 ] :| [] ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -2580,7 +2678,8 @@ UberModule ( LiteralArray Nothing [ LiteralInt Nothing 86 ] :| [] ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -2601,7 +2700,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -2622,7 +2722,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -2643,7 +2744,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -2664,7 +2766,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -2685,7 +2788,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -2706,7 +2810,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -2727,7 +2832,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -2748,7 +2854,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -2769,7 +2876,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -2790,7 +2898,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -2811,7 +2920,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -2832,7 +2942,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -2853,7 +2964,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -2874,7 +2986,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -2895,7 +3008,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -2916,7 +3030,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -2937,7 +3052,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -2958,7 +3074,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -2979,7 +3096,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -3000,7 +3118,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -3021,7 +3140,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -3042,7 +3162,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -3063,7 +3184,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -3084,7 +3206,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -3105,7 +3228,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -3126,7 +3250,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -3147,7 +3272,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -3168,7 +3294,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -3189,7 +3316,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -3210,7 +3338,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -3231,7 +3360,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -3252,7 +3382,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -3273,7 +3404,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -3294,7 +3426,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( Ref Nothing ( Local ( Name "$kont483" ) @@ -3392,7 +3525,8 @@ UberModule ( LiteralArray Nothing [ LiteralInt Nothing 41 ] :| [] ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -3405,7 +3539,8 @@ UberModule ( LiteralArray Nothing [ LiteralInt Nothing 42 ] :| [] ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -3421,7 +3556,8 @@ UberModule ( LiteralArray Nothing [ LiteralInt Nothing 43 ] :| [] ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -3440,7 +3576,8 @@ UberModule ( LiteralArray Nothing [ LiteralInt Nothing 44 ] :| [] ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -3459,7 +3596,8 @@ UberModule ( LiteralArray Nothing [ LiteralInt Nothing 45 ] :| [] ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -3478,7 +3616,8 @@ UberModule ( LiteralArray Nothing [ LiteralInt Nothing 46 ] :| [] ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -3499,7 +3638,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -3520,7 +3660,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -3541,7 +3682,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -3562,7 +3704,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -3583,7 +3726,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -3604,7 +3748,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -3625,7 +3770,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -3646,7 +3792,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -3667,7 +3814,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -3688,7 +3836,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -3709,7 +3858,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -3730,7 +3880,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -3751,7 +3902,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -3772,7 +3924,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -3793,7 +3946,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -3814,7 +3968,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -3835,7 +3990,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -3856,7 +4012,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -3877,7 +4034,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -3898,7 +4056,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -3919,7 +4078,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -3940,7 +4100,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -3961,7 +4122,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -3982,7 +4144,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -4003,7 +4166,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -4024,7 +4188,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -4045,7 +4210,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -4066,7 +4232,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -4087,7 +4254,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -4108,7 +4276,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -4129,7 +4298,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -4150,7 +4320,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -4171,7 +4342,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -4192,7 +4364,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( Ref Nothing ( Local ( Name "$kont484" ) @@ -4292,7 +4465,8 @@ UberModule ( LiteralArray Nothing [ LiteralInt Nothing 1 ] :| [] ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -4305,7 +4479,8 @@ UberModule ( LiteralArray Nothing [ LiteralInt Nothing 2 ] :| [] ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -4318,7 +4493,8 @@ UberModule ( LiteralArray Nothing [ LiteralInt Nothing 3 ] :| [] ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -4334,7 +4510,8 @@ UberModule ( LiteralArray Nothing [ LiteralInt Nothing 4 ] :| [] ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -4353,7 +4530,8 @@ UberModule ( LiteralArray Nothing [ LiteralInt Nothing 5 ] :| [] ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -4372,7 +4550,8 @@ UberModule ( LiteralArray Nothing [ LiteralInt Nothing 6 ] :| [] ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -4391,7 +4570,8 @@ UberModule ( LiteralArray Nothing [ LiteralInt Nothing 7 ] :| [] ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -4412,7 +4592,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -4433,7 +4614,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -4454,7 +4636,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -4475,7 +4658,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -4496,7 +4680,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -4517,7 +4702,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -4538,7 +4724,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -4559,7 +4746,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -4580,7 +4768,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -4601,7 +4790,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -4622,7 +4812,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -4643,7 +4834,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -4664,7 +4856,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -4685,7 +4878,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -4706,7 +4900,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -4727,7 +4922,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -4748,7 +4944,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -4769,7 +4966,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -4790,7 +4988,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -4811,7 +5010,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -4832,7 +5032,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -4853,7 +5054,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -4874,7 +5076,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -4895,7 +5098,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -4916,7 +5120,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -4937,7 +5142,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -4958,7 +5164,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -4979,7 +5186,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -5000,7 +5208,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -5021,7 +5230,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -5042,7 +5252,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -5063,7 +5274,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -5084,7 +5296,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( Ref Nothing ( Local ( Name "$kont485" ) @@ -5190,8 +5403,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.MaybeChain.Test/golden.ir b/test/ps/output/Golden.MaybeChain.Test/golden.ir index 065094e2..53e2bcde 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,12 +46,12 @@ 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" ) ) + { qnameModuleName = ModuleName "Data.Maybe", qnameName = Name "maybe" }, AbsN Nothing + ( ParamNamed Nothing ( Name "v" ) :| [] ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "v1" ) :| [] ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "v2" ) :| [] ) ( IfThenElse Nothing ( Eq Nothing ( LiteralString Nothing "Data.Maybe∷Maybe.Nothing" ) @@ -81,10 +81,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 +100,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 +117,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 +133,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 +187,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 +208,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 +264,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.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,16 +299,16 @@ 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" ) ) + }, AbsN Nothing + ( ParamNamed Nothing ( Name "v$275" ) :| [] ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "v1$276" ) :| [] ) ( IfThenElse Nothing ( Eq Nothing ( LiteralString Nothing "Data.Maybe∷Maybe.Just" ) @@ -323,7 +330,8 @@ UberModule ) ], uberModuleForeigns = [], uberModuleExports = [ - ( Name "main", Abs Nothing ( ParamUnused Nothing ) + ( Name "main", AbsN Nothing + ( ParamUnused Nothing :| [] ) ( Let Nothing ( Standalone ( Nothing, Name "_", AppN Nothing @@ -356,8 +364,8 @@ UberModule ( Ref Nothing ( Imported ( ModuleName "Golden.MaybeChain.Test" ) ( Name "map" ) ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x$0" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x$0" ) :| [] ) ( Ref Nothing ( Local ( Name "x$0" ) ) ) :| [] ) ) @@ -401,8 +409,8 @@ UberModule ( Ref Nothing ( Imported ( ModuleName "Golden.MaybeChain.Test" ) ( Name "map" ) ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x0$1" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x0$1" ) :| [] ) ( Ref Nothing ( Local ( Name "x0$1" ) ) ) :| [] ) ) diff --git a/test/ps/output/Golden.MaybeChainModule.Test/golden.ir b/test/ps/output/Golden.MaybeChainModule.Test/golden.ir index 265e1e4f..fd60881b 100644 --- a/test/ps/output/Golden.MaybeChainModule.Test/golden.ir +++ b/test/ps/output/Golden.MaybeChainModule.Test/golden.ir @@ -17,12 +17,12 @@ 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" ) ) + { qnameModuleName = ModuleName "Data.Maybe", qnameName = Name "maybe" }, AbsN Nothing + ( ParamNamed Nothing ( Name "v" ) :| [] ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "v1" ) :| [] ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "v2" ) :| [] ) ( IfThenElse Nothing ( Eq Nothing ( LiteralString Nothing "Data.Maybe∷Maybe.Nothing" ) @@ -49,16 +49,16 @@ UberModule ), 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" ) ) + }, AbsN Nothing + ( ParamNamed Nothing ( Name "v$251" ) :| [] ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "v1$252" ) :| [] ) ( IfThenElse Nothing ( Eq Nothing ( LiteralString Nothing "Data.Maybe∷Maybe.Just" ) @@ -103,8 +103,8 @@ UberModule ( Ref Nothing ( Imported ( ModuleName "Golden.MaybeChainModule.Test" ) ( Name "map" ) ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x$1" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x$1" ) :| [] ) ( Ref Nothing ( Local ( Name "x$1" ) ) ) :| [] ) ) @@ -135,8 +135,8 @@ UberModule ( Ref Nothing ( Imported ( ModuleName "Golden.MaybeChainModule.Test" ) ( Name "map" ) ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "x$0" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x$0" ) :| [] ) ( Ref Nothing ( Local ( Name "x$0" ) ) ) :| [] ) ) diff --git a/test/ps/output/Golden.NameShadowing.Test/golden.ir b/test/ps/output/Golden.NameShadowing.Test/golden.ir index cc74ec68..210c01f1 100644 --- a/test/ps/output/Golden.NameShadowing.Test/golden.ir +++ b/test/ps/output/Golden.NameShadowing.Test/golden.ir @@ -3,10 +3,10 @@ UberModule [ Standalone ( QName { qnameModuleName = ModuleName "Golden.NameShadowing.Test", qnameName = Name "f" - }, Abs Nothing - ( ParamNamed Nothing ( Name "v" ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "v1" ) ) + }, AbsN Nothing + ( ParamNamed Nothing ( Name "v" ) :| [] ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "v1" ) :| [] ) ( IfThenElse Nothing ( Eq Nothing ( LiteralInt Nothing 1 ) ( Ref Nothing ( Local ( Name "v" ) ) ) ) ( LiteralInt Nothing 1 ) @@ -20,10 +20,10 @@ UberModule ) ], 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 ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.NameShadowing.Test" ) ( Name "f" ) ) ) @@ -49,10 +49,10 @@ UberModule ) ) ), - ( 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" ) ) ) 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..210a1de9 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,9 +127,10 @@ UberModule ) ] ), Standalone - ( Nothing, Name "f$7", Abs Nothing ( ParamUnused Nothing ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "k$13" ) ) + ( Nothing, Name "f$7", AbsN Nothing + ( ParamUnused Nothing :| [] ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "k$13" ) :| [] ) ( AppN Nothing ( Ref Nothing ( Local ( Name "a$6" ) ) ) ( Ref Nothing ( Local ( Name "k$13" ) ) :| [] ) diff --git a/test/ps/output/Golden.StringCodePoints.Test/golden.ir b/test/ps/output/Golden.StringCodePoints.Test/golden.ir index b3f40aca..20352657 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,18 +373,18 @@ 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" ) ) + }, AbsN Nothing + ( ParamNamed Nothing ( Name "dictOrd" ) :| [] ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "a1" ) :| [] ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "a2" ) :| [] ) ( IfThenElse Nothing ( Eq Nothing ( LiteralString Nothing "Data.Ordering∷Ordering.LT" ) @@ -403,12 +406,12 @@ UberModule ) ), 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" ) ) + { qnameModuleName = ModuleName "Data.Ord", qnameName = Name "lessThan" }, AbsN Nothing + ( ParamNamed Nothing ( Name "dictOrd" ) :| [] ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "a1" ) :| [] ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "a2" ) :| [] ) ( IfThenElse Nothing ( Eq Nothing ( LiteralString Nothing "Data.Ordering∷Ordering.LT" ) @@ -430,12 +433,12 @@ UberModule ) ), 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" ) ) + { qnameModuleName = ModuleName "Data.Ord", qnameName = Name "lessThanOrEq" }, AbsN Nothing + ( ParamNamed Nothing ( Name "dictOrd" ) :| [] ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "a1" ) :| [] ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "a2" ) :| [] ) ( IfThenElse Nothing ( Eq Nothing ( LiteralString Nothing "Data.Ordering∷Ordering.GT" ) @@ -457,24 +460,24 @@ 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" ) ) ), 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 +492,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 +519,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 +555,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 +605,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 +631,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 +650,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 +669,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 +686,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 +702,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 +756,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 +777,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 +833,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 +864,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 +902,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 +925,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 @@ -1007,10 +1020,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 +1052,8 @@ UberModule ( PropName "toCharCode" ) :| [] ) ), - ( PropName "Ord0", Abs Nothing ( ParamUnused Nothing ) + ( PropName "Ord0", AbsN Nothing + ( ParamUnused Nothing :| [] ) ( Ref Nothing ( Imported ( ModuleName "Data.Ord" ) ( Name "ordChar" ) ) ) ) ] @@ -1112,8 +1128,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 +1338,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 @@ -1407,8 +1423,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 +1537,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 +1553,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 +1580,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 @@ -1612,10 +1629,10 @@ UberModule [ ( QName { qnameModuleName = ModuleName "Data.String.CodePoints", qnameName = Name "takeFallback" - }, Abs Nothing - ( ParamNamed Nothing ( Name "v" ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "v1" ) ) + }, AbsN Nothing + ( ParamNamed Nothing ( Name "v" ) :| [] ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "v1" ) :| [] ) ( IfThenElse Nothing ( AppN Nothing ( AppN Nothing @@ -1697,10 +1714,10 @@ UberModule ), ( QName { qnameModuleName = ModuleName "Data.String.CodePoints", qnameName = Name "take" - }, Abs Nothing - ( ParamNamed Nothing ( Name "n" ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "s" ) ) + }, AbsN Nothing + ( ParamNamed Nothing ( Name "n" ) :| [] ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "s" ) :| [] ) ( AppN Nothing ( AppN Nothing ( AppN Nothing @@ -1725,10 +1742,10 @@ UberModule ), ( QName { qnameModuleName = ModuleName "Data.String.CodePoints", qnameName = Name "drop" - }, Abs Nothing - ( ParamNamed Nothing ( Name "n" ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "s" ) ) + }, AbsN Nothing + ( ParamNamed Nothing ( Name "n" ) :| [] ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "s" ) :| [] ) ( AppN Nothing ( AppN Nothing ( ObjectProp ( Just Always ) @@ -1769,8 +1786,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 +1800,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 +1828,8 @@ UberModule ) ( PropName "_unsafePartial" ) ) - ( Abs Nothing ( ParamUnused Nothing ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "fromJust" ) ) @@ -1823,24 +1841,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 +1867,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 @@ -1891,10 +1909,10 @@ UberModule ( ( QName { qnameModuleName = ModuleName "Data.String.CodePoints", qnameName = Name "codePointAtFallback" - }, Abs Nothing - ( ParamNamed Nothing ( Name "n" ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "s" ) ) + }, AbsN Nothing + ( ParamNamed Nothing ( Name "n" ) :| [] ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "s" ) :| [] ) ( Let Nothing ( Standalone ( Nothing, Name "v", AppN Nothing @@ -1964,10 +1982,10 @@ UberModule ), Standalone ( QName { qnameModuleName = ModuleName "Data.String.CodePoints", qnameName = Name "codePointAt" - }, Abs Nothing - ( ParamNamed Nothing ( Name "v" ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "v1" ) ) + }, AbsN Nothing + ( ParamNamed Nothing ( Name "v" ) :| [] ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "v1" ) :| [] ) ( IfThenElse Nothing ( AppN Nothing ( AppN Nothing @@ -2113,12 +2131,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 @@ -2157,12 +2175,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 +2190,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 +2209,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 +2263,8 @@ UberModule ) :| [] ) ), - ( PropName "Ord0", Abs Nothing ( ParamUnused Nothing ) + ( PropName "Ord0", AbsN Nothing + ( ParamUnused Nothing :| [] ) ( Ref Nothing ( Imported ( ModuleName "Data.String.CodePoints" ) ( Name "ordCodePoint" ) ) ) @@ -2253,10 +2276,10 @@ 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" }, AbsN Nothing + ( ParamNamed Nothing ( Name "dictShow" ) :| [] ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "a" ) :| [] ) ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) @@ -2351,7 +2374,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 +2427,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 @@ -2636,8 +2661,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" ) @@ -2689,8 +2714,8 @@ UberModule ) :| [] ) ) - ( Abs Nothing - ( ParamNamed Nothing ( Name "v0$1" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "v0$1" ) :| [] ) ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "v0$1" ) ) ) ( PropName "tail" ) @@ -2714,8 +2739,8 @@ UberModule ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "logShow" ) ) ) ( LiteralObject Nothing [ - ( PropName "show", Abs Nothing - ( ParamNamed Nothing ( Name "v$1235" ) ) + ( PropName "show", AbsN Nothing + ( ParamNamed Nothing ( Name "v$1235" ) :| [] ) ( IfThenElse Nothing ( Ref Nothing ( Local ( Name "v$1235" ) ) ) ( LiteralString Nothing "true" ) 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..b1f1513c 100644 --- a/test/ps/output/Golden.Unbinding.Test/golden.ir +++ b/test/ps/output/Golden.Unbinding.Test/golden.ir @@ -3,8 +3,9 @@ UberModule [ Standalone ( QName { qnameModuleName = ModuleName "Golden.Unbinding.Test", qnameName = Name "f" - }, Abs Nothing ( ParamUnused Nothing ) - ( Abs Nothing ( ParamUnused Nothing ) ( LiteralInt Nothing 3 ) ) + }, AbsN Nothing + ( ParamUnused Nothing :| [] ) + ( AbsN Nothing ( ParamUnused Nothing :| [] ) ( LiteralInt Nothing 3 ) ) ) ], uberModuleForeigns = [], uberModuleExports = [ 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 From 73003ccea973280bb3f0f72dfd2d6c2fff5c768f Mon Sep 17 00:00:00 2001 From: Yura Lazarev Date: Tue, 7 Jul 2026 18:07:40 +0200 Subject: [PATCH 2/6] feat: reduce exact-arity n-ary beta redexes MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit betaReduce generalizes from the unary redex to (λx₁…xₙ. M) N₁…Nₙ at exact arity — any other argument count on a literal lambda head is ill-formed under WellApplied. Each parameter/argument pair reduces by the shared inlining guard (substitute when trivial or used at most once, let-bind otherwise), and an argument at a ParamUnused position is dropped with its evaluation, which subsumes betaReduceUnusedParams. On non-GUC input a lambda with repeated parameter names is left alone: substituting left to right would steal the occurrences belonging to the last same-named parameter, the one Lua binds. Nothing builds multi-parameter redexes yet, so goldens are untouched; the rule is the reduction half the uncurrying pass relies on. --- .../PureScript/Backend/IR/Optimizer.hs | 66 +++++++++++++------ .../PureScript/Backend/IR/Optimizer/Spec.hs | 58 ++++++++++++++++ 2 files changed, 105 insertions(+), 19 deletions(-) diff --git a/lib/Language/PureScript/Backend/IR/Optimizer.hs b/lib/Language/PureScript/Backend/IR/Optimizer.hs index 949d16b0..24b6dab5 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,6 +43,7 @@ import Language.PureScript.Backend.IR.Types , isNonRecursiveLiteral , lets , literalBool + , paramName , rewriteExpBottomUpM , setAnn , substituteCopyM @@ -354,7 +356,6 @@ optimizedExpressionM = ( constantFolding `thenRewrite` reduceObjectProp `thenRewrite` betaReduce - `thenRewrite` betaReduceUnusedParams `thenRewrite` removeUnreachableThenBranch `thenRewrite` removeUnreachableElseBranch `thenRewrite` removeIfWithEqualBranches @@ -437,20 +438,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] ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ @@ -495,13 +530,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/test/Language/PureScript/Backend/IR/Optimizer/Spec.hs b/test/Language/PureScript/Backend/IR/Optimizer/Spec.hs index 72250709..4cd5321e 100644 --- a/test/Language/PureScript/Backend/IR/Optimizer/Spec.hs +++ b/test/Language/PureScript/Backend/IR/Optimizer/Spec.hs @@ -31,8 +31,10 @@ import Language.PureScript.Backend.IR.Types , Module (..) , RawExp (..) , abstraction + , abstractionN , alphaEq , application + , applicationN , countFreeRef , eq , getAnn @@ -139,6 +141,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" From 4a337f92462674f7ba3499bb42fdb8e7c4bfddbe Mon Sep 17 00:00:00 2001 From: Yura Lazarev Date: Tue, 7 Jul 2026 18:17:13 +0200 Subject: [PATCH 3/6] feat: flatten deep n-ary application chains and spines MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit FlattenDeepBinds generalizes both strategies to the n-ary AppN shapes an uncurrying pass emits. Strategy A recognises a chain step through either call shape — the curried (f action) (\x -> rest) and the n-ary f(action, \x -> rest) of an uncurried worker — and rebuilds each step through a shape-preserving closure, since w(a, k) and w(a)(k) denote different programs (Note [n-ary application]). Strategy B's spineDepth, decompose and Frame follow the deepest operand of a call across the callee and every argument position, so a deep spine running through n-ary calls is measured and sealed into $tmp segments the same way as a curried one. Without this, a saturated two-argument CPS chain (Golden.LongCallbackChain) or a deep applicative spine (Golden.LongApplyChain) would stop being recognised the moment uncurrying rewrites their sites to n-ary calls, and the chunk would fail the Lua 5.1 parser-nesting check. The new spec cases fail against the previous unary-only implementation and pin both the recognition and the call-shape preservation. --- .../PureScript/Backend/IR/FlattenDeepBinds.hs | 105 ++++++++++++------ .../Backend/IR/FlattenDeepBinds/Spec.hs | 75 ++++++++++++- 2 files changed, 144 insertions(+), 36 deletions(-) diff --git a/lib/Language/PureScript/Backend/IR/FlattenDeepBinds.hs b/lib/Language/PureScript/Backend/IR/FlattenDeepBinds.hs index a9ec36fa..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 (..)) @@ -203,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 @@ -222,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. @@ -260,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 @@ -308,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 @@ -329,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 @@ -405,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/test/Language/PureScript/Backend/IR/FlattenDeepBinds/Spec.hs b/test/Language/PureScript/Backend/IR/FlattenDeepBinds/Spec.hs index 5e627e8b..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 @@ -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 From dd71a294bfc2607a7ff68e3e874e0ad89705d5e8 Mon Sep 17 00:00:00 2001 From: Yura Lazarev Date: Tue, 7 Jul 2026 18:32:38 +0200 Subject: [PATCH 4/6] feat: uncurry functions via a worker/wrapper split (#24) MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit Every binding — top-level or Let-bound — whose right-hand side is a manifest chain of n ≥ 2 unary lambdas, and which has at least one saturated call site, splits into an n-ary worker f$w holding the original body and a curried wrapper f delegating to it. Saturated sites (nested unary spines of exactly n arguments) become direct worker calls; partial applications and higher-order uses keep going through the wrapper, so semantics is unchanged by construction — the worker body still runs only on full saturation. The saturated-site precondition matters: without it a split with no sites would leave a permanent wrapper→worker indirection, because the use-once revert path does not reach recursive-group members or a local worker referenced from its sibling wrapper. Top-level candidates are collected module-wide (references are Imported after qualifyTopRefs); local candidates are collected, counted and rewritten per top-level site, since GUC is only per-site. Minted names ($w, $p, $u) are deterministic and deliberately bypass the shared supply so downstream $kont/$tmp numbering stays put. The pass runs between the post-merge and a new post-uncurry optimize+dce fixpoint (which drops unreferenced wrappers and reduces worker pastes), under the GUC + WellApplied contracts. The Golden.Uncurry oracle runs saturated, partial, higher-order, mutually recursive, locally recursive, over-applied and unused-param shapes through lua; every pre-existing eval oracle is byte-identical. Structural goldens: mutual recursion now calls worker-to-worker, local loops lose their wrapper entirely (DCE), LongCallbackChain's CPS chain is rebuilt from n-ary steps within the nesting cap. --- .../PureScript/Backend/IR/Optimizer.hs | 18 + lib/Language/PureScript/Backend/IR/Uncurry.hs | 391 + pslua.cabal | 2 + .../PureScript/Backend/IR/Uncurry/Spec.hs | 304 + test/Main.hs | 2 + .../output/Golden.ArrayOfUnits.Test/golden.ir | 136 +- .../Golden.ArrayOfUnits.Test/golden.lua | 12 +- .../Golden.BugListGenericEq.Test/golden.ir | 416 +- .../Golden.BugListGenericEq.Test/golden.lua | 47 +- .../Golden.DerivedFunctor.Test/golden.ir | 151 +- .../Golden.DerivedFunctor.Test/golden.lua | 20 +- test/ps/output/Golden.FloatIn.Test/golden.ir | 178 +- test/ps/output/Golden.FloatIn.Test/golden.lua | 38 +- .../Golden.GenericEqTwoTypes.Test/golden.ir | 714 +- .../Golden.GenericEqTwoTypes.Test/golden.lua | 85 +- .../Golden.LongApplyChain.Test/golden.ir | 6566 +++---- .../Golden.LongApplyChain.Test/golden.lua | 33 +- .../Golden.LongBindFlipped.Test/golden.ir | 6292 +++---- .../Golden.LongBindFlipped.Test/golden.lua | 33 +- .../Golden.LongCallbackChain.Test/golden.ir | 8067 ++++----- .../Golden.LongCallbackChain.Test/golden.lua | 633 +- .../Golden.LongMaybeBind.Test/golden.ir | 14873 ++++++++------- .../Golden.LongMaybeBind.Test/golden.lua | 622 +- .../Golden.LongMaybeBindModule.Test/golden.ir | 15058 ++++++++-------- .../golden.lua | 622 +- .../Golden.LongWriterBind.Test/golden.ir | 560 +- .../Golden.LongWriterBind.Test/golden.lua | 104 +- .../output/Golden.MaybeChain.Test/golden.ir | 196 +- .../output/Golden.MaybeChain.Test/golden.lua | 38 +- .../Golden.MaybeChainModule.Test/golden.ir | 186 +- .../Golden.MaybeChainModule.Test/golden.lua | 38 +- .../Golden.NameShadowing.Test/golden.ir | 53 +- .../Golden.NameShadowing.Test/golden.lua | 10 +- .../Golden.RecursiveBindings.Test/golden.ir | 42 +- .../Golden.RecursiveBindings.Test/golden.lua | 8 +- .../Golden.StringCodePoints.Test/golden.ir | 988 +- .../Golden.StringCodePoints.Test/golden.lua | 163 +- .../ps/output/Golden.Unbinding.Test/golden.ir | 34 +- .../output/Golden.Unbinding.Test/golden.lua | 10 +- .../ps/output/Golden.Uncurry.Test/corefn.json | 1 + .../Golden.Uncurry.Test/eval/.gitignore | 1 + .../Golden.Uncurry.Test/eval/golden.txt | 13 + test/ps/output/Golden.Uncurry.Test/golden.ir | 852 + test/ps/output/Golden.Uncurry.Test/golden.lua | 179 + test/ps/src/Golden/Uncurry/Test.purs | 61 + 45 files changed, 29094 insertions(+), 29756 deletions(-) create mode 100644 lib/Language/PureScript/Backend/IR/Uncurry.hs create mode 100644 test/Language/PureScript/Backend/IR/Uncurry/Spec.hs create mode 100644 test/ps/output/Golden.Uncurry.Test/corefn.json create mode 100644 test/ps/output/Golden.Uncurry.Test/eval/.gitignore create mode 100644 test/ps/output/Golden.Uncurry.Test/eval/golden.txt create mode 100644 test/ps/output/Golden.Uncurry.Test/golden.ir create mode 100644 test/ps/output/Golden.Uncurry.Test/golden.lua create mode 100644 test/ps/src/Golden/Uncurry/Test.purs diff --git a/lib/Language/PureScript/Backend/IR/Optimizer.hs b/lib/Language/PureScript/Backend/IR/Optimizer.hs index 24b6dab5..b7ae4003 100644 --- a/lib/Language/PureScript/Backend/IR/Optimizer.hs +++ b/lib/Language/PureScript/Backend/IR/Optimizer.hs @@ -52,6 +52,7 @@ import Language.PureScript.Backend.IR.Types , pattern Abs , pattern App ) +import Language.PureScript.Backend.IR.Uncurry (uncurryWorkerWrapper) import Language.PureScript.Backend.IR.Uniquify (uniquifyNames) optimizedUberModule ∷ UberModule → UberModule @@ -82,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 @@ -132,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 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/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/Uncurry/Spec.hs b/test/Language/PureScript/Backend/IR/Uncurry/Spec.hs new file mode 100644 index 00000000..53175258 --- /dev/null +++ b/test/Language/PureScript/Backend/IR/Uncurry/Spec.hs @@ -0,0 +1,304 @@ +module Language.PureScript.Backend.IR.Uncurry.Spec where + +import Data.Set qualified as Set +import Language.PureScript.Backend.IR.Inliner qualified as Inline +import Language.PureScript.Backend.IR.Linker (UberModule (..)) +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) + +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 + +-------------------------------------------------------------------------------- +-- 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 + } 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.ArrayOfUnits.Test/golden.ir b/test/ps/output/Golden.ArrayOfUnits.Test/golden.ir index 5a15e554..41bff2b9 100644 --- a/test/ps/output/Golden.ArrayOfUnits.Test/golden.ir +++ b/test/ps/output/Golden.ArrayOfUnits.Test/golden.ir @@ -343,22 +343,20 @@ UberModule ] ), Standalone ( QName - { qnameModuleName = ModuleName "Effect.Console", qnameName = Name "logShow" }, AbsN Nothing - ( ParamNamed Nothing ( Name "dictShow" ) :| [] ) - ( AbsN 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" ) ) :| [] ) :| [] ) ) ) @@ -459,20 +457,18 @@ UberModule ) ) ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Effect.Console" ) ( Name "logShow" ) ) - ) - ( LiteralObject Nothing - [ - ( PropName "show", AbsN 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" ) ) ] + ) :| [] ) ) :| [] ) @@ -499,58 +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" ) - ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "c$372$881" ) :| [] ) ( AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( AppN 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.BugListGenericEq.Test/golden.ir b/test/ps/output/Golden.BugListGenericEq.Test/golden.ir index 4df83c0a..c03b2227 100644 --- a/test/ps/output/Golden.BugListGenericEq.Test/golden.ir +++ b/test/ps/output/Golden.BugListGenericEq.Test/golden.ir @@ -103,101 +103,97 @@ UberModule ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "dict" ) ) ) ( PropName "eq" ) ) ), Standalone ( QName - { qnameModuleName = ModuleName "Data.Eq", qnameName = Name "eqRowCons" }, AbsN Nothing - ( ParamNamed Nothing ( Name "dictEqRecord" ) :| [] ) - ( AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "dictIsSymbol" ) :| [] ) - ( AbsN Nothing - ( 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" ) ) :| [] ) - ) - ] + { 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 @@ -735,90 +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", AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( AbsN Nothing - ( ParamUnused Nothing :| [] ) ( LiteralBool Nothing True ) - ) - ) - ) - ] :| [] - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Prim" ) - ( Name "undefined" ) - ) :| [] - ) - ) - ( LiteralObject Nothing - [ - ( PropName "reflectSymbol", AbsN 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", AbsN Nothing ( ParamUnused Nothing :| [] ) ( LiteralString Nothing "head" ) ) - ] :| [] - ) - ) - ( Ref Nothing - ( Local - ( Name "dictEq" ) - ) :| [] + ], Ref Nothing + ( Local + ( Name "dictEq" ) + ) + ] ) :| [] ) ) @@ -893,21 +869,18 @@ UberModule ) ), Standalone ( QName - { qnameModuleName = ModuleName "Golden.BugListGenericEq.Test", qnameName = Name "cons" + { qnameModuleName = ModuleName "Golden.BugListGenericEq.Test", qnameName = Name "cons$w" }, AbsN Nothing - ( ParamNamed Nothing ( Name "head" ) :| [] ) - ( AbsN 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" ) ) ) - ] :| [] - ) + ( 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" ) ) ) + ] :| [] ) ) ) @@ -919,8 +892,20 @@ 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", AbsN Nothing ( ParamUnused Nothing :| [] ) @@ -962,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" ) + ) + ] + ) + ] ) :| [] ) :| [] ) @@ -1032,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.DerivedFunctor.Test/golden.ir b/test/ps/output/Golden.DerivedFunctor.Test/golden.ir index b440ea44..20e29b35 100644 --- a/test/ps/output/Golden.DerivedFunctor.Test/golden.ir +++ b/test/ps/output/Golden.DerivedFunctor.Test/golden.ir @@ -522,25 +522,22 @@ UberModule ) ), Standalone ( QName - { qnameModuleName = ModuleName "Golden.DerivedFunctor.Test", qnameName = Name "fromRight" + { qnameModuleName = ModuleName "Golden.DerivedFunctor.Test", qnameName = Name "fromRight$w" }, AbsN Nothing - ( ParamNamed Nothing ( Name "fallback" ) :| [] ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "v" ) :| [] ) + ( 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" ) ) ) ) @@ -558,8 +555,20 @@ 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" ) ) @@ -574,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" ) ) - ) - ( AbsN 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 :| [] ) :| [] - ) :| [] + ] ) :| [] ) ) @@ -619,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" ) ) - ) - ( AbsN 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" :| [] ) :| [] - ) :| [] + ] ) :| [] ) ) 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.FloatIn.Test/golden.ir b/test/ps/output/Golden.FloatIn.Test/golden.ir index 2a4a1196..7a850666 100644 --- a/test/ps/output/Golden.FloatIn.Test/golden.ir +++ b/test/ps/output/Golden.FloatIn.Test/golden.ir @@ -298,53 +298,41 @@ UberModule ) ), Standalone ( QName - { qnameModuleName = ModuleName "Golden.FloatIn.Test", qnameName = Name "pickShared" + { qnameModuleName = ModuleName "Golden.FloatIn.Test", qnameName = Name "pickShared$w" }, AbsN Nothing - ( ParamNamed Nothing ( Name "useIt" ) :| [] ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "n" ) :| [] ) - ( IfThenElse Nothing - ( Ref Nothing ( Local ( Name "useIt" ) ) ) + ( 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", AbsN 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 ) @@ -353,10 +341,17 @@ 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 @@ -383,32 +378,29 @@ UberModule ) ), Standalone ( QName - { qnameModuleName = ModuleName "Golden.FloatIn.Test", qnameName = Name "pick" + { qnameModuleName = ModuleName "Golden.FloatIn.Test", qnameName = Name "pick$w" }, AbsN Nothing - ( ParamNamed Nothing ( Name "useIt" ) :| [] ) - ( AbsN 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" ) ) :| [] ) + ( 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 = @@ -420,11 +412,33 @@ 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", AbsN Nothing ( ParamUnused Nothing :| [] ) @@ -436,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" ) ) :| [] ) @@ -454,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" ) ) :| [] ) @@ -471,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" ) ) :| [] ) @@ -488,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.GenericEqTwoTypes.Test/golden.ir b/test/ps/output/Golden.GenericEqTwoTypes.Test/golden.ir index bc74044c..d1498cae 100644 --- a/test/ps/output/Golden.GenericEqTwoTypes.Test/golden.ir +++ b/test/ps/output/Golden.GenericEqTwoTypes.Test/golden.ir @@ -112,101 +112,97 @@ UberModule ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "dict" ) ) ) ( PropName "eq" ) ) ), Standalone ( QName - { qnameModuleName = ModuleName "Data.Eq", qnameName = Name "eqRowCons" }, AbsN Nothing - ( ParamNamed Nothing ( Name "dictEqRecord" ) :| [] ) - ( AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "dictIsSymbol" ) :| [] ) - ( AbsN Nothing - ( 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" ) ) :| [] ) - ) - ] + { 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 @@ -654,22 +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", AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( AbsN Nothing + }, 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 :| [] ) ( LiteralBool Nothing True ) ) + ( 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" @@ -728,25 +732,22 @@ UberModule [ FieldName "value0" ] ), Standalone ( QName - { qnameModuleName = ModuleName "Golden.GenericEqTwoTypes.Test", qnameName = Name "node" + { qnameModuleName = ModuleName "Golden.GenericEqTwoTypes.Test", qnameName = Name "node$w" }, AbsN Nothing - ( ParamNamed Nothing ( Name "left" ) :| [] ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "value" ) :| [] ) - ( AbsN 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" ) ) ) - ] :| [] - ) - ) + ( 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 @@ -930,95 +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", AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( LiteralString Nothing "value" ) - ) - ] :| [] - ) - ) - ( Ref Nothing - ( Local ( Name "dictEq" ) ) :| [] - ) :| [] - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Prim" ) - ( Name "undefined" ) - ) :| [] - ) - ) - ( LiteralObject Nothing - [ - ( PropName "reflectSymbol", AbsN 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", 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" ) ) :| [] ) + ] ) :| [] ) :| [] ) :| [] @@ -1101,57 +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", AbsN 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", AbsN Nothing ( ParamUnused Nothing :| [] ) ( LiteralString Nothing "head" ) ) - ] :| [] - ) - ) - ( Ref Nothing ( Local ( Name "dictEq" ) ) :| [] ) :| [] + ], Ref Nothing + ( Local ( Name "dictEq" ) ) + ] + ) :| [] ) :| [] ) :| [] ) :| [] @@ -1180,21 +1148,18 @@ UberModule ) ), Standalone ( QName - { qnameModuleName = ModuleName "Golden.GenericEqTwoTypes.Test", qnameName = Name "cons" + { qnameModuleName = ModuleName "Golden.GenericEqTwoTypes.Test", qnameName = Name "cons$w" }, AbsN Nothing - ( ParamNamed Nothing ( Name "head" ) :| [] ) - ( AbsN 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" ) ) ) - ] :| [] - ) + ( 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" ) ) ) + ] :| [] ) ) ) @@ -1206,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" ) ) @@ -1215,8 +1192,26 @@ 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", AbsN Nothing ( ParamUnused Nothing :| [] ) @@ -1233,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" ) + ) + ] + ) + ] ) :| [] ) :| [] ) @@ -1302,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" ) ) + ] ) :| [] ) :| [] ) @@ -1351,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" ) - ) :| [] - ) :| [] + ] ) :| [] ) :| [] ) @@ -1456,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.LongApplyChain.Test/golden.ir b/test/ps/output/Golden.LongApplyChain.Test/golden.ir index 5608fb16..657c7e05 100644 --- a/test/ps/output/Golden.LongApplyChain.Test/golden.ir +++ b/test/ps/output/Golden.LongApplyChain.Test/golden.ir @@ -119,46 +119,43 @@ UberModule ] ), Standalone ( QName - { qnameModuleName = ModuleName "Golden.LongApplyChain.Test", qnameName = Name "applySecond" + { qnameModuleName = ModuleName "Golden.LongApplyChain.Test", qnameName = Name "applySecond$w" }, AbsN Nothing - ( ParamNamed Nothing ( Name "a$131" ) :| [] ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "b$132" ) :| [] ) + ( 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" ) ) - ) - ( AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( AbsN 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 @@ -167,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 @@ -325,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 + ( 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 - ( Imported - ( ModuleName "Golden.LongApplyChain.Test" ) - ( Name "applySecond" ) + ( 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$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 + ( 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 - ( Imported - ( ModuleName "Golden.LongApplyChain.Test" ) - ( Name "applySecond" ) + ( 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$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 + ( 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 - ( Imported - ( ModuleName "Golden.LongApplyChain.Test" ) - ( Name "applySecond" ) + ( 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$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 - ( 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 "$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" ) + ( 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 - ( 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 :| [] ) + ] ) ) ) 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 7d31ffc9..cc8eaed7 100644 --- a/test/ps/output/Golden.LongBindFlipped.Test/golden.ir +++ b/test/ps/output/Golden.LongBindFlipped.Test/golden.ir @@ -39,35 +39,32 @@ UberModule [ FieldName "value0" ] ), Standalone ( QName - { qnameModuleName = ModuleName "Golden.LongBindFlipped.Test", qnameName = Name "bindFlipped" + { qnameModuleName = ModuleName "Golden.LongBindFlipped.Test", qnameName = Name "bindFlipped$w" }, AbsN Nothing - ( ParamNamed Nothing ( Name "b$135$275" ) :| [] ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "a$136$276" ) :| [] ) + ( 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 @@ -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" ) ) :| [] - ) :| [] - ) :| [] - ) :| [] - ) :| [] - ) :| [] - ) :| [] - ) :| [] - ) :| [] - ) :| [] - ) :| [] - ) :| [] - ) :| [] - ) :| [] - ) :| [] - ) :| [] - ) :| [] - ) :| [] - ) :| [] - ) :| [] - ) :| [] + ] + ) + ] + ) + ] + ) + ] + ) + ] + ) + ] + ) + ] + ) + ] + ) + ] + ) + ] ) ) ) 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 87b54ee5..d3e08c5d 100644 --- a/test/ps/output/Golden.LongCallbackChain.Test/golden.ir +++ b/test/ps/output/Golden.LongCallbackChain.Test/golden.ir @@ -27,90 +27,100 @@ UberModule ), RecursiveGroup ( ( QName - { qnameModuleName = ModuleName "Golden.LongCallbackChain.Test", qnameName = Name "withInc" + { qnameModuleName = ModuleName "Golden.LongCallbackChain.Test", qnameName = Name "withInc$w" }, AbsN Nothing - ( ParamNamed Nothing ( Name "n" ) :| [] ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "k" ) :| [] ) + ( 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" @@ -119,336 +129,331 @@ UberModule ( 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" ) ) ) - ( AbsN 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" ) ) :| [] ) - ) - ( AbsN 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" ) ) - ( AbsN 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" ) ) :| [] ) ) - ( AbsN 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" ) ) :| [] ) - ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "x285" ) :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) - ) - ) - ( Ref Nothing ( Local ( Name "x285" ) ) :| [] ) - ) - ( AbsN 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" ) ) :| [] ) ) - ( AbsN 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" ) ) :| [] ) - ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "x288" ) :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) - ) - ) - ( Ref Nothing ( Local ( Name "x288" ) ) :| [] ) - ) - ( AbsN 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" ) ) :| [] ) ) - ( AbsN 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" ) ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x291" ) :| [] - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) - ) - ) - ( Ref Nothing - ( Local ( Name "x291" ) ) :| [] - ) - ) - ( AbsN Nothing + ( Local ( Name "x287" ) ) :| + [ AbsN Nothing ( ParamNamed Nothing - ( Name "x292" ) :| [] + ( Name "x288" ) :| [] ) ( 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" ) ) ) - ( AbsN 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" ) - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x294" ) :| [] - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x294" ) - ) :| [] - ) - ) - ( AbsN 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" ) ) ) - ( AbsN 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" ) - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x297" ) :| [] - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x297" ) - ) :| [] - ) - ) - ( AbsN 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" ) ) ) - ( AbsN 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" ) - ) :| [] - ) - ) - ( AbsN 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" ) - ) - ) :| [] ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) ) ) :| @@ -456,5214 +461,4894 @@ UberModule ( 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" ) ) ) - ( AbsN 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" ) ) :| [] ) - ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "x242" ) :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) - ) - ) - ( Ref Nothing ( Local ( Name "x242" ) ) :| [] ) - ) - ( AbsN 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" ) ) :| [] ) ) - ( AbsN 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" ) ) :| [] ) - ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "x245" ) :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) - ) - ) - ( Ref Nothing ( Local ( Name "x245" ) ) :| [] ) - ) - ( AbsN 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" ) ) :| [] ) ) - ( AbsN 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" ) ) :| [] ) - ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "x248" ) :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) - ) - ) - ( Ref Nothing ( Local ( Name "x248" ) ) :| [] ) - ) - ( AbsN 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" ) ) ) - ( AbsN 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" ) ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x251" ) :| [] - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) - ) - ) - ( Ref Nothing - ( Local ( Name "x251" ) ) :| [] - ) - ) - ( AbsN 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" ) ) ) - ( AbsN 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" ) - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x254" ) :| [] - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x254" ) - ) :| [] - ) - ) - ( AbsN 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" ) ) ) - ( AbsN 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" ) - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x257" ) :| [] - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x257" ) - ) :| [] - ) - ) - ( AbsN 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" ) - ) :| [] + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongCallbackChain.Test" ) + ( Name "withInc$w" ) ) ) - ( AbsN 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" ) - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x260" ) :| [] - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x260" ) - ) :| [] - ) - ) - ( AbsN 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" ) ) ) - ( AbsN 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" ) - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x263" ) :| [] - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x263" ) - ) :| [] - ) - ) - ( AbsN 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" ) ) ) - ( AbsN 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" ) - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x266" ) :| [] - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x266" ) - ) :| [] - ) - ) - ( AbsN 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" ) ) ) - ( AbsN 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" ) - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x269" ) :| [] - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x269" ) - ) :| [] - ) - ) - ( AbsN 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" ) ) ) - ( AbsN 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" ) - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x272" ) :| [] - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x272" ) - ) :| [] - ) - ) - ( AbsN 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" ) ) ) - ( AbsN 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" ) - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x275" ) :| [] - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x275" ) - ) :| [] - ) - ) - ( AbsN 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" ) ) ) - ( AbsN 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" ) - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x278" ) :| [] - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x278" ) - ) :| [] - ) - ) - ( AbsN 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" ) ) ) - ( AbsN 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", 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" ) ) ) - ( AbsN 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" ) ) :| [] ) - ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "x202" ) :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) - ) - ) - ( Ref Nothing ( Local ( Name "x202" ) ) :| [] ) - ) - ( AbsN 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" ) ) :| [] ) ) - ( AbsN 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" ) ) :| [] ) - ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "x205" ) :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) - ) - ) - ( Ref Nothing ( Local ( Name "x205" ) ) :| [] ) - ) - ( AbsN 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" ) ) :| [] ) ) - ( AbsN 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" ) ) :| [] ) - ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "x208" ) :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) - ) - ) - ( Ref Nothing ( Local ( Name "x208" ) ) :| [] ) - ) - ( AbsN 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" ) ) ) - ( AbsN 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" ) ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x211" ) :| [] - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) - ) - ) - ( Ref Nothing - ( Local ( Name "x211" ) ) :| [] - ) - ) - ( AbsN 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" ) ) ) - ( AbsN 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" ) - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x214" ) :| [] - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x214" ) - ) :| [] - ) - ) - ( AbsN 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" ) ) ) - ( AbsN 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" ) - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x217" ) :| [] - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x217" ) - ) :| [] - ) - ) - ( AbsN 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" ) ) ) - ( AbsN 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" ) - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x220" ) :| [] - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x220" ) - ) :| [] - ) - ) - ( AbsN 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" ) ) ) - ( AbsN 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" ) - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x223" ) :| [] - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x223" ) - ) :| [] - ) - ) - ( AbsN 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" ) ) ) - ( AbsN 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" ) - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x226" ) :| [] - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x226" ) - ) :| [] - ) - ) - ( AbsN 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" ) ) ) - ( AbsN 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" ) - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x229" ) :| [] - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x229" ) - ) :| [] - ) - ) - ( AbsN 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" ) ) ) - ( AbsN 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" ) - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x232" ) :| [] - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x232" ) - ) :| [] - ) - ) - ( AbsN 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" ) ) ) - ( AbsN 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" ) - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x235" ) :| [] - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x235" ) - ) :| [] - ) - ) - ( AbsN 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" ) ) ) - ( AbsN 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" ) - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x238" ) :| [] - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x238" ) - ) :| [] - ) - ) - ( AbsN 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" ) ) ) - ( AbsN 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", 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" ) ) ) - ( AbsN 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" ) - ) - ) - ( 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 ( Local ( Name "x162" ) ) :| [] ) + ( Imported + ( ModuleName "Golden.LongCallbackChain.Test" ) + ( Name "withInc$w" ) ) - ( AbsN 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" ) ) :| [] ) ) - ( AbsN 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" ) ) :| [] ) - ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "x165" ) :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) - ) - ) - ( Ref Nothing ( Local ( Name "x165" ) ) :| [] ) - ) - ( AbsN 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" ) ) :| [] ) ) - ( AbsN 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" ) ) :| [] ) - ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "x168" ) :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) - ) - ) - ( Ref Nothing ( Local ( Name "x168" ) ) :| [] ) - ) - ( AbsN 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" ) ) ) - ( AbsN 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" ) ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x171" ) :| [] - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) - ) - ) - ( Ref Nothing - ( Local ( Name "x171" ) ) :| [] - ) - ) - ( AbsN 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" ) ) ) - ( AbsN 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" ) - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x174" ) :| [] - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x174" ) - ) :| [] - ) - ) - ( AbsN 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" ) ) ) - ( AbsN 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" ) - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x177" ) :| [] - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x177" ) - ) :| [] - ) - ) - ( AbsN 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" ) ) ) - ( AbsN 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" ) - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x180" ) :| [] - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x180" ) - ) :| [] - ) - ) - ( AbsN 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" ) ) ) - ( AbsN 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" ) - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x183" ) :| [] - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x183" ) - ) :| [] - ) - ) - ( AbsN 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" ) ) ) - ( AbsN 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" ) - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x186" ) :| [] - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x186" ) - ) :| [] - ) - ) - ( AbsN 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" ) ) ) - ( AbsN 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" ) - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x189" ) :| [] - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x189" ) - ) :| [] - ) - ) - ( AbsN 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" ) ) ) - ( AbsN 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" ) - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x192" ) :| [] - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x192" ) - ) :| [] - ) - ) - ( AbsN 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" ) ) ) - ( AbsN 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" ) - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x195" ) :| [] - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x195" ) - ) :| [] - ) - ) - ( AbsN 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" ) ) ) - ( AbsN 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" ) - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x198" ) :| [] - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x198" ) - ) :| [] - ) - ) - ( AbsN 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" ) ) ) - ( AbsN 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", 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" ) ) ) - ( AbsN 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" ) ) :| [] ) - ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "x122" ) :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) - ) - ) - ( Ref Nothing ( Local ( Name "x122" ) ) :| [] ) - ) - ( AbsN 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" ) ) :| [] ) ) - ( AbsN 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" ) ) :| [] ) - ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "x125" ) :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) - ) - ) - ( Ref Nothing ( Local ( Name "x125" ) ) :| [] ) - ) - ( AbsN 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" ) ) :| [] ) ) - ( AbsN 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" ) ) :| [] ) - ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "x128" ) :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) - ) - ) - ( Ref Nothing ( Local ( Name "x128" ) ) :| [] ) - ) - ( AbsN 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" ) ) ) - ( AbsN 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" ) ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x131" ) :| [] - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) - ) - ) - ( Ref Nothing - ( Local ( Name "x131" ) ) :| [] - ) - ) - ( AbsN 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" ) ) ) - ( AbsN 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" ) - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x134" ) :| [] - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x134" ) - ) :| [] - ) - ) - ( AbsN 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" ) ) ) - ( AbsN 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" ) - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x137" ) :| [] - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x137" ) - ) :| [] - ) - ) - ( AbsN 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" ) ) ) - ( AbsN 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" ) - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x140" ) :| [] - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x140" ) - ) :| [] - ) - ) - ( AbsN 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" ) ) ) - ( AbsN 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" ) - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x143" ) :| [] - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x143" ) - ) :| [] - ) - ) - ( AbsN 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" ) ) ) - ( AbsN 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" ) - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x146" ) :| [] - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x146" ) - ) :| [] - ) - ) - ( AbsN 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" ) ) ) - ( AbsN 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" ) - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x149" ) :| [] - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x149" ) - ) :| [] - ) - ) - ( AbsN 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" ) ) ) - ( AbsN 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" ) - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x152" ) :| [] - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x152" ) - ) :| [] - ) - ) - ( AbsN 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" ) ) ) - ( AbsN 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" ) - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x155" ) :| [] - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x155" ) - ) :| [] - ) - ) - ( AbsN 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" ) ) ) - ( AbsN 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" ) - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x158" ) :| [] - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x158" ) - ) :| [] - ) - ) - ( AbsN 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" ) ) ) - ( AbsN 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", 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" ) ) ) - ( AbsN 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" ) ) :| [] ) - ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "x82" ) :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) - ) - ) - ( Ref Nothing ( Local ( Name "x82" ) ) :| [] ) - ) - ( AbsN 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" ) ) :| [] ) ) - ( AbsN 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" ) ) :| [] ) - ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "x85" ) :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) - ) - ) - ( Ref Nothing ( Local ( Name "x85" ) ) :| [] ) - ) - ( AbsN 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" ) ) :| [] ) ) - ( AbsN 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" ) ) :| [] ) - ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "x88" ) :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) - ) - ) - ( Ref Nothing ( Local ( Name "x88" ) ) :| [] ) - ) - ( AbsN 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" ) ) :| [] ) ) - ( AbsN 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" ) ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x91" ) :| [] - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) - ) - ) - ( Ref Nothing - ( Local ( Name "x91" ) ) :| [] - ) - ) - ( AbsN Nothing + ( Local ( Name "x87" ) ) :| + [ AbsN Nothing ( ParamNamed Nothing - ( Name "x92" ) :| [] + ( Name "x88" ) :| [] ) ( 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" ) ) ) - ( AbsN 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" ) - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x94" ) :| [] - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x94" ) - ) :| [] - ) - ) - ( AbsN 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" ) ) ) - ( AbsN 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" ) - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x97" ) :| [] - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x97" ) - ) :| [] - ) - ) - ( AbsN 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" ) ) ) - ( AbsN 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" ) - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x100" ) :| [] - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x100" ) - ) :| [] - ) - ) - ( AbsN 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" ) ) ) - ( AbsN 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" ) - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x103" ) :| [] - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x103" ) - ) :| [] - ) - ) - ( AbsN 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" ) ) ) - ( AbsN 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" ) - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x106" ) :| [] - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x106" ) - ) :| [] - ) - ) - ( AbsN 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" ) ) ) - ( AbsN 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" ) - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x109" ) :| [] - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x109" ) - ) :| [] - ) - ) - ( AbsN 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" ) ) ) - ( AbsN 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" ) - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x112" ) :| [] - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x112" ) - ) :| [] - ) - ) - ( AbsN 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" ) ) ) - ( AbsN 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" ) - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x115" ) :| [] - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x115" ) - ) :| [] - ) - ) - ( AbsN 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" ) ) ) - ( AbsN 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" ) - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x118" ) :| [] - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x118" ) - ) :| [] - ) - ) - ( AbsN 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" ) ) ) - ( AbsN 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", 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" ) ) ) - ( AbsN 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" ) ) :| [] ) - ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "x42" ) :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) - ) - ) - ( Ref Nothing ( Local ( Name "x42" ) ) :| [] ) - ) - ( AbsN 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" ) ) :| [] ) ) - ( AbsN 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" ) ) :| [] ) - ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "x45" ) :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) - ) - ) - ( Ref Nothing ( Local ( Name "x45" ) ) :| [] ) - ) - ( AbsN 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" ) ) :| [] ) ) - ( AbsN 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" ) ) :| [] ) - ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "x48" ) :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) - ) - ) - ( Ref Nothing ( Local ( Name "x48" ) ) :| [] ) - ) - ( AbsN 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" ) ) :| [] ) ) - ( AbsN 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" ) ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x51" ) :| [] - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) - ) - ) - ( Ref Nothing - ( Local ( Name "x51" ) ) :| [] - ) - ) - ( AbsN Nothing + ( Local ( Name "x47" ) ) :| + [ AbsN Nothing ( ParamNamed Nothing - ( Name "x52" ) :| [] + ( Name "x48" ) :| [] ) ( 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" ) ) ) - ( AbsN 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" ) - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x54" ) :| [] - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x54" ) - ) :| [] - ) - ) - ( AbsN 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" ) ) ) - ( AbsN 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" ) - ) :| [] - ) - ) - ( AbsN 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" ) ) - ( AbsN 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" ) ) ) - ( AbsN 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" ) - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x60" ) :| [] - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x60" ) - ) :| [] - ) - ) - ( AbsN 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" ) ) ) - ( AbsN 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" ) - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x63" ) :| [] - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x63" ) - ) :| [] - ) - ) - ( AbsN 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" ) ) ) - ( AbsN 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" ) - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x66" ) :| [] - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x66" ) - ) :| [] - ) - ) - ( AbsN 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" ) ) ) - ( AbsN 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" ) - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x69" ) :| [] - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x69" ) - ) :| [] - ) - ) - ( AbsN 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" ) ) ) - ( AbsN 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" ) - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x72" ) :| [] - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x72" ) - ) :| [] - ) - ) - ( AbsN 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" ) ) ) - ( AbsN 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" ) - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x75" ) :| [] - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x75" ) - ) :| [] - ) - ) - ( AbsN 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" ) ) ) - ( AbsN 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" ) - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x78" ) :| [] - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x78" ) - ) :| [] - ) - ) - ( AbsN 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" ) ) ) - ( AbsN 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" ) ) ) - ( AbsN 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" ) ) :| [] ) - ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "x2" ) :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) ( Name "withInc" ) ) - ) - ( Ref Nothing ( Local ( Name "x2" ) ) :| [] ) - ) - ( AbsN 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" ) ) :| [] ) ) - ( AbsN 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" ) ) :| [] ) - ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "x5" ) :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) - ) - ) - ( Ref Nothing ( Local ( Name "x5" ) ) :| [] ) - ) - ( AbsN 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" ) ) :| [] ) ) - ( AbsN 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" ) ) :| [] ) - ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "x8" ) :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) - ) - ) - ( Ref Nothing ( Local ( Name "x8" ) ) :| [] ) - ) - ( AbsN 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" ) ) :| [] ) ) - ( AbsN 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" ) ) :| [] ) - ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "x11" ) :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) - ) - ) - ( Ref Nothing - ( Local ( Name "x11" ) ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "x12" ) :| [] ) + ( Ref Nothing + ( Local ( Name "x7" ) ) :| + [ AbsN Nothing + ( ParamNamed Nothing ( Name "x8" ) :| [] ) ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) - ) - ) - ( Ref Nothing - ( Local ( Name "x12" ) ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongCallbackChain.Test" ) + ( Name "withInc$w" ) ) ) - ( AbsN 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" ) ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x14" ) :| [] - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) - ) - ) - ( Ref Nothing - ( Local ( Name "x14" ) ) :| [] - ) - ) - ( AbsN 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" ) ) ) - ( AbsN 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" ) - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x17" ) :| [] - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x17" ) - ) :| [] - ) - ) - ( AbsN 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" ) ) ) - ( AbsN 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" ) - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x20" ) :| [] - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x20" ) - ) :| [] - ) - ) - ( AbsN 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" ) ) ) - ( AbsN 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" ) - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x23" ) :| [] - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x23" ) - ) :| [] - ) - ) - ( AbsN 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" ) ) ) - ( AbsN 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" ) - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x26" ) :| [] - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x26" ) - ) :| [] - ) - ) - ( AbsN 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" ) ) ) - ( AbsN 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" ) - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x29" ) :| [] - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x29" ) - ) :| [] - ) - ) - ( AbsN 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" ) ) ) - ( AbsN 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" ) - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x32" ) :| [] - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x32" ) - ) :| [] - ) - ) - ( AbsN 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" ) ) ) - ( AbsN 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" ) - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x35" ) :| [] - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x35" ) - ) :| [] - ) - ) - ( AbsN 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" ) ) ) - ( AbsN 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" ) - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x38" ) :| [] - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongCallbackChain.Test" ) - ( Name "withInc" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x38" ) - ) :| [] - ) - ) - ( AbsN 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" ) ) ) - ( AbsN 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.LongMaybeBind.Test/golden.ir b/test/ps/output/Golden.LongMaybeBind.Test/golden.ir index b690f7e0..f27bf7a2 100644 --- a/test/ps/output/Golden.LongMaybeBind.Test/golden.ir +++ b/test/ps/output/Golden.LongMaybeBind.Test/golden.ir @@ -45,35 +45,32 @@ UberModule [ FieldName "value0" ] ), Standalone ( QName - { qnameModuleName = ModuleName "Golden.LongMaybeBind.Test", qnameName = Name "bind" + { qnameModuleName = ModuleName "Golden.LongMaybeBind.Test", qnameName = Name "bind$w" }, AbsN Nothing - ( ParamNamed Nothing ( Name "v$270" ) :| [] ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "v1$271" ) :| [] ) + ( 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 @@ -86,32 +83,28 @@ UberModule ( 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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,103 +295,57 @@ UberModule ( PropName "intAdd" ) ) ( Ref Nothing - ( Local ( Name "x287" ) ) :| [] + ( Local ( Name "x284" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 @@ -535,104 +368,58 @@ UberModule ) ( Ref Nothing ( Local - ( Name "x290" ) + ( Name "x286" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 @@ -655,104 +442,58 @@ UberModule ) ( Ref Nothing ( Local - ( Name "x293" ) + ( Name "x288" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 @@ -775,104 +516,58 @@ UberModule ) ( Ref Nothing ( Local - ( Name "x296" ) + ( Name "x290" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 @@ -895,93 +590,373 @@ UberModule ) ( Ref Nothing ( Local - ( Name "x299" ) + ( Name "x292" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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" ) + ) :| [] + ) :| [] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) ) ) @@ -992,32 +967,28 @@ UberModule ( 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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" ) ) ) @@ -1032,76 +1003,42 @@ UberModule ( Ref Nothing ( Local ( Name "x239" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 @@ -1119,85 +1056,48 @@ UberModule ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x242" ) ) :| [] ) + ( Ref Nothing ( Local ( Name "x241" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 @@ -1219,95 +1119,53 @@ UberModule ( PropName "intAdd" ) ) ( Ref Nothing - ( Local ( Name "x245" ) ) :| [] + ( Local ( Name "x243" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 @@ -1329,91 +1187,57 @@ UberModule ( PropName "intAdd" ) ) ( Ref Nothing - ( Local ( Name "x248" ) ) :| [] + ( Local ( Name "x245" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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" ) :| [] - ) :| [] - ) - ) - ( AbsN 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 @@ -1436,104 +1260,58 @@ UberModule ) ( Ref Nothing ( Local - ( Name "x250" ) + ( Name "x247" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 @@ -1556,104 +1334,46 @@ UberModule ) ( Ref Nothing ( Local - ( Name "x253" ) + ( Name "x249" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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" ) ) ) - ( AbsN 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 @@ -1676,104 +1396,58 @@ UberModule ) ( Ref Nothing ( Local - ( Name "x256" ) + ( Name "x250" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 @@ -1796,104 +1470,58 @@ UberModule ) ( Ref Nothing ( Local - ( Name "x259" ) + ( Name "x252" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 @@ -1916,104 +1544,58 @@ UberModule ) ( Ref Nothing ( Local - ( Name "x262" ) + ( Name "x254" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 @@ -2036,104 +1618,58 @@ UberModule ) ( Ref Nothing ( Local - ( Name "x265" ) + ( Name "x256" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x266" ) :| [] - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind" ) - ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x257" ) :| [] ) ( 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 "x266" ) - ) :| [] - ) - ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x267" ) :| [] - ) - ( 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 "x267" ) - ) :| [] + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) ) + ( PropName "intAdd" ) ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x268" ) :| [] - ) - ( AppN Nothing + ( 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 @@ -2156,104 +1692,58 @@ UberModule ) ( Ref Nothing ( Local - ( Name "x268" ) + ( Name "x258" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 @@ -2276,104 +1766,58 @@ UberModule ) ( Ref Nothing ( Local - ( Name "x271" ) + ( Name "x260" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 @@ -2396,195 +1840,671 @@ UberModule ) ( Ref Nothing ( Local - ( Name "x274" ) + ( Name "x262" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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" ) + ) :| [] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) ) ) @@ -2594,32 +2514,28 @@ UberModule ( 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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" ) ) ) @@ -2634,76 +2550,42 @@ UberModule ( Ref Nothing ( Local ( Name "x199" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 @@ -2721,85 +2603,48 @@ UberModule ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x202" ) ) :| [] ) + ( Ref Nothing ( Local ( Name "x201" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 @@ -2821,95 +2666,53 @@ UberModule ( PropName "intAdd" ) ) ( Ref Nothing - ( Local ( Name "x205" ) ) :| [] + ( Local ( Name "x203" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 @@ -2931,103 +2734,57 @@ UberModule ( PropName "intAdd" ) ) ( Ref Nothing - ( Local ( Name "x208" ) ) :| [] + ( Local ( Name "x205" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 @@ -3049,105 +2806,59 @@ UberModule ( PropName "intAdd" ) ) ( Ref Nothing - ( Local - ( Name "x211" ) - ) :| [] - ) - ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x212" ) :| [] - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind" ) + ( Local + ( Name "x207" ) + ) :| [] ) ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 @@ -3170,104 +2881,58 @@ UberModule ) ( Ref Nothing ( Local - ( Name "x214" ) + ( Name "x209" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 @@ -3290,104 +2955,58 @@ UberModule ) ( Ref Nothing ( Local - ( Name "x217" ) + ( Name "x211" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 @@ -3410,104 +3029,58 @@ UberModule ) ( Ref Nothing ( Local - ( Name "x220" ) + ( Name "x213" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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" ) - ) - ) - ( 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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" ) - ) - ) - ( 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 :| [] ) :| [] - ) :| [] + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "bind$w" ) ) ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x223" ) :| [] + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) + ) ) ( AppN Nothing + ( AppN Nothing + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) + ) + ( PropName "intAdd" ) + ) + ( 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 @@ -3530,104 +3103,58 @@ UberModule ) ( Ref Nothing ( Local - ( Name "x223" ) + ( Name "x215" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 @@ -3650,104 +3177,58 @@ UberModule ) ( Ref Nothing ( Local - ( Name "x226" ) + ( Name "x217" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 @@ -3770,104 +3251,58 @@ UberModule ) ( Ref Nothing ( Local - ( Name "x229" ) + ( Name "x219" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 @@ -3890,104 +3325,58 @@ UberModule ) ( Ref Nothing ( Local - ( Name "x232" ) + ( Name "x221" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x233" ) :| [] - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind" ) - ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x222" ) :| [] ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.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 - ( 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 :| [] ) :| [] - ) :| [] + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "bind$w" ) ) ) - ( AbsN 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 @@ -4010,195 +3399,671 @@ UberModule ) ( Ref Nothing ( Local - ( Name "x235" ) + ( Name "x223" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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" ) + ) :| [] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) ) ) @@ -4208,32 +4073,28 @@ UberModule ( 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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" ) ) ) @@ -4248,76 +4109,42 @@ UberModule ( Ref Nothing ( Local ( Name "x159" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 @@ -4335,85 +4162,48 @@ UberModule ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x162" ) ) :| [] ) + ( Ref Nothing ( Local ( Name "x161" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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" ) - ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) ) - ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x164" ) ) :| [] ) + ( PropName "intAdd" ) ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 @@ -4435,95 +4225,53 @@ UberModule ( PropName "intAdd" ) ) ( Ref Nothing - ( Local ( Name "x165" ) ) :| [] + ( Local ( Name "x163" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 @@ -4545,103 +4293,57 @@ UberModule ( PropName "intAdd" ) ) ( Ref Nothing - ( Local ( Name "x168" ) ) :| [] + ( Local ( Name "x165" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 @@ -4664,104 +4366,58 @@ UberModule ) ( Ref Nothing ( Local - ( Name "x171" ) + ( Name "x167" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 @@ -4784,104 +4440,58 @@ UberModule ) ( Ref Nothing ( Local - ( Name "x174" ) + ( Name "x169" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 @@ -4904,104 +4514,58 @@ UberModule ) ( Ref Nothing ( Local - ( Name "x177" ) + ( Name "x171" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 @@ -5024,104 +4588,58 @@ UberModule ) ( Ref Nothing ( Local - ( Name "x180" ) + ( Name "x173" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 @@ -5144,104 +4662,58 @@ UberModule ) ( Ref Nothing ( Local - ( Name "x183" ) + ( Name "x175" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 @@ -5264,104 +4736,58 @@ UberModule ) ( Ref Nothing ( Local - ( Name "x186" ) + ( Name "x177" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x187" ) :| [] - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind" ) - ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x178" ) :| [] ) ( 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 "x187" ) - ) :| [] - ) - ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x188" ) :| [] - ) - ( 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 "x188" ) - ) :| [] + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) ) + ( PropName "intAdd" ) ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x189" ) :| [] - ) - ( AppN Nothing + ( 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 @@ -5384,104 +4810,58 @@ UberModule ) ( Ref Nothing ( Local - ( Name "x189" ) + ( Name "x179" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 @@ -5504,104 +4884,58 @@ UberModule ) ( Ref Nothing ( Local - ( Name "x192" ) + ( Name "x181" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 @@ -5624,195 +4958,671 @@ UberModule ) ( Ref Nothing ( Local - ( Name "x195" ) + ( Name "x183" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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" ) + ) :| [] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) ) ) @@ -5822,32 +5632,28 @@ UberModule ( 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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" ) ) ) @@ -5862,76 +5668,42 @@ UberModule ( Ref Nothing ( Local ( Name "x120" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 @@ -5949,85 +5721,48 @@ UberModule ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x123" ) ) :| [] ) + ( Ref Nothing ( Local ( Name "x122" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 @@ -6049,95 +5784,53 @@ UberModule ( PropName "intAdd" ) ) ( Ref Nothing - ( Local ( Name "x126" ) ) :| [] + ( Local ( Name "x124" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 @@ -6159,103 +5852,57 @@ UberModule ( PropName "intAdd" ) ) ( Ref Nothing - ( Local ( Name "x129" ) ) :| [] + ( Local ( Name "x126" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 @@ -6277,105 +5924,59 @@ UberModule ( PropName "intAdd" ) ) ( Ref Nothing - ( Local - ( Name "x132" ) - ) :| [] - ) - ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x133" ) :| [] - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind" ) + ( Local + ( Name "x128" ) + ) :| [] ) ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 @@ -6398,104 +5999,58 @@ UberModule ) ( Ref Nothing ( Local - ( Name "x135" ) + ( Name "x130" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 @@ -6518,104 +6073,58 @@ UberModule ) ( Ref Nothing ( Local - ( Name "x138" ) + ( Name "x132" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 @@ -6638,104 +6147,58 @@ UberModule ) ( Ref Nothing ( Local - ( Name "x141" ) + ( Name "x134" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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" ) ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x144" ) :| [] - ) - ( AppN Nothing + ( Ref Nothing + ( Local + ( Name "x135" ) + ) :| [] + ) + ) + ( 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 @@ -6758,104 +6221,58 @@ UberModule ) ( Ref Nothing ( Local - ( Name "x144" ) + ( Name "x136" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 @@ -6878,104 +6295,58 @@ UberModule ) ( Ref Nothing ( Local - ( Name "x147" ) + ( Name "x138" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 @@ -6985,105 +6356,71 @@ UberModule ( Name "Just" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] - ) :| [] - ) - ) - ( AbsN 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" ) + ) :| [] + ) ) - ) - ( AbsN 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 @@ -7106,104 +6443,58 @@ UberModule ) ( Ref Nothing ( Local - ( Name "x152" ) + ( Name "x142" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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" ) - ) - ) - ( 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 - ( 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 "x154" ) - ) :| [] - ) - ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "bind$w" ) ) ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x155" ) :| [] + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) + ) ) ( AppN Nothing + ( AppN Nothing + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) + ) + ( PropName "intAdd" ) + ) + ( 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 @@ -7226,195 +6517,659 @@ UberModule ) ( Ref Nothing ( Local - ( Name "x155" ) + ( Name "x144" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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" ) + ) :| [] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) ) ) @@ -7424,32 +7179,28 @@ UberModule ( 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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" ) ) ) @@ -7464,76 +7215,42 @@ UberModule ( Ref Nothing ( Local ( Name "x80" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 @@ -7551,85 +7268,48 @@ UberModule ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x83" ) ) :| [] ) + ( Ref Nothing ( Local ( Name "x82" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "x85" ) :| [] ) - ( 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 + ( 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 @@ -7650,92 +7330,52 @@ UberModule ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x86" ) ) :| [] ) + ( Ref Nothing ( Local ( Name "x84" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 @@ -7757,103 +7397,57 @@ UberModule ( PropName "intAdd" ) ) ( Ref Nothing - ( Local ( Name "x89" ) ) :| [] + ( Local ( Name "x86" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 @@ -7876,104 +7470,58 @@ UberModule ) ( Ref Nothing ( Local - ( Name "x92" ) + ( Name "x88" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 @@ -7996,104 +7544,58 @@ UberModule ) ( Ref Nothing ( Local - ( Name "x95" ) + ( Name "x90" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 @@ -8116,104 +7618,58 @@ UberModule ) ( Ref Nothing ( Local - ( Name "x98" ) + ( Name "x92" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 @@ -8236,104 +7692,58 @@ UberModule ) ( Ref Nothing ( Local - ( Name "x101" ) + ( Name "x94" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 @@ -8356,104 +7766,58 @@ UberModule ) ( Ref Nothing ( Local - ( Name "x104" ) + ( Name "x96" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 @@ -8476,104 +7840,58 @@ UberModule ) ( Ref Nothing ( Local - ( Name "x107" ) + ( Name "x98" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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" ) ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x110" ) :| [] - ) - ( AppN Nothing + ( Ref Nothing + ( Local + ( Name "x99" ) + ) :| [] + ) + ) + ( 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 @@ -8596,104 +7914,58 @@ UberModule ) ( Ref Nothing ( Local - ( Name "x110" ) + ( Name "x100" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 @@ -8716,104 +7988,58 @@ UberModule ) ( Ref Nothing ( Local - ( Name "x113" ) + ( Name "x102" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 @@ -8836,195 +8062,671 @@ UberModule ) ( Ref Nothing ( Local - ( Name "x116" ) + ( Name "x104" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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" ) + ) :| [] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) ) ) @@ -9034,32 +8736,28 @@ UberModule ( 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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" ) ) ) @@ -9074,76 +8772,42 @@ UberModule ( Ref Nothing ( Local ( Name "x41" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 @@ -9161,85 +8825,48 @@ UberModule ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x44" ) ) :| [] ) + ( Ref Nothing ( Local ( Name "x43" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 @@ -9260,92 +8887,52 @@ UberModule ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x47" ) ) :| [] ) + ( Ref Nothing ( Local ( Name "x45" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 @@ -9355,105 +8942,69 @@ UberModule ( Name "Just" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] - ) :| [] - ) - ) - ( AbsN 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" ) ) :| [] + ) ) - ) - ( AbsN 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 @@ -9476,104 +9027,46 @@ UberModule ) ( Ref Nothing ( Local - ( Name "x52" ) + ( Name "x49" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 @@ -9596,104 +9089,58 @@ UberModule ) ( Ref Nothing ( Local - ( Name "x55" ) + ( Name "x50" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 @@ -9716,104 +9163,58 @@ UberModule ) ( Ref Nothing ( Local - ( Name "x58" ) + ( Name "x52" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 @@ -9836,104 +9237,58 @@ UberModule ) ( Ref Nothing ( Local - ( Name "x61" ) + ( Name "x54" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 @@ -9956,104 +9311,58 @@ UberModule ) ( Ref Nothing ( Local - ( Name "x64" ) + ( Name "x56" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 @@ -10076,104 +9385,58 @@ UberModule ) ( Ref Nothing ( Local - ( Name "x67" ) + ( Name "x58" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 @@ -10196,104 +9459,58 @@ UberModule ) ( Ref Nothing ( Local - ( Name "x70" ) + ( Name "x60" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 @@ -10316,104 +9533,58 @@ UberModule ) ( Ref Nothing ( Local - ( Name "x73" ) + ( Name "x62" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 @@ -10436,195 +9607,671 @@ UberModule ) ( Ref Nothing ( Local - ( Name "x76" ) - ) :| [] - ) - ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x77" ) :| [] - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind" ) + ( 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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" ) + ) :| [] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) ) ) @@ -10632,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 :| [] ) :| [] - ) - ) - ( AbsN 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" ) ) ) @@ -10659,63 +10302,34 @@ UberModule ( Ref Nothing ( Local ( Name "x1" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 @@ -10730,82 +10344,45 @@ UberModule ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x4" ) ) :| [] ) + ( Ref Nothing ( Local ( Name "x3" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 @@ -10823,88 +10400,48 @@ UberModule ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x7" ) ) :| [] ) + ( Ref Nothing ( Local ( Name "x5" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 @@ -10926,95 +10463,53 @@ UberModule ( PropName "intAdd" ) ) ( Ref Nothing - ( Local ( Name "x10" ) ) :| [] + ( Local ( Name "x7" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 @@ -11037,104 +10532,58 @@ UberModule ) ( Ref Nothing ( Local - ( Name "x13" ) + ( Name "x9" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 @@ -11157,104 +10606,58 @@ UberModule ) ( Ref Nothing ( Local - ( Name "x16" ) + ( Name "x11" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 @@ -11277,104 +10680,58 @@ UberModule ) ( Ref Nothing ( Local - ( Name "x19" ) + ( Name "x13" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 @@ -11397,104 +10754,58 @@ UberModule ) ( Ref Nothing ( Local - ( Name "x22" ) + ( Name "x15" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 @@ -11517,104 +10828,58 @@ UberModule ) ( Ref Nothing ( Local - ( Name "x25" ) + ( Name "x17" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 @@ -11637,104 +10902,58 @@ UberModule ) ( Ref Nothing ( Local - ( Name "x28" ) + ( Name "x19" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 @@ -11757,104 +10976,58 @@ UberModule ) ( Ref Nothing ( Local - ( Name "x31" ) + ( Name "x21" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 @@ -11877,104 +11050,58 @@ UberModule ) ( Ref Nothing ( Local - ( Name "x34" ) + ( Name "x23" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 @@ -11997,195 +11124,671 @@ UberModule ) ( Ref Nothing ( Local - ( Name "x37" ) + ( Name "x25" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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" ) + ) :| [] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) ) ) 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 d9c8ea28..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" + { qnameModuleName = ModuleName "Golden.LongMaybeBindModule.Test", qnameName = Name "bind$w" }, AbsN Nothing - ( ParamNamed Nothing ( Name "v$545" ) :| [] ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "v1$546" ) :| [] ) + ( 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" ) ) ) ) @@ -63,34 +60,30 @@ UberModule ( 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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,95 +209,53 @@ UberModule ( PropName "intAdd" ) ) ( Ref Nothing - ( Local ( Name "x284$283" ) ) :| [] + ( Local ( Name "x282$281" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 @@ -404,104 +278,58 @@ UberModule ) ( Ref Nothing ( Local - ( Name "x287$286" ) + ( Name "x284$283" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 @@ -524,104 +352,58 @@ UberModule ) ( Ref Nothing ( Local - ( Name "x290$289" ) + ( Name "x286$285" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 @@ -644,104 +426,58 @@ UberModule ) ( Ref Nothing ( Local - ( Name "x293$292" ) + ( Name "x288$287" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 @@ -764,104 +500,58 @@ UberModule ) ( Ref Nothing ( Local - ( Name "x296$295" ) + ( Name "x290$289" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 @@ -884,93 +574,373 @@ UberModule ) ( Ref Nothing ( Local - ( Name "x299$298" ) + ( Name "x292$291" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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" ) + ) :| [] + ) :| [] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) ) ) @@ -981,34 +951,30 @@ UberModule ( 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 @@ -1017,83 +983,49 @@ UberModule ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing - ( Imported ( ModuleName "Data.Semiring" ) ( Name "foreign" ) ) - ) - ( PropName "intAdd" ) - ) - ( Ref Nothing ( Local ( Name "x239$238" ) ) :| [] ) - ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "x240$239" ) :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind" ) + ( Imported ( ModuleName "Data.Semiring" ) ( Name "foreign" ) ) + ) + ( PropName "intAdd" ) ) + ( Ref Nothing ( Local ( Name "x239$238" ) ) :| [] ) ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 @@ -1111,87 +1043,48 @@ UberModule ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x242$241" ) ) :| [] ) + ( Ref Nothing ( Local ( Name "x241$240" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 @@ -1213,97 +1106,55 @@ UberModule ( PropName "intAdd" ) ) ( Ref Nothing - ( Local ( Name "x245$244" ) ) :| [] + ( Local ( Name "x243$242" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 @@ -1326,92 +1177,58 @@ UberModule ) ( Ref Nothing ( Local - ( Name "x248$247" ) + ( Name "x245$244" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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" ) :| [] - ) :| [] - ) - ) - ( AbsN 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 @@ -1434,104 +1251,58 @@ UberModule ) ( Ref Nothing ( Local - ( Name "x250$249" ) + ( Name "x247$246" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 @@ -1554,104 +1325,46 @@ UberModule ) ( Ref Nothing ( Local - ( Name "x253$252" ) + ( Name "x249$248" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 @@ -1674,104 +1387,58 @@ UberModule ) ( Ref Nothing ( Local - ( Name "x256$255" ) + ( Name "x250$249" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 @@ -1794,104 +1461,58 @@ UberModule ) ( Ref Nothing ( Local - ( Name "x259$258" ) + ( Name "x252$251" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 @@ -1910,108 +1531,62 @@ UberModule ( Name "foreign" ) ) ) - ( PropName "intAdd" ) - ) - ( Ref Nothing - ( Local - ( Name "x262$261" ) - ) :| [] - ) - ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x263$262" ) :| [] - ) - ( 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 "x263$262" ) - ) :| [] - ) - ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] + ( PropName "intAdd" ) + ) + ( Ref Nothing + ( Local + ( Name "x254$253" ) + ) :| [] + ) ) - ) - ( AbsN Nothing + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing ( ParamNamed Nothing - ( Name "x264$263" ) :| [] + ( Name "x255$254" ) :| [] ) ( 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 "x264$263" ) - ) :| [] + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) ) + ( PropName "intAdd" ) ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 @@ -2034,104 +1609,58 @@ UberModule ) ( Ref Nothing ( Local - ( Name "x265$264" ) + ( Name "x256$255" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 @@ -2154,104 +1683,58 @@ UberModule ) ( Ref Nothing ( Local - ( Name "x268$267" ) + ( Name "x258$257" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x269$268" ) :| [] - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind" ) - ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x259$258" ) :| [] ) ( 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 "x269$268" ) - ) :| [] - ) - ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x270$269" ) :| [] - ) - ( 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 "x270$269" ) - ) :| [] + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) ) + ( PropName "intAdd" ) ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x271$270" ) :| [] - ) - ( AppN Nothing + ( 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 @@ -2274,104 +1757,58 @@ UberModule ) ( Ref Nothing ( Local - ( Name "x271$270" ) + ( Name "x260$259" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 @@ -2394,195 +1831,671 @@ UberModule ) ( Ref Nothing ( Local - ( Name "x274$273" ) - ) :| [] - ) - ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x275$274" ) :| [] - ) - ( 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 "x275$274" ) - ) :| [] - ) - ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] + ( Name "x262$261" ) + ) :| [] + ) ) - ) - ( AbsN Nothing + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing ( ParamNamed Nothing - ( Name "x276$275" ) :| [] + ( Name "x263$262" ) :| [] ) ( 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 "x276$275" ) - ) :| [] - ) - ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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" ) + ) :| [] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) ) ) @@ -2592,34 +2505,30 @@ UberModule ( 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 @@ -2635,76 +2544,42 @@ UberModule ( Ref Nothing ( Local ( Name "x199$198" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 @@ -2722,87 +2597,48 @@ UberModule ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x202$201" ) ) :| [] ) + ( Ref Nothing ( Local ( Name "x201$200" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 @@ -2824,97 +2660,55 @@ UberModule ( PropName "intAdd" ) ) ( Ref Nothing - ( Local ( Name "x205$204" ) ) :| [] - ) - ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "x206$205" ) :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) - ) + ( Local ( Name "x203$202" ) ) :| [] ) - ( 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 :| [] ) :| [] - ) :| [] ) - ) - ( AbsN Nothing + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing ( ParamNamed Nothing - ( Name "x207$206" ) :| [] + ( Name "x204$203" ) :| [] ) ( 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 "x207$206" ) ) :| [] + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) ) + ( PropName "intAdd" ) ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 @@ -2937,104 +2731,58 @@ UberModule ) ( Ref Nothing ( Local - ( Name "x208$207" ) + ( Name "x205$204" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 @@ -3057,104 +2805,58 @@ UberModule ) ( Ref Nothing ( Local - ( Name "x211$210" ) + ( Name "x207$206" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 @@ -3177,104 +2879,58 @@ UberModule ) ( Ref Nothing ( Local - ( Name "x214$213" ) + ( Name "x209$208" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 @@ -3292,109 +2948,63 @@ UberModule ( ModuleName "Data.Semiring" ) ( Name "foreign" ) ) - ) - ( PropName "intAdd" ) - ) - ( Ref Nothing - ( Local - ( Name "x217$216" ) - ) :| [] - ) - ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x218$217" ) :| [] - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind" ) + ) + ( PropName "intAdd" ) ) - ) - ( AppN Nothing ( Ref Nothing - ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) - ) + ( Local + ( Name "x211$210" ) + ) :| [] ) - ( 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 :| [] ) :| [] - ) :| [] ) - ) - ( AbsN Nothing + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing ( ParamNamed Nothing - ( Name "x219$218" ) :| [] + ( Name "x212$211" ) :| [] ) ( 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 "x219$218" ) - ) :| [] + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) ) + ( PropName "intAdd" ) ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 @@ -3417,104 +3027,58 @@ UberModule ) ( Ref Nothing ( Local - ( Name "x220$219" ) + ( Name "x213$212" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 @@ -3537,104 +3101,58 @@ UberModule ) ( Ref Nothing ( Local - ( Name "x223$222" ) + ( Name "x215$214" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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" ) + ( 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 "x224$223" ) - ) :| [] - ) - ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x225$224" ) :| [] - ) - ( 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 "x225$224" ) - ) :| [] + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) ) + ( PropName "intAdd" ) ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x226$225" ) :| [] - ) - ( AppN Nothing + ( 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 @@ -3657,104 +3175,58 @@ UberModule ) ( Ref Nothing ( Local - ( Name "x226$225" ) + ( Name "x217$216" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 @@ -3776,105 +3248,59 @@ UberModule ( PropName "intAdd" ) ) ( Ref Nothing - ( Local - ( Name "x229$228" ) - ) :| [] - ) - ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x230$229" ) :| [] - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) - ) + ( Local + ( Name "x219$218" ) + ) :| [] ) - ( 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 + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing ( ParamNamed Nothing - ( Name "x231$230" ) :| [] + ( Name "x220$219" ) :| [] ) ( 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 "x231$230" ) - ) :| [] + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) ) + ( PropName "intAdd" ) ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 @@ -3897,104 +3323,58 @@ UberModule ) ( Ref Nothing ( Local - ( Name "x232$231" ) + ( Name "x221$220" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 @@ -4017,195 +3397,671 @@ UberModule ) ( Ref Nothing ( Local - ( Name "x235$234" ) + ( Name "x223$222" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x237$236" ) :| [] - ) - ( 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 "x237$236" ) - ) :| [] - ) - ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x238$237" ) :| [] - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Local - ( Name "$kont554" ) + ( 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" ) + ) :| [] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) ) ) @@ -4215,34 +4071,30 @@ UberModule ( 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 @@ -4258,76 +4110,42 @@ UberModule ( Ref Nothing ( Local ( Name "x159$158" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 @@ -4345,87 +4163,48 @@ UberModule ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x162$161" ) ) :| [] ) + ( Ref Nothing ( Local ( Name "x161$160" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 @@ -4447,97 +4226,55 @@ UberModule ( PropName "intAdd" ) ) ( Ref Nothing - ( Local ( Name "x165$164" ) ) :| [] + ( Local ( Name "x163$162" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 @@ -4560,104 +4297,58 @@ UberModule ) ( Ref Nothing ( Local - ( Name "x168$167" ) + ( Name "x165$164" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 @@ -4679,105 +4370,59 @@ UberModule ( PropName "intAdd" ) ) ( Ref Nothing - ( Local - ( Name "x171$170" ) - ) :| [] - ) - ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x172$171" ) :| [] - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind" ) + ( Local + ( Name "x167$166" ) + ) :| [] ) ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 @@ -4800,104 +4445,58 @@ UberModule ) ( Ref Nothing ( Local - ( Name "x174$173" ) + ( Name "x169$168" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 @@ -4920,104 +4519,58 @@ UberModule ) ( Ref Nothing ( Local - ( Name "x177$176" ) + ( Name "x171$170" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 @@ -5040,104 +4593,58 @@ UberModule ) ( Ref Nothing ( Local - ( Name "x180$179" ) + ( Name "x173$172" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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" ) - ) - ) - ( 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x182$181" ) :| [] - ) - ( 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 "x182$181" ) - ) :| [] - ) - ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "bind$w" ) ) ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x183$182" ) :| [] + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) + ) ) ( AppN Nothing + ( AppN Nothing + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) + ) + ( PropName "intAdd" ) + ) + ( 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 @@ -5160,104 +4667,58 @@ UberModule ) ( Ref Nothing ( Local - ( Name "x183$182" ) + ( Name "x175$174" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 @@ -5280,104 +4741,58 @@ UberModule ) ( Ref Nothing ( Local - ( Name "x186$185" ) + ( Name "x177$176" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 @@ -5400,104 +4815,58 @@ UberModule ) ( Ref Nothing ( Local - ( Name "x189$188" ) + ( Name "x179$178" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x190$189" ) :| [] - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind" ) - ) + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x180$179" ) :| [] ) ( 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 "x190$189" ) - ) :| [] - ) - ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x191$190" ) :| [] - ) - ( 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 "x191$190" ) - ) :| [] + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) ) + ( PropName "intAdd" ) ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x192$191" ) :| [] - ) - ( AppN Nothing + ( 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 @@ -5520,104 +4889,58 @@ UberModule ) ( Ref Nothing ( Local - ( Name "x192$191" ) + ( Name "x181$180" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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" ) - ) - ) - ( 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 - ( 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 "x194$193" ) - ) :| [] - ) - ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "bind$w" ) ) ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x195$194" ) :| [] + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) + ) ) ( AppN Nothing + ( AppN Nothing + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) + ) + ( PropName "intAdd" ) + ) + ( 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 @@ -5640,195 +4963,671 @@ UberModule ) ( Ref Nothing ( Local - ( Name "x195$194" ) + ( Name "x183$182" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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" ) + ) :| [] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) ) ) @@ -5838,34 +5637,30 @@ UberModule ( 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 @@ -5881,76 +5676,42 @@ UberModule ( Ref Nothing ( Local ( Name "x120$119" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 @@ -5968,87 +5729,48 @@ UberModule ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x123$122" ) ) :| [] ) + ( Ref Nothing ( Local ( Name "x122$121" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 @@ -6070,97 +5792,55 @@ UberModule ( PropName "intAdd" ) ) ( Ref Nothing - ( Local ( Name "x126$125" ) ) :| [] + ( Local ( Name "x124$123" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 @@ -6183,104 +5863,58 @@ UberModule ) ( Ref Nothing ( Local - ( Name "x129$128" ) + ( Name "x126$125" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 @@ -6303,104 +5937,58 @@ UberModule ) ( Ref Nothing ( Local - ( Name "x132$131" ) + ( Name "x128$127" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 @@ -6423,104 +6011,58 @@ UberModule ) ( Ref Nothing ( Local - ( Name "x135$134" ) + ( Name "x130$129" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 @@ -6543,104 +6085,58 @@ UberModule ) ( Ref Nothing ( Local - ( Name "x138$137" ) + ( Name "x132$131" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 @@ -6663,104 +6159,58 @@ UberModule ) ( Ref Nothing ( Local - ( Name "x141$140" ) + ( Name "x134$133" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 @@ -6783,224 +6233,132 @@ UberModule ) ( Ref Nothing ( Local - ( Name "x144$143" ) + ( Name "x136$135" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 ( Ref Nothing - ( Imported - ( ModuleName "Data.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 - ( 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 "x148$147" ) - ) :| [] + ( Imported + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) + ) + ) + ( AppN Nothing + ( AppN Nothing + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) ) ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] + ( PropName "intAdd" ) + ) + ( Ref Nothing + ( Local + ( Name "x138$137" ) + ) :| [] + ) ) - ) - ( AbsN Nothing + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing ( ParamNamed Nothing - ( Name "x149$148" ) :| [] + ( Name "x139$138" ) :| [] ) ( 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 "x149$148" ) - ) :| [] + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) ) + ( PropName "intAdd" ) ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 @@ -7010,105 +6368,71 @@ UberModule ( Name "Just" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] - ) :| [] - ) - ) - ( AbsN 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" ) + ) :| [] + ) ) - ) - ( AbsN 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 @@ -7131,104 +6455,58 @@ UberModule ) ( Ref Nothing ( Local - ( Name "x152$151" ) + ( Name "x142$141" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 @@ -7251,195 +6529,659 @@ UberModule ) ( Ref Nothing ( Local - ( Name "x155$154" ) + ( Name "x144$143" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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" ) + ( 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 "x156$155" ) - ) :| [] - ) - ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x157$156" ) :| [] - ) - ( 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 "x157$156" ) - ) :| [] + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) ) + ( PropName "intAdd" ) ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x158$157" ) :| [] - ) - ( AppN Nothing - ( AppN Nothing ( Ref Nothing ( Local - ( Name "$kont560" ) - ) + ( Name "x145$144" ) + ) :| [] ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x146$145" ) :| [] + ) + ( AppN Nothing ( Ref Nothing - ( Local - ( Name "x1$0$564" ) - ) :| [] + ( 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" ) + ) :| [] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] ) ) - ( Ref Nothing - ( Local - ( Name "x158$157" ) - ) :| [] - ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) ) ) @@ -7449,34 +7191,30 @@ UberModule ( 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 @@ -7492,76 +7230,42 @@ UberModule ( Ref Nothing ( Local ( Name "x80$79" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 @@ -7579,85 +7283,48 @@ UberModule ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x83$82" ) ) :| [] ) + ( Ref Nothing ( Local ( Name "x82$81" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 @@ -7679,95 +7346,53 @@ UberModule ( PropName "intAdd" ) ) ( Ref Nothing - ( Local ( Name "x86$85" ) ) :| [] + ( Local ( Name "x84$83" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 @@ -7785,109 +7410,63 @@ UberModule ( ModuleName "Data.Semiring" ) ( Name "foreign" ) ) - ) - ( PropName "intAdd" ) - ) - ( Ref Nothing - ( Local - ( Name "x89$88" ) - ) :| [] - ) - ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x90$89" ) :| [] - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind" ) + ) + ( PropName "intAdd" ) ) - ) - ( AppN Nothing ( Ref Nothing - ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) - ) + ( Local + ( Name "x86$85" ) + ) :| [] ) - ( 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 :| [] ) :| [] - ) :| [] ) - ) - ( AbsN Nothing + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ AbsN Nothing ( ParamNamed Nothing - ( Name "x91$90" ) :| [] + ( Name "x87$86" ) :| [] ) ( 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 "x91$90" ) - ) :| [] + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) ) + ( PropName "intAdd" ) ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 @@ -7910,104 +7489,58 @@ UberModule ) ( Ref Nothing ( Local - ( Name "x92$91" ) + ( Name "x88$87" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 @@ -8030,104 +7563,58 @@ UberModule ) ( Ref Nothing ( Local - ( Name "x95$94" ) + ( Name "x90$89" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 @@ -8150,104 +7637,58 @@ UberModule ) ( Ref Nothing ( Local - ( Name "x98$97" ) + ( Name "x92$91" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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" ) - ) - ) - ( PropName "intAdd" ) - ) + ( ObjectProp ( Just Always ) ( Ref Nothing - ( Local - ( Name "x100$99" ) - ) :| [] + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) + ) ) + ( PropName "intAdd" ) ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 @@ -8270,104 +7711,58 @@ UberModule ) ( Ref Nothing ( Local - ( Name "x101$100" ) + ( Name "x94$93" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 @@ -8390,104 +7785,58 @@ UberModule ) ( Ref Nothing ( Local - ( Name "x104$103" ) + ( Name "x96$95" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 @@ -8510,104 +7859,58 @@ UberModule ) ( Ref Nothing ( Local - ( Name "x107$106" ) + ( Name "x98$97" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 @@ -8630,104 +7933,58 @@ UberModule ) ( Ref Nothing ( Local - ( Name "x110$109" ) + ( Name "x100$99" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing + ) :| + [ AbsN Nothing ( ParamNamed Nothing - ( Name "x112$111" ) :| [] - ) - ( 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 :| [] ) :| [] - ) :| [] + ( Name "x101$100" ) :| [] + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "bind$w" ) ) ) - ( AbsN 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 @@ -8750,104 +8007,58 @@ UberModule ) ( Ref Nothing ( Local - ( Name "x113$112" ) + ( Name "x102$101" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 @@ -8870,195 +8081,671 @@ UberModule ) ( Ref Nothing ( Local - ( Name "x116$115" ) + ( Name "x104$103" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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" ) + ) :| [] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) ) ) @@ -9068,34 +8755,30 @@ UberModule ( 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 @@ -9110,77 +8793,43 @@ UberModule ) ( Ref Nothing ( Local ( Name "x41$40" ) ) :| [] ) ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 @@ -9198,85 +8847,48 @@ UberModule ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x44$43" ) ) :| [] ) + ( Ref Nothing ( Local ( Name "x43$42" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 @@ -9298,95 +8910,53 @@ UberModule ( PropName "intAdd" ) ) ( Ref Nothing - ( Local ( Name "x47$46" ) ) :| [] + ( Local ( Name "x45$44" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 @@ -9396,105 +8966,71 @@ UberModule ( Name "Just" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] - ) :| [] - ) - ) - ( AbsN 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" ) + ) :| [] + ) ) - ) - ( AbsN 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 @@ -9517,104 +9053,46 @@ UberModule ) ( Ref Nothing ( Local - ( Name "x52$51" ) + ( Name "x49$48" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 @@ -9637,104 +9115,58 @@ UberModule ) ( Ref Nothing ( Local - ( Name "x55$54" ) + ( Name "x50$49" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 @@ -9757,104 +9189,58 @@ UberModule ) ( Ref Nothing ( Local - ( Name "x58$57" ) + ( Name "x52$51" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 @@ -9877,104 +9263,58 @@ UberModule ) ( Ref Nothing ( Local - ( Name "x61$60" ) + ( Name "x54$53" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 @@ -9997,104 +9337,58 @@ UberModule ) ( Ref Nothing ( Local - ( Name "x64$63" ) + ( Name "x56$55" ) ) :| [] - ) - ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 :| [] ) :| [] - ) :| [] + ) ) - ) - ( AbsN Nothing + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| + [ 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 @@ -10117,104 +9411,58 @@ UberModule ) ( Ref Nothing ( Local - ( Name "x67$66" ) + ( Name "x58$57" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 @@ -10237,104 +9485,58 @@ UberModule ) ( Ref Nothing ( Local - ( Name "x70$69" ) + ( Name "x60$59" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 @@ -10357,104 +9559,58 @@ UberModule ) ( Ref Nothing ( Local - ( Name "x73$72" ) + ( Name "x62$61" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 @@ -10468,204 +9624,680 @@ UberModule ( 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 - ( 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" ) - ) :| [] + ( Imported + ( ModuleName "Data.Semiring" ) + ( Name "foreign" ) ) ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] + ( PropName "intAdd" ) + ) + ( Ref Nothing + ( Local + ( Name "x64$63" ) + ) :| [] + ) ) - ) - ( AbsN 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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" ) + ) :| [] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) ) ) @@ -10673,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" ) ) ) - ( AbsN 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" ) ) ) @@ -10702,66 +10330,37 @@ UberModule ( Ref Nothing ( Local ( Name "x1$0" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 @@ -10776,82 +10375,45 @@ UberModule ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x4$3" ) ) :| [] ) + ( Ref Nothing ( Local ( Name "x3$2" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 @@ -10869,90 +10431,48 @@ UberModule ) ( PropName "intAdd" ) ) - ( Ref Nothing ( Local ( Name "x7$6" ) ) :| [] ) + ( Ref Nothing ( Local ( Name "x5$4" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 @@ -10974,99 +10494,55 @@ UberModule ( PropName "intAdd" ) ) ( Ref Nothing - ( Local ( Name "x10$9" ) ) :| [] + ( Local ( Name "x7$6" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 @@ -11089,104 +10565,58 @@ UberModule ) ( Ref Nothing ( Local - ( Name "x13$12" ) + ( Name "x9$8" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 @@ -11209,104 +10639,58 @@ UberModule ) ( Ref Nothing ( Local - ( Name "x16$15" ) + ( Name "x11$10" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 @@ -11329,104 +10713,58 @@ UberModule ) ( Ref Nothing ( Local - ( Name "x19$18" ) + ( Name "x13$12" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 @@ -11449,104 +10787,58 @@ UberModule ) ( Ref Nothing ( Local - ( Name "x22$21" ) + ( Name "x15$14" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 @@ -11569,104 +10861,58 @@ UberModule ) ( Ref Nothing ( Local - ( Name "x25$24" ) + ( Name "x17$16" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 @@ -11689,104 +10935,58 @@ UberModule ) ( Ref Nothing ( Local - ( Name "x28$27" ) + ( Name "x19$18" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 @@ -11809,104 +11009,58 @@ UberModule ) ( Ref Nothing ( Local - ( Name "x31$30" ) + ( Name "x21$20" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 @@ -11929,104 +11083,58 @@ UberModule ) ( Ref Nothing ( Local - ( Name "x34$33" ) + ( Name "x23$22" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 @@ -12049,195 +11157,671 @@ UberModule ) ( Ref Nothing ( Local - ( Name "x37$36" ) + ( Name "x25$24" ) ) :| [] ) ) ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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 :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN 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.LongWriterBind.Test/golden.ir b/test/ps/output/Golden.LongWriterBind.Test/golden.ir index c68bddb7..8316cbc6 100644 --- a/test/ps/output/Golden.LongWriterBind.Test/golden.ir +++ b/test/ps/output/Golden.LongWriterBind.Test/golden.ir @@ -185,323 +185,307 @@ UberModule ) ), Standalone ( QName - { qnameModuleName = ModuleName "Control.Monad.Writer.Trans", qnameName = Name "applyWriterT" + { qnameModuleName = ModuleName "Control.Monad.Writer.Trans", qnameName = Name "applyWriterT$w" }, AbsN Nothing - ( ParamNamed Nothing ( Name "dictSemigroup" ) :| [] ) - ( AbsN 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", AbsN Nothing - ( ParamNamed Nothing ( Name "v" ) :| [] ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "v1" ) :| [] ) + ( 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" ) ) ) + ( Ref Nothing ( Local ( Name "Functor0" ) ) :| [] ) + ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "v3$33" ) :| [] ) ( AbsN Nothing - ( ParamNamed Nothing ( Name "v3$33" ) :| [] ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "v4$34" ) :| [] ) + ( 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", AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( LiteralObject Nothing - [ - ( PropName "map", AbsN Nothing - ( ParamNamed Nothing ( Name "f$463" ) :| [] ) - ( AbsN 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" ) ) ) - ( AbsN 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" + { qnameModuleName = ModuleName "Control.Monad.Writer.Trans", qnameName = Name "bindWriterT$w" }, AbsN Nothing - ( ParamNamed Nothing ( Name "dictSemigroup" ) :| [] ) - ( AbsN 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", AbsN Nothing - ( ParamNamed Nothing ( Name "v" ) :| [] ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "k" ) :| [] ) + ( 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" ) ) :| [] ) ) - ( AbsN 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" ) ) :| [] - ) :| [] ) - ) - ( AbsN 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", AbsN 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" + { qnameModuleName = ModuleName "Control.Monad.Writer.Trans", qnameName = Name "applicativeWriterT$w" }, AbsN Nothing - ( ParamNamed Nothing ( Name "dictMonoid" ) :| [] ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "dictApplicative" ) :| [] ) - ( LiteralObject Nothing - [ - ( PropName "pure", AbsN Nothing - ( ParamNamed Nothing ( Name "a" ) :| [] ) + ( 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", AbsN 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 @@ -509,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 @@ -604,58 +584,54 @@ UberModule ( 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" ) ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Control.Monad.Writer.Trans" ) + ( Name "applicativeWriterT$w" ) ) ) - ( AppN Nothing - ( ObjectProp Nothing - ( Ref Nothing ( Local ( Name "dictMonad$478" ) ) ) - ( PropName "Applicative0" ) - ) - ( Ref Nothing - ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] - ) :| [] + ( Ref Nothing + ( Imported ( ModuleName "Data.Monoid" ) ( Name "monoidArray" ) ) :| + [ AppN Nothing + ( ObjectProp Nothing + ( Ref Nothing ( Local ( Name "dictMonad$478" ) ) ) + ( PropName "Applicative0" ) + ) + ( Ref Nothing + ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] + ) + ] ) ) ), ( PropName "Bind1", AbsN Nothing ( ParamUnused Nothing :| [] ) ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Control.Monad.Writer.Trans" ) - ( Name "bindWriterT" ) - ) - ) - ( AppN Nothing - ( ObjectProp Nothing - ( Ref Nothing - ( Imported ( ModuleName "Data.Monoid" ) ( Name "monoidArray" ) ) - ) - ( PropName "Semigroup0" ) - ) - ( Ref Nothing - ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] - ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "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" ) ) :| [] + ) + ] ) ) ) @@ -1530,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" ) + ) + ] ) :| [] ) ) 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 53e2bcde..fb5fd98c 100644 --- a/test/ps/output/Golden.MaybeChain.Test/golden.ir +++ b/test/ps/output/Golden.MaybeChain.Test/golden.ir @@ -46,33 +46,30 @@ UberModule [ FieldName "value0" ] ), Standalone ( QName - { qnameModuleName = ModuleName "Data.Maybe", qnameName = Name "maybe" }, AbsN Nothing - ( ParamNamed Nothing ( Name "v" ) :| [] ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "v1" ) :| [] ) - ( AbsN 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 @@ -304,28 +301,25 @@ UberModule ( Ref Nothing ( Local ( Name "x$280" ) ) ) ), Standalone ( QName - { qnameModuleName = ModuleName "Golden.MaybeChain.Test", qnameName = Name "map" + { qnameModuleName = ModuleName "Golden.MaybeChain.Test", qnameName = Name "map$w" }, AbsN Nothing - ( ParamNamed Nothing ( Name "v$275" ) :| [] ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "v1$276" ) :| [] ) - ( IfThenElse Nothing - ( Eq Nothing - ( LiteralString Nothing "Data.Maybe∷Maybe.Just" ) - ( ReflectCtor Nothing ( Ref Nothing ( Local ( Name "v1$276" ) ) ) ) - ) + ( 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 = @@ -340,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" ) ) - ) - ( AbsN 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" ) ) + ] + ) + ] + ) + ] ) :| [] ) ) @@ -385,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" ) ) - ) - ( AbsN 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 fd60881b..59d22ccf 100644 --- a/test/ps/output/Golden.MaybeChainModule.Test/golden.ir +++ b/test/ps/output/Golden.MaybeChainModule.Test/golden.ir @@ -17,33 +17,30 @@ UberModule [ FieldName "value0" ] ), Standalone ( QName - { qnameModuleName = ModuleName "Data.Maybe", qnameName = Name "maybe" }, AbsN Nothing - ( ParamNamed Nothing ( Name "v" ) :| [] ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "v1" ) :| [] ) - ( AbsN 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 @@ -54,97 +51,82 @@ UberModule ( Ref Nothing ( Local ( Name "x$254" ) ) ) ), Standalone ( QName - { qnameModuleName = ModuleName "Golden.MaybeChainModule.Test", qnameName = Name "map" + { qnameModuleName = ModuleName "Golden.MaybeChainModule.Test", qnameName = Name "map$w" }, AbsN Nothing - ( ParamNamed Nothing ( Name "v$251" ) :| [] ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "v1$252" ) :| [] ) - ( IfThenElse Nothing - ( Eq Nothing - ( LiteralString Nothing "Data.Maybe∷Maybe.Just" ) - ( ReflectCtor Nothing ( Ref Nothing ( Local ( Name "v1$252" ) ) ) ) - ) + ( 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" ) ) - ) - ( AbsN 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" ) ) - ) - ( AbsN 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 210c01f1..b16980cc 100644 --- a/test/ps/output/Golden.NameShadowing.Test/golden.ir +++ b/test/ps/output/Golden.NameShadowing.Test/golden.ir @@ -2,19 +2,16 @@ UberModule { uberModuleBindings = [ Standalone ( QName - { qnameModuleName = ModuleName "Golden.NameShadowing.Test", qnameName = Name "f" + { qnameModuleName = ModuleName "Golden.NameShadowing.Test", qnameName = Name "f$w" }, AbsN Nothing - ( ParamNamed Nothing ( Name "v" ) :| [] ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "v1" ) :| [] ) + ( 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 ) ) ) ) @@ -25,26 +22,21 @@ UberModule ( 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 ] ) + ] ) ) ) @@ -54,11 +46,8 @@ UberModule ( 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.RecursiveBindings.Test/golden.ir b/test/ps/output/Golden.RecursiveBindings.Test/golden.ir index 210a1de9..3f5a8241 100644 --- a/test/ps/output/Golden.RecursiveBindings.Test/golden.ir +++ b/test/ps/output/Golden.RecursiveBindings.Test/golden.ir @@ -127,42 +127,28 @@ UberModule ) ] ), Standalone - ( Nothing, Name "f$7", AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( AbsN 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 20352657..877c47ff 100644 --- a/test/ps/output/Golden.StringCodePoints.Test/golden.ir +++ b/test/ps/output/Golden.StringCodePoints.Test/golden.ir @@ -378,85 +378,77 @@ UberModule ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "dict" ) ) ) ( PropName "compare" ) ) ), Standalone ( QName - { qnameModuleName = ModuleName "Data.Ord", qnameName = Name "greaterThanOrEq" + { qnameModuleName = ModuleName "Data.Ord", qnameName = Name "greaterThanOrEq$w" }, AbsN Nothing - ( ParamNamed Nothing ( Name "dictOrd" ) :| [] ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "a1" ) :| [] ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "a2" ) :| [] ) - ( IfThenElse Nothing - ( Eq Nothing - ( LiteralString Nothing "Data.Ordering∷Ordering.LT" ) - ( ReflectCtor 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" }, AbsN Nothing - ( ParamNamed Nothing ( Name "dictOrd" ) :| [] ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "a1" ) :| [] ) - ( AbsN 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" }, AbsN Nothing - ( ParamNamed Nothing ( Name "dictOrd" ) :| [] ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "a1" ) :| [] ) - ( AbsN 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 @@ -940,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" ) ) :| [] ) + ] ) :| [] ) ) @@ -1091,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" @@ -1117,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" @@ -1368,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 @@ -1613,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" ) ) ] ) ) ] :| [] ) @@ -1628,152 +1631,155 @@ UberModule ) :| [ ( QName - { qnameModuleName = ModuleName "Data.String.CodePoints", qnameName = Name "takeFallback" + { qnameModuleName = ModuleName "Data.String.CodePoints", qnameName = Name "takeFallback$w" }, AbsN Nothing - ( ParamNamed Nothing ( Name "v" ) :| [] ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "v1" ) :| [] ) - ( IfThenElse 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 "take" + { qnameModuleName = ModuleName "Data.String.CodePoints", qnameName = Name "takeFallback" }, AbsN Nothing - ( ParamNamed Nothing ( Name "n" ) :| [] ) + ( ParamNamed Nothing ( Name "takeFallback$p1" ) :| [] ) ( AbsN Nothing - ( ParamNamed Nothing ( Name "s" ) :| [] ) + ( 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$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" + { qnameModuleName = ModuleName "Data.String.CodePoints", qnameName = Name "drop$w" }, AbsN Nothing - ( ParamNamed Nothing ( Name "n" ) :| [] ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "s" ) :| [] ) + ( 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" ) ) :| [] ) ) ) ] @@ -1908,157 +1914,115 @@ UberModule ), RecursiveGroup ( ( QName - { qnameModuleName = ModuleName "Data.String.CodePoints", qnameName = Name "codePointAtFallback" + { qnameModuleName = ModuleName "Data.String.CodePoints", qnameName = Name "codePointAtFallback$w" }, AbsN Nothing - ( ParamNamed Nothing ( Name "n" ) :| [] ) - ( AbsN 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" ) ) :| [] ) - ) :| [] - ) - ( IfThenElse Nothing - ( Eq Nothing - ( LiteralString Nothing "Data.Maybe∷Maybe.Just" ) - ( ReflectCtor Nothing ( Ref Nothing ( Local ( Name "v" ) ) ) ) + ( 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" ) ) ) - ( IfThenElse Nothing + ( Ref Nothing ( Local ( Name "s" ) ) :| [] ) + ) :| [] + ) + ( 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" ) ) ) ) ) - ) :| [] + ) :| + [ + ( 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 "codePointAtFallback$w" ) + ) + ) + ( Ref Nothing + ( Local ( Name "codePointAtFallback$p1" ) ) :| + [ Ref Nothing ( Local ( Name "codePointAtFallback$p2" ) ) ] + ) + ) + ) + ) + ] ), Standalone ( QName - { qnameModuleName = ModuleName "Data.String.CodePoints", qnameName = Name "codePointAt" + { qnameModuleName = ModuleName "Data.String.CodePoints", qnameName = Name "codePointAt$w" }, AbsN Nothing - ( ParamNamed Nothing ( Name "v" ) :| [] ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "v1" ) :| [] ) - ( IfThenElse 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" ) ) :| [] ) + ( Ref Nothing + ( Imported ( ModuleName "Data.String.CodePoints" ) ( Name "lessThan" ) ) ) - ( LiteralInt Nothing 0 :| [] ) + ( Ref Nothing ( Local ( Name "v" ) ) :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Nothing" ) ) ) + ( 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 ( 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" ) ) :| [] ) - ) - ) - ) + ( 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 @@ -2116,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 @@ -2144,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 @@ -2275,22 +2290,34 @@ UberModule ) ] ), 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 "Effect.Console", qnameName = Name "logShow" }, AbsN Nothing - ( ParamNamed Nothing ( Name "dictShow" ) :| [] ) + ( ParamNamed Nothing ( Name "logShow$p1" ) :| [] ) ( AbsN Nothing - ( ParamNamed Nothing ( Name "a" ) :| [] ) + ( ParamNamed Nothing ( Name "logShow$p2" ) :| [] ) ( 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 "Effect.Console" ) ( Name "logShow$w" ) ) ) + ( Ref Nothing + ( Local ( Name "logShow$p1" ) ) :| + [ Ref Nothing ( Local ( Name "logShow$p2" ) ) ] ) ) ) @@ -2503,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" ] ) :| [] ) :| [] ) ) @@ -2525,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" ] ) :| [] ) :| [] ) ) @@ -2555,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" ] ) :| [] ) :| [] ) ) @@ -2588,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" ] ) :| [] ) :| [] ) ) @@ -2621,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" ] ) :| [] ) :| [] ) ) @@ -2682,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" ) ) :| [] - ) - ) - ( AbsN 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", AbsN 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.Unbinding.Test/golden.ir b/test/ps/output/Golden.Unbinding.Test/golden.ir index b1f1513c..b6297d0a 100644 --- a/test/ps/output/Golden.Unbinding.Test/golden.ir +++ b/test/ps/output/Golden.Unbinding.Test/golden.ir @@ -2,27 +2,35 @@ UberModule { uberModuleBindings = [ Standalone ( QName - { qnameModuleName = ModuleName "Golden.Unbinding.Test", qnameName = Name "f" + { qnameModuleName = ModuleName "Golden.Unbinding.Test", qnameName = Name "f$w" }, AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( AbsN Nothing ( ParamUnused Nothing :| [] ) ( LiteralInt Nothing 3 ) ) + ( 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/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) From 57fb3d2aaac11f829c06d9d9974faac385a73b53 Mon Sep 17 00:00:00 2001 From: Yura Lazarev Date: Tue, 7 Jul 2026 18:39:51 +0200 Subject: [PATCH 5/6] bench: counter goldens for the uncurried output, CurriedStep macro MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit The BindChain counters record the improvement (one fewer per-call FNEW, one fewer trace-abort site and blacklist entry, result unchanged); Fib and ArrayFoldl are untouched, as their currying lives in a unary function and in FFI wrappers respectively. The new CurriedStep macro pins the canonical uncurrying target — a hot two-argument loop, always saturated — whose remaining trace aborts all come from curried FFI (intAdd/intSub), the territory of the *.Uncurried wrapper lifting. Also documents the pass in the pipeline overview and updates Note [n-ary application]: the uncurrying split is the pass that introduces multi-argument calls today. --- CLAUDE.md | 3 +++ bench/goldens/fnew_Bench.BindChain.txt | 11 +++++------ bench/goldens/fnew_Bench.CurriedStep.txt | 12 ++++++++++++ bench/goldens/trace_bind_chain.txt | 8 +++----- bench/goldens/trace_curried_step.txt | 18 ++++++++++++++++++ bench/macro/curried_step.lua | 15 +++++++++++++++ ...707_190000_unisay_uncurry_worker_wrapper.md | 14 ++++++++++++++ lib/Language/PureScript/Backend/IR/Types.hs | 6 ++++-- test/ps/src/Bench/CurriedStep.purs | 13 +++++++++++++ 9 files changed, 87 insertions(+), 13 deletions(-) create mode 100644 bench/goldens/fnew_Bench.CurriedStep.txt create mode 100644 bench/goldens/trace_curried_step.txt create mode 100644 bench/macro/curried_step.lua create mode 100644 changelog.d/20260707_190000_unisay_uncurry_worker_wrapper.md create mode 100644 test/ps/src/Bench/CurriedStep.purs 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/Types.hs b/lib/Language/PureScript/Backend/IR/Types.hs index b429884a..76bcfdc6 100644 --- a/lib/Language/PureScript/Backend/IR/Types.hs +++ b/lib/Language/PureScript/Backend/IR/Types.hs @@ -119,8 +119,10 @@ 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 +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 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) From 26e47d9f1ac9c274849c16d9deb0942fd29169ab Mon Sep 17 00:00:00 2001 From: Yura Lazarev Date: Tue, 7 Jul 2026 19:34:55 +0200 Subject: [PATCH 6/6] test: property, pipeline-composition and inline-always coverage for uncurrying --- .../PureScript/Backend/IR/Optimizer/Spec.hs | 133 ++++++++++++++++- .../PureScript/Backend/IR/Uncurry/Spec.hs | 140 ++++++++++++++++++ 2 files changed, 272 insertions(+), 1 deletion(-) diff --git a/test/Language/PureScript/Backend/IR/Optimizer/Spec.hs b/test/Language/PureScript/Backend/IR/Optimizer/Spec.hs index 4cd5321e..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 @@ -51,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) @@ -380,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/Uncurry/Spec.hs b/test/Language/PureScript/Backend/IR/Uncurry/Spec.hs index 53175258..cb1ab0c0 100644 --- a/test/Language/PureScript/Backend/IR/Uncurry/Spec.hs +++ b/test/Language/PureScript/Backend/IR/Uncurry/Spec.hs @@ -1,8 +1,18 @@ 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 (..) @@ -30,6 +40,7 @@ import Language.PureScript.Backend.IR.Types ) 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 @@ -245,6 +256,29 @@ spec = describe "IR Uncurry (worker/wrapper)" do -- …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 --------------------------------------------------------------------- @@ -302,3 +336,109 @@ moduleOf bindings exports = , 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))