diff --git a/bench/goldens/fnew_Bench.EffectStep.txt b/bench/goldens/fnew_Bench.EffectStep.txt new file mode 100644 index 00000000..939927a1 --- /dev/null +++ b/bench/goldens/fnew_Bench.EffectStep.txt @@ -0,0 +1,20 @@ +chunk: Bench.EffectStep.lua +runtime: LuaJIT 2.1.1741730670 +main-chunk FNEW: 11 +function-body FNEW: 13 +total FNEW: 24 +prototypes: 25 +function-body FNEW sites: + Bench.EffectStep.lua:4 + Bench.EffectStep.lua:6 + Bench.EffectStep.lua:6 + Bench.EffectStep.lua:9 + Bench.EffectStep.lua:10 + Bench.EffectStep.lua:12 + Bench.EffectStep.lua:12 + Bench.EffectStep.lua:33 + Bench.EffectStep.lua:54 + Bench.EffectStep.lua:53 + Bench.EffectStep.lua:48 + Bench.EffectStep.lua:57 + Bench.EffectStep.lua:66 diff --git a/bench/goldens/trace_effect_step.txt b/bench/goldens/trace_effect_step.txt new file mode 100644 index 00000000..9e0908ad --- /dev/null +++ b/bench/goldens/trace_effect_step.txt @@ -0,0 +1,28 @@ +spec: effect_step +runtime: LuaJIT 2.1.1741730670 +workload: n=100000 reps=4 result=1500000 +aborts (distinct site -- reason): + Bench.EffectStep.lua:10 -- NYI: bytecode FNEW + Bench.EffectStep.lua:12 -- NYI: bytecode FNEW + Bench.EffectStep.lua:48 -- NYI: bytecode FNEW + Bench.EffectStep.lua:49 -- NYI: bytecode UCLO + Bench.EffectStep.lua:53 -- NYI: bytecode FNEW + Bench.EffectStep.lua:54 -- NYI: bytecode FNEW + Bench.EffectStep.lua:66 -- NYI: bytecode FNEW + Bench.EffectStep.lua:9 -- NYI: bytecode FNEW +bytecode end state (J*=compiled, I*=blacklisted): + Bench.EffectStep.lua:10 IFUNCF + Bench.EffectStep.lua:10 JFUNCF + Bench.EffectStep.lua:11 IFUNCF + Bench.EffectStep.lua:12 IFUNCF + Bench.EffectStep.lua:12 JFUNCF + Bench.EffectStep.lua:17 IFUNCF + Bench.EffectStep.lua:36 IFUNCF + Bench.EffectStep.lua:37 IFUNCF + Bench.EffectStep.lua:39 IFUNCF + Bench.EffectStep.lua:40 JFUNCF + Bench.EffectStep.lua:9 JFUNCF + effect_step.lua:11 JFUNCF + effect_step.lua:13 JFORI + effect_step.lua:13 JFORL +counts: aborts=8 compiled=7 blacklisted=7 diff --git a/bench/macro/effect_step.lua b/bench/macro/effect_step.lua new file mode 100644 index 00000000..6c986f37 --- /dev/null +++ b/bench/macro/effect_step.lua @@ -0,0 +1,16 @@ +-- A hot ST loop whose per-iteration step is a unary effect action, always +-- fully applied and immediately run. Uncurried late (after magicDo), the +-- step is one n-ary worker call per iteration; curried, every iteration +-- allocates the thunk closure and pays a second call to force it. +return { + artifact = "Bench.EffectStep", + n = 100000, + drive = function(mod, n) + return mod.run(n) + end, + ideal = function(n) + local acc = 0 + for _ = 1, n do acc = acc + 15 end + return acc + end, +} diff --git a/changelog.d/20260713_160000_unisay_late_uncurry_rerun.md b/changelog.d/20260713_160000_unisay_late_uncurry_rerun.md new file mode 100644 index 00000000..85ee0cd9 --- /dev/null +++ b/changelog.d/20260713_160000_unisay_late_uncurry_rerun.md @@ -0,0 +1,13 @@ +### Changed + +- The uncurrying worker/wrapper split (#24) now runs a second time at the end + of the IR pipeline, catching the two saturated-call families the early run + cannot see: effect functions whose thunk-forcing application only appears + once magic-do has run — the worker absorbs the thunk parameter, so a fully + applied effect statement compiles to one n-ary call instead of a curried + call plus a thunk allocation and force — and the `$kont` continuation + helpers minted by `flattenDeepBinds`, saturated by construction. The pass is + rerun-safe (wrappers built by the early run are recognised and reused, never + split again), effect statements keep their dead-code protection through the + rewrite (`isEffectRun` recognises the absorbed trailing marker), and a + closing dce pass drops the wrappers whose sites were all saturated (#200). diff --git a/lib/Language/PureScript/Backend/IR/Optimizer.hs b/lib/Language/PureScript/Backend/IR/Optimizer.hs index 76fb2fef..37c30a64 100644 --- a/lib/Language/PureScript/Backend/IR/Optimizer.hs +++ b/lib/Language/PureScript/Backend/IR/Optimizer.hs @@ -112,8 +112,9 @@ optimizerPipeline policy = , 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 + -- (issue #24) — the early of the pass's two runs (the late one + -- closes the pipeline). 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 @@ -174,6 +175,21 @@ optimizerPipeline policy = -- likewise consumes and preserves the unique naming. -- See Language.PureScript.Backend.IR.FlattenDeepBinds. RunPass flattenDeepBindsPass + , -- The late uncurry run (issue #200): the same pass again, now that + -- the two saturated-site families invisible to the early run exist — + -- the effect-run spines magicDo completed (f(a)(b)(run), saturating + -- the effect function's manifest chain, thunk parameter included) + -- and the saturated-by-construction $kont helpers minted by the + -- flattening above. Bindings the early run split are recognised and + -- left split (see the Rerun section in + -- Language.PureScript.Backend.IR.Uncurry). + RunPass uncurryLatePass + , -- Drop the wrappers the late run left unreferenced. A single dce + -- pass, deliberately not an optimize+dce fixpoint like the early + -- run's: optimize's use-once inlining would paste the $kont workers + -- (each is called exactly once) back into their call sites round by + -- round, re-nesting exactly what flattenDeepBinds just flattened. + RunPass dcePass ] where uniquifyPass = @@ -222,6 +238,7 @@ optimizerPipeline policy = , passRequires = guc , passEnsures = guc } + uncurryLatePass = uncurryPass {passName = "uncurry-late"} floatInPass = gucPass "float-in" floatIn shareAccessorsPass = gucPass "share-accessors" (shareForeignAccessors policy) diff --git a/lib/Language/PureScript/Backend/IR/Types.hs b/lib/Language/PureScript/Backend/IR/Types.hs index 69f209ff..e0e1b8b9 100644 --- a/lib/Language/PureScript/Backend/IR/Types.hs +++ b/lib/Language/PureScript/Backend/IR/Types.hs @@ -445,9 +445,13 @@ pattern EffectRunArg ∷ ann → RawExp ann pattern EffectRunArg ann = Ref ann (Imported (ModuleName "Prim") (Name "$magicDoRun")) -{- | Recognise an Effect/ST statement as magic-do emits it: running a thunk, the -application @m EffectRunArg@ (see 'Language.PureScript.Backend.IR.MagicDo'). Its -side effect is observable and its statement sequencing is size-managed by +{- | Recognise an Effect/ST statement by its trailing 'EffectRunArg': running a +thunk, the application @m EffectRunArg@ as magic-do emits it (see +'Language.PureScript.Backend.IR.MagicDo'), or the n-ary worker call that +absorbed the run — the late uncurry rerun rewrites the saturated spine +@f(a)(b)(EffectRunArg)@ to @f$w(a, b, EffectRunArg)@ (issue #200). The marker +never occurs in a non-trailing position, so a trailing one is precise. The +statement's side effect is observable and its sequencing is size-managed by magic-do's chunking, so passes that run after magic-do must leave it alone: dead-code elimination keeps it even when its binder is unreferenced, beta reduction does not reduce through it (which would merge a chunk into its parent @@ -457,7 +461,7 @@ copy would execute the effect twice). -} isEffectRun ∷ RawExp ann → Bool isEffectRun = \case - AppN _ _ (EffectRunArg _ :| []) → True + AppN _ _ args | EffectRunArg _ ← last args → True _ → False ctorId ∷ ModuleName → TyName → CtorName → Text diff --git a/lib/Language/PureScript/Backend/IR/Uncurry.hs b/lib/Language/PureScript/Backend/IR/Uncurry.hs index 804749f6..23de0d7a 100644 --- a/lib/Language/PureScript/Backend/IR/Uncurry.hs +++ b/lib/Language/PureScript/Backend/IR/Uncurry.hs @@ -70,14 +70,37 @@ 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 +Runs twice. The early run sits 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. +left curried at that point: thunk-forcing call sites only appear once +magicDo has run, so their spines are still partial there. + +The late run (issue #200) sits after flattenDeepBinds and catches the +two saturated families that do not exist early: the effect-run spines +magicDo completes — @f(a)(b)(EffectRunArg)@, saturating the manifest +chain @λa.λb.λ_@ whose trailing thunk parameter the worker absorbs +(the rewritten call is still an effect run, recognised by its trailing +marker — see 'Language.PureScript.Backend.IR.Types.isEffectRun') — and +the @$kont@ helpers minted by flattening, saturated by construction. A +dce pass then drops the wrappers whose sites were all saturated. + +== Rerun + +The late run meets the early run's output, so the candidate +classification distinguishes it: a binding whose manifest chain body is +exactly the delegate call to its own worker ('delegatesTo') is a +wrapper from an earlier run — it is not split again (that would mint a +duplicate @\$w@ binding) but re-registers its arity, so saturated +sites that appeared /between/ the runs (e.g. minted by call-site +pastes) are still rewritten to the existing worker. A non-wrapper +candidate whose @\$w@ name is nonetheless taken (call-site inlining +can paste a worker's body back into its wrapper) is left alone +entirely. On anything else a rerun is a no-op, so the pass stays +idempotent. -} module Language.PureScript.Backend.IR.Uncurry ( uncurryWorkerWrapper @@ -125,18 +148,42 @@ uncurryWorkerWrapper neverNames uber@UberModule {..} = { uberModuleBindings = bindings' , uberModuleExports = exports' } - , rewrittenIf (not (Map.null topSplit) || anyLocalSplit) + , rewrittenIf + (not (Map.null topSplit) || topDelegateSites || anyLocalRewrite) ) where - -- Top-level candidates: manifest arity ≥ 2, not vetoed. + -- Names already bound at the top level: a candidate whose worker name + -- is among them was split by an earlier run of this pass (only this + -- pass mints @$w@ names) and may not mint the name a second time. + topLevelQNames ∷ Set QName + topLevelQNames = + Set.fromList (fst <$> (listGrouping =<< uberModuleBindings)) + + -- Top-level candidates: manifest arity ≥ 2, not vetoed — classified + -- against the output of an earlier run (see the module haddock's + -- Rerun section). A wrapper delegating to its own worker re-registers + -- its arity so saturated sites that appeared since the split still + -- reach the worker; a candidate whose worker name is otherwise taken + -- is left alone entirely; the rest split as usual. + topDelegating ∷ Map (Qualified Name) Int 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] - ] + (topDelegating, topParams) = + bimap Map.fromList Map.fromList $ + partitionEithers + [ classified + | (QName modname name, expr) ← listGrouping =<< uberModuleBindings + , QName modname name `Set.notMember` neverNames + , let qualified = Imported modname name + , Just (params, body) ← [manifestChain expr] + , classified ← + if delegatesTo (workerOf qualified) params body + then [Left (qualified, length params)] + else + [ Right (qualified, params) + | QName modname (workerName name) + `Set.notMember` topLevelQNames + ] + ] -- One saturated site anywhere in the module qualifies a top-level -- candidate; sites are every binding right-hand side and every export. @@ -147,7 +194,9 @@ uncurryWorkerWrapper neverNames uber@UberModule {..} = topCounts ∷ Map (Qualified Name) Int topCounts = - Map.unionsWith (+) (censusIn (length <$> topParams) <$> siteExprs) + Map.unionsWith + (+) + (censusIn (Map.union (length <$> topParams) topDelegating) <$> siteExprs) topSplit ∷ Map (Qualified Name) (NonEmpty (Parameter Ann)) topSplit = @@ -158,9 +207,18 @@ uncurryWorkerWrapper neverNames uber@UberModule {..} = topSplitArities ∷ Map (Qualified Name) Int topSplitArities = length <$> topSplit + -- Whether a saturated site of an already-split wrapper was rewritten + -- to its worker — a rewrite with no accompanying split, which the + -- 'WasRewritten' signal must still report. + topDelegateSites ∷ Bool + topDelegateSites = + any + (\q → Map.findWithDefault 0 q topCounts > 0) + (Map.keys topDelegating) + processedBindings ∷ [Grouping (QName, Exp)] - bindingSplits ∷ [Bool] - (processedBindings, bindingSplits) = + bindingRewrites ∷ [Bool] + (processedBindings, bindingRewrites) = unzip (processGrouping <$> uberModuleBindings) where processGrouping ∷ Grouping (QName, Exp) → (Grouping (QName, Exp), Bool) @@ -172,16 +230,16 @@ uncurryWorkerWrapper neverNames uber@UberModule {..} = processed = fmap (second processSite) grouping processedExports ∷ [(Name, Exp)] - exportSplits ∷ [Bool] - (processedExports, exportSplits) = + exportRewrites ∷ [Bool] + (processedExports, exportRewrites) = unzip - [ ((name, e), split) + [ ((name, e), rewrite) | (name, expr) ← uberModuleExports - , let (e, split) = processSite expr + , let (e, rewrite) = processSite expr ] - anyLocalSplit ∷ Bool - anyLocalSplit = or bindingSplits || or exportSplits + anyLocalRewrite ∷ Bool + anyLocalRewrite = or bindingRewrites || or exportRewrites exports' = processedExports @@ -214,19 +272,48 @@ uncurryWorkerWrapper neverNames uber@UberModule {..} = -- 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) + processSite expr = (transformOf subexpressions step expr, siteRewrites) where - localParams ∷ Map Name (NonEmpty (Parameter Ann)) - localParams = - Map.fromList - [ (name, params) + -- The site's Let binders, for the taken-name check: a local @$w@ + -- name can only have been minted by an earlier run of this pass, + -- and it is always Let-bound. + letBoundNames ∷ Set Name + letBoundNames = + Set.fromList + [ name | Let _ groupings _ ← toListOf (cosmosOf subexpressions) expr - , (_ann, name, rhs) ← listGrouping =<< toList groupings - , Just (params, _body) ← [manifestChain rhs] + , (_ann, name, _rhs) ← listGrouping =<< toList groupings ] + -- Local candidates, classified like the top-level ones: delegating + -- wrappers re-register, candidates with a taken worker name are + -- left alone, the rest may split. + localDelegating ∷ Map Name Int + localParams ∷ Map Name (NonEmpty (Parameter Ann)) + (localDelegating, localParams) = + bimap Map.fromList Map.fromList $ + partitionEithers + [ classified + | Let _ groupings _ ← toListOf (cosmosOf subexpressions) expr + , (_ann, name, rhs) ← listGrouping =<< toList groupings + , Just (params, body) ← [manifestChain rhs] + , classified ← + if delegatesTo (Local (workerName name)) params body + then [Left (name, length params)] + else + [ Right (name, params) + | workerName name `Set.notMember` letBoundNames + ] + ] + localCounts ∷ Map (Qualified Name) Int - localCounts = censusIn (Map.mapKeys Local (length <$> localParams)) expr + localCounts = + censusIn + ( Map.mapKeys + Local + (Map.union (length <$> localParams) localDelegating) + ) + expr localSplit ∷ Map Name (NonEmpty (Parameter Ann)) localSplit = @@ -234,12 +321,21 @@ uncurryWorkerWrapper neverNames uber@UberModule {..} = (\n _ → Map.findWithDefault 0 (Local n) localCounts > 0) localParams - splitsHappen ∷ Bool - splitsHappen = not (Map.null localSplit) + siteRewrites ∷ Bool + siteRewrites = + not (Map.null localSplit) + || any + (\n → Map.findWithDefault 0 (Local n) localCounts > 0) + (Map.keys localDelegating) actives ∷ Map (Qualified Name) Int actives = - Map.union topSplitArities (Map.mapKeys Local (length <$> localSplit)) + Map.unions + [ topSplitArities + , topDelegating + , Map.mapKeys Local (length <$> localSplit) + , Map.mapKeys Local localDelegating + ] step ∷ Exp → Exp step e = case saturatedSite actives e of @@ -351,6 +447,25 @@ manifestChain expr = case peel expr of Abs _ann param body → first (param :) (peel body) e → ([], e) +{- | Recognise the wrapper this pass itself built: the manifest chain's +body is exactly the delegate call — the given worker reference applied +to the chain's parameters in order. Used by the rerun classification +(see the module haddock's Rerun section) to tell an already-split +binding from a fresh candidate. +-} +delegatesTo ∷ Qualified Name → NonEmpty (Parameter Ann) → Exp → Bool +delegatesTo workerRef params body = case body of + AppN _ann (Ref _refAnn ref) args → + ref == workerRef + && length args == length params + && and (NE.zipWith isParamRef params args) + _ → False + where + isParamRef ∷ Parameter Ann → Exp → Bool + isParamRef param arg = case (paramName param, arg) of + (Just name, Ref _ann (Local name')) → name == name' + _ → False + {- | 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 diff --git a/test/Language/PureScript/Backend/IR/DCE/Spec.hs b/test/Language/PureScript/Backend/IR/DCE/Spec.hs index 791098be..c5783a64 100644 --- a/test/Language/PureScript/Backend/IR/DCE/Spec.hs +++ b/test/Language/PureScript/Backend/IR/DCE/Spec.hs @@ -31,6 +31,7 @@ import Language.PureScript.Backend.IR.Types , WasRewritten (..) , abstraction , application + , applicationN , countFreeRefs , exception , lets @@ -40,6 +41,7 @@ import Language.PureScript.Backend.IR.Types , paramUnused , refImported , refLocal + , pattern EffectRunArg ) import Language.PureScript.Backend.IR.Uniquify (uniquifyNamesInExpr) import Test.Hspec (Spec, describe, it) @@ -194,6 +196,21 @@ spec = describe "IR Dead Code Elimination" do ) dceExpression expr === literalInt 3 + -- An uncurried worker call that absorbed the effect-run marker as its + -- trailing argument (the late uncurry run, issue #200) is still an + -- effect statement: its binder is unreferenced, yet dropping it would + -- silently drop the side effect (see 'isEffectRun'). + it "keeps an unreferenced statement running an n-ary effect" $ hedgehog do + let runW = + applicationN + (refImported mainModuleName (Name "act$w")) + (literalInt 1 :| [EffectRunArg noAnn]) + expr = + lets + (Standalone (noAnn, Name "res", runW) :| []) + (literalInt 2) + dceExpression expr === expr + -------------------------------------------------------------------------------- -- Helpers --------------------------------------------------------------------- diff --git a/test/Language/PureScript/Backend/IR/Optimizer/Spec.hs b/test/Language/PureScript/Backend/IR/Optimizer/Spec.hs index af808d54..019717bc 100644 --- a/test/Language/PureScript/Backend/IR/Optimizer/Spec.hs +++ b/test/Language/PureScript/Backend/IR/Optimizer/Spec.hs @@ -236,6 +236,20 @@ spec = describe "IR Optimizer" do original = let1 x runAct body optimizedExpression original `shouldBe` original + it "declines to inline a use-once n-ary worker effect run" do + -- The late uncurry run (issue #200) absorbs the marker into the + -- worker call as its trailing argument; the statement is still an + -- effect run and must stay a statement. + let m = moduleNameFromString "M" + x = Name "x" + runAct = + applicationN + (refImported m (Name "act$w")) + (literalInt 1 :| [EffectRunArg noAnn]) + body = application (refImported m (Name "consume")) (refLocal x) + original = let1 x runAct body + optimizedExpression original `shouldBe` original + -- 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. diff --git a/test/Language/PureScript/Backend/IR/Uncurry/Spec.hs b/test/Language/PureScript/Backend/IR/Uncurry/Spec.hs index cb1ab0c0..2c7fe328 100644 --- a/test/Language/PureScript/Backend/IR/Uncurry/Spec.hs +++ b/test/Language/PureScript/Backend/IR/Uncurry/Spec.hs @@ -256,6 +256,109 @@ spec = describe "IR Uncurry (worker/wrapper)" do -- …g2's same-named go is not. exprOf "g2" `shouldBe` siteWith partial + -- A rerun of the pass (issue #200) meets its own earlier output: + -- bindings already split must not split again — re-splitting a + -- wrapper would mint a second @f$w@ binding — yet a saturated site + -- that appeared since the first run should still reach the worker. + describe "on already-split bindings (rerun, issue #200)" do + it "rewrites a new saturated site of a wrapper to the existing worker" do + let bindings = + [ Standalone (qn "f$w", worker2) + , Standalone (qn "f", wrapper2) + ] + m = moduleOf bindings [(Name "main", saturatedCall)] + uncurryWorkerWrapper mempty m + `shouldBe` ( moduleOf + bindings + [ + ( Name "main" + , applicationN fw (literalInt 1 :| [literalInt 2]) + ) + ] + , Rewritten + ) + + it "declines a candidate whose worker name is already bound" do + -- Not a wrapper — the body does not delegate to @f$w@ (e.g. the + -- worker's body was pasted back into the wrapper by call-site + -- inlining while other worker references survived) — yet the + -- name @f$w@ is taken: splitting would mint a duplicate binding. + let m = + moduleOf + [ Standalone (qn "f$w", worker2) + , Standalone (qn "f", def2) + ] + [(Name "main", saturatedCall)] + uncurryWorkerWrapper mempty m `shouldBe` (m, Unmodified) + + it "rewrites a new saturated site of a local wrapper to its worker" do + let go = Name "go" + goWorker = + abstractionN + (paramNamed (Name "c") :| [paramNamed (Name "d")]) + (eq (refLocal (Name "c")) (refLocal (Name "d"))) + goWrapper = + abstraction + (paramNamed (Name "go$p1")) + ( abstraction + (paramNamed (Name "go$p2")) + ( applicationN + (refLocal (Name "go$w")) + (refLocal (Name "go$p1") :| [refLocal (Name "go$p2")]) + ) + ) + site = + application + (application (refLocal go) (literalInt 1)) + (literalInt 2) + groupings = + Standalone (noAnn, Name "go$w", goWorker) + :| [Standalone (noAnn, go, goWrapper)] + m = + moduleOf + [Standalone (qn "g", lets groupings site)] + [] + expected = + lets + groupings + ( applicationN + (refLocal (Name "go$w")) + (literalInt 1 :| [literalInt 2]) + ) + uncurryWorkerWrapper mempty m + `shouldBe` (moduleOf [Standalone (qn "g", expected)] [], Rewritten) + + it "declines a local candidate whose worker name is bound in the site" do + let go = Name "go" + goDef = + abstraction + (paramNamed (Name "a")) + ( abstraction + (paramNamed (Name "b")) + (eq (refLocal (Name "a")) (refLocal (Name "b"))) + ) + taken = + abstractionN + (paramNamed (Name "c") :| [paramNamed (Name "d")]) + (eq (refLocal (Name "c")) (refLocal (Name "d"))) + site = + application + (application (refLocal go) (literalInt 1)) + (literalInt 2) + m = + moduleOf + [ Standalone + ( qn "g" + , lets + ( Standalone (noAnn, Name "go$w", taken) + :| [Standalone (noAnn, go, goDef)] + ) + site + ) + ] + [] + uncurryWorkerWrapper mempty m `shouldBe` (m, Unmodified) + -- 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 diff --git a/test/ps/output/Golden.LongExceptBind.Test/golden.ir b/test/ps/output/Golden.LongExceptBind.Test/golden.ir index bc5a414a..e878a293 100644 --- a/test/ps/output/Golden.LongExceptBind.Test/golden.ir +++ b/test/ps/output/Golden.LongExceptBind.Test/golden.ir @@ -506,5756 +506,5688 @@ UberModule { qnameModuleName = ModuleName "Golden.LongExceptBind.Test", qnameName = Name "go" }, Let Nothing ( Standalone - ( Nothing, Name "$kont802", AbsN Nothing - ( ParamNamed Nothing ( Name "x1$803" ) :| [] ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "x160$804" ) :| [] ) + ( Nothing, Name "$kont802$w", AbsN Nothing + ( ParamNamed Nothing ( Name "x1$803" ) :| [ ParamNamed Nothing ( Name "x160$804" ) ] ) + ( AppN Nothing ( AppN Nothing + ( Ref Nothing + ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "bind" ) ) + ) ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "bind" ) ) - ) + ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) ( AppN Nothing - ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) + ( Ref Nothing + ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "add$w" ) ) + ) + ( Ref Nothing ( Local ( Name "x160$804" ) ) :| [ LiteralInt Nothing 1 ] ) :| [] + ) :| [] + ) + ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x161" ) :| [] ) + ( AppN Nothing + ( AppN Nothing + ( Ref Nothing + ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "bind" ) ) + ) ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "add$w" ) ) - ) - ( Ref Nothing - ( Local ( Name "x160$804" ) ) :| - [ LiteralInt Nothing 1 ] + ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) + ( AppN Nothing + ( Ref Nothing + ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "add$w" ) ) + ) + ( Ref Nothing ( Local ( Name "x161" ) ) :| [ LiteralInt Nothing 1 ] ) :| [] ) :| [] - ) :| [] + ) ) - ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "x161" ) :| [] ) - ( AppN Nothing + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x162" ) :| [] ) ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "bind" ) ) - ) ( AppN Nothing - ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) + ( Ref Nothing + ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "bind" ) ) + ) ( AppN Nothing ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) - ) + ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( Ref Nothing - ( Local ( Name "x161" ) ) :| - [ LiteralInt Nothing 1 ] + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local ( Name "x162" ) ) :| + [ LiteralInt Nothing 1 ] + ) :| [] ) :| [] - ) :| [] + ) ) - ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "x162" ) :| [] ) - ( AppN Nothing + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x163" ) :| [] ) ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "bind" ) ) - ) ( AppN Nothing ( Ref Nothing - ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) + ( Imported + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "bind" ) + ) ) ( AppN Nothing ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) - ) + ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( Ref Nothing - ( Local ( Name "x162" ) ) :| - [ LiteralInt Nothing 1 ] + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local ( Name "x163" ) ) :| + [ LiteralInt Nothing 1 ] + ) :| [] ) :| [] - ) :| [] + ) ) - ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "x163" ) :| [] ) - ( AppN Nothing + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x164" ) :| [] ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "bind" ) - ) - ) ( AppN Nothing ( Ref Nothing - ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) + ( Imported + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "bind" ) + ) ) ( AppN Nothing ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) - ) + ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( Ref Nothing - ( Local ( Name "x163" ) ) :| - [ LiteralInt Nothing 1 ] + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local ( Name "x164" ) ) :| + [ LiteralInt Nothing 1 ] + ) :| [] ) :| [] - ) :| [] + ) ) - ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "x164" ) :| [] ) - ( AppN Nothing + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x165" ) :| [] ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "bind" ) - ) - ) ( AppN Nothing ( Ref Nothing - ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) + ( Imported + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "bind" ) + ) ) ( AppN Nothing ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) - ) + ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( Ref Nothing - ( Local ( Name "x164" ) ) :| - [ LiteralInt Nothing 1 ] + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local ( Name "x165" ) ) :| + [ LiteralInt Nothing 1 ] + ) :| [] ) :| [] - ) :| [] + ) ) - ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "x165" ) :| [] ) - ( AppN Nothing + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x166" ) :| [] ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "bind" ) - ) - ) ( AppN Nothing ( Ref Nothing - ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) + ( Imported + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "bind" ) + ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) + ( ModuleName "Data.Either" ) + ( Name "Right" ) ) ) - ( Ref Nothing - ( Local ( Name "x165" ) ) :| - [ LiteralInt Nothing 1 ] + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local ( Name "x166" ) ) :| + [ LiteralInt Nothing 1 ] + ) :| [] ) :| [] - ) :| [] + ) ) - ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "x166" ) :| [] ) - ( AppN Nothing + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x167" ) :| [] ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "bind" ) - ) - ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "bind" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) + ( ModuleName "Data.Either" ) + ( Name "Right" ) ) ) - ( Ref Nothing - ( Local ( Name "x166" ) ) :| - [ LiteralInt Nothing 1 ] + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local ( Name "x167" ) ) :| + [ LiteralInt Nothing 1 ] + ) :| [] ) :| [] - ) :| [] + ) ) - ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "x167" ) :| [] ) - ( AppN Nothing + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x168" ) :| [] ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "bind" ) - ) - ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "bind" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local ( Name "x167" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "x168" ) :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "bind" ) + ( ModuleName "Data.Either" ) + ( Name "Right" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local ( Name "x168" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( Ref Nothing + ( Local ( Name "x168" ) ) :| + [ LiteralInt Nothing 1 ] ) :| [] - ) + ) :| [] ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "x169" ) :| [] ) + ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x169" ) :| [] ) + ( AppN Nothing ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "bind" ) + ) + ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "bind" ) + ( ModuleName "Data.Either" ) + ( Name "Right" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local ( Name "x169" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( Ref Nothing + ( Local ( Name "x169" ) ) :| + [ LiteralInt Nothing 1 ] ) :| [] - ) + ) :| [] ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "x170" ) :| [] ) + ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x170" ) :| [] ) + ( AppN Nothing ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "bind" ) + ) + ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "bind" ) + ( ModuleName "Data.Either" ) + ( Name "Right" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local ( Name "x170" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( Ref Nothing + ( Local ( Name "x170" ) ) :| + [ LiteralInt Nothing 1 ] ) :| [] - ) + ) :| [] ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x171" ) :| [] - ) + ) + ( AbsN Nothing + ( ParamNamed Nothing + ( Name "x171" ) :| [] + ) + ( AppN Nothing ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "bind" ) + ) + ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "bind" ) + ( ModuleName "Data.Either" ) + ( Name "Right" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local ( Name "x171" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( Ref Nothing + ( Local ( Name "x171" ) ) :| + [ LiteralInt Nothing 1 ] ) :| [] - ) + ) :| [] ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x172" ) :| [] - ) + ) + ( AbsN Nothing + ( ParamNamed Nothing + ( Name "x172" ) :| [] + ) + ( AppN Nothing ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "bind" ) + ) + ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "bind" ) + ( ModuleName "Data.Either" ) + ( Name "Right" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x172" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( Ref Nothing + ( Local ( Name "x172" ) ) :| + [ LiteralInt Nothing 1 ] ) :| [] - ) + ) :| [] ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x173" ) :| [] - ) + ) + ( AbsN Nothing + ( ParamNamed Nothing + ( Name "x173" ) :| [] + ) + ( AppN Nothing ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "bind" ) + ) + ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "bind" ) + ( ModuleName "Data.Either" ) + ( Name "Right" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x173" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( Ref Nothing + ( Local + ( Name "x173" ) + ) :| + [ LiteralInt Nothing 1 ] ) :| [] - ) + ) :| [] ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x174" ) :| [] - ) + ) + ( AbsN Nothing + ( ParamNamed Nothing + ( Name "x174" ) :| [] + ) + ( AppN Nothing ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "bind" ) + ) + ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "bind" ) + ( ModuleName "Data.Either" ) + ( Name "Right" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x174" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( Ref Nothing + ( Local + ( Name "x174" ) + ) :| + [ LiteralInt Nothing 1 ] ) :| [] - ) + ) :| [] ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x175" ) :| [] - ) + ) + ( AbsN Nothing + ( ParamNamed Nothing + ( Name "x175" ) :| [] + ) + ( AppN Nothing ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "bind" ) + ) + ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "bind" ) + ( ModuleName "Data.Either" ) + ( Name "Right" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x175" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( Ref Nothing + ( Local + ( Name "x175" ) + ) :| + [ LiteralInt Nothing 1 ] ) :| [] - ) + ) :| [] ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x176" ) :| [] - ) + ) + ( AbsN Nothing + ( ParamNamed Nothing + ( Name "x176" ) :| [] + ) + ( AppN Nothing ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "bind" ) + ) + ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "bind" ) + ( ModuleName "Data.Either" ) + ( Name "Right" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x176" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( Ref Nothing + ( Local + ( Name "x176" ) + ) :| + [ LiteralInt Nothing 1 ] ) :| [] - ) + ) :| [] ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x177" ) :| [] - ) + ) + ( AbsN Nothing + ( ParamNamed Nothing + ( Name "x177" ) :| [] + ) + ( AppN Nothing ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "bind" ) + ) + ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "bind" ) + ( ModuleName "Data.Either" ) + ( Name "Right" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x177" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( Ref Nothing + ( Local + ( Name "x177" ) + ) :| + [ LiteralInt Nothing 1 ] ) :| [] - ) + ) :| [] ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x178" ) :| [] - ) + ) + ( AbsN Nothing + ( ParamNamed Nothing + ( Name "x178" ) :| [] + ) + ( AppN Nothing ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "bind" ) + ) + ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "bind" ) + ( ModuleName "Data.Either" ) + ( Name "Right" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x178" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( Ref Nothing + ( Local + ( Name "x178" ) + ) :| + [ LiteralInt Nothing 1 ] ) :| [] - ) + ) :| [] ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x179" ) :| [] - ) + ) + ( AbsN Nothing + ( ParamNamed Nothing + ( Name "x179" ) :| [] + ) + ( AppN Nothing ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "bind" ) + ) + ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "bind" ) + ( ModuleName "Data.Either" ) + ( Name "Right" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x179" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( Ref Nothing + ( Local + ( Name "x179" ) + ) :| + [ LiteralInt Nothing 1 ] ) :| [] - ) + ) :| [] ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x180" ) :| [] - ) + ) + ( AbsN Nothing + ( ParamNamed Nothing + ( Name "x180" ) :| [] + ) + ( AppN Nothing ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "bind" ) + ) + ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "bind" ) + ( ModuleName "Data.Either" ) + ( Name "Right" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x180" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( Ref Nothing + ( Local + ( Name "x180" ) + ) :| + [ LiteralInt Nothing 1 ] ) :| [] - ) + ) :| [] ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x181" ) :| [] - ) + ) + ( AbsN Nothing + ( ParamNamed Nothing + ( Name "x181" ) :| [] + ) + ( AppN Nothing ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "bind" ) + ) + ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "bind" ) + ( ModuleName "Data.Either" ) + ( Name "Right" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x181" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( Ref Nothing + ( Local + ( Name "x181" ) + ) :| + [ LiteralInt Nothing 1 ] ) :| [] - ) + ) :| [] ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x182" ) :| [] - ) + ) + ( AbsN Nothing + ( ParamNamed Nothing + ( Name "x182" ) :| [] + ) + ( AppN Nothing ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "bind" ) + ) + ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "bind" ) + ( ModuleName "Data.Either" ) + ( Name "Right" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x182" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( Ref Nothing + ( Local + ( Name "x182" ) + ) :| + [ LiteralInt Nothing 1 ] ) :| [] - ) + ) :| [] ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x183" ) :| [] - ) + ) + ( AbsN Nothing + ( ParamNamed Nothing + ( Name "x183" ) :| [] + ) + ( AppN Nothing ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "bind" ) + ) + ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "bind" ) + ( ModuleName "Data.Either" ) + ( Name "Right" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x183" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( Ref Nothing + ( Local + ( Name "x183" ) + ) :| + [ LiteralInt Nothing 1 ] ) :| [] - ) + ) :| [] ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x184" ) :| [] - ) + ) + ( AbsN Nothing + ( ParamNamed Nothing + ( Name "x184" ) :| [] + ) + ( AppN Nothing ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "bind" ) + ) + ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "bind" ) + ( ModuleName "Data.Either" ) + ( Name "Right" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x184" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( Ref Nothing + ( Local + ( Name "x184" ) + ) :| + [ LiteralInt Nothing 1 ] ) :| [] - ) + ) :| [] ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x185" ) :| [] - ) + ) + ( AbsN Nothing + ( ParamNamed Nothing + ( Name "x185" ) :| [] + ) + ( AppN Nothing ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "bind" ) + ) + ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "bind" ) + ( ModuleName "Data.Either" ) + ( Name "Right" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x185" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( Ref Nothing + ( Local + ( Name "x185" ) + ) :| + [ LiteralInt Nothing 1 ] ) :| [] - ) + ) :| [] ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x186" ) :| [] - ) + ) + ( AbsN Nothing + ( ParamNamed Nothing + ( Name "x186" ) :| [] + ) + ( AppN Nothing ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "bind" ) + ) + ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "bind" ) + ( ModuleName "Data.Either" ) + ( Name "Right" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x186" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( Ref Nothing + ( Local + ( Name "x186" ) + ) :| + [ LiteralInt Nothing 1 ] ) :| [] - ) + ) :| [] ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x187" ) :| [] - ) + ) + ( AbsN Nothing + ( ParamNamed Nothing + ( Name "x187" ) :| [] + ) + ( AppN Nothing ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "bind" ) + ) + ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "bind" ) + ( ModuleName "Data.Either" ) + ( Name "Right" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x187" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| [] + ) + ) + ( AbsN Nothing + ( ParamNamed Nothing + ( Name "x188" ) :| [] + ) + ( AppN Nothing + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "bind" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) + ( ModuleName "Data.Either" ) + ( Name "Right" ) ) ) - ( Ref Nothing - ( Local - ( Name "x187" ) - ) :| - [ LiteralInt Nothing 1 ] + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x188" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x188" ) :| [] + ) ) - ( AppN Nothing + ( AbsN Nothing + ( ParamNamed Nothing + ( Name "x189" ) :| [] + ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "bind" ) - ) - ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "bind" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) + ( ModuleName "Data.Either" ) + ( Name "Right" ) ) ) - ( Ref Nothing - ( Local - ( Name "x188" ) - ) :| - [ LiteralInt Nothing 1 ] + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x189" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x189" ) :| [] + ) ) - ( AppN Nothing + ( AbsN Nothing + ( ParamNamed Nothing + ( Name "x190" ) :| [] + ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "bind" ) - ) - ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "bind" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) + ( ModuleName "Data.Either" ) + ( Name "Right" ) ) ) - ( Ref Nothing - ( Local - ( Name "x189" ) - ) :| - [ LiteralInt Nothing 1 ] + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x190" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x190" ) :| [] + ) ) - ( AppN Nothing + ( AbsN Nothing + ( ParamNamed Nothing + ( Name "x191" ) :| [] + ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "bind" ) - ) - ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "bind" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) + ( ModuleName "Data.Either" ) + ( Name "Right" ) ) ) - ( Ref Nothing - ( Local - ( Name "x190" ) - ) :| - [ LiteralInt Nothing 1 ] + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x191" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x191" ) :| [] + ) ) - ( AppN Nothing + ( AbsN Nothing + ( ParamNamed Nothing + ( Name "x192" ) :| [] + ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "bind" ) - ) - ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "bind" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) + ( ModuleName "Data.Either" ) + ( Name "Right" ) ) ) - ( Ref Nothing - ( Local - ( Name "x191" ) - ) :| - [ LiteralInt Nothing 1 ] + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x192" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x192" ) :| [] + ) ) - ( AppN Nothing + ( AbsN Nothing + ( ParamNamed Nothing + ( Name "x193" ) :| [] + ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "bind" ) - ) - ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "bind" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) + ( ModuleName "Data.Either" ) + ( Name "Right" ) ) ) - ( Ref Nothing - ( Local - ( Name "x192" ) - ) :| - [ LiteralInt Nothing 1 ] + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x193" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x193" ) :| [] + ) ) - ( AppN Nothing + ( AbsN Nothing + ( ParamNamed Nothing + ( Name "x194" ) :| [] + ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "bind" ) - ) - ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "bind" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) + ( ModuleName "Data.Either" ) + ( Name "Right" ) ) ) - ( Ref Nothing - ( Local - ( Name "x193" ) - ) :| - [ LiteralInt Nothing 1 ] + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x194" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] ) :| [] - ) :| [] + ) ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x194" ) :| [] - ) - ( AppN Nothing + ( AbsN Nothing + ( ParamNamed Nothing + ( Name "x195" ) :| [] + ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "bind" ) - ) - ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "bind" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x194" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x195" ) :| [] - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "bind" ) + ( ModuleName "Data.Either" ) + ( Name "Right" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x195" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( Ref Nothing + ( Local + ( Name "x195" ) + ) :| + [ LiteralInt Nothing 1 ] ) :| [] - ) + ) :| [] ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x196" ) :| [] - ) + ) + ( AbsN Nothing + ( ParamNamed Nothing + ( Name "x196" ) :| [] + ) + ( AppN Nothing ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "bind" ) + ) + ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "bind" ) + ( ModuleName "Data.Either" ) + ( Name "Right" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x196" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( Ref Nothing + ( Local + ( Name "x196" ) + ) :| + [ LiteralInt Nothing 1 ] ) :| [] - ) + ) :| [] ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x197" ) :| [] - ) + ) + ( AbsN Nothing + ( ParamNamed Nothing + ( Name "x197" ) :| [] + ) + ( AppN Nothing ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "bind" ) + ) + ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "bind" ) + ( ModuleName "Data.Either" ) + ( Name "Right" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x197" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( Ref Nothing + ( Local + ( Name "x197" ) + ) :| + [ LiteralInt Nothing 1 ] ) :| [] - ) + ) :| [] ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x198" ) :| [] - ) + ) + ( AbsN Nothing + ( ParamNamed Nothing + ( Name "x198" ) :| [] + ) + ( AppN Nothing ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "bind" ) + ) + ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "bind" ) + ( ModuleName "Data.Either" ) + ( Name "Right" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x198" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( Ref Nothing + ( Local + ( Name "x198" ) + ) :| + [ LiteralInt Nothing 1 ] ) :| [] - ) + ) :| [] ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x199" ) :| [] - ) + ) + ( AbsN Nothing + ( ParamNamed Nothing + ( Name "x199" ) :| [] + ) + ( AppN Nothing ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "bind" ) + ) + ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "bind" ) + ( ModuleName "Data.Either" ) + ( Name "Right" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) ) ) + ( Ref Nothing + ( Local + ( Name "x199" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| [] + ) + ) + ( AbsN Nothing + ( ParamNamed Nothing + ( Name "x200" ) :| [] + ) + ( AppN Nothing + ( ObjectProp Nothing ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) + ( ModuleName "Control.Monad.Except.Trans" ) + ( Name "applicativeExceptT" ) ) ) ( Ref Nothing - ( Local - ( Name "x199" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x200" ) :| [] + ( Imported + ( ModuleName "Data.Identity" ) + ( Name "monadIdentity" ) + ) :| [] + ) + ) + ( PropName "pure" ) ) ( AppN Nothing - ( ObjectProp Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Control.Monad.Except.Trans" ) - ( Name "applicativeExceptT" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Identity" ) - ( Name "monadIdentity" ) - ) :| [] - ) + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) ) - ( PropName "pure" ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing + ( Ref Nothing + ( Local + ( Name "x1$803" ) + ) :| + [ Ref Nothing ( Local - ( Name "x1$803" ) - ) :| - [ Ref Nothing - ( Local - ( Name "x200" ) - ) - ] - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) + ( Name "x200" ) + ) + ] + ) :| [] + ) + ) :| [] + ) + ) :| [] + ) + ) :| [] + ) + ) :| [] + ) + ) :| [] + ) + ) :| [] + ) + ) :| [] + ) + ) :| [] + ) + ) :| [] + ) + ) :| [] + ) + ) :| [] + ) + ) :| [] + ) + ) :| [] + ) + ) :| [] + ) + ) :| [] + ) + ) :| [] + ) + ) :| [] + ) + ) :| [] + ) + ) :| [] + ) + ) :| [] + ) + ) :| [] + ) + ) :| [] + ) + ) :| [] + ) + ) :| [] + ) + ) :| [] + ) + ) :| [] + ) + ) :| [] + ) + ) :| [] + ) + ) :| [] + ) + ) :| [] + ) + ) :| [] + ) + ) :| [] + ) + ) :| [] + ) + ) :| [] + ) + ) :| [] + ) + ) :| [] + ) + ) :| [] + ) + ) :| [] + ) + ) :| [] + ) + ) :| [] ) ) ) :| [ Standalone - ( Nothing, Name "$kont805", AbsN Nothing - ( ParamNamed Nothing ( Name "x1$806" ) :| [] ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "x120$807" ) :| [] ) + ( Nothing, Name "$kont805$w", AbsN Nothing + ( ParamNamed Nothing + ( Name "x1$806" ) :| + [ ParamNamed Nothing ( Name "x120$807" ) ] + ) + ( AppN Nothing ( AppN Nothing + ( Ref Nothing + ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "bind" ) ) + ) ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "bind" ) ) - ) + ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) ( AppN Nothing - ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "add$w" ) ) - ) - ( Ref Nothing - ( Local ( Name "x120$807" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( Ref Nothing + ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "add$w" ) ) + ) + ( Ref Nothing + ( Local ( Name "x120$807" ) ) :| + [ LiteralInt Nothing 1 ] ) :| [] - ) + ) :| [] ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "x121" ) :| [] ) + ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x121" ) :| [] ) + ( AppN Nothing ( AppN Nothing + ( Ref Nothing + ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "bind" ) ) + ) ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "bind" ) ) - ) + ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) ( AppN Nothing ( Ref Nothing - ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) - ) + ( Imported + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) ) - ( Ref Nothing - ( Local ( Name "x121" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ) + ( Ref Nothing + ( Local ( Name "x121" ) ) :| + [ LiteralInt Nothing 1 ] ) :| [] - ) + ) :| [] ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "x122" ) :| [] ) + ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x122" ) :| [] ) + ( AppN Nothing ( AppN Nothing + ( Ref Nothing + ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "bind" ) ) + ) ( AppN Nothing ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "bind" ) - ) + ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) ( AppN Nothing ( Ref Nothing - ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) - ) + ( Imported + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) ) - ( Ref Nothing - ( Local ( Name "x122" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ) + ( Ref Nothing + ( Local ( Name "x122" ) ) :| + [ LiteralInt Nothing 1 ] ) :| [] - ) + ) :| [] ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "x123" ) :| [] ) + ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x123" ) :| [] ) + ( AppN Nothing ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "bind" ) + ) + ) ( AppN Nothing ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "bind" ) - ) + ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) ( AppN Nothing ( Ref Nothing - ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) - ) + ( Imported + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) ) - ( Ref Nothing - ( Local ( Name "x123" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ) + ( Ref Nothing + ( Local ( Name "x123" ) ) :| + [ LiteralInt Nothing 1 ] ) :| [] - ) + ) :| [] ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "x124" ) :| [] ) + ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x124" ) :| [] ) + ( AppN Nothing ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "bind" ) + ) + ) ( AppN Nothing ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "bind" ) - ) + ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) ( AppN Nothing ( Ref Nothing - ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) - ) + ( Imported + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) ) - ( Ref Nothing - ( Local ( Name "x124" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ) + ( Ref Nothing + ( Local ( Name "x124" ) ) :| + [ LiteralInt Nothing 1 ] ) :| [] - ) + ) :| [] ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "x125" ) :| [] ) + ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x125" ) :| [] ) + ( AppN Nothing ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "bind" ) + ) + ) ( AppN Nothing ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "bind" ) - ) + ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local ( Name "x125" ) ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| [] + ) + ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x126" ) :| [] ) + ( AppN Nothing + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "bind" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) + ( ModuleName "Data.Either" ) + ( Name "Right" ) ) ) - ( Ref Nothing - ( Local ( Name "x125" ) ) :| - [ LiteralInt Nothing 1 ] + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local ( Name "x126" ) ) :| + [ LiteralInt Nothing 1 ] + ) :| [] ) :| [] - ) :| [] + ) ) - ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "x126" ) :| [] ) - ( AppN Nothing + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x127" ) :| [] ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "bind" ) - ) - ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "bind" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) + ( ModuleName "Data.Either" ) + ( Name "Right" ) ) ) - ( Ref Nothing - ( Local ( Name "x126" ) ) :| - [ LiteralInt Nothing 1 ] + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local ( Name "x127" ) ) :| + [ LiteralInt Nothing 1 ] + ) :| [] ) :| [] - ) :| [] + ) ) - ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "x127" ) :| [] ) - ( AppN Nothing + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x128" ) :| [] ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "bind" ) - ) - ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "bind" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) + ( ModuleName "Data.Either" ) + ( Name "Right" ) ) ) - ( Ref Nothing - ( Local ( Name "x127" ) ) :| - [ LiteralInt Nothing 1 ] + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local ( Name "x128" ) ) :| + [ LiteralInt Nothing 1 ] + ) :| [] ) :| [] - ) :| [] + ) ) - ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "x128" ) :| [] ) - ( AppN Nothing + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x129" ) :| [] ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "bind" ) - ) - ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "bind" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) + ( ModuleName "Data.Either" ) + ( Name "Right" ) ) ) - ( Ref Nothing - ( Local ( Name "x128" ) ) :| - [ LiteralInt Nothing 1 ] + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local ( Name "x129" ) ) :| + [ LiteralInt Nothing 1 ] + ) :| [] ) :| [] - ) :| [] + ) ) - ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "x129" ) :| [] ) - ( AppN Nothing + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x130" ) :| [] ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "bind" ) - ) - ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "bind" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) + ( ModuleName "Data.Either" ) + ( Name "Right" ) ) ) - ( Ref Nothing - ( Local ( Name "x129" ) ) :| - [ LiteralInt Nothing 1 ] + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local ( Name "x130" ) ) :| + [ LiteralInt Nothing 1 ] + ) :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x130" ) :| [] + ) ) - ( AppN Nothing + ( AbsN Nothing + ( ParamNamed Nothing + ( Name "x131" ) :| [] + ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "bind" ) - ) - ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "bind" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) + ( ModuleName "Data.Either" ) + ( Name "Right" ) ) ) - ( Ref Nothing - ( Local ( Name "x130" ) ) :| - [ LiteralInt Nothing 1 ] + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local ( Name "x131" ) ) :| + [ LiteralInt Nothing 1 ] + ) :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x131" ) :| [] + ) ) - ( AppN Nothing + ( AbsN Nothing + ( ParamNamed Nothing + ( Name "x132" ) :| [] + ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "bind" ) - ) - ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "bind" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) + ( ModuleName "Data.Either" ) + ( Name "Right" ) ) ) - ( Ref Nothing - ( Local ( Name "x131" ) ) :| - [ LiteralInt Nothing 1 ] + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x132" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x132" ) :| [] + ) ) - ( AppN Nothing + ( AbsN Nothing + ( ParamNamed Nothing + ( Name "x133" ) :| [] + ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "bind" ) - ) - ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "bind" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) + ( ModuleName "Data.Either" ) + ( Name "Right" ) ) ) - ( Ref Nothing - ( Local - ( Name "x132" ) - ) :| - [ LiteralInt Nothing 1 ] + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x133" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x133" ) :| [] + ) ) - ( AppN Nothing + ( AbsN Nothing + ( ParamNamed Nothing + ( Name "x134" ) :| [] + ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "bind" ) - ) - ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "bind" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x133" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x134" ) :| [] - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "bind" ) + ( ModuleName "Data.Either" ) + ( Name "Right" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x134" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( Ref Nothing + ( Local + ( Name "x134" ) + ) :| + [ LiteralInt Nothing 1 ] ) :| [] - ) + ) :| [] ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x135" ) :| [] - ) + ) + ( AbsN Nothing + ( ParamNamed Nothing + ( Name "x135" ) :| [] + ) + ( AppN Nothing ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "bind" ) + ) + ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "bind" ) + ( ModuleName "Data.Either" ) + ( Name "Right" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x135" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( Ref Nothing + ( Local + ( Name "x135" ) + ) :| + [ LiteralInt Nothing 1 ] ) :| [] - ) + ) :| [] ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x136" ) :| [] - ) + ) + ( AbsN Nothing + ( ParamNamed Nothing + ( Name "x136" ) :| [] + ) + ( AppN Nothing ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "bind" ) + ) + ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "bind" ) + ( ModuleName "Data.Either" ) + ( Name "Right" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x136" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( Ref Nothing + ( Local + ( Name "x136" ) + ) :| + [ LiteralInt Nothing 1 ] ) :| [] - ) + ) :| [] ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x137" ) :| [] - ) + ) + ( AbsN Nothing + ( ParamNamed Nothing + ( Name "x137" ) :| [] + ) + ( AppN Nothing ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "bind" ) + ) + ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "bind" ) + ( ModuleName "Data.Either" ) + ( Name "Right" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x137" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( Ref Nothing + ( Local + ( Name "x137" ) + ) :| + [ LiteralInt Nothing 1 ] ) :| [] - ) + ) :| [] ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x138" ) :| [] - ) + ) + ( AbsN Nothing + ( ParamNamed Nothing + ( Name "x138" ) :| [] + ) + ( AppN Nothing ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "bind" ) + ) + ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "bind" ) + ( ModuleName "Data.Either" ) + ( Name "Right" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x138" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( Ref Nothing + ( Local + ( Name "x138" ) + ) :| + [ LiteralInt Nothing 1 ] ) :| [] - ) + ) :| [] ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x139" ) :| [] - ) + ) + ( AbsN Nothing + ( ParamNamed Nothing + ( Name "x139" ) :| [] + ) + ( AppN Nothing ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "bind" ) + ) + ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "bind" ) + ( ModuleName "Data.Either" ) + ( Name "Right" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x139" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( Ref Nothing + ( Local + ( Name "x139" ) + ) :| + [ LiteralInt Nothing 1 ] ) :| [] - ) + ) :| [] ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x140" ) :| [] - ) + ) + ( AbsN Nothing + ( ParamNamed Nothing + ( Name "x140" ) :| [] + ) + ( AppN Nothing ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "bind" ) + ) + ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "bind" ) + ( ModuleName "Data.Either" ) + ( Name "Right" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x140" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( Ref Nothing + ( Local + ( Name "x140" ) + ) :| + [ LiteralInt Nothing 1 ] ) :| [] - ) + ) :| [] ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x141" ) :| [] - ) + ) + ( AbsN Nothing + ( ParamNamed Nothing + ( Name "x141" ) :| [] + ) + ( AppN Nothing ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "bind" ) + ) + ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "bind" ) + ( ModuleName "Data.Either" ) + ( Name "Right" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x141" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( Ref Nothing + ( Local + ( Name "x141" ) + ) :| + [ LiteralInt Nothing 1 ] ) :| [] - ) + ) :| [] ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x142" ) :| [] - ) + ) + ( AbsN Nothing + ( ParamNamed Nothing + ( Name "x142" ) :| [] + ) + ( AppN Nothing ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "bind" ) + ) + ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "bind" ) + ( ModuleName "Data.Either" ) + ( Name "Right" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x142" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( Ref Nothing + ( Local + ( Name "x142" ) + ) :| + [ LiteralInt Nothing 1 ] ) :| [] - ) + ) :| [] ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x143" ) :| [] - ) + ) + ( AbsN Nothing + ( ParamNamed Nothing + ( Name "x143" ) :| [] + ) + ( AppN Nothing ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "bind" ) + ) + ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "bind" ) + ( ModuleName "Data.Either" ) + ( Name "Right" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x143" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( Ref Nothing + ( Local + ( Name "x143" ) + ) :| + [ LiteralInt Nothing 1 ] ) :| [] - ) + ) :| [] ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x144" ) :| [] - ) + ) + ( AbsN Nothing + ( ParamNamed Nothing + ( Name "x144" ) :| [] + ) + ( AppN Nothing ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "bind" ) + ) + ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "bind" ) + ( ModuleName "Data.Either" ) + ( Name "Right" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x144" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( Ref Nothing + ( Local + ( Name "x144" ) + ) :| + [ LiteralInt Nothing 1 ] ) :| [] - ) + ) :| [] ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x145" ) :| [] - ) + ) + ( AbsN Nothing + ( ParamNamed Nothing + ( Name "x145" ) :| [] + ) + ( AppN Nothing ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "bind" ) + ) + ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "bind" ) + ( ModuleName "Data.Either" ) + ( Name "Right" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x145" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( Ref Nothing + ( Local + ( Name "x145" ) + ) :| + [ LiteralInt Nothing 1 ] ) :| [] - ) + ) :| [] ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x146" ) :| [] - ) + ) + ( AbsN Nothing + ( ParamNamed Nothing + ( Name "x146" ) :| [] + ) + ( AppN Nothing ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "bind" ) + ) + ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "bind" ) + ( ModuleName "Data.Either" ) + ( Name "Right" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x146" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( Ref Nothing + ( Local + ( Name "x146" ) + ) :| + [ LiteralInt Nothing 1 ] ) :| [] - ) + ) :| [] ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x147" ) :| [] - ) + ) + ( AbsN Nothing + ( ParamNamed Nothing + ( Name "x147" ) :| [] + ) + ( AppN Nothing ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "bind" ) + ) + ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "bind" ) + ( ModuleName "Data.Either" ) + ( Name "Right" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x147" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( Ref Nothing + ( Local + ( Name "x147" ) + ) :| + [ LiteralInt Nothing 1 ] ) :| [] - ) + ) :| [] ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x148" ) :| [] - ) + ) + ( AbsN Nothing + ( ParamNamed Nothing + ( Name "x148" ) :| [] + ) + ( AppN Nothing ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "bind" ) + ) + ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "bind" ) + ( ModuleName "Data.Either" ) + ( Name "Right" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x148" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( Ref Nothing + ( Local + ( Name "x148" ) + ) :| + [ LiteralInt Nothing 1 ] ) :| [] - ) + ) :| [] ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x149" ) :| [] - ) + ) + ( AbsN Nothing + ( ParamNamed Nothing + ( Name "x149" ) :| [] + ) + ( AppN Nothing ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "bind" ) + ) + ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "bind" ) + ( ModuleName "Data.Either" ) + ( Name "Right" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x149" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( Ref Nothing + ( Local + ( Name "x149" ) + ) :| + [ LiteralInt Nothing 1 ] ) :| [] - ) + ) :| [] ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x150" ) :| [] - ) + ) + ( AbsN Nothing + ( ParamNamed Nothing + ( Name "x150" ) :| [] + ) + ( AppN Nothing ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "bind" ) + ) + ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "bind" ) + ( ModuleName "Data.Either" ) + ( Name "Right" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x150" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( Ref Nothing + ( Local + ( Name "x150" ) + ) :| + [ LiteralInt Nothing 1 ] ) :| [] - ) + ) :| [] ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x151" ) :| [] - ) + ) + ( AbsN Nothing + ( ParamNamed Nothing + ( Name "x151" ) :| [] + ) + ( AppN Nothing ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "bind" ) + ) + ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "bind" ) + ( ModuleName "Data.Either" ) + ( Name "Right" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x151" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( Ref Nothing + ( Local + ( Name "x151" ) + ) :| + [ LiteralInt Nothing 1 ] ) :| [] - ) + ) :| [] ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x152" ) :| [] - ) + ) + ( AbsN Nothing + ( ParamNamed Nothing + ( Name "x152" ) :| [] + ) + ( AppN Nothing ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "bind" ) + ) + ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "bind" ) + ( ModuleName "Data.Either" ) + ( Name "Right" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x152" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| [] + ) + ) + ( AbsN Nothing + ( ParamNamed Nothing + ( Name "x153" ) :| [] + ) + ( AppN Nothing + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "bind" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x152" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x153" ) :| [] - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "bind" ) + ( ModuleName "Data.Either" ) + ( Name "Right" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x153" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( Ref Nothing + ( Local + ( Name "x153" ) + ) :| + [ LiteralInt Nothing 1 ] ) :| [] - ) + ) :| [] ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x154" ) :| [] - ) + ) + ( AbsN Nothing + ( ParamNamed Nothing + ( Name "x154" ) :| [] + ) + ( AppN Nothing ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "bind" ) + ) + ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "bind" ) + ( ModuleName "Data.Either" ) + ( Name "Right" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x154" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( Ref Nothing + ( Local + ( Name "x154" ) + ) :| + [ LiteralInt Nothing 1 ] ) :| [] - ) + ) :| [] ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x155" ) :| [] - ) + ) + ( AbsN Nothing + ( ParamNamed Nothing + ( Name "x155" ) :| [] + ) + ( AppN Nothing ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "bind" ) + ) + ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "bind" ) + ( ModuleName "Data.Either" ) + ( Name "Right" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x155" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( Ref Nothing + ( Local + ( Name "x155" ) + ) :| + [ LiteralInt Nothing 1 ] ) :| [] - ) + ) :| [] ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x156" ) :| [] - ) + ) + ( AbsN Nothing + ( ParamNamed Nothing + ( Name "x156" ) :| [] + ) + ( AppN Nothing ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "bind" ) + ) + ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "bind" ) + ( ModuleName "Data.Either" ) + ( Name "Right" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x156" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( Ref Nothing + ( Local + ( Name "x156" ) + ) :| + [ LiteralInt Nothing 1 ] ) :| [] - ) + ) :| [] ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x157" ) :| [] - ) + ) + ( AbsN Nothing + ( ParamNamed Nothing + ( Name "x157" ) :| [] + ) + ( AppN Nothing ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "bind" ) + ) + ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "bind" ) + ( ModuleName "Data.Either" ) + ( Name "Right" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x157" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( Ref Nothing + ( Local + ( Name "x157" ) + ) :| + [ LiteralInt Nothing 1 ] ) :| [] - ) + ) :| [] ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x158" ) :| [] - ) + ) + ( AbsN Nothing + ( ParamNamed Nothing + ( Name "x158" ) :| [] + ) + ( AppN Nothing ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "bind" ) + ) + ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "bind" ) + ( ModuleName "Data.Either" ) + ( Name "Right" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x158" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( Ref Nothing + ( Local + ( Name "x158" ) + ) :| + [ LiteralInt Nothing 1 ] ) :| [] - ) + ) :| [] + ) + ) + ( AbsN Nothing + ( ParamNamed Nothing + ( Name "x159" ) :| [] ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x159" ) :| [] - ) + ( AppN Nothing ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "bind" ) + ) + ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "bind" ) + ( ModuleName "Data.Either" ) + ( Name "Right" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x159" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( Ref Nothing + ( Local + ( Name "x159" ) + ) :| + [ LiteralInt Nothing 1 ] ) :| [] - ) + ) :| [] ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x160" ) :| [] - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Local - ( Name "$kont802" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x1$806" ) - ) :| [] - ) + ) + ( AbsN Nothing + ( ParamNamed Nothing + ( Name "x160" ) :| [] + ) + ( AppN Nothing + ( Ref Nothing + ( Local + ( Name "$kont802$w" ) ) - ( Ref Nothing + ) + ( Ref Nothing + ( Local + ( Name "x1$806" ) + ) :| + [ Ref Nothing ( Local ( Name "x160" ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) + ) + ] + ) + ) :| [] + ) + ) :| [] + ) + ) :| [] + ) + ) :| [] + ) + ) :| [] + ) + ) :| [] + ) + ) :| [] + ) + ) :| [] + ) + ) :| [] + ) + ) :| [] + ) + ) :| [] + ) + ) :| [] + ) + ) :| [] + ) + ) :| [] + ) + ) :| [] + ) + ) :| [] + ) + ) :| [] + ) + ) :| [] + ) + ) :| [] + ) + ) :| [] + ) + ) :| [] + ) + ) :| [] + ) + ) :| [] + ) + ) :| [] + ) + ) :| [] + ) + ) :| [] + ) + ) :| [] + ) + ) :| [] + ) + ) :| [] + ) + ) :| [] + ) + ) :| [] + ) + ) :| [] + ) + ) :| [] + ) + ) :| [] + ) + ) :| [] + ) + ) :| [] + ) + ) :| [] + ) + ) :| [] + ) + ) :| [] + ) + ) :| [] ) ) ), Standalone - ( Nothing, Name "$kont808", AbsN Nothing - ( ParamNamed Nothing ( Name "x1$809" ) :| [] ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "x80$810" ) :| [] ) + ( Nothing, Name "$kont808$w", AbsN Nothing + ( ParamNamed Nothing ( Name "x1$809" ) :| [ ParamNamed Nothing ( Name "x80$810" ) ] ) + ( AppN Nothing ( AppN Nothing + ( Ref Nothing + ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "bind" ) ) + ) ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "bind" ) ) - ) + ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) ( AppN Nothing - ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "add$w" ) ) - ) - ( Ref Nothing - ( Local ( Name "x80$810" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| [] - ) + ( Ref Nothing + ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "add$w" ) ) + ) + ( Ref Nothing ( Local ( Name "x80$810" ) ) :| [ LiteralInt Nothing 1 ] ) :| [] + ) :| [] ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "x81" ) :| [] ) + ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x81" ) :| [] ) + ( AppN Nothing ( AppN Nothing + ( Ref Nothing + ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "bind" ) ) + ) ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "bind" ) ) - ) + ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) ( AppN Nothing ( Ref Nothing - ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) - ) + ( Imported + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) ) - ( Ref Nothing - ( Local ( Name "x81" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| [] - ) + ) + ( Ref Nothing ( Local ( Name "x81" ) ) :| [ LiteralInt Nothing 1 ] ) :| [] + ) :| [] ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "x82" ) :| [] ) + ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x82" ) :| [] ) + ( AppN Nothing ( AppN Nothing + ( Ref Nothing + ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "bind" ) ) + ) ( AppN Nothing ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "bind" ) - ) + ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) ( AppN Nothing ( Ref Nothing - ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) - ) + ( Imported + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) ) - ( Ref Nothing - ( Local ( Name "x82" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ) + ( Ref Nothing + ( Local ( Name "x82" ) ) :| + [ LiteralInt Nothing 1 ] ) :| [] - ) + ) :| [] ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "x83" ) :| [] ) + ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x83" ) :| [] ) + ( AppN Nothing ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "bind" ) + ) + ) ( AppN Nothing ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "bind" ) - ) + ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) ( AppN Nothing ( Ref Nothing - ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) - ) + ( Imported + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) ) - ( Ref Nothing - ( Local ( Name "x83" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ) + ( Ref Nothing + ( Local ( Name "x83" ) ) :| + [ LiteralInt Nothing 1 ] ) :| [] - ) + ) :| [] ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "x84" ) :| [] ) + ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x84" ) :| [] ) + ( AppN Nothing ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "bind" ) + ) + ) ( AppN Nothing ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "bind" ) - ) + ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) ( AppN Nothing ( Ref Nothing - ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) - ) + ( Imported + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) ) - ( Ref Nothing - ( Local ( Name "x84" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ) + ( Ref Nothing + ( Local ( Name "x84" ) ) :| + [ LiteralInt Nothing 1 ] ) :| [] - ) + ) :| [] ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "x85" ) :| [] ) + ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x85" ) :| [] ) + ( AppN Nothing ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "bind" ) + ) + ) ( AppN Nothing ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "bind" ) - ) + ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local ( Name "x85" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( Ref Nothing + ( Local ( Name "x85" ) ) :| + [ LiteralInt Nothing 1 ] ) :| [] - ) + ) :| [] ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "x86" ) :| [] ) + ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x86" ) :| [] ) + ( AppN Nothing ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "bind" ) + ) + ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "bind" ) + ( ModuleName "Data.Either" ) + ( Name "Right" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local ( Name "x86" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( Ref Nothing + ( Local ( Name "x86" ) ) :| + [ LiteralInt Nothing 1 ] ) :| [] - ) + ) :| [] ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "x87" ) :| [] ) + ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x87" ) :| [] ) + ( AppN Nothing ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "bind" ) + ) + ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "bind" ) + ( ModuleName "Data.Either" ) + ( Name "Right" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local ( Name "x87" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( Ref Nothing + ( Local ( Name "x87" ) ) :| + [ LiteralInt Nothing 1 ] ) :| [] - ) + ) :| [] ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "x88" ) :| [] ) + ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x88" ) :| [] ) + ( AppN Nothing ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "bind" ) + ) + ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "bind" ) + ( ModuleName "Data.Either" ) + ( Name "Right" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local ( Name "x88" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( Ref Nothing + ( Local ( Name "x88" ) ) :| + [ LiteralInt Nothing 1 ] ) :| [] - ) + ) :| [] ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "x89" ) :| [] ) + ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x89" ) :| [] ) + ( AppN Nothing ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "bind" ) + ) + ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "bind" ) + ( ModuleName "Data.Either" ) + ( Name "Right" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local ( Name "x89" ) ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| [] + ) + ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x90" ) :| [] ) + ( AppN Nothing + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "bind" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) + ( ModuleName "Data.Either" ) + ( Name "Right" ) ) ) - ( Ref Nothing - ( Local ( Name "x89" ) ) :| - [ LiteralInt Nothing 1 ] + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local ( Name "x90" ) ) :| + [ LiteralInt Nothing 1 ] + ) :| [] ) :| [] - ) :| [] + ) ) - ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "x90" ) :| [] ) - ( AppN Nothing + ( AbsN Nothing + ( ParamNamed Nothing + ( Name "x91" ) :| [] + ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "bind" ) - ) - ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "bind" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) + ( ModuleName "Data.Either" ) + ( Name "Right" ) ) ) - ( Ref Nothing - ( Local ( Name "x90" ) ) :| - [ LiteralInt Nothing 1 ] + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local ( Name "x91" ) ) :| + [ LiteralInt Nothing 1 ] + ) :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x91" ) :| [] + ) ) - ( AppN Nothing + ( AbsN Nothing + ( ParamNamed Nothing + ( Name "x92" ) :| [] + ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "bind" ) - ) - ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "bind" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) + ( ModuleName "Data.Either" ) + ( Name "Right" ) ) ) - ( Ref Nothing - ( Local ( Name "x91" ) ) :| - [ LiteralInt Nothing 1 ] + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local ( Name "x92" ) ) :| + [ LiteralInt Nothing 1 ] + ) :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x92" ) :| [] + ) ) - ( AppN Nothing + ( AbsN Nothing + ( ParamNamed Nothing + ( Name "x93" ) :| [] + ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "bind" ) - ) - ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "bind" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) + ( ModuleName "Data.Either" ) + ( Name "Right" ) ) ) - ( Ref Nothing - ( Local - ( Name "x92" ) - ) :| - [ LiteralInt Nothing 1 ] + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x93" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x93" ) :| [] + ) ) - ( AppN Nothing + ( AbsN Nothing + ( ParamNamed Nothing + ( Name "x94" ) :| [] + ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "bind" ) - ) - ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "bind" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) + ( ModuleName "Data.Either" ) + ( Name "Right" ) ) ) - ( Ref Nothing - ( Local - ( Name "x93" ) - ) :| - [ LiteralInt Nothing 1 ] + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x94" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x94" ) :| [] + ) ) - ( AppN Nothing + ( AbsN Nothing + ( ParamNamed Nothing + ( Name "x95" ) :| [] + ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "bind" ) - ) - ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "bind" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) + ( ModuleName "Data.Either" ) + ( Name "Right" ) ) ) - ( Ref Nothing - ( Local - ( Name "x94" ) - ) :| - [ LiteralInt Nothing 1 ] + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x95" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x95" ) :| [] + ) ) - ( AppN Nothing + ( AbsN Nothing + ( ParamNamed Nothing + ( Name "x96" ) :| [] + ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "bind" ) - ) - ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "bind" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) + ( ModuleName "Data.Either" ) + ( Name "Right" ) ) ) - ( Ref Nothing - ( Local - ( Name "x95" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x96" ) :| [] + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x96" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| [] + ) ) - ( AppN Nothing + ( AbsN Nothing + ( ParamNamed Nothing + ( Name "x97" ) :| [] + ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "bind" ) - ) - ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "bind" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x96" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x97" ) :| [] - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "bind" ) + ( ModuleName "Data.Either" ) + ( Name "Right" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x97" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( Ref Nothing + ( Local + ( Name "x97" ) + ) :| + [ LiteralInt Nothing 1 ] ) :| [] - ) + ) :| [] ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x98" ) :| [] - ) + ) + ( AbsN Nothing + ( ParamNamed Nothing + ( Name "x98" ) :| [] + ) + ( AppN Nothing ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "bind" ) + ) + ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "bind" ) + ( ModuleName "Data.Either" ) + ( Name "Right" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x98" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( Ref Nothing + ( Local + ( Name "x98" ) + ) :| + [ LiteralInt Nothing 1 ] ) :| [] - ) + ) :| [] ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x99" ) :| [] - ) + ) + ( AbsN Nothing + ( ParamNamed Nothing + ( Name "x99" ) :| [] + ) + ( AppN Nothing ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "bind" ) + ) + ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "bind" ) + ( ModuleName "Data.Either" ) + ( Name "Right" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x99" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( Ref Nothing + ( Local + ( Name "x99" ) + ) :| + [ LiteralInt Nothing 1 ] ) :| [] - ) + ) :| [] ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x100" ) :| [] - ) + ) + ( AbsN Nothing + ( ParamNamed Nothing + ( Name "x100" ) :| [] + ) + ( AppN Nothing ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "bind" ) + ) + ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "bind" ) + ( ModuleName "Data.Either" ) + ( Name "Right" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x100" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( Ref Nothing + ( Local + ( Name "x100" ) + ) :| + [ LiteralInt Nothing 1 ] ) :| [] - ) + ) :| [] ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x101" ) :| [] - ) + ) + ( AbsN Nothing + ( ParamNamed Nothing + ( Name "x101" ) :| [] + ) + ( AppN Nothing ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "bind" ) + ) + ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "bind" ) + ( ModuleName "Data.Either" ) + ( Name "Right" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x101" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( Ref Nothing + ( Local + ( Name "x101" ) + ) :| + [ LiteralInt Nothing 1 ] ) :| [] - ) + ) :| [] ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x102" ) :| [] - ) + ) + ( AbsN Nothing + ( ParamNamed Nothing + ( Name "x102" ) :| [] + ) + ( AppN Nothing ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "bind" ) + ) + ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "bind" ) + ( ModuleName "Data.Either" ) + ( Name "Right" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x102" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( Ref Nothing + ( Local + ( Name "x102" ) + ) :| + [ LiteralInt Nothing 1 ] ) :| [] - ) + ) :| [] ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x103" ) :| [] - ) + ) + ( AbsN Nothing + ( ParamNamed Nothing + ( Name "x103" ) :| [] + ) + ( AppN Nothing ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "bind" ) + ) + ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "bind" ) + ( ModuleName "Data.Either" ) + ( Name "Right" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x103" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( Ref Nothing + ( Local + ( Name "x103" ) + ) :| + [ LiteralInt Nothing 1 ] ) :| [] - ) + ) :| [] ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x104" ) :| [] - ) + ) + ( AbsN Nothing + ( ParamNamed Nothing + ( Name "x104" ) :| [] + ) + ( AppN Nothing ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "bind" ) + ) + ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "bind" ) + ( ModuleName "Data.Either" ) + ( Name "Right" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x104" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( Ref Nothing + ( Local + ( Name "x104" ) + ) :| + [ LiteralInt Nothing 1 ] ) :| [] - ) + ) :| [] ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x105" ) :| [] - ) + ) + ( AbsN Nothing + ( ParamNamed Nothing + ( Name "x105" ) :| [] + ) + ( AppN Nothing ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "bind" ) + ) + ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "bind" ) + ( ModuleName "Data.Either" ) + ( Name "Right" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x105" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( Ref Nothing + ( Local + ( Name "x105" ) + ) :| + [ LiteralInt Nothing 1 ] ) :| [] - ) + ) :| [] ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x106" ) :| [] - ) + ) + ( AbsN Nothing + ( ParamNamed Nothing + ( Name "x106" ) :| [] + ) + ( AppN Nothing ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "bind" ) + ) + ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "bind" ) + ( ModuleName "Data.Either" ) + ( Name "Right" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x106" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( Ref Nothing + ( Local + ( Name "x106" ) + ) :| + [ LiteralInt Nothing 1 ] ) :| [] - ) + ) :| [] ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x107" ) :| [] - ) + ) + ( AbsN Nothing + ( ParamNamed Nothing + ( Name "x107" ) :| [] + ) + ( AppN Nothing ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "bind" ) + ) + ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "bind" ) + ( ModuleName "Data.Either" ) + ( Name "Right" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x107" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( Ref Nothing + ( Local + ( Name "x107" ) + ) :| + [ LiteralInt Nothing 1 ] ) :| [] - ) + ) :| [] ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x108" ) :| [] - ) + ) + ( AbsN Nothing + ( ParamNamed Nothing + ( Name "x108" ) :| [] + ) + ( AppN Nothing ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "bind" ) + ) + ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "bind" ) + ( ModuleName "Data.Either" ) + ( Name "Right" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x108" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( Ref Nothing + ( Local + ( Name "x108" ) + ) :| + [ LiteralInt Nothing 1 ] ) :| [] - ) + ) :| [] ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x109" ) :| [] - ) + ) + ( AbsN Nothing + ( ParamNamed Nothing + ( Name "x109" ) :| [] + ) + ( AppN Nothing ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "bind" ) + ) + ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "bind" ) + ( ModuleName "Data.Either" ) + ( Name "Right" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x109" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( Ref Nothing + ( Local + ( Name "x109" ) + ) :| + [ LiteralInt Nothing 1 ] ) :| [] - ) + ) :| [] ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x110" ) :| [] - ) + ) + ( AbsN Nothing + ( ParamNamed Nothing + ( Name "x110" ) :| [] + ) + ( AppN Nothing ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "bind" ) + ) + ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "bind" ) + ( ModuleName "Data.Either" ) + ( Name "Right" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x110" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( Ref Nothing + ( Local + ( Name "x110" ) + ) :| + [ LiteralInt Nothing 1 ] ) :| [] - ) + ) :| [] ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x111" ) :| [] - ) + ) + ( AbsN Nothing + ( ParamNamed Nothing + ( Name "x111" ) :| [] + ) + ( AppN Nothing ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "bind" ) + ) + ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "bind" ) + ( ModuleName "Data.Either" ) + ( Name "Right" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x111" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( Ref Nothing + ( Local + ( Name "x111" ) + ) :| + [ LiteralInt Nothing 1 ] ) :| [] - ) + ) :| [] ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x112" ) :| [] - ) + ) + ( AbsN Nothing + ( ParamNamed Nothing + ( Name "x112" ) :| [] + ) + ( AppN Nothing ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "bind" ) + ) + ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "bind" ) + ( ModuleName "Data.Either" ) + ( Name "Right" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x112" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( Ref Nothing + ( Local + ( Name "x112" ) + ) :| + [ LiteralInt Nothing 1 ] ) :| [] - ) + ) :| [] ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x113" ) :| [] - ) + ) + ( AbsN Nothing + ( ParamNamed Nothing + ( Name "x113" ) :| [] + ) + ( AppN Nothing ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "bind" ) + ) + ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "bind" ) + ( ModuleName "Data.Either" ) + ( Name "Right" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x113" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( Ref Nothing + ( Local + ( Name "x113" ) + ) :| + [ LiteralInt Nothing 1 ] ) :| [] - ) + ) :| [] ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x114" ) :| [] - ) + ) + ( AbsN Nothing + ( ParamNamed Nothing + ( Name "x114" ) :| [] + ) + ( AppN Nothing ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "bind" ) + ) + ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "bind" ) + ( ModuleName "Data.Either" ) + ( Name "Right" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x114" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| [] + ) + ) + ( AbsN Nothing + ( ParamNamed Nothing + ( Name "x115" ) :| [] + ) + ( AppN Nothing + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "bind" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) + ( ModuleName "Data.Either" ) + ( Name "Right" ) ) ) - ( Ref Nothing - ( Local - ( Name "x114" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x115" ) :| [] + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x115" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| [] + ) ) - ( AppN Nothing + ( AbsN Nothing + ( ParamNamed Nothing + ( Name "x116" ) :| [] + ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "bind" ) - ) - ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "bind" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x115" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x116" ) :| [] - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "bind" ) + ( ModuleName "Data.Either" ) + ( Name "Right" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x116" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( Ref Nothing + ( Local + ( Name "x116" ) + ) :| + [ LiteralInt Nothing 1 ] ) :| [] - ) + ) :| [] ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x117" ) :| [] - ) + ) + ( AbsN Nothing + ( ParamNamed Nothing + ( Name "x117" ) :| [] + ) + ( AppN Nothing ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "bind" ) + ) + ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "bind" ) + ( ModuleName "Data.Either" ) + ( Name "Right" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x117" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( Ref Nothing + ( Local + ( Name "x117" ) + ) :| + [ LiteralInt Nothing 1 ] ) :| [] - ) + ) :| [] ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x118" ) :| [] - ) + ) + ( AbsN Nothing + ( ParamNamed Nothing + ( Name "x118" ) :| [] + ) + ( AppN Nothing ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "bind" ) + ) + ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "bind" ) + ( ModuleName "Data.Either" ) + ( Name "Right" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x118" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( Ref Nothing + ( Local + ( Name "x118" ) + ) :| + [ LiteralInt Nothing 1 ] ) :| [] - ) + ) :| [] ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x119" ) :| [] - ) + ) + ( AbsN Nothing + ( ParamNamed Nothing + ( Name "x119" ) :| [] + ) + ( AppN Nothing ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "bind" ) + ) + ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "bind" ) + ( ModuleName "Data.Either" ) + ( Name "Right" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x119" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x120" ) :| [] - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Local - ( Name "$kont805" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x1$809" ) - ) :| [] + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) ) - ) - ( Ref Nothing - ( Local - ( Name "x120" ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) + ) + ( Ref Nothing + ( Local + ( Name "x119" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| [] + ) + ) + ( AbsN Nothing + ( ParamNamed Nothing + ( Name "x120" ) :| [] + ) + ( AppN Nothing + ( Ref Nothing + ( Local + ( Name "$kont805$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x1$809" ) + ) :| + [ Ref Nothing + ( Local + ( Name "x120" ) + ) + ] + ) + ) :| [] + ) + ) :| [] + ) + ) :| [] + ) + ) :| [] + ) + ) :| [] + ) + ) :| [] + ) + ) :| [] + ) + ) :| [] + ) + ) :| [] + ) + ) :| [] + ) + ) :| [] + ) + ) :| [] + ) + ) :| [] + ) + ) :| [] + ) + ) :| [] + ) + ) :| [] + ) + ) :| [] + ) + ) :| [] + ) + ) :| [] + ) + ) :| [] + ) + ) :| [] + ) + ) :| [] + ) + ) :| [] + ) + ) :| [] + ) + ) :| [] + ) + ) :| [] + ) + ) :| [] + ) + ) :| [] + ) + ) :| [] + ) + ) :| [] + ) + ) :| [] + ) + ) :| [] + ) + ) :| [] + ) + ) :| [] + ) + ) :| [] + ) + ) :| [] + ) + ) :| [] + ) + ) :| [] + ) + ) :| [] + ) + ) :| [] ) ) ), Standalone - ( Nothing, Name "$kont811", AbsN Nothing - ( ParamNamed Nothing ( Name "x1$812" ) :| [] ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "x40$813" ) :| [] ) + ( Nothing, Name "$kont811$w", AbsN Nothing + ( ParamNamed Nothing ( Name "x1$812" ) :| [ ParamNamed Nothing ( Name "x40$813" ) ] ) + ( AppN Nothing ( AppN Nothing + ( Ref Nothing + ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "bind" ) ) + ) ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "bind" ) ) - ) + ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) ( AppN Nothing - ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "add$w" ) ) - ) - ( Ref Nothing - ( Local ( Name "x40$813" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| [] - ) + ( Ref Nothing + ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "add$w" ) ) + ) + ( Ref Nothing ( Local ( Name "x40$813" ) ) :| [ LiteralInt Nothing 1 ] ) :| [] + ) :| [] ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "x41" ) :| [] ) + ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x41" ) :| [] ) + ( AppN Nothing ( AppN Nothing + ( Ref Nothing + ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "bind" ) ) + ) ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "bind" ) ) - ) + ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) ( AppN Nothing ( Ref Nothing - ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) - ) + ( Imported + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) ) - ( Ref Nothing - ( Local ( Name "x41" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| [] - ) + ) + ( Ref Nothing ( Local ( Name "x41" ) ) :| [ LiteralInt Nothing 1 ] ) :| [] + ) :| [] ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "x42" ) :| [] ) + ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x42" ) :| [] ) + ( AppN Nothing ( AppN Nothing + ( Ref Nothing + ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "bind" ) ) + ) ( AppN Nothing ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "bind" ) - ) + ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) ( AppN Nothing ( Ref Nothing - ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) - ) + ( Imported + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) ) - ( Ref Nothing - ( Local ( Name "x42" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ) + ( Ref Nothing + ( Local ( Name "x42" ) ) :| + [ LiteralInt Nothing 1 ] ) :| [] - ) + ) :| [] ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "x43" ) :| [] ) + ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x43" ) :| [] ) + ( AppN Nothing ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "bind" ) + ) + ) ( AppN Nothing ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "bind" ) - ) + ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) ( AppN Nothing ( Ref Nothing - ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) - ) + ( Imported + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) ) - ( Ref Nothing - ( Local ( Name "x43" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ) + ( Ref Nothing + ( Local ( Name "x43" ) ) :| + [ LiteralInt Nothing 1 ] ) :| [] - ) + ) :| [] ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "x44" ) :| [] ) + ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x44" ) :| [] ) + ( AppN Nothing ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "bind" ) + ) + ) ( AppN Nothing ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "bind" ) - ) + ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) ( AppN Nothing ( Ref Nothing - ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) - ) + ( Imported + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) ) - ( Ref Nothing - ( Local ( Name "x44" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ) + ( Ref Nothing + ( Local ( Name "x44" ) ) :| + [ LiteralInt Nothing 1 ] ) :| [] - ) + ) :| [] ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "x45" ) :| [] ) + ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x45" ) :| [] ) + ( AppN Nothing ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "bind" ) + ) + ) ( AppN Nothing ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "bind" ) - ) + ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local ( Name "x45" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( Ref Nothing + ( Local ( Name "x45" ) ) :| + [ LiteralInt Nothing 1 ] ) :| [] - ) + ) :| [] ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "x46" ) :| [] ) + ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x46" ) :| [] ) + ( AppN Nothing ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "bind" ) + ) + ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "bind" ) + ( ModuleName "Data.Either" ) + ( Name "Right" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local ( Name "x46" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( Ref Nothing + ( Local ( Name "x46" ) ) :| + [ LiteralInt Nothing 1 ] ) :| [] - ) + ) :| [] ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "x47" ) :| [] ) + ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x47" ) :| [] ) + ( AppN Nothing ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "bind" ) + ) + ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "bind" ) + ( ModuleName "Data.Either" ) + ( Name "Right" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local ( Name "x47" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( Ref Nothing + ( Local ( Name "x47" ) ) :| + [ LiteralInt Nothing 1 ] ) :| [] - ) + ) :| [] ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "x48" ) :| [] ) + ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x48" ) :| [] ) + ( AppN Nothing ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "bind" ) + ) + ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "bind" ) + ( ModuleName "Data.Either" ) + ( Name "Right" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local ( Name "x48" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( Ref Nothing + ( Local ( Name "x48" ) ) :| + [ LiteralInt Nothing 1 ] ) :| [] - ) + ) :| [] ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "x49" ) :| [] ) + ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x49" ) :| [] ) + ( AppN Nothing ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "bind" ) + ) + ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "bind" ) + ( ModuleName "Data.Either" ) + ( Name "Right" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local ( Name "x49" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( Ref Nothing + ( Local ( Name "x49" ) ) :| + [ LiteralInt Nothing 1 ] ) :| [] - ) + ) :| [] ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "x50" ) :| [] ) + ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x50" ) :| [] ) + ( AppN Nothing ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "bind" ) + ) + ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "bind" ) + ( ModuleName "Data.Either" ) + ( Name "Right" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local ( Name "x50" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( Ref Nothing + ( Local ( Name "x50" ) ) :| + [ LiteralInt Nothing 1 ] ) :| [] - ) + ) :| [] ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x51" ) :| [] - ) + ) + ( AbsN Nothing + ( ParamNamed Nothing + ( Name "x51" ) :| [] + ) + ( AppN Nothing ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "bind" ) + ) + ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "bind" ) + ( ModuleName "Data.Either" ) + ( Name "Right" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local ( Name "x51" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( Ref Nothing + ( Local ( Name "x51" ) ) :| + [ LiteralInt Nothing 1 ] ) :| [] - ) + ) :| [] ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x52" ) :| [] - ) + ) + ( AbsN Nothing + ( ParamNamed Nothing + ( Name "x52" ) :| [] + ) + ( AppN Nothing ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "bind" ) + ) + ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "bind" ) + ( ModuleName "Data.Either" ) + ( Name "Right" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local ( Name "x52" ) ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| [] + ) + ) + ( AbsN Nothing + ( ParamNamed Nothing + ( Name "x53" ) :| [] + ) + ( AppN Nothing + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "bind" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x52" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x53" ) :| [] - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "bind" ) + ( ModuleName "Data.Either" ) + ( Name "Right" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x53" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( Ref Nothing + ( Local + ( Name "x53" ) + ) :| + [ LiteralInt Nothing 1 ] ) :| [] - ) + ) :| [] ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x54" ) :| [] - ) + ) + ( AbsN Nothing + ( ParamNamed Nothing + ( Name "x54" ) :| [] + ) + ( AppN Nothing ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "bind" ) + ) + ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "bind" ) + ( ModuleName "Data.Either" ) + ( Name "Right" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x54" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( Ref Nothing + ( Local + ( Name "x54" ) + ) :| + [ LiteralInt Nothing 1 ] ) :| [] - ) + ) :| [] ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x55" ) :| [] - ) + ) + ( AbsN Nothing + ( ParamNamed Nothing + ( Name "x55" ) :| [] + ) + ( AppN Nothing ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "bind" ) + ) + ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "bind" ) + ( ModuleName "Data.Either" ) + ( Name "Right" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x55" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( Ref Nothing + ( Local + ( Name "x55" ) + ) :| + [ LiteralInt Nothing 1 ] ) :| [] - ) + ) :| [] ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x56" ) :| [] - ) + ) + ( AbsN Nothing + ( ParamNamed Nothing + ( Name "x56" ) :| [] + ) + ( AppN Nothing ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "bind" ) + ) + ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "bind" ) + ( ModuleName "Data.Either" ) + ( Name "Right" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x56" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( Ref Nothing + ( Local + ( Name "x56" ) + ) :| + [ LiteralInt Nothing 1 ] ) :| [] - ) + ) :| [] ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x57" ) :| [] - ) + ) + ( AbsN Nothing + ( ParamNamed Nothing + ( Name "x57" ) :| [] + ) + ( AppN Nothing ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "bind" ) + ) + ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "bind" ) + ( ModuleName "Data.Either" ) + ( Name "Right" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x57" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( Ref Nothing + ( Local + ( Name "x57" ) + ) :| + [ LiteralInt Nothing 1 ] ) :| [] - ) + ) :| [] ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x58" ) :| [] - ) + ) + ( AbsN Nothing + ( ParamNamed Nothing + ( Name "x58" ) :| [] + ) + ( AppN Nothing ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "bind" ) + ) + ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "bind" ) + ( ModuleName "Data.Either" ) + ( Name "Right" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x58" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( Ref Nothing + ( Local + ( Name "x58" ) + ) :| + [ LiteralInt Nothing 1 ] ) :| [] - ) + ) :| [] + ) + ) + ( AbsN Nothing + ( ParamNamed Nothing + ( Name "x59" ) :| [] ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x59" ) :| [] - ) + ( AppN Nothing ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "bind" ) + ) + ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "bind" ) + ( ModuleName "Data.Either" ) + ( Name "Right" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x59" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( Ref Nothing + ( Local + ( Name "x59" ) + ) :| + [ LiteralInt Nothing 1 ] ) :| [] - ) + ) :| [] ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x60" ) :| [] - ) + ) + ( AbsN Nothing + ( ParamNamed Nothing + ( Name "x60" ) :| [] + ) + ( AppN Nothing ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "bind" ) + ) + ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "bind" ) + ( ModuleName "Data.Either" ) + ( Name "Right" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x60" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( Ref Nothing + ( Local + ( Name "x60" ) + ) :| + [ LiteralInt Nothing 1 ] ) :| [] - ) + ) :| [] ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x61" ) :| [] - ) + ) + ( AbsN Nothing + ( ParamNamed Nothing + ( Name "x61" ) :| [] + ) + ( AppN Nothing ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "bind" ) + ) + ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "bind" ) + ( ModuleName "Data.Either" ) + ( Name "Right" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x61" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( Ref Nothing + ( Local + ( Name "x61" ) + ) :| + [ LiteralInt Nothing 1 ] ) :| [] - ) + ) :| [] ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x62" ) :| [] - ) + ) + ( AbsN Nothing + ( ParamNamed Nothing + ( Name "x62" ) :| [] + ) + ( AppN Nothing ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "bind" ) + ) + ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "bind" ) + ( ModuleName "Data.Either" ) + ( Name "Right" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x62" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( Ref Nothing + ( Local + ( Name "x62" ) + ) :| + [ LiteralInt Nothing 1 ] ) :| [] - ) + ) :| [] ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x63" ) :| [] - ) + ) + ( AbsN Nothing + ( ParamNamed Nothing + ( Name "x63" ) :| [] + ) + ( AppN Nothing ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "bind" ) + ) + ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "bind" ) + ( ModuleName "Data.Either" ) + ( Name "Right" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x63" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( Ref Nothing + ( Local + ( Name "x63" ) + ) :| + [ LiteralInt Nothing 1 ] ) :| [] - ) + ) :| [] ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x64" ) :| [] - ) + ) + ( AbsN Nothing + ( ParamNamed Nothing + ( Name "x64" ) :| [] + ) + ( AppN Nothing ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "bind" ) + ) + ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "bind" ) + ( ModuleName "Data.Either" ) + ( Name "Right" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x64" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( Ref Nothing + ( Local + ( Name "x64" ) + ) :| + [ LiteralInt Nothing 1 ] ) :| [] - ) + ) :| [] ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x65" ) :| [] - ) + ) + ( AbsN Nothing + ( ParamNamed Nothing + ( Name "x65" ) :| [] + ) + ( AppN Nothing ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "bind" ) + ) + ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "bind" ) + ( ModuleName "Data.Either" ) + ( Name "Right" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x65" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( Ref Nothing + ( Local + ( Name "x65" ) + ) :| + [ LiteralInt Nothing 1 ] ) :| [] - ) + ) :| [] ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x66" ) :| [] - ) + ) + ( AbsN Nothing + ( ParamNamed Nothing + ( Name "x66" ) :| [] + ) + ( AppN Nothing ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "bind" ) + ) + ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "bind" ) + ( ModuleName "Data.Either" ) + ( Name "Right" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x66" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( Ref Nothing + ( Local + ( Name "x66" ) + ) :| + [ LiteralInt Nothing 1 ] ) :| [] - ) + ) :| [] ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x67" ) :| [] - ) + ) + ( AbsN Nothing + ( ParamNamed Nothing + ( Name "x67" ) :| [] + ) + ( AppN Nothing ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "bind" ) + ) + ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "bind" ) + ( ModuleName "Data.Either" ) + ( Name "Right" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x67" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( Ref Nothing + ( Local + ( Name "x67" ) + ) :| + [ LiteralInt Nothing 1 ] ) :| [] - ) + ) :| [] ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x68" ) :| [] - ) + ) + ( AbsN Nothing + ( ParamNamed Nothing + ( Name "x68" ) :| [] + ) + ( AppN Nothing ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "bind" ) + ) + ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "bind" ) + ( ModuleName "Data.Either" ) + ( Name "Right" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x68" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( Ref Nothing + ( Local + ( Name "x68" ) + ) :| + [ LiteralInt Nothing 1 ] ) :| [] - ) + ) :| [] ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x69" ) :| [] - ) + ) + ( AbsN Nothing + ( ParamNamed Nothing + ( Name "x69" ) :| [] + ) + ( AppN Nothing ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "bind" ) + ) + ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "bind" ) + ( ModuleName "Data.Either" ) + ( Name "Right" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x69" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( Ref Nothing + ( Local + ( Name "x69" ) + ) :| + [ LiteralInt Nothing 1 ] ) :| [] - ) + ) :| [] ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x70" ) :| [] - ) + ) + ( AbsN Nothing + ( ParamNamed Nothing + ( Name "x70" ) :| [] + ) + ( AppN Nothing ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "bind" ) + ) + ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "bind" ) + ( ModuleName "Data.Either" ) + ( Name "Right" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x70" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( Ref Nothing + ( Local + ( Name "x70" ) + ) :| + [ LiteralInt Nothing 1 ] ) :| [] - ) + ) :| [] ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x71" ) :| [] - ) + ) + ( AbsN Nothing + ( ParamNamed Nothing + ( Name "x71" ) :| [] + ) + ( AppN Nothing ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "bind" ) + ) + ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "bind" ) + ( ModuleName "Data.Either" ) + ( Name "Right" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x71" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| [] + ) + ) + ( AbsN Nothing + ( ParamNamed Nothing + ( Name "x72" ) :| [] + ) + ( AppN Nothing + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "bind" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x71" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x72" ) :| [] - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "bind" ) + ( ModuleName "Data.Either" ) + ( Name "Right" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x72" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( Ref Nothing + ( Local + ( Name "x72" ) + ) :| + [ LiteralInt Nothing 1 ] ) :| [] - ) + ) :| [] ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x73" ) :| [] - ) + ) + ( AbsN Nothing + ( ParamNamed Nothing + ( Name "x73" ) :| [] + ) + ( AppN Nothing ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "bind" ) + ) + ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "bind" ) + ( ModuleName "Data.Either" ) + ( Name "Right" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x73" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( Ref Nothing + ( Local + ( Name "x73" ) + ) :| + [ LiteralInt Nothing 1 ] ) :| [] - ) + ) :| [] ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x74" ) :| [] - ) + ) + ( AbsN Nothing + ( ParamNamed Nothing + ( Name "x74" ) :| [] + ) + ( AppN Nothing ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "bind" ) + ) + ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "bind" ) + ( ModuleName "Data.Either" ) + ( Name "Right" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x74" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( Ref Nothing + ( Local + ( Name "x74" ) + ) :| + [ LiteralInt Nothing 1 ] ) :| [] - ) + ) :| [] ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x75" ) :| [] - ) + ) + ( AbsN Nothing + ( ParamNamed Nothing + ( Name "x75" ) :| [] + ) + ( AppN Nothing ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "bind" ) + ) + ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "bind" ) + ( ModuleName "Data.Either" ) + ( Name "Right" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x75" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( Ref Nothing + ( Local + ( Name "x75" ) + ) :| + [ LiteralInt Nothing 1 ] ) :| [] - ) + ) :| [] ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x76" ) :| [] - ) + ) + ( AbsN Nothing + ( ParamNamed Nothing + ( Name "x76" ) :| [] + ) + ( AppN Nothing ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "bind" ) + ) + ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "bind" ) + ( ModuleName "Data.Either" ) + ( Name "Right" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x76" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( Ref Nothing + ( Local + ( Name "x76" ) + ) :| + [ LiteralInt Nothing 1 ] ) :| [] - ) + ) :| [] ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x77" ) :| [] - ) + ) + ( AbsN Nothing + ( ParamNamed Nothing + ( Name "x77" ) :| [] + ) + ( AppN Nothing ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "bind" ) + ) + ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "bind" ) + ( ModuleName "Data.Either" ) + ( Name "Right" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x77" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( Ref Nothing + ( Local + ( Name "x77" ) + ) :| + [ LiteralInt Nothing 1 ] ) :| [] - ) + ) :| [] + ) + ) + ( AbsN Nothing + ( ParamNamed Nothing + ( Name "x78" ) :| [] ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x78" ) :| [] - ) + ( AppN Nothing ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "bind" ) + ) + ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "bind" ) + ( ModuleName "Data.Either" ) + ( Name "Right" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x78" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( Ref Nothing + ( Local + ( Name "x78" ) + ) :| + [ LiteralInt Nothing 1 ] ) :| [] - ) + ) :| [] ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x79" ) :| [] - ) + ) + ( AbsN Nothing + ( ParamNamed Nothing + ( Name "x79" ) :| [] + ) + ( AppN Nothing ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "bind" ) + ) + ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "bind" ) + ( ModuleName "Data.Either" ) + ( Name "Right" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x79" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( Ref Nothing + ( Local + ( Name "x79" ) + ) :| + [ LiteralInt Nothing 1 ] ) :| [] - ) + ) :| [] ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x80" ) :| [] - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Local - ( Name "$kont808" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x1$812" ) - ) :| [] - ) + ) + ( AbsN Nothing + ( ParamNamed Nothing + ( Name "x80" ) :| [] + ) + ( AppN Nothing + ( Ref Nothing + ( Local + ( Name "$kont808$w" ) ) - ( Ref Nothing + ) + ( Ref Nothing + ( Local + ( Name "x1$812" ) + ) :| + [ Ref Nothing ( Local ( Name "x80" ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) + ) + ] + ) + ) :| [] + ) + ) :| [] + ) + ) :| [] + ) + ) :| [] + ) + ) :| [] + ) + ) :| [] + ) + ) :| [] + ) + ) :| [] + ) + ) :| [] + ) + ) :| [] + ) + ) :| [] + ) + ) :| [] + ) + ) :| [] + ) + ) :| [] + ) + ) :| [] + ) + ) :| [] + ) + ) :| [] + ) + ) :| [] + ) + ) :| [] + ) + ) :| [] + ) + ) :| [] + ) + ) :| [] + ) + ) :| [] + ) + ) :| [] + ) + ) :| [] + ) + ) :| [] + ) + ) :| [] + ) + ) :| [] + ) + ) :| [] + ) + ) :| [] + ) + ) :| [] + ) + ) :| [] + ) + ) :| [] + ) + ) :| [] + ) + ) :| [] + ) + ) :| [] + ) + ) :| [] + ) + ) :| [] + ) + ) :| [] + ) + ) :| [] ) ) ) @@ -7548,22 +7480,20 @@ UberModule ( Name "x40" ) :| [] ) ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Local - ( Name "$kont811" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x1" ) - ) :| [] + ( Ref Nothing + ( Local + ( Name "$kont811$w" ) ) ) ( Ref Nothing ( Local - ( Name "x40" ) - ) :| [] + ( Name "x1" ) + ) :| + [ Ref Nothing + ( Local + ( Name "x40" ) + ) + ] ) ) :| [] ) diff --git a/test/ps/output/Golden.LongExceptBind.Test/golden.lua b/test/ps/output/Golden.LongExceptBind.Test/golden.lua index ad6fe849..b5bf6bc2 100644 --- a/test/ps/output/Golden.LongExceptBind.Test/golden.lua +++ b/test/ps/output/Golden.LongExceptBind.Test/golden.lua @@ -164,50 +164,48 @@ local Golden_LongExceptBind_Test_add_S_w = function(x_S_552, y_S_553) return x_S_552 + y_S_553 end local Golden_LongExceptBind_Test_go = (function() - local _S_kont802 = function(x1_S_803) - return function(x160_S_804) - return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x160_S_804, 1)))(function( x161 ) - return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x161, 1)))(function( x162 ) - return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x162, 1)))(function( x163 ) - return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x163, 1)))(function( x164 ) - return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x164, 1)))(function( x165 ) - return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x165, 1)))(function( x166 ) - return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x166, 1)))(function( x167 ) - return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x167, 1)))(function( x168 ) - return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x168, 1)))(function( x169 ) - return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x169, 1)))(function( x170 ) - return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x170, 1)))(function( x171 ) - return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x171, 1)))(function( x172 ) - return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x172, 1)))(function( x173 ) - return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x173, 1)))(function( x174 ) - return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x174, 1)))(function( x175 ) - return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x175, 1)))(function( x176 ) - return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x176, 1)))(function( x177 ) - return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x177, 1)))(function( x178 ) - return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x178, 1)))(function( x179 ) - return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x179, 1)))(function( x180 ) - return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x180, 1)))(function( x181 ) - return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x181, 1)))(function( x182 ) - return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x182, 1)))(function( x183 ) - return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x183, 1)))(function( x184 ) - return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x184, 1)))(function( x185 ) - return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x185, 1)))(function( x186 ) - return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x186, 1)))(function( x187 ) - return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x187, 1)))(function( x188 ) - return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x188, 1)))(function( x189 ) - return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x189, 1)))(function( x190 ) - return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x190, 1)))(function( x191 ) - return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x191, 1)))(function( x192 ) - return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x192, 1)))(function( x193 ) - return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x193, 1)))(function( x194 ) - return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x194, 1)))(function( x195 ) - return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x195, 1)))(function( x196 ) - return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x196, 1)))(function( x197 ) - return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x197, 1)))(function( x198 ) - return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x198, 1)))(function( x199 ) - return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x199, 1)))(function( x200 ) - return (Control_Monad_Except_Trans_applicativeExceptT(Data_Identity_monadIdentity)).pure(Golden_LongExceptBind_Test_add_S_w(x1_S_803, x200)) - end) + local _S_kont802_S_w = function(x1_S_803, x160_S_804) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x160_S_804, 1)))(function( x161 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x161, 1)))(function( x162 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x162, 1)))(function( x163 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x163, 1)))(function( x164 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x164, 1)))(function( x165 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x165, 1)))(function( x166 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x166, 1)))(function( x167 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x167, 1)))(function( x168 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x168, 1)))(function( x169 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x169, 1)))(function( x170 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x170, 1)))(function( x171 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x171, 1)))(function( x172 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x172, 1)))(function( x173 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x173, 1)))(function( x174 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x174, 1)))(function( x175 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x175, 1)))(function( x176 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x176, 1)))(function( x177 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x177, 1)))(function( x178 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x178, 1)))(function( x179 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x179, 1)))(function( x180 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x180, 1)))(function( x181 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x181, 1)))(function( x182 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x182, 1)))(function( x183 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x183, 1)))(function( x184 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x184, 1)))(function( x185 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x185, 1)))(function( x186 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x186, 1)))(function( x187 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x187, 1)))(function( x188 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x188, 1)))(function( x189 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x189, 1)))(function( x190 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x190, 1)))(function( x191 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x191, 1)))(function( x192 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x192, 1)))(function( x193 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x193, 1)))(function( x194 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x194, 1)))(function( x195 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x195, 1)))(function( x196 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x196, 1)))(function( x197 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x197, 1)))(function( x198 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x198, 1)))(function( x199 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x199, 1)))(function( x200 ) + return (Control_Monad_Except_Trans_applicativeExceptT(Data_Identity_monadIdentity)).pure(Golden_LongExceptBind_Test_add_S_w(x1_S_803, x200)) end) end) end) @@ -247,52 +245,50 @@ local Golden_LongExceptBind_Test_go = (function() end) end) end) - end + end) end - local _S_kont805 = function(x1_S_806) - return function(x120_S_807) - return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x120_S_807, 1)))(function( x121 ) - return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x121, 1)))(function( x122 ) - return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x122, 1)))(function( x123 ) - return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x123, 1)))(function( x124 ) - return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x124, 1)))(function( x125 ) - return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x125, 1)))(function( x126 ) - return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x126, 1)))(function( x127 ) - return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x127, 1)))(function( x128 ) - return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x128, 1)))(function( x129 ) - return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x129, 1)))(function( x130 ) - return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x130, 1)))(function( x131 ) - return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x131, 1)))(function( x132 ) - return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x132, 1)))(function( x133 ) - return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x133, 1)))(function( x134 ) - return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x134, 1)))(function( x135 ) - return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x135, 1)))(function( x136 ) - return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x136, 1)))(function( x137 ) - return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x137, 1)))(function( x138 ) - return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x138, 1)))(function( x139 ) - return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x139, 1)))(function( x140 ) - return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x140, 1)))(function( x141 ) - return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x141, 1)))(function( x142 ) - return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x142, 1)))(function( x143 ) - return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x143, 1)))(function( x144 ) - return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x144, 1)))(function( x145 ) - return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x145, 1)))(function( x146 ) - return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x146, 1)))(function( x147 ) - return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x147, 1)))(function( x148 ) - return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x148, 1)))(function( x149 ) - return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x149, 1)))(function( x150 ) - return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x150, 1)))(function( x151 ) - return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x151, 1)))(function( x152 ) - return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x152, 1)))(function( x153 ) - return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x153, 1)))(function( x154 ) - return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x154, 1)))(function( x155 ) - return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x155, 1)))(function( x156 ) - return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x156, 1)))(function( x157 ) - return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x157, 1)))(function( x158 ) - return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x158, 1)))(function( x159 ) - return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x159, 1)))(function( x160 ) - return _S_kont802(x1_S_806)(x160) - end) + local _S_kont805_S_w = function(x1_S_806, x120_S_807) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x120_S_807, 1)))(function( x121 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x121, 1)))(function( x122 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x122, 1)))(function( x123 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x123, 1)))(function( x124 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x124, 1)))(function( x125 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x125, 1)))(function( x126 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x126, 1)))(function( x127 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x127, 1)))(function( x128 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x128, 1)))(function( x129 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x129, 1)))(function( x130 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x130, 1)))(function( x131 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x131, 1)))(function( x132 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x132, 1)))(function( x133 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x133, 1)))(function( x134 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x134, 1)))(function( x135 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x135, 1)))(function( x136 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x136, 1)))(function( x137 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x137, 1)))(function( x138 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x138, 1)))(function( x139 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x139, 1)))(function( x140 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x140, 1)))(function( x141 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x141, 1)))(function( x142 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x142, 1)))(function( x143 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x143, 1)))(function( x144 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x144, 1)))(function( x145 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x145, 1)))(function( x146 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x146, 1)))(function( x147 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x147, 1)))(function( x148 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x148, 1)))(function( x149 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x149, 1)))(function( x150 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x150, 1)))(function( x151 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x151, 1)))(function( x152 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x152, 1)))(function( x153 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x153, 1)))(function( x154 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x154, 1)))(function( x155 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x155, 1)))(function( x156 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x156, 1)))(function( x157 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x157, 1)))(function( x158 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x158, 1)))(function( x159 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x159, 1)))(function( x160 ) + return _S_kont802_S_w(x1_S_806, x160) end) end) end) @@ -332,52 +328,50 @@ local Golden_LongExceptBind_Test_go = (function() end) end) end) - end + end) end - local _S_kont808 = function(x1_S_809) - return function(x80_S_810) - return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x80_S_810, 1)))(function( x81 ) - return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x81, 1)))(function( x82 ) - return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x82, 1)))(function( x83 ) - return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x83, 1)))(function( x84 ) - return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x84, 1)))(function( x85 ) - return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x85, 1)))(function( x86 ) - return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x86, 1)))(function( x87 ) - return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x87, 1)))(function( x88 ) - return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x88, 1)))(function( x89 ) - return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x89, 1)))(function( x90 ) - return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x90, 1)))(function( x91 ) - return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x91, 1)))(function( x92 ) - return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x92, 1)))(function( x93 ) - return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x93, 1)))(function( x94 ) - return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x94, 1)))(function( x95 ) - return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x95, 1)))(function( x96 ) - return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x96, 1)))(function( x97 ) - return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x97, 1)))(function( x98 ) - return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x98, 1)))(function( x99 ) - return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x99, 1)))(function( x100 ) - return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x100, 1)))(function( x101 ) - return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x101, 1)))(function( x102 ) - return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x102, 1)))(function( x103 ) - return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x103, 1)))(function( x104 ) - return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x104, 1)))(function( x105 ) - return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x105, 1)))(function( x106 ) - return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x106, 1)))(function( x107 ) - return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x107, 1)))(function( x108 ) - return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x108, 1)))(function( x109 ) - return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x109, 1)))(function( x110 ) - return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x110, 1)))(function( x111 ) - return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x111, 1)))(function( x112 ) - return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x112, 1)))(function( x113 ) - return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x113, 1)))(function( x114 ) - return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x114, 1)))(function( x115 ) - return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x115, 1)))(function( x116 ) - return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x116, 1)))(function( x117 ) - return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x117, 1)))(function( x118 ) - return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x118, 1)))(function( x119 ) - return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x119, 1)))(function( x120 ) - return _S_kont805(x1_S_809)(x120) - end) + local _S_kont808_S_w = function(x1_S_809, x80_S_810) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x80_S_810, 1)))(function( x81 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x81, 1)))(function( x82 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x82, 1)))(function( x83 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x83, 1)))(function( x84 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x84, 1)))(function( x85 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x85, 1)))(function( x86 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x86, 1)))(function( x87 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x87, 1)))(function( x88 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x88, 1)))(function( x89 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x89, 1)))(function( x90 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x90, 1)))(function( x91 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x91, 1)))(function( x92 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x92, 1)))(function( x93 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x93, 1)))(function( x94 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x94, 1)))(function( x95 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x95, 1)))(function( x96 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x96, 1)))(function( x97 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x97, 1)))(function( x98 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x98, 1)))(function( x99 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x99, 1)))(function( x100 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x100, 1)))(function( x101 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x101, 1)))(function( x102 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x102, 1)))(function( x103 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x103, 1)))(function( x104 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x104, 1)))(function( x105 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x105, 1)))(function( x106 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x106, 1)))(function( x107 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x107, 1)))(function( x108 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x108, 1)))(function( x109 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x109, 1)))(function( x110 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x110, 1)))(function( x111 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x111, 1)))(function( x112 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x112, 1)))(function( x113 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x113, 1)))(function( x114 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x114, 1)))(function( x115 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x115, 1)))(function( x116 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x116, 1)))(function( x117 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x117, 1)))(function( x118 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x118, 1)))(function( x119 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x119, 1)))(function( x120 ) + return _S_kont805_S_w(x1_S_809, x120) end) end) end) @@ -417,52 +411,50 @@ local Golden_LongExceptBind_Test_go = (function() end) end) end) - end + end) end - local _S_kont811 = function(x1_S_812) - return function(x40_S_813) - return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x40_S_813, 1)))(function( x41 ) - return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x41, 1)))(function( x42 ) - return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x42, 1)))(function( x43 ) - return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x43, 1)))(function( x44 ) - return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x44, 1)))(function( x45 ) - return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x45, 1)))(function( x46 ) - return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x46, 1)))(function( x47 ) - return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x47, 1)))(function( x48 ) - return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x48, 1)))(function( x49 ) - return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x49, 1)))(function( x50 ) - return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x50, 1)))(function( x51 ) - return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x51, 1)))(function( x52 ) - return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x52, 1)))(function( x53 ) - return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x53, 1)))(function( x54 ) - return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x54, 1)))(function( x55 ) - return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x55, 1)))(function( x56 ) - return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x56, 1)))(function( x57 ) - return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x57, 1)))(function( x58 ) - return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x58, 1)))(function( x59 ) - return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x59, 1)))(function( x60 ) - return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x60, 1)))(function( x61 ) - return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x61, 1)))(function( x62 ) - return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x62, 1)))(function( x63 ) - return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x63, 1)))(function( x64 ) - return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x64, 1)))(function( x65 ) - return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x65, 1)))(function( x66 ) - return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x66, 1)))(function( x67 ) - return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x67, 1)))(function( x68 ) - return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x68, 1)))(function( x69 ) - return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x69, 1)))(function( x70 ) - return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x70, 1)))(function( x71 ) - return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x71, 1)))(function( x72 ) - return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x72, 1)))(function( x73 ) - return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x73, 1)))(function( x74 ) - return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x74, 1)))(function( x75 ) - return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x75, 1)))(function( x76 ) - return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x76, 1)))(function( x77 ) - return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x77, 1)))(function( x78 ) - return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x78, 1)))(function( x79 ) - return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x79, 1)))(function( x80 ) - return _S_kont808(x1_S_812)(x80) - end) + local _S_kont811_S_w = function(x1_S_812, x40_S_813) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x40_S_813, 1)))(function( x41 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x41, 1)))(function( x42 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x42, 1)))(function( x43 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x43, 1)))(function( x44 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x44, 1)))(function( x45 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x45, 1)))(function( x46 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x46, 1)))(function( x47 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x47, 1)))(function( x48 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x48, 1)))(function( x49 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x49, 1)))(function( x50 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x50, 1)))(function( x51 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x51, 1)))(function( x52 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x52, 1)))(function( x53 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x53, 1)))(function( x54 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x54, 1)))(function( x55 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x55, 1)))(function( x56 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x56, 1)))(function( x57 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x57, 1)))(function( x58 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x58, 1)))(function( x59 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x59, 1)))(function( x60 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x60, 1)))(function( x61 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x61, 1)))(function( x62 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x62, 1)))(function( x63 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x63, 1)))(function( x64 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x64, 1)))(function( x65 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x65, 1)))(function( x66 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x66, 1)))(function( x67 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x67, 1)))(function( x68 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x68, 1)))(function( x69 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x69, 1)))(function( x70 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x70, 1)))(function( x71 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x71, 1)))(function( x72 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x72, 1)))(function( x73 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x73, 1)))(function( x74 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x74, 1)))(function( x75 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x75, 1)))(function( x76 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x76, 1)))(function( x77 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x77, 1)))(function( x78 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x78, 1)))(function( x79 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x79, 1)))(function( x80 ) + return _S_kont808_S_w(x1_S_812, x80) end) end) end) @@ -502,7 +494,7 @@ local Golden_LongExceptBind_Test_go = (function() end) end) end) - end + end) end return Golden_LongExceptBind_Test_bind(Data_Either_Right(1))(function(x1) return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x1, 1)))(function( x2 ) @@ -544,7 +536,7 @@ local Golden_LongExceptBind_Test_go = (function() return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x37, 1)))(function( x38 ) return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x38, 1)))(function( x39 ) return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x39, 1)))(function( x40 ) - return _S_kont811(x1)(x40) + return _S_kont811_S_w(x1, x40) end) end) end) diff --git a/test/ps/output/Golden.LongMaybeBind.Test/golden.ir b/test/ps/output/Golden.LongMaybeBind.Test/golden.ir index f2351fbf..1645a5c4 100644 --- a/test/ps/output/Golden.LongMaybeBind.Test/golden.ir +++ b/test/ps/output/Golden.LongMaybeBind.Test/golden.ir @@ -90,8969 +90,8877 @@ UberModule { qnameModuleName = ModuleName "Golden.LongMaybeBind.Test", qnameName = Name "compute" }, Let Nothing ( Standalone - ( Nothing, Name "$kont322", AbsN Nothing - ( ParamNamed Nothing ( Name "x1$323" ) :| [] ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "x277$324" ) :| [] ) + ( Nothing, Name "$kont322$w", AbsN Nothing + ( ParamNamed Nothing ( Name "x1$323" ) :| [ ParamNamed Nothing ( Name "x277$324" ) ] ) + ( AppN Nothing + ( Ref Nothing + ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind$w" ) ) + ) ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind$w" ) ) - ) + ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) ( AppN Nothing - ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) + ( Ref Nothing + ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "add$w" ) ) + ) + ( Ref Nothing ( Local ( Name "x277$324" ) ) :| [ LiteralInt Nothing 1 ] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing ( Name "x278" ) :| [] ) ( AppN Nothing ( Ref Nothing - ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "add$w" ) ) + ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind$w" ) ) ) - ( Ref Nothing ( Local ( Name "x277$324" ) ) :| [ LiteralInt Nothing 1 ] ) :| [] - ) :| - [ AbsN Nothing - ( ParamNamed Nothing ( Name "x278" ) :| [] ) ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind$w" ) ) - ) + ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) ( AppN Nothing - ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) + ( Ref Nothing + ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "add$w" ) ) + ) + ( Ref Nothing ( Local ( Name "x278" ) ) :| [ LiteralInt Nothing 1 ] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing ( Name "x279" ) :| [] ) ( AppN Nothing ( Ref Nothing - ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "add$w" ) ) + ( Imported + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "bind$w" ) + ) ) - ( Ref Nothing - ( Local ( Name "x278" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| - [ AbsN Nothing - ( ParamNamed Nothing ( Name "x279" ) :| [] ) ( AppN Nothing ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind$w" ) - ) + ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing - ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) + ( Imported + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "add$w" ) + ) ) + ( Ref Nothing + ( Local ( Name "x279" ) ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing ( Name "x280" ) :| [] ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "add$w" ) + ( Name "bind$w" ) ) ) - ( 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$w" ) - ) + ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing - ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) + ( Imported + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "add$w" ) + ) ) + ( Ref Nothing + ( Local ( Name "x280" ) ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing ( Name "x281" ) :| [] ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "add$w" ) + ( Name "bind$w" ) ) ) - ( Ref Nothing - ( Local ( Name "x280" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| - [ AbsN Nothing - ( ParamNamed Nothing ( Name "x281" ) :| [] ) ( AppN Nothing ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind$w" ) - ) + ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing - ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) + ( Imported + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "add$w" ) + ) ) + ( Ref Nothing + ( Local ( Name "x281" ) ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing ( Name "x282" ) :| [] ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "add$w" ) + ( Name "bind$w" ) ) ) - ( 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$w" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "add$w" ) ) ) + ( Ref Nothing + ( Local ( Name "x282" ) ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing ( Name "x283" ) :| [] ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "add$w" ) + ( Name "bind$w" ) ) ) - ( Ref Nothing - ( Local ( Name "x282" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| - [ AbsN Nothing - ( ParamNamed Nothing ( Name "x283" ) :| [] ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind$w" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "add$w" ) ) ) + ( Ref Nothing + ( Local ( Name "x283" ) ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing ( Name "x284" ) :| [] ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "add$w" ) + ( Name "bind$w" ) ) ) - ( 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$w" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "add$w" ) ) ) + ( Ref Nothing + ( Local ( Name "x284" ) ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x285" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "add$w" ) + ( Name "bind$w" ) ) ) - ( Ref Nothing - ( Local ( Name "x284" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| - [ AbsN Nothing - ( ParamNamed Nothing - ( Name "x285" ) :| [] - ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind$w" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "add$w" ) ) ) + ( Ref Nothing + ( Local ( Name "x285" ) ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x286" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "add$w" ) + ( Name "bind$w" ) ) ) - ( 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$w" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "add$w" ) ) ) + ( Ref Nothing + ( Local + ( Name "x286" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x287" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "add$w" ) + ( Name "bind$w" ) ) ) - ( Ref Nothing - ( Local - ( Name "x286" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| - [ AbsN Nothing - ( ParamNamed Nothing - ( Name "x287" ) :| [] - ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind$w" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "add$w" ) ) ) + ( Ref Nothing + ( Local + ( Name "x287" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x288" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "add$w" ) + ( Name "bind$w" ) ) ) - ( 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$w" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "add$w" ) ) ) + ( Ref Nothing + ( Local + ( Name "x288" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x289" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "add$w" ) + ( Name "bind$w" ) ) ) - ( Ref Nothing - ( Local - ( Name "x288" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| - [ AbsN Nothing - ( ParamNamed Nothing - ( Name "x289" ) :| [] - ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind$w" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "add$w" ) ) ) + ( Ref Nothing + ( Local + ( Name "x289" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x290" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "add$w" ) + ( Name "bind$w" ) ) ) - ( 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$w" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "add$w" ) ) ) + ( Ref Nothing + ( Local + ( Name "x290" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x291" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "add$w" ) + ( Name "bind$w" ) ) ) - ( Ref Nothing - ( Local - ( Name "x290" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| - [ AbsN Nothing - ( ParamNamed Nothing - ( Name "x291" ) :| [] - ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind$w" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "add$w" ) ) ) + ( Ref Nothing + ( Local + ( Name "x291" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x292" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "add$w" ) + ( Name "bind$w" ) ) ) - ( 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$w" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "add$w" ) ) ) + ( Ref Nothing + ( Local + ( Name "x292" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x293" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "add$w" ) + ( Name "bind$w" ) ) ) - ( Ref Nothing - ( Local - ( Name "x292" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| - [ AbsN Nothing - ( ParamNamed Nothing - ( Name "x293" ) :| [] - ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind$w" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "add$w" ) ) ) + ( Ref Nothing + ( Local + ( Name "x293" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x294" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "add$w" ) + ( Name "bind$w" ) ) ) - ( 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" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "add$w" ) ) ) + ( Ref Nothing + ( Local + ( Name "x294" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x295" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "add$w" ) + ( Name "bind$w" ) ) ) - ( 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" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "add$w" ) ) ) + ( Ref Nothing + ( Local + ( Name "x295" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x296" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "add$w" ) + ( Name "bind$w" ) ) ) - ( 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" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "add$w" ) ) ) + ( Ref Nothing + ( Local + ( Name "x296" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x297" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "add$w" ) + ( Name "bind$w" ) ) ) - ( 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" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "add$w" ) ) ) + ( Ref Nothing + ( Local + ( Name "x297" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x298" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "add$w" ) + ( Name "bind$w" ) ) ) - ( 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" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "add$w" ) ) ) + ( Ref Nothing + ( Local + ( Name "x298" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x299" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "add$w" ) + ( Name "bind$w" ) ) ) - ( 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" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "add$w" ) ) ) + ( Ref Nothing + ( Local + ( Name "x299" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x300" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "add$w" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) - ( Ref Nothing - ( Local - ( Name "x299" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| - [ AbsN Nothing - ( ParamNamed Nothing - ( Name "x300" ) :| [] - ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "add$w" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing + ( Ref Nothing + ( Local + ( Name "x1$323" ) + ) :| + [ Ref Nothing ( Local - ( Name "x1$323" ) - ) :| - [ Ref Nothing - ( Local - ( Name "x300" ) - ) - ] - ) :| [] - ) + ( Name "x300" ) + ) + ] + ) :| [] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) ) ) :| [ Standalone - ( Nothing, Name "$kont325", AbsN Nothing - ( ParamNamed Nothing ( Name "x1$326" ) :| [] ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "x238$327" ) :| [] ) + ( Nothing, Name "$kont325$w", AbsN Nothing + ( ParamNamed Nothing + ( Name "x1$326" ) :| + [ ParamNamed Nothing ( Name "x238$327" ) ] + ) + ( AppN Nothing + ( Ref Nothing + ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind$w" ) ) + ) ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind$w" ) ) - ) + ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) ( AppN Nothing - ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) + ( Ref Nothing + ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "add$w" ) ) + ) + ( Ref Nothing ( Local ( Name "x238$327" ) ) :| [ LiteralInt Nothing 1 ] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing ( Name "x239" ) :| [] ) ( AppN Nothing ( Ref Nothing - ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "add$w" ) ) + ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind$w" ) ) ) - ( Ref Nothing - ( Local ( Name "x238$327" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| - [ AbsN Nothing - ( ParamNamed Nothing ( Name "x239" ) :| [] ) ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind$w" ) ) - ) + ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) ( AppN Nothing - ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) + ( Ref Nothing + ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "add$w" ) ) + ) + ( Ref Nothing + ( Local ( Name "x239" ) ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing ( Name "x240" ) :| [] ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "add$w" ) + ( Name "bind$w" ) ) ) - ( Ref Nothing - ( Local ( Name "x239" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| - [ AbsN Nothing - ( ParamNamed Nothing ( Name "x240" ) :| [] ) ( AppN Nothing ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind$w" ) - ) + ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing - ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) + ( Imported + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "add$w" ) + ) ) + ( Ref Nothing + ( Local ( Name "x240" ) ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing ( Name "x241" ) :| [] ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "add$w" ) + ( Name "bind$w" ) ) ) - ( 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$w" ) - ) + ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing - ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) + ( Imported + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "add$w" ) + ) ) + ( Ref Nothing + ( Local ( Name "x241" ) ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing ( Name "x242" ) :| [] ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "add$w" ) + ( Name "bind$w" ) ) ) - ( Ref Nothing - ( Local ( Name "x241" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| - [ AbsN Nothing - ( ParamNamed Nothing ( Name "x242" ) :| [] ) ( AppN Nothing ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind$w" ) - ) + ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "add$w" ) ) ) + ( Ref Nothing + ( Local ( Name "x242" ) ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing ( Name "x243" ) :| [] ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "add$w" ) + ( Name "bind$w" ) ) ) - ( 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$w" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "add$w" ) ) ) + ( Ref Nothing + ( Local ( Name "x243" ) ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing ( Name "x244" ) :| [] ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "add$w" ) + ( Name "bind$w" ) ) ) - ( Ref Nothing - ( Local ( Name "x243" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| - [ AbsN Nothing - ( ParamNamed Nothing ( Name "x244" ) :| [] ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind$w" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "add$w" ) ) ) + ( Ref Nothing + ( Local ( Name "x244" ) ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x245" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "add$w" ) + ( Name "bind$w" ) ) ) - ( 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$w" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "add$w" ) ) ) + ( Ref Nothing + ( Local ( Name "x245" ) ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x246" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "add$w" ) + ( Name "bind$w" ) ) ) - ( Ref Nothing - ( Local ( Name "x245" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| - [ AbsN Nothing - ( ParamNamed Nothing - ( Name "x246" ) :| [] - ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind$w" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "add$w" ) ) ) + ( Ref Nothing + ( Local ( Name "x246" ) ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x247" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "add$w" ) + ( Name "bind$w" ) ) ) - ( Ref Nothing - ( Local - ( Name "x246" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| - [ AbsN Nothing - ( ParamNamed Nothing - ( Name "x247" ) :| [] - ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind$w" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "add$w" ) ) ) + ( Ref Nothing + ( Local + ( Name "x247" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x248" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "add$w" ) + ( Name "bind$w" ) ) ) - ( Ref Nothing - ( Local - ( Name "x247" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| - [ AbsN Nothing - ( ParamNamed Nothing - ( Name "x248" ) :| [] - ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind$w" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "add$w" ) ) ) + ( Ref Nothing + ( Local + ( Name "x248" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x249" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "add$w" ) + ( Name "bind$w" ) ) ) - ( 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$w" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "add$w" ) ) ) + ( Ref Nothing + ( Local + ( Name "x249" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x250" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "add$w" ) + ( Name "bind$w" ) ) ) - ( Ref Nothing - ( Local - ( Name "x249" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| - [ AbsN Nothing - ( ParamNamed Nothing - ( Name "x250" ) :| [] - ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind$w" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] + ) :| + [ AbsN Nothing + ( ParamUnused Nothing :| [] ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "bind$w" ) + ) ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "unit" ) - ) :| [] - ) :| - [ AbsN Nothing - ( ParamUnused Nothing :| [] ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind$w" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "add$w" ) ) ) + ( Ref Nothing + ( Local + ( Name "x250" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x251" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x250" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| - [ AbsN Nothing - ( ParamNamed Nothing - ( Name "x251" ) :| [] + ( Name "bind$w" ) + ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind$w" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "add$w" ) ) ) + ( Ref Nothing + ( Local + ( Name "x251" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x252" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "add$w" ) + ( Name "bind$w" ) ) ) - ( 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$w" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "add$w" ) ) ) + ( Ref Nothing + ( Local + ( Name "x252" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x253" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "add$w" ) + ( Name "bind$w" ) ) ) - ( Ref Nothing - ( Local - ( Name "x252" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| - [ AbsN Nothing - ( ParamNamed Nothing - ( Name "x253" ) :| [] - ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind$w" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "add$w" ) ) ) + ( Ref Nothing + ( Local + ( Name "x253" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x254" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "add$w" ) + ( Name "bind$w" ) ) ) - ( 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$w" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "add$w" ) ) ) + ( Ref Nothing + ( Local + ( Name "x254" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x255" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "add$w" ) + ( Name "bind$w" ) ) ) - ( Ref Nothing - ( Local - ( Name "x254" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| - [ AbsN Nothing - ( ParamNamed Nothing - ( Name "x255" ) :| [] - ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind$w" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "add$w" ) ) ) + ( Ref Nothing + ( Local + ( Name "x255" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x256" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "add$w" ) + ( Name "bind$w" ) ) ) - ( 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$w" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "add$w" ) ) ) + ( Ref Nothing + ( Local + ( Name "x256" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x257" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "add$w" ) + ( Name "bind$w" ) ) ) - ( Ref Nothing - ( Local - ( Name "x256" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| - [ AbsN Nothing - ( ParamNamed Nothing - ( Name "x257" ) :| [] - ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind$w" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "add$w" ) ) ) + ( Ref Nothing + ( Local + ( Name "x257" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x258" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "add$w" ) + ( Name "bind$w" ) ) ) - ( 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$w" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "add$w" ) ) ) + ( Ref Nothing + ( Local + ( Name "x258" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x259" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "add$w" ) + ( Name "bind$w" ) ) ) - ( Ref Nothing - ( Local - ( Name "x258" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| - [ AbsN Nothing - ( ParamNamed Nothing - ( Name "x259" ) :| [] - ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind$w" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "add$w" ) ) ) + ( Ref Nothing + ( Local + ( Name "x259" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x260" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "add$w" ) + ( Name "bind$w" ) ) ) - ( 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$w" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "add$w" ) ) ) + ( Ref Nothing + ( Local + ( Name "x260" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x261" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "add$w" ) + ( Name "bind$w" ) ) ) - ( Ref Nothing - ( Local - ( Name "x260" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| - [ AbsN Nothing - ( ParamNamed Nothing - ( Name "x261" ) :| [] - ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind$w" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "add$w" ) ) ) + ( Ref Nothing + ( Local + ( Name "x261" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x262" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "add$w" ) + ( Name "bind$w" ) ) ) - ( 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$w" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "add$w" ) ) ) + ( Ref Nothing + ( Local + ( Name "x262" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x263" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "add$w" ) + ( Name "bind$w" ) ) ) - ( Ref Nothing - ( Local - ( Name "x262" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| - [ AbsN Nothing - ( ParamNamed Nothing - ( Name "x263" ) :| [] - ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind$w" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "add$w" ) ) ) + ( Ref Nothing + ( Local + ( Name "x263" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x264" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "add$w" ) + ( Name "bind$w" ) ) ) - ( Ref Nothing - ( Local - ( Name "x263" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| - [ AbsN Nothing - ( ParamNamed Nothing - ( Name "x264" ) :| [] - ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind$w" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "add$w" ) ) ) + ( Ref Nothing + ( Local + ( Name "x264" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x265" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "add$w" ) + ( Name "bind$w" ) ) ) - ( 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" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "add$w" ) ) ) + ( Ref Nothing + ( Local + ( Name "x265" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x266" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "add$w" ) + ( Name "bind$w" ) ) ) - ( 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" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "add$w" ) ) ) + ( Ref Nothing + ( Local + ( Name "x266" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x267" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "add$w" ) + ( Name "bind$w" ) ) ) - ( 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" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "add$w" ) ) ) + ( Ref Nothing + ( Local + ( Name "x267" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x268" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "add$w" ) + ( Name "bind$w" ) ) ) - ( 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" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "add$w" ) ) ) + ( Ref Nothing + ( Local + ( Name "x268" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x269" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "add$w" ) + ( Name "bind$w" ) ) ) - ( 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" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "add$w" ) ) ) + ( Ref Nothing + ( Local + ( Name "x269" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x270" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "add$w" ) + ( Name "bind$w" ) ) ) - ( 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" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "add$w" ) ) ) + ( Ref Nothing + ( Local + ( Name "x270" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x271" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "add$w" ) + ( Name "bind$w" ) ) ) - ( 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" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "add$w" ) ) ) + ( Ref Nothing + ( Local + ( Name "x271" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x272" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "add$w" ) + ( Name "bind$w" ) ) ) - ( 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" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "add$w" ) ) ) + ( Ref Nothing + ( Local + ( Name "x272" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x273" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "add$w" ) + ( Name "bind$w" ) ) ) - ( 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" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "add$w" ) ) ) + ( Ref Nothing + ( Local + ( Name "x273" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x274" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "add$w" ) + ( Name "bind$w" ) ) ) - ( 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" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "add$w" ) ) ) + ( Ref Nothing + ( Local + ( Name "x274" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x275" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "add$w" ) + ( Name "bind$w" ) ) ) - ( 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" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "add$w" ) ) ) + ( Ref Nothing + ( Local + ( Name "x275" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x276" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "add$w" ) + ( Name "bind$w" ) ) ) - ( 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" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "add$w" ) ) ) + ( Ref Nothing + ( Local + ( Name "x276" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x277" ) :| [] + ) ( AppN Nothing ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "add$w" ) + ( Local + ( Name "$kont322$w" ) ) ) ( Ref Nothing ( Local - ( Name "x276" ) + ( Name "x1$326" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| - [ AbsN Nothing - ( ParamNamed Nothing - ( Name "x277" ) :| [] - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Local - ( Name "$kont322" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x1$326" ) - ) :| [] - ) - ) - ( Ref Nothing + [ Ref Nothing ( Local ( Name "x277" ) - ) :| [] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) ) ), Standalone - ( Nothing, Name "$kont328", AbsN Nothing - ( ParamNamed Nothing ( Name "x1$329" ) :| [] ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "x198$330" ) :| [] ) + ( Nothing, Name "$kont328$w", AbsN Nothing + ( ParamNamed Nothing + ( Name "x1$329" ) :| + [ ParamNamed Nothing ( Name "x198$330" ) ] + ) + ( AppN Nothing + ( Ref Nothing + ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind$w" ) ) + ) ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind$w" ) ) - ) + ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) ( AppN Nothing - ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) + ( Ref Nothing + ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "add$w" ) ) + ) + ( Ref Nothing ( Local ( Name "x198$330" ) ) :| [ LiteralInt Nothing 1 ] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing ( Name "x199" ) :| [] ) ( AppN Nothing ( Ref Nothing - ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "add$w" ) ) + ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind$w" ) ) ) - ( Ref Nothing - ( Local ( Name "x198$330" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| - [ AbsN Nothing - ( ParamNamed Nothing ( Name "x199" ) :| [] ) ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind$w" ) ) - ) + ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) ( AppN Nothing - ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) + ( Ref Nothing + ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "add$w" ) ) + ) + ( Ref Nothing + ( Local ( Name "x199" ) ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing ( Name "x200" ) :| [] ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "add$w" ) + ( Name "bind$w" ) ) ) - ( Ref Nothing - ( Local ( Name "x199" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| - [ AbsN Nothing - ( ParamNamed Nothing ( Name "x200" ) :| [] ) ( AppN Nothing ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind$w" ) - ) + ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing - ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) + ( Imported + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "add$w" ) + ) ) + ( Ref Nothing + ( Local ( Name "x200" ) ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing ( Name "x201" ) :| [] ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "add$w" ) + ( Name "bind$w" ) ) ) - ( 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$w" ) - ) + ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing - ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) + ( Imported + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "add$w" ) + ) ) + ( Ref Nothing + ( Local ( Name "x201" ) ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing ( Name "x202" ) :| [] ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "add$w" ) + ( Name "bind$w" ) ) ) - ( Ref Nothing - ( Local ( Name "x201" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| - [ AbsN Nothing - ( ParamNamed Nothing ( Name "x202" ) :| [] ) ( AppN Nothing ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind$w" ) - ) + ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "add$w" ) ) ) + ( Ref Nothing + ( Local ( Name "x202" ) ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing ( Name "x203" ) :| [] ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "add$w" ) + ( Name "bind$w" ) ) ) - ( 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$w" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "add$w" ) ) ) + ( Ref Nothing + ( Local ( Name "x203" ) ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing ( Name "x204" ) :| [] ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "add$w" ) + ( Name "bind$w" ) ) ) - ( Ref Nothing - ( Local ( Name "x203" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| - [ AbsN Nothing - ( ParamNamed Nothing ( Name "x204" ) :| [] ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind$w" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "add$w" ) ) ) + ( Ref Nothing + ( Local ( Name "x204" ) ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x205" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "add$w" ) + ( Name "bind$w" ) ) ) - ( 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$w" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "add$w" ) ) ) + ( Ref Nothing + ( Local ( Name "x205" ) ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x206" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "add$w" ) + ( Name "bind$w" ) ) ) - ( Ref Nothing - ( Local ( Name "x205" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| - [ AbsN Nothing - ( ParamNamed Nothing - ( Name "x206" ) :| [] - ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind$w" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "add$w" ) ) ) + ( Ref Nothing + ( Local ( Name "x206" ) ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x207" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "add$w" ) + ( Name "bind$w" ) ) ) - ( 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$w" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "add$w" ) ) ) + ( Ref Nothing + ( Local + ( Name "x207" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x208" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "add$w" ) + ( Name "bind$w" ) ) ) - ( Ref Nothing - ( Local - ( Name "x207" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| - [ AbsN Nothing - ( ParamNamed Nothing - ( Name "x208" ) :| [] - ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind$w" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "add$w" ) ) ) + ( Ref Nothing + ( Local + ( Name "x208" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x209" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "add$w" ) + ( Name "bind$w" ) ) ) - ( 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$w" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "add$w" ) ) ) + ( Ref Nothing + ( Local + ( Name "x209" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x210" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x209" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| - [ AbsN Nothing - ( ParamNamed Nothing - ( Name "x210" ) :| [] + ( Name "bind$w" ) + ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind$w" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "add$w" ) ) ) + ( Ref Nothing + ( Local + ( Name "x210" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x211" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "add$w" ) + ( Name "bind$w" ) ) ) - ( 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$w" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "add$w" ) ) ) + ( Ref Nothing + ( Local + ( Name "x211" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x212" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "add$w" ) + ( Name "bind$w" ) ) ) - ( Ref Nothing - ( Local - ( Name "x211" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| - [ AbsN Nothing - ( ParamNamed Nothing - ( Name "x212" ) :| [] - ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind$w" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "add$w" ) ) ) + ( Ref Nothing + ( Local + ( Name "x212" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x213" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "add$w" ) + ( Name "bind$w" ) ) ) - ( 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$w" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "add$w" ) ) ) + ( Ref Nothing + ( Local + ( Name "x213" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x214" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "add$w" ) + ( Name "bind$w" ) ) ) - ( Ref Nothing - ( Local - ( Name "x213" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| - [ AbsN Nothing - ( ParamNamed Nothing - ( Name "x214" ) :| [] - ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind$w" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "add$w" ) ) ) + ( Ref Nothing + ( Local + ( Name "x214" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x215" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "add$w" ) + ( Name "bind$w" ) ) ) - ( 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$w" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "add$w" ) ) ) + ( Ref Nothing + ( Local + ( Name "x215" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x216" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "add$w" ) + ( Name "bind$w" ) ) ) - ( Ref Nothing - ( Local - ( Name "x215" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| - [ AbsN Nothing - ( ParamNamed Nothing - ( Name "x216" ) :| [] - ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind$w" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "add$w" ) ) ) + ( Ref Nothing + ( Local + ( Name "x216" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x217" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "add$w" ) + ( Name "bind$w" ) ) ) - ( 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$w" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "add$w" ) ) ) + ( Ref Nothing + ( Local + ( Name "x217" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x218" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "add$w" ) + ( Name "bind$w" ) ) ) - ( Ref Nothing - ( Local - ( Name "x217" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| - [ AbsN Nothing - ( ParamNamed Nothing - ( Name "x218" ) :| [] - ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind$w" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "add$w" ) ) ) + ( Ref Nothing + ( Local + ( Name "x218" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x219" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "add$w" ) + ( Name "bind$w" ) ) ) - ( 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$w" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "add$w" ) ) ) + ( Ref Nothing + ( Local + ( Name "x219" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x220" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "add$w" ) + ( Name "bind$w" ) ) ) - ( Ref Nothing - ( Local - ( Name "x219" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| - [ AbsN Nothing - ( ParamNamed Nothing - ( Name "x220" ) :| [] - ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind$w" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "add$w" ) ) ) + ( Ref Nothing + ( Local + ( Name "x220" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x221" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "add$w" ) + ( Name "bind$w" ) ) ) - ( 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$w" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "add$w" ) ) ) + ( Ref Nothing + ( Local + ( Name "x221" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x222" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "add$w" ) + ( Name "bind$w" ) ) ) - ( Ref Nothing - ( Local - ( Name "x221" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| - [ AbsN Nothing - ( ParamNamed Nothing - ( Name "x222" ) :| [] - ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind$w" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "add$w" ) ) ) + ( Ref Nothing + ( Local + ( Name "x222" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x223" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "add$w" ) + ( Name "bind$w" ) ) ) - ( 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$w" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "add$w" ) ) ) + ( Ref Nothing + ( Local + ( Name "x223" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x224" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "add$w" ) + ( Name "bind$w" ) ) ) - ( Ref Nothing - ( Local - ( Name "x223" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| - [ AbsN Nothing - ( ParamNamed Nothing - ( Name "x224" ) :| [] - ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind$w" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "add$w" ) ) ) + ( Ref Nothing + ( Local + ( Name "x224" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x225" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "add$w" ) + ( Name "bind$w" ) ) ) - ( Ref Nothing - ( Local - ( Name "x224" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| - [ AbsN Nothing - ( ParamNamed Nothing - ( Name "x225" ) :| [] - ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind$w" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "add$w" ) ) ) + ( Ref Nothing + ( Local + ( Name "x225" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x226" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "add$w" ) + ( Name "bind$w" ) ) ) - ( 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" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "add$w" ) ) ) + ( Ref Nothing + ( Local + ( Name "x226" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x227" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "add$w" ) + ( Name "bind$w" ) ) ) - ( 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" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "add$w" ) ) ) + ( Ref Nothing + ( Local + ( Name "x227" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x228" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "add$w" ) + ( Name "bind$w" ) ) ) - ( 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" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "add$w" ) ) ) + ( Ref Nothing + ( Local + ( Name "x228" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x229" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "add$w" ) + ( Name "bind$w" ) ) ) - ( 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" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "add$w" ) ) ) + ( Ref Nothing + ( Local + ( Name "x229" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x230" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "add$w" ) + ( Name "bind$w" ) ) ) - ( 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" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "add$w" ) ) ) + ( Ref Nothing + ( Local + ( Name "x230" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x231" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "add$w" ) + ( Name "bind$w" ) ) ) - ( 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" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "add$w" ) ) ) + ( Ref Nothing + ( Local + ( Name "x231" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x232" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "add$w" ) + ( Name "bind$w" ) ) ) - ( 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" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "add$w" ) ) ) + ( Ref Nothing + ( Local + ( Name "x232" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x233" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "add$w" ) + ( Name "bind$w" ) ) ) - ( 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" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "add$w" ) ) ) + ( Ref Nothing + ( Local + ( Name "x233" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x234" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "add$w" ) + ( Name "bind$w" ) ) ) - ( 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" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "add$w" ) ) ) + ( Ref Nothing + ( Local + ( Name "x234" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x235" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "add$w" ) + ( Name "bind$w" ) ) ) - ( 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" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "add$w" ) ) ) + ( Ref Nothing + ( Local + ( Name "x235" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x236" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "add$w" ) + ( Name "bind$w" ) ) ) - ( 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" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "add$w" ) ) ) + ( Ref Nothing + ( Local + ( Name "x236" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x237" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "add$w" ) + ( Name "bind$w" ) ) ) - ( 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" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "add$w" ) ) ) + ( Ref Nothing + ( Local + ( Name "x237" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x238" ) :| [] + ) ( AppN Nothing ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "add$w" ) + ( Local + ( Name "$kont325$w" ) ) ) ( Ref Nothing ( Local - ( Name "x237" ) + ( Name "x1$329" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| - [ AbsN Nothing - ( ParamNamed Nothing - ( Name "x238" ) :| [] - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Local - ( Name "$kont325" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x1$329" ) - ) :| [] - ) - ) - ( Ref Nothing + [ Ref Nothing ( Local ( Name "x238" ) - ) :| [] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) ) ), Standalone - ( Nothing, Name "$kont331", AbsN Nothing - ( ParamNamed Nothing ( Name "x1$332" ) :| [] ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "x158$333" ) :| [] ) + ( Nothing, Name "$kont331$w", AbsN Nothing + ( ParamNamed Nothing + ( Name "x1$332" ) :| + [ ParamNamed Nothing ( Name "x158$333" ) ] + ) + ( AppN Nothing + ( Ref Nothing + ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind$w" ) ) + ) ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind$w" ) ) - ) + ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) ( AppN Nothing - ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) + ( Ref Nothing + ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "add$w" ) ) + ) + ( Ref Nothing ( Local ( Name "x158$333" ) ) :| [ LiteralInt Nothing 1 ] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing ( Name "x159" ) :| [] ) ( AppN Nothing ( Ref Nothing - ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "add$w" ) ) + ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind$w" ) ) ) - ( Ref Nothing - ( Local ( Name "x158$333" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| - [ AbsN Nothing - ( ParamNamed Nothing ( Name "x159" ) :| [] ) ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind$w" ) ) - ) + ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) ( AppN Nothing - ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) + ( Ref Nothing + ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "add$w" ) ) + ) + ( Ref Nothing + ( Local ( Name "x159" ) ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing ( Name "x160" ) :| [] ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "add$w" ) + ( Name "bind$w" ) ) ) - ( Ref Nothing - ( Local ( Name "x159" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| - [ AbsN Nothing - ( ParamNamed Nothing ( Name "x160" ) :| [] ) ( AppN Nothing ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind$w" ) - ) + ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing - ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) + ( Imported + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "add$w" ) + ) ) + ( Ref Nothing + ( Local ( Name "x160" ) ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing ( Name "x161" ) :| [] ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "add$w" ) + ( Name "bind$w" ) ) ) - ( 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$w" ) - ) + ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing - ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) + ( Imported + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "add$w" ) + ) ) + ( Ref Nothing + ( Local ( Name "x161" ) ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing ( Name "x162" ) :| [] ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "add$w" ) + ( Name "bind$w" ) ) ) - ( Ref Nothing - ( Local ( Name "x161" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| - [ AbsN Nothing - ( ParamNamed Nothing ( Name "x162" ) :| [] ) ( AppN Nothing ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind$w" ) - ) + ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "add$w" ) ) ) + ( Ref Nothing + ( Local ( Name "x162" ) ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing ( Name "x163" ) :| [] ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "add$w" ) + ( Name "bind$w" ) ) ) - ( 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$w" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "add$w" ) ) ) + ( Ref Nothing + ( Local ( Name "x163" ) ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing ( Name "x164" ) :| [] ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "add$w" ) + ( Name "bind$w" ) ) ) - ( Ref Nothing - ( Local ( Name "x163" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| - [ AbsN Nothing - ( ParamNamed Nothing ( Name "x164" ) :| [] ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind$w" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "add$w" ) ) ) + ( Ref Nothing + ( Local ( Name "x164" ) ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x165" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "add$w" ) + ( Name "bind$w" ) ) ) - ( 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$w" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "add$w" ) ) ) + ( Ref Nothing + ( Local ( Name "x165" ) ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x166" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "add$w" ) + ( Name "bind$w" ) ) ) - ( Ref Nothing - ( Local ( Name "x165" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| - [ AbsN Nothing - ( ParamNamed Nothing - ( Name "x166" ) :| [] - ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind$w" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "add$w" ) ) ) + ( Ref Nothing + ( Local ( Name "x166" ) ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x167" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "add$w" ) + ( Name "bind$w" ) ) ) - ( 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$w" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "add$w" ) ) ) + ( Ref Nothing + ( Local + ( Name "x167" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x168" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x167" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| - [ AbsN Nothing - ( ParamNamed Nothing - ( Name "x168" ) :| [] + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "bind$w" ) + ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind$w" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "add$w" ) ) ) + ( Ref Nothing + ( Local + ( Name "x168" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x169" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "add$w" ) + ( Name "bind$w" ) ) ) - ( 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$w" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "add$w" ) ) ) + ( Ref Nothing + ( Local + ( Name "x169" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x170" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "add$w" ) + ( Name "bind$w" ) ) ) - ( Ref Nothing - ( Local - ( Name "x169" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| - [ AbsN Nothing - ( ParamNamed Nothing - ( Name "x170" ) :| [] - ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind$w" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "add$w" ) ) ) + ( Ref Nothing + ( Local + ( Name "x170" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x171" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "add$w" ) + ( Name "bind$w" ) ) ) - ( 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$w" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "add$w" ) ) ) + ( Ref Nothing + ( Local + ( Name "x171" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x172" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "add$w" ) + ( Name "bind$w" ) ) ) - ( Ref Nothing - ( Local - ( Name "x171" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| - [ AbsN Nothing - ( ParamNamed Nothing - ( Name "x172" ) :| [] - ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind$w" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "add$w" ) ) ) + ( Ref Nothing + ( Local + ( Name "x172" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x173" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "add$w" ) + ( Name "bind$w" ) ) ) - ( 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$w" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "add$w" ) ) ) + ( Ref Nothing + ( Local + ( Name "x173" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x174" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "add$w" ) + ( Name "bind$w" ) ) ) - ( Ref Nothing - ( Local - ( Name "x173" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| - [ AbsN Nothing - ( ParamNamed Nothing - ( Name "x174" ) :| [] - ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind$w" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "add$w" ) ) ) + ( Ref Nothing + ( Local + ( Name "x174" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x175" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "add$w" ) + ( Name "bind$w" ) ) ) - ( 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$w" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "add$w" ) ) ) + ( Ref Nothing + ( Local + ( Name "x175" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x176" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "add$w" ) + ( Name "bind$w" ) ) ) - ( Ref Nothing - ( Local - ( Name "x175" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| - [ AbsN Nothing - ( ParamNamed Nothing - ( Name "x176" ) :| [] - ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind$w" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "add$w" ) ) ) + ( Ref Nothing + ( Local + ( Name "x176" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x177" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "add$w" ) + ( Name "bind$w" ) ) ) - ( 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$w" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "add$w" ) ) ) + ( Ref Nothing + ( Local + ( Name "x177" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x178" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "add$w" ) + ( Name "bind$w" ) ) ) - ( Ref Nothing - ( Local - ( Name "x177" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| - [ AbsN Nothing - ( ParamNamed Nothing - ( Name "x178" ) :| [] - ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind$w" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "add$w" ) ) ) + ( Ref Nothing + ( Local + ( Name "x178" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x179" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "add$w" ) + ( Name "bind$w" ) ) ) - ( 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$w" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "add$w" ) ) ) + ( Ref Nothing + ( Local + ( Name "x179" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x180" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "add$w" ) + ( Name "bind$w" ) ) ) - ( Ref Nothing - ( Local - ( Name "x179" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| - [ AbsN Nothing - ( ParamNamed Nothing - ( Name "x180" ) :| [] - ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind$w" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "add$w" ) ) ) + ( Ref Nothing + ( Local + ( Name "x180" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x181" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x180" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| - [ AbsN Nothing - ( ParamNamed Nothing - ( Name "x181" ) :| [] + ( Name "bind$w" ) + ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind$w" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "add$w" ) ) ) + ( Ref Nothing + ( Local + ( Name "x181" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x182" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "add$w" ) + ( Name "bind$w" ) ) ) - ( Ref Nothing - ( Local - ( Name "x181" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| - [ AbsN Nothing - ( ParamNamed Nothing - ( Name "x182" ) :| [] - ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind$w" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "add$w" ) ) ) + ( Ref Nothing + ( Local + ( Name "x182" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x183" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "add$w" ) + ( Name "bind$w" ) ) ) - ( 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$w" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "add$w" ) ) ) + ( Ref Nothing + ( Local + ( Name "x183" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x184" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "add$w" ) + ( Name "bind$w" ) ) ) - ( Ref Nothing - ( Local - ( Name "x183" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| - [ AbsN Nothing - ( ParamNamed Nothing - ( Name "x184" ) :| [] - ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind$w" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "add$w" ) ) ) + ( Ref Nothing + ( Local + ( Name "x184" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x185" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "add$w" ) + ( Name "bind$w" ) ) ) - ( Ref Nothing - ( Local - ( Name "x184" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| - [ AbsN Nothing - ( ParamNamed Nothing - ( Name "x185" ) :| [] - ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind$w" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "add$w" ) ) ) + ( Ref Nothing + ( Local + ( Name "x185" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x186" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "add$w" ) + ( Name "bind$w" ) ) ) - ( 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" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "add$w" ) ) ) + ( Ref Nothing + ( Local + ( Name "x186" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x187" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "add$w" ) + ( Name "bind$w" ) ) ) - ( 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" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "add$w" ) ) ) + ( Ref Nothing + ( Local + ( Name "x187" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x188" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "add$w" ) + ( Name "bind$w" ) ) ) - ( 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" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "add$w" ) ) ) + ( Ref Nothing + ( Local + ( Name "x188" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x189" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "add$w" ) + ( Name "bind$w" ) ) ) - ( 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" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "add$w" ) ) ) + ( Ref Nothing + ( Local + ( Name "x189" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x190" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "add$w" ) + ( Name "bind$w" ) ) ) - ( 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" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "add$w" ) ) ) + ( Ref Nothing + ( Local + ( Name "x190" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x191" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "add$w" ) + ( Name "bind$w" ) ) ) - ( 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" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "add$w" ) ) ) + ( Ref Nothing + ( Local + ( Name "x191" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x192" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "add$w" ) + ( Name "bind$w" ) ) ) - ( 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" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "add$w" ) ) ) + ( Ref Nothing + ( Local + ( Name "x192" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x193" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "add$w" ) + ( Name "bind$w" ) ) ) - ( 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" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "add$w" ) ) ) + ( Ref Nothing + ( Local + ( Name "x193" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x194" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "add$w" ) + ( Name "bind$w" ) ) ) - ( 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" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "add$w" ) ) ) + ( Ref Nothing + ( Local + ( Name "x194" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x195" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "add$w" ) + ( Name "bind$w" ) ) ) - ( 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" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "add$w" ) ) ) + ( Ref Nothing + ( Local + ( Name "x195" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x196" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x195" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| - [ AbsN Nothing - ( ParamNamed Nothing - ( Name "x196" ) :| [] + ( Name "bind$w" ) + ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind$w" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "add$w" ) ) ) + ( Ref Nothing + ( Local + ( Name "x196" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x197" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "add$w" ) + ( Name "bind$w" ) ) ) - ( 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" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "add$w" ) ) ) + ( Ref Nothing + ( Local + ( Name "x197" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x198" ) :| [] + ) ( AppN Nothing ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "add$w" ) + ( Local + ( Name "$kont328$w" ) ) ) ( Ref Nothing ( Local - ( Name "x197" ) + ( Name "x1$332" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| - [ AbsN Nothing - ( ParamNamed Nothing - ( Name "x198" ) :| [] - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Local - ( Name "$kont328" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x1$332" ) - ) :| [] - ) - ) - ( Ref Nothing + [ Ref Nothing ( Local ( Name "x198" ) - ) :| [] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) ) ), Standalone - ( Nothing, Name "$kont334", AbsN Nothing - ( ParamNamed Nothing ( Name "x1$335" ) :| [] ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "x119$336" ) :| [] ) + ( Nothing, Name "$kont334$w", AbsN Nothing + ( ParamNamed Nothing + ( Name "x1$335" ) :| + [ ParamNamed Nothing ( Name "x119$336" ) ] + ) + ( AppN Nothing + ( Ref Nothing + ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind$w" ) ) + ) ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind$w" ) ) - ) + ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) ( AppN Nothing - ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) + ( Ref Nothing + ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "add$w" ) ) + ) + ( Ref Nothing ( Local ( Name "x119$336" ) ) :| [ LiteralInt Nothing 1 ] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing ( Name "x120" ) :| [] ) ( AppN Nothing ( Ref Nothing - ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "add$w" ) ) + ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind$w" ) ) ) - ( Ref Nothing - ( Local ( Name "x119$336" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| - [ AbsN Nothing - ( ParamNamed Nothing ( Name "x120" ) :| [] ) ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind$w" ) ) - ) + ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) ( AppN Nothing - ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) + ( Ref Nothing + ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "add$w" ) ) + ) + ( Ref Nothing + ( Local ( Name "x120" ) ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing ( Name "x121" ) :| [] ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "add$w" ) + ( Name "bind$w" ) ) ) - ( Ref Nothing - ( Local ( Name "x120" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| - [ AbsN Nothing - ( ParamNamed Nothing ( Name "x121" ) :| [] ) ( AppN Nothing ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind$w" ) - ) + ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing - ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) + ( Imported + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "add$w" ) + ) ) + ( Ref Nothing + ( Local ( Name "x121" ) ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing ( Name "x122" ) :| [] ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "add$w" ) + ( Name "bind$w" ) ) ) - ( 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$w" ) - ) + ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing - ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) + ( Imported + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "add$w" ) + ) ) + ( Ref Nothing + ( Local ( Name "x122" ) ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing ( Name "x123" ) :| [] ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "add$w" ) + ( Name "bind$w" ) ) ) - ( Ref Nothing - ( Local ( Name "x122" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| - [ AbsN Nothing - ( ParamNamed Nothing ( Name "x123" ) :| [] ) ( AppN Nothing ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind$w" ) - ) + ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "add$w" ) ) ) + ( Ref Nothing + ( Local ( Name "x123" ) ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing ( Name "x124" ) :| [] ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "add$w" ) + ( Name "bind$w" ) ) ) - ( 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$w" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "add$w" ) ) ) + ( Ref Nothing + ( Local ( Name "x124" ) ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing ( Name "x125" ) :| [] ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "add$w" ) + ( Name "bind$w" ) ) ) - ( Ref Nothing - ( Local ( Name "x124" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| - [ AbsN Nothing - ( ParamNamed Nothing ( Name "x125" ) :| [] ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind$w" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "add$w" ) ) ) + ( Ref Nothing + ( Local ( Name "x125" ) ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x126" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "add$w" ) + ( Name "bind$w" ) ) ) - ( 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$w" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "add$w" ) ) ) + ( Ref Nothing + ( Local ( Name "x126" ) ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x127" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "add$w" ) + ( Name "bind$w" ) ) ) - ( Ref Nothing - ( Local ( Name "x126" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| - [ AbsN Nothing - ( ParamNamed Nothing - ( Name "x127" ) :| [] - ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind$w" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "add$w" ) ) ) + ( Ref Nothing + ( Local ( Name "x127" ) ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x128" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "add$w" ) + ( Name "bind$w" ) ) ) - ( 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$w" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "add$w" ) ) ) + ( Ref Nothing + ( Local + ( Name "x128" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x129" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "add$w" ) + ( Name "bind$w" ) ) ) - ( Ref Nothing - ( Local - ( Name "x128" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| - [ AbsN Nothing - ( ParamNamed Nothing - ( Name "x129" ) :| [] - ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind$w" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "add$w" ) ) ) + ( Ref Nothing + ( Local + ( Name "x129" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x130" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "add$w" ) + ( Name "bind$w" ) ) ) - ( 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$w" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "add$w" ) ) ) + ( Ref Nothing + ( Local + ( Name "x130" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x131" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "add$w" ) + ( Name "bind$w" ) ) ) - ( Ref Nothing - ( Local - ( Name "x130" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| - [ AbsN Nothing - ( ParamNamed Nothing - ( Name "x131" ) :| [] - ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind$w" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "add$w" ) ) ) + ( Ref Nothing + ( Local + ( Name "x131" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x132" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "add$w" ) + ( Name "bind$w" ) ) ) - ( 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$w" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "add$w" ) ) ) + ( Ref Nothing + ( Local + ( Name "x132" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x133" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "add$w" ) + ( Name "bind$w" ) ) ) - ( Ref Nothing - ( Local - ( Name "x132" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| - [ AbsN Nothing - ( ParamNamed Nothing - ( Name "x133" ) :| [] - ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind$w" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "add$w" ) ) ) + ( Ref Nothing + ( Local + ( Name "x133" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x134" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "add$w" ) + ( Name "bind$w" ) ) ) - ( 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$w" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "add$w" ) ) ) + ( Ref Nothing + ( Local + ( Name "x134" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x135" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "add$w" ) + ( Name "bind$w" ) ) ) - ( Ref Nothing - ( Local - ( Name "x134" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| - [ AbsN Nothing - ( ParamNamed Nothing - ( Name "x135" ) :| [] - ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind$w" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "add$w" ) ) ) + ( Ref Nothing + ( Local + ( Name "x135" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x136" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "add$w" ) + ( Name "bind$w" ) ) ) - ( 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$w" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "add$w" ) ) ) + ( Ref Nothing + ( Local + ( Name "x136" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x137" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "add$w" ) + ( Name "bind$w" ) ) ) - ( Ref Nothing - ( Local - ( Name "x136" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| - [ AbsN Nothing - ( ParamNamed Nothing - ( Name "x137" ) :| [] - ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind$w" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "add$w" ) ) ) + ( Ref Nothing + ( Local + ( Name "x137" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x138" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "add$w" ) + ( Name "bind$w" ) ) ) - ( 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$w" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "add$w" ) ) ) + ( Ref Nothing + ( Local + ( Name "x138" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x139" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "add$w" ) + ( Name "bind$w" ) ) ) - ( Ref Nothing - ( Local - ( Name "x138" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| - [ AbsN Nothing - ( ParamNamed Nothing - ( Name "x139" ) :| [] - ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind$w" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "add$w" ) ) ) + ( Ref Nothing + ( Local + ( Name "x139" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x140" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "add$w" ) + ( Name "bind$w" ) ) ) - ( 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$w" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "add$w" ) ) ) + ( Ref Nothing + ( Local + ( Name "x140" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x141" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "add$w" ) + ( Name "bind$w" ) ) ) - ( Ref Nothing - ( Local - ( Name "x140" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| - [ AbsN Nothing - ( ParamNamed Nothing - ( Name "x141" ) :| [] - ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind$w" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "add$w" ) ) ) + ( Ref Nothing + ( Local + ( Name "x141" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x142" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "add$w" ) + ( Name "bind$w" ) ) ) - ( 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$w" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "add$w" ) ) ) + ( Ref Nothing + ( Local + ( Name "x142" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x143" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "add$w" ) + ( Name "bind$w" ) ) ) - ( Ref Nothing - ( Local - ( Name "x142" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| - [ AbsN Nothing - ( ParamNamed Nothing - ( Name "x143" ) :| [] - ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind$w" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "add$w" ) ) ) + ( Ref Nothing + ( Local + ( Name "x143" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x144" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "add$w" ) + ( Name "bind$w" ) ) ) - ( 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$w" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "add$w" ) ) ) + ( Ref Nothing + ( Local + ( Name "x144" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x145" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "add$w" ) + ( Name "bind$w" ) ) ) - ( Ref Nothing - ( Local - ( Name "x144" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| - [ AbsN Nothing - ( ParamNamed Nothing - ( Name "x145" ) :| [] - ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind$w" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "add$w" ) ) ) + ( Ref Nothing + ( Local + ( Name "x145" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x146" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "add$w" ) + ( Name "bind$w" ) ) ) - ( Ref Nothing - ( Local - ( Name "x145" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| - [ AbsN Nothing - ( ParamNamed Nothing - ( Name "x146" ) :| [] - ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind$w" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "add$w" ) ) ) + ( Ref Nothing + ( Local + ( Name "x146" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x147" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "add$w" ) + ( Name "bind$w" ) ) ) - ( 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" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "add$w" ) ) ) + ( Ref Nothing + ( Local + ( Name "x147" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x148" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "add$w" ) + ( Name "bind$w" ) ) ) - ( 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" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "add$w" ) ) ) + ( Ref Nothing + ( Local + ( Name "x148" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x149" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "add$w" ) + ( Name "bind$w" ) ) ) - ( 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" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "add$w" ) ) ) + ( Ref Nothing + ( Local + ( Name "x149" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x150" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "add$w" ) + ( Name "bind$w" ) ) ) - ( 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" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] + ) :| + [ AbsN Nothing + ( ParamUnused Nothing :| [] ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "bind$w" ) + ) ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "unit" ) - ) :| [] - ) :| - [ AbsN Nothing - ( ParamUnused Nothing :| [] ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind$w" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "add$w" ) ) ) + ( Ref Nothing + ( Local + ( Name "x150" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x151" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "add$w" ) + ( Name "bind$w" ) ) ) - ( 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" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "add$w" ) ) ) + ( Ref Nothing + ( Local + ( Name "x151" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x152" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "add$w" ) + ( Name "bind$w" ) ) ) - ( 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" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "add$w" ) ) ) + ( Ref Nothing + ( Local + ( Name "x152" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x153" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "add$w" ) + ( Name "bind$w" ) ) ) - ( 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" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "add$w" ) ) ) + ( Ref Nothing + ( Local + ( Name "x153" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x154" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "add$w" ) + ( Name "bind$w" ) ) ) - ( 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" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "add$w" ) ) ) + ( Ref Nothing + ( Local + ( Name "x154" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x155" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "add$w" ) + ( Name "bind$w" ) ) ) - ( 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" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "add$w" ) ) ) + ( Ref Nothing + ( Local + ( Name "x155" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x156" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "add$w" ) + ( Name "bind$w" ) ) ) - ( 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" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "add$w" ) ) ) + ( Ref Nothing + ( Local + ( Name "x156" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x157" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "add$w" ) + ( Name "bind$w" ) ) ) - ( 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" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "add$w" ) ) ) + ( Ref Nothing + ( Local + ( Name "x157" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x158" ) :| [] + ) ( AppN Nothing ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "add$w" ) + ( Local + ( Name "$kont331$w" ) ) ) ( Ref Nothing ( Local - ( Name "x157" ) + ( Name "x1$335" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| - [ AbsN Nothing - ( ParamNamed Nothing - ( Name "x158" ) :| [] - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Local - ( Name "$kont331" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x1$335" ) - ) :| [] - ) - ) - ( Ref Nothing + [ Ref Nothing ( Local ( Name "x158" ) - ) :| [] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) ) ), Standalone - ( Nothing, Name "$kont337", AbsN Nothing - ( ParamNamed Nothing ( Name "x1$338" ) :| [] ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "x79$339" ) :| [] ) + ( Nothing, Name "$kont337$w", AbsN Nothing + ( ParamNamed Nothing ( Name "x1$338" ) :| [ ParamNamed Nothing ( Name "x79$339" ) ] ) + ( AppN Nothing + ( Ref Nothing + ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind$w" ) ) + ) ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind$w" ) ) - ) + ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) ( AppN Nothing - ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) + ( Ref Nothing + ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "add$w" ) ) + ) + ( Ref Nothing ( Local ( Name "x79$339" ) ) :| [ LiteralInt Nothing 1 ] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing ( Name "x80" ) :| [] ) ( AppN Nothing ( Ref Nothing - ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "add$w" ) ) + ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind$w" ) ) ) - ( Ref Nothing ( Local ( Name "x79$339" ) ) :| [ LiteralInt Nothing 1 ] ) :| [] - ) :| - [ AbsN Nothing - ( ParamNamed Nothing ( Name "x80" ) :| [] ) ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind$w" ) ) - ) + ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) ( AppN Nothing - ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) + ( Ref Nothing + ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "add$w" ) ) + ) + ( Ref Nothing ( Local ( Name "x80" ) ) :| [ LiteralInt Nothing 1 ] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing ( Name "x81" ) :| [] ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "add$w" ) + ( Name "bind$w" ) ) ) - ( Ref Nothing - ( Local ( Name "x80" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| - [ AbsN Nothing - ( ParamNamed Nothing ( Name "x81" ) :| [] ) ( AppN Nothing ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind$w" ) - ) + ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing - ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) + ( Imported + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "add$w" ) + ) ) + ( Ref Nothing + ( Local ( Name "x81" ) ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing ( Name "x82" ) :| [] ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "add$w" ) + ( Name "bind$w" ) ) ) - ( 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$w" ) - ) + ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing - ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) + ( Imported + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "add$w" ) + ) ) + ( Ref Nothing + ( Local ( Name "x82" ) ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing ( Name "x83" ) :| [] ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "add$w" ) + ( Name "bind$w" ) ) ) - ( Ref Nothing - ( Local ( Name "x82" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| - [ AbsN Nothing - ( ParamNamed Nothing ( Name "x83" ) :| [] ) ( AppN Nothing ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind$w" ) - ) + ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "add$w" ) ) ) + ( Ref Nothing + ( Local ( Name "x83" ) ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing ( Name "x84" ) :| [] ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "add$w" ) + ( Name "bind$w" ) ) ) - ( 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$w" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "add$w" ) ) ) + ( Ref Nothing + ( Local ( Name "x84" ) ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing ( Name "x85" ) :| [] ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "add$w" ) + ( Name "bind$w" ) ) ) - ( Ref Nothing - ( Local ( Name "x84" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| - [ AbsN Nothing - ( ParamNamed Nothing ( Name "x85" ) :| [] ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind$w" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "add$w" ) ) ) + ( Ref Nothing + ( Local ( Name "x85" ) ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing ( Name "x86" ) :| [] ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "add$w" ) + ( Name "bind$w" ) ) ) - ( 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$w" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "add$w" ) ) ) + ( Ref Nothing + ( Local ( Name "x86" ) ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x87" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "add$w" ) + ( Name "bind$w" ) ) ) - ( Ref Nothing - ( Local ( Name "x86" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| - [ AbsN Nothing - ( ParamNamed Nothing - ( Name "x87" ) :| [] - ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind$w" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "add$w" ) ) ) + ( Ref Nothing + ( Local ( Name "x87" ) ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x88" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "add$w" ) + ( Name "bind$w" ) ) ) - ( 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$w" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "add$w" ) ) ) + ( Ref Nothing + ( Local + ( Name "x88" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x89" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "add$w" ) + ( Name "bind$w" ) ) ) - ( Ref Nothing - ( Local - ( Name "x88" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| - [ AbsN Nothing - ( ParamNamed Nothing - ( Name "x89" ) :| [] - ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind$w" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "add$w" ) ) ) + ( Ref Nothing + ( Local + ( Name "x89" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x90" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "add$w" ) + ( Name "bind$w" ) ) ) - ( 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$w" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "add$w" ) ) ) + ( Ref Nothing + ( Local + ( Name "x90" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x91" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "add$w" ) + ( Name "bind$w" ) ) ) - ( Ref Nothing - ( Local - ( Name "x90" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| - [ AbsN Nothing - ( ParamNamed Nothing - ( Name "x91" ) :| [] - ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind$w" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "add$w" ) ) ) + ( Ref Nothing + ( Local + ( Name "x91" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x92" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "add$w" ) + ( Name "bind$w" ) ) ) - ( 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$w" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "add$w" ) ) ) + ( Ref Nothing + ( Local + ( Name "x92" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x93" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "add$w" ) + ( Name "bind$w" ) ) ) - ( Ref Nothing - ( Local - ( Name "x92" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| - [ AbsN Nothing - ( ParamNamed Nothing - ( Name "x93" ) :| [] - ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind$w" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "add$w" ) ) ) + ( Ref Nothing + ( Local + ( Name "x93" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x94" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "add$w" ) + ( Name "bind$w" ) ) ) - ( 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$w" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "add$w" ) ) ) + ( Ref Nothing + ( Local + ( Name "x94" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x95" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "add$w" ) + ( Name "bind$w" ) ) ) - ( Ref Nothing - ( Local - ( Name "x94" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| - [ AbsN Nothing - ( ParamNamed Nothing - ( Name "x95" ) :| [] - ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind$w" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "add$w" ) ) ) + ( Ref Nothing + ( Local + ( Name "x95" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x96" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "add$w" ) + ( Name "bind$w" ) ) ) - ( 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$w" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "add$w" ) ) ) + ( Ref Nothing + ( Local + ( Name "x96" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x97" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "add$w" ) + ( Name "bind$w" ) ) ) - ( Ref Nothing - ( Local - ( Name "x96" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| - [ AbsN Nothing - ( ParamNamed Nothing - ( Name "x97" ) :| [] - ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind$w" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "add$w" ) ) ) + ( Ref Nothing + ( Local + ( Name "x97" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x98" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "add$w" ) + ( Name "bind$w" ) ) ) - ( 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$w" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "add$w" ) ) ) + ( Ref Nothing + ( Local + ( Name "x98" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x99" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "add$w" ) + ( Name "bind$w" ) ) ) - ( Ref Nothing - ( Local - ( Name "x98" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| - [ AbsN Nothing - ( ParamNamed Nothing - ( Name "x99" ) :| [] - ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind$w" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "add$w" ) ) ) + ( Ref Nothing + ( Local + ( Name "x99" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x100" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "add$w" ) + ( Name "bind$w" ) ) ) - ( 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$w" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "add$w" ) ) ) + ( Ref Nothing + ( Local + ( Name "x100" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x101" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "add$w" ) + ( Name "bind$w" ) ) ) - ( Ref Nothing - ( Local - ( Name "x100" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| - [ AbsN Nothing - ( ParamNamed Nothing - ( Name "x101" ) :| [] - ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind$w" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "add$w" ) ) ) + ( Ref Nothing + ( Local + ( Name "x101" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x102" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "add$w" ) + ( Name "bind$w" ) ) ) - ( 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$w" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "add$w" ) ) ) + ( Ref Nothing + ( Local + ( Name "x102" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x103" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "add$w" ) + ( Name "bind$w" ) ) ) - ( Ref Nothing - ( Local - ( Name "x102" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| - [ AbsN Nothing - ( ParamNamed Nothing - ( Name "x103" ) :| [] - ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind$w" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "add$w" ) ) ) + ( Ref Nothing + ( Local + ( Name "x103" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x104" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "add$w" ) + ( Name "bind$w" ) ) ) - ( 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$w" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "add$w" ) ) ) + ( Ref Nothing + ( Local + ( Name "x104" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x105" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "add$w" ) + ( Name "bind$w" ) ) ) - ( Ref Nothing - ( Local - ( Name "x104" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| - [ AbsN Nothing - ( ParamNamed Nothing - ( Name "x105" ) :| [] - ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind$w" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "add$w" ) ) ) + ( Ref Nothing + ( Local + ( Name "x105" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x106" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "add$w" ) + ( Name "bind$w" ) ) ) - ( Ref Nothing - ( Local - ( Name "x105" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| - [ AbsN Nothing - ( ParamNamed Nothing - ( Name "x106" ) :| [] - ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind$w" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "add$w" ) ) ) + ( Ref Nothing + ( Local + ( Name "x106" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x107" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "add$w" ) + ( Name "bind$w" ) ) ) - ( 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" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "add$w" ) ) ) + ( Ref Nothing + ( Local + ( Name "x107" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x108" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "add$w" ) + ( Name "bind$w" ) ) ) - ( 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" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "add$w" ) ) ) + ( Ref Nothing + ( Local + ( Name "x108" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x109" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "add$w" ) + ( Name "bind$w" ) ) ) - ( 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" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "add$w" ) ) ) + ( Ref Nothing + ( Local + ( Name "x109" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x110" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "add$w" ) + ( Name "bind$w" ) ) ) - ( 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" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "add$w" ) ) ) + ( Ref Nothing + ( Local + ( Name "x110" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x111" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "add$w" ) + ( Name "bind$w" ) ) ) - ( 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" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "add$w" ) ) ) + ( Ref Nothing + ( Local + ( Name "x111" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x112" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "add$w" ) + ( Name "bind$w" ) ) ) - ( 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" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "add$w" ) ) ) + ( Ref Nothing + ( Local + ( Name "x112" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x113" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "add$w" ) + ( Name "bind$w" ) ) ) - ( 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" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "add$w" ) ) ) + ( Ref Nothing + ( Local + ( Name "x113" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x114" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "add$w" ) + ( Name "bind$w" ) ) ) - ( 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" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "add$w" ) ) ) + ( Ref Nothing + ( Local + ( Name "x114" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x115" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "add$w" ) + ( Name "bind$w" ) ) ) - ( 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" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "add$w" ) ) ) + ( Ref Nothing + ( Local + ( Name "x115" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x116" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "add$w" ) + ( Name "bind$w" ) ) ) - ( 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" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "add$w" ) ) ) + ( Ref Nothing + ( Local + ( Name "x116" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x117" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "add$w" ) + ( Name "bind$w" ) ) ) - ( 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" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "add$w" ) ) ) + ( Ref Nothing + ( Local + ( Name "x117" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x118" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "add$w" ) + ( Name "bind$w" ) ) ) - ( 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" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "add$w" ) ) ) + ( Ref Nothing + ( Local + ( Name "x118" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x119" ) :| [] + ) ( AppN Nothing ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "add$w" ) + ( Local + ( Name "$kont334$w" ) ) ) ( Ref Nothing ( Local - ( Name "x118" ) + ( Name "x1$338" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| - [ AbsN Nothing - ( ParamNamed Nothing - ( Name "x119" ) :| [] - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Local - ( Name "$kont334" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x1$338" ) - ) :| [] - ) - ) - ( Ref Nothing + [ Ref Nothing ( Local ( Name "x119" ) - ) :| [] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) ) ), Standalone - ( Nothing, Name "$kont340", AbsN Nothing - ( ParamNamed Nothing ( Name "x1$341" ) :| [] ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "x40$342" ) :| [] ) + ( Nothing, Name "$kont340$w", AbsN Nothing + ( ParamNamed Nothing ( Name "x1$341" ) :| [ ParamNamed Nothing ( Name "x40$342" ) ] ) + ( AppN Nothing + ( Ref Nothing + ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind$w" ) ) + ) ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind$w" ) ) - ) + ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) ( AppN Nothing - ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) + ( Ref Nothing + ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "add$w" ) ) + ) + ( Ref Nothing ( Local ( Name "x40$342" ) ) :| [ LiteralInt Nothing 1 ] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing ( Name "x41" ) :| [] ) ( AppN Nothing ( Ref Nothing - ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "add$w" ) ) + ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind$w" ) ) ) - ( Ref Nothing ( Local ( Name "x40$342" ) ) :| [ LiteralInt Nothing 1 ] ) :| [] - ) :| - [ AbsN Nothing - ( ParamNamed Nothing ( Name "x41" ) :| [] ) ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind$w" ) ) - ) + ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) ( AppN Nothing - ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) + ( Ref Nothing + ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "add$w" ) ) + ) + ( Ref Nothing ( Local ( Name "x41" ) ) :| [ LiteralInt Nothing 1 ] ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing ( Name "x42" ) :| [] ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "add$w" ) + ( Name "bind$w" ) ) ) - ( Ref Nothing - ( Local ( Name "x41" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| - [ AbsN Nothing - ( ParamNamed Nothing ( Name "x42" ) :| [] ) ( AppN Nothing ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind$w" ) - ) + ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing - ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) + ( Imported + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "add$w" ) + ) ) + ( Ref Nothing + ( Local ( Name "x42" ) ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing ( Name "x43" ) :| [] ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "add$w" ) + ( Name "bind$w" ) ) ) - ( 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$w" ) - ) + ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing - ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) + ( Imported + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "add$w" ) + ) ) + ( Ref Nothing + ( Local ( Name "x43" ) ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing ( Name "x44" ) :| [] ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "add$w" ) + ( Name "bind$w" ) ) ) - ( Ref Nothing - ( Local ( Name "x43" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| - [ AbsN Nothing - ( ParamNamed Nothing ( Name "x44" ) :| [] ) ( AppN Nothing ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind$w" ) - ) + ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "add$w" ) ) ) + ( Ref Nothing + ( Local ( Name "x44" ) ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing ( Name "x45" ) :| [] ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "add$w" ) + ( Name "bind$w" ) ) ) - ( 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$w" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "add$w" ) ) ) + ( Ref Nothing + ( Local ( Name "x45" ) ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing ( Name "x46" ) :| [] ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "add$w" ) + ( Name "bind$w" ) ) ) - ( Ref Nothing - ( Local ( Name "x45" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| - [ AbsN Nothing - ( ParamNamed Nothing ( Name "x46" ) :| [] ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind$w" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "add$w" ) ) ) + ( Ref Nothing + ( Local ( Name "x46" ) ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing ( Name "x47" ) :| [] ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "add$w" ) + ( Name "bind$w" ) ) ) - ( 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$w" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "add$w" ) ) ) + ( Ref Nothing + ( Local ( Name "x47" ) ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x48" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "add$w" ) + ( Name "bind$w" ) ) ) - ( Ref Nothing - ( Local ( Name "x47" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| - [ AbsN Nothing - ( ParamNamed Nothing - ( Name "x48" ) :| [] - ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind$w" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "add$w" ) ) ) + ( Ref Nothing + ( Local ( Name "x48" ) ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x49" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "add$w" ) + ( Name "bind$w" ) ) ) - ( 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$w" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "add$w" ) ) ) + ( Ref Nothing + ( Local + ( Name "x49" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x50" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "add$w" ) + ( Name "bind$w" ) ) ) - ( Ref Nothing - ( Local - ( Name "x49" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| - [ AbsN Nothing - ( ParamNamed Nothing - ( Name "x50" ) :| [] - ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind$w" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] + ) :| + [ AbsN Nothing + ( ParamUnused Nothing :| [] ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "bind$w" ) + ) ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "unit" ) - ) :| [] - ) :| - [ AbsN Nothing - ( ParamUnused Nothing :| [] ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind$w" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "add$w" ) ) ) + ( Ref Nothing + ( Local + ( Name "x50" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x51" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "add$w" ) + ( Name "bind$w" ) ) ) - ( Ref Nothing - ( Local - ( Name "x50" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| - [ AbsN Nothing - ( ParamNamed Nothing - ( Name "x51" ) :| [] - ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind$w" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "add$w" ) ) ) + ( Ref Nothing + ( Local + ( Name "x51" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x52" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "add$w" ) + ( Name "bind$w" ) ) ) - ( 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$w" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "add$w" ) ) ) + ( Ref Nothing + ( Local + ( Name "x52" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x53" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "add$w" ) + ( Name "bind$w" ) ) ) - ( Ref Nothing - ( Local - ( Name "x52" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| - [ AbsN Nothing - ( ParamNamed Nothing - ( Name "x53" ) :| [] - ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind$w" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "add$w" ) ) ) + ( Ref Nothing + ( Local + ( Name "x53" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x54" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "add$w" ) + ( Name "bind$w" ) ) ) - ( 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$w" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "add$w" ) ) ) + ( Ref Nothing + ( Local + ( Name "x54" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x55" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "add$w" ) + ( Name "bind$w" ) ) ) - ( Ref Nothing - ( Local - ( Name "x54" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| - [ AbsN Nothing - ( ParamNamed Nothing - ( Name "x55" ) :| [] - ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind$w" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "add$w" ) ) ) + ( Ref Nothing + ( Local + ( Name "x55" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x56" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "add$w" ) + ( Name "bind$w" ) ) ) - ( 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$w" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "add$w" ) ) ) + ( Ref Nothing + ( Local + ( Name "x56" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x57" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "add$w" ) + ( Name "bind$w" ) ) ) - ( Ref Nothing - ( Local - ( Name "x56" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| - [ AbsN Nothing - ( ParamNamed Nothing - ( Name "x57" ) :| [] - ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind$w" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "add$w" ) ) ) + ( Ref Nothing + ( Local + ( Name "x57" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x58" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "add$w" ) + ( Name "bind$w" ) ) ) - ( 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$w" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "add$w" ) ) ) + ( Ref Nothing + ( Local + ( Name "x58" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x59" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "add$w" ) + ( Name "bind$w" ) ) ) - ( Ref Nothing - ( Local - ( Name "x58" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| - [ AbsN Nothing - ( ParamNamed Nothing - ( Name "x59" ) :| [] - ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind$w" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "add$w" ) ) ) + ( Ref Nothing + ( Local + ( Name "x59" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x60" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "add$w" ) + ( Name "bind$w" ) ) ) - ( 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$w" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "add$w" ) ) ) + ( Ref Nothing + ( Local + ( Name "x60" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x61" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "add$w" ) + ( Name "bind$w" ) ) ) - ( Ref Nothing - ( Local - ( Name "x60" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| - [ AbsN Nothing - ( ParamNamed Nothing - ( Name "x61" ) :| [] - ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind$w" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "add$w" ) ) ) + ( Ref Nothing + ( Local + ( Name "x61" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x62" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "add$w" ) + ( Name "bind$w" ) ) ) - ( 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$w" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "add$w" ) ) ) + ( Ref Nothing + ( Local + ( Name "x62" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x63" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "add$w" ) + ( Name "bind$w" ) ) ) - ( Ref Nothing - ( Local - ( Name "x62" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| - [ AbsN Nothing - ( ParamNamed Nothing - ( Name "x63" ) :| [] - ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind$w" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "add$w" ) ) ) + ( Ref Nothing + ( Local + ( Name "x63" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x64" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "add$w" ) + ( Name "bind$w" ) ) ) - ( 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$w" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "add$w" ) ) ) + ( Ref Nothing + ( Local + ( Name "x64" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x65" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "add$w" ) + ( Name "bind$w" ) ) ) - ( Ref Nothing - ( Local - ( Name "x64" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| - [ AbsN Nothing - ( ParamNamed Nothing - ( Name "x65" ) :| [] - ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind$w" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "add$w" ) ) ) + ( Ref Nothing + ( Local + ( Name "x65" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x66" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "add$w" ) + ( Name "bind$w" ) ) ) - ( Ref Nothing - ( Local - ( Name "x65" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| - [ AbsN Nothing - ( ParamNamed Nothing - ( Name "x66" ) :| [] - ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "bind$w" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "add$w" ) ) ) + ( Ref Nothing + ( Local + ( Name "x66" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x67" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "add$w" ) + ( Name "bind$w" ) ) ) - ( 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" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "add$w" ) ) ) + ( Ref Nothing + ( Local + ( Name "x67" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x68" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "add$w" ) + ( Name "bind$w" ) ) ) - ( 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" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "add$w" ) ) ) + ( Ref Nothing + ( Local + ( Name "x68" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x69" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "add$w" ) + ( Name "bind$w" ) ) ) - ( 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" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "add$w" ) ) ) + ( Ref Nothing + ( Local + ( Name "x69" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x70" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "add$w" ) + ( Name "bind$w" ) ) ) - ( 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" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "add$w" ) ) ) + ( Ref Nothing + ( Local + ( Name "x70" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x71" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "add$w" ) + ( Name "bind$w" ) ) ) - ( 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" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "add$w" ) ) ) + ( Ref Nothing + ( Local + ( Name "x71" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x72" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "add$w" ) + ( Name "bind$w" ) ) ) - ( 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" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "add$w" ) ) ) + ( Ref Nothing + ( Local + ( Name "x72" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x73" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "add$w" ) + ( Name "bind$w" ) ) ) - ( 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" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "add$w" ) ) ) + ( Ref Nothing + ( Local + ( Name "x73" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x74" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "add$w" ) + ( Name "bind$w" ) ) ) - ( 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" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "add$w" ) ) ) + ( Ref Nothing + ( Local + ( Name "x74" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x75" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "add$w" ) + ( Name "bind$w" ) ) ) - ( 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" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "add$w" ) ) ) + ( Ref Nothing + ( Local + ( Name "x75" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x76" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "add$w" ) + ( Name "bind$w" ) ) ) - ( 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" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "add$w" ) ) ) + ( Ref Nothing + ( Local + ( Name "x76" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x77" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "add$w" ) + ( Name "bind$w" ) ) ) - ( 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" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "add$w" ) ) ) + ( Ref Nothing + ( Local + ( Name "x77" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x78" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "add$w" ) + ( Name "bind$w" ) ) ) - ( 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" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBind.Test" ) + ( Name "add$w" ) ) ) + ( Ref Nothing + ( Local + ( Name "x78" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x79" ) :| [] + ) ( AppN Nothing ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongMaybeBind.Test" ) - ( Name "add$w" ) + ( Local + ( Name "$kont337$w" ) ) ) ( Ref Nothing ( Local - ( Name "x78" ) + ( Name "x1$341" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| - [ AbsN Nothing - ( ParamNamed Nothing - ( Name "x79" ) :| [] - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Local - ( Name "$kont337" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x1$341" ) - ) :| [] - ) - ) - ( Ref Nothing + [ Ref Nothing ( Local ( Name "x79" ) - ) :| [] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) ) ) @@ -10245,22 +10153,20 @@ UberModule ( Name "x40" ) :| [] ) ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Local - ( Name "$kont340" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x1" ) - ) :| [] + ( Ref Nothing + ( Local + ( Name "$kont340$w" ) ) ) ( Ref Nothing ( Local - ( Name "x40" ) - ) :| [] + ( 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 37e4db10..805851cd 100644 --- a/test/ps/output/Golden.LongMaybeBind.Test/golden.lua +++ b/test/ps/output/Golden.LongMaybeBind.Test/golden.lua @@ -24,33 +24,31 @@ local Golden_LongMaybeBind_Test_add_S_w = function(x_S_309, y_S_310) return x_S_309 + y_S_310 end local Golden_LongMaybeBind_Test_compute = (function() - local _S_kont322 = function(x1_S_323) - return function(x277_S_324) - return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x277_S_324, 1)), function( x278 ) - return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x278, 1)), function( x279 ) - return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x279, 1)), function( x280 ) - return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x280, 1)), function( x281 ) - return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x281, 1)), function( x282 ) - return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x282, 1)), function( x283 ) - return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x283, 1)), function( x284 ) - return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x284, 1)), function( x285 ) - return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x285, 1)), function( x286 ) - return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x286, 1)), function( x287 ) - return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x287, 1)), function( x288 ) - return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x288, 1)), function( x289 ) - return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x289, 1)), function( x290 ) - return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x290, 1)), function( x291 ) - return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x291, 1)), function( x292 ) - return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x292, 1)), function( x293 ) - return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x293, 1)), function( x294 ) - return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x294, 1)), function( x295 ) - return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x295, 1)), function( x296 ) - return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x296, 1)), function( x297 ) - return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x297, 1)), function( x298 ) - return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x298, 1)), function( x299 ) - return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x299, 1)), function( x300 ) - return Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x1_S_323, x300)) - end) + local _S_kont322_S_w = function(x1_S_323, x277_S_324) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x277_S_324, 1)), function( x278 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x278, 1)), function( x279 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x279, 1)), function( x280 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x280, 1)), function( x281 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x281, 1)), function( x282 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x282, 1)), function( x283 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x283, 1)), function( x284 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x284, 1)), function( x285 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x285, 1)), function( x286 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x286, 1)), function( x287 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x287, 1)), function( x288 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x288, 1)), function( x289 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x289, 1)), function( x290 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x290, 1)), function( x291 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x291, 1)), function( x292 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x292, 1)), function( x293 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x293, 1)), function( x294 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x294, 1)), function( x295 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x295, 1)), function( x296 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x296, 1)), function( x297 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x297, 1)), function( x298 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x298, 1)), function( x299 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x299, 1)), function( x300 ) + return Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x1_S_323, x300)) end) end) end) @@ -73,52 +71,50 @@ local Golden_LongMaybeBind_Test_compute = (function() end) end) end) - end + end) end - local _S_kont325 = function(x1_S_326) - return function(x238_S_327) - return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x238_S_327, 1)), function( x239 ) - return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x239, 1)), function( x240 ) - return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x240, 1)), function( x241 ) - return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x241, 1)), function( x242 ) - return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x242, 1)), function( x243 ) - return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x243, 1)), function( x244 ) - return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x244, 1)), function( x245 ) - return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x245, 1)), function( x246 ) - return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x246, 1)), function( x247 ) - return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x247, 1)), function( x248 ) - return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x248, 1)), function( x249 ) - return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x249, 1)), function( x250 ) - return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Data_Unit_unit), function( ) - return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x250, 1)), function( x251 ) - return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x251, 1)), function( x252 ) - return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x252, 1)), function( x253 ) - return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x253, 1)), function( x254 ) - return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x254, 1)), function( x255 ) - return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x255, 1)), function( x256 ) - return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x256, 1)), function( x257 ) - return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x257, 1)), function( x258 ) - return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x258, 1)), function( x259 ) - return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x259, 1)), function( x260 ) - return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x260, 1)), function( x261 ) - return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x261, 1)), function( x262 ) - return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x262, 1)), function( x263 ) - return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x263, 1)), function( x264 ) - return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x264, 1)), function( x265 ) - return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x265, 1)), function( x266 ) - return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x266, 1)), function( x267 ) - return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x267, 1)), function( x268 ) - return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x268, 1)), function( x269 ) - return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x269, 1)), function( x270 ) - return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x270, 1)), function( x271 ) - return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x271, 1)), function( x272 ) - return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x272, 1)), function( x273 ) - return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x273, 1)), function( x274 ) - return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x274, 1)), function( x275 ) - return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x275, 1)), function( x276 ) - return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x276, 1)), function( x277 ) - return _S_kont322(x1_S_326)(x277) - end) + local _S_kont325_S_w = function(x1_S_326, x238_S_327) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x238_S_327, 1)), function( x239 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x239, 1)), function( x240 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x240, 1)), function( x241 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x241, 1)), function( x242 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x242, 1)), function( x243 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x243, 1)), function( x244 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x244, 1)), function( x245 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x245, 1)), function( x246 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x246, 1)), function( x247 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x247, 1)), function( x248 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x248, 1)), function( x249 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x249, 1)), function( x250 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Data_Unit_unit), function( ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x250, 1)), function( x251 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x251, 1)), function( x252 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x252, 1)), function( x253 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x253, 1)), function( x254 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x254, 1)), function( x255 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x255, 1)), function( x256 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x256, 1)), function( x257 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x257, 1)), function( x258 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x258, 1)), function( x259 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x259, 1)), function( x260 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x260, 1)), function( x261 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x261, 1)), function( x262 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x262, 1)), function( x263 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x263, 1)), function( x264 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x264, 1)), function( x265 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x265, 1)), function( x266 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x266, 1)), function( x267 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x267, 1)), function( x268 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x268, 1)), function( x269 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x269, 1)), function( x270 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x270, 1)), function( x271 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x271, 1)), function( x272 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x272, 1)), function( x273 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x273, 1)), function( x274 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x274, 1)), function( x275 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x275, 1)), function( x276 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x276, 1)), function( x277 ) + return _S_kont322_S_w(x1_S_326, x277) end) end) end) @@ -158,52 +154,50 @@ local Golden_LongMaybeBind_Test_compute = (function() end) end) end) - end + end) end - local _S_kont328 = function(x1_S_329) - return function(x198_S_330) - return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x198_S_330, 1)), function( x199 ) - return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x199, 1)), function( x200 ) - return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x200, 1)), function( x201 ) - return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x201, 1)), function( x202 ) - return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x202, 1)), function( x203 ) - return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x203, 1)), function( x204 ) - return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x204, 1)), function( x205 ) - return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x205, 1)), function( x206 ) - return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x206, 1)), function( x207 ) - return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x207, 1)), function( x208 ) - return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x208, 1)), function( x209 ) - return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x209, 1)), function( x210 ) - return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x210, 1)), function( x211 ) - return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x211, 1)), function( x212 ) - return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x212, 1)), function( x213 ) - return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x213, 1)), function( x214 ) - return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x214, 1)), function( x215 ) - return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x215, 1)), function( x216 ) - return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x216, 1)), function( x217 ) - return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x217, 1)), function( x218 ) - return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x218, 1)), function( x219 ) - return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x219, 1)), function( x220 ) - return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x220, 1)), function( x221 ) - return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x221, 1)), function( x222 ) - return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x222, 1)), function( x223 ) - return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x223, 1)), function( x224 ) - return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x224, 1)), function( x225 ) - return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x225, 1)), function( x226 ) - return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x226, 1)), function( x227 ) - return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x227, 1)), function( x228 ) - return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x228, 1)), function( x229 ) - return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x229, 1)), function( x230 ) - return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x230, 1)), function( x231 ) - return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x231, 1)), function( x232 ) - return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x232, 1)), function( x233 ) - return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x233, 1)), function( x234 ) - return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x234, 1)), function( x235 ) - return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x235, 1)), function( x236 ) - return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x236, 1)), function( x237 ) - return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x237, 1)), function( x238 ) - return _S_kont325(x1_S_329)(x238) - end) + local _S_kont328_S_w = function(x1_S_329, x198_S_330) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x198_S_330, 1)), function( x199 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x199, 1)), function( x200 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x200, 1)), function( x201 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x201, 1)), function( x202 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x202, 1)), function( x203 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x203, 1)), function( x204 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x204, 1)), function( x205 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x205, 1)), function( x206 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x206, 1)), function( x207 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x207, 1)), function( x208 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x208, 1)), function( x209 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x209, 1)), function( x210 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x210, 1)), function( x211 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x211, 1)), function( x212 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x212, 1)), function( x213 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x213, 1)), function( x214 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x214, 1)), function( x215 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x215, 1)), function( x216 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x216, 1)), function( x217 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x217, 1)), function( x218 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x218, 1)), function( x219 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x219, 1)), function( x220 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x220, 1)), function( x221 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x221, 1)), function( x222 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x222, 1)), function( x223 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x223, 1)), function( x224 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x224, 1)), function( x225 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x225, 1)), function( x226 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x226, 1)), function( x227 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x227, 1)), function( x228 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x228, 1)), function( x229 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x229, 1)), function( x230 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x230, 1)), function( x231 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x231, 1)), function( x232 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x232, 1)), function( x233 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x233, 1)), function( x234 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x234, 1)), function( x235 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x235, 1)), function( x236 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x236, 1)), function( x237 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x237, 1)), function( x238 ) + return _S_kont325_S_w(x1_S_329, x238) end) end) end) @@ -243,52 +237,50 @@ local Golden_LongMaybeBind_Test_compute = (function() end) end) end) - end + end) end - local _S_kont331 = function(x1_S_332) - return function(x158_S_333) - return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x158_S_333, 1)), function( x159 ) - return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x159, 1)), function( x160 ) - return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x160, 1)), function( x161 ) - return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x161, 1)), function( x162 ) - return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x162, 1)), function( x163 ) - return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x163, 1)), function( x164 ) - return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x164, 1)), function( x165 ) - return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x165, 1)), function( x166 ) - return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x166, 1)), function( x167 ) - return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x167, 1)), function( x168 ) - return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x168, 1)), function( x169 ) - return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x169, 1)), function( x170 ) - return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x170, 1)), function( x171 ) - return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x171, 1)), function( x172 ) - return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x172, 1)), function( x173 ) - return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x173, 1)), function( x174 ) - return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x174, 1)), function( x175 ) - return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x175, 1)), function( x176 ) - return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x176, 1)), function( x177 ) - return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x177, 1)), function( x178 ) - return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x178, 1)), function( x179 ) - return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x179, 1)), function( x180 ) - return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x180, 1)), function( x181 ) - return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x181, 1)), function( x182 ) - return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x182, 1)), function( x183 ) - return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x183, 1)), function( x184 ) - return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x184, 1)), function( x185 ) - return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x185, 1)), function( x186 ) - return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x186, 1)), function( x187 ) - return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x187, 1)), function( x188 ) - return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x188, 1)), function( x189 ) - return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x189, 1)), function( x190 ) - return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x190, 1)), function( x191 ) - return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x191, 1)), function( x192 ) - return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x192, 1)), function( x193 ) - return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x193, 1)), function( x194 ) - return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x194, 1)), function( x195 ) - return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x195, 1)), function( x196 ) - return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x196, 1)), function( x197 ) - return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x197, 1)), function( x198 ) - return _S_kont328(x1_S_332)(x198) - end) + local _S_kont331_S_w = function(x1_S_332, x158_S_333) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x158_S_333, 1)), function( x159 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x159, 1)), function( x160 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x160, 1)), function( x161 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x161, 1)), function( x162 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x162, 1)), function( x163 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x163, 1)), function( x164 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x164, 1)), function( x165 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x165, 1)), function( x166 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x166, 1)), function( x167 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x167, 1)), function( x168 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x168, 1)), function( x169 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x169, 1)), function( x170 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x170, 1)), function( x171 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x171, 1)), function( x172 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x172, 1)), function( x173 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x173, 1)), function( x174 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x174, 1)), function( x175 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x175, 1)), function( x176 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x176, 1)), function( x177 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x177, 1)), function( x178 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x178, 1)), function( x179 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x179, 1)), function( x180 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x180, 1)), function( x181 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x181, 1)), function( x182 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x182, 1)), function( x183 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x183, 1)), function( x184 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x184, 1)), function( x185 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x185, 1)), function( x186 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x186, 1)), function( x187 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x187, 1)), function( x188 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x188, 1)), function( x189 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x189, 1)), function( x190 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x190, 1)), function( x191 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x191, 1)), function( x192 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x192, 1)), function( x193 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x193, 1)), function( x194 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x194, 1)), function( x195 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x195, 1)), function( x196 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x196, 1)), function( x197 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x197, 1)), function( x198 ) + return _S_kont328_S_w(x1_S_332, x198) end) end) end) @@ -328,52 +320,50 @@ local Golden_LongMaybeBind_Test_compute = (function() end) end) end) - end + end) end - local _S_kont334 = function(x1_S_335) - return function(x119_S_336) - return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x119_S_336, 1)), function( x120 ) - return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x120, 1)), function( x121 ) - return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x121, 1)), function( x122 ) - return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x122, 1)), function( x123 ) - return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x123, 1)), function( x124 ) - return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x124, 1)), function( x125 ) - return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x125, 1)), function( x126 ) - return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x126, 1)), function( x127 ) - return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x127, 1)), function( x128 ) - return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x128, 1)), function( x129 ) - return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x129, 1)), function( x130 ) - return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x130, 1)), function( x131 ) - return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x131, 1)), function( x132 ) - return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x132, 1)), function( x133 ) - return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x133, 1)), function( x134 ) - return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x134, 1)), function( x135 ) - return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x135, 1)), function( x136 ) - return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x136, 1)), function( x137 ) - return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x137, 1)), function( x138 ) - return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x138, 1)), function( x139 ) - return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x139, 1)), function( x140 ) - return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x140, 1)), function( x141 ) - return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x141, 1)), function( x142 ) - return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x142, 1)), function( x143 ) - return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x143, 1)), function( x144 ) - return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x144, 1)), function( x145 ) - return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x145, 1)), function( x146 ) - return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x146, 1)), function( x147 ) - return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x147, 1)), function( x148 ) - return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x148, 1)), function( x149 ) - return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x149, 1)), function( x150 ) - return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Data_Unit_unit), function( ) - return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x150, 1)), function( x151 ) - return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x151, 1)), function( x152 ) - return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x152, 1)), function( x153 ) - return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x153, 1)), function( x154 ) - return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x154, 1)), function( x155 ) - return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x155, 1)), function( x156 ) - return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x156, 1)), function( x157 ) - return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x157, 1)), function( x158 ) - return _S_kont331(x1_S_335)(x158) - end) + local _S_kont334_S_w = function(x1_S_335, x119_S_336) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x119_S_336, 1)), function( x120 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x120, 1)), function( x121 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x121, 1)), function( x122 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x122, 1)), function( x123 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x123, 1)), function( x124 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x124, 1)), function( x125 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x125, 1)), function( x126 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x126, 1)), function( x127 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x127, 1)), function( x128 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x128, 1)), function( x129 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x129, 1)), function( x130 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x130, 1)), function( x131 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x131, 1)), function( x132 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x132, 1)), function( x133 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x133, 1)), function( x134 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x134, 1)), function( x135 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x135, 1)), function( x136 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x136, 1)), function( x137 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x137, 1)), function( x138 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x138, 1)), function( x139 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x139, 1)), function( x140 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x140, 1)), function( x141 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x141, 1)), function( x142 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x142, 1)), function( x143 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x143, 1)), function( x144 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x144, 1)), function( x145 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x145, 1)), function( x146 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x146, 1)), function( x147 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x147, 1)), function( x148 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x148, 1)), function( x149 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x149, 1)), function( x150 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Data_Unit_unit), function( ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x150, 1)), function( x151 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x151, 1)), function( x152 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x152, 1)), function( x153 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x153, 1)), function( x154 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x154, 1)), function( x155 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x155, 1)), function( x156 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x156, 1)), function( x157 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x157, 1)), function( x158 ) + return _S_kont331_S_w(x1_S_335, x158) end) end) end) @@ -413,52 +403,50 @@ local Golden_LongMaybeBind_Test_compute = (function() end) end) end) - end + end) end - local _S_kont337 = function(x1_S_338) - return function(x79_S_339) - return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x79_S_339, 1)), function( x80 ) - return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x80, 1)), function( x81 ) - return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x81, 1)), function( x82 ) - return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x82, 1)), function( x83 ) - return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x83, 1)), function( x84 ) - return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x84, 1)), function( x85 ) - return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x85, 1)), function( x86 ) - return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x86, 1)), function( x87 ) - return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x87, 1)), function( x88 ) - return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x88, 1)), function( x89 ) - return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x89, 1)), function( x90 ) - return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x90, 1)), function( x91 ) - return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x91, 1)), function( x92 ) - return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x92, 1)), function( x93 ) - return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x93, 1)), function( x94 ) - return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x94, 1)), function( x95 ) - return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x95, 1)), function( x96 ) - return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x96, 1)), function( x97 ) - return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x97, 1)), function( x98 ) - return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x98, 1)), function( x99 ) - return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x99, 1)), function( x100 ) - return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x100, 1)), function( x101 ) - return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x101, 1)), function( x102 ) - return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x102, 1)), function( x103 ) - return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x103, 1)), function( x104 ) - return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x104, 1)), function( x105 ) - return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x105, 1)), function( x106 ) - return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x106, 1)), function( x107 ) - return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x107, 1)), function( x108 ) - return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x108, 1)), function( x109 ) - return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x109, 1)), function( x110 ) - return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x110, 1)), function( x111 ) - return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x111, 1)), function( x112 ) - return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x112, 1)), function( x113 ) - return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x113, 1)), function( x114 ) - return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x114, 1)), function( x115 ) - return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x115, 1)), function( x116 ) - return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x116, 1)), function( x117 ) - return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x117, 1)), function( x118 ) - return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x118, 1)), function( x119 ) - return _S_kont334(x1_S_338)(x119) - end) + local _S_kont337_S_w = function(x1_S_338, x79_S_339) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x79_S_339, 1)), function( x80 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x80, 1)), function( x81 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x81, 1)), function( x82 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x82, 1)), function( x83 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x83, 1)), function( x84 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x84, 1)), function( x85 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x85, 1)), function( x86 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x86, 1)), function( x87 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x87, 1)), function( x88 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x88, 1)), function( x89 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x89, 1)), function( x90 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x90, 1)), function( x91 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x91, 1)), function( x92 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x92, 1)), function( x93 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x93, 1)), function( x94 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x94, 1)), function( x95 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x95, 1)), function( x96 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x96, 1)), function( x97 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x97, 1)), function( x98 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x98, 1)), function( x99 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x99, 1)), function( x100 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x100, 1)), function( x101 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x101, 1)), function( x102 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x102, 1)), function( x103 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x103, 1)), function( x104 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x104, 1)), function( x105 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x105, 1)), function( x106 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x106, 1)), function( x107 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x107, 1)), function( x108 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x108, 1)), function( x109 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x109, 1)), function( x110 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x110, 1)), function( x111 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x111, 1)), function( x112 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x112, 1)), function( x113 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x113, 1)), function( x114 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x114, 1)), function( x115 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x115, 1)), function( x116 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x116, 1)), function( x117 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x117, 1)), function( x118 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x118, 1)), function( x119 ) + return _S_kont334_S_w(x1_S_338, x119) end) end) end) @@ -498,52 +486,50 @@ local Golden_LongMaybeBind_Test_compute = (function() end) end) end) - end + end) end - local _S_kont340 = function(x1_S_341) - return function(x40_S_342) - return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x40_S_342, 1)), function( x41 ) - return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x41, 1)), function( x42 ) - return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x42, 1)), function( x43 ) - return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x43, 1)), function( x44 ) - return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x44, 1)), function( x45 ) - return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x45, 1)), function( x46 ) - return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x46, 1)), function( x47 ) - return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x47, 1)), function( x48 ) - return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x48, 1)), function( x49 ) - return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x49, 1)), function( x50 ) - return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Data_Unit_unit), function( ) - return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x50, 1)), function( x51 ) - return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x51, 1)), function( x52 ) - return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x52, 1)), function( x53 ) - return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x53, 1)), function( x54 ) - return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x54, 1)), function( x55 ) - return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x55, 1)), function( x56 ) - return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x56, 1)), function( x57 ) - return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x57, 1)), function( x58 ) - return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x58, 1)), function( x59 ) - return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x59, 1)), function( x60 ) - return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x60, 1)), function( x61 ) - return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x61, 1)), function( x62 ) - return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x62, 1)), function( x63 ) - return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x63, 1)), function( x64 ) - return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x64, 1)), function( x65 ) - return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x65, 1)), function( x66 ) - return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x66, 1)), function( x67 ) - return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x67, 1)), function( x68 ) - return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x68, 1)), function( x69 ) - return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x69, 1)), function( x70 ) - return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x70, 1)), function( x71 ) - return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x71, 1)), function( x72 ) - return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x72, 1)), function( x73 ) - return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x73, 1)), function( x74 ) - return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x74, 1)), function( x75 ) - return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x75, 1)), function( x76 ) - return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x76, 1)), function( x77 ) - return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x77, 1)), function( x78 ) - return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x78, 1)), function( x79 ) - return _S_kont337(x1_S_341)(x79) - end) + local _S_kont340_S_w = function(x1_S_341, x40_S_342) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x40_S_342, 1)), function( x41 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x41, 1)), function( x42 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x42, 1)), function( x43 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x43, 1)), function( x44 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x44, 1)), function( x45 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x45, 1)), function( x46 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x46, 1)), function( x47 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x47, 1)), function( x48 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x48, 1)), function( x49 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x49, 1)), function( x50 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Data_Unit_unit), function( ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x50, 1)), function( x51 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x51, 1)), function( x52 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x52, 1)), function( x53 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x53, 1)), function( x54 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x54, 1)), function( x55 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x55, 1)), function( x56 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x56, 1)), function( x57 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x57, 1)), function( x58 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x58, 1)), function( x59 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x59, 1)), function( x60 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x60, 1)), function( x61 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x61, 1)), function( x62 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x62, 1)), function( x63 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x63, 1)), function( x64 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x64, 1)), function( x65 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x65, 1)), function( x66 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x66, 1)), function( x67 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x67, 1)), function( x68 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x68, 1)), function( x69 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x69, 1)), function( x70 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x70, 1)), function( x71 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x71, 1)), function( x72 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x72, 1)), function( x73 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x73, 1)), function( x74 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x74, 1)), function( x75 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x75, 1)), function( x76 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x76, 1)), function( x77 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x77, 1)), function( x78 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x78, 1)), function( x79 ) + return _S_kont337_S_w(x1_S_341, x79) end) end) end) @@ -583,7 +569,7 @@ local Golden_LongMaybeBind_Test_compute = (function() end) end) end) - end + end) end return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(1), function(x1) return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x1, 1)), function( x2 ) @@ -625,7 +611,7 @@ local Golden_LongMaybeBind_Test_compute = (function() return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x37, 1)), function( x38 ) return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x38, 1)), function( x39 ) return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x39, 1)), function( x40 ) - return _S_kont340(x1)(x40) + return _S_kont340_S_w(x1, x40) end) end) end) diff --git a/test/ps/output/Golden.LongMaybeBindModule.Test/golden.ir b/test/ps/output/Golden.LongMaybeBindModule.Test/golden.ir index 87ac1f60..5b57e1d5 100644 --- a/test/ps/output/Golden.LongMaybeBindModule.Test/golden.ir +++ b/test/ps/output/Golden.LongMaybeBindModule.Test/golden.ir @@ -70,9034 +70,8978 @@ UberModule [ ( Name "compute", Let Nothing ( Standalone - ( Nothing, Name "$kont589", AbsN Nothing - ( ParamNamed Nothing ( Name "x1$0$590" ) :| [] ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "x277$276$591" ) :| [] ) + ( Nothing, Name "$kont589$w", AbsN Nothing + ( ParamNamed Nothing + ( Name "x1$0$590" ) :| + [ ParamNamed Nothing ( Name "x277$276$591" ) ] + ) + ( AppN Nothing + ( Ref Nothing + ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind$w" ) ) + ) ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind$w" ) ) - ) + ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) ( AppN Nothing - ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) + ( Ref Nothing + ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "add$w" ) ) + ) + ( Ref Nothing + ( Local ( Name "x277$276$591" ) ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing ( Name "x278$277" ) :| [] ) ( AppN Nothing ( Ref Nothing - ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "add$w" ) ) + ( Imported + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "bind$w" ) + ) ) - ( Ref Nothing - ( Local ( Name "x277$276$591" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| - [ AbsN Nothing - ( ParamNamed Nothing ( Name "x278$277" ) :| [] ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind$w" ) - ) - ) + ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) ( AppN Nothing - ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local ( Name "x278$277" ) ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing ( Name "x279$278" ) :| [] ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "add$w" ) + ( Name "bind$w" ) ) ) - ( Ref Nothing - ( Local ( Name "x278$277" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| - [ AbsN Nothing - ( ParamNamed Nothing ( Name "x279$278" ) :| [] ) ( AppN Nothing ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind$w" ) - ) + ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing - ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) + ( Imported + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "add$w" ) + ) ) + ( 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 "add$w" ) + ( Name "bind$w" ) ) ) - ( 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$w" ) - ) + ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing - ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) + ( Imported + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "add$w" ) + ) ) + ( Ref Nothing + ( Local ( Name "x280$279" ) ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing ( Name "x281$280" ) :| [] ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "add$w" ) + ( Name "bind$w" ) ) ) - ( Ref Nothing - ( Local ( Name "x280$279" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| - [ AbsN Nothing - ( ParamNamed Nothing ( Name "x281$280" ) :| [] ) ( AppN Nothing ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind$w" ) - ) + ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing - ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) + ( Imported + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "add$w" ) + ) ) + ( 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 "add$w" ) + ( Name "bind$w" ) ) ) - ( 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$w" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "add$w" ) ) ) + ( Ref Nothing + ( Local ( Name "x282$281" ) ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing ( Name "x283$282" ) :| [] ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "add$w" ) + ( Name "bind$w" ) ) ) - ( Ref Nothing - ( Local ( Name "x282$281" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| - [ AbsN Nothing - ( ParamNamed Nothing ( Name "x283$282" ) :| [] ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind$w" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "add$w" ) ) ) + ( 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 "add$w" ) + ( Name "bind$w" ) ) ) - ( 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$w" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "add$w" ) ) ) + ( Ref Nothing + ( Local ( Name "x284$283" ) ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x285$284" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "add$w" ) + ( Name "bind$w" ) ) ) - ( Ref Nothing - ( Local ( Name "x284$283" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| - [ AbsN Nothing - ( ParamNamed Nothing - ( Name "x285$284" ) :| [] - ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind$w" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "add$w" ) ) ) + ( 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 "add$w" ) + ( Name "bind$w" ) ) ) - ( 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$w" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "add$w" ) ) ) + ( Ref Nothing + ( Local + ( Name "x286$285" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x287$286" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "add$w" ) + ( Name "bind$w" ) ) ) - ( Ref Nothing - ( Local - ( Name "x286$285" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| - [ AbsN Nothing - ( ParamNamed Nothing - ( Name "x287$286" ) :| [] - ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind$w" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "add$w" ) ) ) + ( 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 "add$w" ) + ( Name "bind$w" ) ) ) - ( 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$w" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "add$w" ) ) ) + ( Ref Nothing + ( Local + ( Name "x288$287" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x289$288" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "add$w" ) + ( Name "bind$w" ) ) ) - ( Ref Nothing - ( Local - ( Name "x288$287" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| - [ AbsN Nothing - ( ParamNamed Nothing - ( Name "x289$288" ) :| [] - ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind$w" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "add$w" ) ) ) + ( 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 "add$w" ) + ( Name "bind$w" ) ) ) - ( 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$w" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "add$w" ) ) ) + ( Ref Nothing + ( Local + ( Name "x290$289" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x291$290" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "add$w" ) + ( Name "bind$w" ) ) ) - ( Ref Nothing - ( Local - ( Name "x290$289" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| - [ AbsN Nothing - ( ParamNamed Nothing - ( Name "x291$290" ) :| [] - ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind$w" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "add$w" ) ) ) + ( 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 "add$w" ) + ( Name "bind$w" ) ) ) - ( 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$w" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "add$w" ) ) ) + ( Ref Nothing + ( Local + ( Name "x292$291" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x293$292" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "add$w" ) + ( Name "bind$w" ) ) ) - ( Ref Nothing - ( Local - ( Name "x292$291" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| - [ AbsN Nothing - ( ParamNamed Nothing - ( Name "x293$292" ) :| [] - ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind$w" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "add$w" ) ) ) + ( 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 "add$w" ) + ( Name "bind$w" ) ) ) - ( 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" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "add$w" ) ) ) + ( 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 "add$w" ) + ( Name "bind$w" ) ) ) - ( 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" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "add$w" ) ) ) + ( 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 "add$w" ) + ( Name "bind$w" ) ) ) - ( 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" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "add$w" ) ) ) + ( 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 "add$w" ) + ( Name "bind$w" ) ) ) - ( 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" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "add$w" ) ) ) + ( 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 "add$w" ) + ( Name "bind$w" ) ) ) - ( 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" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "add$w" ) ) ) + ( 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 "add$w" ) + ( Name "bind$w" ) ) ) - ( 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" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "add$w" ) ) ) + ( Ref Nothing + ( Local + ( Name "x299$298" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x300$299" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "add$w" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) - ( 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" ) + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "add$w" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing + ( Ref Nothing + ( Local + ( Name "x1$0$590" ) + ) :| + [ Ref Nothing ( Local - ( Name "x1$0$590" ) - ) :| - [ Ref Nothing - ( Local - ( Name "x300$299" ) - ) - ] - ) :| [] - ) + ( Name "x300$299" ) + ) + ] + ) :| [] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) ) ) :| [ Standalone - ( Nothing, Name "$kont592", AbsN Nothing - ( ParamNamed Nothing ( Name "x1$0$593" ) :| [] ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "x238$237$594" ) :| [] ) + ( Nothing, Name "$kont592$w", AbsN Nothing + ( ParamNamed Nothing + ( Name "x1$0$593" ) :| + [ ParamNamed Nothing ( Name "x238$237$594" ) ] + ) + ( AppN Nothing + ( Ref Nothing + ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind$w" ) ) + ) ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind$w" ) ) - ) + ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) ( AppN Nothing - ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) + ( Ref Nothing + ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "add$w" ) ) + ) + ( Ref Nothing + ( Local ( Name "x238$237$594" ) ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing ( Name "x239$238" ) :| [] ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "add$w" ) + ( Name "bind$w" ) ) ) - ( Ref Nothing - ( Local ( Name "x238$237$594" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| - [ AbsN Nothing - ( ParamNamed Nothing ( Name "x239$238" ) :| [] ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind$w" ) - ) - ) + ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) ( AppN Nothing - ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local ( Name "x239$238" ) ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing ( Name "x240$239" ) :| [] ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "add$w" ) + ( Name "bind$w" ) ) ) - ( Ref Nothing - ( Local ( Name "x239$238" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| - [ AbsN Nothing - ( ParamNamed Nothing ( Name "x240$239" ) :| [] ) ( AppN Nothing ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind$w" ) - ) + ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing - ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) + ( Imported + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "add$w" ) + ) ) + ( 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 "add$w" ) + ( Name "bind$w" ) ) ) - ( 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$w" ) - ) + ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing - ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) + ( Imported + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "add$w" ) + ) ) + ( Ref Nothing + ( Local ( Name "x241$240" ) ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing ( Name "x242$241" ) :| [] ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "add$w" ) + ( Name "bind$w" ) ) ) - ( Ref Nothing - ( Local ( Name "x241$240" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| - [ AbsN Nothing - ( ParamNamed Nothing ( Name "x242$241" ) :| [] ) ( AppN Nothing ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind$w" ) - ) + ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "add$w" ) ) ) + ( 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 "add$w" ) + ( Name "bind$w" ) ) ) - ( 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$w" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "add$w" ) ) ) + ( Ref Nothing + ( Local ( Name "x243$242" ) ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing ( Name "x244$243" ) :| [] ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "add$w" ) + ( Name "bind$w" ) ) ) - ( Ref Nothing - ( Local ( Name "x243$242" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| - [ AbsN Nothing - ( ParamNamed Nothing - ( Name "x244$243" ) :| [] - ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind$w" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "add$w" ) ) ) + ( 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 "add$w" ) + ( Name "bind$w" ) ) ) - ( 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$w" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "add$w" ) ) ) + ( Ref Nothing + ( Local ( Name "x245$244" ) ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x246$245" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "add$w" ) + ( Name "bind$w" ) ) ) - ( Ref Nothing - ( Local ( Name "x245$244" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| - [ AbsN Nothing - ( ParamNamed Nothing - ( Name "x246$245" ) :| [] - ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind$w" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "add$w" ) ) ) + ( Ref Nothing + ( Local + ( Name "x246$245" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x247$246" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "add$w" ) + ( Name "bind$w" ) ) ) - ( Ref Nothing - ( Local - ( Name "x246$245" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| - [ AbsN Nothing - ( ParamNamed Nothing - ( Name "x247$246" ) :| [] - ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind$w" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "add$w" ) ) ) + ( Ref Nothing + ( Local + ( Name "x247$246" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x248$247" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "add$w" ) + ( Name "bind$w" ) ) ) - ( Ref Nothing - ( Local - ( Name "x247$246" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| - [ AbsN Nothing - ( ParamNamed Nothing - ( Name "x248$247" ) :| [] - ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind$w" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "add$w" ) ) ) + ( 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 "add$w" ) + ( Name "bind$w" ) ) ) - ( 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$w" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "add$w" ) ) ) + ( Ref Nothing + ( Local + ( Name "x249$248" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x250$249" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "add$w" ) + ( Name "bind$w" ) ) ) - ( Ref Nothing - ( Local - ( Name "x249$248" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| - [ AbsN Nothing - ( ParamNamed Nothing - ( Name "x250$249" ) :| [] - ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind$w" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] + ) :| + [ AbsN Nothing + ( ParamUnused Nothing :| [] ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "bind$w" ) + ) ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "unit" ) - ) :| [] - ) :| - [ AbsN Nothing - ( ParamUnused Nothing :| [] ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind$w" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "add$w" ) ) ) + ( Ref Nothing + ( Local + ( Name "x250$249" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x251$250" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "add$w" ) + ( Name "bind$w" ) ) ) - ( Ref Nothing - ( Local - ( Name "x250$249" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| - [ AbsN Nothing - ( ParamNamed Nothing - ( Name "x251$250" ) :| [] - ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind$w" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "add$w" ) ) ) + ( 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 "add$w" ) + ( Name "bind$w" ) ) ) - ( 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$w" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "add$w" ) ) ) + ( Ref Nothing + ( Local + ( Name "x252$251" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x253$252" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "add$w" ) + ( Name "bind$w" ) ) ) - ( Ref Nothing - ( Local - ( Name "x252$251" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| - [ AbsN Nothing - ( ParamNamed Nothing - ( Name "x253$252" ) :| [] - ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind$w" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "add$w" ) ) ) + ( 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 "add$w" ) + ( Name "bind$w" ) ) ) - ( 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$w" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "add$w" ) ) ) + ( Ref Nothing + ( Local + ( Name "x254$253" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x255$254" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "add$w" ) + ( Name "bind$w" ) ) ) - ( Ref Nothing - ( Local - ( Name "x254$253" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| - [ AbsN Nothing - ( ParamNamed Nothing - ( Name "x255$254" ) :| [] - ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind$w" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "add$w" ) ) ) + ( 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 "add$w" ) + ( Name "bind$w" ) ) ) - ( 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$w" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "add$w" ) ) ) + ( Ref Nothing + ( Local + ( Name "x256$255" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x257$256" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "add$w" ) + ( Name "bind$w" ) ) ) - ( Ref Nothing - ( Local - ( Name "x256$255" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| - [ AbsN Nothing - ( ParamNamed Nothing - ( Name "x257$256" ) :| [] - ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind$w" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "add$w" ) ) ) + ( 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 "add$w" ) + ( Name "bind$w" ) ) ) - ( 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$w" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "add$w" ) ) ) + ( Ref Nothing + ( Local + ( Name "x258$257" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x259$258" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "add$w" ) + ( Name "bind$w" ) ) ) - ( Ref Nothing - ( Local - ( Name "x258$257" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| - [ AbsN Nothing - ( ParamNamed Nothing - ( Name "x259$258" ) :| [] - ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind$w" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "add$w" ) ) ) + ( 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 "add$w" ) + ( Name "bind$w" ) ) ) - ( 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$w" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "add$w" ) ) ) + ( Ref Nothing + ( Local + ( Name "x260$259" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x261$260" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "add$w" ) + ( Name "bind$w" ) ) ) - ( Ref Nothing - ( Local - ( Name "x260$259" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| - [ AbsN Nothing - ( ParamNamed Nothing - ( Name "x261$260" ) :| [] - ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind$w" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "add$w" ) ) ) + ( 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 "add$w" ) + ( Name "bind$w" ) ) ) - ( 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$w" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "add$w" ) ) ) + ( Ref Nothing + ( Local + ( Name "x262$261" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x263$262" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "add$w" ) + ( Name "bind$w" ) ) ) - ( Ref Nothing - ( Local - ( Name "x262$261" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| - [ AbsN Nothing - ( ParamNamed Nothing - ( Name "x263$262" ) :| [] - ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind$w" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "add$w" ) ) ) + ( Ref Nothing + ( Local + ( Name "x263$262" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x264$263" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "add$w" ) + ( Name "bind$w" ) ) ) - ( Ref Nothing - ( Local - ( Name "x263$262" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| - [ AbsN Nothing - ( ParamNamed Nothing - ( Name "x264$263" ) :| [] - ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind$w" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "add$w" ) ) ) + ( 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 "add$w" ) + ( Name "bind$w" ) ) ) - ( 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" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "add$w" ) ) ) + ( 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 "add$w" ) + ( Name "bind$w" ) ) ) - ( 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" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "add$w" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x266$265" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| - [ AbsN Nothing - ( ParamNamed Nothing - ( Name "x267$266" ) :| [] + ( 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 "Golden.LongMaybeBindModule.Test" ) - ( Name "bind$w" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "add$w" ) ) ) + ( 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 "add$w" ) + ( Name "bind$w" ) ) ) - ( 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" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "add$w" ) ) ) + ( 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 "add$w" ) + ( Name "bind$w" ) ) ) - ( 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" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "add$w" ) ) ) + ( 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 "add$w" ) + ( Name "bind$w" ) ) ) - ( 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" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "add$w" ) ) ) + ( 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 "add$w" ) + ( Name "bind$w" ) ) ) - ( 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" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "add$w" ) ) ) + ( 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 "add$w" ) + ( Name "bind$w" ) ) ) - ( 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" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "add$w" ) ) ) + ( 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 "add$w" ) + ( Name "bind$w" ) ) ) - ( 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" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "add$w" ) ) ) + ( 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 "add$w" ) + ( Name "bind$w" ) ) ) - ( 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" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "add$w" ) ) ) + ( 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 "add$w" ) + ( Name "bind$w" ) ) ) - ( 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" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "add$w" ) ) ) + ( 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 "add$w" ) + ( Name "bind$w" ) ) ) - ( 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" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "add$w" ) ) ) + ( Ref Nothing + ( Local + ( Name "x276$275" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x277$276" ) :| [] + ) ( AppN Nothing ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "add$w" ) + ( Local + ( Name "$kont589$w" ) ) ) ( Ref Nothing ( Local - ( Name "x276$275" ) + ( Name "x1$0$593" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| - [ AbsN Nothing - ( ParamNamed Nothing - ( Name "x277$276" ) :| [] - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Local - ( Name "$kont589" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x1$0$593" ) - ) :| [] - ) - ) - ( Ref Nothing + [ Ref Nothing ( Local ( Name "x277$276" ) - ) :| [] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) - ) - ] - ) + ) + ] + ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) ) ), Standalone - ( Nothing, Name "$kont595", AbsN Nothing - ( ParamNamed Nothing ( Name "x1$0$596" ) :| [] ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "x198$197$597" ) :| [] ) + ( Nothing, Name "$kont595$w", AbsN Nothing + ( ParamNamed Nothing + ( Name "x1$0$596" ) :| + [ ParamNamed Nothing ( Name "x198$197$597" ) ] + ) + ( AppN Nothing + ( Ref Nothing + ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind$w" ) ) + ) ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind$w" ) ) - ) + ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) ( AppN Nothing - ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) + ( Ref Nothing + ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "add$w" ) ) + ) + ( Ref Nothing + ( Local ( Name "x198$197$597" ) ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing ( Name "x199$198" ) :| [] ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "add$w" ) + ( Name "bind$w" ) ) ) - ( Ref Nothing - ( Local ( Name "x198$197$597" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| - [ AbsN Nothing - ( ParamNamed Nothing ( Name "x199$198" ) :| [] ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind$w" ) - ) - ) + ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) ( AppN Nothing - ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local ( Name "x199$198" ) ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing ( Name "x200$199" ) :| [] ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "add$w" ) + ( Name "bind$w" ) ) ) - ( Ref Nothing - ( Local ( Name "x199$198" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| - [ AbsN Nothing - ( ParamNamed Nothing ( Name "x200$199" ) :| [] ) ( AppN Nothing ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind$w" ) - ) + ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing - ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) + ( Imported + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "add$w" ) + ) ) + ( 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 "add$w" ) + ( Name "bind$w" ) ) ) - ( 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$w" ) - ) + ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing - ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) + ( Imported + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "add$w" ) + ) ) + ( Ref Nothing + ( Local ( Name "x201$200" ) ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing ( Name "x202$201" ) :| [] ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "add$w" ) + ( Name "bind$w" ) ) ) - ( Ref Nothing - ( Local ( Name "x201$200" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| - [ AbsN Nothing - ( ParamNamed Nothing ( Name "x202$201" ) :| [] ) ( AppN Nothing ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind$w" ) - ) + ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "add$w" ) ) ) + ( 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 "add$w" ) + ( Name "bind$w" ) ) ) - ( 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$w" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "add$w" ) ) ) + ( Ref Nothing + ( Local ( Name "x203$202" ) ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing ( Name "x204$203" ) :| [] ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "add$w" ) + ( Name "bind$w" ) ) ) - ( Ref Nothing - ( Local ( Name "x203$202" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| - [ AbsN Nothing - ( ParamNamed Nothing - ( Name "x204$203" ) :| [] - ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind$w" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "add$w" ) ) ) + ( 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 "add$w" ) + ( Name "bind$w" ) ) ) - ( 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$w" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "add$w" ) ) ) + ( Ref Nothing + ( Local ( Name "x205$204" ) ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x206$205" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "add$w" ) + ( Name "bind$w" ) ) ) - ( Ref Nothing - ( Local ( Name "x205$204" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| - [ AbsN Nothing - ( ParamNamed Nothing - ( Name "x206$205" ) :| [] - ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind$w" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "add$w" ) ) ) + ( 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 "add$w" ) + ( Name "bind$w" ) ) ) - ( 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$w" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "add$w" ) ) ) + ( Ref Nothing + ( Local + ( Name "x207$206" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x208$207" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "add$w" ) + ( Name "bind$w" ) ) ) - ( Ref Nothing - ( Local - ( Name "x207$206" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| - [ AbsN Nothing - ( ParamNamed Nothing - ( Name "x208$207" ) :| [] - ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind$w" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "add$w" ) ) ) + ( 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 "add$w" ) + ( Name "bind$w" ) ) ) - ( 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$w" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "add$w" ) ) ) + ( Ref Nothing + ( Local + ( Name "x209$208" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x210$209" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "add$w" ) + ( Name "bind$w" ) ) ) - ( Ref Nothing - ( Local - ( Name "x209$208" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| - [ AbsN Nothing - ( ParamNamed Nothing - ( Name "x210$209" ) :| [] - ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind$w" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "add$w" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x210$209" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| - [ AbsN Nothing - ( ParamNamed Nothing - ( Name "x211$210" ) :| [] + ( 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$w" ) + ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind$w" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "add$w" ) ) ) + ( Ref Nothing + ( Local + ( Name "x211$210" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x212$211" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "add$w" ) + ( Name "bind$w" ) ) ) - ( Ref Nothing - ( Local - ( Name "x211$210" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| - [ AbsN Nothing - ( ParamNamed Nothing - ( Name "x212$211" ) :| [] - ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind$w" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "add$w" ) ) ) + ( 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 "add$w" ) + ( Name "bind$w" ) ) ) - ( 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$w" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "add$w" ) ) ) + ( Ref Nothing + ( Local + ( Name "x213$212" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x214$213" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "add$w" ) + ( Name "bind$w" ) ) ) - ( Ref Nothing - ( Local - ( Name "x213$212" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| - [ AbsN Nothing - ( ParamNamed Nothing - ( Name "x214$213" ) :| [] - ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind$w" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "add$w" ) ) ) + ( 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 "add$w" ) + ( Name "bind$w" ) ) ) - ( 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$w" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "add$w" ) ) ) + ( Ref Nothing + ( Local + ( Name "x215$214" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x216$215" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "add$w" ) + ( Name "bind$w" ) ) ) - ( Ref Nothing - ( Local - ( Name "x215$214" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| - [ AbsN Nothing - ( ParamNamed Nothing - ( Name "x216$215" ) :| [] - ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind$w" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "add$w" ) ) ) + ( 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 "add$w" ) + ( Name "bind$w" ) ) ) - ( 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$w" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "add$w" ) ) ) + ( Ref Nothing + ( Local + ( Name "x217$216" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x218$217" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "add$w" ) + ( Name "bind$w" ) ) ) - ( Ref Nothing - ( Local - ( Name "x217$216" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| - [ AbsN Nothing - ( ParamNamed Nothing - ( Name "x218$217" ) :| [] - ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind$w" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "add$w" ) ) ) + ( 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 "add$w" ) + ( Name "bind$w" ) ) ) - ( 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$w" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "add$w" ) ) ) + ( Ref Nothing + ( Local + ( Name "x219$218" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x220$219" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "add$w" ) + ( Name "bind$w" ) ) ) - ( Ref Nothing - ( Local - ( Name "x219$218" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| - [ AbsN Nothing - ( ParamNamed Nothing - ( Name "x220$219" ) :| [] - ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind$w" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "add$w" ) ) ) + ( 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 "add$w" ) + ( Name "bind$w" ) ) ) - ( 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$w" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "add$w" ) ) ) + ( Ref Nothing + ( Local + ( Name "x221$220" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x222$221" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "add$w" ) + ( Name "bind$w" ) ) ) - ( Ref Nothing - ( Local - ( Name "x221$220" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| - [ AbsN Nothing - ( ParamNamed Nothing - ( Name "x222$221" ) :| [] - ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind$w" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "add$w" ) ) ) + ( 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 "add$w" ) + ( Name "bind$w" ) ) ) - ( 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$w" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "add$w" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "add$w" ) - ) - ) + ( Ref Nothing + ( Local + ( Name "x223$222" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x224$223" ) :| [] + ) + ( AppN Nothing ( Ref Nothing - ( Local - ( Name "x223$222" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| - [ AbsN Nothing - ( ParamNamed Nothing - ( Name "x224$223" ) :| [] + ( Imported + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "bind$w" ) + ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind$w" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "add$w" ) ) ) + ( Ref Nothing + ( Local + ( Name "x224$223" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x225$224" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "add$w" ) + ( Name "bind$w" ) ) ) - ( Ref Nothing - ( Local - ( Name "x224$223" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| - [ AbsN Nothing - ( ParamNamed Nothing - ( Name "x225$224" ) :| [] - ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind$w" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "add$w" ) ) ) + ( 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 "add$w" ) + ( Name "bind$w" ) ) ) - ( 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" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "add$w" ) ) ) + ( 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 "add$w" ) + ( Name "bind$w" ) ) ) - ( 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" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "add$w" ) ) ) + ( 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 "add$w" ) + ( Name "bind$w" ) ) ) - ( 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" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "add$w" ) ) ) + ( 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 "add$w" ) + ( Name "bind$w" ) ) ) - ( 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" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "add$w" ) ) ) + ( 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 "add$w" ) + ( Name "bind$w" ) ) ) - ( 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" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "add$w" ) ) ) + ( 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 "add$w" ) + ( Name "bind$w" ) ) ) - ( 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" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "add$w" ) ) ) + ( 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 "add$w" ) + ( Name "bind$w" ) ) ) - ( 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" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "add$w" ) ) ) + ( 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 "add$w" ) + ( Name "bind$w" ) ) ) - ( 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" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "add$w" ) ) ) + ( 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 "add$w" ) + ( Name "bind$w" ) ) ) - ( 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" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "add$w" ) ) ) + ( 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 "add$w" ) + ( Name "bind$w" ) ) ) - ( 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" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "add$w" ) ) ) + ( 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 "add$w" ) + ( Name "bind$w" ) ) ) - ( 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" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "add$w" ) ) ) + ( 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 "add$w" ) + ( Name "bind$w" ) ) ) - ( 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" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "add$w" ) ) ) + ( Ref Nothing + ( Local + ( Name "x237$236" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x238$237" ) :| [] + ) ( AppN Nothing ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "add$w" ) + ( Local + ( Name "$kont592$w" ) ) ) ( Ref Nothing ( Local - ( Name "x237$236" ) + ( Name "x1$0$596" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| - [ AbsN Nothing - ( ParamNamed Nothing - ( Name "x238$237" ) :| [] - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Local - ( Name "$kont592" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x1$0$596" ) - ) :| [] - ) - ) - ( Ref Nothing + [ Ref Nothing ( Local ( Name "x238$237" ) - ) :| [] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) ) ), Standalone - ( Nothing, Name "$kont598", AbsN Nothing - ( ParamNamed Nothing ( Name "x1$0$599" ) :| [] ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "x158$157$600" ) :| [] ) + ( Nothing, Name "$kont598$w", AbsN Nothing + ( ParamNamed Nothing + ( Name "x1$0$599" ) :| + [ ParamNamed Nothing ( Name "x158$157$600" ) ] + ) + ( AppN Nothing + ( Ref Nothing + ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind$w" ) ) + ) ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind$w" ) ) - ) + ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) ( AppN Nothing - ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) + ( Ref Nothing + ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "add$w" ) ) + ) + ( Ref Nothing + ( Local ( Name "x158$157$600" ) ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing ( Name "x159$158" ) :| [] ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "add$w" ) + ( Name "bind$w" ) ) ) - ( Ref Nothing - ( Local ( Name "x158$157$600" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| - [ AbsN Nothing - ( ParamNamed Nothing ( Name "x159$158" ) :| [] ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind$w" ) - ) - ) + ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) ( AppN Nothing - ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local ( Name "x159$158" ) ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing ( Name "x160$159" ) :| [] ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "add$w" ) + ( Name "bind$w" ) ) ) - ( Ref Nothing - ( Local ( Name "x159$158" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| - [ AbsN Nothing - ( ParamNamed Nothing ( Name "x160$159" ) :| [] ) ( AppN Nothing ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind$w" ) - ) + ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing - ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) + ( Imported + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "add$w" ) + ) ) + ( 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 "add$w" ) + ( Name "bind$w" ) ) ) - ( 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$w" ) - ) + ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing - ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) + ( Imported + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "add$w" ) + ) ) + ( Ref Nothing + ( Local ( Name "x161$160" ) ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing ( Name "x162$161" ) :| [] ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "add$w" ) + ( Name "bind$w" ) ) ) - ( Ref Nothing - ( Local ( Name "x161$160" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| - [ AbsN Nothing - ( ParamNamed Nothing ( Name "x162$161" ) :| [] ) ( AppN Nothing ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind$w" ) - ) + ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "add$w" ) ) ) + ( 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 "add$w" ) + ( Name "bind$w" ) ) ) - ( 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$w" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "add$w" ) ) ) + ( Ref Nothing + ( Local ( Name "x163$162" ) ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing ( Name "x164$163" ) :| [] ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "add$w" ) + ( Name "bind$w" ) ) ) - ( Ref Nothing - ( Local ( Name "x163$162" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| - [ AbsN Nothing - ( ParamNamed Nothing - ( Name "x164$163" ) :| [] - ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind$w" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "add$w" ) ) ) + ( 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 "add$w" ) + ( Name "bind$w" ) ) ) - ( 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$w" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "add$w" ) ) ) + ( Ref Nothing + ( Local ( Name "x165$164" ) ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x166$165" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "add$w" ) + ( Name "bind$w" ) ) ) - ( Ref Nothing - ( Local ( Name "x165$164" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| - [ AbsN Nothing - ( ParamNamed Nothing - ( Name "x166$165" ) :| [] - ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind$w" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "add$w" ) ) ) + ( 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 "add$w" ) + ( Name "bind$w" ) ) ) - ( 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$w" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) - ) + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x167$166" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x168$167" ) :| [] ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "add$w" ) + ( Name "bind$w" ) ) ) - ( Ref Nothing - ( Local - ( Name "x167$166" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| - [ AbsN Nothing - ( ParamNamed Nothing - ( Name "x168$167" ) :| [] - ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind$w" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "add$w" ) ) ) + ( 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 "add$w" ) + ( Name "bind$w" ) ) ) - ( 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$w" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "add$w" ) ) ) + ( Ref Nothing + ( Local + ( Name "x169$168" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x170$169" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "add$w" ) + ( Name "bind$w" ) ) ) - ( Ref Nothing - ( Local - ( Name "x169$168" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| - [ AbsN Nothing - ( ParamNamed Nothing - ( Name "x170$169" ) :| [] - ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind$w" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "add$w" ) ) ) + ( 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 "add$w" ) + ( Name "bind$w" ) ) ) - ( 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$w" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "add$w" ) ) ) + ( Ref Nothing + ( Local + ( Name "x171$170" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x172$171" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "add$w" ) + ( Name "bind$w" ) ) ) - ( Ref Nothing - ( Local - ( Name "x171$170" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| - [ AbsN Nothing - ( ParamNamed Nothing - ( Name "x172$171" ) :| [] - ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind$w" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "add$w" ) ) ) + ( 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 "add$w" ) + ( Name "bind$w" ) ) ) - ( 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$w" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "add$w" ) ) ) + ( Ref Nothing + ( Local + ( Name "x173$172" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x174$173" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "add$w" ) + ( Name "bind$w" ) ) ) - ( Ref Nothing - ( Local - ( Name "x173$172" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| - [ AbsN Nothing - ( ParamNamed Nothing - ( Name "x174$173" ) :| [] - ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind$w" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "add$w" ) ) ) + ( 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 "add$w" ) + ( Name "bind$w" ) ) ) - ( 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$w" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "add$w" ) ) ) + ( Ref Nothing + ( Local + ( Name "x175$174" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x176$175" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "add$w" ) + ( Name "bind$w" ) ) ) - ( Ref Nothing - ( Local - ( Name "x175$174" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| - [ AbsN Nothing - ( ParamNamed Nothing - ( Name "x176$175" ) :| [] - ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind$w" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "add$w" ) ) ) + ( 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 "add$w" ) + ( Name "bind$w" ) ) ) - ( 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$w" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "add$w" ) ) ) + ( Ref Nothing + ( Local + ( Name "x177$176" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x178$177" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "add$w" ) + ( Name "bind$w" ) ) ) - ( Ref Nothing - ( Local - ( Name "x177$176" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| - [ AbsN Nothing - ( ParamNamed Nothing - ( Name "x178$177" ) :| [] - ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind$w" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "add$w" ) ) ) + ( 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 "add$w" ) + ( Name "bind$w" ) ) ) - ( 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$w" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "add$w" ) ) ) + ( Ref Nothing + ( Local + ( Name "x179$178" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x180$179" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "add$w" ) + ( Name "bind$w" ) ) ) - ( Ref Nothing - ( Local - ( Name "x179$178" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| - [ AbsN Nothing - ( ParamNamed Nothing - ( Name "x180$179" ) :| [] - ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind$w" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "add$w" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "add$w" ) - ) - ) + ( Ref Nothing + ( Local + ( Name "x180$179" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x181$180" ) :| [] + ) + ( AppN Nothing ( Ref Nothing - ( Local - ( Name "x180$179" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| - [ AbsN Nothing - ( ParamNamed Nothing - ( Name "x181$180" ) :| [] + ( Imported + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "bind$w" ) + ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind$w" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "add$w" ) ) ) + ( Ref Nothing + ( Local + ( Name "x181$180" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x182$181" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "add$w" ) + ( Name "bind$w" ) ) ) - ( Ref Nothing - ( Local - ( Name "x181$180" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| - [ AbsN Nothing - ( ParamNamed Nothing - ( Name "x182$181" ) :| [] - ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind$w" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "add$w" ) ) ) + ( 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 "add$w" ) + ( Name "bind$w" ) ) ) - ( 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$w" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "add$w" ) ) ) + ( Ref Nothing + ( Local + ( Name "x183$182" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x184$183" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "add$w" ) + ( Name "bind$w" ) ) ) - ( Ref Nothing - ( Local - ( Name "x183$182" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| - [ AbsN Nothing - ( ParamNamed Nothing - ( Name "x184$183" ) :| [] - ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind$w" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "add$w" ) ) ) + ( Ref Nothing + ( Local + ( Name "x184$183" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x185$184" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "add$w" ) + ( Name "bind$w" ) ) ) - ( Ref Nothing - ( Local - ( Name "x184$183" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| - [ AbsN Nothing - ( ParamNamed Nothing - ( Name "x185$184" ) :| [] - ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind$w" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "add$w" ) ) ) + ( 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 "add$w" ) + ( Name "bind$w" ) ) ) - ( 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" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "add$w" ) ) ) + ( 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 "add$w" ) + ( Name "bind$w" ) ) ) - ( 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" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "add$w" ) ) ) + ( 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 "add$w" ) + ( Name "bind$w" ) ) ) - ( 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" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "add$w" ) ) ) + ( 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 "add$w" ) + ( Name "bind$w" ) ) ) - ( 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" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "add$w" ) ) ) + ( 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 "add$w" ) + ( Name "bind$w" ) ) ) - ( 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" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "add$w" ) ) ) + ( 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 "add$w" ) + ( Name "bind$w" ) ) ) - ( 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" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "add$w" ) ) ) + ( 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 "add$w" ) + ( Name "bind$w" ) ) ) - ( 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" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "add$w" ) ) ) + ( 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 "add$w" ) + ( Name "bind$w" ) ) ) - ( 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" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "add$w" ) ) ) + ( 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 "add$w" ) + ( Name "bind$w" ) ) ) - ( 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" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "add$w" ) ) ) + ( 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 "add$w" ) + ( Name "bind$w" ) ) ) - ( 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" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "add$w" ) ) ) + ( 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 "add$w" ) + ( Name "bind$w" ) ) ) - ( 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" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "add$w" ) ) ) + ( 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 "add$w" ) + ( Name "bind$w" ) ) ) - ( 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" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "add$w" ) ) ) + ( Ref Nothing + ( Local + ( Name "x197$196" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x198$197" ) :| [] + ) ( AppN Nothing ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "add$w" ) + ( Local + ( Name "$kont595$w" ) ) ) ( Ref Nothing ( Local - ( Name "x197$196" ) + ( Name "x1$0$599" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| - [ AbsN Nothing - ( ParamNamed Nothing - ( Name "x198$197" ) :| [] - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Local - ( Name "$kont595" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x1$0$599" ) - ) :| [] - ) - ) - ( Ref Nothing + [ Ref Nothing ( Local ( Name "x198$197" ) - ) :| [] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) ) ), Standalone - ( Nothing, Name "$kont601", AbsN Nothing - ( ParamNamed Nothing ( Name "x1$0$602" ) :| [] ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "x119$118$603" ) :| [] ) + ( Nothing, Name "$kont601$w", AbsN Nothing + ( ParamNamed Nothing + ( Name "x1$0$602" ) :| + [ ParamNamed Nothing ( Name "x119$118$603" ) ] + ) + ( AppN Nothing + ( Ref Nothing + ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind$w" ) ) + ) ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind$w" ) ) - ) + ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) ( AppN Nothing - ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) + ( Ref Nothing + ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "add$w" ) ) + ) + ( Ref Nothing + ( Local ( Name "x119$118$603" ) ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing ( Name "x120$119" ) :| [] ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "add$w" ) + ( Name "bind$w" ) ) ) - ( Ref Nothing - ( Local ( Name "x119$118$603" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| - [ AbsN Nothing - ( ParamNamed Nothing ( Name "x120$119" ) :| [] ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind$w" ) - ) - ) + ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) ( AppN Nothing - ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local ( Name "x120$119" ) ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing ( Name "x121$120" ) :| [] ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "add$w" ) + ( Name "bind$w" ) ) ) - ( Ref Nothing - ( Local ( Name "x120$119" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| - [ AbsN Nothing - ( ParamNamed Nothing ( Name "x121$120" ) :| [] ) ( AppN Nothing ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind$w" ) - ) + ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing - ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) + ( Imported + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "add$w" ) + ) ) + ( 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 "add$w" ) + ( Name "bind$w" ) ) ) - ( 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$w" ) - ) + ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing - ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) + ( Imported + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "add$w" ) + ) ) + ( Ref Nothing + ( Local ( Name "x122$121" ) ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing ( Name "x123$122" ) :| [] ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "add$w" ) + ( Name "bind$w" ) ) ) - ( Ref Nothing - ( Local ( Name "x122$121" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| - [ AbsN Nothing - ( ParamNamed Nothing ( Name "x123$122" ) :| [] ) ( AppN Nothing ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind$w" ) - ) + ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "add$w" ) ) ) + ( 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 "add$w" ) + ( Name "bind$w" ) ) ) - ( 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$w" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "add$w" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "add$w" ) - ) - ) + ( Ref Nothing + ( Local ( Name "x124$123" ) ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing ( Name "x125$124" ) :| [] ) + ( AppN Nothing ( Ref Nothing - ( Local ( Name "x124$123" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| - [ AbsN Nothing - ( ParamNamed Nothing - ( Name "x125$124" ) :| [] + ( Imported + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "bind$w" ) + ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind$w" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "add$w" ) ) ) + ( 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 "add$w" ) + ( Name "bind$w" ) ) ) - ( 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$w" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "add$w" ) ) ) + ( Ref Nothing + ( Local ( Name "x126$125" ) ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x127$126" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "add$w" ) + ( Name "bind$w" ) ) ) - ( Ref Nothing - ( Local ( Name "x126$125" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| - [ AbsN Nothing - ( ParamNamed Nothing - ( Name "x127$126" ) :| [] - ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind$w" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "add$w" ) ) ) + ( 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 "add$w" ) + ( Name "bind$w" ) ) ) - ( 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$w" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "add$w" ) ) ) + ( Ref Nothing + ( Local + ( Name "x128$127" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x129$128" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "add$w" ) + ( Name "bind$w" ) ) ) - ( Ref Nothing - ( Local - ( Name "x128$127" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| - [ AbsN Nothing - ( ParamNamed Nothing - ( Name "x129$128" ) :| [] - ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind$w" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "add$w" ) ) ) + ( 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 "add$w" ) + ( Name "bind$w" ) ) ) - ( 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$w" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "add$w" ) ) ) + ( Ref Nothing + ( Local + ( Name "x130$129" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x131$130" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "add$w" ) + ( Name "bind$w" ) ) ) - ( Ref Nothing - ( Local - ( Name "x130$129" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| - [ AbsN Nothing - ( ParamNamed Nothing - ( Name "x131$130" ) :| [] - ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind$w" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "add$w" ) ) ) + ( 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 "add$w" ) + ( Name "bind$w" ) ) ) - ( 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$w" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "add$w" ) ) ) + ( Ref Nothing + ( Local + ( Name "x132$131" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x133$132" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "add$w" ) + ( Name "bind$w" ) ) ) - ( Ref Nothing - ( Local - ( Name "x132$131" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| - [ AbsN Nothing - ( ParamNamed Nothing - ( Name "x133$132" ) :| [] - ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind$w" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "add$w" ) ) ) + ( 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 "add$w" ) + ( Name "bind$w" ) ) ) - ( 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$w" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "add$w" ) ) ) + ( Ref Nothing + ( Local + ( Name "x134$133" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x135$134" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "add$w" ) + ( Name "bind$w" ) ) ) - ( Ref Nothing - ( Local - ( Name "x134$133" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| - [ AbsN Nothing - ( ParamNamed Nothing - ( Name "x135$134" ) :| [] - ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind$w" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "add$w" ) ) ) + ( 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 "add$w" ) + ( Name "bind$w" ) ) ) - ( 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$w" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "add$w" ) ) ) + ( Ref Nothing + ( Local + ( Name "x136$135" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x137$136" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "add$w" ) + ( Name "bind$w" ) ) ) - ( Ref Nothing - ( Local - ( Name "x136$135" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| - [ AbsN Nothing - ( ParamNamed Nothing - ( Name "x137$136" ) :| [] - ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind$w" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "add$w" ) ) ) + ( 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 "add$w" ) + ( Name "bind$w" ) ) ) - ( 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$w" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "add$w" ) ) ) + ( Ref Nothing + ( Local + ( Name "x138$137" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x139$138" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "add$w" ) + ( Name "bind$w" ) ) ) - ( Ref Nothing - ( Local - ( Name "x138$137" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| - [ AbsN Nothing - ( ParamNamed Nothing - ( Name "x139$138" ) :| [] - ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind$w" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "add$w" ) ) ) + ( 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 "add$w" ) + ( Name "bind$w" ) ) ) - ( 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$w" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "add$w" ) ) ) + ( Ref Nothing + ( Local + ( Name "x140$139" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x141$140" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "add$w" ) + ( Name "bind$w" ) ) ) - ( Ref Nothing - ( Local - ( Name "x140$139" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| - [ AbsN Nothing - ( ParamNamed Nothing - ( Name "x141$140" ) :| [] - ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind$w" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "add$w" ) ) ) + ( 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 "add$w" ) + ( Name "bind$w" ) ) ) - ( 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$w" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "add$w" ) ) ) + ( Ref Nothing + ( Local + ( Name "x142$141" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x143$142" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "add$w" ) + ( Name "bind$w" ) ) ) - ( Ref Nothing - ( Local - ( Name "x142$141" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| - [ AbsN Nothing - ( ParamNamed Nothing - ( Name "x143$142" ) :| [] - ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind$w" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "add$w" ) ) ) + ( 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 "add$w" ) + ( Name "bind$w" ) ) ) - ( 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$w" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "add$w" ) ) ) + ( Ref Nothing + ( Local + ( Name "x144$143" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x145$144" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "add$w" ) + ( Name "bind$w" ) ) ) - ( Ref Nothing - ( Local - ( Name "x144$143" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| - [ AbsN Nothing - ( ParamNamed Nothing - ( Name "x145$144" ) :| [] - ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind$w" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "add$w" ) ) ) + ( Ref Nothing + ( Local + ( Name "x145$144" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x146$145" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "add$w" ) + ( Name "bind$w" ) ) ) - ( Ref Nothing - ( Local - ( Name "x145$144" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| - [ AbsN Nothing - ( ParamNamed Nothing - ( Name "x146$145" ) :| [] - ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind$w" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "add$w" ) ) ) + ( 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 "add$w" ) + ( Name "bind$w" ) ) ) - ( 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" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "add$w" ) ) ) + ( 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 "add$w" ) + ( Name "bind$w" ) ) ) - ( 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" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "add$w" ) ) ) + ( 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 "add$w" ) + ( Name "bind$w" ) ) ) - ( 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" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "add$w" ) ) ) + ( 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 "add$w" ) + ( Name "bind$w" ) ) ) - ( 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" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] + ) :| + [ AbsN Nothing + ( ParamUnused Nothing :| [] ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "bind$w" ) + ) ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "unit" ) - ) :| [] - ) :| - [ AbsN Nothing - ( ParamUnused Nothing :| [] ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind$w" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "add$w" ) ) ) + ( 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 "add$w" ) + ( Name "bind$w" ) ) ) - ( 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" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "add$w" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "add$w" ) - ) - ) + ( Ref Nothing + ( Local + ( Name "x151$150" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x152$151" ) :| [] + ) + ( AppN Nothing ( Ref Nothing - ( Local - ( Name "x151$150" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| - [ AbsN Nothing - ( ParamNamed Nothing - ( Name "x152$151" ) :| [] + ( Imported + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "bind$w" ) + ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind$w" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "add$w" ) ) ) + ( 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 "add$w" ) + ( Name "bind$w" ) ) ) - ( 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" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "add$w" ) ) ) + ( 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 "add$w" ) + ( Name "bind$w" ) ) ) - ( 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" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "add$w" ) ) ) + ( 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 "add$w" ) + ( Name "bind$w" ) ) ) - ( 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" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "add$w" ) ) ) + ( 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 "add$w" ) + ( Name "bind$w" ) ) ) - ( 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" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "add$w" ) ) ) + ( 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 "add$w" ) + ( Name "bind$w" ) ) ) - ( 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" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "add$w" ) ) ) + ( Ref Nothing + ( Local + ( Name "x157$156" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x158$157" ) :| [] + ) ( AppN Nothing ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "add$w" ) + ( Local + ( Name "$kont598$w" ) ) ) ( Ref Nothing ( Local - ( Name "x157$156" ) + ( Name "x1$0$602" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| - [ AbsN Nothing - ( ParamNamed Nothing - ( Name "x158$157" ) :| [] - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Local - ( Name "$kont598" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x1$0$602" ) - ) :| [] - ) - ) - ( Ref Nothing + [ Ref Nothing ( Local ( Name "x158$157" ) - ) :| [] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) ) ), Standalone - ( Nothing, Name "$kont604", AbsN Nothing - ( ParamNamed Nothing ( Name "x1$0$605" ) :| [] ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "x79$78$606" ) :| [] ) + ( Nothing, Name "$kont604$w", AbsN Nothing + ( ParamNamed Nothing + ( Name "x1$0$605" ) :| + [ ParamNamed Nothing ( Name "x79$78$606" ) ] + ) + ( AppN Nothing + ( Ref Nothing + ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind$w" ) ) + ) ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind$w" ) ) - ) + ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) ( AppN Nothing - ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) + ( Ref Nothing + ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "add$w" ) ) + ) + ( Ref Nothing + ( Local ( Name "x79$78$606" ) ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing ( Name "x80$79" ) :| [] ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "add$w" ) + ( Name "bind$w" ) ) ) - ( Ref Nothing - ( Local ( Name "x79$78$606" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| - [ AbsN Nothing - ( ParamNamed Nothing ( Name "x80$79" ) :| [] ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind$w" ) - ) - ) + ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) ( AppN Nothing - ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local ( Name "x80$79" ) ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing ( Name "x81$80" ) :| [] ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "add$w" ) + ( Name "bind$w" ) ) ) - ( Ref Nothing - ( Local ( Name "x80$79" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| - [ AbsN Nothing - ( ParamNamed Nothing ( Name "x81$80" ) :| [] ) ( AppN Nothing ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind$w" ) - ) + ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing - ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) + ( Imported + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "add$w" ) + ) ) + ( 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 "add$w" ) + ( Name "bind$w" ) ) ) - ( 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$w" ) - ) + ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing - ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) + ( Imported + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "add$w" ) + ) ) + ( Ref Nothing + ( Local ( Name "x82$81" ) ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing ( Name "x83$82" ) :| [] ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "add$w" ) + ( Name "bind$w" ) ) ) - ( Ref Nothing - ( Local ( Name "x82$81" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| - [ AbsN Nothing - ( ParamNamed Nothing ( Name "x83$82" ) :| [] ) ( AppN Nothing ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind$w" ) - ) + ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "add$w" ) ) ) + ( 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 "add$w" ) + ( Name "bind$w" ) ) ) - ( 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$w" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "add$w" ) ) ) + ( Ref Nothing + ( Local ( Name "x84$83" ) ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing ( Name "x85$84" ) :| [] ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "add$w" ) + ( Name "bind$w" ) ) ) - ( Ref Nothing - ( Local ( Name "x84$83" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| - [ AbsN Nothing - ( ParamNamed Nothing ( Name "x85$84" ) :| [] ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind$w" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "add$w" ) ) ) + ( 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 "add$w" ) + ( Name "bind$w" ) ) ) - ( 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$w" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "add$w" ) ) ) + ( Ref Nothing + ( Local ( Name "x86$85" ) ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x87$86" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "add$w" ) + ( Name "bind$w" ) ) ) - ( Ref Nothing - ( Local ( Name "x86$85" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| - [ AbsN Nothing - ( ParamNamed Nothing - ( Name "x87$86" ) :| [] - ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind$w" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "add$w" ) ) ) + ( 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 "add$w" ) + ( Name "bind$w" ) ) ) - ( 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$w" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "add$w" ) ) ) + ( Ref Nothing + ( Local + ( Name "x88$87" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x89$88" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "add$w" ) + ( Name "bind$w" ) ) ) - ( Ref Nothing - ( Local - ( Name "x88$87" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| - [ AbsN Nothing - ( ParamNamed Nothing - ( Name "x89$88" ) :| [] - ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind$w" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "add$w" ) ) ) + ( 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 "add$w" ) + ( Name "bind$w" ) ) ) - ( 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$w" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "add$w" ) ) ) + ( Ref Nothing + ( Local + ( Name "x90$89" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x91$90" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "add$w" ) + ( Name "bind$w" ) ) ) - ( Ref Nothing - ( Local - ( Name "x90$89" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| - [ AbsN Nothing - ( ParamNamed Nothing - ( Name "x91$90" ) :| [] - ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind$w" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "add$w" ) ) ) + ( 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 "add$w" ) + ( Name "bind$w" ) ) ) - ( 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$w" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "add$w" ) ) ) + ( Ref Nothing + ( Local + ( Name "x92$91" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x93$92" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "add$w" ) + ( Name "bind$w" ) ) ) - ( Ref Nothing - ( Local - ( Name "x92$91" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| - [ AbsN Nothing - ( ParamNamed Nothing - ( Name "x93$92" ) :| [] - ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind$w" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "add$w" ) ) ) + ( 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 "add$w" ) + ( Name "bind$w" ) ) ) - ( 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$w" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "add$w" ) ) ) + ( Ref Nothing + ( Local + ( Name "x94$93" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x95$94" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "add$w" ) + ( Name "bind$w" ) ) ) - ( Ref Nothing - ( Local - ( Name "x94$93" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| - [ AbsN Nothing - ( ParamNamed Nothing - ( Name "x95$94" ) :| [] - ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind$w" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "add$w" ) ) ) - ( 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 "add$w" ) + ( Name "bind$w" ) ) ) - ( 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$w" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "add$w" ) ) ) + ( Ref Nothing + ( Local + ( Name "x96$95" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x97$96" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "add$w" ) + ( Name "bind$w" ) ) ) - ( Ref Nothing - ( Local - ( Name "x96$95" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| - [ AbsN Nothing - ( ParamNamed Nothing - ( Name "x97$96" ) :| [] - ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind$w" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "add$w" ) ) ) + ( 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 "add$w" ) + ( Name "bind$w" ) ) ) - ( 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$w" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "add$w" ) ) ) + ( Ref Nothing + ( Local + ( Name "x98$97" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x99$98" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "add$w" ) + ( Name "bind$w" ) ) ) - ( Ref Nothing - ( Local - ( Name "x98$97" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| - [ AbsN Nothing - ( ParamNamed Nothing - ( Name "x99$98" ) :| [] - ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind$w" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "add$w" ) ) ) + ( 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 "add$w" ) + ( Name "bind$w" ) ) ) - ( 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$w" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "add$w" ) ) ) + ( Ref Nothing + ( Local + ( Name "x100$99" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x101$100" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "add$w" ) + ( Name "bind$w" ) ) ) - ( Ref Nothing - ( Local - ( Name "x100$99" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| - [ AbsN Nothing - ( ParamNamed Nothing - ( Name "x101$100" ) :| [] - ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind$w" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "add$w" ) ) ) + ( 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 "add$w" ) + ( Name "bind$w" ) ) ) - ( 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$w" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "add$w" ) ) ) + ( Ref Nothing + ( Local + ( Name "x102$101" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x103$102" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "add$w" ) + ( Name "bind$w" ) ) ) - ( Ref Nothing - ( Local - ( Name "x102$101" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| - [ AbsN Nothing - ( ParamNamed Nothing - ( Name "x103$102" ) :| [] - ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind$w" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "add$w" ) ) ) + ( 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 "add$w" ) + ( Name "bind$w" ) ) ) - ( 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$w" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "add$w" ) ) ) + ( Ref Nothing + ( Local + ( Name "x104$103" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x105$104" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "add$w" ) + ( Name "bind$w" ) ) ) - ( Ref Nothing - ( Local - ( Name "x104$103" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| - [ AbsN Nothing - ( ParamNamed Nothing - ( Name "x105$104" ) :| [] - ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind$w" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "add$w" ) ) ) + ( Ref Nothing + ( Local + ( Name "x105$104" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x106$105" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "add$w" ) + ( Name "bind$w" ) ) ) - ( Ref Nothing - ( Local - ( Name "x105$104" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| - [ AbsN Nothing - ( ParamNamed Nothing - ( Name "x106$105" ) :| [] - ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind$w" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "add$w" ) ) ) + ( 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 "add$w" ) + ( Name "bind$w" ) ) ) - ( 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" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "add$w" ) ) ) + ( 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 "add$w" ) + ( Name "bind$w" ) ) ) - ( 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" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "add$w" ) ) ) + ( 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 "add$w" ) + ( Name "bind$w" ) ) ) - ( 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" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) - ) + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "add$w" ) + ) + ) + ( 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 "add$w" ) + ( Name "bind$w" ) ) ) - ( 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" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "add$w" ) ) ) + ( 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 "add$w" ) + ( Name "bind$w" ) ) ) - ( 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" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "add$w" ) ) ) + ( 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 "add$w" ) + ( Name "bind$w" ) ) ) - ( 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" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "add$w" ) ) ) + ( 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 "add$w" ) + ( Name "bind$w" ) ) ) - ( 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" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "add$w" ) ) ) + ( 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 "add$w" ) + ( Name "bind$w" ) ) ) - ( 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" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "add$w" ) ) ) + ( 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 "add$w" ) + ( Name "bind$w" ) ) ) - ( 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" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "add$w" ) ) ) + ( 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 "add$w" ) + ( Name "bind$w" ) ) ) - ( 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" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "add$w" ) ) ) + ( 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 "add$w" ) + ( Name "bind$w" ) ) ) - ( 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" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "add$w" ) ) ) + ( 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 "add$w" ) + ( Name "bind$w" ) ) ) - ( 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" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "add$w" ) ) ) + ( Ref Nothing + ( Local + ( Name "x118$117" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x119$118" ) :| [] + ) ( AppN Nothing ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "add$w" ) + ( Local + ( Name "$kont601$w" ) ) ) ( Ref Nothing ( Local - ( Name "x118$117" ) + ( Name "x1$0$605" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| - [ AbsN Nothing - ( ParamNamed Nothing - ( Name "x119$118" ) :| [] - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Local - ( Name "$kont601" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x1$0$605" ) - ) :| [] - ) - ) - ( Ref Nothing + [ Ref Nothing ( Local ( Name "x119$118" ) - ) :| [] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) ) ), Standalone - ( Nothing, Name "$kont607", AbsN Nothing - ( ParamNamed Nothing ( Name "x1$0$608" ) :| [] ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "x40$39$609" ) :| [] ) + ( Nothing, Name "$kont607$w", AbsN Nothing + ( ParamNamed Nothing + ( Name "x1$0$608" ) :| + [ ParamNamed Nothing ( Name "x40$39$609" ) ] + ) + ( AppN Nothing + ( Ref Nothing + ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind$w" ) ) + ) ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind$w" ) ) - ) + ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) ( AppN Nothing - ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) + ( Ref Nothing + ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "add$w" ) ) + ) + ( Ref Nothing + ( Local ( Name "x40$39$609" ) ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing ( Name "x41$40" ) :| [] ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "add$w" ) + ( Name "bind$w" ) ) ) - ( Ref Nothing - ( Local ( Name "x40$39$609" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| - [ AbsN Nothing - ( ParamNamed Nothing ( Name "x41$40" ) :| [] ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind$w" ) - ) - ) + ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) ( AppN Nothing - ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local ( Name "x41$40" ) ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing ( Name "x42$41" ) :| [] ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "add$w" ) + ( Name "bind$w" ) ) ) - ( Ref Nothing - ( Local ( Name "x41$40" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| - [ AbsN Nothing - ( ParamNamed Nothing ( Name "x42$41" ) :| [] ) ( AppN Nothing ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind$w" ) - ) + ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing - ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) + ( Imported + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "add$w" ) + ) ) + ( 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 "add$w" ) + ( Name "bind$w" ) ) ) - ( 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$w" ) - ) + ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing - ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) + ( Imported + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "add$w" ) + ) ) + ( Ref Nothing + ( Local ( Name "x43$42" ) ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing ( Name "x44$43" ) :| [] ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "add$w" ) + ( Name "bind$w" ) ) ) - ( Ref Nothing - ( Local ( Name "x43$42" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| - [ AbsN Nothing - ( ParamNamed Nothing ( Name "x44$43" ) :| [] ) ( AppN Nothing ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind$w" ) - ) + ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "add$w" ) ) ) + ( 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 "add$w" ) + ( Name "bind$w" ) ) ) - ( 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$w" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "add$w" ) ) ) + ( Ref Nothing + ( Local ( Name "x45$44" ) ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing ( Name "x46$45" ) :| [] ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "add$w" ) + ( Name "bind$w" ) ) ) - ( Ref Nothing - ( Local ( Name "x45$44" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| - [ AbsN Nothing - ( ParamNamed Nothing ( Name "x46$45" ) :| [] ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind$w" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "add$w" ) ) ) + ( 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 "add$w" ) + ( Name "bind$w" ) ) ) - ( 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$w" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "add$w" ) ) ) + ( Ref Nothing + ( Local ( Name "x47$46" ) ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x48$47" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "add$w" ) + ( Name "bind$w" ) ) ) - ( Ref Nothing - ( Local ( Name "x47$46" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| - [ AbsN Nothing - ( ParamNamed Nothing - ( Name "x48$47" ) :| [] - ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind$w" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "add$w" ) ) ) + ( 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 "add$w" ) + ( Name "bind$w" ) ) ) - ( 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$w" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "add$w" ) ) ) + ( Ref Nothing + ( Local + ( Name "x49$48" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x50$49" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "add$w" ) + ( Name "bind$w" ) ) ) - ( Ref Nothing - ( Local - ( Name "x49$48" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| - [ AbsN Nothing - ( ParamNamed Nothing - ( Name "x50$49" ) :| [] - ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind$w" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] + ) :| + [ AbsN Nothing + ( ParamUnused Nothing :| [] ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "bind$w" ) + ) ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "unit" ) - ) :| [] - ) :| - [ AbsN Nothing - ( ParamUnused Nothing :| [] ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind$w" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "add$w" ) ) ) + ( Ref Nothing + ( Local + ( Name "x50$49" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x51$50" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "add$w" ) + ( Name "bind$w" ) ) ) - ( Ref Nothing - ( Local - ( Name "x50$49" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| - [ AbsN Nothing - ( ParamNamed Nothing - ( Name "x51$50" ) :| [] - ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind$w" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "add$w" ) ) ) + ( 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 "add$w" ) + ( Name "bind$w" ) ) ) - ( 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$w" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "add$w" ) ) ) + ( Ref Nothing + ( Local + ( Name "x52$51" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x53$52" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "add$w" ) + ( Name "bind$w" ) ) ) - ( Ref Nothing - ( Local - ( Name "x52$51" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| - [ AbsN Nothing - ( ParamNamed Nothing - ( Name "x53$52" ) :| [] - ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind$w" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "add$w" ) ) ) + ( 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 "add$w" ) + ( Name "bind$w" ) ) ) - ( 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$w" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "add$w" ) ) ) + ( Ref Nothing + ( Local + ( Name "x54$53" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x55$54" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "add$w" ) + ( Name "bind$w" ) ) ) - ( Ref Nothing - ( Local - ( Name "x54$53" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| - [ AbsN Nothing - ( ParamNamed Nothing - ( Name "x55$54" ) :| [] - ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind$w" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "add$w" ) ) ) + ( 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 "add$w" ) + ( Name "bind$w" ) ) ) - ( 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$w" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "add$w" ) ) ) + ( Ref Nothing + ( Local + ( Name "x56$55" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x57$56" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "add$w" ) + ( Name "bind$w" ) ) ) - ( Ref Nothing - ( Local - ( Name "x56$55" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| - [ AbsN Nothing - ( ParamNamed Nothing - ( Name "x57$56" ) :| [] - ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind$w" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "add$w" ) ) ) + ( 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 "add$w" ) + ( Name "bind$w" ) ) ) - ( 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$w" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "add$w" ) ) ) + ( Ref Nothing + ( Local + ( Name "x58$57" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x59$58" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "add$w" ) + ( Name "bind$w" ) ) ) - ( Ref Nothing - ( Local - ( Name "x58$57" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| - [ AbsN Nothing - ( ParamNamed Nothing - ( Name "x59$58" ) :| [] - ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind$w" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "add$w" ) ) ) + ( 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 "add$w" ) + ( Name "bind$w" ) ) ) - ( 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$w" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "add$w" ) ) ) + ( Ref Nothing + ( Local + ( Name "x60$59" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x61$60" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "add$w" ) + ( Name "bind$w" ) ) ) - ( Ref Nothing - ( Local - ( Name "x60$59" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| - [ AbsN Nothing - ( ParamNamed Nothing - ( Name "x61$60" ) :| [] - ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind$w" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "add$w" ) ) ) + ( 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 "add$w" ) + ( Name "bind$w" ) ) ) - ( 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$w" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "add$w" ) ) ) + ( Ref Nothing + ( Local + ( Name "x62$61" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x63$62" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "add$w" ) + ( Name "bind$w" ) ) ) - ( Ref Nothing - ( Local - ( Name "x62$61" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| - [ AbsN Nothing - ( ParamNamed Nothing - ( Name "x63$62" ) :| [] - ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind$w" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "add$w" ) ) ) + ( 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 "add$w" ) + ( Name "bind$w" ) ) ) - ( 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$w" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "add$w" ) ) ) + ( Ref Nothing + ( Local + ( Name "x64$63" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x65$64" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "add$w" ) + ( Name "bind$w" ) ) ) - ( Ref Nothing - ( Local - ( Name "x64$63" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| - [ AbsN Nothing - ( ParamNamed Nothing - ( Name "x65$64" ) :| [] - ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind$w" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "add$w" ) ) ) + ( Ref Nothing + ( Local + ( Name "x65$64" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x66$65" ) :| [] + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "add$w" ) + ( Name "bind$w" ) ) ) - ( Ref Nothing - ( Local - ( Name "x65$64" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| - [ AbsN Nothing - ( ParamNamed Nothing - ( Name "x66$65" ) :| [] - ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "bind$w" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "add$w" ) ) ) + ( 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 "add$w" ) + ( Name "bind$w" ) ) ) - ( 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" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "add$w" ) ) ) + ( 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 "add$w" ) + ( Name "bind$w" ) ) ) - ( 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" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "add$w" ) ) ) + ( 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 "add$w" ) + ( Name "bind$w" ) ) ) - ( 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" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "add$w" ) ) ) + ( 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 "add$w" ) + ( Name "bind$w" ) ) ) - ( 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" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "add$w" ) ) ) + ( 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 "add$w" ) + ( Name "bind$w" ) ) ) - ( 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" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "add$w" ) ) ) + ( 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 "add$w" ) + ( Name "bind$w" ) ) ) - ( 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" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "add$w" ) ) ) + ( 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 "add$w" ) + ( Name "bind$w" ) ) ) - ( 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" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "add$w" ) ) ) + ( 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 "add$w" ) + ( Name "bind$w" ) ) ) - ( 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" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "add$w" ) ) ) + ( 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 "add$w" ) + ( Name "bind$w" ) ) ) - ( 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" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "add$w" ) ) ) + ( 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 "add$w" ) + ( Name "bind$w" ) ) ) - ( 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" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "add$w" ) ) ) + ( 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 "add$w" ) + ( Name "bind$w" ) ) ) - ( 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" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "add$w" ) ) ) + ( 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 "add$w" ) + ( Name "bind$w" ) ) ) - ( 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" ) + ( ModuleName "Data.Maybe" ) + ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Maybe" ) - ( Name "Just" ) + ( ModuleName "Golden.LongMaybeBindModule.Test" ) + ( Name "add$w" ) ) ) + ( Ref Nothing + ( Local + ( Name "x78$77" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| + [ AbsN Nothing + ( ParamNamed Nothing + ( Name "x79$78" ) :| [] + ) ( AppN Nothing ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongMaybeBindModule.Test" ) - ( Name "add$w" ) + ( Local + ( Name "$kont604$w" ) ) ) ( Ref Nothing ( Local - ( Name "x78$77" ) + ( Name "x1$0$608" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| - [ AbsN Nothing - ( ParamNamed Nothing - ( Name "x79$78" ) :| [] - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Local - ( Name "$kont604" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x1$0$608" ) - ) :| [] - ) - ) - ( Ref Nothing + [ Ref Nothing ( Local ( Name "x79$78" ) - ) :| [] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) - ] - ) + ) + ] ) ) ) @@ -10303,22 +10247,20 @@ UberModule ( Name "x40$39" ) :| [] ) ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Local - ( Name "$kont607" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x1$0" ) - ) :| [] + ( Ref Nothing + ( Local + ( Name "$kont607$w" ) ) ) ( Ref Nothing ( Local - ( Name "x40$39" ) - ) :| [] + ( 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 fd82566a..410143d4 100644 --- a/test/ps/output/Golden.LongMaybeBindModule.Test/golden.lua +++ b/test/ps/output/Golden.LongMaybeBindModule.Test/golden.lua @@ -18,33 +18,31 @@ local Golden_LongMaybeBindModule_Test_add_S_w = function(x_S_584, y_S_585) end return { compute = (function() - local _S_kont589 = function(x1_S_0_S_590) - return function(x277_S_276_S_591) - return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x277_S_276_S_591, 1)), function( x278_S_277 ) - return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x278_S_277, 1)), function( x279_S_278 ) - return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x279_S_278, 1)), function( x280_S_279 ) - return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x280_S_279, 1)), function( x281_S_280 ) - return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x281_S_280, 1)), function( x282_S_281 ) - return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x282_S_281, 1)), function( x283_S_282 ) - return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x283_S_282, 1)), function( x284_S_283 ) - return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x284_S_283, 1)), function( x285_S_284 ) - return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x285_S_284, 1)), function( x286_S_285 ) - return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x286_S_285, 1)), function( x287_S_286 ) - return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x287_S_286, 1)), function( x288_S_287 ) - return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x288_S_287, 1)), function( x289_S_288 ) - return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x289_S_288, 1)), function( x290_S_289 ) - return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x290_S_289, 1)), function( x291_S_290 ) - return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x291_S_290, 1)), function( x292_S_291 ) - return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x292_S_291, 1)), function( x293_S_292 ) - return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x293_S_292, 1)), function( x294_S_293 ) - return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x294_S_293, 1)), function( x295_S_294 ) - return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x295_S_294, 1)), function( x296_S_295 ) - return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x296_S_295, 1)), function( x297_S_296 ) - return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x297_S_296, 1)), function( x298_S_297 ) - return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x298_S_297, 1)), function( x299_S_298 ) - return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x299_S_298, 1)), function( x300_S_299 ) - return Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x1_S_0_S_590, x300_S_299)) - end) + local _S_kont589_S_w = function(x1_S_0_S_590, x277_S_276_S_591) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x277_S_276_S_591, 1)), function( x278_S_277 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x278_S_277, 1)), function( x279_S_278 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x279_S_278, 1)), function( x280_S_279 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x280_S_279, 1)), function( x281_S_280 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x281_S_280, 1)), function( x282_S_281 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x282_S_281, 1)), function( x283_S_282 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x283_S_282, 1)), function( x284_S_283 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x284_S_283, 1)), function( x285_S_284 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x285_S_284, 1)), function( x286_S_285 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x286_S_285, 1)), function( x287_S_286 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x287_S_286, 1)), function( x288_S_287 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x288_S_287, 1)), function( x289_S_288 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x289_S_288, 1)), function( x290_S_289 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x290_S_289, 1)), function( x291_S_290 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x291_S_290, 1)), function( x292_S_291 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x292_S_291, 1)), function( x293_S_292 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x293_S_292, 1)), function( x294_S_293 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x294_S_293, 1)), function( x295_S_294 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x295_S_294, 1)), function( x296_S_295 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x296_S_295, 1)), function( x297_S_296 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x297_S_296, 1)), function( x298_S_297 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x298_S_297, 1)), function( x299_S_298 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x299_S_298, 1)), function( x300_S_299 ) + return Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x1_S_0_S_590, x300_S_299)) end) end) end) @@ -67,52 +65,50 @@ return { end) end) end) - end + end) end - local _S_kont592 = function(x1_S_0_S_593) - return function(x238_S_237_S_594) - return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x238_S_237_S_594, 1)), function( x239_S_238 ) - return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x239_S_238, 1)), function( x240_S_239 ) - return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x240_S_239, 1)), function( x241_S_240 ) - return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x241_S_240, 1)), function( x242_S_241 ) - return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x242_S_241, 1)), function( x243_S_242 ) - return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x243_S_242, 1)), function( x244_S_243 ) - return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x244_S_243, 1)), function( x245_S_244 ) - return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x245_S_244, 1)), function( x246_S_245 ) - return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x246_S_245, 1)), function( x247_S_246 ) - return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x247_S_246, 1)), function( x248_S_247 ) - return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x248_S_247, 1)), function( x249_S_248 ) - return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x249_S_248, 1)), function( x250_S_249 ) - return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Data_Unit_unit), function( ) - return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x250_S_249, 1)), function( x251_S_250 ) - return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x251_S_250, 1)), function( x252_S_251 ) - return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x252_S_251, 1)), function( x253_S_252 ) - return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x253_S_252, 1)), function( x254_S_253 ) - return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x254_S_253, 1)), function( x255_S_254 ) - return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x255_S_254, 1)), function( x256_S_255 ) - return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x256_S_255, 1)), function( x257_S_256 ) - return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x257_S_256, 1)), function( x258_S_257 ) - return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x258_S_257, 1)), function( x259_S_258 ) - return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x259_S_258, 1)), function( x260_S_259 ) - return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x260_S_259, 1)), function( x261_S_260 ) - return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x261_S_260, 1)), function( x262_S_261 ) - return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x262_S_261, 1)), function( x263_S_262 ) - return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x263_S_262, 1)), function( x264_S_263 ) - return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x264_S_263, 1)), function( x265_S_264 ) - return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x265_S_264, 1)), function( x266_S_265 ) - return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x266_S_265, 1)), function( x267_S_266 ) - return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x267_S_266, 1)), function( x268_S_267 ) - return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x268_S_267, 1)), function( x269_S_268 ) - return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x269_S_268, 1)), function( x270_S_269 ) - return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x270_S_269, 1)), function( x271_S_270 ) - return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x271_S_270, 1)), function( x272_S_271 ) - return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x272_S_271, 1)), function( x273_S_272 ) - return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x273_S_272, 1)), function( x274_S_273 ) - return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x274_S_273, 1)), function( x275_S_274 ) - return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x275_S_274, 1)), function( x276_S_275 ) - return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x276_S_275, 1)), function( x277_S_276 ) - return _S_kont589(x1_S_0_S_593)(x277_S_276) - end) + local _S_kont592_S_w = function(x1_S_0_S_593, x238_S_237_S_594) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x238_S_237_S_594, 1)), function( x239_S_238 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x239_S_238, 1)), function( x240_S_239 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x240_S_239, 1)), function( x241_S_240 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x241_S_240, 1)), function( x242_S_241 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x242_S_241, 1)), function( x243_S_242 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x243_S_242, 1)), function( x244_S_243 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x244_S_243, 1)), function( x245_S_244 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x245_S_244, 1)), function( x246_S_245 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x246_S_245, 1)), function( x247_S_246 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x247_S_246, 1)), function( x248_S_247 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x248_S_247, 1)), function( x249_S_248 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x249_S_248, 1)), function( x250_S_249 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Data_Unit_unit), function( ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x250_S_249, 1)), function( x251_S_250 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x251_S_250, 1)), function( x252_S_251 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x252_S_251, 1)), function( x253_S_252 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x253_S_252, 1)), function( x254_S_253 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x254_S_253, 1)), function( x255_S_254 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x255_S_254, 1)), function( x256_S_255 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x256_S_255, 1)), function( x257_S_256 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x257_S_256, 1)), function( x258_S_257 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x258_S_257, 1)), function( x259_S_258 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x259_S_258, 1)), function( x260_S_259 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x260_S_259, 1)), function( x261_S_260 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x261_S_260, 1)), function( x262_S_261 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x262_S_261, 1)), function( x263_S_262 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x263_S_262, 1)), function( x264_S_263 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x264_S_263, 1)), function( x265_S_264 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x265_S_264, 1)), function( x266_S_265 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x266_S_265, 1)), function( x267_S_266 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x267_S_266, 1)), function( x268_S_267 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x268_S_267, 1)), function( x269_S_268 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x269_S_268, 1)), function( x270_S_269 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x270_S_269, 1)), function( x271_S_270 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x271_S_270, 1)), function( x272_S_271 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x272_S_271, 1)), function( x273_S_272 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x273_S_272, 1)), function( x274_S_273 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x274_S_273, 1)), function( x275_S_274 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x275_S_274, 1)), function( x276_S_275 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x276_S_275, 1)), function( x277_S_276 ) + return _S_kont589_S_w(x1_S_0_S_593, x277_S_276) end) end) end) @@ -152,52 +148,50 @@ return { end) end) end) - end + end) end - local _S_kont595 = function(x1_S_0_S_596) - return function(x198_S_197_S_597) - return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x198_S_197_S_597, 1)), function( x199_S_198 ) - return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x199_S_198, 1)), function( x200_S_199 ) - return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x200_S_199, 1)), function( x201_S_200 ) - return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x201_S_200, 1)), function( x202_S_201 ) - return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x202_S_201, 1)), function( x203_S_202 ) - return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x203_S_202, 1)), function( x204_S_203 ) - return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x204_S_203, 1)), function( x205_S_204 ) - return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x205_S_204, 1)), function( x206_S_205 ) - return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x206_S_205, 1)), function( x207_S_206 ) - return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x207_S_206, 1)), function( x208_S_207 ) - return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x208_S_207, 1)), function( x209_S_208 ) - return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x209_S_208, 1)), function( x210_S_209 ) - return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x210_S_209, 1)), function( x211_S_210 ) - return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x211_S_210, 1)), function( x212_S_211 ) - return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x212_S_211, 1)), function( x213_S_212 ) - return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x213_S_212, 1)), function( x214_S_213 ) - return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x214_S_213, 1)), function( x215_S_214 ) - return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x215_S_214, 1)), function( x216_S_215 ) - return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x216_S_215, 1)), function( x217_S_216 ) - return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x217_S_216, 1)), function( x218_S_217 ) - return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x218_S_217, 1)), function( x219_S_218 ) - return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x219_S_218, 1)), function( x220_S_219 ) - return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x220_S_219, 1)), function( x221_S_220 ) - return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x221_S_220, 1)), function( x222_S_221 ) - return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x222_S_221, 1)), function( x223_S_222 ) - return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x223_S_222, 1)), function( x224_S_223 ) - return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x224_S_223, 1)), function( x225_S_224 ) - return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x225_S_224, 1)), function( x226_S_225 ) - return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x226_S_225, 1)), function( x227_S_226 ) - return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x227_S_226, 1)), function( x228_S_227 ) - return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x228_S_227, 1)), function( x229_S_228 ) - return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x229_S_228, 1)), function( x230_S_229 ) - return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x230_S_229, 1)), function( x231_S_230 ) - return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x231_S_230, 1)), function( x232_S_231 ) - return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x232_S_231, 1)), function( x233_S_232 ) - return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x233_S_232, 1)), function( x234_S_233 ) - return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x234_S_233, 1)), function( x235_S_234 ) - return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x235_S_234, 1)), function( x236_S_235 ) - return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x236_S_235, 1)), function( x237_S_236 ) - return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x237_S_236, 1)), function( x238_S_237 ) - return _S_kont592(x1_S_0_S_596)(x238_S_237) - end) + local _S_kont595_S_w = function(x1_S_0_S_596, x198_S_197_S_597) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x198_S_197_S_597, 1)), function( x199_S_198 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x199_S_198, 1)), function( x200_S_199 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x200_S_199, 1)), function( x201_S_200 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x201_S_200, 1)), function( x202_S_201 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x202_S_201, 1)), function( x203_S_202 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x203_S_202, 1)), function( x204_S_203 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x204_S_203, 1)), function( x205_S_204 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x205_S_204, 1)), function( x206_S_205 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x206_S_205, 1)), function( x207_S_206 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x207_S_206, 1)), function( x208_S_207 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x208_S_207, 1)), function( x209_S_208 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x209_S_208, 1)), function( x210_S_209 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x210_S_209, 1)), function( x211_S_210 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x211_S_210, 1)), function( x212_S_211 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x212_S_211, 1)), function( x213_S_212 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x213_S_212, 1)), function( x214_S_213 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x214_S_213, 1)), function( x215_S_214 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x215_S_214, 1)), function( x216_S_215 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x216_S_215, 1)), function( x217_S_216 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x217_S_216, 1)), function( x218_S_217 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x218_S_217, 1)), function( x219_S_218 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x219_S_218, 1)), function( x220_S_219 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x220_S_219, 1)), function( x221_S_220 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x221_S_220, 1)), function( x222_S_221 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x222_S_221, 1)), function( x223_S_222 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x223_S_222, 1)), function( x224_S_223 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x224_S_223, 1)), function( x225_S_224 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x225_S_224, 1)), function( x226_S_225 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x226_S_225, 1)), function( x227_S_226 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x227_S_226, 1)), function( x228_S_227 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x228_S_227, 1)), function( x229_S_228 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x229_S_228, 1)), function( x230_S_229 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x230_S_229, 1)), function( x231_S_230 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x231_S_230, 1)), function( x232_S_231 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x232_S_231, 1)), function( x233_S_232 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x233_S_232, 1)), function( x234_S_233 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x234_S_233, 1)), function( x235_S_234 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x235_S_234, 1)), function( x236_S_235 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x236_S_235, 1)), function( x237_S_236 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x237_S_236, 1)), function( x238_S_237 ) + return _S_kont592_S_w(x1_S_0_S_596, x238_S_237) end) end) end) @@ -237,52 +231,50 @@ return { end) end) end) - end + end) end - local _S_kont598 = function(x1_S_0_S_599) - return function(x158_S_157_S_600) - return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x158_S_157_S_600, 1)), function( x159_S_158 ) - return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x159_S_158, 1)), function( x160_S_159 ) - return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x160_S_159, 1)), function( x161_S_160 ) - return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x161_S_160, 1)), function( x162_S_161 ) - return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x162_S_161, 1)), function( x163_S_162 ) - return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x163_S_162, 1)), function( x164_S_163 ) - return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x164_S_163, 1)), function( x165_S_164 ) - return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x165_S_164, 1)), function( x166_S_165 ) - return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x166_S_165, 1)), function( x167_S_166 ) - return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x167_S_166, 1)), function( x168_S_167 ) - return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x168_S_167, 1)), function( x169_S_168 ) - return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x169_S_168, 1)), function( x170_S_169 ) - return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x170_S_169, 1)), function( x171_S_170 ) - return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x171_S_170, 1)), function( x172_S_171 ) - return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x172_S_171, 1)), function( x173_S_172 ) - return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x173_S_172, 1)), function( x174_S_173 ) - return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x174_S_173, 1)), function( x175_S_174 ) - return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x175_S_174, 1)), function( x176_S_175 ) - return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x176_S_175, 1)), function( x177_S_176 ) - return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x177_S_176, 1)), function( x178_S_177 ) - return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x178_S_177, 1)), function( x179_S_178 ) - return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x179_S_178, 1)), function( x180_S_179 ) - return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x180_S_179, 1)), function( x181_S_180 ) - return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x181_S_180, 1)), function( x182_S_181 ) - return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x182_S_181, 1)), function( x183_S_182 ) - return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x183_S_182, 1)), function( x184_S_183 ) - return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x184_S_183, 1)), function( x185_S_184 ) - return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x185_S_184, 1)), function( x186_S_185 ) - return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x186_S_185, 1)), function( x187_S_186 ) - return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x187_S_186, 1)), function( x188_S_187 ) - return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x188_S_187, 1)), function( x189_S_188 ) - return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x189_S_188, 1)), function( x190_S_189 ) - return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x190_S_189, 1)), function( x191_S_190 ) - return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x191_S_190, 1)), function( x192_S_191 ) - return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x192_S_191, 1)), function( x193_S_192 ) - return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x193_S_192, 1)), function( x194_S_193 ) - return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x194_S_193, 1)), function( x195_S_194 ) - return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x195_S_194, 1)), function( x196_S_195 ) - return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x196_S_195, 1)), function( x197_S_196 ) - return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x197_S_196, 1)), function( x198_S_197 ) - return _S_kont595(x1_S_0_S_599)(x198_S_197) - end) + local _S_kont598_S_w = function(x1_S_0_S_599, x158_S_157_S_600) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x158_S_157_S_600, 1)), function( x159_S_158 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x159_S_158, 1)), function( x160_S_159 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x160_S_159, 1)), function( x161_S_160 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x161_S_160, 1)), function( x162_S_161 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x162_S_161, 1)), function( x163_S_162 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x163_S_162, 1)), function( x164_S_163 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x164_S_163, 1)), function( x165_S_164 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x165_S_164, 1)), function( x166_S_165 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x166_S_165, 1)), function( x167_S_166 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x167_S_166, 1)), function( x168_S_167 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x168_S_167, 1)), function( x169_S_168 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x169_S_168, 1)), function( x170_S_169 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x170_S_169, 1)), function( x171_S_170 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x171_S_170, 1)), function( x172_S_171 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x172_S_171, 1)), function( x173_S_172 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x173_S_172, 1)), function( x174_S_173 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x174_S_173, 1)), function( x175_S_174 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x175_S_174, 1)), function( x176_S_175 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x176_S_175, 1)), function( x177_S_176 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x177_S_176, 1)), function( x178_S_177 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x178_S_177, 1)), function( x179_S_178 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x179_S_178, 1)), function( x180_S_179 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x180_S_179, 1)), function( x181_S_180 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x181_S_180, 1)), function( x182_S_181 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x182_S_181, 1)), function( x183_S_182 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x183_S_182, 1)), function( x184_S_183 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x184_S_183, 1)), function( x185_S_184 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x185_S_184, 1)), function( x186_S_185 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x186_S_185, 1)), function( x187_S_186 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x187_S_186, 1)), function( x188_S_187 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x188_S_187, 1)), function( x189_S_188 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x189_S_188, 1)), function( x190_S_189 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x190_S_189, 1)), function( x191_S_190 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x191_S_190, 1)), function( x192_S_191 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x192_S_191, 1)), function( x193_S_192 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x193_S_192, 1)), function( x194_S_193 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x194_S_193, 1)), function( x195_S_194 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x195_S_194, 1)), function( x196_S_195 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x196_S_195, 1)), function( x197_S_196 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x197_S_196, 1)), function( x198_S_197 ) + return _S_kont595_S_w(x1_S_0_S_599, x198_S_197) end) end) end) @@ -322,52 +314,50 @@ return { end) end) end) - end + end) end - local _S_kont601 = function(x1_S_0_S_602) - return function(x119_S_118_S_603) - return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x119_S_118_S_603, 1)), function( x120_S_119 ) - return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x120_S_119, 1)), function( x121_S_120 ) - return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x121_S_120, 1)), function( x122_S_121 ) - return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x122_S_121, 1)), function( x123_S_122 ) - return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x123_S_122, 1)), function( x124_S_123 ) - return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x124_S_123, 1)), function( x125_S_124 ) - return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x125_S_124, 1)), function( x126_S_125 ) - return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x126_S_125, 1)), function( x127_S_126 ) - return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x127_S_126, 1)), function( x128_S_127 ) - return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x128_S_127, 1)), function( x129_S_128 ) - return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x129_S_128, 1)), function( x130_S_129 ) - return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x130_S_129, 1)), function( x131_S_130 ) - return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x131_S_130, 1)), function( x132_S_131 ) - return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x132_S_131, 1)), function( x133_S_132 ) - return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x133_S_132, 1)), function( x134_S_133 ) - return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x134_S_133, 1)), function( x135_S_134 ) - return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x135_S_134, 1)), function( x136_S_135 ) - return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x136_S_135, 1)), function( x137_S_136 ) - return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x137_S_136, 1)), function( x138_S_137 ) - return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x138_S_137, 1)), function( x139_S_138 ) - return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x139_S_138, 1)), function( x140_S_139 ) - return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x140_S_139, 1)), function( x141_S_140 ) - return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x141_S_140, 1)), function( x142_S_141 ) - return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x142_S_141, 1)), function( x143_S_142 ) - return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x143_S_142, 1)), function( x144_S_143 ) - return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x144_S_143, 1)), function( x145_S_144 ) - return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x145_S_144, 1)), function( x146_S_145 ) - return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x146_S_145, 1)), function( x147_S_146 ) - return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x147_S_146, 1)), function( x148_S_147 ) - return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x148_S_147, 1)), function( x149_S_148 ) - return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x149_S_148, 1)), function( x150_S_149 ) - return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Data_Unit_unit), function( ) - return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x150_S_149, 1)), function( x151_S_150 ) - return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x151_S_150, 1)), function( x152_S_151 ) - return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x152_S_151, 1)), function( x153_S_152 ) - return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x153_S_152, 1)), function( x154_S_153 ) - return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x154_S_153, 1)), function( x155_S_154 ) - return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x155_S_154, 1)), function( x156_S_155 ) - return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x156_S_155, 1)), function( x157_S_156 ) - return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x157_S_156, 1)), function( x158_S_157 ) - return _S_kont598(x1_S_0_S_602)(x158_S_157) - end) + local _S_kont601_S_w = function(x1_S_0_S_602, x119_S_118_S_603) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x119_S_118_S_603, 1)), function( x120_S_119 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x120_S_119, 1)), function( x121_S_120 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x121_S_120, 1)), function( x122_S_121 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x122_S_121, 1)), function( x123_S_122 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x123_S_122, 1)), function( x124_S_123 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x124_S_123, 1)), function( x125_S_124 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x125_S_124, 1)), function( x126_S_125 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x126_S_125, 1)), function( x127_S_126 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x127_S_126, 1)), function( x128_S_127 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x128_S_127, 1)), function( x129_S_128 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x129_S_128, 1)), function( x130_S_129 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x130_S_129, 1)), function( x131_S_130 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x131_S_130, 1)), function( x132_S_131 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x132_S_131, 1)), function( x133_S_132 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x133_S_132, 1)), function( x134_S_133 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x134_S_133, 1)), function( x135_S_134 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x135_S_134, 1)), function( x136_S_135 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x136_S_135, 1)), function( x137_S_136 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x137_S_136, 1)), function( x138_S_137 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x138_S_137, 1)), function( x139_S_138 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x139_S_138, 1)), function( x140_S_139 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x140_S_139, 1)), function( x141_S_140 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x141_S_140, 1)), function( x142_S_141 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x142_S_141, 1)), function( x143_S_142 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x143_S_142, 1)), function( x144_S_143 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x144_S_143, 1)), function( x145_S_144 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x145_S_144, 1)), function( x146_S_145 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x146_S_145, 1)), function( x147_S_146 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x147_S_146, 1)), function( x148_S_147 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x148_S_147, 1)), function( x149_S_148 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x149_S_148, 1)), function( x150_S_149 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Data_Unit_unit), function( ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x150_S_149, 1)), function( x151_S_150 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x151_S_150, 1)), function( x152_S_151 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x152_S_151, 1)), function( x153_S_152 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x153_S_152, 1)), function( x154_S_153 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x154_S_153, 1)), function( x155_S_154 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x155_S_154, 1)), function( x156_S_155 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x156_S_155, 1)), function( x157_S_156 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x157_S_156, 1)), function( x158_S_157 ) + return _S_kont598_S_w(x1_S_0_S_602, x158_S_157) end) end) end) @@ -407,52 +397,50 @@ return { end) end) end) - end + end) end - local _S_kont604 = function(x1_S_0_S_605) - return function(x79_S_78_S_606) - return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x79_S_78_S_606, 1)), function( x80_S_79 ) - return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x80_S_79, 1)), function( x81_S_80 ) - return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x81_S_80, 1)), function( x82_S_81 ) - return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x82_S_81, 1)), function( x83_S_82 ) - return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x83_S_82, 1)), function( x84_S_83 ) - return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x84_S_83, 1)), function( x85_S_84 ) - return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x85_S_84, 1)), function( x86_S_85 ) - return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x86_S_85, 1)), function( x87_S_86 ) - return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x87_S_86, 1)), function( x88_S_87 ) - return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x88_S_87, 1)), function( x89_S_88 ) - return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x89_S_88, 1)), function( x90_S_89 ) - return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x90_S_89, 1)), function( x91_S_90 ) - return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x91_S_90, 1)), function( x92_S_91 ) - return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x92_S_91, 1)), function( x93_S_92 ) - return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x93_S_92, 1)), function( x94_S_93 ) - return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x94_S_93, 1)), function( x95_S_94 ) - return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x95_S_94, 1)), function( x96_S_95 ) - return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x96_S_95, 1)), function( x97_S_96 ) - return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x97_S_96, 1)), function( x98_S_97 ) - return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x98_S_97, 1)), function( x99_S_98 ) - return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x99_S_98, 1)), function( x100_S_99 ) - return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x100_S_99, 1)), function( x101_S_100 ) - return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x101_S_100, 1)), function( x102_S_101 ) - return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x102_S_101, 1)), function( x103_S_102 ) - return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x103_S_102, 1)), function( x104_S_103 ) - return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x104_S_103, 1)), function( x105_S_104 ) - return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x105_S_104, 1)), function( x106_S_105 ) - return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x106_S_105, 1)), function( x107_S_106 ) - return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x107_S_106, 1)), function( x108_S_107 ) - return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x108_S_107, 1)), function( x109_S_108 ) - return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x109_S_108, 1)), function( x110_S_109 ) - return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x110_S_109, 1)), function( x111_S_110 ) - return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x111_S_110, 1)), function( x112_S_111 ) - return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x112_S_111, 1)), function( x113_S_112 ) - return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x113_S_112, 1)), function( x114_S_113 ) - return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x114_S_113, 1)), function( x115_S_114 ) - return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x115_S_114, 1)), function( x116_S_115 ) - return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x116_S_115, 1)), function( x117_S_116 ) - return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x117_S_116, 1)), function( x118_S_117 ) - return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x118_S_117, 1)), function( x119_S_118 ) - return _S_kont601(x1_S_0_S_605)(x119_S_118) - end) + local _S_kont604_S_w = function(x1_S_0_S_605, x79_S_78_S_606) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x79_S_78_S_606, 1)), function( x80_S_79 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x80_S_79, 1)), function( x81_S_80 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x81_S_80, 1)), function( x82_S_81 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x82_S_81, 1)), function( x83_S_82 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x83_S_82, 1)), function( x84_S_83 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x84_S_83, 1)), function( x85_S_84 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x85_S_84, 1)), function( x86_S_85 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x86_S_85, 1)), function( x87_S_86 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x87_S_86, 1)), function( x88_S_87 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x88_S_87, 1)), function( x89_S_88 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x89_S_88, 1)), function( x90_S_89 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x90_S_89, 1)), function( x91_S_90 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x91_S_90, 1)), function( x92_S_91 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x92_S_91, 1)), function( x93_S_92 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x93_S_92, 1)), function( x94_S_93 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x94_S_93, 1)), function( x95_S_94 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x95_S_94, 1)), function( x96_S_95 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x96_S_95, 1)), function( x97_S_96 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x97_S_96, 1)), function( x98_S_97 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x98_S_97, 1)), function( x99_S_98 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x99_S_98, 1)), function( x100_S_99 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x100_S_99, 1)), function( x101_S_100 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x101_S_100, 1)), function( x102_S_101 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x102_S_101, 1)), function( x103_S_102 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x103_S_102, 1)), function( x104_S_103 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x104_S_103, 1)), function( x105_S_104 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x105_S_104, 1)), function( x106_S_105 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x106_S_105, 1)), function( x107_S_106 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x107_S_106, 1)), function( x108_S_107 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x108_S_107, 1)), function( x109_S_108 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x109_S_108, 1)), function( x110_S_109 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x110_S_109, 1)), function( x111_S_110 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x111_S_110, 1)), function( x112_S_111 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x112_S_111, 1)), function( x113_S_112 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x113_S_112, 1)), function( x114_S_113 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x114_S_113, 1)), function( x115_S_114 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x115_S_114, 1)), function( x116_S_115 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x116_S_115, 1)), function( x117_S_116 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x117_S_116, 1)), function( x118_S_117 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x118_S_117, 1)), function( x119_S_118 ) + return _S_kont601_S_w(x1_S_0_S_605, x119_S_118) end) end) end) @@ -492,52 +480,50 @@ return { end) end) end) - end + end) end - local _S_kont607 = function(x1_S_0_S_608) - return function(x40_S_39_S_609) - return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x40_S_39_S_609, 1)), function( x41_S_40 ) - return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x41_S_40, 1)), function( x42_S_41 ) - return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x42_S_41, 1)), function( x43_S_42 ) - return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x43_S_42, 1)), function( x44_S_43 ) - return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x44_S_43, 1)), function( x45_S_44 ) - return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x45_S_44, 1)), function( x46_S_45 ) - return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x46_S_45, 1)), function( x47_S_46 ) - return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x47_S_46, 1)), function( x48_S_47 ) - return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x48_S_47, 1)), function( x49_S_48 ) - return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x49_S_48, 1)), function( x50_S_49 ) - return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Data_Unit_unit), function( ) - return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x50_S_49, 1)), function( x51_S_50 ) - return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x51_S_50, 1)), function( x52_S_51 ) - return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x52_S_51, 1)), function( x53_S_52 ) - return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x53_S_52, 1)), function( x54_S_53 ) - return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x54_S_53, 1)), function( x55_S_54 ) - return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x55_S_54, 1)), function( x56_S_55 ) - return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x56_S_55, 1)), function( x57_S_56 ) - return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x57_S_56, 1)), function( x58_S_57 ) - return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x58_S_57, 1)), function( x59_S_58 ) - return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x59_S_58, 1)), function( x60_S_59 ) - return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x60_S_59, 1)), function( x61_S_60 ) - return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x61_S_60, 1)), function( x62_S_61 ) - return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x62_S_61, 1)), function( x63_S_62 ) - return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x63_S_62, 1)), function( x64_S_63 ) - return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x64_S_63, 1)), function( x65_S_64 ) - return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x65_S_64, 1)), function( x66_S_65 ) - return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x66_S_65, 1)), function( x67_S_66 ) - return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x67_S_66, 1)), function( x68_S_67 ) - return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x68_S_67, 1)), function( x69_S_68 ) - return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x69_S_68, 1)), function( x70_S_69 ) - return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x70_S_69, 1)), function( x71_S_70 ) - return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x71_S_70, 1)), function( x72_S_71 ) - return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x72_S_71, 1)), function( x73_S_72 ) - return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x73_S_72, 1)), function( x74_S_73 ) - return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x74_S_73, 1)), function( x75_S_74 ) - return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x75_S_74, 1)), function( x76_S_75 ) - return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x76_S_75, 1)), function( x77_S_76 ) - return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x77_S_76, 1)), function( x78_S_77 ) - return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x78_S_77, 1)), function( x79_S_78 ) - return _S_kont604(x1_S_0_S_608)(x79_S_78) - end) + local _S_kont607_S_w = function(x1_S_0_S_608, x40_S_39_S_609) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x40_S_39_S_609, 1)), function( x41_S_40 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x41_S_40, 1)), function( x42_S_41 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x42_S_41, 1)), function( x43_S_42 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x43_S_42, 1)), function( x44_S_43 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x44_S_43, 1)), function( x45_S_44 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x45_S_44, 1)), function( x46_S_45 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x46_S_45, 1)), function( x47_S_46 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x47_S_46, 1)), function( x48_S_47 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x48_S_47, 1)), function( x49_S_48 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x49_S_48, 1)), function( x50_S_49 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Data_Unit_unit), function( ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x50_S_49, 1)), function( x51_S_50 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x51_S_50, 1)), function( x52_S_51 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x52_S_51, 1)), function( x53_S_52 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x53_S_52, 1)), function( x54_S_53 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x54_S_53, 1)), function( x55_S_54 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x55_S_54, 1)), function( x56_S_55 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x56_S_55, 1)), function( x57_S_56 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x57_S_56, 1)), function( x58_S_57 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x58_S_57, 1)), function( x59_S_58 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x59_S_58, 1)), function( x60_S_59 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x60_S_59, 1)), function( x61_S_60 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x61_S_60, 1)), function( x62_S_61 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x62_S_61, 1)), function( x63_S_62 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x63_S_62, 1)), function( x64_S_63 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x64_S_63, 1)), function( x65_S_64 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x65_S_64, 1)), function( x66_S_65 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x66_S_65, 1)), function( x67_S_66 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x67_S_66, 1)), function( x68_S_67 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x68_S_67, 1)), function( x69_S_68 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x69_S_68, 1)), function( x70_S_69 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x70_S_69, 1)), function( x71_S_70 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x71_S_70, 1)), function( x72_S_71 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x72_S_71, 1)), function( x73_S_72 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x73_S_72, 1)), function( x74_S_73 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x74_S_73, 1)), function( x75_S_74 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x75_S_74, 1)), function( x76_S_75 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x76_S_75, 1)), function( x77_S_76 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x77_S_76, 1)), function( x78_S_77 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x78_S_77, 1)), function( x79_S_78 ) + return _S_kont604_S_w(x1_S_0_S_608, x79_S_78) end) end) end) @@ -577,7 +563,7 @@ return { end) end) end) - end + end) end return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(1), function( x1_S_0 ) return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x1_S_0, 1)), function( x2_S_1 ) @@ -619,7 +605,7 @@ return { return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x37_S_36, 1)), function( x38_S_37 ) return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x38_S_37, 1)), function( x39_S_38 ) return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x39_S_38, 1)), function( x40_S_39 ) - return _S_kont607(x1_S_0)(x40_S_39) + return _S_kont607_S_w(x1_S_0, x40_S_39) end) end) end) diff --git a/test/ps/output/Golden.LongStateBind.Test/golden.ir b/test/ps/output/Golden.LongStateBind.Test/golden.ir index 633c1301..1ffefb55 100644 --- a/test/ps/output/Golden.LongStateBind.Test/golden.ir +++ b/test/ps/output/Golden.LongStateBind.Test/golden.ir @@ -461,159 +461,123 @@ UberModule { qnameModuleName = ModuleName "Golden.LongStateBind.Test", qnameName = Name "go" }, Let Nothing ( Standalone - ( Nothing, Name "$kont1460", AbsN Nothing - ( ParamNamed Nothing ( Name "x1$1461" ) :| [] ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "x100$1462" ) :| [] ) + ( Nothing, Name "$kont1460$w", AbsN Nothing + ( ParamNamed Nothing + ( Name "x1$1461" ) :| + [ ParamNamed Nothing ( Name "x100$1462" ) ] + ) + ( AppN Nothing ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "bind" ) ) - ) - ( Ref Nothing - ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "get" ) ) :| [] - ) + ( Ref Nothing + ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "bind" ) ) ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "x141" ) :| [] ) + ( Ref Nothing + ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "get" ) ) :| [] + ) + ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x141" ) :| [] ) + ( AppN Nothing ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "discard" ) ) - ) - ( AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Data.Tuple" ) ( Name "Tuple" ) ) - ) - ( Ref Nothing - ( Imported ( ModuleName "Data.Unit" ) ( Name "unit" ) ) :| [] - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local ( Name "x141" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) - ) :| [] - ) + ( Ref Nothing + ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "discard" ) ) ) ( AbsN Nothing ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing + ( Ref Nothing ( Imported ( ModuleName "Data.Tuple" ) ( Name "Tuple" ) ) ) ( Ref Nothing - ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "bind" ) ) + ( Imported ( ModuleName "Data.Unit" ) ( Name "unit" ) ) :| [] ) + ) + ( AppN Nothing ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "get" ) - ) :| [] + ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "add$w" ) ) ) + ( Ref Nothing + ( Local ( Name "x141" ) ) :| + [ LiteralInt Nothing 1 ] + ) :| [] ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "x142" ) :| [] ) + ) :| [] + ) + ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) + ( AppN Nothing + ( AppN Nothing + ( Ref Nothing + ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "bind" ) ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStateBind.Test" ) + ( Name "get" ) + ) :| [] + ) + ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x142" ) :| [] ) + ( AppN Nothing ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "discard" ) - ) - ) - ( AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Data.Tuple" ) ( Name "Tuple" ) ) - ) - ( Ref Nothing - ( Imported ( ModuleName "Data.Unit" ) ( Name "unit" ) ) :| [] - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local ( Name "x142" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) - ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStateBind.Test" ) + ( Name "discard" ) ) ) ( AbsN Nothing ( ParamUnused Nothing :| [] ) ( AppN Nothing + ( AppN Nothing + ( Ref Nothing + ( Imported ( ModuleName "Data.Tuple" ) ( Name "Tuple" ) ) + ) + ( Ref Nothing + ( Imported ( ModuleName "Data.Unit" ) ( Name "unit" ) ) :| [] + ) + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "bind" ) + ( Name "add$w" ) ) ) ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "get" ) - ) :| [] + ( Local ( Name "x142" ) ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) + ) :| [] + ) + ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) + ( AppN Nothing + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStateBind.Test" ) + ( Name "bind" ) ) ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "x143" ) :| [] ) + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStateBind.Test" ) + ( Name "get" ) + ) :| [] + ) + ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x143" ) :| [] ) + ( AppN Nothing ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "discard" ) - ) - ) - ( AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Tuple" ) - ( Name "Tuple" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "unit" ) - ) :| [] - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local ( Name "x143" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) - ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStateBind.Test" ) + ( Name "discard" ) ) ) ( AbsN Nothing @@ -622,57 +586,57 @@ UberModule ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "bind" ) + ( ModuleName "Data.Tuple" ) + ( Name "Tuple" ) ) ) ( Ref Nothing ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "get" ) + ( ModuleName "Data.Unit" ) + ( Name "unit" ) ) :| [] ) ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "x144" ) :| [] ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStateBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local ( Name "x143" ) ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) + ) :| [] + ) + ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) + ( AppN Nothing + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStateBind.Test" ) + ( Name "bind" ) + ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStateBind.Test" ) + ( Name "get" ) + ) :| [] + ) + ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x144" ) :| [] ) + ( AppN Nothing ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "discard" ) - ) - ) - ( AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Tuple" ) - ( Name "Tuple" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "unit" ) - ) :| [] - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local ( Name "x144" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) - ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStateBind.Test" ) + ( Name "discard" ) ) ) ( AbsN Nothing @@ -681,57 +645,57 @@ UberModule ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "bind" ) + ( ModuleName "Data.Tuple" ) + ( Name "Tuple" ) ) ) ( Ref Nothing ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "get" ) + ( ModuleName "Data.Unit" ) + ( Name "unit" ) ) :| [] ) ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "x145" ) :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "discard" ) - ) - ) - ( AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Tuple" ) - ( Name "Tuple" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "unit" ) - ) :| [] - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local ( Name "x145" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) - ) :| [] + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStateBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local ( Name "x144" ) ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) + ) :| [] + ) + ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) + ( AppN Nothing + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStateBind.Test" ) + ( Name "bind" ) + ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStateBind.Test" ) + ( Name "get" ) + ) :| [] + ) + ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x145" ) :| [] ) + ( AppN Nothing + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStateBind.Test" ) + ( Name "discard" ) ) ) ( AbsN Nothing @@ -740,59 +704,59 @@ UberModule ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "bind" ) + ( ModuleName "Data.Tuple" ) + ( Name "Tuple" ) ) ) ( Ref Nothing ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "get" ) + ( ModuleName "Data.Unit" ) + ( Name "unit" ) ) :| [] ) ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x146" ) :| [] + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStateBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local ( Name "x145" ) ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) + ) :| [] + ) + ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) + ( AppN Nothing + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStateBind.Test" ) + ( Name "bind" ) ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStateBind.Test" ) + ( Name "get" ) + ) :| [] + ) + ) + ( AbsN Nothing + ( ParamNamed Nothing + ( Name "x146" ) :| [] + ) + ( AppN Nothing ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "discard" ) - ) - ) - ( AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Tuple" ) - ( Name "Tuple" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "unit" ) - ) :| [] - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local ( Name "x146" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) - ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStateBind.Test" ) + ( Name "discard" ) ) ) ( AbsN Nothing @@ -801,61 +765,59 @@ UberModule ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "bind" ) + ( ModuleName "Data.Tuple" ) + ( Name "Tuple" ) ) ) ( Ref Nothing ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "get" ) + ( ModuleName "Data.Unit" ) + ( Name "unit" ) ) :| [] ) ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x147" ) :| [] + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStateBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local ( Name "x146" ) ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) + ) :| [] + ) + ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) + ( AppN Nothing + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStateBind.Test" ) + ( Name "bind" ) ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStateBind.Test" ) + ( Name "get" ) + ) :| [] + ) + ) + ( AbsN Nothing + ( ParamNamed Nothing + ( Name "x147" ) :| [] + ) + ( AppN Nothing ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "discard" ) - ) - ) - ( AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Tuple" ) - ( Name "Tuple" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "unit" ) - ) :| [] - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x147" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) - ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStateBind.Test" ) + ( Name "discard" ) ) ) ( AbsN Nothing @@ -864,61 +826,61 @@ UberModule ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "bind" ) + ( ModuleName "Data.Tuple" ) + ( Name "Tuple" ) ) ) ( Ref Nothing ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "get" ) + ( ModuleName "Data.Unit" ) + ( Name "unit" ) ) :| [] ) ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x148" ) :| [] + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStateBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x147" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) + ) :| [] + ) + ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) + ( AppN Nothing + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStateBind.Test" ) + ( Name "bind" ) ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStateBind.Test" ) + ( Name "get" ) + ) :| [] + ) + ) + ( AbsN Nothing + ( ParamNamed Nothing + ( Name "x148" ) :| [] + ) + ( AppN Nothing ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "discard" ) - ) - ) - ( AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Tuple" ) - ( Name "Tuple" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "unit" ) - ) :| [] - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x148" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) - ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStateBind.Test" ) + ( Name "discard" ) ) ) ( AbsN Nothing @@ -927,61 +889,61 @@ UberModule ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "bind" ) + ( ModuleName "Data.Tuple" ) + ( Name "Tuple" ) ) ) ( Ref Nothing ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "get" ) + ( ModuleName "Data.Unit" ) + ( Name "unit" ) ) :| [] ) ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x149" ) :| [] + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStateBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x148" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) + ) :| [] + ) + ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) + ( AppN Nothing + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStateBind.Test" ) + ( Name "bind" ) ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStateBind.Test" ) + ( Name "get" ) + ) :| [] + ) + ) + ( AbsN Nothing + ( ParamNamed Nothing + ( Name "x149" ) :| [] + ) + ( AppN Nothing ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "discard" ) - ) - ) - ( AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Tuple" ) - ( Name "Tuple" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "unit" ) - ) :| [] - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x149" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) - ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStateBind.Test" ) + ( Name "discard" ) ) ) ( AbsN Nothing @@ -990,61 +952,61 @@ UberModule ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "bind" ) + ( ModuleName "Data.Tuple" ) + ( Name "Tuple" ) ) ) ( Ref Nothing ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "get" ) + ( ModuleName "Data.Unit" ) + ( Name "unit" ) ) :| [] ) ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x150" ) :| [] + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStateBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x149" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) + ) :| [] + ) + ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) + ( AppN Nothing + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStateBind.Test" ) + ( Name "bind" ) ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStateBind.Test" ) + ( Name "get" ) + ) :| [] + ) + ) + ( AbsN Nothing + ( ParamNamed Nothing + ( Name "x150" ) :| [] + ) + ( AppN Nothing ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "discard" ) - ) - ) - ( AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Tuple" ) - ( Name "Tuple" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "unit" ) - ) :| [] - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x150" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) - ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStateBind.Test" ) + ( Name "discard" ) ) ) ( AbsN Nothing @@ -1053,38 +1015,79 @@ UberModule ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "bind" ) + ( ModuleName "Data.Tuple" ) + ( Name "Tuple" ) ) ) ( Ref Nothing ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "get" ) + ( ModuleName "Data.Unit" ) + ( Name "unit" ) ) :| [] ) ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "final" ) :| [] + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStateBind.Test" ) + ( Name "add$w" ) + ) ) - ( AppN Nothing - ( ObjectProp Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Control.Monad.State.Trans" ) - ( Name "applicativeStateT" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Identity" ) - ( Name "monadIdentity" ) - ) :| [] + ( Ref Nothing + ( Local + ( Name "x150" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) + ) :| [] + ) + ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) + ( AppN Nothing + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStateBind.Test" ) + ( Name "bind" ) + ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStateBind.Test" ) + ( Name "get" ) + ) :| [] + ) + ) + ( AbsN Nothing + ( ParamNamed Nothing + ( Name "final" ) :| [] + ) + ( AppN Nothing + ( ObjectProp Nothing + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Control.Monad.State.Trans" ) + ( Name "applicativeStateT" ) ) ) - ( PropName "pure" ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Identity" ) + ( Name "monadIdentity" ) + ) :| [] + ) + ) + ( PropName "pure" ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStateBind.Test" ) + ( Name "add$w" ) + ) ) ( AppN Nothing ( Ref Nothing @@ -1093,235 +1096,190 @@ UberModule ( Name "add$w" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x1$1461" ) - ) :| - [ Ref Nothing - ( Local - ( Name "x100$1462" ) - ) - ] + ( Ref Nothing + ( Local + ( Name "x1$1461" ) ) :| [ Ref Nothing ( Local - ( Name "final" ) + ( Name "x100$1462" ) ) ] - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) + ) :| + [ Ref Nothing + ( Local + ( Name "final" ) + ) + ] + ) :| [] + ) + ) :| [] + ) + ) :| [] + ) + ) :| [] + ) + ) :| [] + ) + ) :| [] + ) + ) :| [] + ) + ) :| [] + ) + ) :| [] + ) + ) :| [] + ) + ) :| [] + ) + ) :| [] + ) + ) :| [] + ) + ) :| [] + ) + ) :| [] + ) + ) :| [] + ) + ) :| [] + ) + ) :| [] + ) + ) :| [] + ) + ) :| [] + ) + ) :| [] + ) + ) :| [] ) ) ) :| [ Standalone - ( Nothing, Name "$kont1463", AbsN Nothing - ( ParamNamed Nothing ( Name "x1$1464" ) :| [] ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "x100$1465" ) :| [] ) + ( Nothing, Name "$kont1463$w", AbsN Nothing + ( ParamNamed Nothing + ( Name "x1$1464" ) :| + [ ParamNamed Nothing ( Name "x100$1465" ) ] + ) + ( AppN Nothing ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "bind" ) ) - ) - ( Ref Nothing - ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "get" ) ) :| [] - ) + ( Ref Nothing + ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "bind" ) ) ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "x121" ) :| [] ) + ( Ref Nothing + ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "get" ) ) :| [] + ) + ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x121" ) :| [] ) + ( AppN Nothing ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "discard" ) ) - ) - ( AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Data.Tuple" ) ( Name "Tuple" ) ) - ) - ( Ref Nothing - ( Imported ( ModuleName "Data.Unit" ) ( Name "unit" ) ) :| [] - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local ( Name "x121" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) - ) :| [] - ) + ( Ref Nothing + ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "discard" ) ) ) ( AbsN Nothing ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "bind" ) - ) + ( Imported ( ModuleName "Data.Tuple" ) ( Name "Tuple" ) ) + ) + ( Ref Nothing + ( Imported ( ModuleName "Data.Unit" ) ( Name "unit" ) ) :| [] ) + ) + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "get" ) - ) :| [] + ( Name "add$w" ) + ) ) + ( Ref Nothing + ( Local ( Name "x121" ) ) :| + [ LiteralInt Nothing 1 ] + ) :| [] ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "x122" ) :| [] ) + ) :| [] + ) + ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) + ( AppN Nothing + ( AppN Nothing + ( Ref Nothing + ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "bind" ) ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStateBind.Test" ) + ( Name "get" ) + ) :| [] + ) + ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x122" ) :| [] ) + ( AppN Nothing ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "discard" ) - ) - ) - ( AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Data.Tuple" ) ( Name "Tuple" ) ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "unit" ) - ) :| [] - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local ( Name "x122" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) - ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStateBind.Test" ) + ( Name "discard" ) ) ) ( AbsN Nothing ( ParamUnused Nothing :| [] ) ( AppN Nothing + ( AppN Nothing + ( Ref Nothing + ( Imported ( ModuleName "Data.Tuple" ) ( Name "Tuple" ) ) + ) + ( Ref Nothing + ( Imported ( ModuleName "Data.Unit" ) ( Name "unit" ) ) :| [] + ) + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "bind" ) + ( Name "add$w" ) ) ) ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "get" ) - ) :| [] + ( Local ( Name "x122" ) ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) + ) :| [] + ) + ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) + ( AppN Nothing + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStateBind.Test" ) + ( Name "bind" ) ) ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "x123" ) :| [] ) + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStateBind.Test" ) + ( Name "get" ) + ) :| [] + ) + ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x123" ) :| [] ) + ( AppN Nothing ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "discard" ) - ) - ) - ( AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Tuple" ) - ( Name "Tuple" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "unit" ) - ) :| [] - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local ( Name "x123" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) - ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStateBind.Test" ) + ( Name "discard" ) ) ) ( AbsN Nothing @@ -1330,57 +1288,57 @@ UberModule ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "bind" ) + ( ModuleName "Data.Tuple" ) + ( Name "Tuple" ) ) ) ( Ref Nothing ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "get" ) + ( ModuleName "Data.Unit" ) + ( Name "unit" ) ) :| [] ) ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "x124" ) :| [] ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStateBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local ( Name "x123" ) ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) + ) :| [] + ) + ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) + ( AppN Nothing + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStateBind.Test" ) + ( Name "bind" ) + ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStateBind.Test" ) + ( Name "get" ) + ) :| [] + ) + ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x124" ) :| [] ) + ( AppN Nothing ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "discard" ) - ) - ) - ( AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Tuple" ) - ( Name "Tuple" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "unit" ) - ) :| [] - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local ( Name "x124" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) - ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStateBind.Test" ) + ( Name "discard" ) ) ) ( AbsN Nothing @@ -1389,57 +1347,57 @@ UberModule ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "bind" ) + ( ModuleName "Data.Tuple" ) + ( Name "Tuple" ) ) ) ( Ref Nothing ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "get" ) + ( ModuleName "Data.Unit" ) + ( Name "unit" ) ) :| [] ) ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "x125" ) :| [] ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStateBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local ( Name "x124" ) ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) + ) :| [] + ) + ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) + ( AppN Nothing + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStateBind.Test" ) + ( Name "bind" ) + ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStateBind.Test" ) + ( Name "get" ) + ) :| [] + ) + ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x125" ) :| [] ) + ( AppN Nothing ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "discard" ) - ) - ) - ( AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Tuple" ) - ( Name "Tuple" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "unit" ) - ) :| [] - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local ( Name "x125" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) - ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStateBind.Test" ) + ( Name "discard" ) ) ) ( AbsN Nothing @@ -1448,124 +1406,120 @@ UberModule ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "bind" ) + ( ModuleName "Data.Tuple" ) + ( Name "Tuple" ) ) ) ( Ref Nothing ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "get" ) + ( ModuleName "Data.Unit" ) + ( Name "unit" ) ) :| [] ) ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x126" ) :| [] + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStateBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local ( Name "x125" ) ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) + ) :| [] + ) + ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) + ( AppN Nothing + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStateBind.Test" ) + ( Name "bind" ) ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStateBind.Test" ) + ( Name "get" ) + ) :| [] + ) + ) + ( AbsN Nothing + ( ParamNamed Nothing + ( Name "x126" ) :| [] + ) + ( AppN Nothing ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "discard" ) - ) + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStateBind.Test" ) + ( Name "discard" ) ) - ( AbsN Nothing - ( ParamUnused Nothing :| [] ) + ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) + ( AppN Nothing ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Tuple" ) - ( Name "Tuple" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "unit" ) - ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Tuple" ) + ( Name "Tuple" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x126" ) - ) :| - [ LiteralInt Nothing 1 ] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) ) :| [] ) - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( AppN Nothing + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "bind" ) + ( Name "add$w" ) ) ) ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "get" ) - ) :| [] - ) + ( Local ( Name "x126" ) ) :| + [ LiteralInt Nothing 1 ] + ) :| [] ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x127" ) :| [] + ) :| [] + ) + ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) + ( AppN Nothing + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStateBind.Test" ) + ( Name "bind" ) ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStateBind.Test" ) + ( Name "get" ) + ) :| [] + ) + ) + ( AbsN Nothing + ( ParamNamed Nothing + ( Name "x127" ) :| [] + ) + ( AppN Nothing ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "discard" ) - ) - ) - ( AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Tuple" ) - ( Name "Tuple" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "unit" ) - ) :| [] - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x127" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) - ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStateBind.Test" ) + ( Name "discard" ) ) ) ( AbsN Nothing @@ -1574,61 +1528,61 @@ UberModule ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "bind" ) + ( ModuleName "Data.Tuple" ) + ( Name "Tuple" ) ) ) ( Ref Nothing ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "get" ) + ( ModuleName "Data.Unit" ) + ( Name "unit" ) ) :| [] ) ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x128" ) :| [] + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStateBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x127" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) + ) :| [] + ) + ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) + ( AppN Nothing + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStateBind.Test" ) + ( Name "bind" ) ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStateBind.Test" ) + ( Name "get" ) + ) :| [] + ) + ) + ( AbsN Nothing + ( ParamNamed Nothing + ( Name "x128" ) :| [] + ) + ( AppN Nothing ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "discard" ) - ) - ) - ( AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Tuple" ) - ( Name "Tuple" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "unit" ) - ) :| [] - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x128" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) - ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStateBind.Test" ) + ( Name "discard" ) ) ) ( AbsN Nothing @@ -1637,61 +1591,61 @@ UberModule ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "bind" ) + ( ModuleName "Data.Tuple" ) + ( Name "Tuple" ) ) ) ( Ref Nothing ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "get" ) + ( ModuleName "Data.Unit" ) + ( Name "unit" ) ) :| [] ) ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x129" ) :| [] + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStateBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x128" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) + ) :| [] + ) + ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) + ( AppN Nothing + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStateBind.Test" ) + ( Name "bind" ) ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStateBind.Test" ) + ( Name "get" ) + ) :| [] + ) + ) + ( AbsN Nothing + ( ParamNamed Nothing + ( Name "x129" ) :| [] + ) + ( AppN Nothing ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "discard" ) - ) - ) - ( AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Tuple" ) - ( Name "Tuple" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "unit" ) - ) :| [] - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x129" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) - ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStateBind.Test" ) + ( Name "discard" ) ) ) ( AbsN Nothing @@ -1700,61 +1654,61 @@ UberModule ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "bind" ) + ( ModuleName "Data.Tuple" ) + ( Name "Tuple" ) ) ) ( Ref Nothing ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "get" ) + ( ModuleName "Data.Unit" ) + ( Name "unit" ) ) :| [] ) ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x130" ) :| [] + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStateBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x129" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) + ) :| [] + ) + ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) + ( AppN Nothing + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStateBind.Test" ) + ( Name "bind" ) ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStateBind.Test" ) + ( Name "get" ) + ) :| [] + ) + ) + ( AbsN Nothing + ( ParamNamed Nothing + ( Name "x130" ) :| [] + ) + ( AppN Nothing ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "discard" ) - ) - ) - ( AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Tuple" ) - ( Name "Tuple" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "unit" ) - ) :| [] - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x130" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) - ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStateBind.Test" ) + ( Name "discard" ) ) ) ( AbsN Nothing @@ -1763,61 +1717,61 @@ UberModule ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "bind" ) + ( ModuleName "Data.Tuple" ) + ( Name "Tuple" ) ) ) ( Ref Nothing ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "get" ) + ( ModuleName "Data.Unit" ) + ( Name "unit" ) ) :| [] ) ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x131" ) :| [] + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStateBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x130" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) + ) :| [] + ) + ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) + ( AppN Nothing + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStateBind.Test" ) + ( Name "bind" ) ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStateBind.Test" ) + ( Name "get" ) + ) :| [] + ) + ) + ( AbsN Nothing + ( ParamNamed Nothing + ( Name "x131" ) :| [] + ) + ( AppN Nothing ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "discard" ) - ) - ) - ( AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Tuple" ) - ( Name "Tuple" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "unit" ) - ) :| [] - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x131" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) - ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStateBind.Test" ) + ( Name "discard" ) ) ) ( AbsN Nothing @@ -1826,61 +1780,61 @@ UberModule ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "bind" ) + ( ModuleName "Data.Tuple" ) + ( Name "Tuple" ) ) ) ( Ref Nothing ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "get" ) + ( ModuleName "Data.Unit" ) + ( Name "unit" ) ) :| [] ) ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x132" ) :| [] + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStateBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x131" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) + ) :| [] + ) + ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) + ( AppN Nothing + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStateBind.Test" ) + ( Name "bind" ) ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStateBind.Test" ) + ( Name "get" ) + ) :| [] + ) + ) + ( AbsN Nothing + ( ParamNamed Nothing + ( Name "x132" ) :| [] + ) + ( AppN Nothing ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "discard" ) - ) - ) - ( AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Tuple" ) - ( Name "Tuple" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "unit" ) - ) :| [] - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x132" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) - ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStateBind.Test" ) + ( Name "discard" ) ) ) ( AbsN Nothing @@ -1889,61 +1843,61 @@ UberModule ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "bind" ) + ( ModuleName "Data.Tuple" ) + ( Name "Tuple" ) ) ) ( Ref Nothing ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "get" ) + ( ModuleName "Data.Unit" ) + ( Name "unit" ) ) :| [] ) ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x133" ) :| [] + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStateBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x132" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) + ) :| [] + ) + ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) + ( AppN Nothing + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStateBind.Test" ) + ( Name "bind" ) ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStateBind.Test" ) + ( Name "get" ) + ) :| [] + ) + ) + ( AbsN Nothing + ( ParamNamed Nothing + ( Name "x133" ) :| [] + ) + ( AppN Nothing ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "discard" ) - ) - ) - ( AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Tuple" ) - ( Name "Tuple" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "unit" ) - ) :| [] - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x133" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) - ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStateBind.Test" ) + ( Name "discard" ) ) ) ( AbsN Nothing @@ -1952,61 +1906,61 @@ UberModule ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "bind" ) + ( ModuleName "Data.Tuple" ) + ( Name "Tuple" ) ) ) ( Ref Nothing ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "get" ) + ( ModuleName "Data.Unit" ) + ( Name "unit" ) ) :| [] ) ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x134" ) :| [] + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStateBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x133" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) + ) :| [] + ) + ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) + ( AppN Nothing + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStateBind.Test" ) + ( Name "bind" ) ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStateBind.Test" ) + ( Name "get" ) + ) :| [] + ) + ) + ( AbsN Nothing + ( ParamNamed Nothing + ( Name "x134" ) :| [] + ) + ( AppN Nothing ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "discard" ) - ) - ) - ( AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Tuple" ) - ( Name "Tuple" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "unit" ) - ) :| [] - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x134" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) - ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStateBind.Test" ) + ( Name "discard" ) ) ) ( AbsN Nothing @@ -2015,61 +1969,61 @@ UberModule ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "bind" ) + ( ModuleName "Data.Tuple" ) + ( Name "Tuple" ) ) ) ( Ref Nothing ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "get" ) + ( ModuleName "Data.Unit" ) + ( Name "unit" ) ) :| [] ) ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x135" ) :| [] + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStateBind.Test" ) + ( Name "add$w" ) + ) ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "discard" ) - ) - ) - ( AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Tuple" ) - ( Name "Tuple" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "unit" ) - ) :| [] - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x135" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) - ) :| [] + ( Ref Nothing + ( Local + ( Name "x134" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) + ) :| [] + ) + ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) + ( AppN Nothing + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStateBind.Test" ) + ( Name "bind" ) + ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStateBind.Test" ) + ( Name "get" ) + ) :| [] + ) + ) + ( AbsN Nothing + ( ParamNamed Nothing + ( Name "x135" ) :| [] + ) + ( AppN Nothing + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStateBind.Test" ) + ( Name "discard" ) ) ) ( AbsN Nothing @@ -2078,61 +2032,61 @@ UberModule ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "bind" ) + ( ModuleName "Data.Tuple" ) + ( Name "Tuple" ) ) ) ( Ref Nothing ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "get" ) + ( ModuleName "Data.Unit" ) + ( Name "unit" ) ) :| [] ) ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x136" ) :| [] + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStateBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x135" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) + ) :| [] + ) + ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) + ( AppN Nothing + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStateBind.Test" ) + ( Name "bind" ) ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStateBind.Test" ) + ( Name "get" ) + ) :| [] + ) + ) + ( AbsN Nothing + ( ParamNamed Nothing + ( Name "x136" ) :| [] + ) + ( AppN Nothing ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "discard" ) - ) - ) - ( AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Tuple" ) - ( Name "Tuple" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "unit" ) - ) :| [] - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x136" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) - ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStateBind.Test" ) + ( Name "discard" ) ) ) ( AbsN Nothing @@ -2141,61 +2095,61 @@ UberModule ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "bind" ) + ( ModuleName "Data.Tuple" ) + ( Name "Tuple" ) ) ) ( Ref Nothing ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "get" ) + ( ModuleName "Data.Unit" ) + ( Name "unit" ) ) :| [] ) ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x137" ) :| [] + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStateBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x136" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) + ) :| [] + ) + ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) + ( AppN Nothing + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStateBind.Test" ) + ( Name "bind" ) ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStateBind.Test" ) + ( Name "get" ) + ) :| [] + ) + ) + ( AbsN Nothing + ( ParamNamed Nothing + ( Name "x137" ) :| [] + ) + ( AppN Nothing ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "discard" ) - ) - ) - ( AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Tuple" ) - ( Name "Tuple" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "unit" ) - ) :| [] - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x137" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) - ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStateBind.Test" ) + ( Name "discard" ) ) ) ( AbsN Nothing @@ -2204,61 +2158,61 @@ UberModule ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "bind" ) + ( ModuleName "Data.Tuple" ) + ( Name "Tuple" ) ) ) ( Ref Nothing ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "get" ) + ( ModuleName "Data.Unit" ) + ( Name "unit" ) ) :| [] ) ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x138" ) :| [] + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStateBind.Test" ) + ( Name "add$w" ) + ) ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "discard" ) - ) - ) - ( AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Tuple" ) - ( Name "Tuple" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "unit" ) - ) :| [] - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x138" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) - ) :| [] + ( Ref Nothing + ( Local + ( Name "x137" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) + ) :| [] + ) + ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) + ( AppN Nothing + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStateBind.Test" ) + ( Name "bind" ) + ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStateBind.Test" ) + ( Name "get" ) + ) :| [] + ) + ) + ( AbsN Nothing + ( ParamNamed Nothing + ( Name "x138" ) :| [] + ) + ( AppN Nothing + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStateBind.Test" ) + ( Name "discard" ) ) ) ( AbsN Nothing @@ -2267,61 +2221,61 @@ UberModule ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "bind" ) + ( ModuleName "Data.Tuple" ) + ( Name "Tuple" ) ) ) ( Ref Nothing ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "get" ) + ( ModuleName "Data.Unit" ) + ( Name "unit" ) ) :| [] ) ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x139" ) :| [] + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStateBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x138" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) + ) :| [] + ) + ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) + ( AppN Nothing + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStateBind.Test" ) + ( Name "bind" ) ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStateBind.Test" ) + ( Name "get" ) + ) :| [] + ) + ) + ( AbsN Nothing + ( ParamNamed Nothing + ( Name "x139" ) :| [] + ) + ( AppN Nothing ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "discard" ) - ) - ) - ( AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Tuple" ) - ( Name "Tuple" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "unit" ) - ) :| [] - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x139" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) - ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStateBind.Test" ) + ( Name "discard" ) ) ) ( AbsN Nothing @@ -2330,61 +2284,61 @@ UberModule ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "bind" ) + ( ModuleName "Data.Tuple" ) + ( Name "Tuple" ) ) ) ( Ref Nothing ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "get" ) + ( ModuleName "Data.Unit" ) + ( Name "unit" ) ) :| [] ) ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x140" ) :| [] + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStateBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x139" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) + ) :| [] + ) + ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) + ( AppN Nothing + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStateBind.Test" ) + ( Name "bind" ) ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStateBind.Test" ) + ( Name "get" ) + ) :| [] + ) + ) + ( AbsN Nothing + ( ParamNamed Nothing + ( Name "x140" ) :| [] + ) + ( AppN Nothing ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "discard" ) - ) - ) - ( AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Tuple" ) - ( Name "Tuple" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "unit" ) - ) :| [] - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x140" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) - ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStateBind.Test" ) + ( Name "discard" ) ) ) ( AbsN Nothing @@ -2392,263 +2346,257 @@ UberModule ( AppN Nothing ( AppN Nothing ( Ref Nothing - ( Local - ( Name "$kont1460" ) + ( Imported + ( ModuleName "Data.Tuple" ) + ( Name "Tuple" ) ) ) ( Ref Nothing - ( Local - ( Name "x1$1464" ) + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) ) :| [] ) ) - ( Ref Nothing - ( Local - ( Name "x100$1465" ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStateBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x140" ) + ) :| + [ LiteralInt Nothing 1 ] ) :| [] ) ) :| [] ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) + ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) + ( AppN Nothing + ( Ref Nothing + ( Local + ( Name "$kont1460$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x1$1464" ) + ) :| + [ Ref Nothing + ( Local + ( Name "x100$1465" ) + ) + ] + ) + ) :| [] + ) + ) :| [] + ) + ) :| [] + ) + ) :| [] + ) + ) :| [] + ) + ) :| [] + ) + ) :| [] + ) + ) :| [] + ) + ) :| [] + ) + ) :| [] + ) + ) :| [] + ) + ) :| [] + ) + ) :| [] + ) + ) :| [] + ) + ) :| [] + ) + ) :| [] + ) + ) :| [] + ) + ) :| [] + ) + ) :| [] + ) + ) :| [] + ) + ) :| [] + ) + ) :| [] + ) + ) :| [] + ) + ) :| [] + ) + ) :| [] + ) + ) :| [] + ) + ) :| [] + ) + ) :| [] + ) + ) :| [] + ) + ) :| [] + ) + ) :| [] + ) + ) :| [] + ) + ) :| [] + ) + ) :| [] + ) + ) :| [] + ) + ) :| [] + ) + ) :| [] + ) + ) :| [] + ) + ) :| [] + ) + ) :| [] ) ) ), Standalone - ( Nothing, Name "$kont1466", AbsN Nothing - ( ParamNamed Nothing ( Name "x1$1467" ) :| [] ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "x100$1468" ) :| [] ) + ( Nothing, Name "$kont1466$w", AbsN Nothing + ( ParamNamed Nothing + ( Name "x1$1467" ) :| + [ ParamNamed Nothing ( Name "x100$1468" ) ] + ) + ( AppN Nothing ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "bind" ) ) - ) - ( Ref Nothing - ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "get" ) ) :| [] - ) + ( Ref Nothing + ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "bind" ) ) ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "x101" ) :| [] ) + ( Ref Nothing + ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "get" ) ) :| [] + ) + ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x101" ) :| [] ) + ( AppN Nothing ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "discard" ) ) - ) - ( AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Data.Tuple" ) ( Name "Tuple" ) ) - ) - ( Ref Nothing - ( Imported ( ModuleName "Data.Unit" ) ( Name "unit" ) ) :| [] - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local ( Name "x101" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) - ) :| [] - ) + ( Ref Nothing + ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "discard" ) ) ) ( AbsN Nothing ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "bind" ) - ) + ( Imported ( ModuleName "Data.Tuple" ) ( Name "Tuple" ) ) ) + ( Ref Nothing + ( Imported ( ModuleName "Data.Unit" ) ( Name "unit" ) ) :| [] + ) + ) + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "get" ) - ) :| [] + ( Name "add$w" ) + ) ) + ( Ref Nothing + ( Local ( Name "x101" ) ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) + ) :| [] + ) + ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) + ( AppN Nothing + ( AppN Nothing + ( Ref Nothing + ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "bind" ) ) ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "x102" ) :| [] ) + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStateBind.Test" ) + ( Name "get" ) + ) :| [] + ) + ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x102" ) :| [] ) + ( AppN Nothing ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "discard" ) - ) - ) - ( AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Data.Tuple" ) ( Name "Tuple" ) ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "unit" ) - ) :| [] - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local ( Name "x102" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) - ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStateBind.Test" ) + ( Name "discard" ) ) ) ( AbsN Nothing ( ParamUnused Nothing :| [] ) ( AppN Nothing + ( AppN Nothing + ( Ref Nothing + ( Imported ( ModuleName "Data.Tuple" ) ( Name "Tuple" ) ) + ) + ( Ref Nothing + ( Imported ( ModuleName "Data.Unit" ) ( Name "unit" ) ) :| [] + ) + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "bind" ) + ( Name "add$w" ) ) ) ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "get" ) - ) :| [] + ( Local ( Name "x102" ) ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) + ) :| [] + ) + ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) + ( AppN Nothing + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStateBind.Test" ) + ( Name "bind" ) ) ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "x103" ) :| [] ) + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStateBind.Test" ) + ( Name "get" ) + ) :| [] + ) + ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x103" ) :| [] ) + ( AppN Nothing ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "discard" ) - ) - ) - ( AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Tuple" ) - ( Name "Tuple" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "unit" ) - ) :| [] - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local ( Name "x103" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) - ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStateBind.Test" ) + ( Name "discard" ) ) ) ( AbsN Nothing @@ -2657,57 +2605,57 @@ UberModule ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "bind" ) + ( ModuleName "Data.Tuple" ) + ( Name "Tuple" ) ) ) ( Ref Nothing ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "get" ) + ( ModuleName "Data.Unit" ) + ( Name "unit" ) ) :| [] ) ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "x104" ) :| [] ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStateBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local ( Name "x103" ) ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) + ) :| [] + ) + ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) + ( AppN Nothing + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStateBind.Test" ) + ( Name "bind" ) + ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStateBind.Test" ) + ( Name "get" ) + ) :| [] + ) + ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x104" ) :| [] ) + ( AppN Nothing ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "discard" ) - ) - ) - ( AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Tuple" ) - ( Name "Tuple" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "unit" ) - ) :| [] - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local ( Name "x104" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) - ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStateBind.Test" ) + ( Name "discard" ) ) ) ( AbsN Nothing @@ -2716,57 +2664,57 @@ UberModule ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "bind" ) + ( ModuleName "Data.Tuple" ) + ( Name "Tuple" ) ) ) ( Ref Nothing ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "get" ) + ( ModuleName "Data.Unit" ) + ( Name "unit" ) ) :| [] ) ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "x105" ) :| [] ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStateBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local ( Name "x104" ) ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) + ) :| [] + ) + ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) + ( AppN Nothing + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStateBind.Test" ) + ( Name "bind" ) + ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStateBind.Test" ) + ( Name "get" ) + ) :| [] + ) + ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x105" ) :| [] ) + ( AppN Nothing ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "discard" ) - ) - ) - ( AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Tuple" ) - ( Name "Tuple" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "unit" ) - ) :| [] - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local ( Name "x105" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) - ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStateBind.Test" ) + ( Name "discard" ) ) ) ( AbsN Nothing @@ -2775,61 +2723,59 @@ UberModule ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "bind" ) + ( ModuleName "Data.Tuple" ) + ( Name "Tuple" ) ) ) ( Ref Nothing ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "get" ) + ( ModuleName "Data.Unit" ) + ( Name "unit" ) ) :| [] ) ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x106" ) :| [] + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStateBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local ( Name "x105" ) ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) + ) :| [] + ) + ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) + ( AppN Nothing + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStateBind.Test" ) + ( Name "bind" ) ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStateBind.Test" ) + ( Name "get" ) + ) :| [] + ) + ) + ( AbsN Nothing + ( ParamNamed Nothing + ( Name "x106" ) :| [] + ) + ( AppN Nothing ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "discard" ) - ) - ) - ( AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Tuple" ) - ( Name "Tuple" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "unit" ) - ) :| [] - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x106" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) - ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStateBind.Test" ) + ( Name "discard" ) ) ) ( AbsN Nothing @@ -2838,61 +2784,59 @@ UberModule ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "bind" ) + ( ModuleName "Data.Tuple" ) + ( Name "Tuple" ) ) ) ( Ref Nothing ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "get" ) + ( ModuleName "Data.Unit" ) + ( Name "unit" ) ) :| [] ) ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x107" ) :| [] + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStateBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local ( Name "x106" ) ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) + ) :| [] + ) + ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) + ( AppN Nothing + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStateBind.Test" ) + ( Name "bind" ) ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStateBind.Test" ) + ( Name "get" ) + ) :| [] + ) + ) + ( AbsN Nothing + ( ParamNamed Nothing + ( Name "x107" ) :| [] + ) + ( AppN Nothing ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "discard" ) - ) - ) - ( AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Tuple" ) - ( Name "Tuple" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "unit" ) - ) :| [] - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x107" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) - ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStateBind.Test" ) + ( Name "discard" ) ) ) ( AbsN Nothing @@ -2901,61 +2845,61 @@ UberModule ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "bind" ) + ( ModuleName "Data.Tuple" ) + ( Name "Tuple" ) ) ) ( Ref Nothing ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "get" ) + ( ModuleName "Data.Unit" ) + ( Name "unit" ) ) :| [] ) ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x108" ) :| [] + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStateBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x107" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) + ) :| [] + ) + ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) + ( AppN Nothing + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStateBind.Test" ) + ( Name "bind" ) ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStateBind.Test" ) + ( Name "get" ) + ) :| [] + ) + ) + ( AbsN Nothing + ( ParamNamed Nothing + ( Name "x108" ) :| [] + ) + ( AppN Nothing ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "discard" ) - ) - ) - ( AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Tuple" ) - ( Name "Tuple" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "unit" ) - ) :| [] - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x108" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) - ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStateBind.Test" ) + ( Name "discard" ) ) ) ( AbsN Nothing @@ -2964,61 +2908,61 @@ UberModule ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "bind" ) + ( ModuleName "Data.Tuple" ) + ( Name "Tuple" ) ) ) ( Ref Nothing ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "get" ) + ( ModuleName "Data.Unit" ) + ( Name "unit" ) ) :| [] ) ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x109" ) :| [] + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStateBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x108" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) + ) :| [] + ) + ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) + ( AppN Nothing + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStateBind.Test" ) + ( Name "bind" ) ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStateBind.Test" ) + ( Name "get" ) + ) :| [] + ) + ) + ( AbsN Nothing + ( ParamNamed Nothing + ( Name "x109" ) :| [] + ) + ( AppN Nothing ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "discard" ) - ) - ) - ( AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Tuple" ) - ( Name "Tuple" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "unit" ) - ) :| [] - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x109" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) - ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStateBind.Test" ) + ( Name "discard" ) ) ) ( AbsN Nothing @@ -3027,61 +2971,61 @@ UberModule ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "bind" ) + ( ModuleName "Data.Tuple" ) + ( Name "Tuple" ) ) ) ( Ref Nothing ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "get" ) + ( ModuleName "Data.Unit" ) + ( Name "unit" ) ) :| [] ) ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x110" ) :| [] + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStateBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x109" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) + ) :| [] + ) + ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) + ( AppN Nothing + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStateBind.Test" ) + ( Name "bind" ) ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStateBind.Test" ) + ( Name "get" ) + ) :| [] + ) + ) + ( AbsN Nothing + ( ParamNamed Nothing + ( Name "x110" ) :| [] + ) + ( AppN Nothing ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "discard" ) - ) - ) - ( AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Tuple" ) - ( Name "Tuple" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "unit" ) - ) :| [] - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x110" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) - ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStateBind.Test" ) + ( Name "discard" ) ) ) ( AbsN Nothing @@ -3090,61 +3034,61 @@ UberModule ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "bind" ) + ( ModuleName "Data.Tuple" ) + ( Name "Tuple" ) ) ) ( Ref Nothing ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "get" ) + ( ModuleName "Data.Unit" ) + ( Name "unit" ) ) :| [] ) ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x111" ) :| [] - ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStateBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x110" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) + ) :| [] + ) + ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) + ( AppN Nothing + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStateBind.Test" ) + ( Name "bind" ) + ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStateBind.Test" ) + ( Name "get" ) + ) :| [] + ) + ) + ( AbsN Nothing + ( ParamNamed Nothing + ( Name "x111" ) :| [] + ) + ( AppN Nothing ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "discard" ) - ) - ) - ( AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Tuple" ) - ( Name "Tuple" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "unit" ) - ) :| [] - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x111" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) - ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStateBind.Test" ) + ( Name "discard" ) ) ) ( AbsN Nothing @@ -3153,61 +3097,61 @@ UberModule ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "bind" ) + ( ModuleName "Data.Tuple" ) + ( Name "Tuple" ) ) ) ( Ref Nothing ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "get" ) + ( ModuleName "Data.Unit" ) + ( Name "unit" ) ) :| [] ) ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x112" ) :| [] + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStateBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x111" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) + ) :| [] + ) + ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) + ( AppN Nothing + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStateBind.Test" ) + ( Name "bind" ) ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStateBind.Test" ) + ( Name "get" ) + ) :| [] + ) + ) + ( AbsN Nothing + ( ParamNamed Nothing + ( Name "x112" ) :| [] + ) + ( AppN Nothing ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "discard" ) - ) - ) - ( AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Tuple" ) - ( Name "Tuple" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "unit" ) - ) :| [] - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x112" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) - ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStateBind.Test" ) + ( Name "discard" ) ) ) ( AbsN Nothing @@ -3216,61 +3160,61 @@ UberModule ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "bind" ) + ( ModuleName "Data.Tuple" ) + ( Name "Tuple" ) ) ) ( Ref Nothing ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "get" ) + ( ModuleName "Data.Unit" ) + ( Name "unit" ) ) :| [] ) ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x113" ) :| [] + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStateBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x112" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) + ) :| [] + ) + ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) + ( AppN Nothing + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStateBind.Test" ) + ( Name "bind" ) ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStateBind.Test" ) + ( Name "get" ) + ) :| [] + ) + ) + ( AbsN Nothing + ( ParamNamed Nothing + ( Name "x113" ) :| [] + ) + ( AppN Nothing ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "discard" ) - ) - ) - ( AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Tuple" ) - ( Name "Tuple" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "unit" ) - ) :| [] - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x113" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) - ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStateBind.Test" ) + ( Name "discard" ) ) ) ( AbsN Nothing @@ -3279,61 +3223,61 @@ UberModule ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "bind" ) + ( ModuleName "Data.Tuple" ) + ( Name "Tuple" ) ) ) ( Ref Nothing ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "get" ) + ( ModuleName "Data.Unit" ) + ( Name "unit" ) ) :| [] ) ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x114" ) :| [] - ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStateBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x113" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) + ) :| [] + ) + ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) + ( AppN Nothing + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStateBind.Test" ) + ( Name "bind" ) + ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStateBind.Test" ) + ( Name "get" ) + ) :| [] + ) + ) + ( AbsN Nothing + ( ParamNamed Nothing + ( Name "x114" ) :| [] + ) + ( AppN Nothing ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "discard" ) - ) - ) - ( AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Tuple" ) - ( Name "Tuple" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "unit" ) - ) :| [] - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x114" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) - ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStateBind.Test" ) + ( Name "discard" ) ) ) ( AbsN Nothing @@ -3342,61 +3286,61 @@ UberModule ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "bind" ) + ( ModuleName "Data.Tuple" ) + ( Name "Tuple" ) ) ) ( Ref Nothing ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "get" ) + ( ModuleName "Data.Unit" ) + ( Name "unit" ) ) :| [] ) ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x115" ) :| [] + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStateBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x114" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) + ) :| [] + ) + ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) + ( AppN Nothing + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStateBind.Test" ) + ( Name "bind" ) ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStateBind.Test" ) + ( Name "get" ) + ) :| [] + ) + ) + ( AbsN Nothing + ( ParamNamed Nothing + ( Name "x115" ) :| [] + ) + ( AppN Nothing ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "discard" ) - ) - ) - ( AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Tuple" ) - ( Name "Tuple" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "unit" ) - ) :| [] - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x115" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) - ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStateBind.Test" ) + ( Name "discard" ) ) ) ( AbsN Nothing @@ -3405,61 +3349,61 @@ UberModule ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "bind" ) + ( ModuleName "Data.Tuple" ) + ( Name "Tuple" ) ) ) ( Ref Nothing ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "get" ) + ( ModuleName "Data.Unit" ) + ( Name "unit" ) ) :| [] ) ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x116" ) :| [] + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStateBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x115" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) + ) :| [] + ) + ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) + ( AppN Nothing + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStateBind.Test" ) + ( Name "bind" ) ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStateBind.Test" ) + ( Name "get" ) + ) :| [] + ) + ) + ( AbsN Nothing + ( ParamNamed Nothing + ( Name "x116" ) :| [] + ) + ( AppN Nothing ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "discard" ) - ) - ) - ( AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Tuple" ) - ( Name "Tuple" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "unit" ) - ) :| [] - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x116" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) - ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStateBind.Test" ) + ( Name "discard" ) ) ) ( AbsN Nothing @@ -3468,61 +3412,61 @@ UberModule ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "bind" ) + ( ModuleName "Data.Tuple" ) + ( Name "Tuple" ) ) ) ( Ref Nothing ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "get" ) + ( ModuleName "Data.Unit" ) + ( Name "unit" ) ) :| [] ) ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x117" ) :| [] + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStateBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x116" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) + ) :| [] + ) + ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) + ( AppN Nothing + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStateBind.Test" ) + ( Name "bind" ) ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStateBind.Test" ) + ( Name "get" ) + ) :| [] + ) + ) + ( AbsN Nothing + ( ParamNamed Nothing + ( Name "x117" ) :| [] + ) + ( AppN Nothing ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "discard" ) - ) - ) - ( AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Tuple" ) - ( Name "Tuple" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "unit" ) - ) :| [] - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x117" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) - ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStateBind.Test" ) + ( Name "discard" ) ) ) ( AbsN Nothing @@ -3531,61 +3475,61 @@ UberModule ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "bind" ) + ( ModuleName "Data.Tuple" ) + ( Name "Tuple" ) ) ) ( Ref Nothing ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "get" ) + ( ModuleName "Data.Unit" ) + ( Name "unit" ) ) :| [] ) ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x118" ) :| [] + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStateBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x117" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) + ) :| [] + ) + ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) + ( AppN Nothing + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStateBind.Test" ) + ( Name "bind" ) ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStateBind.Test" ) + ( Name "get" ) + ) :| [] + ) + ) + ( AbsN Nothing + ( ParamNamed Nothing + ( Name "x118" ) :| [] + ) + ( AppN Nothing ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "discard" ) - ) - ) - ( AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Tuple" ) - ( Name "Tuple" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "unit" ) - ) :| [] - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x118" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) - ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStateBind.Test" ) + ( Name "discard" ) ) ) ( AbsN Nothing @@ -3594,124 +3538,124 @@ UberModule ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "bind" ) + ( ModuleName "Data.Tuple" ) + ( Name "Tuple" ) ) ) ( Ref Nothing ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "get" ) + ( ModuleName "Data.Unit" ) + ( Name "unit" ) ) :| [] ) ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x119" ) :| [] + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStateBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x118" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) + ) :| [] + ) + ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) + ( AppN Nothing + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStateBind.Test" ) + ( Name "bind" ) ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStateBind.Test" ) + ( Name "get" ) + ) :| [] + ) + ) + ( AbsN Nothing + ( ParamNamed Nothing + ( Name "x119" ) :| [] + ) + ( AppN Nothing ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "discard" ) - ) - ) - ( AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Tuple" ) - ( Name "Tuple" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "unit" ) - ) :| [] - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x119" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) - ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStateBind.Test" ) + ( Name "discard" ) ) ) ( AbsN Nothing ( ParamUnused Nothing :| [] ) ( AppN Nothing + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Tuple" ) + ( Name "Tuple" ) + ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] + ) + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "bind" ) + ( Name "add$w" ) ) ) ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "get" ) - ) :| [] - ) + ( Local + ( Name "x119" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x120" ) :| [] + ) :| [] + ) + ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) + ( AppN Nothing + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStateBind.Test" ) + ( Name "bind" ) ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStateBind.Test" ) + ( Name "get" ) + ) :| [] + ) + ) + ( AbsN Nothing + ( ParamNamed Nothing + ( Name "x120" ) :| [] + ) + ( AppN Nothing ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "discard" ) - ) - ) - ( AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Tuple" ) - ( Name "Tuple" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "unit" ) - ) :| [] - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x120" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) - ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStateBind.Test" ) + ( Name "discard" ) ) ) ( AbsN Nothing @@ -3719,101 +3663,132 @@ UberModule ( AppN Nothing ( AppN Nothing ( Ref Nothing - ( Local - ( Name "$kont1463" ) + ( Imported + ( ModuleName "Data.Tuple" ) + ( Name "Tuple" ) ) ) ( Ref Nothing - ( Local - ( Name "x1$1467" ) + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) ) :| [] ) ) - ( Ref Nothing - ( Local - ( Name "x100$1468" ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStateBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x120" ) + ) :| + [ LiteralInt Nothing 1 ] ) :| [] ) ) :| [] ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) + ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) + ( AppN Nothing + ( Ref Nothing + ( Local + ( Name "$kont1463$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x1$1467" ) + ) :| + [ Ref Nothing + ( Local + ( Name "x100$1468" ) + ) + ] + ) + ) :| [] + ) + ) :| [] + ) + ) :| [] + ) + ) :| [] + ) + ) :| [] + ) + ) :| [] + ) + ) :| [] + ) + ) :| [] + ) + ) :| [] + ) + ) :| [] + ) + ) :| [] + ) + ) :| [] + ) + ) :| [] + ) + ) :| [] + ) + ) :| [] + ) + ) :| [] + ) + ) :| [] + ) + ) :| [] + ) + ) :| [] + ) + ) :| [] + ) + ) :| [] + ) + ) :| [] + ) + ) :| [] + ) + ) :| [] + ) + ) :| [] + ) + ) :| [] + ) + ) :| [] + ) + ) :| [] + ) + ) :| [] + ) + ) :| [] + ) + ) :| [] + ) + ) :| [] + ) + ) :| [] + ) + ) :| [] + ) + ) :| [] + ) + ) :| [] + ) + ) :| [] + ) + ) :| [] + ) + ) :| [] + ) + ) :| [] ) ) ), Standalone @@ -5034,22 +5009,20 @@ UberModule ( AbsN Nothing ( ParamUnused Nothing :| [] ) ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Local - ( Name "$kont1466" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x1$1470" ) - ) :| [] + ( Ref Nothing + ( Local + ( Name "$kont1466$w" ) ) ) ( Ref Nothing ( Local - ( Name "x100" ) - ) :| [] + ( Name "x1$1470" ) + ) :| + [ Ref Nothing + ( Local + ( Name "x100" ) + ) + ] ) ) :| [] ) diff --git a/test/ps/output/Golden.LongStateBind.Test/golden.lua b/test/ps/output/Golden.LongStateBind.Test/golden.lua index 8e7d9803..04b1f7ec 100644 --- a/test/ps/output/Golden.LongStateBind.Test/golden.lua +++ b/test/ps/output/Golden.LongStateBind.Test/golden.lua @@ -114,51 +114,49 @@ local Golden_LongStateBind_Test_add_S_w = function(x_S_532, y_S_533) return x_S_532 + y_S_533 end local Golden_LongStateBind_Test_go = (function() - local _S_kont1460 = function(x1_S_1461) - return function(x100_S_1462) - return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x141 ) - return Golden_LongStateBind_Test_discard(function() - return Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStateBind_Test_add_S_w(x141, 1)) - end)(function() - return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x142 ) - return Golden_LongStateBind_Test_discard(function() - return Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStateBind_Test_add_S_w(x142, 1)) - end)(function() - return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x143 ) - return Golden_LongStateBind_Test_discard(function() - return Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStateBind_Test_add_S_w(x143, 1)) - end)(function() - return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x144 ) - return Golden_LongStateBind_Test_discard(function() - return Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStateBind_Test_add_S_w(x144, 1)) - end)(function() - return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x145 ) - return Golden_LongStateBind_Test_discard(function() - return Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStateBind_Test_add_S_w(x145, 1)) - end)(function() - return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x146 ) - return Golden_LongStateBind_Test_discard(function() - return Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStateBind_Test_add_S_w(x146, 1)) - end)(function() - return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x147 ) - return Golden_LongStateBind_Test_discard(function( ) - return Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStateBind_Test_add_S_w(x147, 1)) - end)(function() - return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x148 ) - return Golden_LongStateBind_Test_discard(function( ) - return Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStateBind_Test_add_S_w(x148, 1)) - end)(function() - return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x149 ) - return Golden_LongStateBind_Test_discard(function( ) - return Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStateBind_Test_add_S_w(x149, 1)) - end)(function() - return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x150 ) - return Golden_LongStateBind_Test_discard(function( ) - return Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStateBind_Test_add_S_w(x150, 1)) - end)(function() - return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( final ) - return (Control_Monad_State_Trans_applicativeStateT(Data_Identity_monadIdentity)).pure(Golden_LongStateBind_Test_add_S_w(Golden_LongStateBind_Test_add_S_w(x1_S_1461, x100_S_1462), final)) - end) + local _S_kont1460_S_w = function(x1_S_1461, x100_S_1462) + return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x141 ) + return Golden_LongStateBind_Test_discard(function() + return Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStateBind_Test_add_S_w(x141, 1)) + end)(function() + return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x142 ) + return Golden_LongStateBind_Test_discard(function() + return Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStateBind_Test_add_S_w(x142, 1)) + end)(function() + return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x143 ) + return Golden_LongStateBind_Test_discard(function() + return Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStateBind_Test_add_S_w(x143, 1)) + end)(function() + return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x144 ) + return Golden_LongStateBind_Test_discard(function() + return Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStateBind_Test_add_S_w(x144, 1)) + end)(function() + return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x145 ) + return Golden_LongStateBind_Test_discard(function() + return Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStateBind_Test_add_S_w(x145, 1)) + end)(function() + return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x146 ) + return Golden_LongStateBind_Test_discard(function() + return Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStateBind_Test_add_S_w(x146, 1)) + end)(function() + return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x147 ) + return Golden_LongStateBind_Test_discard(function( ) + return Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStateBind_Test_add_S_w(x147, 1)) + end)(function() + return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x148 ) + return Golden_LongStateBind_Test_discard(function( ) + return Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStateBind_Test_add_S_w(x148, 1)) + end)(function() + return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x149 ) + return Golden_LongStateBind_Test_discard(function( ) + return Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStateBind_Test_add_S_w(x149, 1)) + end)(function() + return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x150 ) + return Golden_LongStateBind_Test_discard(function( ) + return Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStateBind_Test_add_S_w(x150, 1)) + end)(function() + return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( final ) + return (Control_Monad_State_Trans_applicativeStateT(Data_Identity_monadIdentity)).pure(Golden_LongStateBind_Test_add_S_w(Golden_LongStateBind_Test_add_S_w(x1_S_1461, x100_S_1462), final)) end) end) end) @@ -179,92 +177,90 @@ local Golden_LongStateBind_Test_go = (function() end) end) end) - end + end) end - local _S_kont1463 = function(x1_S_1464) - return function(x100_S_1465) - return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x121 ) - return Golden_LongStateBind_Test_discard(function() - return Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStateBind_Test_add_S_w(x121, 1)) - end)(function() - return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x122 ) - return Golden_LongStateBind_Test_discard(function() - return Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStateBind_Test_add_S_w(x122, 1)) - end)(function() - return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x123 ) - return Golden_LongStateBind_Test_discard(function() - return Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStateBind_Test_add_S_w(x123, 1)) - end)(function() - return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x124 ) - return Golden_LongStateBind_Test_discard(function() - return Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStateBind_Test_add_S_w(x124, 1)) - end)(function() - return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x125 ) - return Golden_LongStateBind_Test_discard(function() - return Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStateBind_Test_add_S_w(x125, 1)) - end)(function() - return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x126 ) - return Golden_LongStateBind_Test_discard(function() - return Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStateBind_Test_add_S_w(x126, 1)) - end)(function() - return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x127 ) - return Golden_LongStateBind_Test_discard(function( ) - return Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStateBind_Test_add_S_w(x127, 1)) - end)(function() - return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x128 ) - return Golden_LongStateBind_Test_discard(function( ) - return Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStateBind_Test_add_S_w(x128, 1)) - end)(function() - return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x129 ) - return Golden_LongStateBind_Test_discard(function( ) - return Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStateBind_Test_add_S_w(x129, 1)) - end)(function() - return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x130 ) - return Golden_LongStateBind_Test_discard(function( ) - return Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStateBind_Test_add_S_w(x130, 1)) - end)(function() - return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x131 ) - return Golden_LongStateBind_Test_discard(function( ) - return Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStateBind_Test_add_S_w(x131, 1)) - end)(function() - return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x132 ) - return Golden_LongStateBind_Test_discard(function( ) - return Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStateBind_Test_add_S_w(x132, 1)) - end)(function() - return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x133 ) - return Golden_LongStateBind_Test_discard(function( ) - return Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStateBind_Test_add_S_w(x133, 1)) - end)(function() - return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x134 ) - return Golden_LongStateBind_Test_discard(function( ) - return Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStateBind_Test_add_S_w(x134, 1)) - end)(function() - return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x135 ) - return Golden_LongStateBind_Test_discard(function( ) - return Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStateBind_Test_add_S_w(x135, 1)) - end)(function() - return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x136 ) - return Golden_LongStateBind_Test_discard(function( ) - return Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStateBind_Test_add_S_w(x136, 1)) - end)(function( ) - return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x137 ) - return Golden_LongStateBind_Test_discard(function( ) - return Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStateBind_Test_add_S_w(x137, 1)) - end)(function( ) - return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x138 ) - return Golden_LongStateBind_Test_discard(function( ) - return Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStateBind_Test_add_S_w(x138, 1)) - end)(function( ) - return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x139 ) - return Golden_LongStateBind_Test_discard(function( ) - return Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStateBind_Test_add_S_w(x139, 1)) - end)(function( ) - return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x140 ) - return Golden_LongStateBind_Test_discard(function( ) - return Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStateBind_Test_add_S_w(x140, 1)) - end)(function( ) - return _S_kont1460(x1_S_1464)(x100_S_1465) - end) + local _S_kont1463_S_w = function(x1_S_1464, x100_S_1465) + return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x121 ) + return Golden_LongStateBind_Test_discard(function() + return Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStateBind_Test_add_S_w(x121, 1)) + end)(function() + return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x122 ) + return Golden_LongStateBind_Test_discard(function() + return Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStateBind_Test_add_S_w(x122, 1)) + end)(function() + return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x123 ) + return Golden_LongStateBind_Test_discard(function() + return Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStateBind_Test_add_S_w(x123, 1)) + end)(function() + return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x124 ) + return Golden_LongStateBind_Test_discard(function() + return Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStateBind_Test_add_S_w(x124, 1)) + end)(function() + return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x125 ) + return Golden_LongStateBind_Test_discard(function() + return Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStateBind_Test_add_S_w(x125, 1)) + end)(function() + return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x126 ) + return Golden_LongStateBind_Test_discard(function() + return Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStateBind_Test_add_S_w(x126, 1)) + end)(function() + return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x127 ) + return Golden_LongStateBind_Test_discard(function( ) + return Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStateBind_Test_add_S_w(x127, 1)) + end)(function() + return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x128 ) + return Golden_LongStateBind_Test_discard(function( ) + return Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStateBind_Test_add_S_w(x128, 1)) + end)(function() + return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x129 ) + return Golden_LongStateBind_Test_discard(function( ) + return Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStateBind_Test_add_S_w(x129, 1)) + end)(function() + return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x130 ) + return Golden_LongStateBind_Test_discard(function( ) + return Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStateBind_Test_add_S_w(x130, 1)) + end)(function() + return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x131 ) + return Golden_LongStateBind_Test_discard(function( ) + return Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStateBind_Test_add_S_w(x131, 1)) + end)(function() + return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x132 ) + return Golden_LongStateBind_Test_discard(function( ) + return Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStateBind_Test_add_S_w(x132, 1)) + end)(function() + return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x133 ) + return Golden_LongStateBind_Test_discard(function( ) + return Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStateBind_Test_add_S_w(x133, 1)) + end)(function() + return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x134 ) + return Golden_LongStateBind_Test_discard(function( ) + return Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStateBind_Test_add_S_w(x134, 1)) + end)(function() + return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x135 ) + return Golden_LongStateBind_Test_discard(function( ) + return Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStateBind_Test_add_S_w(x135, 1)) + end)(function() + return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x136 ) + return Golden_LongStateBind_Test_discard(function( ) + return Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStateBind_Test_add_S_w(x136, 1)) + end)(function( ) + return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x137 ) + return Golden_LongStateBind_Test_discard(function( ) + return Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStateBind_Test_add_S_w(x137, 1)) + end)(function( ) + return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x138 ) + return Golden_LongStateBind_Test_discard(function( ) + return Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStateBind_Test_add_S_w(x138, 1)) + end)(function( ) + return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x139 ) + return Golden_LongStateBind_Test_discard(function( ) + return Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStateBind_Test_add_S_w(x139, 1)) + end)(function( ) + return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x140 ) + return Golden_LongStateBind_Test_discard(function( ) + return Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStateBind_Test_add_S_w(x140, 1)) + end)(function( ) + return _S_kont1460_S_w(x1_S_1464, x100_S_1465) end) end) end) @@ -304,92 +300,90 @@ local Golden_LongStateBind_Test_go = (function() end) end) end) - end + end) end - local _S_kont1466 = function(x1_S_1467) - return function(x100_S_1468) - return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x101 ) - return Golden_LongStateBind_Test_discard(function() - return Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStateBind_Test_add_S_w(x101, 1)) - end)(function() - return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x102 ) - return Golden_LongStateBind_Test_discard(function() - return Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStateBind_Test_add_S_w(x102, 1)) - end)(function() - return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x103 ) - return Golden_LongStateBind_Test_discard(function() - return Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStateBind_Test_add_S_w(x103, 1)) - end)(function() - return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x104 ) - return Golden_LongStateBind_Test_discard(function() - return Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStateBind_Test_add_S_w(x104, 1)) - end)(function() - return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x105 ) - return Golden_LongStateBind_Test_discard(function() - return Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStateBind_Test_add_S_w(x105, 1)) - end)(function() - return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x106 ) - return Golden_LongStateBind_Test_discard(function() - return Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStateBind_Test_add_S_w(x106, 1)) - end)(function() - return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x107 ) - return Golden_LongStateBind_Test_discard(function( ) - return Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStateBind_Test_add_S_w(x107, 1)) - end)(function() - return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x108 ) - return Golden_LongStateBind_Test_discard(function( ) - return Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStateBind_Test_add_S_w(x108, 1)) - end)(function() - return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x109 ) - return Golden_LongStateBind_Test_discard(function( ) - return Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStateBind_Test_add_S_w(x109, 1)) - end)(function() - return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x110 ) - return Golden_LongStateBind_Test_discard(function( ) - return Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStateBind_Test_add_S_w(x110, 1)) - end)(function() - return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x111 ) - return Golden_LongStateBind_Test_discard(function( ) - return Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStateBind_Test_add_S_w(x111, 1)) - end)(function() - return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x112 ) - return Golden_LongStateBind_Test_discard(function( ) - return Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStateBind_Test_add_S_w(x112, 1)) - end)(function() - return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x113 ) - return Golden_LongStateBind_Test_discard(function( ) - return Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStateBind_Test_add_S_w(x113, 1)) - end)(function() - return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x114 ) - return Golden_LongStateBind_Test_discard(function( ) - return Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStateBind_Test_add_S_w(x114, 1)) - end)(function() - return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x115 ) - return Golden_LongStateBind_Test_discard(function( ) - return Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStateBind_Test_add_S_w(x115, 1)) - end)(function() - return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x116 ) - return Golden_LongStateBind_Test_discard(function( ) - return Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStateBind_Test_add_S_w(x116, 1)) - end)(function( ) - return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x117 ) - return Golden_LongStateBind_Test_discard(function( ) - return Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStateBind_Test_add_S_w(x117, 1)) - end)(function( ) - return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x118 ) - return Golden_LongStateBind_Test_discard(function( ) - return Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStateBind_Test_add_S_w(x118, 1)) - end)(function( ) - return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x119 ) - return Golden_LongStateBind_Test_discard(function( ) - return Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStateBind_Test_add_S_w(x119, 1)) - end)(function( ) - return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x120 ) - return Golden_LongStateBind_Test_discard(function( ) - return Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStateBind_Test_add_S_w(x120, 1)) - end)(function( ) - return _S_kont1463(x1_S_1467)(x100_S_1468) - end) + local _S_kont1466_S_w = function(x1_S_1467, x100_S_1468) + return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x101 ) + return Golden_LongStateBind_Test_discard(function() + return Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStateBind_Test_add_S_w(x101, 1)) + end)(function() + return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x102 ) + return Golden_LongStateBind_Test_discard(function() + return Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStateBind_Test_add_S_w(x102, 1)) + end)(function() + return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x103 ) + return Golden_LongStateBind_Test_discard(function() + return Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStateBind_Test_add_S_w(x103, 1)) + end)(function() + return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x104 ) + return Golden_LongStateBind_Test_discard(function() + return Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStateBind_Test_add_S_w(x104, 1)) + end)(function() + return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x105 ) + return Golden_LongStateBind_Test_discard(function() + return Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStateBind_Test_add_S_w(x105, 1)) + end)(function() + return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x106 ) + return Golden_LongStateBind_Test_discard(function() + return Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStateBind_Test_add_S_w(x106, 1)) + end)(function() + return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x107 ) + return Golden_LongStateBind_Test_discard(function( ) + return Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStateBind_Test_add_S_w(x107, 1)) + end)(function() + return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x108 ) + return Golden_LongStateBind_Test_discard(function( ) + return Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStateBind_Test_add_S_w(x108, 1)) + end)(function() + return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x109 ) + return Golden_LongStateBind_Test_discard(function( ) + return Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStateBind_Test_add_S_w(x109, 1)) + end)(function() + return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x110 ) + return Golden_LongStateBind_Test_discard(function( ) + return Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStateBind_Test_add_S_w(x110, 1)) + end)(function() + return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x111 ) + return Golden_LongStateBind_Test_discard(function( ) + return Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStateBind_Test_add_S_w(x111, 1)) + end)(function() + return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x112 ) + return Golden_LongStateBind_Test_discard(function( ) + return Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStateBind_Test_add_S_w(x112, 1)) + end)(function() + return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x113 ) + return Golden_LongStateBind_Test_discard(function( ) + return Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStateBind_Test_add_S_w(x113, 1)) + end)(function() + return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x114 ) + return Golden_LongStateBind_Test_discard(function( ) + return Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStateBind_Test_add_S_w(x114, 1)) + end)(function() + return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x115 ) + return Golden_LongStateBind_Test_discard(function( ) + return Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStateBind_Test_add_S_w(x115, 1)) + end)(function() + return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x116 ) + return Golden_LongStateBind_Test_discard(function( ) + return Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStateBind_Test_add_S_w(x116, 1)) + end)(function( ) + return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x117 ) + return Golden_LongStateBind_Test_discard(function( ) + return Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStateBind_Test_add_S_w(x117, 1)) + end)(function( ) + return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x118 ) + return Golden_LongStateBind_Test_discard(function( ) + return Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStateBind_Test_add_S_w(x118, 1)) + end)(function( ) + return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x119 ) + return Golden_LongStateBind_Test_discard(function( ) + return Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStateBind_Test_add_S_w(x119, 1)) + end)(function( ) + return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x120 ) + return Golden_LongStateBind_Test_discard(function( ) + return Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStateBind_Test_add_S_w(x120, 1)) + end)(function( ) + return _S_kont1463_S_w(x1_S_1467, x100_S_1468) end) end) end) @@ -429,7 +423,7 @@ local Golden_LongStateBind_Test_go = (function() end) end) end) - end + end) end local _S_kont1469 = function(x1_S_1470) return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x81 ) @@ -512,7 +506,7 @@ local Golden_LongStateBind_Test_go = (function() return Golden_LongStateBind_Test_discard(function( ) return Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStateBind_Test_add_S_w(x100, 1)) end)(function( ) - return _S_kont1466(x1_S_1470)(x100) + return _S_kont1466_S_w(x1_S_1470, x100) end) end) end) diff --git a/test/ps/output/Golden.UncurryEffect.Test/corefn.json b/test/ps/output/Golden.UncurryEffect.Test/corefn.json new file mode 100644 index 00000000..b359e070 --- /dev/null +++ b/test/ps/output/Golden.UncurryEffect.Test/corefn.json @@ -0,0 +1 @@ +{"builtWith":"0.15.16","comments":[{"LineComment":" | Exercises the late uncurry run (issue #200): saturated spines that"},{"LineComment":" | only exist once magicDo has rewritten do-blocks into explicit"},{"LineComment":" | thunk-forcing. A unary effect action sits below the split threshold"},{"LineComment":" | before magicDo (manifest arity 1) and above it after (λn.λ_), so"},{"LineComment":" | only the late run can split it, absorbing the thunk parameter into"},{"LineComment":" | the worker. `countdown` demonstrates the split — recursive bindings"},{"LineComment":" | are never inlined, so its statement sites become the single call"},{"LineComment":" | `countdown$w(n)` instead of `countdown(n)()`. `tick` pins the other"},{"LineComment":" | legitimate outcome for a small non-recursive action: the specialize"},{"LineComment":" | pass pastes its body into the saturated statement sites before the"},{"LineComment":" | late run sees them, eliminating those calls altogether (the binding"},{"LineComment":" | survives as an export, still curried). The eval oracle pins runtime"},{"LineComment":" | behavior."}],"decls":[{"annotation":{"meta":null,"sourceSpan":{"end":[0,0],"start":[0,0]}},"bindType":"NonRec","expression":{"abstraction":{"abstraction":{"annotation":{"meta":{"metaType":"IsForeign"},"sourceSpan":{"end":[28,13],"start":[28,3]}},"type":"Var","value":{"identifier":"discard","moduleName":["Control","Bind"]}},"annotation":{"meta":{"metaType":"IsSyntheticApp"},"sourceSpan":{"end":[28,13],"start":[28,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":[28,13],"start":[28,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":[29,10],"start":[29,3]}},"type":"Var","value":{"identifier":"logShow","moduleName":["Effect","Console"]}},"annotation":{"meta":{"metaType":"IsSyntheticApp"},"sourceSpan":{"end":[29,12],"start":[29,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":[37,10],"start":[37,8]}},"type":"Var","value":{"identifier":"lessThanOrEq","moduleName":["Data","Ord"]}},"annotation":{"meta":{"metaType":"IsSyntheticApp"},"sourceSpan":{"end":[37,12],"start":[37,6]}},"argument":{"annotation":{"meta":null,"sourceSpan":{"end":[0,0],"start":[0,0]}},"type":"Var","value":{"identifier":"ordInt","moduleName":["Data","Ord"]}},"type":"App"},"identifier":"lessThanOrEq"},{"annotation":{"meta":null,"sourceSpan":{"end":[0,0],"start":[0,0]}},"bindType":"NonRec","expression":{"abstraction":{"annotation":{"meta":{"metaType":"IsForeign"},"sourceSpan":{"end":[39,24],"start":[39,23]}},"type":"Var","value":{"identifier":"sub","moduleName":["Data","Ring"]}},"annotation":{"meta":{"metaType":"IsSyntheticApp"},"sourceSpan":{"end":[39,26],"start":[39,21]}},"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":[26,27],"start":[26,1]}},"bindType":"NonRec","expression":{"annotation":{"meta":null,"sourceSpan":{"end":[26,27],"start":[26,1]}},"argument":"n","body":{"abstraction":{"abstraction":{"annotation":{"meta":null,"sourceSpan":{"end":[0,0],"start":[0,0]}},"type":"Var","value":{"identifier":"discard","moduleName":["Golden","UncurryEffect","Test"]}},"annotation":{"meta":null,"sourceSpan":{"end":[28,13],"start":[28,3]}},"argument":{"abstraction":{"annotation":{"meta":{"metaType":"IsForeign"},"sourceSpan":{"end":[28,6],"start":[28,3]}},"type":"Var","value":{"identifier":"log","moduleName":["Effect","Console"]}},"annotation":{"meta":null,"sourceSpan":{"end":[28,13],"start":[28,3]}},"argument":{"annotation":{"meta":null,"sourceSpan":{"end":[28,13],"start":[28,7]}},"type":"Literal","value":{"literalType":"StringLiteral","value":"tick"}},"type":"App"},"type":"App"},"annotation":{"meta":null,"sourceSpan":{"end":[28,13],"start":[28,3]}},"argument":{"annotation":{"meta":null,"sourceSpan":{"end":[28,13],"start":[28,3]}},"argument":"$__unused","body":{"abstraction":{"annotation":{"meta":null,"sourceSpan":{"end":[0,0],"start":[0,0]}},"type":"Var","value":{"identifier":"logShow","moduleName":["Golden","UncurryEffect","Test"]}},"annotation":{"meta":null,"sourceSpan":{"end":[29,12],"start":[29,3]}},"argument":{"annotation":{"meta":null,"sourceSpan":{"end":[29,12],"start":[29,11]}},"type":"Var","value":{"identifier":"n","sourcePos":[27,1]}},"type":"App"},"type":"Abs"},"type":"App"},"type":"Abs"},"identifier":"tick"},{"annotation":{"meta":null,"sourceSpan":{"end":[44,47],"start":[44,1]}},"bindType":"NonRec","expression":{"annotation":{"meta":null,"sourceSpan":{"end":[44,47],"start":[44,1]}},"argument":"act","body":{"abstraction":{"abstraction":{"annotation":{"meta":null,"sourceSpan":{"end":[0,0],"start":[0,0]}},"type":"Var","value":{"identifier":"discard","moduleName":["Golden","UncurryEffect","Test"]}},"annotation":{"meta":null,"sourceSpan":{"end":[46,8],"start":[46,3]}},"argument":{"abstraction":{"annotation":{"meta":null,"sourceSpan":{"end":[46,6],"start":[46,3]}},"type":"Var","value":{"identifier":"act","sourcePos":[45,1]}},"annotation":{"meta":null,"sourceSpan":{"end":[46,8],"start":[46,3]}},"argument":{"annotation":{"meta":null,"sourceSpan":{"end":[46,8],"start":[46,7]}},"type":"Literal","value":{"literalType":"IntLiteral","value":1}},"type":"App"},"type":"App"},"annotation":{"meta":null,"sourceSpan":{"end":[46,8],"start":[46,3]}},"argument":{"annotation":{"meta":null,"sourceSpan":{"end":[46,8],"start":[46,3]}},"argument":"$__unused","body":{"abstraction":{"annotation":{"meta":null,"sourceSpan":{"end":[47,6],"start":[47,3]}},"type":"Var","value":{"identifier":"act","sourcePos":[45,1]}},"annotation":{"meta":null,"sourceSpan":{"end":[47,8],"start":[47,3]}},"argument":{"annotation":{"meta":null,"sourceSpan":{"end":[47,8],"start":[47,7]}},"type":"Literal","value":{"literalType":"IntLiteral","value":2}},"type":"App"},"type":"Abs"},"type":"App"},"type":"Abs"},"identifier":"runBoth"},{"bindType":"Rec","binds":[{"annotation":{"meta":null,"sourceSpan":{"end":[34,32],"start":[34,1]}},"expression":{"annotation":{"meta":null,"sourceSpan":{"end":[34,32],"start":[34,1]}},"argument":"n","body":{"abstraction":{"abstraction":{"annotation":{"meta":null,"sourceSpan":{"end":[0,0],"start":[0,0]}},"type":"Var","value":{"identifier":"discard","moduleName":["Golden","UncurryEffect","Test"]}},"annotation":{"meta":null,"sourceSpan":{"end":[36,9],"start":[36,3]}},"argument":{"abstraction":{"annotation":{"meta":null,"sourceSpan":{"end":[36,7],"start":[36,3]}},"type":"Var","value":{"identifier":"tick","moduleName":["Golden","UncurryEffect","Test"]}},"annotation":{"meta":null,"sourceSpan":{"end":[36,9],"start":[36,3]}},"argument":{"annotation":{"meta":null,"sourceSpan":{"end":[36,9],"start":[36,8]}},"type":"Var","value":{"identifier":"n","sourcePos":[35,1]}},"type":"App"},"type":"App"},"annotation":{"meta":null,"sourceSpan":{"end":[36,9],"start":[36,3]}},"argument":{"annotation":{"meta":null,"sourceSpan":{"end":[36,9],"start":[36,3]}},"argument":"$__unused","body":{"annotation":{"meta":null,"sourceSpan":{"end":[39,27],"start":[37,3]}},"caseAlternatives":[{"binders":[{"annotation":{"meta":null,"sourceSpan":{"end":[39,27],"start":[37,3]}},"binderType":"LiteralBinder","literal":{"literalType":"BooleanLiteral","value":true}}],"expression":{"abstraction":{"annotation":{"meta":{"metaType":"IsForeign"},"sourceSpan":{"end":[38,13],"start":[38,10]}},"type":"Var","value":{"identifier":"log","moduleName":["Effect","Console"]}},"annotation":{"meta":null,"sourceSpan":{"end":[38,20],"start":[38,10]}},"argument":{"annotation":{"meta":null,"sourceSpan":{"end":[38,20],"start":[38,14]}},"type":"Literal","value":{"literalType":"StringLiteral","value":"done"}},"type":"App"},"isGuarded":false},{"binders":[{"annotation":{"meta":null,"sourceSpan":{"end":[39,27],"start":[37,3]}},"binderType":"NullBinder"}],"expression":{"abstraction":{"annotation":{"meta":null,"sourceSpan":{"end":[39,19],"start":[39,10]}},"type":"Var","value":{"identifier":"countdown","moduleName":["Golden","UncurryEffect","Test"]}},"annotation":{"meta":null,"sourceSpan":{"end":[39,27],"start":[39,10]}},"argument":{"abstraction":{"abstraction":{"annotation":{"meta":null,"sourceSpan":{"end":[0,0],"start":[0,0]}},"type":"Var","value":{"identifier":"sub","moduleName":["Golden","UncurryEffect","Test"]}},"annotation":{"meta":null,"sourceSpan":{"end":[39,26],"start":[39,21]}},"argument":{"annotation":{"meta":null,"sourceSpan":{"end":[39,22],"start":[39,21]}},"type":"Var","value":{"identifier":"n","sourcePos":[35,1]}},"type":"App"},"annotation":{"meta":null,"sourceSpan":{"end":[39,26],"start":[39,21]}},"argument":{"annotation":{"meta":null,"sourceSpan":{"end":[39,26],"start":[39,25]}},"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":"lessThanOrEq","moduleName":["Golden","UncurryEffect","Test"]}},"annotation":{"meta":null,"sourceSpan":{"end":[37,12],"start":[37,6]}},"argument":{"annotation":{"meta":null,"sourceSpan":{"end":[37,7],"start":[37,6]}},"type":"Var","value":{"identifier":"n","sourcePos":[35,1]}},"type":"App"},"annotation":{"meta":null,"sourceSpan":{"end":[37,12],"start":[37,6]}},"argument":{"annotation":{"meta":null,"sourceSpan":{"end":[37,12],"start":[37,11]}},"type":"Literal","value":{"literalType":"IntLiteral","value":1}},"type":"App"}],"type":"Case"},"type":"Abs"},"type":"App"},"type":"Abs"},"identifier":"countdown"}]},{"annotation":{"meta":null,"sourceSpan":{"end":[49,20],"start":[49,1]}},"bindType":"NonRec","expression":{"abstraction":{"abstraction":{"annotation":{"meta":null,"sourceSpan":{"end":[0,0],"start":[0,0]}},"type":"Var","value":{"identifier":"discard","moduleName":["Golden","UncurryEffect","Test"]}},"annotation":{"meta":null,"sourceSpan":{"end":[51,9],"start":[51,3]}},"argument":{"abstraction":{"annotation":{"meta":null,"sourceSpan":{"end":[51,7],"start":[51,3]}},"type":"Var","value":{"identifier":"tick","moduleName":["Golden","UncurryEffect","Test"]}},"annotation":{"meta":null,"sourceSpan":{"end":[51,9],"start":[51,3]}},"argument":{"annotation":{"meta":null,"sourceSpan":{"end":[51,9],"start":[51,8]}},"type":"Literal","value":{"literalType":"IntLiteral","value":7}},"type":"App"},"type":"App"},"annotation":{"meta":null,"sourceSpan":{"end":[51,9],"start":[51,3]}},"argument":{"annotation":{"meta":null,"sourceSpan":{"end":[51,9],"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","UncurryEffect","Test"]}},"annotation":{"meta":null,"sourceSpan":{"end":[52,14],"start":[52,3]}},"argument":{"abstraction":{"annotation":{"meta":null,"sourceSpan":{"end":[52,12],"start":[52,3]}},"type":"Var","value":{"identifier":"countdown","moduleName":["Golden","UncurryEffect","Test"]}},"annotation":{"meta":null,"sourceSpan":{"end":[52,14],"start":[52,3]}},"argument":{"annotation":{"meta":null,"sourceSpan":{"end":[52,14],"start":[52,13]}},"type":"Literal","value":{"literalType":"IntLiteral","value":3}},"type":"App"},"type":"App"},"annotation":{"meta":null,"sourceSpan":{"end":[52,14],"start":[52,3]}},"argument":{"annotation":{"meta":null,"sourceSpan":{"end":[52,14],"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","UncurryEffect","Test"]}},"annotation":{"meta":null,"sourceSpan":{"end":[53,15],"start":[53,3]}},"argument":{"abstraction":{"annotation":{"meta":null,"sourceSpan":{"end":[53,10],"start":[53,3]}},"type":"Var","value":{"identifier":"runBoth","moduleName":["Golden","UncurryEffect","Test"]}},"annotation":{"meta":null,"sourceSpan":{"end":[53,15],"start":[53,3]}},"argument":{"annotation":{"meta":null,"sourceSpan":{"end":[53,15],"start":[53,11]}},"type":"Var","value":{"identifier":"tick","moduleName":["Golden","UncurryEffect","Test"]}},"type":"App"},"type":"App"},"annotation":{"meta":null,"sourceSpan":{"end":[53,15],"start":[53,3]}},"argument":{"annotation":{"meta":null,"sourceSpan":{"end":[53,15],"start":[53,3]}},"argument":"$__unused","body":{"abstraction":{"annotation":{"meta":null,"sourceSpan":{"end":[54,10],"start":[54,3]}},"type":"Var","value":{"identifier":"runBoth","moduleName":["Golden","UncurryEffect","Test"]}},"annotation":{"meta":null,"sourceSpan":{"end":[54,20],"start":[54,3]}},"argument":{"annotation":{"meta":null,"sourceSpan":{"end":[54,20],"start":[54,11]}},"type":"Var","value":{"identifier":"countdown","moduleName":["Golden","UncurryEffect","Test"]}},"type":"App"},"type":"Abs"},"type":"App"},"type":"Abs"},"type":"App"},"type":"Abs"},"type":"App"},"identifier":"main"}],"exports":["tick","countdown","runBoth","main"],"foreign":[],"imports":[{"annotation":{"meta":null,"sourceSpan":{"end":[54,20],"start":[14,1]}},"moduleName":["Control","Bind"]},{"annotation":{"meta":null,"sourceSpan":{"end":[54,20],"start":[14,1]}},"moduleName":["Data","Ord"]},{"annotation":{"meta":null,"sourceSpan":{"end":[54,20],"start":[14,1]}},"moduleName":["Data","Ring"]},{"annotation":{"meta":null,"sourceSpan":{"end":[54,20],"start":[14,1]}},"moduleName":["Data","Show"]},{"annotation":{"meta":null,"sourceSpan":{"end":[54,20],"start":[14,1]}},"moduleName":["Effect"]},{"annotation":{"meta":null,"sourceSpan":{"end":[54,20],"start":[14,1]}},"moduleName":["Effect","Console"]},{"annotation":{"meta":null,"sourceSpan":{"end":[54,20],"start":[14,1]}},"moduleName":["Golden","UncurryEffect","Test"]},{"annotation":{"meta":null,"sourceSpan":{"end":[16,15],"start":[16,1]}},"moduleName":["Prelude"]},{"annotation":{"meta":null,"sourceSpan":{"end":[54,20],"start":[14,1]}},"moduleName":["Prim"]}],"moduleName":["Golden","UncurryEffect","Test"],"modulePath":"src/Golden/UncurryEffect/Test.purs","reExports":{},"sourceSpan":{"end":[54,20],"start":[14,1]}} \ No newline at end of file diff --git a/test/ps/output/Golden.UncurryEffect.Test/eval/.gitignore b/test/ps/output/Golden.UncurryEffect.Test/eval/.gitignore new file mode 100644 index 00000000..d2dc29bb --- /dev/null +++ b/test/ps/output/Golden.UncurryEffect.Test/eval/.gitignore @@ -0,0 +1 @@ +actual.txt diff --git a/test/ps/output/Golden.UncurryEffect.Test/eval/golden.txt b/test/ps/output/Golden.UncurryEffect.Test/eval/golden.txt new file mode 100644 index 00000000..64e269da --- /dev/null +++ b/test/ps/output/Golden.UncurryEffect.Test/eval/golden.txt @@ -0,0 +1,21 @@ +tick +7 +tick +3 +tick +2 +tick +1 +done +tick +1 +tick +2 +tick +1 +done +tick +2 +tick +1 +done diff --git a/test/ps/output/Golden.UncurryEffect.Test/golden.ir b/test/ps/output/Golden.UncurryEffect.Test/golden.ir new file mode 100644 index 00000000..48e4d4ac --- /dev/null +++ b/test/ps/output/Golden.UncurryEffect.Test/golden.ir @@ -0,0 +1,358 @@ +UberModule + { uberModuleBindings = + [ Standalone + ( QName + { qnameModuleName = ModuleName "Data.Show", qnameName = Name "foreign" + }, ForeignImport Nothing + ( ModuleName "Data.Show" ) ".spago/p/prelude/5718c84fdde6247749cb053e816df696c30fe691/src/Data/Show.purs" + [ ( Nothing, Name "showIntImpl" ) ] + ), Standalone + ( QName + { qnameModuleName = ModuleName "Data.Show", qnameName = Name "showIntImpl" + }, ObjectProp Nothing + ( Ref Nothing ( Imported ( ModuleName "Data.Show" ) ( Name "foreign" ) ) ) + ( PropName "showIntImpl" ) + ), 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 "Effect.Console", qnameName = Name "log" + }, ObjectProp Nothing + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) + ( PropName "log" ) + ), Standalone + ( QName + { qnameModuleName = ModuleName "Golden.UncurryEffect.Test", qnameName = Name "tick" + }, AbsN Nothing + ( ParamNamed Nothing ( Name "n" ) :| [] ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) + ( Let Nothing + ( Standalone + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) + ( LiteralString Nothing "tick" :| [] ) + ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) + ) :| [] + ) + ( AppN Nothing + ( AppN Nothing + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) + ( AppN Nothing + ( Ref Nothing ( Imported ( ModuleName "Data.Show" ) ( Name "showIntImpl" ) ) ) + ( Ref Nothing ( Local ( Name "n" ) ) :| [] ) :| [] + ) + ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) + ) + ) + ) + ), Standalone + ( QName + { qnameModuleName = ModuleName "Golden.UncurryEffect.Test", qnameName = Name "runBoth" + }, AbsN Nothing + ( ParamNamed Nothing ( Name "act" ) :| [] ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) + ( Let Nothing + ( Standalone + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing + ( Ref Nothing ( Local ( Name "act" ) ) ) + ( LiteralInt Nothing 1 :| [] ) + ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) + ) :| [] + ) + ( AppN Nothing + ( AppN Nothing + ( Ref Nothing ( Local ( Name "act" ) ) ) + ( LiteralInt Nothing 2 :| [] ) + ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) + ) + ) + ) + ), RecursiveGroup + ( + ( QName + { qnameModuleName = ModuleName "Golden.UncurryEffect.Test", qnameName = Name "countdown$w" + }, AbsN Nothing + ( ParamNamed Nothing ( Name "n" ) :| [ ParamUnused Nothing ] ) + ( Let Nothing + ( Standalone + ( Nothing, Name "_", AppN Nothing + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) + ( Let Nothing + ( Standalone + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing + ( Ref Nothing + ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) + ) + ( LiteralString Nothing "tick" :| [] ) + ) + ( Ref Nothing + ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] + ) + ) :| [] + ) + ( AppN Nothing + ( AppN Nothing + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) + ( AppN Nothing + ( Ref Nothing + ( Imported ( ModuleName "Data.Show" ) ( Name "showIntImpl" ) ) + ) + ( Ref Nothing ( Local ( Name "n" ) ) :| [] ) :| [] + ) + ) + ( Ref Nothing + ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] + ) + ) + ) + ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) + ) :| [] + ) + ( AppN Nothing + ( IfThenElse Nothing + ( Eq Nothing + ( LiteralString Nothing "Data.Ordering∷Ordering.GT" ) + ( IfThenElse Nothing + ( PrimBinOp Nothing PrimLt + ( Ref Nothing ( Local ( Name "n" ) ) ) + ( LiteralInt Nothing 1 ) + ) + ( LiteralString Nothing "Data.Ordering∷Ordering.LT" ) + ( IfThenElse Nothing + ( Eq Nothing + ( Ref Nothing ( Local ( Name "n" ) ) ) + ( LiteralInt Nothing 1 ) + ) + ( LiteralString Nothing "Data.Ordering∷Ordering.EQ" ) + ( LiteralString Nothing "Data.Ordering∷Ordering.GT" ) + ) + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported ( ModuleName "Golden.UncurryEffect.Test" ) ( Name "countdown" ) ) + ) + ( PrimBinOp Nothing PrimSub + ( Ref Nothing ( Local ( Name "n" ) ) ) + ( LiteralInt Nothing 1 ) :| [] + ) + ) + ( AppN Nothing + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) + ( LiteralString Nothing "done" :| [] ) + ) + ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) + ) + ) + ) :| + [ + ( QName + { qnameModuleName = ModuleName "Golden.UncurryEffect.Test", qnameName = Name "countdown" + }, AbsN Nothing + ( ParamNamed Nothing ( Name "countdown$p1" ) :| [] ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "countdown$p2" ) :| [] ) + ( AppN Nothing + ( Ref Nothing + ( Imported ( ModuleName "Golden.UncurryEffect.Test" ) ( Name "countdown$w" ) ) + ) + ( Ref Nothing + ( Local ( Name "countdown$p1" ) ) :| + [ Ref Nothing ( Local ( Name "countdown$p2" ) ) ] + ) + ) + ) + ) + ] + ) + ], uberModuleForeigns = [], uberModuleExports = + [ + ( Name "tick", Ref Nothing + ( Imported ( ModuleName "Golden.UncurryEffect.Test" ) ( Name "tick" ) ) + ), + ( Name "countdown", Ref Nothing + ( Imported ( ModuleName "Golden.UncurryEffect.Test" ) ( Name "countdown" ) ) + ), + ( Name "runBoth", Ref Nothing + ( Imported ( ModuleName "Golden.UncurryEffect.Test" ) ( Name "runBoth" ) ) + ), + ( Name "main", AbsN Nothing + ( ParamUnused Nothing :| [] ) + ( Let Nothing + ( Standalone + ( Nothing, Name "_", AppN Nothing + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) + ( Let Nothing + ( Standalone + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) + ( LiteralString Nothing "tick" :| [] ) + ) + ( Ref Nothing + ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] + ) + ) :| [] + ) + ( AppN Nothing + ( AppN Nothing + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) + ( AppN Nothing + ( Ref Nothing + ( Imported ( ModuleName "Data.Show" ) ( Name "showIntImpl" ) ) + ) + ( LiteralInt Nothing 7 :| [] ) :| [] + ) + ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) + ) + ) + ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) + ) :| + [ Standalone + ( Nothing, Name "_", AppN Nothing + ( Ref Nothing + ( Imported ( ModuleName "Golden.UncurryEffect.Test" ) ( Name "countdown$w" ) ) + ) + ( LiteralInt Nothing 3 :| + [ Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) ] + ) + ), Standalone + ( Nothing, Name "_", AppN Nothing + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) + ( Let Nothing + ( Standalone + ( Nothing, Name "_", AppN Nothing + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) + ( Let Nothing + ( Standalone + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing + ( Ref Nothing + ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) + ) + ( LiteralString Nothing "tick" :| [] ) + ) + ( Ref Nothing + ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] + ) + ) :| [] + ) + ( AppN Nothing + ( AppN Nothing + ( Ref Nothing + ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported ( ModuleName "Data.Show" ) ( Name "showIntImpl" ) ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) + ) + ( Ref Nothing + ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] + ) + ) + ) + ) + ( Ref Nothing + ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] + ) + ) :| [] + ) + ( AppN Nothing + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) + ( Let Nothing + ( Standalone + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing + ( Ref Nothing + ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) + ) + ( LiteralString Nothing "tick" :| [] ) + ) + ( Ref Nothing + ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] + ) + ) :| [] + ) + ( AppN Nothing + ( AppN Nothing + ( Ref Nothing + ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported ( ModuleName "Data.Show" ) ( Name "showIntImpl" ) ) + ) + ( LiteralInt Nothing 2 :| [] ) :| [] + ) + ) + ( Ref Nothing + ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] + ) + ) + ) + ) + ( Ref Nothing + ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] + ) + ) + ) + ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) + ) + ] + ) + ( AppN Nothing + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) + ( Let Nothing + ( Standalone + ( Nothing, Name "_", AppN Nothing + ( Ref Nothing + ( Imported ( ModuleName "Golden.UncurryEffect.Test" ) ( Name "countdown$w" ) ) + ) + ( LiteralInt Nothing 1 :| + [ Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) ] + ) + ) :| [] + ) + ( AppN Nothing + ( Ref Nothing + ( Imported ( ModuleName "Golden.UncurryEffect.Test" ) ( Name "countdown$w" ) ) + ) + ( LiteralInt Nothing 2 :| + [ Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) ] + ) + ) + ) + ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) + ) + ) + ) + ] + } \ No newline at end of file diff --git a/test/ps/output/Golden.UncurryEffect.Test/golden.lua b/test/ps/output/Golden.UncurryEffect.Test/golden.lua new file mode 100644 index 00000000..14d25057 --- /dev/null +++ b/test/ps/output/Golden.UncurryEffect.Test/golden.lua @@ -0,0 +1,64 @@ +local M = {} +local Data_Show_foreign = { showIntImpl = function(n) return tostring(n) end } +local Data_Show_showIntImpl = Data_Show_foreign.showIntImpl +local Effect_Console_foreign = { + log = function(s) return function() print(s) end end +} +local Effect_Console_log = Effect_Console_foreign.log +M.Golden_UncurryEffect_Test_tick = function(n) + return function() + local _ = Effect_Console_log("tick")() + return Effect_Console_log(Data_Show_showIntImpl(n))() + end +end +M.Golden_UncurryEffect_Test_runBoth = function(act) + return function() local _ = act(1)() return act(2)() end +end +local Golden_UncurryEffect_Test_countdown +local Golden_UncurryEffect_Test_countdown_S_w = function(n) + local _ = (function() + local _ = Effect_Console_log("tick")() + return Effect_Console_log(Data_Show_showIntImpl(n))() + end)() + return (function() + if "Data.Ordering∷Ordering.GT" == (function() + if n < 1 then + return "Data.Ordering∷Ordering.LT" + elseif n == 1 then + return "Data.Ordering∷Ordering.EQ" + else + return "Data.Ordering∷Ordering.GT" + end + end)() then + return Golden_UncurryEffect_Test_countdown(n - 1) + else + return Effect_Console_log("done") + end + end)()() +end +Golden_UncurryEffect_Test_countdown = function(countdown_S_p1) + return function(countdown_S_p2) + return Golden_UncurryEffect_Test_countdown_S_w(countdown_S_p1, countdown_S_p2) + end +end +return (function() + local _ = (function() + local _ = Effect_Console_log("tick")() + return Effect_Console_log(Data_Show_showIntImpl(7))() + end)() + local _ = Golden_UncurryEffect_Test_countdown_S_w(3) + local _ = (function() + local _ = (function() + local _ = Effect_Console_log("tick")() + return Effect_Console_log(Data_Show_showIntImpl(1))() + end)() + return (function() + local _ = Effect_Console_log("tick")() + return Effect_Console_log(Data_Show_showIntImpl(2))() + end)() + end)() + return (function() + local _ = Golden_UncurryEffect_Test_countdown_S_w(1) + return Golden_UncurryEffect_Test_countdown_S_w(2) + end)() +end)() diff --git a/test/ps/src/Bench/EffectStep.purs b/test/ps/src/Bench/EffectStep.purs new file mode 100644 index 00000000..75c8c0c6 --- /dev/null +++ b/test/ps/src/Bench/EffectStep.purs @@ -0,0 +1,43 @@ +-- | A hot ST loop through a unary effect step that is always fully +-- | applied and immediately run. Before the late uncurry run (issue +-- | #200) every iteration paid a curried call returning a freshly +-- | allocated thunk plus the call that forces it; after it the step is +-- | a single n-ary worker call with the thunk parameter absorbed. +module Bench.EffectStep where + +import Prelude + +import Control.Monad.ST (ST) +import Control.Monad.ST as ST +import Control.Monad.ST.Ref (STRef) +import Control.Monad.ST.Ref as STRef + +-- Unary: below the split threshold until magicDo appends the thunk +-- parameter, so only the late uncurry run can split it. The body is +-- deliberately over the call-site inline budget, so the call shape +-- survives to be measured — built from read/write pairs, which unlike +-- @modify@ allocate no per-iteration lambda that would drown the +-- thunk-allocation delta this bench exists to expose. +step :: forall r. STRef r Int -> ST r Unit +step ref = do + a <- STRef.read ref + _ <- STRef.write (a + 1) ref + b <- STRef.read ref + _ <- STRef.write (b + 2) ref + c <- STRef.read ref + _ <- STRef.write (c + 3) ref + d <- STRef.read ref + _ <- STRef.write (d + 4) ref + e <- STRef.read ref + _ <- STRef.write (e + 5) ref + pure unit + +go :: forall r. Int -> STRef r Int -> ST r Int +go i ref = do + step ref + if i <= 1 then STRef.read ref else go (i - 1) ref + +run :: Int -> Int +run n = ST.run do + ref <- STRef.new 0 + go n ref diff --git a/test/ps/src/Golden/UncurryEffect/Test.purs b/test/ps/src/Golden/UncurryEffect/Test.purs new file mode 100644 index 00000000..c3e80e0d --- /dev/null +++ b/test/ps/src/Golden/UncurryEffect/Test.purs @@ -0,0 +1,54 @@ +-- | Exercises the late uncurry run (issue #200): saturated spines that +-- | only exist once magicDo has rewritten do-blocks into explicit +-- | thunk-forcing. A unary effect action sits below the split threshold +-- | before magicDo (manifest arity 1) and above it after (λn.λ_), so +-- | only the late run can split it, absorbing the thunk parameter into +-- | the worker. `countdown` demonstrates the split — recursive bindings +-- | are never inlined, so its statement sites become the single call +-- | `countdown$w(n)` instead of `countdown(n)()`. `tick` pins the other +-- | legitimate outcome for a small non-recursive action: the specialize +-- | pass pastes its body into the saturated statement sites before the +-- | late run sees them, eliminating those calls altogether (the binding +-- | survives as an export, still curried). The eval oracle pins runtime +-- | behavior. +module Golden.UncurryEffect.Test where + +import Prelude + +import Effect (Effect) +import Effect.Console (log, logShow) + +-- Manifest arity 1 before magicDo, so never an early-run candidate. +-- Its body is under the call-site inline budget: the specialize pass +-- pastes it into the statement sites before the late run can split it, +-- so no worker appears and the executed statements are the pasted +-- bodies. The exported binding itself stays curried. +tick :: Int -> Effect Unit +tick n = do + log "tick" + logShow n + +-- A recursive driver: the entry call becomes a direct worker call. The +-- self-call sits under the trailing `if` — the run applies to the if's +-- result — so it stays partial and keeps going through the wrapper. +countdown :: Int -> Effect Unit +countdown n = do + tick n + if n <= 1 + then log "done" + else countdown (n - 1) + +-- Actions received as values are locals, not candidates: their +-- statement calls keep the curried call-then-force shape, and the +-- arguments passed below stay references to the curried wrappers. +runBoth :: (Int -> Effect Unit) -> Effect Unit +runBoth act = do + act 1 + act 2 + +main :: Effect Unit +main = do + tick 7 + countdown 3 + runBoth tick + runBoth countdown